!EDIT,,HELLO

M6800 RESIDENT EDITOR 1.2
@IC HELLO WORLD
9999 FORMAT('HELLO, WORLD'/)
 PRINT 9999
 STOP
 END
$$

@E$$

!CLIST,HELLO
C HELLO WORLD
9999 FORMAT('HELLO, WORLD'/)
 PRINT 9999
 STOP
 END

!FORT,,LX,HELLO


M6800 RESIDENT FORTRAN 1.0
COPYRIGHT BY MOTOROLA 1976


!RLOAD

M6800 LINKING LOADER REV 1.1A
COPYRIGHT BY MOTOROLA 1976
?IDON
?LOAD=LX
  MAIN
?LOAD=FORLB
  RUN  *
  RXIO
  OPENS
  CIO     TEMPORARY COMMON I/O
  POWER
  EXP
  ALOG
  SIN
  COS
  COSIN
  ATAN
  SQRT
  MOD
  ABS
  ERRLIB
  IANDS
  IORS
  IEORS
  ISHFT
?BO=LXO
?ABSP
?LOAD=LX
  MAIN
?LOAD=FORLB
  RUN  *
  RXIO
  OPENS
  CIO     TEMPORARY COMMON I/O
  POWER
  EXP
  ALOG
  SIN
  COS
  COSIN
  ATAN
  SQRT
  MOD
  ABS
  ERRLIB
  IANDS
  IORS
  IEORS
  ISHFT
?MAPF
  NO UNDEFINED SYMBOLS
MAP
 S SIZE  STR  END COMN
 A 0014 0020 0033
 A 0014 0020 0033
 B 001C 0034 004F 0000
 C 0000 0000 FFFF 0000
 D 02A4 0050 02F3 0000
 P 1E8D 02F4 2180 0000
MODULE NAME BSCT DSCT PSCT
  MAIN      0034 0050 02F4
  RUN  *    0034 007A 0318
  RXIO      0034 007A 0BFC
  OPENS     0034 007A 16F3
  CIO       0050 007A 17F6
  POWER     0050 007A 1ADE
  EXP       0050 00A0 1B33
  ALOG      0050 00FE 1C1B
  SIN       0050 0176 1D3B
  COS       0050 0186 1D5D
  COSIN     0050 0196 1D7F
  ATAN      0050 0212 1EA6
  SQRT      0050 026A 1F85
  MOD       0050 029C 201D
  ABS       0050 02B8 205F
  ERRLIB    0050 02CC 209E
  IANDS     0050 02DA 20CC
  IORS      0050 02E0 20EE
  IEORS     0050 02E6 2110
  ISHFT     0050 02EC 2132
DEFINED SYMBOLS
 NAME  S  STR  NAME  S  STR  NAME  S  STR  NAME  S  STR  NAME  S  STR
RUN    P 035F MAIN   P 02F4 ENDFRW P 1220 IO1    P 0CF9 IO2    P 0DDE
IO3    P 11BE LPUSED P 0CE4 SAVED  P 0848 XHSPCL P 0C02 BUF    P 0C45
CLOSE  P 194C CLOSEF P 16F9 IOCDTT A 0003 IOCFTN A 000E IOCLUN A 0000
IOCNAM A 0004 IOCSBA A 000C IOCSTA A 0001 OPEN   P 17FE OPENF  P 16F3
POWER  P 1ADE ERRLIB P 209E ALOG   P 1C1B EXP    P 1B33 ABS    P 205F
SQRT   P 1F85 SIN    P 1D3B COSIN  P 1D7F COS    P 1D5D ATAN   P 1EA6
MOD    P 201D IAND   P 20CC IOR    P 20EE IEOR   P 2110 ISHFT  P 2132
?EXIT

!CDIR

NAME   ATTR TRAK SCTR  SIZE

EXEC    01   05   01   0052
FORT    01   08   05   00C7
SORT    01   0F   16   0006
FORLB   01   10   02   007A
RLOAD   01   14   14   00B4
EDIT    01   1B   12   0031
SORO1   00   1D   0F   000A
SORTL   00   1D   19   0066
MESS5   00   21   17   000B
WAVS1   00   22   08   0017
WAVS2   00   23   05   000F
INT1    00   23   14   0069
RTL1    00   27   15   009E
INT2    00   2D   17   0069
RTL2    00   31   18   009E
CONTB   00   37   1A   0002
HELLO   00   38   02   0001
LX      00   38   03   0003
LXO     00   38   06   009F


!LOAD,LXO
:9
EXBUG 1.1 MAID
*20;G
HELLO, WORLD

STOP
M6800 EDOS VER 2.5

!