Compucolor.org – Virtual Media

Listing of file='APP8.DOC;01' on disk='vmedia/asmtut_disk4-sector.ccvf'

### Disk Sector 344 ###
00: 37 00 38 00 08 00 00 00 80 25 01 00 ff ff 00 00   7.8......%......
10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
30: 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 48 00   ..............H.
40: 3b 09 41 53 53 45 4d 4d 42 4c 59 20 4c 41 4e 47   ;.ASSEMMBLY LANG
50: 55 41 47 45 20 54 55 54 4f 52 49 41 4c 20 53 45   UAGE TUTORIAL SE
60: 52 49 45 53 0d 0a 0d 0a 3b 09 41 70 70 65 6e 64   RIES....;.Append
70: 69 78 20 20 23 38 20 20 20 20 20 53 61 6d 70 6c   ix  #8     Sampl
### Disk Sector 345 ###
00: 65 20 50 72 6f 67 72 61 6d 20 23 33 0d 0a 0d 0a   e Program #3....
10: 0d 0a 3b 09 54 48 49 53 20 50 52 4f 47 52 41 4d   ..;.THIS PROGRAM
20: 20 49 53 20 55 53 45 44 20 49 4e 20 54 48 45 20    IS USED IN THE
30: 27 43 41 54 41 4c 4f 47 27 20 50 41 43 4b 41 47   'CATALOG' PACKAG
40: 45 20 42 59 20 54 48 49 53 0d 0a 3b 09 57 52 49   E BY THIS..;.WRI
50: 54 45 52 20 46 4f 52 20 41 20 46 41 53 54 20 53   TER FOR A FAST S
60: 4f 52 54 20 4f 46 20 53 54 4f 52 45 44 20 46 49   ORT OF STORED FI
70: 4c 45 20 4e 41 4d 45 53 0d 0a 0d 0a 3b 09 53 45   LE NAMES....;.SE
### Disk Sector 346 ###
00: 45 20 54 48 45 20 41 43 43 4f 4d 50 41 4e 59 49   E THE ACCOMPANYI
10: 4e 47 20 46 4c 4f 57 20 43 48 41 52 54 20 46 4f   NG FLOW CHART FO
20: 52 20 54 48 45 20 53 4f 52 54 20 41 4c 47 4f 52   R THE SORT ALGOR
30: 49 54 48 4d 0d 0a 0d 0a 0d 0a 3b 09 09 2a 2a 20   ITHM......;..**
40: 51 55 49 43 4b 53 4f 52 54 20 2a 2a 0d 0a 3b 09   QUICKSORT **..;.
50: 31 39 20 4d 41 52 20 38 31 09 09 42 2e 46 2e 4d   19 MAR 81..B.F.M
60: 2e 0d 0a 0d 0a 3b 44 45 53 49 47 4e 45 44 20 54   .....;DESIGNED T
70: 4f 20 42 45 20 4c 4f 41 44 45 44 20 46 52 4f 4d   O BE LOADED FROM
### Disk Sector 347 ###
00: 20 41 20 4d 45 4e 55 20 41 4e 44 20 54 4f 20 52    A MENU AND TO R
10: 45 54 55 52 4e 20 54 4f 20 4d 45 4e 55 0d 0a 3b   ETURN TO MENU..;
20: 4f 4e 20 45 58 49 54 2e 0d 0a 3b 41 4c 47 4f 52   ON EXIT...;ALGOR
30: 49 54 48 4d 20 55 53 45 44 20 49 53 20 46 52 4f   ITHM USED IS FRO
40: 4d 20 44 57 59 45 52 20 26 20 43 52 49 54 43 48   M DWYER & CRITCH
50: 46 49 45 4c 44 0d 0a 3b 41 53 53 55 4d 45 53 20   FIELD..;ASSUMES
60: 54 48 41 54 20 41 20 52 41 4e 44 4f 4d 20 46 49   THAT A RANDOM FI
70: 4c 45 20 27 46 49 4c 45 2e 52 4e 44 27 20 49 53   LE 'FILE.RND' IS
### Disk Sector 348 ###
00: 20 4f 4e 20 54 48 45 20 44 45 46 41 55 4c 54 0d    ON THE DEFAULT.
10: 0a 3b 44 52 49 56 45 20 41 4e 44 20 43 4f 4e 54   .;DRIVE AND CONT
20: 41 49 4e 53 20 55 50 20 54 4f 20 31 31 35 31 20   AINS UP TO 1151
30: 52 45 43 4f 52 44 53 20 45 41 43 48 20 31 31 20   RECORDS EACH 11
40: 42 59 54 45 53 20 4c 4f 4e 47 0d 0a 3b 57 48 49   BYTES LONG..;WHI
50: 43 48 20 4d 55 53 54 20 42 45 20 53 4f 52 54 45   CH MUST BE SORTE
60: 44 20 49 4e 54 4f 20 41 4c 50 48 41 42 45 54 49   D INTO ALPHABETI
70: 43 41 4c 20 4f 52 44 45 52 20 41 4e 44 20 54 48   CAL ORDER AND TH
### Disk Sector 349 ###
00: 45 4e 0d 0a 3b 52 45 4c 4f 41 44 45 44 20 54 4f   EN..;RELOADED TO
10: 20 54 48 45 20 46 49 4c 45 2e 0d 0a 3b 54 48 45    THE FILE...;THE
20: 20 41 43 54 55 41 4c 20 4e 55 4d 42 45 52 20 4f    ACTUAL NUMBER O
30: 46 20 52 45 43 4f 52 44 53 20 54 4f 20 42 45 20   F RECORDS TO BE
40: 53 4f 52 54 45 44 20 49 53 20 50 52 45 56 49 4f   SORTED IS PREVIO
50: 55 53 4c 59 0d 0a 3b 4c 4f 41 44 45 44 20 41 53   USLY..;LOADED AS
60: 20 41 20 32 20 42 59 54 45 20 49 4e 54 45 47 45    A 2 BYTE INTEGE
70: 52 20 49 4e 54 4f 20 52 45 43 4f 52 44 20 31 31   R INTO RECORD 11
### Disk Sector 350 ###
00: 35 32 2e 0d 0a 3b 54 48 49 53 20 50 52 4f 47 2e   52...;THIS PROG.
10: 20 50 55 4c 4c 53 20 41 4c 4c 20 52 45 43 4f 52    PULLS ALL RECOR
20: 44 53 20 49 4e 54 4f 20 41 20 42 55 46 46 45 52   DS INTO A BUFFER
30: 20 41 4e 44 20 54 48 45 4e 0d 0a 3b 41 4c 50 48    AND THEN..;ALPH
40: 41 42 45 54 49 5a 45 53 20 4f 4e 20 54 48 45 20   ABETIZES ON THE
50: 54 4f 54 41 4c 20 52 45 43 4f 52 44 2c 20 53 57   TOTAL RECORD, SW
60: 41 50 50 49 4e 47 20 52 45 43 4f 52 44 53 20 41   APPING RECORDS A
70: 53 0d 0a 3b 4e 45 43 45 53 53 41 52 59 2e 20 41   S..;NECESSARY. A
### Disk Sector 351 ###
00: 20 53 55 42 2d 53 54 41 43 4b 20 49 53 20 55 53    SUB-STACK IS US
10: 45 44 20 46 4f 52 20 4b 45 45 50 49 4e 47 20 54   ED FOR KEEPING T
20: 52 41 43 4b 20 4f 46 20 53 55 42 46 49 4c 45 53   RACK OF SUBFILES
30: 2e 0d 0a 0d 0a 0d 0a 09 09 4f 52 47 09 38 32 39   .........ORG.829
40: 41 48 09 3b 4b 45 45 50 20 43 4c 45 41 52 20 4f   AH.;KEEP CLEAR O
50: 46 20 42 41 53 49 43 20 53 43 52 41 54 43 48 20   F BASIC SCRATCH
60: 50 41 44 0d 0a 0d 0a 53 54 41 52 54 3a 09 44 49   PAD....START:.DI
70: 09 09 09 3b 53 45 54 20 52 4f 4d 20 41 44 44 52   ...;SET ROM ADDR
### Disk Sector 352 ###
00: 45 53 53 45 53 0d 0a 09 4c 44 41 09 30 30 30 31   ESSES...LDA.0001
10: 09 09 3b 38 2f 37 39 3f 0d 0a 09 43 50 49 09 30   ..;8/79?...CPI.0
20: 42 41 48 0d 0a 09 4a 5a 09 53 54 41 52 54 31 09   BAH...JZ.START1.
30: 09 3b 59 45 53 0d 0a 09 4c 58 49 09 48 2c 4e 45   .;YES...LXI.H,NE
40: 57 54 41 42 0d 0a 09 4c 58 49 09 44 2c 4f 4c 44   WTAB...LXI.D,OLD
50: 54 41 42 0d 0a 09 4c 58 49 09 42 2c 4c 45 4e 54   TAB...LXI.B,LENT
60: 41 42 09 3b 23 20 54 4f 20 41 4c 54 45 52 0d 0a   AB.;# TO ALTER..
70: 4f 56 45 52 4c 41 59 3a 09 4c 44 41 58 09 44 0d   OVERLAY:.LDAX.D.
### Disk Sector 353 ###
00: 0a 09 4d 4f 56 09 4d 2c 41 0d 0a 09 49 4e 58 09   ..MOV.M,A...INX.
10: 48 0d 0a 09 49 4e 58 09 44 0d 0a 09 44 43 58 09   H...INX.D...DCX.
20: 42 0d 0a 09 4d 4f 56 09 41 2c 42 0d 0a 09 4f 52   B...MOV.A,B...OR
30: 41 09 43 0d 0a 09 4a 4e 5a 09 4f 56 45 52 4c 41   A.C...JNZ.OVERLA
40: 59 0d 0a 53 54 41 52 54 31 3a 09 45 49 0d 0a 09   Y..START1:.EI...
50: 4c 58 49 09 48 2c 30 0d 0a 09 44 41 44 09 53 50   LXI.H,0...DAD.SP
60: 09 09 3b 53 41 56 45 20 53 50 20 46 4f 52 20 52   ..;SAVE SP FOR R
70: 45 54 55 52 4e 0d 0a 09 53 48 4c 44 09 46 43 53   ETURN...SHLD.FCS
### Disk Sector 354 ###
00: 53 50 0d 0a 09 4c 58 49 09 53 50 2c 53 54 41 43   SP...LXI.SP,STAC
10: 4b 0d 0a 09 4c 58 49 09 48 2c 4d 53 47 30 30 09   K...LXI.H,MSG00.
20: 09 3b 43 4c 45 41 4e 20 55 50 20 54 48 45 20 53   .;CLEAN UP THE S
30: 43 52 4e 0d 0a 09 43 41 4c 4c 09 4f 53 54 52 0d   CRN...CALL.OSTR.
40: 0a 47 4f 3a 09 4c 58 49 09 48 2c 46 4c 53 50 45   .GO:.LXI.H,FLSPE
50: 43 09 3b 43 4f 4d 4d 41 4e 44 20 4c 49 4e 45 0d   C.;COMMAND LINE.
60: 0a 09 4c 58 49 09 44 2c 46 50 42 0d 0a 09 43 41   ..LXI.D,FPB...CA
70: 4c 4c 09 50 46 53 50 43 09 09 3b 45 4e 54 45 52   LL.PFSPC..;ENTER
### Disk Sector 355 ###
00: 20 49 54 0d 0a 09 43 43 09 45 4d 45 53 53 0d 0a    IT...CC.EMESS..
10: 09 4c 58 49 09 48 2c 46 50 42 0d 0a 09 58 52 41   .LXI.H,FPB...XRA
20: 09 41 0d 0a 09 4d 4f 56 09 4d 2c 41 09 09 3b 53   .A...MOV.M,A..;S
30: 45 54 20 4f 50 45 4e 20 54 59 50 45 20 43 4f 44   ET OPEN TYPE COD
40: 45 0d 0a 09 43 41 4c 4c 09 4f 50 45 4e 09 09 3b   E...CALL.OPEN..;
50: 47 45 54 20 49 54 20 49 4e 54 4f 20 54 48 45 20   GET IT INTO THE
60: 46 50 42 0d 0a 09 43 43 09 45 4d 45 53 53 0d 0a   FPB...CC.EMESS..
70: 09 43 41 4c 4c 09 53 45 54 55 50 09 09 3b 53 45   .CALL.SETUP..;SE
### Disk Sector 356 ###
00: 54 20 55 50 20 54 48 45 20 46 50 42 20 57 20 50   T UP THE FPB W P
10: 52 41 4d 53 0d 0a 09 43 41 4c 4c 09 52 45 41 44   RAMS...CALL.READ
20: 09 09 3b 52 45 41 44 20 54 48 45 20 57 48 4f 4c   ..;READ THE WHOL
30: 45 20 46 49 4c 45 20 49 4e 0d 0a 09 4c 48 4c 44   E FILE IN...LHLD
40: 09 49 42 55 46 2b 52 53 2a 28 52 4e 2d 31 29 09   .IBUF+RS*(RN-1).
50: 3b 47 45 54 20 54 48 45 20 4e 4f 20 4f 46 20 52   ;GET THE NO OF R
60: 45 43 53 0d 0a 09 53 48 4c 44 09 52 42 09 09 3b   ECS...SHLD.RB..;
70: 52 49 47 48 54 20 42 4c 4f 43 4b 20 3d 20 4c 41   RIGHT BLOCK = LA
### Disk Sector 357 ###
00: 53 54 20 52 45 43 4f 52 44 0d 0a 09 4c 58 49 09   ST RECORD...LXI.
10: 48 2c 31 0d 0a 09 53 48 4c 44 09 4c 42 09 09 3b   H,1...SHLD.LB..;
20: 4c 45 46 54 20 42 4c 4f 43 4b 20 3d 31 0d 0a 09   LEFT BLOCK =1...
30: 4c 58 49 09 48 2c 46 49 4c 53 54 4b 09 3b 53 45   LXI.H,FILSTK.;SE
40: 54 20 53 54 4b 50 20 46 4f 52 20 53 55 42 46 49   T STKP FOR SUBFI
50: 4c 45 53 0d 0a 09 53 48 4c 44 09 53 54 4b 50 0d   LES...SHLD.STKP.
60: 0a 09 4c 58 49 09 48 2c 4d 53 47 30 31 09 09 3b   ..LXI.H,MSG01..;
70: 53 4f 52 54 49 4e 47 20 53 54 41 52 54 45 44 0d   SORTING STARTED.
### Disk Sector 358 ###
00: 0a 09 43 41 4c 4c 09 4f 53 54 52 0d 0a 0d 0a 3b   ..CALL.OSTR....;
10: 09 2a 2a 2a 2a 2a 2a 2a 09 4d 41 49 4e 20 50 52   .*******.MAIN PR
20: 4f 47 52 41 4d 20 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d   OGRAM *******...
30: 0a 53 55 42 46 49 4c 3a 09 4c 48 4c 44 09 4c 42   .SUBFIL:.LHLD.LB
40: 0d 0a 09 53 48 4c 44 09 53 4c 42 09 09 3b 49 20   ...SHLD.SLB..;I
50: 3d 20 4c 0d 0a 09 4c 48 4c 44 09 52 42 0d 0a 09   = L...LHLD.RB...
60: 53 48 4c 44 09 53 52 42 09 09 3b 4a 20 3d 20 52   SHLD.SRB..;J = R
70: 0d 0a 09 4d 56 49 09 41 2c 2d 31 0d 0a 09 53 54   ...MVI.A,-1...ST
### Disk Sector 359 ###
00: 41 09 46 4c 41 47 09 09 3b 53 20 3d 20 2d 31 0d   A.FLAG..;S = -1.
10: 0a 0d 0a 43 4f 4d 50 41 52 3a 09 4c 48 4c 44 09   ...COMPAR:.LHLD.
20: 53 4c 42 09 09 3b 49 0d 0a 09 43 41 4c 4c 09 47   SLB..;I...CALL.G
30: 45 54 41 44 0d 0a 09 53 48 4c 44 09 53 4c 41 44   ETAD...SHLD.SLAD
40: 09 09 3b 4e 4f 57 20 53 54 4f 52 45 44 0d 0a 09   ..;NOW STORED...
50: 4c 48 4c 44 09 53 52 42 09 09 3b 4a 0d 0a 09 43   LHLD.SRB..;J...C
60: 41 4c 4c 09 47 45 54 41 44 0d 0a 09 53 48 4c 44   ALL.GETAD...SHLD
70: 09 53 52 41 44 09 09 3b 4e 4f 57 20 53 54 4f 52   .SRAD..;NOW STOR
### Disk Sector 360 ###
00: 45 44 0d 0a 09 58 43 48 47 09 09 09 3b 4a 20 53   ED...XCHG...;J S
10: 54 52 49 4e 47 20 41 54 20 3c 44 45 3e 0d 0a 09   TRING AT <DE>...
20: 4c 48 4c 44 09 53 4c 41 44 09 09 3b 49 20 44 49   LHLD.SLAD..;I DI
30: 54 54 4f 20 20 20 20 20 3c 48 4c 3e 0d 0a 09 4d   TTO     <HL>...M
40: 56 49 09 43 2c 52 53 09 09 3b 43 4f 55 4e 54 45   VI.C,RS..;COUNTE
50: 52 0d 0a 41 47 4e 31 3a 09 4c 44 41 58 09 44 09   R..AGN1:.LDAX.D.
60: 09 3b 4a 20 42 59 54 45 0d 0a 09 43 4d 50 09 4d   .;J BYTE...CMP.M
70: 09 09 3b 56 53 20 49 20 42 59 54 45 0d 0a 09 4a   ..;VS I BYTE...J
### Disk Sector 361 ###
00: 43 09 53 57 41 50 09 09 3b 4a 20 42 59 54 45 20   C.SWAP..;J BYTE
10: 4c 45 53 53 20 54 48 41 4e 20 49 20 42 59 54 45   LESS THAN I BYTE
20: 0d 0a 09 4a 5a 09 53 41 4d 45 09 09 3b 49 44 45   ...JZ.SAME..;IDE
30: 4e 54 49 43 41 4c 20 42 59 54 45 2c 20 4b 45 45   NTICAL BYTE, KEE
40: 50 20 4c 4f 4f 4b 49 4e 47 0d 0a 09 4a 4e 43 09   P LOOKING...JNC.
50: 46 4c 47 43 48 4b 09 09 3b 49 20 42 59 54 45 20   FLGCHK..;I BYTE
60: 4c 45 53 53 20 54 48 41 4e 20 4a 20 42 59 54 45   LESS THAN J BYTE
70: 0d 0a 53 41 4d 45 3a 09 49 4e 58 09 48 0d 0a 09   ..SAME:.INX.H...
### Disk Sector 362 ###
00: 49 4e 58 09 44 0d 0a 09 44 43 52 09 43 0d 0a 09   INX.D...DCR.C...
10: 4a 4e 5a 09 41 47 4e 31 09 09 3b 4e 45 58 54 20   JNZ.AGN1..;NEXT
20: 42 59 54 45 0d 0a 09 4a 4d 50 09 46 4c 47 43 48   BYTE...JMP.FLGCH
30: 4b 09 09 3b 49 20 53 54 52 20 3c 3d 20 4a 20 53   K..;I STR <= J S
40: 54 52 0d 0a 0d 0a 47 45 54 41 44 3a 09 44 43 58   TR....GETAD:.DCX
50: 09 48 09 09 3b 52 45 43 4f 52 44 20 4c 45 53 53   .H..;RECORD LESS
60: 20 4f 4e 45 0d 0a 09 4c 58 49 09 44 2c 52 53 09    ONE...LXI.D,RS.
70: 09 3b 54 49 4d 45 53 20 52 53 0d 0a 09 43 41 4c   .;TIMES RS...CAL
### Disk Sector 363 ###
00: 4c 09 4d 55 4c 48 44 0d 0a 09 4c 58 49 09 44 2c   L.MULHD...LXI.D,
10: 49 42 55 46 09 09 3b 50 4c 55 53 20 53 54 41 52   IBUF..;PLUS STAR
20: 54 20 4f 46 20 42 55 46 46 45 52 0d 0a 09 44 41   T OF BUFFER...DA
30: 44 09 44 0d 0a 09 52 45 54 09 09 09 3b 47 49 56   D.D...RET...;GIV
40: 45 53 20 41 44 44 52 20 4f 46 20 46 49 52 53 54   ES ADDR OF FIRST
50: 20 42 59 54 45 0d 0a 0d 0a 53 57 41 50 3a 09 4c    BYTE....SWAP:.L
60: 58 49 09 44 2c 54 45 4d 53 54 52 09 09 3b 3c 44   XI.D,TEMSTR..;<D
70: 45 3e 20 50 4f 49 4e 54 53 20 54 4f 20 53 54 4f   E> POINTS TO STO
### Disk Sector 364 ###
00: 52 45 0d 0a 09 4c 48 4c 44 09 53 4c 41 44 09 09   RE...LHLD.SLAD..
10: 3b 49 20 41 54 20 3c 48 4c 3e 0d 0a 09 43 41 4c   ;I AT <HL>...CAL
20: 4c 09 4d 4f 56 45 49 54 09 09 3b 49 20 54 4f 20   L.MOVEIT..;I TO
30: 53 54 4f 52 45 0d 0a 09 4c 48 4c 44 09 53 4c 41   STORE...LHLD.SLA
40: 44 09 09 3b 49 0d 0a 09 58 43 48 47 09 09 09 3b   D..;I...XCHG...;
50: 41 54 20 3c 44 45 3e 0d 0a 09 4c 48 4c 44 09 53   AT <DE>...LHLD.S
60: 52 41 44 09 09 3b 4a 20 41 54 20 3c 48 4c 3e 0d   RAD..;J AT <HL>.
70: 0a 09 43 41 4c 4c 09 4d 4f 56 45 49 54 09 09 3b   ..CALL.MOVEIT..;
### Disk Sector 365 ###
00: 4a 20 54 4f 20 49 0d 0a 09 4c 48 4c 44 09 53 52   J TO I...LHLD.SR
10: 41 44 09 09 3b 4a 0d 0a 09 58 43 48 47 09 09 09   AD..;J...XCHG...
20: 3b 41 54 20 3c 44 45 3e 0d 0a 09 4c 58 49 09 48   ;AT <DE>...LXI.H
30: 2c 54 45 4d 53 54 52 09 3b 53 54 4f 52 45 20 41   ,TEMSTR.;STORE A
40: 54 20 3c 48 4c 3e 0d 0a 09 43 41 4c 4c 09 4d 4f   T <HL>...CALL.MO
50: 56 45 49 54 09 09 3b 53 54 4f 52 45 20 54 4f 20   VEIT..;STORE TO
60: 4a 0d 0a 09 4a 4d 50 09 43 4d 50 4c 53 0d 0a 0d   J...JMP.CMPLS...
70: 0a 4d 4f 56 45 49 54 3a 09 4d 56 49 09 43 2c 52   .MOVEIT:.MVI.C,R
### Disk Sector 366 ###
00: 53 09 09 3b 43 4f 55 4e 54 45 52 0d 0a 41 47 4e   S..;COUNTER..AGN
10: 32 3a 09 4d 4f 56 09 41 2c 4d 0d 0a 09 53 54 41   2:.MOV.A,M...STA
20: 58 09 44 0d 0a 09 49 4e 58 09 48 0d 0a 09 49 4e   X.D...INX.H...IN
30: 58 09 44 0d 0a 09 44 43 52 09 43 0d 0a 09 4a 4e   X.D...DCR.C...JN
40: 5a 09 41 47 4e 32 0d 0a 09 52 45 54 0d 0a 0d 0a   Z.AGN2...RET....
50: 43 4d 50 4c 53 3a 09 4c 44 41 09 46 4c 41 47 0d   CMPLS:.LDA.FLAG.
60: 0a 09 43 4d 41 09 09 09 3b 43 4f 4d 50 4c 45 4d   ..CMA...;COMPLEM
70: 45 4e 54 20 54 48 45 20 46 4c 41 47 0d 0a 09 53   ENT THE FLAG...S
### Disk Sector 367 ###
00: 54 41 09 46 4c 41 47 0d 0a 0d 0a 46 4c 47 43 48   TA.FLAG....FLGCH
10: 4b 3a 09 4c 44 41 09 46 4c 41 47 0d 0a 09 43 50   K:.LDA.FLAG...CP
20: 49 09 30 0d 0a 09 4a 5a 09 49 4e 43 49 0d 0a 0d   I.0...JZ.INCI...
30: 0a 44 45 43 4a 3a 09 4c 48 4c 44 09 53 52 42 09   .DECJ:.LHLD.SRB.
40: 09 3b 4a 20 3d 20 4a 2d 31 0d 0a 09 44 43 58 09   .;J = J-1...DCX.
50: 48 0d 0a 09 53 48 4c 44 09 53 52 42 0d 0a 09 4a   H...SHLD.SRB...J
60: 4d 50 09 43 4d 50 49 4a 09 09 3b 53 4b 49 50 20   MP.CMPIJ..;SKIP
70: 49 4e 43 49 0d 0a 0d 0a 49 4e 43 49 3a 09 4c 48   INCI....INCI:.LH
### Disk Sector 368 ###
00: 4c 44 09 53 4c 42 09 09 3b 49 20 3d 20 49 2b 31   LD.SLB..;I = I+1
10: 0d 0a 09 49 4e 58 09 48 0d 0a 09 53 48 4c 44 09   ...INX.H...SHLD.
20: 53 4c 42 0d 0a 0d 0a 43 4d 50 49 4a 3a 09 4c 48   SLB....CMPIJ:.LH
30: 4c 44 09 53 52 42 0d 0a 09 58 43 48 47 09 09 09   LD.SRB...XCHG...
40: 3b 4a 20 49 4e 20 3c 44 45 3e 0d 0a 09 4c 48 4c   ;J IN <DE>...LHL
50: 44 09 53 4c 42 09 09 3b 49 20 49 4e 20 3c 48 4c   D.SLB..;I IN <HL
60: 3e 0d 0a 09 43 41 4c 4c 09 43 4d 50 48 44 0d 0a   >...CALL.CMPHD..
70: 09 4a 4e 5a 09 43 4f 4d 50 41 52 09 09 3b 49 3c   .JNZ.COMPAR..;I<
### Disk Sector 369 ###
00: 3e 4a 0d 0a 0d 0a 43 4d 50 52 4e 49 3a 09 4c 48   >J....CMPRNI:.LH
10: 4c 44 09 52 42 0d 0a 09 58 43 48 47 09 09 09 3b   LD.RB...XCHG...;
20: 52 20 49 4e 20 3c 44 45 3e 0d 0a 09 4c 48 4c 44   R IN <DE>...LHLD
30: 09 53 4c 42 0d 0a 09 49 4e 58 09 48 09 09 3b 49   .SLB...INX.H..;I
40: 2b 31 20 49 4e 20 3c 48 4c 3e 0d 0a 09 43 41 4c   +1 IN <HL>...CAL
50: 4c 09 43 4d 50 44 48 0d 0a 09 4a 5a 09 53 45 54   L.CMPDH...JZ.SET
60: 52 09 09 3b 49 2b 31 3d 52 0d 0a 09 4a 43 09 53   R..;I+1=R...JC.S
70: 45 54 52 09 09 3b 49 2b 31 3e 52 0d 0a 0d 0a 50   ETR..;I+1>R....P
### Disk Sector 370 ###
00: 55 53 48 53 54 3a 09 4c 48 4c 44 09 53 54 4b 50   USHST:.LHLD.STKP
10: 09 09 3b 50 55 53 48 20 28 49 2b 31 2c 52 29 0d   ..;PUSH (I+1,R).
20: 0a 09 58 43 48 47 09 09 09 3b 53 54 4b 50 20 49   ..XCHG...;STKP I
30: 4e 20 3c 44 45 3e 0d 0a 09 4c 48 4c 44 09 52 42   N <DE>...LHLD.RB
40: 09 09 3b 52 42 20 49 4e 20 3c 48 4c 3e 0d 0a 09   ..;RB IN <HL>...
50: 44 43 58 09 44 09 09 3b 54 4f 50 20 53 54 41 43   DCX.D..;TOP STAC
60: 4b 20 42 59 54 45 0d 0a 09 4d 4f 56 09 41 2c 48   K BYTE...MOV.A,H
70: 09 09 3b 48 42 59 54 20 4f 46 20 52 0d 0a 09 53   ..;HBYT OF R...S
### Disk Sector 371 ###
00: 54 41 58 09 44 09 09 3b 53 54 41 43 4b 45 44 0d   TAX.D..;STACKED.
10: 0a 09 44 43 58 09 44 09 09 3b 4e 45 58 54 20 53   ..DCX.D..;NEXT S
20: 54 41 43 4b 20 42 59 54 45 0d 0a 09 4d 4f 56 09   TACK BYTE...MOV.
30: 41 2c 4c 09 09 3b 4c 42 59 54 20 4f 46 20 52 0d   A,L..;LBYT OF R.
40: 0a 09 53 54 41 58 09 44 09 09 3b 53 54 41 43 4b   ..STAX.D..;STACK
50: 45 44 0d 0a 09 4c 48 4c 44 09 53 4c 42 09 09 3b   ED...LHLD.SLB..;
60: 49 20 49 4e 20 3c 48 4c 3e 0d 0a 09 49 4e 58 09   I IN <HL>...INX.
70: 48 09 09 3b 49 2b 31 20 49 4e 20 3c 48 4c 3e 0d   H..;I+1 IN <HL>.
### Disk Sector 372 ###
00: 0a 09 44 43 58 09 44 09 09 3b 4e 45 58 54 20 53   ..DCX.D..;NEXT S
10: 54 41 43 4b 20 42 59 54 45 0d 0a 09 4d 4f 56 09   TACK BYTE...MOV.
20: 41 2c 48 09 09 3b 48 42 59 54 20 4f 46 20 49 2b   A,H..;HBYT OF I+
30: 31 0d 0a 09 53 54 41 58 09 44 09 09 3b 53 54 41   1...STAX.D..;STA
40: 43 4b 45 44 0d 0a 09 44 43 58 09 44 09 09 3b 42   CKED...DCX.D..;B
50: 4f 54 54 4f 4d 20 53 54 41 43 4b 20 42 59 54 45   OTTOM STACK BYTE
60: 0d 0a 09 4d 4f 56 09 41 2c 4c 09 09 3b 4c 42 59   ...MOV.A,L..;LBY
70: 54 20 4f 46 20 49 2b 31 0d 0a 09 53 54 41 58 09   T OF I+1...STAX.
### Disk Sector 373 ###
00: 44 09 09 3b 53 54 41 43 4b 45 44 0d 0a 09 58 43   D..;STACKED...XC
10: 48 47 09 09 09 3b 4e 45 57 20 53 54 4b 50 20 49   HG...;NEW STKP I
20: 4e 20 3c 48 4c 3e 0d 0a 09 53 48 4c 44 09 53 54   N <HL>...SHLD.ST
30: 4b 50 09 09 3b 41 4e 44 20 53 41 56 45 44 0d 0a   KP..;AND SAVED..
40: 0d 0a 53 45 54 52 3a 09 4c 48 4c 44 09 53 4c 42   ..SETR:.LHLD.SLB
50: 09 09 3b 49 0d 0a 09 44 43 58 09 48 09 09 3b 52   ..;I...DCX.H..;R
60: 3d 49 2d 31 0d 0a 09 53 48 4c 44 09 52 42 0d 0a   =I-1...SHLD.RB..
70: 09 58 43 48 47 09 09 09 3b 52 20 41 54 20 3c 44   .XCHG...;R AT <D
### Disk Sector 374 ###
00: 45 3e 0d 0a 09 4c 48 4c 44 09 4c 42 09 09 3b 4c   E>...LHLD.LB..;L
10: 20 41 54 20 3c 48 4c 3e 0d 0a 09 43 41 4c 4c 09    AT <HL>...CALL.
20: 43 4d 50 48 44 0d 0a 09 4a 43 09 53 55 42 46 49   CMPHD...JC.SUBFI
30: 4c 09 09 3b 4c 20 3c 20 52 0d 0a 0d 0a 43 48 4b   L..;L < R....CHK
40: 53 54 4b 3a 09 4c 48 4c 44 09 53 54 4b 50 0d 0a   STK:.LHLD.STKP..
50: 09 4d 4f 56 09 41 2c 4c 09 09 3b 53 54 4b 50 20   .MOV.A,L..;STKP
60: 4f 4e 20 50 41 47 45 20 42 44 52 59 2c 20 43 48   ON PAGE BDRY, CH
70: 45 43 4b 20 4c 42 59 54 0d 0a 09 43 50 49 09 36   ECK LBYT...CPI.6
### Disk Sector 375 ###
00: 34 0d 0a 09 4a 5a 09 46 49 4e 09 09 3b 53 54 41   4...JZ.FIN..;STA
10: 43 4b 20 45 4d 50 54 59 0d 0a 0d 0a 50 4f 50 53   CK EMPTY....POPS
20: 54 3a 09 4c 58 49 09 44 2c 4c 42 09 09 3b 50 4f   T:.LXI.D,LB..;PO
30: 49 4e 54 20 54 4f 20 4c 42 20 57 20 3c 44 45 3e   INT TO LB W <DE>
40: 0d 0a 09 4d 4f 56 09 41 2c 4d 09 09 3b 47 45 54   ...MOV.A,M..;GET
50: 20 4c 42 59 54 20 46 52 4f 4d 20 53 54 41 43 4b    LBYT FROM STACK
60: 0d 0a 09 53 54 41 58 09 44 09 09 3b 53 54 4f 52   ...STAX.D..;STOR
70: 45 20 41 54 20 4c 42 0d 0a 09 49 4e 58 09 48 09   E AT LB...INX.H.
### Disk Sector 376 ###
00: 09 3b 4e 45 58 54 20 53 54 4b 20 42 59 54 0d 0a   .;NEXT STK BYT..
10: 09 49 4e 58 09 44 09 09 3b 48 42 59 54 20 4c 42   .INX.D..;HBYT LB
20: 0d 0a 09 4d 4f 56 09 41 2c 4d 09 09 3b 47 45 54   ...MOV.A,M..;GET
30: 20 48 42 59 54 20 46 52 4f 4d 20 53 54 41 43 4b    HBYT FROM STACK
40: 0d 0a 09 53 54 41 58 09 44 09 09 3b 53 54 4f 52   ...STAX.D..;STOR
50: 45 20 41 54 20 4c 42 0d 0a 09 49 4e 58 09 48 09   E AT LB...INX.H.
60: 09 3b 4e 45 58 54 20 53 54 4b 20 42 59 54 0d 0a   .;NEXT STK BYT..
70: 09 4c 58 49 09 44 2c 52 42 09 09 3b 50 4f 49 4e   .LXI.D,RB..;POIN
### Disk Sector 377 ###
00: 54 20 54 4f 20 52 42 20 57 20 3c 44 45 3e 0d 0a   T TO RB W <DE>..
10: 09 4d 4f 56 09 41 2c 4d 09 09 3b 47 45 54 20 4c   .MOV.A,M..;GET L
20: 42 59 54 20 46 52 4f 4d 20 53 54 41 43 4b 0d 0a   BYT FROM STACK..
30: 09 53 54 41 58 09 44 09 09 3b 53 54 4f 52 45 20   .STAX.D..;STORE
40: 41 54 20 52 42 0d 0a 09 49 4e 58 09 48 09 09 3b   AT RB...INX.H..;
50: 4e 45 58 54 20 53 54 4b 20 42 59 54 0d 0a 09 49   NEXT STK BYT...I
60: 4e 58 09 44 09 09 3b 48 42 59 54 20 52 42 0d 0a   NX.D..;HBYT RB..
70: 09 4d 4f 56 09 41 2c 4d 09 09 3b 47 45 54 20 48   .MOV.A,M..;GET H
### Disk Sector 378 ###
00: 42 59 54 20 46 52 4f 4d 20 53 54 41 43 4b 0d 0a   BYT FROM STACK..
10: 09 53 54 41 58 09 44 09 09 3b 53 54 4f 52 45 20   .STAX.D..;STORE
20: 41 54 20 52 42 0d 0a 09 49 4e 58 09 48 09 09 3b   AT RB...INX.H..;
30: 53 54 4b 20 46 55 4c 4c 59 20 50 4f 50 50 45 44   STK FULLY POPPED
40: 0d 0a 09 53 48 4c 44 09 53 54 4b 50 0d 0a 09 4a   ...SHLD.STKP...J
50: 4d 50 09 53 55 42 46 49 4c 09 09 3b 4e 45 58 54   MP.SUBFIL..;NEXT
60: 20 53 4f 52 54 0d 0a 0d 0a 3b 09 2a 2a 2a 2a 2a    SORT....;.*****
70: 2a 2a 20 46 49 4c 45 20 41 43 43 45 53 53 20 52   ** FILE ACCESS R
### Disk Sector 379 ###
00: 4f 55 54 49 4e 45 53 20 2a 2a 2a 2a 2a 2a 2a 0d   OUTINES *******.
10: 0a 0d 0a 53 45 54 55 50 3a 09 4c 58 49 09 42 2c   ...SETUP:.LXI.B,
20: 52 4e 2a 52 53 09 09 3b 23 20 42 59 54 45 53 20   RN*RS..;# BYTES
30: 54 4f 20 42 45 20 52 45 41 44 0d 0a 09 4c 58 49   TO BE READ...LXI
40: 09 44 2c 49 42 55 46 09 09 3b 4c 4f 41 44 20 41   .D,IBUF..;LOAD A
50: 44 44 52 45 53 53 0d 0a 09 4c 58 49 09 48 2c 46   DDRESS...LXI.H,F
60: 50 42 0d 0a 09 52 45 54 0d 0a 0d 0a 46 49 4e 3a   PB...RET....FIN:
70: 09 4c 58 49 09 48 2c 4d 53 47 30 32 0d 0a 09 43   .LXI.H,MSG02...C
### Disk Sector 380 ###
00: 41 4c 4c 09 4f 53 54 52 0d 0a 09 43 41 4c 4c 09   ALL.OSTR...CALL.
10: 53 45 54 55 50 0d 0a 09 43 41 4c 4c 09 57 52 49   SETUP...CALL.WRI
20: 54 45 0d 0a 09 4c 58 49 09 48 2c 46 50 42 0d 0a   TE...LXI.H,FPB..
30: 09 43 41 4c 4c 09 43 4c 4f 53 45 0d 0a 0d 0a 46   .CALL.CLOSE....F
40: 49 4e 41 4c 3a 09 4c 44 41 09 53 54 4f 52 45 09   INAL:.LDA.STORE.
50: 09 3b 42 41 53 49 43 20 50 4f 4b 45 53 20 23 20   .;BASIC POKES #
60: 46 49 4c 45 53 20 48 45 52 45 0d 0a 09 43 50 49   FILES HERE...CPI
70: 09 32 09 09 3b 54 57 4f 20 54 4f 20 53 4f 52 54   .2..;TWO TO SORT
### Disk Sector 381 ###
00: 3f 0d 0a 09 4a 4e 5a 09 45 58 49 54 09 09 3b 4e   ?...JNZ.EXIT..;N
10: 4f 0d 0a 09 44 43 52 09 41 09 09 3b 4f 4e 45 20   O...DCR.A..;ONE
20: 4c 45 46 54 0d 0a 09 53 54 41 09 53 54 4f 52 45   LEFT...STA.STORE
30: 09 09 3b 46 4f 52 20 4e 45 58 54 20 43 48 45 43   ..;FOR NEXT CHEC
40: 4b 0d 0a 09 4d 56 49 09 41 2c 27 32 27 09 09 3b   K...MVI.A,'2'..;
50: 0d 0a 09 53 54 41 09 46 4c 53 50 45 43 2b 34 09   ...STA.FLSPEC+4.
60: 3b 46 49 4c 45 31 2e 52 4e 44 2d 2d 3e 46 49 4c   ;FILE1.RND-->FIL
70: 45 32 2e 52 4e 44 0d 0a 09 4c 58 49 09 48 2c 4d   E2.RND...LXI.H,M
### Disk Sector 382 ###
00: 53 47 30 33 09 09 3b 41 44 56 49 53 45 20 53 45   SG03..;ADVISE SE
10: 43 4f 4e 44 20 46 49 4c 45 20 53 4f 52 54 0d 0a   COND FILE SORT..
20: 09 43 41 4c 4c 09 4f 53 54 52 0d 0a 09 4a 4d 50   .CALL.OSTR...JMP
30: 09 47 4f 09 09 3b 53 4f 52 54 20 46 49 4c 45 32   .GO..;SORT FILE2
40: 0d 0a 0d 0a 45 58 49 54 3a 09 4c 48 4c 44 09 46   ....EXIT:.LHLD.F
50: 43 53 53 50 09 09 3b 52 45 53 54 4f 52 45 20 46   CSSP..;RESTORE F
60: 43 53 20 53 50 0d 0a 09 4c 48 4c 44 09 46 43 53   CS SP...LHLD.FCS
70: 53 50 0d 0a 09 53 50 48 4c 0d 0a 09 4d 56 49 09   SP...SPHL...MVI.
### Disk Sector 383 ###
00: 41 2c 30 31 09 09 3b 27 41 55 54 4f 27 0d 0a 09   A,01..;'AUTO'...
10: 4a 4d 50 09 30 30 33 33 48 09 09 3b 54 4f 20 42   JMP.0033H..;TO B
20: 41 53 4f 55 54 0d 0a 0d 0a 3b 09 2a 2a 2a 2a 2a   ASOUT....;.*****
30: 2a 2a 09 52 4f 4d 20 4a 55 4d 50 20 54 41 42 4c   **.ROM JUMP TABL
40: 45 53 20 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 4f 4c   ES *******....OL
50: 44 54 41 42 3a 0d 0a 09 4a 4d 50 09 33 33 46 34   DTAB:...JMP.33F4
60: 48 0d 0a 09 4a 4d 50 09 33 30 37 37 48 0d 0a 09   H...JMP.3077H...
70: 4a 4d 50 09 32 36 32 44 48 0d 0a 09 4a 4d 50 09   JMP.262DH...JMP.
### Disk Sector 384 ###
00: 32 44 41 42 48 0d 0a 09 4a 4d 50 09 32 45 41 33   2DABH...JMP.2EA3
10: 48 0d 0a 09 4a 4d 50 09 32 45 43 43 48 0d 0a 09   H...JMP.2ECCH...
20: 4a 4d 50 09 32 46 32 36 48 0d 0a 09 4a 4d 50 09   JMP.2F26H...JMP.
30: 33 35 36 32 48 0d 0a 09 4a 4d 50 09 33 34 34 44   3562H...JMP.344D
40: 48 0d 0a 09 4a 4d 50 09 33 34 35 33 48 0d 0a 0d   H...JMP.3453H...
50: 0a 4c 45 4e 54 41 42 09 45 51 55 09 09 24 2d 4f   .LENTAB.EQU..$-O
60: 4c 44 54 41 42 0d 0a 0d 0a 4e 45 57 54 41 42 3a   LDTAB....NEWTAB:
70: 0d 0a 0d 0a 4f 53 54 52 3a 09 4a 4d 50 09 31 38   ....OSTR:.JMP.18
### Disk Sector 385 ###
00: 32 41 48 0d 0a 50 46 53 50 43 3a 09 4a 4d 50 09   2AH..PFSPC:.JMP.
10: 31 34 41 44 48 0d 0a 45 4d 45 53 53 3a 09 4a 4d   14ADH..EMESS:.JM
20: 50 09 30 41 44 36 48 0d 0a 4f 50 45 4e 3a 09 4a   P.0AD6H..OPEN:.J
30: 4d 50 09 31 31 45 31 48 0d 0a 52 45 41 44 3a 09   MP.11E1H..READ:.
40: 4a 4d 50 09 31 32 44 39 48 0d 0a 57 52 49 54 45   JMP.12D9H..WRITE
50: 3a 09 4a 4d 50 09 31 33 30 32 48 0d 0a 43 4c 4f   :.JMP.1302H..CLO
60: 53 45 3a 09 4a 4d 50 09 31 33 35 43 48 0d 0a 4d   SE:.JMP.135CH..M
70: 55 4c 48 44 3a 09 4a 4d 50 09 31 39 39 38 48 0d   ULHD:.JMP.1998H.
### Disk Sector 386 ###
00: 0a 43 4d 50 48 44 3a 09 4a 4d 50 09 31 38 38 33   .CMPHD:.JMP.1883
10: 48 0d 0a 43 4d 50 44 48 3a 09 4a 4d 50 09 31 38   H..CMPDH:.JMP.18
20: 38 39 48 0d 0a 0d 0a 3b 09 2a 2a 2a 2a 2a 2a 2a   89H....;.*******
30: 09 4d 45 53 53 41 47 45 53 20 2a 2a 2a 2a 2a 2a   .MESSAGES ******
40: 2a 0d 0a 0d 0a 4d 53 47 30 30 3a 09 44 42 09 32   *....MSG00:.DB.2
50: 37 2c 31 31 2c 31 35 2c 36 2c 32 2c 31 32 2c 33   7,11,15,6,2,12,3
60: 2c 30 2c 33 09 3b 52 45 43 4f 47 4e 49 5a 45 20   ,0,3.;RECOGNIZE
70: 54 48 45 20 27 50 4c 4f 54 53 27 3f 0d 0a 09 44   THE 'PLOTS'?...D
### Disk Sector 387 ###
00: 42 09 27 4c 4f 41 44 49 4e 47 20 54 48 45 20 46   B.'LOADING THE F
10: 49 4c 45 20 46 4f 52 20 53 4f 52 54 49 4e 47 2e   ILE FOR SORTING.
20: 27 0d 0a 09 44 42 09 31 33 2c 31 30 2c 31 30 2c   '...DB.13,10,10,
30: 32 33 39 0d 0a 4d 53 47 30 31 3a 09 44 42 09 27   239..MSG01:.DB.'
40: 53 4f 52 54 49 4e 47 20 49 4e 20 50 52 4f 43 45   SORTING IN PROCE
50: 53 53 2e 27 2c 31 33 2c 31 30 2c 31 30 2c 32 33   SS.',13,10,10,23
60: 39 0d 0a 4d 53 47 30 32 3a 09 44 42 09 27 53 4f   9..MSG02:.DB.'SO
70: 52 54 49 4e 47 20 43 4f 4d 50 4c 45 54 45 20 2d   RTING COMPLETE -
### Disk Sector 388 ###
00: 20 53 41 56 49 4e 47 20 53 4f 52 54 45 44 20 46    SAVING SORTED F
10: 49 4c 45 2e 27 0d 0a 09 44 42 09 31 33 2c 31 30   ILE.'...DB.13,10
20: 2c 31 30 2c 32 33 39 0d 0a 4d 53 47 30 33 3a 09   ,10,239..MSG03:.
30: 44 42 09 27 4e 4f 57 20 46 4f 52 20 54 48 45 20   DB.'NOW FOR THE
40: 53 45 43 4f 4e 44 20 46 49 4c 45 2e 27 2c 31 33   SECOND FILE.',13
50: 2c 31 30 2c 31 30 2c 32 33 39 0d 0a 46 4c 53 50   ,10,10,239..FLSP
60: 45 43 3a 09 44 42 09 27 46 49 4c 45 31 2e 52 4e   EC:.DB.'FILE1.RN
70: 44 27 2c 30 0d 0a 0d 0a 3b 09 2a 2a 2a 2a 2a 2a   D',0....;.******
### Disk Sector 389 ###
00: 2a 09 44 41 54 41 20 41 52 45 41 53 20 2a 2a 2a   *.DATA AREAS ***
10: 2a 2a 2a 2a 0d 0a 0d 0a 09 09 4f 52 47 20 28 28   ****......ORG ((
20: 24 2f 32 35 36 29 2b 31 29 2a 32 35 36 09 3b 50   $/256)+1)*256.;P
30: 55 54 20 4f 4e 20 41 4e 20 45 56 45 4e 20 50 41   UT ON AN EVEN PA
40: 47 45 0d 0a 0d 0a 09 44 53 09 36 34 0d 0a 46 49   GE.....DS.64..FI
50: 4c 53 54 4b 3a 09 09 09 09 3b 41 4c 4c 4f 57 53   LSTK:....;ALLOWS
60: 20 33 32 20 4c 45 56 45 4c 53 20 4f 46 20 53 55    32 LEVELS OF SU
70: 42 2d 46 49 4c 45 20 53 54 41 43 4b 0d 0a 54 45   B-FILE STACK..TE
### Disk Sector 390 ###
00: 4d 53 54 52 3a 09 44 53 09 31 31 09 09 3b 55 53   MSTR:.DS.11..;US
10: 45 44 20 46 4f 52 20 53 57 41 50 20 4f 46 20 52   ED FOR SWAP OF R
20: 45 43 4f 52 44 53 20 41 53 20 54 45 4d 50 20 53   ECORDS AS TEMP S
30: 54 4f 52 45 0d 0a 53 54 4b 50 3a 09 44 53 09 32   TORE..STKP:.DS.2
40: 09 09 3b 50 4f 49 4e 54 20 54 4f 20 53 55 42 46   ..;POINT TO SUBF
50: 49 4c 20 53 54 41 43 4b 0d 0a 4c 42 3a 09 44 53   IL STACK..LB:.DS
60: 09 32 09 09 3b 4c 45 46 54 20 42 4c 4f 43 4b 20   .2..;LEFT BLOCK
70: 50 4f 49 4e 54 45 52 0d 0a 52 42 3a 09 44 53 09   POINTER..RB:.DS.
### Disk Sector 391 ###
00: 32 09 09 3b 52 49 47 48 54 20 42 4c 4f 43 4b 20   2..;RIGHT BLOCK
10: 50 4f 49 4e 54 45 52 0d 0a 53 4c 42 3a 09 44 53   POINTER..SLB:.DS
20: 09 32 09 09 3b 53 45 43 4f 4e 44 41 52 59 20 50   .2..;SECONDARY P
30: 4f 49 4e 54 45 52 53 0d 0a 53 52 42 3a 09 44 53   OINTERS..SRB:.DS
40: 09 32 0d 0a 53 4c 41 44 3a 09 44 53 09 32 09 09   .2..SLAD:.DS.2..
50: 3b 41 44 44 52 45 53 53 45 53 20 43 4f 52 52 45   ;ADDRESSES CORRE
60: 53 50 4f 4e 44 49 4e 47 20 54 4f 20 52 45 43 4f   SPONDING TO RECO
70: 52 44 53 0d 0a 53 52 41 44 3a 09 44 53 09 32 09   RDS..SRAD:.DS.2.
### Disk Sector 392 ###
00: 09 3b 50 4f 49 4e 54 45 44 20 42 59 20 53 4c 42   .;POINTED BY SLB
10: 20 41 4e 44 20 53 52 42 0d 0a 46 50 42 3a 09 44    AND SRB..FPB:.D
20: 53 09 33 38 09 09 3b 49 4e 50 55 54 2f 4f 55 54   S.38..;INPUT/OUT
30: 50 55 54 20 46 49 4c 45 20 50 41 52 41 4d 45 54   PUT FILE PARAMET
40: 45 52 20 42 4c 4f 43 4b 0d 0a 46 43 53 53 50 3a   ER BLOCK..FCSSP:
50: 09 44 53 09 32 09 09 3b 53 54 4f 52 45 20 53 50   .DS.2..;STORE SP
60: 20 46 4f 52 20 52 45 54 20 54 4f 20 46 43 53 0d    FOR RET TO FCS.
70: 0a 46 4c 41 47 3a 09 44 53 09 31 09 09 3b 52 45   .FLAG:.DS.1..;RE
### Disk Sector 393 ###
00: 56 45 52 53 41 4c 20 46 4c 41 47 0d 0a 09 44 53   VERSAL FLAG...DS
10: 09 31 32 36 0d 0a 53 54 41 43 4b 3a 09 09 09 09   .126..STACK:....
20: 3b 52 55 4e 4f 46 46 20 53 54 41 43 4b 20 46 4f   ;RUNOFF STACK FO
30: 52 20 54 48 49 53 20 50 52 4f 47 52 41 4d 0d 0a   R THIS PROGRAM..
40: 49 42 55 46 3a 09 44 53 09 52 4e 2a 52 53 09 09   IBUF:.DS.RN*RS..
50: 3b 42 55 46 46 45 52 20 46 4f 52 20 52 4e 20 52   ;BUFFER FOR RN R
60: 45 43 4f 52 44 53 20 45 41 43 48 20 52 53 20 4c   ECORDS EACH RS L
70: 4f 4e 47 0d 0a 0d 0a 0d 0a 3b 09 2a 2a 2a 2a 2a   ONG......;.*****
### Disk Sector 394 ###
00: 2a 2a 09 53 59 53 54 45 4d 09 45 51 55 41 54 45   **.SYSTEM.EQUATE
10: 53 20 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 52 53 09   S *******....RS.
20: 45 51 55 09 31 31 0d 0a 52 4e 09 45 51 55 09 31   EQU.11..RN.EQU.1
30: 31 35 32 0d 0a 53 54 4f 52 45 09 45 51 55 09 38   152..STORE.EQU.8
40: 31 41 37 48 09 3b 53 50 41 52 45 20 42 59 54 45   1A7H.;SPARE BYTE
50: 20 49 4e 20 53 43 52 41 54 43 48 20 50 41 44 20    IN SCRATCH PAD
60: 55 53 45 44 20 54 4f 20 54 45 4c 4c 20 54 48 49   USED TO TELL THI
70: 53 0d 0a 09 09 09 3b 50 52 4f 47 52 41 4d 20 54   S.....;PROGRAM T
### Disk Sector 395 ###
00: 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 46 49 4c   HE NUMBER OF FIL
10: 45 53 20 54 4f 20 42 45 20 53 4f 52 54 45 44 0d   ES TO BE SORTED.
20: 0a 0d 0a 45 4e 44 09 53 54 41 52 54 0d 0a 00 00   ...END.START....
30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................