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 ................