Listing of file='APP7.DOC;01' on disk='vmedia/asmtut_disk4-sector.ccvf'
### Disk Sector 277 ### 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 42 4c 59 20 4c 41 4e 47 55 ;.ASSEMBLY LANGU 50: 41 47 45 20 54 55 54 4f 52 49 41 4c 20 53 45 52 AGE TUTORIAL SER 60: 49 45 53 0d 0a 0d 0a 3b 09 41 70 70 65 6e 64 69 IES....;.Appendi 70: 78 20 20 23 36 20 20 20 20 53 61 6d 70 6c 65 20 x #6 Sample ### Disk Sector 278 ### 00: 50 72 6f 67 72 61 6d 20 23 32 0d 0a 0d 0a 0d 0a Program #2...... 10: 3b 09 42 20 46 20 4d 55 4c 44 4f 57 4e 45 59 09 ;.B F MULDOWNEY. 20: 32 39 20 41 55 47 20 38 30 0d 0a 0d 0a 3b 09 42 29 AUG 80....;.B 30: 41 53 49 43 20 54 45 58 54 20 45 44 49 54 4f 52 ASIC TEXT EDITOR 40: 20 27 42 41 53 54 45 44 27 0d 0a 0d 0a 3b 09 50 'BASTED'....;.P 50: 52 4f 47 52 41 4d 20 54 4f 20 43 4f 4e 56 45 52 ROGRAM TO CONVER 60: 54 20 52 45 4d 20 4f 4e 4c 59 20 42 41 53 20 46 T REM ONLY BAS F 70: 49 4c 45 20 54 4f 20 53 52 43 20 46 49 4c 45 0d ILE TO SRC FILE. ### Disk Sector 279 ### 00: 0a 0d 0a 3b 09 44 45 52 49 56 45 44 20 46 52 4f ...;.DERIVED FRO 10: 4d 20 53 41 4d 50 4c 45 2e 53 52 43 20 4f 4e 20 M SAMPLE.SRC ON 20: 41 53 53 45 4d 42 4c 45 52 20 44 49 53 43 0d 0a ASSEMBLER DISC.. 30: 0d 0a 0d 0a 3b 09 42 41 53 54 45 44 20 41 43 43 ....;.BASTED ACC 40: 45 53 53 45 53 20 41 20 42 41 53 49 43 20 46 49 ESSES A BASIC FI 50: 4c 45 20 4e 4f 4d 49 4e 41 54 45 44 20 46 52 4f LE NOMINATED FRO 60: 4d 20 54 48 45 20 4b 45 59 42 4f 41 52 44 2c 0d M THE KEYBOARD,. 70: 0a 3b 09 53 45 41 52 43 48 45 53 20 45 41 43 48 .;.SEARCHES EACH ### Disk Sector 280 ### 00: 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 53 45 51 LINE NUMBER SEQ 10: 55 45 4e 54 49 41 4c 4c 59 20 46 4f 52 20 41 20 UENTIALLY FOR A 20: 52 45 4d 20 53 54 41 54 45 4d 45 4e 54 2c 0d 0a REM STATEMENT,.. 30: 3b 09 52 45 4a 45 43 54 53 20 54 48 45 20 46 49 ;.REJECTS THE FI 40: 4c 45 20 49 46 20 52 45 4d 20 49 53 20 4e 4f 54 LE IF REM IS NOT 50: 20 54 48 45 20 46 49 52 53 54 20 53 54 41 54 45 THE FIRST STATE 60: 4d 45 4e 54 20 4f 4e 20 41 4e 59 20 4c 49 4e 45 MENT ON ANY LINE 70: 2c 0d 0a 3b 09 45 4c 53 45 20 50 52 4f 43 45 45 ,..;.ELSE PROCEE ### Disk Sector 281 ### 00: 44 53 20 54 4f 20 54 52 41 4e 53 46 45 52 20 54 DS TO TRANSFER T 10: 48 45 20 52 45 53 54 20 4f 46 20 54 48 45 20 4c HE REST OF THE L 20: 49 4e 45 20 54 4f 20 41 4e 20 4f 55 54 50 55 54 INE TO AN OUTPUT 30: 20 53 52 43 20 46 49 4c 45 2c 0d 0a 3b 09 52 45 SRC FILE,..;.RE 40: 50 4c 41 43 49 4e 47 20 42 41 53 49 43 27 53 20 PLACING BASIC'S 50: 4c 49 4e 45 20 54 45 52 4d 49 4e 41 54 4f 52 20 LINE TERMINATOR 60: 28 30 29 20 57 49 54 48 20 20 3c 43 52 3e 3c 4c (0) WITH <CR><L 70: 46 3e 2e 0d 0a 3b 09 4f 4e 20 52 45 41 43 48 49 F>...;.ON REACHI ### Disk Sector 282 ### 00: 4e 47 20 54 48 45 20 45 4e 44 20 4f 46 20 42 41 NG THE END OF BA 10: 53 49 43 27 53 20 53 4f 55 52 43 45 2c 20 3c 30 SIC'S SOURCE, <0 20: 30 3e 20 41 44 44 52 20 4f 46 20 4e 45 58 54 20 0> ADDR OF NEXT 30: 4c 49 4e 45 2c 0d 0a 3b 09 54 48 45 20 4f 55 54 LINE,..;.THE OUT 40: 50 55 54 20 46 49 4c 45 20 49 53 20 43 4c 4f 53 PUT FILE IS CLOS 50: 45 44 20 41 4e 44 20 57 52 49 54 54 45 4e 20 4f ED AND WRITTEN O 60: 55 54 20 41 4e 44 20 43 4f 4e 54 52 4f 4c 20 52 UT AND CONTROL R 70: 45 54 55 52 4e 53 20 54 4f 20 46 43 53 2e 0d 0a ETURNS TO FCS... ### Disk Sector 283 ### 00: 0d 0a 0d 0a 3b 09 53 59 53 54 45 4d 20 41 44 44 ....;.SYSTEM ADD 10: 52 45 53 53 45 53 0d 0a 0d 0a 09 4f 52 47 09 38 RESSES.....ORG.8 20: 32 39 41 48 09 09 3b 4b 45 45 50 20 43 4f 4d 50 29AH..;KEEP COMP 30: 41 54 49 42 4c 45 20 57 49 54 48 20 42 41 53 49 ATIBLE WITH BASI 40: 43 20 4d 45 4e 55 0d 0a 0d 0a 53 54 41 52 54 31 C MENU....START1 50: 3a 09 4c 44 41 09 54 45 53 54 09 09 3b 50 52 4f :.LDA.TEST..;PRO 60: 47 52 41 4d 20 53 54 41 52 54 20 41 44 44 52 45 GRAM START ADDRE 70: 53 53 0d 0a 09 43 50 49 09 4e 45 57 09 09 3b 53 SS...CPI.NEW..;S ### Disk Sector 284 ### 00: 45 45 20 49 46 20 38 2f 37 39 20 4f 52 20 36 2f EE IF 8/79 OR 6/ 10: 37 38 20 53 4f 46 54 57 41 52 45 0d 0a 09 4a 4e 78 SOFTWARE...JN 20: 5a 09 53 54 41 52 54 09 09 3b 49 46 20 4f 4c 44 Z.START..;IF OLD 30: 20 44 4f 20 4e 4f 54 20 4f 56 45 52 4c 41 59 20 DO NOT OVERLAY 40: 56 45 43 54 4f 52 20 54 41 42 4c 45 0d 0a 09 4c VECTOR TABLE...L 50: 58 49 09 48 2c 4f 4c 44 56 45 43 09 0d 0a 09 4c XI.H,OLDVEC....L 60: 58 49 09 44 2c 4e 45 57 56 45 43 0d 0a 09 4c 58 XI.D,NEWVEC...LX 70: 49 09 42 2c 4c 45 4e 54 48 0d 0a 4f 56 45 52 4c I.B,LENTH..OVERL ### Disk Sector 285 ### 00: 41 59 3a 4c 44 41 58 09 44 09 09 3b 4f 56 45 52 AY:LDAX.D..;OVER 10: 4c 41 59 20 4a 55 4d 50 20 54 41 42 4c 45 0d 0a LAY JUMP TABLE.. 20: 09 4d 4f 56 09 4d 2c 41 0d 0a 09 49 4e 58 09 48 .MOV.M,A...INX.H 30: 0d 0a 09 49 4e 58 09 44 0d 0a 09 44 43 58 09 42 ...INX.D...DCX.B 40: 0d 0a 09 4d 4f 56 09 41 2c 42 0d 0a 09 4f 52 41 ...MOV.A,B...ORA 50: 09 43 0d 0a 09 4a 4e 5a 09 4f 56 45 52 4c 41 59 .C...JNZ.OVERLAY 60: 0d 0a 09 4a 4d 50 09 53 54 41 52 54 09 09 3b 45 ...JMP.START..;E 70: 4e 54 45 52 20 50 52 4f 47 52 41 4d 20 50 52 4f NTER PROGRAM PRO ### Disk Sector 286 ### 00: 50 45 52 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d 0a 3b 09 PER..;..;..;..;. 10: 56 45 43 54 4f 52 20 54 41 42 4c 45 0d 0a 3b 0d VECTOR TABLE..;. 20: 0a 3b 0d 0a 0d 0a 4f 4c 44 56 45 43 09 45 51 55 .;....OLDVEC.EQU 30: 09 24 0d 0a 0d 0a 43 4f 3a 09 4a 4d 50 09 33 33 .$....CO:.JMP.33 40: 39 32 48 09 09 3b 53 45 4e 44 20 43 48 41 52 41 92H..;SEND CHARA 50: 43 54 45 52 20 54 4f 20 53 43 52 45 45 4e 0d 0a CTER TO SCREEN.. 60: 4f 53 3a 09 4a 4d 50 09 33 33 46 34 48 09 09 3b OS:.JMP.33F4H..; 70: 53 45 4e 44 20 53 54 52 49 4e 47 20 45 4e 44 49 SEND STRING ENDI ### Disk Sector 287 ### 00: 4e 47 20 57 49 54 48 20 32 33 39 0d 0a 45 4d 45 NG WITH 239..EME 10: 53 53 3a 09 4a 4d 50 09 32 36 32 44 48 09 09 3b SS:.JMP.262DH..; 20: 46 43 53 20 45 52 52 4f 52 20 53 55 42 52 4f 55 FCS ERROR SUBROU 30: 54 49 4e 45 0d 0a 50 46 53 50 43 3a 09 4a 4d 50 TINE..PFSPC:.JMP 40: 09 33 30 37 37 48 09 09 3b 50 41 52 53 45 20 46 .3077H..;PARSE F 50: 49 4c 45 20 53 50 45 43 0d 0a 52 45 53 45 54 3a ILE SPEC..RESET: 60: 09 4a 4d 50 09 32 36 41 35 48 09 09 3b 52 45 53 .JMP.26A5H..;RES 70: 45 54 20 44 49 53 4b 0d 0a 4f 50 45 4e 3a 09 4a ET DISK..OPEN:.J ### Disk Sector 288 ### 00: 4d 50 09 32 44 41 42 48 09 09 3b 4f 50 45 4e 53 MP.2DABH..;OPENS 10: 20 41 20 46 49 4c 45 0d 0a 52 57 53 45 51 49 3a A FILE..RWSEQI: 20: 09 4a 4d 50 09 33 30 43 36 48 09 09 3b 27 52 45 .JMP.30C6H..;'RE 30: 57 49 4e 44 53 27 20 41 20 53 45 51 55 45 4e 54 WINDS' A SEQUENT 40: 49 41 4c 20 46 49 4c 45 0d 0a 49 4e 53 45 51 4f IAL FILE..INSEQO 50: 3a 09 4a 4d 50 09 33 30 45 37 48 09 09 3b 49 4e :.JMP.30E7H..;IN 60: 49 54 49 41 4c 49 5a 45 53 20 41 20 53 45 51 55 ITIALIZES A SEQU 70: 45 4e 54 49 41 4c 20 4f 55 54 50 55 54 20 46 49 ENTIAL OUTPUT FI ### Disk Sector 289 ### 00: 4c 45 0d 0a 43 4c 53 45 51 4f 3a 09 4a 4d 50 09 LE..CLSEQO:.JMP. 10: 33 31 33 36 48 09 09 3b 43 4c 4f 53 45 53 20 41 3136H..;CLOSES A 20: 20 4e 45 57 4c 59 20 43 52 45 41 54 45 44 20 53 NEWLY CREATED S 30: 45 51 55 45 4e 54 49 41 4c 20 46 49 4c 45 0d 0a EQUENTIAL FILE.. 40: 47 54 42 59 54 3a 09 4a 4d 50 09 33 32 32 43 48 GTBYT:.JMP.322CH 50: 09 09 3b 47 45 54 53 20 41 20 53 49 4e 47 4c 45 ..;GETS A SINGLE 60: 20 42 59 54 45 20 46 52 4f 4d 20 46 49 4c 45 0d BYTE FROM FILE. 70: 0a 50 54 42 59 54 3a 09 4a 4d 50 09 33 32 34 41 .PTBYT:.JMP.324A ### Disk Sector 290 ### 00: 48 09 09 3b 50 55 54 53 20 41 20 42 59 54 45 20 H..;PUTS A BYTE 10: 4f 4e 20 41 20 46 49 4c 45 0d 0a 41 44 48 4c 41 ON A FILE..ADHLA 20: 3a 09 4a 4d 50 09 33 35 31 38 48 09 09 3b 41 44 :.JMP.3518H..;AD 30: 44 53 20 41 20 54 4f 20 48 4c 20 57 49 54 48 20 DS A TO HL WITH 40: 43 41 52 52 59 53 0d 0a 0d 0a 4c 45 4e 54 48 09 CARRYS....LENTH. 50: 45 51 55 09 24 2d 4f 4c 44 56 45 43 0d 0a 3b 0d EQU.$-OLDVEC..;. 60: 0a 3b 0d 0a 3b 09 52 41 4d 20 4c 4f 43 0d 0a 3b .;..;.RAM LOC..; 70: 0d 0a 3b 0d 0a 4e 45 57 09 45 51 55 09 31 46 48 ..;..NEW.EQU.1FH ### Disk Sector 291 ### 00: 09 09 3b 56 41 4c 55 45 20 4f 46 20 42 59 54 45 ..;VALUE OF BYTE 10: 20 38 2f 37 39 20 53 4f 46 54 57 41 52 45 0d 0a 8/79 SOFTWARE.. 20: 54 45 53 54 09 45 51 55 09 30 39 32 41 48 09 09 TEST.EQU.092AH.. 30: 3b 4c 4f 43 41 54 49 4f 4e 20 4f 46 20 41 20 42 ;LOCATION OF A B 40: 59 54 45 20 54 48 41 54 20 49 53 20 44 49 46 46 YTE THAT IS DIFF 50: 45 52 45 4e 54 20 0d 0a 49 4e 50 43 52 54 09 45 ERENT ..INPCRT.E 60: 51 55 09 38 31 43 35 48 09 09 3b 4a 55 4d 50 20 QU.81C5H..;JUMP 70: 56 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 33 31 VECTOR NUMBER 31 ### Disk Sector 292 ### 00: 0d 0a 4b 42 44 46 4c 09 45 51 55 09 38 31 44 46 ..KBDFL.EQU.81DF 10: 48 09 09 3b 48 4f 4c 44 53 20 4e 55 4d 42 45 52 H..;HOLDS NUMBER 20: 20 4f 46 20 4a 55 4d 50 20 56 45 43 54 4f 52 0d OF JUMP VECTOR. 30: 0a 0d 0a 3b 0d 0a 3b 09 38 2f 37 39 20 53 4f 46 ...;..;.8/79 SOF 40: 54 57 41 52 45 20 56 45 43 54 4f 52 20 54 41 42 TWARE VECTOR TAB 50: 4c 45 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d 0a 4e 45 57 LE..;..;..;..NEW 60: 56 45 43 09 45 51 55 09 24 0d 0a 0d 0a 09 4a 4d VEC.EQU.$.....JM 70: 50 09 31 37 43 38 48 0d 0a 09 4a 4d 50 09 31 38 P.17C8H...JMP.18 ### Disk Sector 293 ### 00: 32 41 48 0d 0a 09 4a 4d 50 09 30 41 44 36 48 0d 2AH...JMP.0AD6H. 10: 0a 09 4a 4d 50 09 31 34 41 44 48 0d 0a 09 4a 4d ..JMP.14ADH...JM 20: 50 09 30 42 34 38 48 0d 0a 09 4a 4d 50 09 31 31 P.0B48H...JMP.11 30: 45 31 48 0d 0a 09 4a 4d 50 09 31 34 46 43 48 0d E1H...JMP.14FCH. 40: 0a 09 4a 4d 50 09 31 35 31 44 48 0d 0a 09 4a 4d ..JMP.151DH...JM 50: 50 09 31 35 36 43 48 0d 0a 09 4a 4d 50 09 31 36 P.156CH...JMP.16 60: 36 32 48 0d 0a 09 4a 4d 50 09 31 36 38 30 48 0d 62H...JMP.1680H. 70: 0a 09 4a 4d 50 09 31 39 34 45 48 0d 0a 3b 0d 0a ..JMP.194EH..;.. ### Disk Sector 294 ### 00: 3b 0d 0a 3b 09 46 43 42 20 52 45 46 45 52 45 4e ;..;.FCB REFEREN 10: 43 45 53 0d 0a 3b 0d 0a 3b 0d 0a 0d 0a 46 54 59 CES..;..;....FTY 20: 50 09 45 51 55 09 38 0d 0a 46 4c 41 44 09 45 51 P.EQU.8..FLAD.EQ 30: 55 09 31 37 0d 0a 46 42 55 46 09 45 51 55 09 33 U.17..FBUF.EQU.3 40: 32 0d 0a 46 58 42 43 09 45 51 55 09 33 34 0d 0a 2..FXBC.EQU.34.. 50: 0d 0a 3b 09 53 50 45 43 49 41 4c 20 41 53 43 49 ..;.SPECIAL ASCI 60: 49 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 I CONTROL CHARAC 70: 54 45 52 53 0d 0a 0d 0a 42 53 09 45 51 55 09 32 TERS....BS.EQU.2 ### Disk Sector 295 ### 00: 36 09 09 3b 42 41 43 4b 20 53 50 41 43 45 0d 0a 6..;BACK SPACE.. 10: 45 53 43 09 45 51 55 09 32 37 09 09 3b 45 53 43 ESC.EQU.27..;ESC 20: 20 4b 45 59 0d 0a 53 50 43 09 45 51 55 09 33 32 KEY..SPC.EQU.32 30: 09 09 3b 53 50 41 43 45 20 43 48 52 0d 0a 52 45 ..;SPACE CHR..RE 40: 4d 09 45 51 55 09 31 34 32 09 09 3b 52 45 4d 20 M.EQU.142..;REM 50: 54 4f 4b 45 4e 0d 0a 43 52 09 45 51 55 09 31 33 TOKEN..CR.EQU.13 60: 09 09 3b 43 52 20 52 45 54 55 52 4e 0d 0a 4c 46 ..;CR RETURN..LF 70: 09 45 51 55 09 31 30 09 09 3b 4c 49 4e 45 20 46 .EQU.10..;LINE F ### Disk Sector 296 ### 00: 45 45 44 0d 0a 0d 0a 3b 09 53 54 41 52 54 20 4f EED....;.START O 10: 46 20 50 52 4f 47 52 41 4d 20 50 52 4f 50 45 52 F PROGRAM PROPER 20: 0d 0a 0d 0a 53 54 41 52 54 3a 09 4c 58 49 09 48 ....START:.LXI.H 30: 2c 30 09 09 3b 20 53 41 56 45 20 46 43 53 20 53 ,0..; SAVE FCS S 40: 54 41 43 4b 20 50 4f 49 4e 54 45 52 0d 0a 09 44 TACK POINTER...D 50: 41 44 09 53 50 0d 0a 09 53 48 4c 44 09 46 43 53 AD.SP...SHLD.FCS 60: 53 50 0d 0a 09 4c 58 49 09 53 50 2c 53 54 41 43 SP...LXI.SP,STAC 70: 4b 09 3b 53 45 54 55 50 20 52 55 4e 4f 46 46 20 K.;SETUP RUNOFF ### Disk Sector 297 ### 00: 53 54 41 43 4b 0d 0a 0d 0a 09 4d 56 49 09 41 2c STACK.....MVI.A, 10: 33 31 09 09 3b 53 45 54 20 55 50 20 56 45 43 54 31..;SET UP VECT 20: 4f 52 0d 0a 09 53 54 41 09 4b 42 44 46 4c 09 09 OR...STA.KBDFL.. 30: 3b 54 4f 20 49 4e 50 43 52 54 0d 0a 09 4d 56 49 ;TO INPCRT...MVI 40: 09 41 2c 30 43 33 48 09 09 3b 4c 49 54 45 52 41 .A,0C3H..;LITERA 50: 4c 4c 59 20 4a 4d 50 0d 0a 09 53 54 41 09 49 4e LLY JMP...STA.IN 60: 50 43 52 54 0d 0a 09 4c 58 49 09 48 2c 43 48 52 PCRT...LXI.H,CHR 70: 49 4e 54 09 3b 54 48 55 53 0d 0a 09 09 09 09 3b INT.;THUS......; ### Disk Sector 298 ### 00: 49 4e 50 43 52 54 3a 09 4a 4d 50 09 43 48 52 49 INPCRT:.JMP.CHRI 10: 4e 54 0d 0a 09 53 48 4c 44 09 49 4e 50 43 52 54 NT...SHLD.INPCRT 20: 2b 31 0d 0a 0d 0a 09 4c 58 49 09 48 2c 49 4e 42 +1.....LXI.H,INB 30: 55 46 09 09 3b 50 4f 49 4e 54 20 54 4f 20 43 4f UF..;POINT TO CO 40: 55 4e 54 45 52 0d 0a 09 4d 56 49 09 4d 2c 30 09 UNTER...MVI.M,0. 50: 09 3b 43 4c 45 41 52 20 43 4f 55 4e 54 45 52 0d .;CLEAR COUNTER. 60: 0a 0d 0a 09 4c 58 49 09 48 2c 4d 53 47 30 30 09 ....LXI.H,MSG00. 70: 09 3b 20 50 52 49 4e 54 20 53 54 41 52 54 55 50 .; PRINT STARTUP ### Disk Sector 299 ### 00: 20 4d 45 53 53 41 47 45 0d 0a 09 43 41 4c 4c 09 MESSAGE...CALL. 10: 4f 53 0d 0a 09 43 41 4c 4c 09 53 45 54 55 50 09 OS...CALL.SETUP. 20: 09 3b 20 49 4e 49 54 49 41 4c 49 5a 45 20 46 49 .; INITIALIZE FI 30: 4c 45 53 0d 0a 0d 0a 4c 4f 4f 50 3a 09 4c 58 49 LES....LOOP:.LXI 40: 09 48 2c 46 50 42 31 0d 0a 09 43 41 4c 4c 09 47 .H,FPB1...CALL.G 50: 54 42 59 54 09 09 3b 46 49 52 53 54 20 4c 49 4e TBYT..;FIRST LIN 60: 45 20 42 59 54 45 20 3d 20 4c 53 42 20 41 44 44 E BYTE = LSB ADD 70: 52 20 4e 45 58 54 20 4c 49 4e 45 0d 0a 09 4a 43 R NEXT LINE...JC ### Disk Sector 300 ### 00: 09 4c 4f 4f 50 45 31 0d 0a 09 4c 58 49 09 48 2c .LOOPE1...LXI.H, 10: 46 50 42 31 0d 0a 09 43 41 4c 4c 09 47 54 42 59 FPB1...CALL.GTBY 20: 54 09 09 3b 53 45 43 4f 4e 44 20 4c 49 4e 45 20 T..;SECOND LINE 30: 42 59 54 45 20 3d 20 4d 53 42 20 41 44 44 52 20 BYTE = MSB ADDR 40: 4e 45 58 54 20 4c 49 4e 45 0d 0a 09 4a 43 09 4c NEXT LINE...JC.L 50: 4f 4f 50 45 31 0d 0a 09 43 50 49 09 30 09 09 3b OOPE1...CPI.0..; 60: 5a 45 52 4f 20 48 45 52 45 20 49 4e 44 49 43 41 ZERO HERE INDICA 70: 54 45 53 20 45 4e 44 20 4f 46 20 42 41 53 20 46 TES END OF BAS F ### Disk Sector 301 ### 00: 49 4c 45 0d 0a 09 4a 5a 09 45 4f 46 0d 0a 09 4c ILE...JZ.EOF...L 10: 58 49 09 48 2c 46 50 42 31 0d 0a 09 43 41 4c 4c XI.H,FPB1...CALL 20: 09 47 54 42 59 54 09 09 3b 54 48 49 52 44 20 4c .GTBYT..;THIRD L 30: 49 4e 45 20 42 59 54 45 20 3d 20 4c 53 42 20 4f INE BYTE = LSB O 40: 46 20 4c 49 4e 45 20 4e 55 4d 42 45 52 0d 0a 09 F LINE NUMBER... 50: 4a 43 09 4c 4f 4f 50 45 31 0d 0a 09 4c 58 49 09 JC.LOOPE1...LXI. 60: 48 2c 46 50 42 31 0d 0a 09 43 41 4c 4c 09 47 54 H,FPB1...CALL.GT 70: 42 59 54 09 09 3b 46 4f 55 52 54 48 20 4c 49 4e BYT..;FOURTH LIN ### Disk Sector 302 ### 00: 45 20 42 59 54 45 20 3d 20 4d 53 42 20 4f 46 20 E BYTE = MSB OF 10: 4c 49 4e 45 20 4e 55 4d 42 45 52 0d 0a 09 4a 43 LINE NUMBER...JC 20: 09 4c 4f 4f 50 45 31 0d 0a 09 4c 58 49 09 48 2c .LOOPE1...LXI.H, 30: 46 50 42 31 0d 0a 09 43 41 4c 4c 09 47 54 42 59 FPB1...CALL.GTBY 40: 54 09 09 3b 46 49 46 54 48 20 4c 49 4e 45 20 42 T..;FIFTH LINE B 50: 59 54 45 20 3d 20 53 54 41 52 54 20 4f 46 20 4c YTE = START OF L 60: 49 4e 45 20 4c 49 53 54 49 4e 47 0d 0a 09 4a 43 INE LISTING...JC 70: 09 4c 4f 4f 50 45 31 0d 0a 09 43 50 49 09 52 45 .LOOPE1...CPI.RE ### Disk Sector 303 ### 00: 4d 09 09 3b 41 4e 44 20 53 48 4f 55 4c 44 20 42 M..;AND SHOULD B 10: 45 20 52 45 4d 0d 0a 09 4a 4e 5a 09 53 45 52 52 E REM...JNZ.SERR 20: 4f 52 09 09 3b 49 46 20 4e 4f 54 20 52 45 4d 20 OR..;IF NOT REM 30: 54 48 45 4e 20 42 41 49 4c 4f 55 54 0d 0a 0d 0a THEN BAILOUT.... 40: 54 45 58 54 3a 09 4c 58 49 09 48 2c 46 50 42 31 TEXT:.LXI.H,FPB1 50: 0d 0a 09 43 41 4c 4c 09 47 54 42 59 54 09 09 3b ...CALL.GTBYT..; 60: 46 49 52 53 54 20 54 45 58 54 20 42 59 54 45 20 FIRST TEXT BYTE 70: 42 55 54 20 43 4f 55 4c 44 20 42 45 20 41 20 53 BUT COULD BE A S ### Disk Sector 304 ### 00: 50 43 0d 0a 09 4a 43 09 4c 4f 4f 50 45 31 0d 0a PC...JC.LOOPE1.. 10: 09 43 50 49 09 53 50 43 09 09 3b 49 46 20 54 4f .CPI.SPC..;IF TO 20: 4b 45 4e 20 49 4e 43 4c 55 44 45 53 20 53 50 43 KEN INCLUDES SPC 30: 20 54 48 45 4e 20 57 49 50 45 20 49 54 0d 0a 09 THEN WIPE IT... 40: 4a 4e 5a 09 54 45 58 54 33 0d 0a 0d 0a 54 45 58 JNZ.TEXT3....TEX 50: 54 32 3a 09 4c 58 49 09 48 2c 46 50 42 31 0d 0a T2:.LXI.H,FPB1.. 60: 09 43 41 4c 4c 09 47 54 42 59 54 09 09 3b 54 45 .CALL.GTBYT..;TE 70: 58 54 20 42 59 54 45 20 46 4f 52 20 54 52 41 4e XT BYTE FOR TRAN ### Disk Sector 305 ### 00: 53 46 45 52 0d 0a 09 4a 43 09 4c 4f 4f 50 45 31 SFER...JC.LOOPE1 10: 0d 0a 09 43 50 49 09 30 09 09 3b 5a 45 52 4f 20 ...CPI.0..;ZERO 20: 49 4e 44 49 43 41 54 45 53 20 45 4e 44 20 4f 46 INDICATES END OF 30: 20 4c 49 4e 45 0d 0a 09 4a 5a 09 45 4f 4c 09 09 LINE...JZ.EOL.. 40: 3b 49 4e 53 45 52 54 20 53 52 43 20 54 45 52 4d ;INSERT SRC TERM 50: 49 4e 41 54 4f 52 53 20 49 4e 20 50 4c 41 43 45 INATORS IN PLACE 60: 20 4f 46 20 42 41 53 20 30 0d 0a 0d 0a 54 45 58 OF BAS 0....TEX 70: 54 33 3a 09 4c 58 49 09 48 2c 46 50 42 32 0d 0a T3:.LXI.H,FPB2.. ### Disk Sector 306 ### 00: 09 43 41 4c 4c 09 50 54 42 59 54 09 09 3b 53 54 .CALL.PTBYT..;ST 10: 4f 52 45 20 54 45 58 54 20 43 48 52 0d 0a 09 4a ORE TEXT CHR...J 20: 4e 43 09 54 45 58 54 32 0d 0a 4c 4f 4f 50 45 32 NC.TEXT2..LOOPE2 30: 3a 09 4a 4d 50 09 45 52 52 4f 52 0d 0a 4c 4f 4f :.JMP.ERROR..LOO 40: 50 45 31 3a 09 4a 5a 09 45 4f 46 09 09 3b 20 41 PE1:.JZ.EOF..; A 50: 54 20 45 4e 44 20 4f 46 20 46 49 4c 45 20 2d 20 T END OF FILE - 60: 43 4c 4f 53 45 20 4f 55 54 50 55 54 0d 0a 09 4a CLOSE OUTPUT...J 70: 4d 50 09 45 52 52 4f 52 0d 0a 0d 0a 45 4f 4c 3a MP.ERROR....EOL: ### Disk Sector 307 ### 00: 09 4d 56 49 09 41 2c 43 52 09 09 3b 49 4e 53 45 .MVI.A,CR..;INSE 10: 52 54 20 43 52 2f 4c 46 20 41 54 20 45 4e 44 20 RT CR/LF AT END 20: 4f 46 20 4c 49 4e 45 0d 0a 09 4c 58 49 09 48 2c OF LINE...LXI.H, 30: 46 50 42 32 0d 0a 09 43 41 4c 4c 09 50 54 42 59 FPB2...CALL.PTBY 40: 54 0d 0a 09 4a 43 09 4c 4f 4f 50 45 31 0d 0a 09 T...JC.LOOPE1... 50: 4d 56 49 09 41 2c 4c 46 0d 0a 09 4c 58 49 09 48 MVI.A,LF...LXI.H 60: 2c 46 50 42 32 0d 0a 09 43 41 4c 4c 09 50 54 42 ,FPB2...CALL.PTB 70: 59 54 0d 0a 09 4a 43 09 4c 4f 4f 50 45 31 0d 0a YT...JC.LOOPE1.. ### Disk Sector 308 ### 00: 09 4a 4d 50 09 4c 4f 4f 50 09 09 3b 53 54 41 52 .JMP.LOOP..;STAR 10: 54 20 4f 4e 20 41 4e 4f 54 48 45 52 20 4c 49 4e T ON ANOTHER LIN 20: 45 0d 0a 0d 0a 53 45 54 55 50 3a 09 4c 58 49 09 E....SETUP:.LXI. 30: 48 2c 4d 53 47 30 31 09 09 3b 20 44 49 53 50 4c H,MSG01..; DISPL 40: 41 59 20 50 52 4f 4d 50 54 0d 0a 09 43 41 4c 4c AY PROMPT...CALL 50: 09 4f 53 0d 0a 09 43 41 4c 4c 09 52 45 53 45 54 .OS...CALL.RESET 60: 09 09 3b 20 52 45 53 45 54 20 44 49 53 4b 20 49 ..; RESET DISK I 70: 46 20 45 52 52 4f 52 0d 0a 09 4c 58 49 09 48 2c F ERROR...LXI.H, ### Disk Sector 309 ### 00: 42 55 46 46 45 52 09 3b 20 50 4f 49 4e 54 20 41 BUFFER.; POINT A 10: 54 20 42 55 46 46 45 52 0d 0a 4c 30 32 3a 09 43 T BUFFER..L02:.C 20: 41 4c 4c 09 43 49 09 09 3b 20 52 45 41 44 20 46 ALL.CI..; READ F 30: 52 4f 4d 20 43 4f 4e 53 4f 4c 45 0d 0a 09 43 50 ROM CONSOLE...CP 40: 49 09 43 52 09 09 3b 20 49 53 20 49 54 20 43 52 I.CR..; IS IT CR 50: 20 3f 0d 0a 09 4a 5a 09 58 30 32 09 09 3b 20 59 ?...JZ.X02..; Y 60: 45 53 2c 20 47 4f 20 50 52 4f 43 45 53 53 20 43 ES, GO PROCESS C 70: 52 0d 0a 09 43 50 49 09 42 53 09 09 3b 20 49 53 R...CPI.BS..; IS ### Disk Sector 310 ### 00: 20 49 54 20 42 53 20 3f 0d 0a 09 4a 5a 09 47 30 IT BS ?...JZ.G0 10: 32 31 09 09 3b 20 59 45 53 2c 20 47 4f 20 50 52 21..; YES, GO PR 20: 4f 43 45 53 53 20 42 41 43 4b 53 50 41 43 45 0d OCESS BACKSPACE. 30: 0a 09 4d 4f 56 09 4d 2c 41 09 09 3b 20 53 54 4f ..MOV.M,A..; STO 40: 52 45 20 43 48 41 52 41 43 54 45 52 0d 0a 09 49 RE CHARACTER...I 50: 4e 58 09 48 09 09 3b 20 42 55 4d 50 20 50 4f 49 NX.H..; BUMP POI 60: 4e 54 45 52 0d 0a 09 4a 4d 50 09 4c 30 32 09 09 NTER...JMP.L02.. 70: 3b 20 43 4f 4e 54 49 4e 55 45 20 4c 4f 4f 50 0d ; CONTINUE LOOP. ### Disk Sector 311 ### 00: 0a 47 30 32 31 3a 09 4d 4f 56 09 41 2c 4c 09 09 .G021:.MOV.A,L.. 10: 3b 20 54 45 53 54 20 4c 4f 20 42 59 54 45 20 4f ; TEST LO BYTE O 20: 46 20 50 4f 49 4e 54 45 52 0d 0a 09 4f 52 41 09 F POINTER...ORA. 30: 41 09 09 3b 20 49 46 20 5a 45 52 4f 20 54 48 45 A..; IF ZERO THE 40: 4e 20 52 45 53 54 41 52 54 20 52 45 41 44 0d 0a N RESTART READ.. 50: 09 4a 5a 09 53 45 54 55 50 0d 0a 09 4d 56 49 09 .JZ.SETUP...MVI. 60: 41 2c 27 20 27 09 09 3b 20 45 4c 53 45 20 53 50 A,' '..; ELSE SP 70: 41 43 45 20 4f 56 45 52 0d 0a 09 43 41 4c 4c 09 ACE OVER...CALL. ### Disk Sector 312 ### 00: 43 4f 0d 0a 09 4d 56 49 09 41 2c 42 53 09 09 3b CO...MVI.A,BS..; 10: 20 54 59 50 45 44 20 44 41 54 41 0d 0a 09 43 41 TYPED DATA...CA 20: 4c 4c 09 43 4f 0d 0a 09 44 43 58 09 48 0d 0a 09 LL.CO...DCX.H... 30: 4a 4d 50 09 4c 30 32 09 09 3b 20 43 4f 4e 54 49 JMP.L02..; CONTI 40: 4e 55 45 20 4c 4f 4f 50 0d 0a 0d 0a 58 30 32 3a NUE LOOP....X02: 50: 09 4d 56 49 09 4d 2c 30 09 09 3b 20 49 4e 53 45 .MVI.M,0..; INSE 60: 52 54 20 54 45 52 4d 49 4e 41 54 4f 52 0d 0a 09 RT TERMINATOR... 70: 4d 56 49 09 41 2c 43 52 09 09 3b 20 50 52 49 4e MVI.A,CR..; PRIN ### Disk Sector 313 ### 00: 54 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 T CARRIAGE RETUR 10: 4e 0d 0a 09 43 41 4c 4c 09 43 4f 0d 0a 09 4d 56 N...CALL.CO...MV 20: 49 09 41 2c 4c 46 09 09 3b 20 4c 49 4e 45 46 45 I.A,LF..; LINEFE 30: 45 44 20 53 45 51 55 45 4e 43 45 0d 0a 09 43 41 ED SEQUENCE...CA 40: 4c 4c 09 43 4f 0d 0a 0d 0a 09 4c 58 49 09 48 2c LL.CO.....LXI.H, 50: 42 55 46 46 45 52 09 3b 20 50 4f 49 4e 54 20 41 BUFFER.; POINT A 60: 54 20 42 55 46 46 45 52 0d 0a 09 4c 58 49 09 44 T BUFFER...LXI.D 70: 2c 46 50 42 31 09 09 3b 20 50 4f 49 4e 54 20 41 ,FPB1..; POINT A ### Disk Sector 314 ### 00: 54 20 49 4e 50 55 54 20 46 50 42 0d 0a 09 4c 58 T INPUT FPB...LX 10: 49 09 42 2c 44 45 46 41 55 4c 54 09 3b 20 50 4f I.B,DEFAULT.; PO 20: 49 4e 54 20 41 54 20 44 45 46 41 55 4c 54 20 54 INT AT DEFAULT T 30: 59 50 45 0d 0a 09 43 41 4c 4c 09 50 46 53 50 43 YPE...CALL.PFSPC 40: 09 09 3b 20 50 41 52 53 45 20 46 49 4c 45 20 53 ..; PARSE FILE S 50: 50 45 43 0d 0a 09 4a 43 09 45 30 32 09 09 3b 20 PEC...JC.E02..; 60: 49 46 20 43 41 52 52 59 20 54 48 45 4e 20 45 52 IF CARRY THEN ER 70: 52 4f 52 0d 0a 09 4d 4f 56 09 41 2c 4d 09 09 3b ROR...MOV.A,M..; ### Disk Sector 315 ### 00: 20 54 45 53 54 20 46 4f 52 20 45 4e 44 0d 0a 09 TEST FOR END... 10: 4d 56 49 09 42 2c 39 09 09 3b 20 53 45 54 55 50 MVI.B,9..; SETUP 20: 20 53 59 4e 54 41 58 20 45 52 52 4f 52 0d 0a 09 SYNTAX ERROR... 30: 4f 52 41 09 41 0d 0a 09 4a 4e 5a 09 45 30 32 0d ORA.A...JNZ.E02. 40: 0a 0d 0a 09 4c 58 49 09 48 2c 46 50 42 31 09 09 ....LXI.H,FPB1.. 50: 3b 20 50 4f 49 4e 54 20 41 54 20 49 4e 50 55 54 ; POINT AT INPUT 60: 20 46 50 42 0d 0a 09 4d 56 49 09 41 2c 30 09 09 FPB...MVI.A,0.. 70: 3b 20 53 45 54 55 50 20 41 53 20 4f 4c 44 20 46 ; SETUP AS OLD F ### Disk Sector 316 ### 00: 49 4c 45 0d 0a 09 4d 4f 56 09 4d 2c 41 0d 0a 09 ILE...MOV.M,A... 10: 43 41 4c 4c 09 4f 50 45 4e 09 09 3b 20 4f 50 45 CALL.OPEN..; OPE 20: 4e 20 54 48 45 20 46 49 4c 45 0d 0a 09 4a 43 09 N THE FILE...JC. 30: 45 30 32 0d 0a 0d 0a 09 4c 58 49 09 48 2c 46 50 E02.....LXI.H,FP 40: 42 31 09 09 3b 20 43 4f 50 59 20 46 50 42 31 20 B1..; COPY FPB1 50: 54 4f 20 46 50 42 32 0d 0a 09 4c 58 49 09 44 2c TO FPB2...LXI.D, 60: 46 50 42 32 09 09 0d 0a 09 4d 56 49 09 42 2c 33 FPB2.....MVI.B,3 70: 38 09 09 0d 0a 4c 30 33 3a 09 4d 4f 56 09 41 2c 8....L03:.MOV.A, ### Disk Sector 317 ### 00: 4d 09 09 0d 0a 09 53 54 41 58 09 44 09 09 0d 0a M.....STAX.D.... 10: 09 49 4e 58 09 48 0d 0a 09 49 4e 58 09 44 0d 0a .INX.H...INX.D.. 20: 09 44 43 52 09 42 0d 0a 09 4a 4e 5a 09 4c 30 33 .DCR.B...JNZ.L03 30: 0d 0a 09 4c 58 49 09 48 2c 46 50 42 32 2b 46 54 ...LXI.H,FPB2+FT 40: 59 50 09 3b 20 50 4f 49 4e 54 20 41 54 20 4f 55 YP.; POINT AT OU 50: 54 50 55 54 20 54 59 50 45 0d 0a 09 4d 56 49 09 TPUT TYPE...MVI. 60: 4d 2c 27 53 27 09 09 3b 20 53 54 4f 52 45 20 27 M,'S'..; STORE ' 70: 53 27 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 56 49 S'...INX.H...MVI ### Disk Sector 318 ### 00: 09 4d 2c 27 52 27 09 09 3b 20 53 54 4f 52 45 20 .M,'R'..; STORE 10: 27 52 27 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 56 'R'...INX.H...MV 20: 49 09 4d 2c 27 43 27 09 09 3b 20 53 54 4f 52 45 I.M,'C'..; STORE 30: 20 27 43 27 0d 0a 09 4c 58 49 09 48 2c 46 50 42 'C'...LXI.H,FPB 40: 32 2b 46 4c 41 44 09 3b 50 4f 49 4e 54 20 41 54 2+FLAD.;POINT AT 50: 20 4c 4f 41 44 20 41 44 44 52 45 53 53 20 46 4f LOAD ADDRESS FO 60: 52 20 4f 55 54 50 55 54 0d 0a 09 4d 56 49 09 4d R OUTPUT...MVI.M 70: 2c 30 09 09 3b 41 4e 44 20 4c 4f 41 44 20 30 30 ,0..;AND LOAD 00 ### Disk Sector 319 ### 00: 30 30 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 56 49 00...INX.H...MVI 10: 09 4d 2c 30 0d 0a 09 49 4e 58 09 48 09 09 3b 50 .M,0...INX.H..;P 20: 4f 49 4e 54 20 41 54 20 53 54 41 52 54 20 41 44 OINT AT START AD 30: 44 52 45 53 53 20 46 4f 52 20 4f 55 54 50 55 54 DRESS FOR OUTPUT 40: 0d 0a 09 4d 56 49 09 4d 2c 30 09 09 3b 41 4e 44 ...MVI.M,0..;AND 50: 20 4c 4f 41 44 20 30 30 30 30 0d 0a 09 49 4e 58 LOAD 0000...INX 60: 09 48 0d 0a 09 4d 56 49 09 4d 2c 30 0d 0a 0d 0a .H...MVI.M,0.... 70: 09 4c 58 49 09 48 2c 46 50 42 32 09 09 3b 20 50 .LXI.H,FPB2..; P ### Disk Sector 320 ### 00: 4f 49 4e 54 20 41 54 20 4f 55 54 50 55 54 20 46 OINT AT OUTPUT F 10: 49 4c 45 0d 0a 09 4d 56 49 09 41 2c 31 09 09 3b ILE...MVI.A,1..; 20: 20 53 45 54 55 50 20 41 53 20 4e 45 57 20 46 49 SETUP AS NEW FI 30: 4c 45 0d 0a 09 4d 4f 56 09 4d 2c 41 0d 0a 09 43 LE...MOV.M,A...C 40: 41 4c 4c 09 4f 50 45 4e 09 09 3b 20 4f 50 45 4e ALL.OPEN..; OPEN 50: 20 54 48 45 20 46 49 4c 45 0d 0a 09 4a 43 09 45 THE FILE...JC.E 60: 30 32 0d 0a 0d 0a 09 4c 58 49 09 48 2c 49 42 55 02.....LXI.H,IBU 70: 46 09 09 3b 20 50 4f 49 4e 54 20 41 54 20 49 4e F..; POINT AT IN ### Disk Sector 321 ### 00: 50 55 54 20 42 55 46 46 45 52 0d 0a 09 53 48 4c PUT BUFFER...SHL 10: 44 09 46 50 42 31 2b 46 42 55 46 09 3b 20 53 41 D.FPB1+FBUF.; SA 20: 56 45 20 49 4e 50 55 54 20 42 55 46 46 45 52 20 VE INPUT BUFFER 30: 41 44 44 52 45 53 53 0d 0a 09 4c 58 49 09 48 2c ADDRESS...LXI.H, 40: 4f 42 55 46 09 09 3b 20 50 4f 49 4e 54 20 41 54 OBUF..; POINT AT 50: 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 0d 0a OUTPUT BUFFER.. 60: 09 53 48 4c 44 09 46 50 42 32 2b 46 42 55 46 09 .SHLD.FPB2+FBUF. 70: 3b 20 53 41 56 45 20 4f 55 54 50 55 54 20 42 55 ; SAVE OUTPUT BU ### Disk Sector 322 ### 00: 46 46 45 52 20 41 44 44 52 45 53 53 0d 0a 09 4c FFER ADDRESS...L 10: 58 49 09 48 2c 31 30 32 34 09 09 3b 20 53 45 54 XI.H,1024..; SET 20: 55 50 20 42 55 46 46 45 52 20 53 49 5a 45 0d 0a UP BUFFER SIZE.. 30: 09 53 48 4c 44 09 46 50 42 31 2b 46 58 42 43 09 .SHLD.FPB1+FXBC. 40: 3b 20 53 41 56 45 20 49 4e 50 55 54 20 42 55 46 ; SAVE INPUT BUF 50: 46 45 52 20 53 49 5a 45 0d 0a 09 53 48 4c 44 09 FER SIZE...SHLD. 60: 46 50 42 32 2b 46 58 42 43 09 3b 20 53 41 56 45 FPB2+FXBC.; SAVE 70: 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 53 OUTPUT BUFFER S ### Disk Sector 323 ### 00: 49 5a 45 0d 0a 09 4c 58 49 09 48 2c 46 50 42 31 IZE...LXI.H,FPB1 10: 09 09 3b 20 50 4f 49 4e 54 20 41 54 20 49 4e 50 ..; POINT AT INP 20: 55 54 20 46 50 42 0d 0a 09 43 41 4c 4c 09 52 57 UT FPB...CALL.RW 30: 53 45 51 49 09 09 3b 20 52 45 57 49 4e 44 20 49 SEQI..; REWIND I 40: 4e 50 55 54 20 46 49 4c 45 0d 0a 09 4c 58 49 09 NPUT FILE...LXI. 50: 48 2c 46 50 42 32 09 09 3b 20 50 4f 49 4e 54 20 H,FPB2..; POINT 60: 41 54 20 4f 55 54 50 55 54 20 46 50 42 0d 0a 09 AT OUTPUT FPB... 70: 43 41 4c 4c 09 49 4e 53 45 51 4f 09 09 3b 20 49 CALL.INSEQO..; I ### Disk Sector 324 ### 00: 4e 49 54 49 41 4c 49 5a 45 20 4f 55 54 50 55 54 NITIALIZE OUTPUT 10: 20 46 49 4c 45 0d 0a 09 52 45 54 09 09 09 3b 20 FILE...RET...; 20: 52 45 54 55 52 4e 0d 0a 0d 0a 43 48 52 49 4e 54 RETURN....CHRINT 30: 3a 09 50 55 53 48 09 48 09 09 3b 53 41 56 45 20 :.PUSH.H..;SAVE 40: 52 45 47 49 53 54 45 52 53 0d 0a 09 50 55 53 48 REGISTERS...PUSH 50: 09 50 53 57 0d 0a 09 4c 58 49 09 48 2c 49 4e 42 .PSW...LXI.H,INB 60: 55 46 0d 0a 09 4d 56 49 09 41 2c 33 30 09 09 3b UF...MVI.A,30..; 70: 4c 45 4e 47 54 48 20 4f 46 20 42 55 46 46 45 52 LENGTH OF BUFFER ### Disk Sector 325 ### 00: 0d 0a 09 43 4d 50 09 4d 09 09 3b 53 45 45 20 49 ...CMP.M..;SEE I 10: 46 20 42 55 46 46 45 52 20 49 53 20 46 55 4c 4c F BUFFER IS FULL 20: 0d 0a 09 4a 43 09 49 4e 54 45 58 54 09 09 3b 49 ...JC.INTEXT..;I 30: 46 20 49 54 20 49 53 20 49 47 4e 4f 52 45 20 43 F IT IS IGNORE C 40: 48 41 52 41 43 54 45 52 0d 0a 09 49 4e 52 09 4d HARACTER...INR.M 50: 09 09 3b 49 4e 43 52 45 4d 45 4e 54 20 43 4f 55 ..;INCREMENT COU 60: 4e 54 45 52 0d 0a 09 4d 4f 56 09 41 2c 4d 09 09 NTER...MOV.A,M.. 70: 3b 50 55 54 20 43 4f 55 4e 54 20 49 4e 20 41 0d ;PUT COUNT IN A. ### Disk Sector 326 ### 00: 0a 09 43 41 4c 4c 09 41 44 48 4c 41 09 09 3b 41 ..CALL.ADHLA..;A 10: 44 44 20 43 4f 55 4e 54 45 52 20 54 4f 20 42 45 DD COUNTER TO BE 20: 47 49 4e 4e 49 4e 47 20 4f 46 20 42 55 46 46 45 GINNING OF BUFFE 30: 52 0d 0a 09 4d 4f 56 09 41 2c 45 09 09 3b 43 48 R...MOV.A,E..;CH 40: 41 52 41 43 54 45 52 20 49 53 20 49 4e 20 45 0d ARACTER IS IN E. 50: 0a 09 43 50 49 09 45 53 43 09 09 3b 53 45 45 20 ..CPI.ESC..;SEE 60: 49 46 20 45 53 43 41 50 45 20 48 41 53 20 42 45 IF ESCAPE HAS BE 70: 45 4e 20 48 49 54 0d 0a 09 4a 5a 09 42 52 45 41 EN HIT...JZ.BREA ### Disk Sector 327 ### 00: 4b 09 09 3b 55 53 45 52 20 57 41 4e 54 53 20 54 K..;USER WANTS T 10: 4f 20 45 58 49 54 0d 0a 09 41 4e 49 09 31 32 37 O EXIT...ANI.127 20: 09 09 3b 4d 41 4b 45 20 53 55 52 45 20 49 54 53 ..;MAKE SURE ITS 30: 20 41 53 43 49 49 0d 0a 09 4d 4f 56 09 4d 2c 41 ASCII...MOV.M,A 40: 09 09 3b 53 54 4f 52 45 20 49 54 0d 0a 49 4e 54 ..;STORE IT..INT 50: 45 58 54 3a 09 50 4f 50 09 50 53 57 0d 0a 09 50 EXT:.POP.PSW...P 60: 4f 50 09 48 09 09 3b 52 45 53 54 4f 52 45 20 52 OP.H..;RESTORE R 70: 45 47 49 53 54 45 52 53 0d 0a 09 45 49 09 09 09 EGISTERS...EI... ### Disk Sector 328 ### 00: 3b 52 45 45 4e 41 42 4c 45 20 49 4e 54 45 52 55 ;REENABLE INTERU 10: 50 54 0d 0a 09 52 45 54 0d 0a 0d 0a 42 52 45 41 PT...RET....BREA 20: 4b 3a 09 4c 58 49 09 48 2c 34 09 09 3b 50 4f 49 K:.LXI.H,4..;POI 30: 4e 54 20 54 4f 20 52 45 54 55 52 4e 20 41 44 44 NT TO RETURN ADD 40: 52 45 53 53 0d 0a 09 44 41 44 09 53 50 09 09 3b RESS...DAD.SP..; 50: 4e 4f 57 20 48 20 50 4f 49 4e 54 53 20 54 4f 20 NOW H POINTS TO 60: 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 0d 0a RETURN ADDRESS.. 70: 09 4d 56 49 09 4d 2c 42 41 49 4c 4f 55 54 20 41 .MVI.M,BAILOUT A ### Disk Sector 329 ### 00: 4e 44 20 32 35 35 09 3b 53 54 4f 52 45 20 4c 4f ND 255.;STORE LO 10: 57 20 4f 52 44 45 52 20 42 59 54 45 0d 0a 09 49 W ORDER BYTE...I 20: 4e 58 09 48 0d 0a 09 4d 56 49 09 4d 2c 42 41 49 NX.H...MVI.M,BAI 30: 4c 4f 55 54 2f 32 35 36 09 3b 53 54 4f 52 45 20 LOUT/256.;STORE 40: 48 49 47 48 20 4f 52 44 45 52 20 42 59 54 45 0d HIGH ORDER BYTE. 50: 0a 09 4a 4d 50 09 49 4e 54 45 58 54 09 09 3b 45 ..JMP.INTEXT..;E 60: 58 49 54 20 49 4e 54 4f 20 45 58 49 54 0d 0a 0d XIT INTO EXIT... 70: 0a 49 4e 42 55 46 3a 09 44 53 09 33 32 09 09 3b .INBUF:.DS.32..; ### Disk Sector 330 ### 00: 53 54 4f 52 41 47 45 20 20 41 52 45 41 20 46 4f STORAGE AREA FO 10: 52 20 54 59 50 45 20 41 48 45 41 44 0d 0a 0d 0a R TYPE AHEAD.... 20: 43 49 3a 09 3b 43 49 20 52 45 41 44 53 20 41 4e CI:.;CI READS AN 30: 44 20 45 43 48 4f 53 20 4f 4e 45 20 43 48 41 52 D ECHOS ONE CHAR 40: 41 43 54 45 52 20 46 52 4f 4d 20 54 48 45 20 4b ACTER FROM THE K 50: 45 59 42 4f 41 52 44 0d 0a 0d 0a 09 50 55 53 48 EYBOARD.....PUSH 60: 09 48 09 09 3b 53 41 56 45 20 48 0d 0a 09 4c 58 .H..;SAVE H...LX 70: 49 09 48 2c 49 4e 42 55 46 0d 0a 43 49 31 3a 09 I.H,INBUF..CI1:. ### Disk Sector 331 ### 00: 4d 4f 56 09 41 2c 4d 09 09 3b 52 45 41 44 20 43 MOV.A,M..;READ C 10: 4f 55 4e 54 45 52 0d 0a 09 41 4e 41 09 41 09 09 OUNTER...ANA.A.. 20: 3b 53 45 45 20 49 46 20 5a 45 52 4f 0d 0a 09 4a ;SEE IF ZERO...J 30: 5a 09 43 49 31 09 09 3b 4c 4f 4f 4b 20 41 4e 44 Z.CI1..;LOOK AND 40: 20 57 41 49 54 20 49 46 20 5a 45 52 4f 0d 0a 09 WAIT IF ZERO... 50: 44 49 09 09 09 3b 48 4f 4c 44 20 4f 46 46 20 49 DI...;HOLD OFF I 60: 4e 54 45 52 55 50 54 53 20 57 48 49 4c 45 20 50 NTERUPTS WHILE P 70: 52 4f 43 45 53 53 49 4e 47 0d 0a 09 50 55 53 48 ROCESSING...PUSH ### Disk Sector 332 ### 00: 09 44 09 09 3b 53 41 56 45 20 44 0d 0a 09 44 43 .D..;SAVE D...DC 10: 52 09 4d 09 09 3b 52 45 44 55 43 45 20 42 55 46 R.M..;REDUCE BUF 20: 46 45 52 20 43 4f 55 4e 54 45 52 0d 0a 09 4d 4f FER COUNTER...MO 30: 56 09 44 2c 4d 0d 0a 09 49 4e 58 09 48 09 09 3b V.D,M...INX.H..; 40: 50 4f 49 4e 54 20 54 4f 20 43 48 41 52 41 43 54 POINT TO CHARACT 50: 45 52 0d 0a 09 4d 4f 56 09 41 2c 4d 09 09 3b 52 ER...MOV.A,M..;R 60: 45 41 44 20 49 54 0d 0a 09 43 41 4c 4c 09 43 4f EAD IT...CALL.CO 70: 09 09 3b 45 43 48 4f 20 49 54 0d 0a 09 50 55 53 ..;ECHO IT...PUS ### Disk Sector 333 ### 00: 48 09 50 53 57 09 09 3b 53 54 41 43 4b 20 49 54 H.PSW..;STACK IT 10: 0d 0a 43 49 32 3a 09 44 43 52 09 44 09 09 3b 53 ..CI2:.DCR.D..;S 20: 48 49 46 54 20 43 4f 55 4e 54 45 52 0d 0a 09 4a HIFT COUNTER...J 30: 4d 09 43 49 33 09 09 3b 57 48 45 4e 20 44 4f 4e M.CI3..;WHEN DON 40: 45 0d 0a 09 49 4e 58 09 48 09 09 3b 43 48 41 52 E...INX.H..;CHAR 50: 43 54 45 52 20 54 4f 20 42 45 20 53 48 49 46 54 CTER TO BE SHIFT 60: 45 44 0d 0a 09 4d 4f 56 09 41 2c 4d 0d 0a 09 44 ED...MOV.A,M...D 70: 43 58 09 48 09 09 3b 50 4f 49 4e 54 20 54 4f 20 CX.H..;POINT TO ### Disk Sector 334 ### 00: 4e 45 57 20 48 4f 4d 45 0d 0a 09 4d 4f 56 09 4d NEW HOME...MOV.M 10: 2c 41 09 09 3b 4e 45 57 20 48 4f 4d 45 0d 0a 09 ,A..;NEW HOME... 20: 49 4e 58 09 48 0d 0a 09 4a 4d 50 09 43 49 32 09 INX.H...JMP.CI2. 30: 09 3b 4c 4f 4f 50 20 55 4e 54 49 4c 20 44 4f 4e .;LOOP UNTIL DON 40: 45 0d 0a 43 49 33 3a 09 45 49 09 09 09 3b 45 4e E..CI3:.EI...;EN 50: 41 42 4c 45 20 49 4e 54 45 52 55 50 54 53 0d 0a ABLE INTERUPTS.. 60: 09 50 4f 50 09 50 53 57 09 09 3b 54 48 45 20 43 .POP.PSW..;THE C 70: 48 41 52 41 43 54 45 52 0d 0a 09 50 4f 50 09 44 HARACTER...POP.D ### Disk Sector 335 ### 00: 09 09 3b 54 48 45 20 57 4f 52 4c 44 0d 0a 09 50 ..;THE WORLD...P 10: 4f 50 09 48 09 09 0d 0a 09 52 45 54 0d 0a 0d 0a OP.H.....RET.... 20: 45 30 32 3a 09 43 41 4c 4c 09 45 4d 45 53 53 09 E02:.CALL.EMESS. 30: 09 3b 20 45 4d 49 54 20 45 52 52 4f 52 20 4d 45 .; EMIT ERROR ME 40: 53 53 41 47 45 0d 0a 09 4a 4d 50 09 53 45 54 55 SSAGE...JMP.SETU 50: 50 09 09 3b 20 52 45 41 44 20 4e 45 57 20 4c 49 P..; READ NEW LI 60: 4e 45 0d 0a 0d 0a 53 45 52 52 4f 52 3a 09 4c 58 NE....SERROR:.LX 70: 49 09 48 2c 4d 53 47 30 33 09 09 3b 20 50 52 49 I.H,MSG03..; PRI ### Disk Sector 336 ### 00: 4e 54 20 49 4e 50 55 54 20 46 49 4c 45 20 45 52 NT INPUT FILE ER 10: 52 4f 52 0d 0a 09 43 41 4c 4c 09 4f 53 0d 0a 09 ROR...CALL.OS... 20: 4a 4d 50 09 42 41 49 4c 4f 55 54 09 09 3b 42 41 JMP.BAILOUT..;BA 30: 43 4b 20 54 4f 20 46 43 53 0d 0a 0d 0a 45 52 52 CK TO FCS....ERR 40: 4f 52 3a 09 4c 58 49 09 48 2c 4d 53 47 30 32 09 OR:.LXI.H,MSG02. 50: 09 3b 20 50 52 49 4e 54 20 45 52 52 4f 52 20 4d .; PRINT ERROR M 60: 45 53 53 41 47 45 0d 0a 09 43 41 4c 4c 09 4f 53 ESSAGE...CALL.OS 70: 0d 0a 0d 0a 42 41 49 4c 4f 55 54 3a 4d 56 49 09 ....BAILOUT:MVI. ### Disk Sector 337 ### 00: 42 2c 30 09 09 3b 20 53 45 54 55 50 20 4e 4f 20 B,0..; SETUP NO 10: 45 52 52 4f 52 0d 0a 0d 0a 45 58 49 54 3a 09 4c ERROR....EXIT:.L 20: 48 4c 44 09 46 43 53 53 50 09 09 3b 20 52 45 53 HLD.FCSSP..; RES 30: 54 4f 52 45 20 46 43 53 20 53 54 41 43 4b 0d 0a TORE FCS STACK.. 40: 09 53 50 48 4c 0d 0a 09 52 45 54 09 09 09 3b 20 .SPHL...RET...; 50: 41 4e 44 20 45 58 49 54 20 54 4f 20 46 43 53 0d AND EXIT TO FCS. 60: 0a 0d 0a 45 4f 46 3a 09 4c 58 49 09 48 2c 46 50 ...EOF:.LXI.H,FP 70: 42 32 09 09 3b 20 50 4f 49 4e 54 20 41 54 20 4f B2..; POINT AT O ### Disk Sector 338 ### 00: 55 54 50 55 54 20 46 49 4c 45 0d 0a 09 43 41 4c UTPUT FILE...CAL 10: 4c 09 43 4c 53 45 51 4f 09 09 3b 20 43 4c 4f 53 L.CLSEQO..; CLOS 20: 45 20 4f 55 54 50 55 54 20 46 49 4c 45 0d 0a 09 E OUTPUT FILE... 30: 4a 4d 50 09 45 58 49 54 0d 0a 0d 0a 3b 09 4d 45 JMP.EXIT....;.ME 40: 53 53 41 47 45 53 0d 0a 0d 0a 4d 53 47 30 30 3a SSAGES....MSG00: 50: 09 44 42 09 31 38 2c 31 31 2c 27 43 4f 4d 50 55 .DB.18,11,'COMPU 60: 43 4f 4c 4f 52 20 27 2c 31 39 2c 27 49 49 20 27 COLOR ',19,'II ' 70: 0d 0a 0d 0a 09 44 42 09 32 31 2c 27 42 41 53 54 .....DB.21,'BAST ### Disk Sector 339 ### 00: 45 44 20 27 2c 32 32 2c 27 56 39 2e 38 30 27 2c ED ',22,'V9.80', 10: 31 33 2c 31 30 0d 0a 0d 0a 09 44 42 09 32 32 2c 13,10.....DB.22, 20: 27 45 4e 54 45 52 20 2e 42 41 53 20 46 49 4c 45 'ENTER .BAS FILE 30: 20 4e 41 4d 45 20 46 4f 52 20 44 45 4c 45 54 49 NAME FOR DELETI 40: 4f 4e 20 4f 46 20 52 45 4d 53 20 41 4e 44 20 27 ON OF REMS AND ' 50: 0d 0a 09 44 42 09 27 4c 49 4e 45 20 4e 55 4d 42 ...DB.'LINE NUMB 60: 45 52 53 27 2c 31 33 2c 31 30 0d 0a 09 44 42 09 ERS',13,10...DB. 70: 27 41 4e 44 20 4f 55 54 50 55 54 20 41 53 20 2e 'AND OUTPUT AS . ### Disk Sector 340 ### 00: 53 52 43 20 46 49 4c 45 20 52 45 41 44 59 20 46 SRC FILE READY F 10: 4f 52 20 41 53 53 45 4d 42 4c 59 2e 27 2c 31 33 OR ASSEMBLY.',13 20: 2c 31 30 2c 32 33 39 0d 0a 0d 0a 4d 53 47 30 31 ,10,239....MSG01 30: 3a 09 44 42 09 31 39 2c 31 31 2c 27 43 4f 4e 56 :.DB.19,11,'CONV 40: 45 52 54 3e 27 2c 31 38 2c 32 33 39 0d 0a 0d 0a ERT>',18,239.... 50: 4d 53 47 30 32 3a 09 44 42 09 31 37 2c 27 48 41 MSG02:.DB.17,'HA 60: 52 44 57 41 52 45 20 45 52 52 4f 52 20 21 27 2c RDWARE ERROR !', 70: 31 33 2c 31 30 2c 32 33 39 0d 0a 0d 0a 4d 53 47 13,10,239....MSG ### Disk Sector 341 ### 00: 30 33 3a 09 44 42 09 31 37 2c 27 42 41 53 49 43 03:.DB.17,'BASIC 10: 20 46 49 4c 45 20 48 41 53 20 4f 54 48 45 52 20 FILE HAS OTHER 20: 54 48 41 4e 20 52 45 4d 20 4c 49 4e 45 53 21 27 THAN REM LINES!' 30: 2c 31 33 2c 31 30 2c 32 33 39 0d 0a 44 45 46 41 ,13,10,239..DEFA 40: 55 4c 54 3a 44 42 09 27 42 41 53 27 0d 0a 0d 0a ULT:DB.'BAS'.... 50: 3b 09 44 41 54 41 20 41 52 45 41 53 20 2e 2e 2e ;.DATA AREAS ... 60: 20 20 53 54 41 52 54 45 44 20 4f 4e 20 41 20 4e STARTED ON A N 70: 45 57 20 50 41 47 45 0d 0a 0d 0a 09 4f 52 47 09 EW PAGE.....ORG. ### Disk Sector 342 ### 00: 28 28 24 2f 32 35 36 29 2b 31 29 2a 32 35 36 0d (($/256)+1)*256. 10: 0a 0d 0a 42 55 46 46 45 52 3a 09 44 53 09 32 35 ...BUFFER:.DS.25 20: 36 0d 0a 49 42 55 46 3a 09 44 53 09 31 30 32 34 6..IBUF:.DS.1024 30: 09 09 3b 49 4e 50 55 54 20 42 55 46 46 45 52 0d ..;INPUT BUFFER. 40: 0a 4f 42 55 46 3a 09 44 53 09 31 30 32 34 09 09 .OBUF:.DS.1024.. 50: 3b 4f 55 54 50 55 54 20 42 55 46 46 45 52 0d 0a ;OUTPUT BUFFER.. 60: 0d 0a 09 44 53 09 31 30 30 09 09 3b 53 54 41 43 ...DS.100..;STAC 70: 4b 20 41 52 45 41 0d 0a 53 54 41 43 4b 3a 09 0d K AREA..STACK:.. ### Disk Sector 343 ### 00: 0a 0d 0a 46 43 53 53 50 3a 09 44 53 09 32 09 09 ...FCSSP:.DS.2.. 10: 3b 46 43 53 20 53 54 41 43 4b 20 50 4f 49 4e 54 ;FCS STACK POINT 20: 45 52 0d 0a 46 50 42 31 3a 09 44 53 09 33 38 09 ER..FPB1:.DS.38. 30: 09 3b 49 4e 50 55 54 20 46 50 42 0d 0a 46 50 42 .;INPUT FPB..FPB 40: 32 3a 09 44 53 09 33 38 09 09 3b 4f 55 54 50 55 2:.DS.38..;OUTPU 50: 54 20 46 50 42 0d 0a 0d 0a 09 45 4e 44 09 53 54 T FPB.....END.ST 60: 41 52 54 31 0d 0a 0d 0a 00 00 00 00 00 00 00 00 ART1............ 70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................