!CLIST,SORTS
C
C   COMMENTS BEGIN IN COLUMN 1
C   THE & CHARACTER INDICATING STATEMENT CONTINUATION
C   ALSO BEGINS IN COLUMN 1.
C   STATEMENT NUMBERS BEGIN IN COLUMN AND ALL OTHER
C   STATEMENTS ARE ENTERED IN COLUMNS 2-72.
C
  COMMON IARRAY(10)
9900 FORMAT('ENTER TEN INTERGERS AT ?'/)
9910 FORMAT()
C  ABOVE IS A FREE FIELD INPUT FORMAT.
9920 FORMAT('SORTED ARAAY IS'/,10I7)
100 PRINT 9900
  READ 9910,IARRAY
  IF(IARRAY(1).EQ.0) GO TO 99999
  CALL SORT
  PRINT 9920,IARRAY
  GO TO 100
99999  STOP
  END
  SUBROUTINE SORT
  COMMON IAR(10)
100 KK=2
  DO 200I=1,9
  IF(IAR(I).LE.IAR(I+1)) GO TO 200
  KK=1
  KT=IAR(I)
  IAR(I)=IAR(I+1)
  IAR(I+1)=KT
200 CONTINUE
  GO TO(100,300),KK
300 RETURN
  END

!FORT,,SORTO,SORTS


M6800 RESIDENT FORTRAN 1.0
COPYRIGHT BY MOTOROLA 1976


!RLOAD

M6800 LINKING LOADER REV 1.1A
COPYRIGHT BY MOTOROLA 1976
?IDON
?LOAD=SORTO
  MAIN
  SORT
?LOAD=FORLB		(do not use LIB=FORLB here)
  RUN  *
  RXIO
  OPENS
  CIO     TEMPORARY COMMON I/O
  POWER
  EXP
  ALOG
  SIN
  COS
  COSIN
  ATAN
  SQRT
  MOD
  ABS
  ERRLIB
  IANDS
  IORS
  IEORS
  ISHFT
?BO=SORT
?ABSP
?LOAD=SORTO
  MAIN
  SORT
?LOAD=FORLB		(OK to use LIB=FORLB here for a smaller executable)
  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 0014 0050 0063 0014
 D 02DA 0064 033D 0000
 P 1FB5 033E 22F2 0000
MODULE NAME BSCT DSCT PSCT
  MAIN      0034 0064 033E
  SORT      0034 00A2 03CF
  RUN  *    0034 00C4 048A
  RXIO      0034 00C4 0D6E
  OPENS     0034 00C4 1865
  CIO       0050 00C4 1968
  POWER     0050 00C4 1C50
  EXP       0050 00EA 1CA5
  ALOG      0050 0148 1D8D
  SIN       0050 01C0 1EAD
  COS       0050 01D0 1ECF
  COSIN     0050 01E0 1EF1
  ATAN      0050 025C 2018
  SQRT      0050 02B4 20F7
  MOD       0050 02E6 218F
  ABS       0050 0302 21D1
  ERRLIB    0050 0316 2210
  IANDS     0050 0324 223E
  IORS      0050 032A 2260
  IEORS     0050 0330 2282
  ISHFT     0050 0336 22A4
DEFINED SYMBOLS
 NAME  S  STR  NAME  S  STR  NAME  S  STR  NAME  S  STR  NAME  S  STR
RUN    P 04D1 MAIN   P 033E SORT   P 03CF ENDFRW P 1392 IO1    P 0E6B
IO2    P 0F50 IO3    P 1330 LPUSED P 0E56 SAVED  P 09BA XHSPCL P 0D74
BUF    P 0DB7 CLOSE  P 1ABE CLOSEF P 186B IOCDTT A 0003 IOCFTN A 000E
IOCLUN A 0000 IOCNAM A 0004 IOCSBA A 000C IOCSTA A 0001 OPEN   P 1970
OPENF  P 1865 POWER  P 1C50 ERRLIB P 2210 ALOG   P 1D8D EXP    P 1CA5
ABS    P 21D1 SQRT   P 20F7 SIN    P 1EAD COSIN  P 1EF1 COS    P 1ECF
ATAN   P 2018 MOD    P 218F IAND   P 223E IOR    P 2260 IEOR   P 2282
ISHFT  P 22A4
?EXIT

!CDIR

NAME   ATTR TRAK SCTR  SIZE

EXEC    00   01   01   004E
EDIT    00   04   01   0032
FORT    00   05   19   00C7
HELLO   00   0D   10   0001
LX      00   0D   11   0003
RLODP   00   0D   14   00B5
FORLB   00   14   13   007A
FORLO   00   19   0B   007A
RLOAD   00   1E   03   00B5
SORTS   00   25   02   0006
SORTO   00   25   08   000A
SORT    00   25   12   00A7


!LOAD,SORT

.J 0020
ENTER TEN INTERGERS AT ?

?17,13,66,88,43,56,18,97,103,44
SORTED ARAAY IS
     13     17     18     43     44     56     66     88     97    103
ENTER TEN INTERGERS AT ?

?0
STOP
M6800 EDOS VER 2.6

!