Compucolor.org – Virtual Media

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