Compucolor.org – Virtual Media

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

### Disk Sector 34 ###
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 3b 09 41 70 70 65 6e 64 69 78 20   IES..;.Appendix
70: 20 23 31 30 20 20 20 53 61 6d 70 6c 65 20 50 72    #10   Sample Pr
### Disk Sector 35 ###
00: 6f 67 72 61 6d 20 23 35 0d 0a 0d 0a 3b 09 41 53   ogram #5....;.AS
10: 53 45 4d 42 4c 45 20 59 4f 55 52 20 4f 57 4e 20   SEMBLE YOUR OWN
20: 4d 4f 4e 49 54 4f 52 20 4f 52 20 4a 55 53 54 20   MONITOR OR JUST
30: 4c 45 41 52 4e 20 46 52 4f 4d 20 54 48 49 53 20   LEARN FROM THIS
40: 50 52 4f 47 52 41 4d 0d 0a 0d 0a 3b 09 53 4f 55   PROGRAM....;.SOU
50: 52 43 45 20 49 53 20 46 4f 52 20 36 2e 37 38 20   RCE IS FOR 6.78
60: 52 4f 4d 20 57 49 54 48 4f 55 54 20 4f 56 45 52   ROM WITHOUT OVER
70: 4c 41 59 0d 0a 0d 0a 3b 09 38 2e 37 39 20 41 44   LAY....;.8.79 AD
### Disk Sector 36 ###
00: 44 52 45 53 53 45 53 20 53 48 4f 57 4e 20 49 4e   DRESSES SHOWN IN
10: 20 43 4f 4d 4d 45 4e 54 53 0d 0a 0d 0a 3b 09 4e    COMMENTS....;.N
20: 4f 54 45 20 53 54 41 52 54 20 41 44 44 52 20 3c   OTE START ADDR <
30: 3e 20 4c 4f 41 44 20 41 44 44 52 0d 0a 0d 0a 3b   > LOAD ADDR....;
40: 09 50 52 4f 4a 45 43 54 3a 20 4d 4f 44 49 46 59   .PROJECT: MODIFY
50: 20 54 4f 20 49 4e 43 4f 52 50 4f 52 41 54 45 20    TO INCORPORATE
60: 53 43 52 45 45 4e 20 4f 55 54 50 55 54 20 4f 46   SCREEN OUTPUT OF
70: 20 43 4f 4d 4d 41 4e 44 0d 0a 3b 09 54 41 42 4c    COMMAND..;.TABL
### Disk Sector 37 ###
00: 45 20 4f 4e 20 45 58 45 43 55 54 49 4e 47 20 49   E ON EXECUTING I
10: 0d 0a 0d 0a 3b 20 4d 4f 4e 49 54 4f 52 2e 53 52   ....; MONITOR.SR
20: 43 3b 31 0d 0a 3b 20 37 2f 34 2f 38 30 0d 0a 3b   C;1..; 7/4/80..;
30: 0d 0a 3b 20 43 4f 4d 50 55 43 4f 4c 4f 52 20 49   ..; COMPUCOLOR I
40: 49 20 4d 4f 4e 49 54 4f 52 20 56 45 52 53 49 4f   I MONITOR VERSIO
50: 4e 20 31 2e 30 0d 0a 3b 0d 0a 3b 20 45 58 54 52   N 1.0..;..; EXTR
60: 41 43 54 45 44 20 46 52 4f 4d 20 49 53 43 27 53   ACTED FROM ISC'S
70: 20 43 50 55 20 4f 50 45 52 41 54 49 4e 47 20 53    CPU OPERATING S
### Disk Sector 38 ###
00: 59 53 54 45 4d 0d 0a 3b 20 42 59 20 52 49 43 4b   YSTEM..; BY RICK
10: 20 4d 41 4e 41 5a 49 52 2e 0d 0a 3b 20 31 33 20    MANAZIR...; 13
20: 47 52 41 4e 44 56 49 45 57 20 53 54 2e 0d 0a 3b   GRANDVIEW ST...;
30: 20 53 4f 55 54 48 57 49 43 4b 2c 20 4d 41 53 53    SOUTHWICK, MASS
40: 2e 20 20 30 31 30 37 37 0d 0a 3b 20 28 34 31 33   .  01077..; (413
50: 29 20 35 36 39 2d 36 36 32 31 0d 0a 3b 0d 0a 3b   ) 569-6621..;..;
60: 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 49    THE FOLLOWING I
70: 53 20 41 4e 20 45 58 50 4c 41 4e 41 54 49 4f 4e   S AN EXPLANATION
### Disk Sector 39 ###
00: 20 4f 46 20 54 48 45 20 43 4f 4d 4d 41 4e 44 53    OF THE COMMANDS
10: 20 41 4e 44 0d 0a 3b 20 53 59 4d 42 4f 4c 4f 47    AND..; SYMBOLOG
20: 59 20 55 53 45 44 2e 0d 0a 3b 2d 3c 52 45 47 49   Y USED...;-<REGI
30: 53 54 45 52 20 4d 4f 44 49 46 59 20 43 4f 4d 4d   STER MODIFY COMM
40: 41 4e 44 3e 3d 58 3c 52 45 47 49 53 54 45 52 20   AND>=X<REGISTER
50: 49 44 45 4e 54 49 46 49 45 52 3e 0d 0a 3b 2d 3c   IDENTIFIER>..;-<
60: 52 45 47 49 53 54 45 52 20 49 44 45 4e 54 49 46   REGISTER IDENTIF
70: 49 45 52 3e 3d 41 21 42 21 43 21 44 21 45 21 46   IER>=A!B!C!D!E!F
### Disk Sector 40 ###
00: 21 48 21 4c 21 4d 21 50 21 53 21 0d 0a 3b 2d 3c   !H!L!M!P!S!..;-<
10: 20 23 20 3e 3d 3c 48 45 58 20 41 44 44 52 45 53    # >=<HEX ADDRES
20: 53 3e 0d 0a 3b 2d 3c 20 24 20 3e 3d 3c 48 45 58   S>..;-< $ >=<HEX
30: 20 4e 55 4d 42 45 52 3e 0d 0a 3b 2d 3c 41 53 43    NUMBER>..;-<ASC
40: 49 49 20 4d 45 4d 4f 52 59 20 43 4f 4d 4d 41 4e   II MEMORY COMMAN
50: 44 3e 3d 41 3c 20 23 20 3e 2c 3c 20 23 20 3e 0d   D>=A< # >,< # >.
60: 0a 3b 2d 3c 43 4f 4d 50 41 52 45 20 4d 45 4d 4f   .;-<COMPARE MEMO
70: 52 59 20 43 4f 4d 4d 41 4e 44 3e 3d 43 3c 20 23   RY COMMAND>=C< #
### Disk Sector 41 ###
00: 20 3e 2c 3c 20 23 20 3e 2c 3c 20 23 20 3e 0d 0a    >,< # >,< # >..
10: 3b 2d 3c 44 49 53 50 4c 41 59 20 4d 45 4d 4f 52   ;-<DISPLAY MEMOR
20: 59 20 43 4f 4d 4d 41 4e 44 3e 3d 44 3c 20 23 20   Y COMMAND>=D< #
30: 3e 2c 3c 20 23 20 3e 0d 0a 3b 2d 3c 45 58 49 54   >,< # >..;-<EXIT
40: 20 4d 4f 4e 49 54 4f 52 20 43 4f 4d 4d 41 4e 44    MONITOR COMMAND
50: 3e 3d 45 0d 0a 3b 2d 3c 4e 4f 4e 2d 44 45 53 54   >=E..;-<NON-DEST
60: 52 55 43 54 49 56 45 20 4d 45 4d 4f 52 59 20 54   RUCTIVE MEMORY T
70: 45 53 54 20 43 4f 4d 4d 41 4e 44 3e 3d 4e 3c 20   EST COMMAND>=N<
### Disk Sector 42 ###
00: 23 20 3e 2c 3c 20 23 20 3e 0d 0a 3b 2d 3c 53 45   # >,< # >..;-<SE
10: 41 52 43 48 20 4d 45 4d 4f 52 59 20 43 4f 4d 4d   ARCH MEMORY COMM
20: 41 4e 44 3e 3d 53 3c 20 23 20 3e 2c 3c 20 23 20   AND>=S< # >,< #
30: 3e 2c 3c 20 23 20 3e 2c 3c 20 24 20 3e 0d 0a 3b   >,< # >,< $ >..;
40: 2d 3c 46 49 4c 4c 20 4d 45 4d 4f 52 59 20 43 4f   -<FILL MEMORY CO
50: 4d 4d 41 4e 44 3e 3d 46 3c 20 23 20 3e 2c 3c 20   MMAND>=F< # >,<
60: 23 20 3e 2c 3c 20 24 20 3e 0d 0a 3b 2d 3c 50 52   # >,< $ >..;-<PR
70: 4f 47 52 41 4d 20 45 58 45 43 55 54 45 20 43 4f   OGRAM EXECUTE CO
### Disk Sector 43 ###
00: 4d 4d 41 4e 44 3e 3d 47 3c 20 23 20 3e 2c 3c 20   MMAND>=G< # >,<
10: 23 20 3e 2c 3c 20 23 20 3e 0d 0a 3b 2d 3c 48 45   # >,< # >..;-<HE
20: 58 41 44 45 43 49 4d 41 4c 20 41 52 49 54 48 45   XADECIMAL ARITHE
30: 4d 45 54 49 43 20 43 4f 4d 4d 41 4e 44 3e 3d 48   METIC COMMAND>=H
40: 3c 20 23 20 3e 2c 3c 20 23 20 3e 0d 0a 3b 2d 3c   < # >,< # >..;-<
50: 4d 4f 56 45 20 4d 45 4d 4f 52 59 20 43 4f 4d 4d   MOVE MEMORY COMM
60: 41 4e 44 3e 3d 4d 3c 20 23 20 3e 2c 3c 20 23 20   AND>=M< # >,< #
70: 3e 2c 3c 20 23 20 3e 0d 0a 3b 2d 3c 53 55 42 53   >,< # >..;-<SUBS
### Disk Sector 44 ###
00: 54 49 54 55 54 45 20 4d 45 4d 4f 52 59 20 43 4f   TITUTE MEMORY CO
10: 4d 4d 41 4e 44 3e 3d 53 3c 20 23 20 3e 0d 0a 3b   MMAND>=S< # >..;
20: 2d 3c 48 45 58 20 44 49 47 49 54 3e 3d 30 21 31   -<HEX DIGIT>=0!1
30: 21 32 21 33 21 34 21 35 21 36 21 37 21 38 21 39   !2!3!4!5!6!7!8!9
40: 21 41 21 42 21 43 21 44 21 45 21 46 21 0d 0a 3b   !A!B!C!D!E!F!..;
50: 0d 0a 3b 2d 53 59 53 54 45 4d 20 53 49 47 4e 53   ..;-SYSTEM SIGNS
60: 20 4f 4e 20 57 49 54 48 20 3c 43 52 3e 3c 4c 46    ON WITH <CR><LF
70: 3e 3c 2e 3e 0d 0a 3b 0d 0a 4c 46 09 45 51 55 09   ><.>..;..LF.EQU.
### Disk Sector 45 ###
00: 31 30 09 3b 20 3c 41 53 43 49 49 20 4c 49 4e 45   10.; <ASCII LINE
10: 46 45 45 44 3e 0d 0a 4b 54 53 54 09 45 51 55 09   FEED>..KTST.EQU.
20: 30 30 32 34 48 09 3b 20 4b 45 59 42 4f 41 52 44   0024H.; KEYBOARD
30: 20 53 43 41 4e 4e 45 52 0d 0a 43 52 09 45 51 55    SCANNER..CR.EQU
40: 09 30 44 48 09 3b 20 3c 41 53 43 49 49 20 43 41   .0DH.; <ASCII CA
50: 52 52 49 41 47 45 20 52 45 54 55 52 4e 3e 0d 0a   RRIAGE RETURN>..
60: 4f 53 54 52 09 45 51 55 09 33 33 46 34 48 09 3b   OSTR.EQU.33F4H.;
70: 20 28 31 38 32 41 29 20 4f 55 54 50 55 54 53 20    (182A) OUTPUTS
### Disk Sector 46 ###
00: 53 54 52 49 4e 47 20 54 4f 20 43 52 54 0d 0a 49   STRING TO CRT..I
10: 4e 50 43 52 54 09 45 51 55 09 38 31 43 35 48 09   NPCRT.EQU.81C5H.
20: 3b 20 4a 55 4d 50 20 56 45 43 54 4f 52 20 23 33   ; JUMP VECTOR #3
30: 31 0d 0a 4b 42 44 46 4c 09 45 51 55 09 38 31 44   1..KBDFL.EQU.81D
40: 46 48 09 3b 20 48 4f 4c 44 53 20 4e 55 4d 42 45   FH.; HOLDS NUMBE
50: 52 20 4f 46 20 4a 55 4d 50 20 56 45 43 54 4f 52   R OF JUMP VECTOR
60: 20 46 4f 52 20 54 48 45 0d 0a 09 09 09 3b 20 20    FOR THE.....;
70: 4b 45 59 42 4f 41 52 44 0d 0a 4b 42 52 44 59 09   KEYBOARD..KBRDY.
### Disk Sector 47 ###
00: 45 51 55 09 38 31 46 46 48 09 3b 20 4b 45 59 42   EQU.81FFH.; KEYB
10: 4f 41 52 44 20 52 45 41 44 59 20 46 4c 41 47 0d   OARD READY FLAG.
20: 0a 4c 42 59 54 09 45 51 55 09 33 33 39 42 48 09   .LBYT.EQU.339BH.
30: 3b 20 28 31 37 44 31 29 20 4c 49 53 54 53 20 41   ; (17D1) LISTS A
40: 20 42 59 54 45 20 41 53 20 54 57 4f 20 41 53 43    BYTE AS TWO ASC
50: 49 49 20 43 48 41 52 41 43 54 45 52 53 0d 0a 4e   II CHARACTERS..N
60: 49 42 4c 09 45 51 55 09 33 33 42 33 48 09 3b 20   IBL.EQU.33B3H.;
70: 28 31 37 45 39 29 20 38 2d 42 49 54 20 41 53 43   (17E9) 8-BIT ASC
### Disk Sector 48 ###
00: 49 49 20 54 4f 20 34 2d 42 49 54 20 48 45 58 0d   II TO 4-BIT HEX.
10: 0a 43 4d 50 44 48 09 45 51 55 09 33 34 35 33 48   .CMPDH.EQU.3453H
20: 09 3b 20 28 31 38 38 39 29 20 43 4f 4d 50 41 52   .; (1889) COMPAR
30: 45 53 20 44 26 45 20 54 4f 20 48 26 4c 0d 0a 41   ES D&E TO H&L..A
40: 44 48 4c 41 09 45 51 55 09 33 35 31 38 48 09 3b   DHLA.EQU.3518H.;
50: 20 28 31 39 34 45 29 20 41 44 44 53 20 41 20 57    (194E) ADDS A W
60: 49 54 48 20 43 41 52 52 59 20 54 4f 20 48 26 4c   ITH CARRY TO H&L
70: 0d 0a 4c 4f 09 45 51 55 09 33 33 39 32 48 09 3b   ..LO.EQU.3392H.;
### Disk Sector 49 ###
00: 20 28 31 37 43 38 29 20 4f 55 54 50 55 54 53 20    (17C8) OUTPUTS
10: 41 20 52 45 47 49 53 54 45 52 20 54 4f 20 53 43   A REGISTER TO SC
20: 52 45 45 4e 0d 0a 53 54 41 43 4b 09 45 51 55 09   REEN..STACK.EQU.
30: 30 42 46 46 46 48 09 3b 20 53 54 41 43 4b 20 50   0BFFFH.; STACK P
40: 4f 49 4e 54 45 52 0d 0a 53 55 42 48 44 09 45 51   OINTER..SUBHD.EQ
50: 55 09 33 34 35 39 48 09 3b 20 28 31 38 38 46 29   U.3459H.; (188F)
60: 20 53 55 42 54 52 41 43 54 53 20 41 20 57 49 54    SUBTRACTS A WIT
70: 48 20 43 41 52 52 59 20 46 52 4f 4d 20 48 26 4c   H CARRY FROM H&L
### Disk Sector 50 ###
00: 0d 0a 55 56 45 43 09 45 51 55 09 38 31 42 46 48   ..UVEC.EQU.81BFH
10: 09 3b 20 22 45 53 43 20 55 53 45 52 22 20 56 45   .; "ESC USER" VE
20: 43 54 4f 52 0d 0a 52 53 54 31 4a 09 45 51 55 09   CTOR..RST1J.EQU.
30: 38 31 43 38 48 09 3b 20 52 45 53 54 41 52 54 20   81C8H.; RESTART
40: 56 45 43 54 4f 52 20 4a 55 4d 50 53 20 48 45 52   VECTOR JUMPS HER
50: 45 20 46 52 4f 4d 20 52 4f 4d 0d 0a 42 4c 4b 09   E FROM ROM..BLK.
60: 45 51 55 09 33 34 42 33 48 09 3b 20 28 31 38 45   EQU.34B3H.; (18E
70: 39 29 20 50 52 49 4e 54 20 41 20 53 50 41 43 45   9) PRINT A SPACE
### Disk Sector 51 ###
00: 0d 0a 3b 0d 0a 09 4f 52 47 09 30 42 41 30 30 48   ..;...ORG.0BA00H
10: 09 3b 53 55 49 54 53 20 31 36 4b 20 4d 2f 43 0d   .;SUITS 16K M/C.
20: 0a 3b 0d 0a 54 41 50 3a 09 44 53 09 32 09 3b 20   .;..TAP:.DS.2.;
30: 41 20 52 45 47 49 53 54 45 52 20 26 20 46 4c 41   A REGISTER & FLA
40: 47 53 0d 0a 54 42 43 3a 09 44 53 09 32 09 3b 20   GS..TBC:.DS.2.;
50: 42 20 26 20 43 20 52 45 47 49 53 54 45 52 53 0d   B & C REGISTERS.
60: 0a 54 44 45 3a 09 44 53 09 32 09 3b 20 44 20 26   .TDE:.DS.2.; D &
70: 20 45 20 52 45 47 49 53 54 45 52 53 0d 0a 54 53    E REGISTERS..TS
### Disk Sector 52 ###
00: 50 3a 09 44 53 09 32 09 3b 20 53 50 20 52 45 47   P:.DS.2.; SP REG
10: 49 53 54 45 52 0d 0a 54 48 4c 3a 09 44 53 09 32   ISTER..THL:.DS.2
20: 09 3b 20 48 20 26 20 4c 20 52 45 47 49 53 54 45   .; H & L REGISTE
30: 52 53 0d 0a 54 50 43 3a 09 44 53 09 32 09 3b 20   RS..TPC:.DS.2.;
40: 50 43 20 52 45 47 49 53 54 45 52 0d 0a 54 31 41   PC REGISTER..T1A
50: 3a 09 44 53 09 32 09 3b 20 54 52 41 50 20 31 20   :.DS.2.; TRAP 1
60: 41 44 44 52 45 53 53 0d 0a 09 44 53 09 31 09 3b   ADDRESS...DS.1.;
70: 20 54 52 41 50 20 31 20 56 41 4c 55 45 0d 0a 09    TRAP 1 VALUE...
### Disk Sector 53 ###
00: 44 53 09 32 09 3b 20 54 52 41 50 20 32 20 41 44   DS.2.; TRAP 2 AD
10: 44 52 45 53 53 0d 0a 09 44 53 09 31 09 3b 20 54   DRESS...DS.1.; T
20: 52 41 50 20 32 20 56 41 4c 55 45 0d 0a 43 48 41   RAP 2 VALUE..CHA
30: 52 49 4e 3a 09 44 53 09 31 09 3b 20 54 45 4d 50   RIN:.DS.1.; TEMP
40: 4f 52 41 52 59 20 43 48 41 52 41 43 54 45 52 20   ORARY CHARACTER
50: 53 54 4f 52 41 47 45 0d 0a 3b 0d 0a 3b 09 2d 20   STORAGE..;..;.-
60: 50 52 4f 47 52 41 4d 20 45 4e 54 52 59 20 50 4f   PROGRAM ENTRY PO
70: 49 4e 54 0d 0a 3b 0d 0a 3b 0d 0a 3b 09 43 49 49   INT..;..;..;.CII
### Disk Sector 54 ###
00: 4e 49 54 20 2d 20 54 48 45 20 43 48 41 52 41 43   NIT - THE CHARAC
10: 54 45 52 20 49 4e 50 55 54 20 49 4e 49 54 49 41   TER INPUT INITIA
20: 4c 49 5a 41 54 49 4f 4e 20 52 4f 55 54 49 4e 45   LIZATION ROUTINE
30: 0d 0a 3b 09 09 53 45 54 53 20 55 50 20 54 48 45   ..;..SETS UP THE
40: 20 50 41 52 41 4d 45 54 45 52 53 20 4e 45 43 45    PARAMETERS NECE
50: 53 53 41 52 59 20 46 4f 52 20 54 48 45 20 0d 0a   SSARY FOR THE ..
60: 3b 09 09 27 43 48 52 49 4e 54 27 20 41 4e 44 20   ;..'CHRINT' AND
70: 27 43 49 27 20 52 4f 55 54 49 4e 45 53 2e 0d 0a   'CI' ROUTINES...
### Disk Sector 55 ###
00: 3b 0d 0a 43 49 49 4e 49 54 3a 09 4d 56 49 09 41   ;..CIINIT:.MVI.A
10: 2c 33 31 09 3b 20 53 45 54 55 50 20 4a 55 4d 50   ,31.; SETUP JUMP
20: 20 56 45 43 54 4f 52 20 23 33 31 0d 0a 09 53 54    VECTOR #31...ST
30: 41 09 4b 42 44 46 4c 09 3b 20 53 54 4f 52 45 20   A.KBDFL.; STORE
40: 49 4e 20 4b 45 59 42 4f 41 52 44 20 46 4c 41 47   IN KEYBOARD FLAG
50: 0d 0a 09 4d 56 49 09 41 2c 30 43 33 48 09 3b 20   ...MVI.A,0C3H.;
60: 4c 49 54 45 52 41 4c 4c 59 20 27 4a 4d 50 27 0d   LITERALLY 'JMP'.
70: 0a 09 53 54 41 09 49 4e 50 43 52 54 0d 0a 09 4c   ..STA.INPCRT...L
### Disk Sector 56 ###
00: 58 49 09 48 2c 43 48 52 49 4e 54 3b 20 47 45 54   XI.H,CHRINT; GET
10: 20 41 44 44 52 45 53 53 20 4f 46 20 27 43 48 52    ADDRESS OF 'CHR
20: 49 4e 54 27 20 52 4f 55 54 49 4e 45 0d 0a 09 53   INT' ROUTINE...S
30: 48 4c 44 09 49 4e 50 43 52 54 2b 31 3b 20 50 4c   HLD.INPCRT+1; PL
40: 41 43 45 20 41 44 44 52 45 53 53 20 41 46 54 45   ACE ADDRESS AFTE
50: 52 20 27 4a 4d 50 27 0d 0a 09 58 52 41 09 41 0d   R 'JMP'...XRA.A.
60: 0a 09 53 54 41 09 4b 42 52 44 59 09 3b 20 43 4c   ..STA.KBRDY.; CL
70: 45 41 52 20 4b 45 59 42 4f 41 52 44 20 52 45 41   EAR KEYBOARD REA
### Disk Sector 57 ###
00: 44 59 20 46 4c 41 47 0d 0a 09 53 54 41 09 43 48   DY FLAG...STA.CH
10: 41 52 49 4e 09 3b 20 43 4c 45 41 52 20 54 45 4d   ARIN.; CLEAR TEM
20: 50 4f 52 41 52 59 20 43 48 41 52 41 43 54 45 52   PORARY CHARACTER
30: 20 53 54 4f 52 41 47 45 0d 0a 09 4c 58 49 09 48    STORAGE...LXI.H
40: 2c 43 49 49 4e 49 54 3b 20 47 45 54 20 41 44 44   ,CIINIT; GET ADD
50: 52 45 53 53 20 4f 46 20 27 43 49 49 4e 49 54 27   RESS OF 'CIINIT'
60: 20 52 4f 55 54 49 4e 45 0d 0a 09 53 48 4c 44 09    ROUTINE...SHLD.
70: 55 56 45 43 2b 31 09 3b 20 50 4c 41 43 45 20 41   UVEC+1.; PLACE A
### Disk Sector 58 ###
00: 44 44 52 45 53 53 20 41 46 54 45 52 20 27 4a 4d   DDRESS AFTER 'JM
10: 50 27 0d 0a 09 4d 56 49 09 41 2c 30 43 33 48 09   P'...MVI.A,0C3H.
20: 3b 20 4c 49 54 45 52 41 4c 4c 59 20 27 4a 4d 50   ; LITERALLY 'JMP
30: 27 0d 0a 09 53 54 41 09 55 56 45 43 09 3b 20 53   '...STA.UVEC.; S
40: 54 4f 52 45 20 27 4a 4d 50 27 0d 0a 3b 0d 0a 3b   TORE 'JMP'..;..;
50: 09 2d 20 53 45 54 20 55 53 45 52 20 4d 45 4d 4f   .- SET USER MEMO
60: 52 59 20 46 4f 52 20 52 45 47 49 53 54 45 52 53   RY FOR REGISTERS
70: 2c 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 2c   , STACK POINTER,
### Disk Sector 59 ###
00: 0d 0a 3b 09 20 20 41 4e 44 20 52 45 53 54 41 52   ..;.  AND RESTAR
10: 54 20 46 4f 52 20 42 52 45 41 4b 50 4f 49 4e 54   T FOR BREAKPOINT
20: 53 2e 0d 0a 3b 0d 0a 3b 0d 0a 42 45 47 49 4e 3a   S...;..;..BEGIN:
30: 0d 0a 09 4c 58 49 09 48 2c 54 41 50 09 3b 20 50   ...LXI.H,TAP.; P
40: 4f 49 4e 54 20 54 4f 20 55 53 45 52 20 50 53 57   OINT TO USER PSW
50: 0d 0a 09 4d 56 49 09 42 2c 54 31 41 2b 36 2d 54   ...MVI.B,T1A+6-T
60: 41 50 09 3b 20 53 45 54 20 43 4f 55 4e 54 0d 0a   AP.; SET COUNT..
70: 42 47 31 3a 09 4d 56 49 09 4d 2c 30 09 3b 20 49   BG1:.MVI.M,0.; I
### Disk Sector 60 ###
00: 4e 49 54 49 41 4c 49 5a 45 20 2e 2e 2e 0d 0a 09   NITIALIZE ......
10: 49 4e 58 09 48 09 3b 20 2e 2e 2e 20 55 53 45 52   INX.H.; ... USER
20: 27 53 20 52 45 47 49 53 54 45 52 53 0d 0a 09 44   'S REGISTERS...D
30: 43 52 09 42 09 3b 20 46 49 4e 49 53 48 45 44 3f   CR.B.; FINISHED?
40: 0d 0a 09 4a 4e 5a 09 42 47 31 09 3b 20 4e 4f 3f   ...JNZ.BG1.; NO?
50: 3a 20 4c 4f 4f 50 21 0d 0a 09 4c 58 49 09 48 2c   : LOOP!...LXI.H,
60: 53 54 41 43 4b 09 3b 20 49 4e 49 54 49 41 4c 49   STACK.; INITIALI
70: 5a 45 20 2e 2e 2e 0d 0a 09 53 48 4c 44 09 54 53   ZE ......SHLD.TS
### Disk Sector 61 ###
00: 50 09 3b 20 2e 2e 2e 20 55 53 45 52 27 53 20 53   P.; ... USER'S S
10: 50 0d 0a 09 53 50 48 4c 09 09 3b 20 53 45 54 20   P...SPHL..; SET
20: 53 50 0d 0a 09 4d 56 49 09 41 2c 30 43 33 48 09   SP...MVI.A,0C3H.
30: 3b 20 47 45 54 20 27 4a 4d 50 27 0d 0a 09 53 54   ; GET 'JMP'...ST
40: 41 09 52 53 54 31 4a 09 3b 20 53 54 4f 52 45 20   A.RST1J.; STORE
50: 49 4e 20 52 41 4d 0d 0a 09 4c 58 49 09 48 2c 52   IN RAM...LXI.H,R
60: 45 53 54 41 52 54 09 3b 20 52 45 53 54 41 52 54   ESTART.; RESTART
70: 20 41 44 44 52 45 53 53 0d 0a 09 53 48 4c 44 09    ADDRESS...SHLD.
### Disk Sector 62 ###
00: 52 53 54 31 4a 2b 31 09 3b 20 53 54 4f 52 45 20   RST1J+1.; STORE
10: 52 45 53 54 41 52 54 20 41 44 44 52 45 53 53 20   RESTART ADDRESS
20: 49 4e 20 52 41 4d 0d 0a 3b 0d 0a 3b 09 2d 20 54   IN RAM..;..;.- T
30: 59 50 45 20 53 49 47 4e 2d 4f 4e 2e 0d 0a 3b 0d   YPE SIGN-ON...;.
40: 0a 53 49 47 4e 4f 4e 3a 09 4c 58 49 09 48 2c 56   .SIGNON:.LXI.H,V
50: 45 52 53 09 3b 20 41 44 44 52 45 53 53 20 4f 46   ERS.; ADDRESS OF
60: 20 4d 45 53 53 41 47 45 0d 0a 09 43 41 4c 4c 09    MESSAGE...CALL.
70: 4f 53 54 52 0d 0a 09 4a 4d 50 09 53 54 41 52 54   OSTR...JMP.START
### Disk Sector 63 ###
00: 0d 0a 56 45 52 53 3a 09 44 42 09 31 32 2c 4c 46   ..VERS:.DB.12,LF
10: 2c 32 39 2c 31 33 48 2c 27 43 4f 4d 50 55 43 4f   ,29,13H,'COMPUCO
20: 4c 4f 52 27 0d 0a 09 44 42 09 31 37 48 2c 27 20   LOR'...DB.17H,'
30: 49 49 27 0d 0a 09 44 42 09 31 35 48 2c 27 20 4d   II'...DB.15H,' M
40: 4f 4e 49 54 4f 52 20 27 0d 0a 09 44 42 09 31 36   ONITOR '...DB.16
50: 48 2c 27 56 27 0d 0a 09 44 42 09 27 31 2e 30 20   H,'V'...DB.'1.0
60: 27 2c 32 30 2c 27 42 59 20 52 2e 20 4d 2e 20 4d   ',20,'BY R. M. M
70: 41 4e 41 5a 49 52 27 0d 0a 09 44 42 09 32 33 39   ANAZIR'...DB.239
### Disk Sector 64 ###
00: 0d 0a 3b 0d 0a 3b 09 2d 20 4d 41 49 4e 20 43 4f   ..;..;.- MAIN CO
10: 4d 4d 41 4e 44 20 4c 4f 4f 50 2e 0d 0a 3b 0d 0a   MMAND LOOP...;..
20: 53 54 41 52 54 3a 0d 0a 09 4c 58 49 09 48 2c 43   START:...LXI.H,C
30: 52 54 42 4c 09 3b 20 43 52 2c 4c 46 2c 47 52 4e   RTBL.; CR,LF,GRN
40: 2c 32 33 39 0d 0a 09 43 41 4c 4c 09 4f 53 54 52   ,239...CALL.OSTR
50: 0d 0a 09 44 49 09 09 3b 20 44 49 53 41 42 4c 45   ...DI..; DISABLE
60: 20 49 4e 54 45 52 52 55 50 54 53 0d 0a 09 4c 58    INTERRUPTS...LX
70: 49 09 53 50 2c 53 54 41 43 4b 3b 20 53 45 54 20   I.SP,STACK; SET
### Disk Sector 65 ###
00: 53 50 0d 0a 09 58 52 41 09 41 0d 0a 09 43 41 4c   SP...XRA.A...CAL
10: 4c 09 43 49 58 09 3b 20 47 45 54 20 41 20 43 48   L.CIX.; GET A CH
20: 41 52 41 43 54 45 52 0d 0a 09 43 41 4c 4c 09 4c   ARACTER...CALL.L
30: 4f 0d 0a 09 53 55 49 09 27 41 27 09 3b 20 54 45   O...SUI.'A'.; TE
40: 53 54 20 46 4f 52 20 41 2d 58 0d 0a 09 4a 4d 09   ST FOR A-X...JM.
50: 53 54 41 52 54 09 3b 20 4c 45 53 53 20 54 48 41   START.; LESS THA
60: 4e 20 41 2c 20 45 52 52 4f 52 0d 0a 09 43 50 49   N A, ERROR...CPI
70: 09 27 58 27 2d 27 41 27 2b 31 0d 0a 09 4a 50 09   .'X'-'A'+1...JP.
### Disk Sector 66 ###
00: 45 52 52 4f 52 09 3b 20 47 52 45 41 54 45 52 20   ERROR.; GREATER
10: 54 48 41 4e 20 58 2c 20 45 52 52 4f 52 0d 0a 09   THAN X, ERROR...
20: 43 41 4c 4c 09 47 54 41 42 4c 0d 0a 09 4a 4d 50   CALL.GTABL...JMP
30: 09 53 54 41 52 54 0d 0a 3b 0d 0a 3b 09 2d 20 43   .START..;..;.- C
40: 4f 4d 4d 41 4e 44 20 42 52 41 4e 43 48 20 54 41   OMMAND BRANCH TA
50: 42 4c 45 2e 0d 0a 3b 0d 0a 54 42 4c 3a 0d 0a 09   BLE...;..TBL:...
60: 44 57 09 41 53 43 49 49 09 3b 20 41 20 2d 20 41   DW.ASCII.; A - A
70: 53 43 49 49 20 44 49 53 50 4c 41 59 20 4f 46 20   SCII DISPLAY OF
### Disk Sector 67 ###
00: 4d 45 4d 4f 52 59 0d 0a 09 44 57 09 45 52 52 4f   MEMORY...DW.ERRO
10: 52 09 3b 20 42 0d 0a 09 44 57 09 43 4f 4d 50 52   R.; B...DW.COMPR
20: 09 3b 20 43 20 2d 20 43 4f 4d 50 41 52 45 20 4d   .; C - COMPARE M
30: 45 4d 4f 52 59 0d 0a 09 44 57 09 44 49 53 50 09   EMORY...DW.DISP.
40: 3b 20 44 20 2d 20 44 49 53 50 4c 41 59 20 4d 45   ; D - DISPLAY ME
50: 4d 4f 52 59 0d 0a 09 44 57 09 45 58 49 54 09 3b   MORY...DW.EXIT.;
60: 20 45 20 2d 20 45 58 49 54 20 4d 4f 4e 49 54 4f    E - EXIT MONITO
70: 52 0d 0a 09 44 57 09 46 49 4c 4c 09 3b 20 46 20   R...DW.FILL.; F
### Disk Sector 68 ###
00: 2d 20 46 49 4c 4c 20 4d 45 4d 4f 52 59 0d 0a 09   - FILL MEMORY...
10: 44 57 09 47 4f 54 4f 09 3b 20 47 20 2d 20 47 4f   DW.GOTO.; G - GO
20: 20 54 4f 20 41 44 44 52 45 53 53 0d 0a 09 44 57    TO ADDRESS...DW
30: 09 48 45 58 4e 09 3b 20 48 20 2d 20 53 55 4d 20   .HEXN.; H - SUM
40: 44 49 46 46 45 52 45 4e 43 45 0d 0a 09 44 57 09   DIFFERENCE...DW.
50: 45 52 52 4f 52 09 3b 20 49 20 20 20 28 50 4f 53   ERROR.; I   (POS
60: 53 49 42 4c 45 20 27 48 45 4c 50 27 20 43 4f 4d   SIBLE 'HELP' COM
70: 4d 41 4e 44 20 48 45 52 45 2c 20 50 52 49 4e 54   MAND HERE, PRINT
### Disk Sector 69 ###
00: 0d 0a 09 09 09 3b 20 20 20 20 20 20 28 49 29 4e   .....;      (I)N
10: 53 54 52 55 43 54 49 4f 4e 53 20 54 41 42 4c 45   STRUCTIONS TABLE
20: 20 54 4f 20 53 43 52 45 45 4e 29 28 42 46 4d 29    TO SCREEN)(BFM)
30: 0d 0a 09 44 57 09 45 52 52 4f 52 09 3b 20 4a 0d   ...DW.ERROR.; J.
40: 0a 09 44 57 09 45 52 52 4f 52 09 3b 20 4b 0d 0a   ..DW.ERROR.; K..
50: 09 44 57 09 45 52 52 4f 52 09 3b 20 4c 0d 0a 09   .DW.ERROR.; L...
60: 44 57 09 4d 4f 56 45 09 3b 20 4d 20 2d 20 4d 4f   DW.MOVE.; M - MO
70: 56 45 20 4d 45 4d 4f 52 59 0d 0a 09 44 57 09 4e   VE MEMORY...DW.N
### Disk Sector 70 ###
00: 44 4d 54 09 3b 20 4e 20 2d 20 4e 4f 4e 2d 44 45   DMT.; N - NON-DE
10: 53 54 52 55 43 54 49 56 45 20 4d 45 4d 4f 52 59   STRUCTIVE MEMORY
20: 20 54 45 53 54 0d 0a 09 44 57 09 45 52 52 4f 52    TEST...DW.ERROR
30: 09 3b 20 4f 0d 0a 09 44 57 09 45 52 52 4f 52 09   .; O...DW.ERROR.
40: 3b 20 50 0d 0a 09 44 57 09 45 52 52 4f 52 09 3b   ; P...DW.ERROR.;
50: 20 51 0d 0a 09 44 57 09 45 52 52 4f 52 09 3b 20    Q...DW.ERROR.;
60: 52 0d 0a 09 44 57 09 53 55 42 53 09 3b 20 53 20   R...DW.SUBS.; S
70: 2d 20 53 55 42 53 54 49 54 55 54 45 20 4d 45 4d   - SUBSTITUTE MEM
### Disk Sector 71 ###
00: 4f 52 59 0d 0a 09 44 57 09 45 52 52 4f 52 09 3b   ORY...DW.ERROR.;
10: 20 54 0d 0a 09 44 57 09 45 52 52 4f 52 09 3b 20    T...DW.ERROR.;
20: 55 0d 0a 09 44 57 09 45 52 52 4f 52 09 3b 20 56   U...DW.ERROR.; V
30: 0d 0a 09 44 57 09 53 52 43 48 09 3b 20 57 20 2d   ...DW.SRCH.; W -
40: 20 46 49 4e 44 20 42 59 54 45 2f 57 4f 52 44 2f    FIND BYTE/WORD/
50: 54 48 52 45 45 20 42 59 54 45 53 0d 0a 09 44 57   THREE BYTES...DW
60: 09 58 09 3b 20 58 20 2d 20 45 58 41 4d 49 4e 45   .X.; X - EXAMINE
70: 20 26 20 4d 4f 44 49 46 59 20 52 45 47 49 53 54    & MODIFY REGIST
### Disk Sector 72 ###
00: 45 52 53 0d 0a 3b 0d 0a 3b 09 2d 20 43 41 52 52   ERS..;..;.- CARR
10: 49 41 47 45 20 52 45 54 55 52 4e 20 54 41 42 4c   IAGE RETURN TABL
20: 45 0d 0a 3b 0d 0a 09 44 42 09 36 2c 37 2c 27 3f   E..;...DB.6,7,'?
30: 27 09 3b 20 45 52 52 4f 52 0d 0a 43 52 54 42 4c   '.; ERROR..CRTBL
40: 3a 09 44 42 09 43 52 2c 4c 46 2c 36 2c 32 2c 27   :.DB.CR,LF,6,2,'
50: 2e 27 0d 0a 09 44 42 09 32 33 39 09 3b 20 54 45   .'...DB.239.; TE
60: 52 4d 49 4e 41 54 4f 52 0d 0a 3b 0d 0a 47 54 41   RMINATOR..;..GTA
70: 42 4c 3a 09 4d 56 49 09 43 2c 32 09 3b 20 53 45   BL:.MVI.C,2.; SE
### Disk Sector 73 ###
00: 54 20 46 4f 52 20 32 20 56 41 52 49 41 42 4c 45   T FOR 2 VARIABLE
10: 53 0d 0a 09 4c 58 49 09 48 2c 54 42 4c 0d 0a 09   S...LXI.H,TBL...
20: 50 55 53 48 09 48 0d 0a 43 4f 44 45 58 3a 09 52   PUSH.H..CODEX:.R
30: 4c 43 09 09 3b 20 44 4f 55 42 4c 45 0d 0a 09 43   LC..; DOUBLE...C
40: 41 4c 4c 09 41 44 48 4c 41 09 3b 20 41 44 44 20   ALL.ADHLA.; ADD
50: 41 20 54 4f 20 48 26 4c 0d 0a 09 4d 4f 56 09 41   A TO H&L...MOV.A
60: 2c 4d 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 4f 56   ,M...INX.H...MOV
70: 09 48 2c 4d 0d 0a 09 4d 4f 56 09 4c 2c 41 0d 0a   .H,M...MOV.L,A..
### Disk Sector 74 ###
00: 09 58 54 48 4c 09 09 3b 20 50 55 54 20 41 44 44   .XTHL..; PUT ADD
10: 52 45 53 53 20 4f 4e 20 53 54 41 43 4b 2c 20 52   RESS ON STACK, R
20: 45 53 54 4f 52 45 20 48 26 4c 0d 0a 09 58 52 41   ESTORE H&L...XRA
30: 09 41 0d 0a 09 52 45 54 09 09 3b 20 44 49 53 50   .A...RET..; DISP
40: 41 54 43 48 21 0d 0a 3b 0d 0a 3b 09 43 48 52 49   ATCH!..;..;.CHRI
50: 4e 54 20 2d 20 54 48 45 20 43 48 41 52 41 43 54   NT - THE CHARACT
60: 45 52 20 49 4e 54 45 52 52 55 50 54 20 52 4f 55   ER INTERRUPT ROU
70: 54 49 4e 45 20 49 53 20 56 45 43 54 4f 52 45 44   TINE IS VECTORED
### Disk Sector 75 ###
00: 0d 0a 3b 09 09 54 4f 20 46 52 4f 4d 20 54 48 45   ..;..TO FROM THE
10: 20 4b 45 59 42 4f 41 52 44 20 49 4e 50 55 54 20    KEYBOARD INPUT
20: 52 4f 55 54 49 4e 45 20 54 48 52 4f 55 47 48 0d   ROUTINE THROUGH.
30: 0a 3b 09 09 54 48 45 20 4a 55 4d 50 20 56 45 43   .;..THE JUMP VEC
40: 54 4f 52 20 27 49 4e 50 43 52 54 27 20 28 23 33   TOR 'INPCRT' (#3
50: 31 29 2e 20 20 54 48 45 20 43 48 41 52 41 43 54   1).  THE CHARACT
60: 45 52 0d 0a 3b 09 09 46 52 4f 4d 20 54 48 45 20   ER..;..FROM THE
70: 4b 45 59 42 4f 41 52 44 20 49 4e 50 55 54 20 52   KEYBOARD INPUT R
### Disk Sector 76 ###
00: 4f 55 54 49 4e 45 20 49 53 20 49 4e 20 0d 0a 3b   OUTINE IS IN ..;
10: 09 09 52 45 47 49 53 54 45 52 20 45 2e 0d 0a 3b   ..REGISTER E...;
20: 0d 0a 43 48 52 49 4e 54 3a 09 50 55 53 48 09 48   ..CHRINT:.PUSH.H
30: 09 3b 20 53 41 56 45 20 52 45 47 49 53 54 45 52   .; SAVE REGISTER
40: 53 20 54 48 41 54 20 57 49 4c 4c 20 42 45 20 55   S THAT WILL BE U
50: 53 45 44 0d 0a 09 50 55 53 48 09 50 53 57 0d 0a   SED...PUSH.PSW..
60: 09 4c 58 49 09 48 2c 43 48 41 52 49 4e 3b 20 47   .LXI.H,CHARIN; G
70: 45 54 20 41 44 44 52 45 53 53 20 4f 46 20 54 45   ET ADDRESS OF TE
### Disk Sector 77 ###
00: 4d 50 20 43 48 41 52 41 43 54 45 52 20 53 54 4f   MP CHARACTER STO
10: 52 41 47 45 0d 0a 09 58 52 41 09 41 09 3b 20 43   RAGE...XRA.A.; C
20: 4c 45 41 52 20 41 0d 0a 09 43 4d 50 09 4d 09 3b   LEAR A...CMP.M.;
30: 20 54 45 53 54 20 46 4f 52 20 27 43 48 41 52 49    TEST FOR 'CHARI
40: 4e 27 20 3d 20 30 0d 0a 09 4a 4e 5a 09 43 46 49   N' = 0...JNZ.CFI
50: 4e 09 3b 20 49 46 20 4e 4f 54 20 5a 45 52 4f 2c   N.; IF NOT ZERO,
60: 20 54 48 45 4e 20 49 47 4e 4f 52 45 20 49 4e 50    THEN IGNORE INP
70: 55 54 0d 0a 09 4d 4f 56 09 41 2c 45 09 3b 20 47   UT...MOV.A,E.; G
### Disk Sector 78 ###
00: 45 54 20 43 48 41 52 41 43 54 45 52 20 46 52 4f   ET CHARACTER FRO
10: 4d 20 45 0d 0a 09 41 4e 49 09 31 32 37 09 3b 20   M E...ANI.127.;
20: 53 54 52 49 50 20 55 50 50 45 52 20 42 49 54 20   STRIP UPPER BIT
30: 46 4f 52 20 41 53 43 49 49 0d 0a 09 4d 4f 56 09   FOR ASCII...MOV.
40: 4d 2c 41 09 3b 20 53 54 4f 52 45 20 49 4e 20 27   M,A.; STORE IN '
50: 43 48 41 52 49 4e 27 0d 0a 43 46 49 4e 3a 09 50   CHARIN'..CFIN:.P
60: 4f 50 09 50 53 57 09 3b 20 52 45 53 54 4f 52 45   OP.PSW.; RESTORE
70: 20 55 53 45 44 20 52 45 47 49 53 54 45 52 53 0d    USED REGISTERS.
### Disk Sector 79 ###
00: 0a 09 50 4f 50 09 48 09 3b 0d 0a 09 45 49 09 09   ..POP.H.;...EI..
10: 3b 20 45 4e 41 42 4c 45 20 49 4e 54 45 52 52 55   ; ENABLE INTERRU
20: 50 54 53 0d 0a 09 52 45 54 09 09 3b 20 52 45 54   PTS...RET..; RET
30: 55 52 4e 20 46 52 4f 4d 20 49 4e 54 45 52 52 55   URN FROM INTERRU
40: 50 54 0d 0a 3b 0d 0a 3b 09 2d 20 44 49 53 50 4c   PT..;..;.- DISPL
50: 41 59 20 4d 45 4d 4f 52 59 20 49 4e 20 48 45 58   AY MEMORY IN HEX
60: 20 4f 4e 20 43 52 54 2e 0d 0a 3b 0d 0a 44 49 53    ON CRT...;..DIS
70: 50 3a 09 43 41 4c 4c 09 45 58 50 52 09 3b 20 47   P:.CALL.EXPR.; G
### Disk Sector 80 ###
00: 45 54 20 54 57 4f 20 41 44 44 52 45 53 53 45 53   ET TWO ADDRESSES
10: 0d 0a 09 50 4f 50 09 44 09 3b 20 47 45 54 20 48   ...POP.D.; GET H
20: 49 47 48 20 41 44 44 52 45 53 53 0d 0a 09 50 4f   IGH ADDRESS...PO
30: 50 09 48 09 3b 20 47 45 54 20 4c 4f 57 20 41 44   P.H.; GET LOW AD
40: 44 52 45 53 53 0d 0a 44 49 30 3a 09 43 41 4c 4c   DRESS..DI0:.CALL
50: 09 43 52 4c 46 09 3b 20 47 52 45 45 4e 0d 0a 44   .CRLF.; GREEN..D
60: 49 31 3a 09 43 41 4c 4c 09 4c 41 44 52 09 3b 20   I1:.CALL.LADR.;
70: 50 52 49 4e 54 20 4d 45 4d 4f 52 59 20 41 44 44   PRINT MEMORY ADD
### Disk Sector 81 ###
00: 52 45 53 53 0d 0a 09 4d 56 49 09 41 2c 31 33 48   RESS...MVI.A,13H
10: 09 3b 20 59 45 4c 4c 4f 57 0d 0a 09 43 41 4c 4c   .; YELLOW...CALL
20: 09 4c 4f 0d 0a 44 49 32 3a 09 43 41 4c 4c 09 42   .LO..DI2:.CALL.B
30: 4c 4b 09 3b 20 50 52 49 4e 54 20 53 50 41 43 45   LK.; PRINT SPACE
40: 0d 0a 09 4d 4f 56 09 41 2c 4d 0d 0a 09 43 41 4c   ...MOV.A,M...CAL
50: 4c 09 4c 42 59 54 09 3b 20 50 52 49 4e 54 20 44   L.LBYT.; PRINT D
60: 41 54 41 0d 0a 09 43 41 4c 4c 09 41 42 54 45 53   ATA...CALL.ABTES
70: 54 09 3b 20 43 48 45 43 4b 20 46 4f 52 20 42 52   T.; CHECK FOR BR
### Disk Sector 82 ###
00: 45 41 4b 0d 0a 09 43 41 4c 4c 09 48 49 4c 4f 09   EAK...CALL.HILO.
10: 3b 20 54 45 53 54 20 46 4f 52 20 43 4f 4d 50 4c   ; TEST FOR COMPL
20: 45 54 49 4f 4e 0d 0a 09 52 43 0d 0a 09 4d 4f 56   ETION...RC...MOV
30: 09 41 2c 4c 0d 0a 09 41 4e 49 09 30 46 48 09 3b   .A,L...ANI.0FH.;
40: 20 50 52 49 4e 54 20 43 52 2c 4c 46 2c 41 44 44    PRINT CR,LF,ADD
50: 52 45 53 53 0d 0a 09 4a 4e 5a 09 44 49 32 0d 0a   RESS...JNZ.DI2..
60: 09 4a 4d 50 09 44 49 30 0d 0a 3b 0d 0a 3b 09 2d   .JMP.DI0..;..;.-
70: 20 46 49 4c 4c 20 52 4f 55 54 49 4e 45 2c 20 46    FILL ROUTINE, F
### Disk Sector 83 ###
00: 49 4c 4c 20 52 41 4d 20 4d 45 4d 4f 52 59 0d 0a   ILL RAM MEMORY..
10: 3b 09 2d 20 42 4c 4f 43 4b 20 57 49 54 48 20 43   ;.- BLOCK WITH C
20: 4f 4e 53 54 41 4e 54 2e 0d 0a 3b 0d 0a 46 49 4c   ONSTANT...;..FIL
30: 4c 3a 0d 0a 09 49 4e 52 09 43 09 3b 20 47 45 54   L:...INR.C.; GET
40: 20 33 20 50 41 52 41 4d 45 54 45 52 53 0d 0a 09    3 PARAMETERS...
50: 43 41 4c 4c 09 45 58 50 52 0d 0a 09 50 4f 50 09   CALL.EXPR...POP.
60: 42 09 3b 20 47 45 54 20 44 41 54 41 20 49 4e 20   B.; GET DATA IN
70: 43 0d 0a 09 50 4f 50 09 44 09 3b 20 47 45 54 20   C...POP.D.; GET
### Disk Sector 84 ###
00: 48 49 47 48 20 41 44 44 52 45 53 53 0d 0a 09 50   HIGH ADDRESS...P
10: 4f 50 09 48 09 3b 20 47 45 54 20 4c 4f 57 20 41   OP.H.; GET LOW A
20: 44 44 52 45 53 53 0d 0a 46 49 30 3a 0d 0a 09 4d   DDRESS..FI0:...M
30: 4f 56 09 4d 2c 43 09 3b 20 53 54 4f 52 45 20 43   OV.M,C.; STORE C
40: 4f 4e 53 54 41 4e 54 0d 0a 09 43 41 4c 4c 09 48   ONSTANT...CALL.H
50: 49 4c 4f 09 3b 20 54 45 53 54 20 46 4f 52 20 43   ILO.; TEST FOR C
60: 4f 4d 50 4c 45 54 49 4f 4e 0d 0a 09 4a 4e 43 09   OMPLETION...JNC.
70: 46 49 30 09 3b 20 43 4f 4e 54 49 4e 55 45 20 4c   FI0.; CONTINUE L
### Disk Sector 85 ###
00: 4f 4f 50 21 0d 0a 09 52 45 54 0d 0a 3b 0d 0a 3b   OOP!...RET..;..;
10: 09 2d 20 4d 4f 56 45 20 41 20 42 4c 4f 43 4b 20   .- MOVE A BLOCK
20: 4f 46 20 52 41 4d 20 4d 45 4d 4f 52 59 2e 0d 0a   OF RAM MEMORY...
30: 3b 0d 0a 4d 4f 56 45 3a 0d 0a 09 49 4e 52 09 43   ;..MOVE:...INR.C
40: 09 3b 20 47 45 54 20 54 48 52 45 45 20 41 44 44   .; GET THREE ADD
50: 52 45 53 53 45 53 0d 0a 09 43 41 4c 4c 09 45 58   RESSES...CALL.EX
60: 50 52 0d 0a 09 50 4f 50 09 42 09 3b 20 44 45 53   PR...POP.B.; DES
70: 54 49 4e 41 54 49 4f 4e 0d 0a 09 50 4f 50 09 44   TINATION...POP.D
### Disk Sector 86 ###
00: 09 3b 20 53 4f 55 52 43 45 20 45 4e 44 0d 0a 09   .; SOURCE END...
10: 50 4f 50 09 48 09 3b 20 53 4f 55 52 43 45 20 42   POP.H.; SOURCE B
20: 45 47 49 4e 0d 0a 4d 56 30 3a 0d 0a 09 4d 4f 56   EGIN..MV0:...MOV
30: 09 41 2c 4d 09 3b 20 47 45 54 20 41 20 44 41 54   .A,M.; GET A DAT
40: 41 20 42 59 54 45 0d 0a 09 53 54 41 58 09 42 09   A BYTE...STAX.B.
50: 3b 20 53 54 4f 52 45 20 41 54 20 44 45 53 54 49   ; STORE AT DESTI
60: 4e 41 54 49 4f 4e 0d 0a 09 49 4e 58 09 42 09 3b   NATION...INX.B.;
70: 20 4d 4f 56 45 20 44 45 53 54 49 4e 41 54 49 4f    MOVE DESTINATIO
### Disk Sector 87 ###
00: 4e 0d 0a 09 43 41 4c 4c 09 48 49 4c 4f 09 3b 20   N...CALL.HILO.;
10: 54 45 53 54 20 46 4f 52 20 43 4f 4d 50 4c 45 54   TEST FOR COMPLET
20: 49 4f 4e 0d 0a 09 4a 4e 43 09 4d 56 30 0d 0a 09   ION...JNC.MV0...
30: 52 45 54 0d 0a 3b 0d 0a 3b 09 2d 20 53 55 42 53   RET..;..;.- SUBS
40: 54 49 54 55 54 45 20 52 4f 55 54 49 4e 45 2c 20   TITUTE ROUTINE,
50: 4d 4f 44 49 46 59 20 52 41 4d 0d 0a 3b 09 2d 20   MODIFY RAM..;.-
60: 4d 45 4d 4f 52 59 20 57 49 54 48 20 4b 45 59 42   MEMORY WITH KEYB
70: 4f 41 52 44 20 49 4e 50 55 54 53 2e 0d 0a 3b 0d   OARD INPUTS...;.
### Disk Sector 88 ###
00: 0a 53 55 42 53 3a 0d 0a 09 44 43 52 09 43 09 3b   .SUBS:...DCR.C.;
10: 20 49 4e 49 54 49 41 4c 4c 59 20 53 45 54 20 46    INITIALLY SET F
20: 4f 52 20 54 57 4f 20 56 41 4c 55 45 53 0d 0a 09   OR TWO VALUES...
30: 43 41 4c 4c 09 45 58 50 52 09 3b 20 47 45 54 20   CALL.EXPR.; GET
40: 4f 4e 45 20 41 44 44 52 45 53 53 0d 0a 09 43 41   ONE ADDRESS...CA
50: 4c 4c 09 50 32 43 0d 0a 09 50 4f 50 09 48 0d 0a   LL.P2C...POP.H..
60: 09 52 43 0d 0a 53 55 30 3a 0d 0a 09 4d 56 49 09   .RC..SU0:...MVI.
70: 41 2c 31 38 09 3b 20 53 45 54 20 44 49 53 50 4c   A,18.; SET DISPL
### Disk Sector 89 ###
00: 41 59 20 54 4f 20 47 52 45 45 4e 0d 0a 09 43 41   AY TO GREEN...CA
10: 4c 4c 09 4c 4f 0d 0a 09 4d 4f 56 09 41 2c 4d 0d   LL.LO...MOV.A,M.
20: 0a 09 43 41 4c 4c 09 4c 42 59 54 09 3b 20 44 49   ..CALL.LBYT.; DI
30: 53 50 4c 41 59 20 44 41 54 41 0d 0a 09 4d 56 49   SPLAY DATA...MVI
40: 09 41 2c 27 2d 27 0d 0a 09 43 41 4c 4c 09 4c 4f   .A,'-'...CALL.LO
50: 0d 0a 09 43 41 4c 4c 09 50 43 48 4b 09 3b 20 43   ...CALL.PCHK.; C
60: 48 45 43 4b 20 44 45 4c 49 4d 49 54 45 52 0d 0a   HECK DELIMITER..
70: 09 52 43 09 09 3b 20 43 52 20 45 4e 54 45 52 45   .RC..; CR ENTERE
### Disk Sector 90 ###
00: 44 2c 20 52 45 54 55 52 4e 0d 0a 09 4a 5a 09 53   D, RETURN...JZ.S
10: 55 31 09 3b 20 53 50 41 43 45 20 45 4e 54 45 52   U1.; SPACE ENTER
20: 45 44 2c 0d 0a 09 50 55 53 48 09 48 09 3b 20 53   ED,...PUSH.H.; S
30: 41 56 45 20 4d 45 4d 4f 52 59 20 41 4e 44 0d 0a   AVE MEMORY AND..
40: 09 43 41 4c 4c 09 45 58 46 09 3b 20 2e 2e 47 45   .CALL.EXF.; ..GE
50: 54 20 4e 45 57 20 56 41 4c 55 45 0d 0a 09 50 4f   T NEW VALUE...PO
60: 50 09 44 09 3b 20 45 20 3d 20 56 41 4c 55 45 0d   P.D.; E = VALUE.
70: 0a 09 50 4f 50 09 48 09 3b 20 52 45 53 54 4f 52   ..POP.H.; RESTOR
### Disk Sector 91 ###
00: 45 20 4d 45 4d 4f 52 59 0d 0a 09 4d 4f 56 09 4d   E MEMORY...MOV.M
10: 2c 45 09 3b 20 53 54 4f 52 45 20 4e 45 57 20 56   ,E.; STORE NEW V
20: 41 4c 55 45 0d 0a 09 4d 4f 56 09 41 2c 42 09 3b   ALUE...MOV.A,B.;
30: 20 54 45 53 54 20 44 45 4c 49 4d 49 54 45 52 0d    TEST DELIMITER.
40: 0a 09 43 50 49 09 43 52 0d 0a 09 52 5a 09 09 3b   ..CPI.CR...RZ..;
50: 20 43 52 20 45 4e 54 45 52 45 44 20 41 46 54 45    CR ENTERED AFTE
60: 52 0d 0a 53 55 31 3a 0d 0a 09 49 4e 58 09 48 0d   R..SU1:...INX.H.
70: 0a 09 4a 4d 50 09 53 55 30 0d 0a 3b 0d 0a 3b 09   ..JMP.SU0..;..;.
### Disk Sector 92 ###
00: 2d 20 45 58 41 4d 49 4e 45 20 41 4e 44 20 4d 4f   - EXAMINE AND MO
10: 44 49 46 59 20 43 50 55 20 52 45 47 49 53 54 45   DIFY CPU REGISTE
20: 52 2e 0d 0a 3b 0d 0a 58 3a 0d 0a 09 43 41 4c 4c   R...;..X:...CALL
30: 09 43 49 09 3b 20 47 45 54 20 52 45 47 49 53 54   .CI.; GET REGIST
40: 45 52 0d 0a 09 4c 58 49 09 48 2c 41 43 54 42 4c   ER...LXI.H,ACTBL
50: 09 3b 20 50 4f 49 4e 54 20 54 4f 20 41 43 43 45   .; POINT TO ACCE
60: 53 53 0d 0a 09 43 50 49 09 43 52 0d 0a 09 4a 5a   SS...CPI.CR...JZ
70: 09 58 36 09 3b 20 46 55 4c 4c 20 52 45 47 49 53   .X6.; FULL REGIS
### Disk Sector 93 ###
00: 54 45 52 20 44 49 53 50 4c 41 59 0d 0a 58 30 3a   TER DISPLAY..X0:
10: 0d 0a 09 43 4d 50 09 4d 0d 0a 09 4a 5a 09 58 31   ...CMP.M...JZ.X1
20: 0d 0a 09 50 55 53 48 09 50 53 57 09 3b 20 53 41   ...PUSH.PSW.; SA
30: 56 45 20 43 48 41 52 41 43 54 45 52 0d 0a 09 4d   VE CHARACTER...M
40: 4f 56 09 41 2c 4d 09 3b 20 4e 4f 54 20 54 48 45   OV.A,M.; NOT THE
50: 20 52 49 47 48 54 20 43 48 41 52 41 43 54 45 52    RIGHT CHARACTER
60: 0d 0a 09 4f 52 41 09 41 0d 0a 09 4a 4d 09 45 52   ...ORA.A...JM.ER
70: 52 4f 52 09 3b 20 45 4e 44 20 4f 46 20 54 41 42   ROR.; END OF TAB
### Disk Sector 94 ###
00: 4c 45 0d 0a 09 49 4e 58 09 48 0d 0a 09 49 4e 58   LE...INX.H...INX
10: 09 48 0d 0a 09 49 4e 58 09 48 0d 0a 09 50 4f 50   .H...INX.H...POP
20: 09 50 53 57 09 3b 20 52 45 54 52 49 45 56 45 20   .PSW.; RETRIEVE
30: 43 48 41 52 41 43 54 45 52 0d 0a 09 4a 4d 50 09   CHARACTER...JMP.
40: 58 30 0d 0a 58 31 3a 0d 0a 09 43 41 4c 4c 09 42   X0..X1:...CALL.B
50: 4c 4b 0d 0a 58 32 3a 0d 0a 09 4d 56 49 09 41 2c   LK..X2:...MVI.A,
60: 31 38 09 3b 20 53 45 54 20 44 49 53 50 4c 41 59   18.; SET DISPLAY
70: 20 54 4f 20 47 52 45 45 4e 0d 0a 09 43 41 4c 4c    TO GREEN...CALL
### Disk Sector 95 ###
00: 09 4c 4f 0d 0a 09 43 41 4c 4c 09 58 38 0d 0a 09   .LO...CALL.X8...
10: 49 4e 52 09 42 0d 0a 09 4d 56 49 09 41 2c 27 2d   INR.B...MVI.A,'-
20: 27 0d 0a 09 43 41 4c 4c 09 4c 4f 0d 0a 09 43 41   '...CALL.LO...CA
30: 4c 4c 09 50 43 48 4b 09 3b 20 53 4b 49 50 20 49   LL.PCHK.; SKIP I
40: 46 20 4e 55 4c 4c 20 45 0d 0a 09 52 43 09 09 3b   F NULL E...RC..;
50: 20 43 52 20 45 4e 54 45 52 45 44 2c 20 52 45 54    CR ENTERED, RET
60: 55 52 4e 0d 0a 09 4a 5a 09 58 35 0d 0a 09 50 55   URN...JZ.X5...PU
70: 53 48 09 48 09 3b 20 53 41 56 45 20 50 4f 49 4e   SH.H.; SAVE POIN
### Disk Sector 96 ###
00: 54 45 52 20 54 4f 0d 0a 09 50 55 53 48 09 42 09   TER TO...PUSH.B.
10: 3b 20 53 41 56 45 20 50 52 45 43 49 53 49 4f 4e   ; SAVE PRECISION
20: 0d 0a 09 43 41 4c 4c 09 45 58 46 09 3b 20 47 45   ...CALL.EXF.; GE
30: 54 20 4e 45 57 20 52 45 47 49 53 54 45 52 20 56   T NEW REGISTER V
40: 41 4c 55 45 0d 0a 09 50 4f 50 09 48 0d 0a 09 50   ALUE...POP.H...P
50: 4f 50 09 50 53 57 09 3b 20 41 20 3d 20 50 52 45   OP.PSW.; A = PRE
60: 43 49 53 49 4f 4e 0d 0a 09 50 55 53 48 09 42 09   CISION...PUSH.B.
70: 3b 20 42 20 3d 20 44 45 4c 49 4d 49 54 45 52 0d   ; B = DELIMITER.
### Disk Sector 97 ###
00: 0a 09 50 55 53 48 09 50 53 57 09 3b 20 41 20 3d   ..PUSH.PSW.; A =
10: 20 50 52 45 43 49 53 49 4f 4e 0d 0a 09 4d 4f 56    PRECISION...MOV
20: 09 41 2c 4c 0d 0a 09 53 54 41 58 09 44 09 3b 20   .A,L...STAX.D.;
30: 53 54 4f 52 45 20 4c 53 42 20 49 4e 20 52 45 47   STORE LSB IN REG
40: 49 53 54 45 52 0d 0a 09 50 4f 50 09 42 09 3b 20   ISTER...POP.B.;
50: 52 45 54 52 49 45 56 45 20 50 52 45 43 49 53 49   RETRIEVE PRECISI
60: 4f 4e 0d 0a 09 44 43 52 09 42 0d 0a 09 4a 5a 09   ON...DCR.B...JZ.
70: 58 34 09 3b 20 38 20 42 49 54 53 20 4f 4e 4c 59   X4.; 8 BITS ONLY
### Disk Sector 98 ###
00: 0d 0a 09 49 4e 58 09 44 0d 0a 09 4d 4f 56 09 41   ...INX.D...MOV.A
10: 2c 48 0d 0a 09 53 54 41 58 09 44 09 3b 20 53 54   ,H...STAX.D.; ST
20: 4f 52 45 20 4d 53 42 20 49 4e 20 52 45 47 49 53   ORE MSB IN REGIS
30: 54 45 52 0d 0a 58 34 3a 0d 0a 09 50 4f 50 09 42   TER..X4:...POP.B
40: 09 3b 20 52 45 54 52 49 45 56 45 20 44 45 4c 49   .; RETRIEVE DELI
50: 4d 49 54 45 52 0d 0a 09 50 4f 50 09 48 0d 0a 58   MITER...POP.H..X
60: 35 3a 0d 0a 09 4d 4f 56 09 41 2c 4d 09 3b 20 54   5:...MOV.A,M.; T
70: 45 53 54 20 46 4f 52 20 45 4e 44 20 28 30 29 0d   EST FOR END (0).
### Disk Sector 99 ###
00: 0a 09 4f 52 41 09 41 0d 0a 09 52 4d 0d 0a 09 4d   ..ORA.A...RM...M
10: 4f 56 09 41 2c 42 09 3b 20 54 45 53 54 20 44 45   OV.A,B.; TEST DE
20: 4c 49 4d 49 54 45 52 0d 0a 09 43 50 49 09 43 52   LIMITER...CPI.CR
30: 0d 0a 09 52 5a 0d 0a 09 4a 4d 50 09 58 32 0d 0a   ...RZ...JMP.X2..
40: 58 36 3a 0d 0a 09 43 41 4c 4c 09 43 52 4c 46 0d   X6:...CALL.CRLF.
50: 0a 58 37 3a 0d 0a 09 43 41 4c 4c 09 42 4c 4b 09   .X7:...CALL.BLK.
60: 3b 20 4f 55 54 50 55 54 20 41 20 53 50 41 43 45   ; OUTPUT A SPACE
70: 0d 0a 09 4d 4f 56 09 41 2c 4d 09 3b 20 47 45 54   ...MOV.A,M.; GET
### Disk Sector 100 ###
00: 20 43 48 41 52 41 43 54 45 52 0d 0a 09 4f 52 41    CHARACTER...ORA
10: 09 41 09 3b 20 53 45 54 20 43 4f 44 45 53 0d 0a   .A.; SET CODES..
20: 09 52 4d 09 09 3b 20 41 4c 4c 20 44 4f 4e 45 0d   .RM..; ALL DONE.
30: 0a 09 43 41 4c 4c 09 4c 4f 09 3b 20 50 52 49 4e   ..CALL.LO.; PRIN
40: 54 20 43 48 41 52 41 43 54 45 52 0d 0a 09 4d 56   T CHARACTER...MV
50: 49 09 41 2c 27 3d 27 0d 0a 09 43 41 4c 4c 09 4c   I.A,'='...CALL.L
60: 4f 09 3b 20 50 52 49 4e 54 20 27 3d 27 0d 0a 09   O.; PRINT '='...
70: 43 41 4c 4c 09 58 38 0d 0a 09 4a 4d 50 09 58 37   CALL.X8...JMP.X7
### Disk Sector 101 ###
00: 0d 0a 58 38 3a 0d 0a 09 49 4e 58 09 48 0d 0a 09   ..X8:...INX.H...
10: 4d 4f 56 09 45 2c 4d 09 3b 20 47 45 54 20 4c 4f   MOV.E,M.; GET LO
20: 20 42 59 54 45 20 4f 46 20 41 44 44 52 45 53 53    BYTE OF ADDRESS
30: 0d 0a 09 4d 56 49 09 44 2c 54 41 50 20 53 48 52   ...MVI.D,TAP SHR
40: 20 38 09 3b 20 53 45 54 20 48 49 20 42 59 54 45    8.; SET HI BYTE
50: 20 4f 46 20 41 44 44 52 45 53 53 0d 0a 09 49 4e    OF ADDRESS...IN
60: 58 09 48 09 3b 20 50 4f 49 4e 54 20 41 54 20 50   X.H.; POINT AT P
70: 52 45 43 49 53 49 4f 4e 0d 0a 09 09 09 3b 20 48   RECISION.....; H
### Disk Sector 102 ###
00: 4c 20 3d 20 54 41 42 20 41 44 44 52 45 53 53 0d   L = TAB ADDRESS.
10: 0a 09 09 09 3b 20 44 45 20 3d 20 4d 45 4d 4f 52   ....; DE = MEMOR
20: 59 20 41 44 44 52 45 53 53 0d 0a 09 4d 4f 56 09   Y ADDRESS...MOV.
30: 42 2c 4d 09 3b 20 46 45 54 43 48 20 50 52 45 43   B,M.; FETCH PREC
40: 49 53 49 4f 4e 0d 0a 09 49 4e 58 09 48 09 3b 20   ISION...INX.H.;
50: 50 4f 49 4e 54 20 54 4f 20 4e 45 58 54 0d 0a 09   POINT TO NEXT...
60: 4c 44 41 58 09 44 09 3b 20 47 45 54 20 4d 53 42   LDAX.D.; GET MSB
70: 20 4f 46 20 44 41 54 41 0d 0a 09 43 41 4c 4c 09    OF DATA...CALL.
### Disk Sector 103 ###
00: 4c 42 59 54 09 3b 20 44 49 53 50 4c 41 59 20 49   LBYT.; DISPLAY I
10: 54 0d 0a 09 44 43 52 09 42 0d 0a 09 52 5a 09 09   T...DCR.B...RZ..
20: 3b 20 38 2d 42 49 54 20 41 4c 4c 20 44 4f 4e 45   ; 8-BIT ALL DONE
30: 0d 0a 09 44 43 58 09 44 09 3b 20 50 4f 49 4e 54   ...DCX.D.; POINT
40: 20 54 4f 20 4c 53 42 0d 0a 09 4c 44 41 58 09 44    TO LSB...LDAX.D
50: 09 3b 20 46 45 54 43 48 20 49 54 0d 0a 09 4a 4d   .; FETCH IT...JM
60: 50 09 4c 42 59 54 09 3b 20 44 49 53 50 4c 41 59   P.LBYT.; DISPLAY
70: 20 49 54 0d 0a 3b 0d 0a 3b 09 2d 20 47 4f 20 54    IT..;..;.- GO T
### Disk Sector 104 ###
00: 4f 20 3c 41 44 44 52 45 53 53 3e 2c 20 4f 50 54   O <ADDRESS>, OPT
10: 49 4f 4e 41 4c 4c 59 20 53 45 54 20 54 52 41 50   IONALLY SET TRAP
20: 53 2e 0d 0a 3b 0d 0a 47 4f 54 4f 3a 0d 0a 09 43   S...;..GOTO:...C
30: 41 4c 4c 09 50 43 48 4b 09 3b 20 47 45 54 20 41   ALL.PCHK.; GET A
40: 20 43 48 41 52 41 43 54 45 52 0d 0a 09 4a 43 09    CHARACTER...JC.
50: 47 4f 33 09 3b 20 43 52 20 45 4e 54 45 52 45 44   GO3.; CR ENTERED
60: 2c 20 45 58 49 54 0d 0a 09 4a 5a 09 47 4f 30 09   , EXIT...JZ.GO0.
70: 3b 20 44 4f 4e 27 54 20 4d 4f 44 49 46 59 20 50   ; DON'T MODIFY P
### Disk Sector 105 ###
00: 43 0d 0a 09 43 41 4c 4c 09 45 58 46 09 3b 20 47   C...CALL.EXF.; G
10: 45 54 20 4e 45 57 20 50 43 20 56 41 4c 55 45 0d   ET NEW PC VALUE.
20: 0a 09 50 4f 50 09 48 09 3b 20 47 45 54 20 53 50   ..POP.H.; GET SP
30: 45 43 49 46 49 45 44 20 53 54 41 52 54 20 41 44   ECIFIED START AD
40: 44 52 45 53 53 0d 0a 09 53 48 4c 44 09 54 50 43   DRESS...SHLD.TPC
50: 09 3b 20 53 41 56 45 20 49 54 0d 0a 09 4d 4f 56   .; SAVE IT...MOV
60: 09 41 2c 42 09 3b 20 52 45 54 52 49 45 56 45 20   .A,B.; RETRIEVE
70: 44 45 4c 49 4d 49 54 45 52 0d 0a 09 43 50 49 09   DELIMITER...CPI.
### Disk Sector 106 ###
00: 43 52 0d 0a 09 4a 5a 09 47 4f 33 09 3b 20 4e 4f   CR...JZ.GO3.; NO
10: 20 54 52 41 50 53 20 54 4f 20 42 45 20 53 45 54    TRAPS TO BE SET
20: 0d 0a 47 4f 30 3a 0d 0a 09 4c 58 49 09 48 2c 54   ..GO0:...LXI.H,T
30: 31 41 09 3b 20 50 4f 49 4e 54 20 54 4f 20 54 52   1A.; POINT TO TR
40: 41 50 53 0d 0a 09 4d 56 49 09 44 2c 32 09 3b 20   APS...MVI.D,2.;
50: 53 45 54 20 4d 41 58 49 4d 55 4d 20 4f 46 20 54   SET MAXIMUM OF T
60: 57 4f 0d 0a 47 4f 31 3a 0d 0a 09 50 55 53 48 09   WO..GO1:...PUSH.
70: 48 09 3b 20 53 41 56 45 20 41 44 44 52 45 53 53   H.; SAVE ADDRESS
### Disk Sector 107 ###
00: 20 30 0d 0a 09 4d 56 49 09 43 2c 31 0d 0a 09 43    0...MVI.C,1...C
10: 41 4c 4c 09 45 58 50 52 09 3b 20 47 45 54 20 41   ALL.EXPR.; GET A
20: 20 54 52 41 50 20 41 44 44 52 45 53 53 0d 0a 09    TRAP ADDRESS...
30: 4d 4f 56 09 45 2c 42 09 3b 20 53 41 56 45 20 44   MOV.E,B.; SAVE D
40: 45 4c 49 4d 49 54 45 52 0d 0a 09 50 4f 50 09 42   ELIMITER...POP.B
50: 09 3b 20 47 45 54 20 41 44 44 52 45 53 53 20 49   .; GET ADDRESS I
60: 4e 0d 0a 09 50 4f 50 09 48 0d 0a 09 4d 4f 56 09   N...POP.H...MOV.
70: 41 2c 42 0d 0a 09 4f 52 41 09 43 0d 0a 09 4a 5a   A,B...ORA.C...JZ
### Disk Sector 108 ###
00: 09 47 4f 32 09 3b 20 44 4f 4e 27 54 20 41 4c 4c   .GO2.; DON'T ALL
10: 4f 57 20 41 0d 0a 09 4d 4f 56 09 4d 2c 43 09 3b   OW A...MOV.M,C.;
20: 20 50 55 54 20 54 52 41 50 20 41 44 44 52 45 53    PUT TRAP ADDRES
30: 53 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 4f 56 09   S...INX.H...MOV.
40: 4d 2c 42 0d 0a 09 49 4e 58 09 48 0d 0a 09 4c 44   M,B...INX.H...LD
50: 41 58 09 42 09 3b 20 46 45 54 43 48 20 4f 50 43   AX.B.; FETCH OPC
60: 4f 44 45 0d 0a 09 4d 4f 56 09 4d 2c 41 09 3b 20   ODE...MOV.M,A.;
70: 50 55 54 20 49 4e 20 54 52 41 50 20 41 44 44 52   PUT IN TRAP ADDR
### Disk Sector 109 ###
00: 45 53 53 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 56   ESS...INX.H...MV
10: 49 09 41 2c 30 43 46 48 09 3b 20 3c 52 53 54 20   I.A,0CFH.; <RST
20: 31 3e 20 49 4e 53 54 52 55 43 54 49 4f 4e 0d 0a   1> INSTRUCTION..
30: 09 53 54 41 58 09 42 09 3b 20 53 45 54 20 54 52   .STAX.B.; SET TR
40: 41 50 20 49 4e 20 4d 45 4d 4f 52 59 0d 0a 47 4f   AP IN MEMORY..GO
50: 32 3a 0d 0a 09 4d 4f 56 09 41 2c 45 09 3b 20 54   2:...MOV.A,E.; T
60: 45 53 54 20 44 45 4c 49 4d 49 54 45 52 0d 0a 09   EST DELIMITER...
70: 43 50 49 09 43 52 0d 0a 09 4a 5a 09 47 4f 33 09   CPI.CR...JZ.GO3.
### Disk Sector 110 ###
00: 3b 20 41 4c 4c 20 44 4f 4e 45 0d 0a 09 44 43 52   ; ALL DONE...DCR
10: 09 44 0d 0a 09 4a 4e 5a 09 47 4f 31 09 3b 20 47   .D...JNZ.GO1.; G
20: 4f 20 47 45 54 20 4e 45 58 54 20 54 52 41 50 0d   O GET NEXT TRAP.
30: 0a 47 4f 33 3a 0d 0a 09 43 41 4c 4c 09 43 52 4c   .GO3:...CALL.CRL
40: 46 0d 0a 09 44 49 09 09 3b 20 44 49 53 41 42 4c   F...DI..; DISABL
50: 45 20 49 4e 54 45 52 52 55 50 54 53 0d 0a 09 4c   E INTERRUPTS...L
60: 58 49 09 53 50 2c 54 41 50 09 3b 20 50 4f 49 4e   XI.SP,TAP.; POIN
70: 54 20 54 4f 20 55 53 45 52 27 53 20 50 53 57 0d   T TO USER'S PSW.
### Disk Sector 111 ###
00: 0a 09 50 4f 50 09 50 53 57 09 3b 20 53 45 54 20   ..POP.PSW.; SET
10: 50 53 57 0d 0a 09 50 4f 50 09 42 09 3b 20 53 45   PSW...POP.B.; SE
20: 54 20 42 26 43 0d 0a 09 50 4f 50 09 44 09 3b 20   T B&C...POP.D.;
30: 53 45 54 20 44 26 45 0d 0a 09 50 4f 50 09 48 09   SET D&E...POP.H.
40: 3b 20 47 45 54 20 53 50 20 56 41 4c 55 45 0d 0a   ; GET SP VALUE..
50: 09 53 50 48 4c 09 09 3b 20 53 45 54 20 53 50 0d   .SPHL..; SET SP.
60: 0a 09 4c 48 4c 44 09 54 50 43 09 3b 20 47 45 54   ..LHLD.TPC.; GET
70: 20 50 43 20 56 41 4c 55 45 0d 0a 09 50 55 53 48    PC VALUE...PUSH
### Disk Sector 112 ###
00: 09 48 09 3b 20 50 55 53 48 20 4f 4e 54 4f 20 53   .H.; PUSH ONTO S
10: 54 41 43 4b 0d 0a 09 4c 48 4c 44 09 54 48 4c 09   TACK...LHLD.THL.
20: 3b 20 53 45 54 20 48 26 4c 0d 0a 09 52 45 54 09   ; SET H&L...RET.
30: 09 3b 20 47 4f 20 21 20 21 20 21 0d 0a 3b 0d 0a   .; GO ! ! !..;..
40: 3b 09 2d 20 43 4f 4d 50 55 54 45 20 48 45 58 41   ;.- COMPUTE HEXA
50: 44 45 43 49 4d 41 4c 20 53 55 4d 20 41 4e 44 20   DECIMAL SUM AND
60: 44 49 46 46 45 52 45 4e 43 45 2e 0d 0a 3b 0d 0a   DIFFERENCE...;..
70: 48 45 58 4e 3a 09 43 41 4c 4c 09 45 58 50 52 09   HEXN:.CALL.EXPR.
### Disk Sector 113 ###
00: 3b 20 47 45 54 20 54 57 4f 20 4e 55 4d 42 45 52   ; GET TWO NUMBER
10: 53 0d 0a 09 50 4f 50 09 44 0d 0a 09 50 4f 50 09   S...POP.D...POP.
20: 48 0d 0a 09 43 41 4c 4c 09 43 52 4c 46 09 3b 20   H...CALL.CRLF.;
30: 47 52 45 45 4e 0d 0a 09 50 55 53 48 09 48 0d 0a   GREEN...PUSH.H..
40: 09 44 41 44 09 44 0d 0a 09 43 41 4c 4c 09 4c 41   .DAD.D...CALL.LA
50: 44 52 09 3b 20 44 49 53 50 4c 41 59 20 48 4c 2b   DR.; DISPLAY HL+
60: 44 45 0d 0a 09 43 41 4c 4c 09 42 4c 4b 09 3b 20   DE...CALL.BLK.;
70: 54 59 50 45 20 41 20 53 50 41 43 45 0d 0a 09 50   TYPE A SPACE...P
### Disk Sector 114 ###
00: 4f 50 09 48 0d 0a 09 43 41 4c 4c 09 53 55 42 48   OP.H...CALL.SUBH
10: 44 09 3b 20 53 55 42 54 52 41 43 54 20 44 26 45   D.; SUBTRACT D&E
20: 20 46 52 4f 4d 20 48 26 4c 0d 0a 09 4a 4d 50 09    FROM H&L...JMP.
30: 4c 41 44 52 09 3b 20 44 49 53 50 4c 41 59 20 48   LADR.; DISPLAY H
40: 4c 2d 44 45 0d 0a 3b 0d 0a 3b 09 2d 20 45 56 41   L-DE..;..;.- EVA
50: 4c 55 41 54 45 20 45 58 50 52 45 53 53 49 4f 4e   LUATE EXPRESSION
60: 3a 20 3c 45 58 50 52 3e 2c 3c 45 58 50 52 3e 2c   : <EXPR>,<EXPR>,
70: 3c 45 58 50 52 3e 2e 0d 0a 3b 0d 0a 45 58 50 52   <EXPR>...;..EXPR
### Disk Sector 115 ###
00: 3a 09 4c 58 49 09 48 2c 30 09 3b 20 49 4e 49 54   :.LXI.H,0.; INIT
10: 49 41 4c 20 56 41 4c 55 45 0d 0a 45 58 30 3a 09   IAL VALUE..EX0:.
20: 43 41 4c 4c 09 43 49 58 09 3b 20 47 45 54 20 41   CALL.CIX.; GET A
30: 20 43 48 41 52 41 43 54 45 52 0d 0a 09 43 41 4c    CHARACTER...CAL
40: 4c 09 4c 4f 0d 0a 45 58 31 3a 09 4d 4f 56 09 42   L.LO..EX1:.MOV.B
50: 2c 41 09 3b 20 53 41 56 45 20 44 45 4c 49 4d 49   ,A.; SAVE DELIMI
60: 54 45 52 0d 0a 09 43 41 4c 4c 09 4e 49 42 4c 09   TER...CALL.NIBL.
70: 3b 20 43 4f 4e 56 45 52 54 20 54 4f 20 48 45 58   ; CONVERT TO HEX
### Disk Sector 116 ###
00: 0d 0a 09 4a 43 09 45 58 32 09 3b 20 4e 4f 54 20   ...JC.EX2.; NOT
10: 4c 45 47 41 4c 20 43 48 41 52 41 43 54 45 52 0d   LEGAL CHARACTER.
20: 0a 09 44 41 44 09 48 09 3b 20 2a 32 0d 0a 09 44   ..DAD.H.; *2...D
30: 41 44 09 48 09 3b 20 2a 34 0d 0a 09 44 41 44 09   AD.H.; *4...DAD.
40: 48 09 3b 20 2a 38 0d 0a 09 44 41 44 09 48 09 3b   H.; *8...DAD.H.;
50: 20 2a 31 36 0d 0a 09 4f 52 41 09 4c 0d 0a 09 4d    *16...ORA.L...M
60: 4f 56 09 4c 2c 41 0d 0a 09 4a 4d 50 09 45 58 30   OV.L,A...JMP.EX0
70: 09 3b 20 47 45 54 20 41 4e 4f 54 48 45 52 20 43   .; GET ANOTHER C
### Disk Sector 117 ###
00: 48 41 52 41 43 54 45 52 0d 0a 45 58 32 3a 09 58   HARACTER..EX2:.X
10: 54 48 4c 09 09 3b 20 47 45 54 20 52 45 54 55 52   THL..; GET RETUR
20: 4e 20 41 4e 44 20 50 55 54 20 48 4c 20 4f 4e 20   N AND PUT HL ON
30: 53 54 41 43 4b 0d 0a 09 50 55 53 48 09 48 09 3b   STACK...PUSH.H.;
40: 20 52 45 50 4c 41 43 45 20 52 45 54 55 52 4e 0d    REPLACE RETURN.
50: 0a 09 4d 4f 56 09 41 2c 42 0d 0a 09 43 41 4c 4c   ..MOV.A,B...CALL
60: 09 50 32 43 09 3b 20 54 45 53 54 20 44 45 4c 49   .P2C.; TEST DELI
70: 4d 49 54 45 52 0d 0a 09 4a 4e 43 09 45 58 33 0d   MITER...JNC.EX3.
### Disk Sector 118 ###
00: 0a 09 44 43 52 09 43 09 3b 20 43 52 20 45 4e 54   ..DCR.C.; CR ENT
10: 45 52 45 44 0d 0a 09 4a 4e 5a 09 45 58 50 52 09   ERED...JNZ.EXPR.
20: 3b 20 54 4f 4f 20 46 45 57 20 50 41 52 41 4d 45   ; TOO FEW PARAME
30: 54 45 52 53 0d 0a 09 52 45 54 0d 0a 45 58 33 3a   TERS...RET..EX3:
40: 09 4a 4e 5a 09 45 52 52 4f 52 09 3b 20 49 4c 4c   .JNZ.ERROR.; ILL
50: 45 47 41 4c 20 44 45 4c 49 4d 49 54 45 52 0d 0a   EGAL DELIMITER..
60: 09 44 43 52 09 43 0d 0a 09 4a 4e 5a 09 45 58 50   .DCR.C...JNZ.EXP
70: 52 0d 0a 09 52 45 54 0d 0a 45 58 46 3a 09 43 41   R...RET..EXF:.CA
### Disk Sector 119 ###
00: 4c 4c 09 4c 4f 09 3b 20 45 4e 54 52 59 20 50 4f   LL.LO.; ENTRY PO
10: 49 4e 54 20 46 4f 52 20 43 4f 4e 44 49 54 49 4f   INT FOR CONDITIO
20: 4e 41 4c 20 50 41 52 41 4d 45 54 45 52 0d 0a 09   NAL PARAMETER...
30: 4d 56 49 09 43 2c 31 0d 0a 09 4c 58 49 09 48 2c   MVI.C,1...LXI.H,
40: 30 0d 0a 09 4a 4d 50 09 45 58 31 0d 0a 3b 0d 0a   0...JMP.EX1..;..
50: 43 49 58 3a 09 4d 56 49 09 41 2c 32 39 09 3b 20   CIX:.MVI.A,29.;
60: 46 4f 52 45 47 52 4f 55 4e 44 0d 0a 09 43 41 4c   FOREGROUND...CAL
70: 4c 09 4c 4f 0d 0a 09 4d 56 49 09 41 2c 31 37 09   L.LO...MVI.A,17.
### Disk Sector 120 ###
00: 3b 20 52 45 44 0d 0a 09 43 41 4c 4c 09 4c 4f 0d   ; RED...CALL.LO.
10: 0a 09 4a 4d 50 09 43 49 09 3b 20 47 4f 20 52 45   ..JMP.CI.; GO RE
20: 41 44 20 46 52 4f 4d 20 43 4f 4e 53 4f 4c 45 0d   AD FROM CONSOLE.
30: 0a 3b 0d 0a 3b 09 2d 20 54 45 53 54 20 46 4f 52   .;..;.- TEST FOR
40: 20 4e 55 4c 4c 20 49 4e 50 55 54 20 50 41 52 41    NULL INPUT PARA
50: 4d 45 54 45 52 2e 0d 0a 3b 0d 0a 50 43 48 4b 3a   METER...;..PCHK:
60: 09 43 41 4c 4c 09 43 49 58 09 3b 20 47 45 54 20   .CALL.CIX.; GET
70: 41 20 43 48 41 52 41 43 54 45 52 0d 0a 50 32 43   A CHARACTER..P2C
### Disk Sector 121 ###
00: 3a 09 43 50 49 09 27 20 27 09 3b 20 49 53 20 49   :.CPI.' '.; IS I
10: 54 20 41 20 53 50 41 43 45 3f 0d 0a 09 52 5a 09   T A SPACE?...RZ.
20: 09 3b 20 59 45 53 3f 20 52 45 54 55 52 4e 21 0d   .; YES? RETURN!.
30: 0a 09 43 50 49 09 27 2c 27 09 3b 20 49 53 20 49   ..CPI.','.; IS I
40: 54 20 41 20 43 4f 4d 4d 41 3f 0d 0a 09 52 5a 09   T A COMMA?...RZ.
50: 09 3b 20 59 45 53 3f 20 52 45 54 55 52 4e 21 0d   .; YES? RETURN!.
60: 0a 09 43 50 49 09 43 52 09 3b 20 49 53 20 49 54   ..CPI.CR.; IS IT
70: 20 41 20 43 41 52 52 49 41 47 45 20 52 45 54 55    A CARRIAGE RETU
### Disk Sector 122 ###
00: 52 4e 3f 0d 0a 09 53 54 43 09 09 3b 20 53 45 54   RN?...STC..; SET
10: 20 43 41 52 52 59 0d 0a 09 43 4d 43 09 09 3b 20    CARRY...CMC..;
20: 43 4f 4d 50 4c 45 4d 45 4e 54 20 43 41 52 52 59   COMPLEMENT CARRY
30: 0d 0a 09 52 4e 5a 09 09 3b 20 4e 4f 3f 20 52 45   ...RNZ..; NO? RE
40: 54 55 52 4e 21 0d 0a 09 53 54 43 09 09 3b 20 53   TURN!...STC..; S
50: 45 54 20 43 41 52 52 59 0d 0a 09 52 45 54 09 09   ET CARRY...RET..
60: 3b 20 52 45 54 55 52 4e 0d 0a 3b 0d 0a 3b 09 2d   ; RETURN..;..;.-
70: 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4e    CARRIAGE RETURN
### Disk Sector 123 ###
00: 2c 20 4c 49 4e 45 46 45 45 44 0d 0a 3b 0d 0a 43   , LINEFEED..;..C
10: 52 4c 46 3a 09 50 55 53 48 09 48 0d 0a 09 4c 58   RLF:.PUSH.H...LX
20: 49 09 48 2c 4c 46 54 42 4c 0d 0a 09 43 41 4c 4c   I.H,LFTBL...CALL
30: 09 4f 53 54 52 0d 0a 09 50 4f 50 09 48 0d 0a 09   .OSTR...POP.H...
40: 52 45 54 0d 0a 4c 46 54 42 4c 3a 09 44 42 09 43   RET..LFTBL:.DB.C
50: 52 2c 4c 46 2c 36 2c 32 2c 32 33 39 0d 0a 3b 0d   R,LF,6,2,239..;.
60: 0a 3b 09 2d 20 50 52 49 4e 54 20 43 4f 4e 54 45   .;.- PRINT CONTE
70: 4e 54 53 20 4f 46 20 48 4c 20 49 4e 20 48 45 58   NTS OF HL IN HEX
### Disk Sector 124 ###
00: 20 4f 4e 20 43 4f 4e 53 4f 4c 45 20 44 45 56 49    ON CONSOLE DEVI
10: 43 45 0d 0a 3b 0d 0a 4c 41 44 52 3a 09 4d 4f 56   CE..;..LADR:.MOV
20: 09 41 2c 48 09 3b 20 50 52 49 4e 54 20 4d 53 42   .A,H.; PRINT MSB
30: 0d 0a 09 43 41 4c 4c 09 4c 42 59 54 0d 0a 09 4d   ...CALL.LBYT...M
40: 4f 56 09 41 2c 4c 09 3b 20 50 52 49 4e 54 20 4c   OV.A,L.; PRINT L
50: 53 42 0d 0a 09 4a 4d 50 09 4c 42 59 54 0d 0a 3b   SB...JMP.LBYT..;
60: 0d 0a 3b 09 2d 20 43 4f 4d 50 41 52 45 20 48 4c   ..;.- COMPARE HL
70: 20 57 49 54 48 20 44 45 2e 0d 0a 3b 09 2d 20 49    WITH DE...;.- I
### Disk Sector 125 ###
00: 46 20 48 4c 20 3c 20 44 45 20 54 48 45 4e 20 43   F HL < DE THEN C
10: 41 52 52 59 20 3d 20 30 2c 20 49 46 20 48 4c 20   ARRY = 0, IF HL
20: 3d 20 44 45 20 54 48 45 4e 0d 0a 3b 09 2d 20 43   = DE THEN..;.- C
30: 41 52 52 59 20 3d 20 30 2c 20 49 46 20 48 4c 20   ARRY = 0, IF HL
40: 3e 20 44 45 20 54 48 45 4e 20 43 41 52 52 59 20   > DE THEN CARRY
50: 3d 20 31 2e 0d 0a 3b 0d 0a 48 49 4c 4f 3a 09 49   = 1...;..HILO:.I
60: 4e 58 09 48 09 3b 20 42 55 4d 50 20 48 4c 0d 0a   NX.H.; BUMP HL..
70: 09 4d 4f 56 09 41 2c 48 09 3b 20 54 45 53 54 20   .MOV.A,H.; TEST
### Disk Sector 126 ###
00: 46 4f 52 20 48 4c 20 3d 20 30 0d 0a 09 4f 52 41   FOR HL = 0...ORA
10: 09 4c 0d 0a 09 53 54 43 0d 0a 09 52 5a 0d 0a 09   .L...STC...RZ...
20: 4a 4d 50 09 43 4d 50 44 48 0d 0a 3b 0d 0a 3b 09   JMP.CMPDH..;..;.
30: 2d 20 45 52 52 4f 52 20 45 58 49 54 2e 0d 0a 3b   - ERROR EXIT...;
40: 0d 0a 45 52 52 4f 52 3a 09 4c 58 49 09 48 2c 43   ..ERROR:.LXI.H,C
50: 52 54 42 4c 2d 33 0d 0a 09 4a 4d 50 09 53 54 41   RTBL-3...JMP.STA
60: 52 54 2b 33 0d 0a 3b 0d 0a 3b 09 43 49 20 2d 20   RT+3..;..;.CI -
70: 54 48 45 20 43 48 41 52 41 43 54 45 52 20 49 4e   THE CHARACTER IN
### Disk Sector 127 ###
00: 50 55 54 20 52 4f 55 54 49 4e 45 20 47 45 54 53   PUT ROUTINE GETS
10: 20 41 20 43 48 41 52 41 43 54 45 52 0d 0a 3b 09    A CHARACTER..;.
20: 09 46 52 4f 4d 20 54 48 45 20 54 45 4d 50 4f 52   .FROM THE TEMPOR
30: 41 52 59 20 53 54 4f 52 41 47 45 20 4c 4f 43 41   ARY STORAGE LOCA
40: 54 49 4f 4e 20 27 43 48 41 52 49 4e 27 2c 0d 0a   TION 'CHARIN',..
50: 3b 09 09 43 4c 45 41 52 53 20 54 48 45 20 4b 45   ;..CLEARS THE KE
60: 59 42 4f 41 52 44 20 52 45 41 44 59 20 46 4c 41   YBOARD READY FLA
70: 47 20 41 4e 44 20 52 45 54 55 52 4e 53 20 0d 0a   G AND RETURNS ..
### Disk Sector 128 ###
00: 3b 09 09 57 49 54 48 20 54 48 45 20 43 48 41 52   ;..WITH THE CHAR
10: 41 43 54 45 52 20 49 4e 20 41 2e 20 20 49 46 20   ACTER IN A.  IF
20: 54 48 45 52 45 20 49 53 20 4e 4f 20 0d 0a 3b 09   THERE IS NO ..;.
30: 09 43 48 41 52 41 43 54 45 52 20 49 4e 20 27 43   .CHARACTER IN 'C
40: 48 41 52 49 4e 27 2c 20 54 48 45 4e 20 27 43 49   HARIN', THEN 'CI
50: 27 20 57 49 4c 4c 20 48 41 4e 47 0d 0a 3b 09 09   ' WILL HANG..;..
60: 41 4e 44 20 57 41 49 54 20 46 4f 52 20 41 20 43   AND WAIT FOR A C
70: 48 41 52 41 43 54 45 52 2e 0d 0a 3b 0d 0a 43 49   HARACTER...;..CI
### Disk Sector 129 ###
00: 3a 09 45 49 09 09 3b 20 45 4e 41 42 4c 45 20 49   :.EI..; ENABLE I
10: 4e 54 45 52 52 55 50 54 53 0d 0a 09 4c 44 41 09   NTERRUPTS...LDA.
20: 43 48 41 52 49 4e 09 3b 20 47 45 54 20 43 48 41   CHARIN.; GET CHA
30: 52 41 43 54 45 52 0d 0a 09 43 50 49 09 30 09 3b   RACTER...CPI.0.;
40: 20 48 41 56 45 20 41 20 43 48 41 52 41 43 54 45    HAVE A CHARACTE
50: 52 3f 0d 0a 09 4a 5a 09 43 49 09 3b 20 49 46 20   R?...JZ.CI.; IF
60: 4e 4f 54 2c 20 48 41 4e 47 20 46 4f 52 20 43 48   NOT, HANG FOR CH
70: 41 52 41 43 54 45 52 0d 0a 09 50 55 53 48 09 50   ARACTER...PUSH.P
### Disk Sector 130 ###
00: 53 57 09 3b 20 53 41 56 45 20 43 48 41 52 41 43   SW.; SAVE CHARAC
10: 54 45 52 0d 0a 09 58 52 41 09 41 0d 0a 09 53 54   TER...XRA.A...ST
20: 41 09 4b 42 52 44 59 09 3b 20 43 4c 45 41 52 20   A.KBRDY.; CLEAR
30: 4b 45 59 42 4f 41 52 44 20 52 45 41 44 59 20 46   KEYBOARD READY F
40: 4c 41 47 0d 0a 09 53 54 41 09 43 48 41 52 49 4e   LAG...STA.CHARIN
50: 09 3b 20 43 4c 45 41 52 20 54 45 4d 50 4f 52 41   .; CLEAR TEMPORA
60: 52 59 20 53 54 4f 52 41 47 45 20 46 4f 52 20 4e   RY STORAGE FOR N
70: 45 58 54 20 43 48 41 52 0d 0a 09 50 4f 50 09 50   EXT CHAR...POP.P
### Disk Sector 131 ###
00: 53 57 09 3b 20 52 45 53 54 4f 52 45 20 43 48 41   SW.; RESTORE CHA
10: 52 41 43 54 45 52 0d 0a 09 52 45 54 09 09 3b 20   RACTER...RET..;
20: 45 43 48 4f 20 43 48 41 52 41 43 54 45 52 20 46   ECHO CHARACTER F
30: 52 4f 4d 20 4d 41 49 4e 20 52 4f 55 54 49 4e 45   ROM MAIN ROUTINE
40: 0d 0a 3b 0d 0a 3b 09 2d 20 52 45 53 54 41 52 54   ..;..;.- RESTART
50: 20 31 20 43 4f 44 45 2e 0d 0a 3b 09 2d 20 28 50    1 CODE...;.- (P
60: 52 4f 47 52 41 4d 4d 45 44 20 42 52 45 41 4b 50   ROGRAMMED BREAKP
70: 4f 49 4e 54 29 2e 0d 0a 3b 0d 0a 52 45 53 54 41   OINT)...;..RESTA
### Disk Sector 132 ###
00: 52 54 3a 44 49 09 09 3b 20 44 49 53 41 42 4c 45   RT:DI..; DISABLE
10: 20 49 4e 54 45 52 52 55 50 54 53 0d 0a 09 53 48    INTERRUPTS...SH
20: 4c 44 09 54 48 4c 09 3b 20 53 41 56 45 20 48 26   LD.THL.; SAVE H&
30: 4c 0d 0a 09 50 4f 50 09 48 09 3b 20 47 45 54 20   L...POP.H.; GET
40: 50 43 20 56 41 4c 55 45 0d 0a 09 44 43 58 09 48   PC VALUE...DCX.H
50: 09 3b 20 41 53 53 55 4d 45 20 42 52 45 41 4b 50   .; ASSUME BREAKP
60: 4f 49 4e 54 0d 0a 09 53 48 4c 44 09 54 50 43 09   OINT...SHLD.TPC.
70: 3b 20 53 41 56 45 20 50 43 0d 0a 09 50 55 53 48   ; SAVE PC...PUSH
### Disk Sector 133 ###
00: 09 50 53 57 09 3b 20 47 45 54 20 50 53 57 20 2e   .PSW.; GET PSW .
10: 2e 2e 0d 0a 09 50 4f 50 09 48 09 3b 20 2e 2e 2e   .....POP.H.; ...
20: 20 49 4e 54 4f 20 48 26 4c 0d 0a 09 53 48 4c 44    INTO H&L...SHLD
30: 20 09 54 41 50 09 3b 20 53 41 56 45 20 50 53 57    .TAP.; SAVE PSW
40: 0d 0a 09 4c 58 49 09 48 2c 30 0d 0a 09 44 41 44   ...LXI.H,0...DAD
50: 09 53 50 09 3b 20 48 4c 3d 53 50 0d 0a 09 4c 58   .SP.; HL=SP...LX
60: 49 09 53 50 2c 54 48 4c 09 3b 20 50 4f 49 4e 54   I.SP,THL.; POINT
70: 20 54 4f 20 53 54 4f 52 41 47 45 20 41 52 45 41    TO STORAGE AREA
### Disk Sector 134 ###
00: 0d 0a 09 50 55 53 48 09 48 09 3b 20 53 41 56 45   ...PUSH.H.; SAVE
10: 20 53 50 20 56 41 4c 55 45 0d 0a 09 50 55 53 48    SP VALUE...PUSH
20: 09 44 09 3b 20 53 41 56 45 20 44 26 45 0d 0a 09   .D.; SAVE D&E...
30: 50 55 53 48 09 42 09 3b 20 53 41 56 45 20 42 26   PUSH.B.; SAVE B&
40: 43 0d 0a 09 53 50 48 4c 09 09 3b 20 52 45 53 45   C...SPHL..; RESE
50: 54 20 53 50 0d 0a 09 4c 48 4c 44 09 54 50 43 09   T SP...LHLD.TPC.
60: 3b 20 47 45 54 20 50 43 20 56 41 4c 55 45 0d 0a   ; GET PC VALUE..
70: 09 58 43 48 47 09 09 3b 20 4d 4f 56 45 20 54 4f   .XCHG..; MOVE TO
### Disk Sector 135 ###
00: 20 44 26 45 0d 0a 09 4c 58 49 09 48 2c 54 31 41    D&E...LXI.H,T1A
10: 09 3b 20 50 4f 49 4e 54 20 54 4f 20 42 52 45 41   .; POINT TO BREA
20: 4b 50 4f 49 4e 54 20 41 52 45 41 0d 0a 09 4d 4f   KPOINT AREA...MO
30: 56 09 41 2c 4d 09 3b 20 54 45 53 54 20 49 46 20   V.A,M.; TEST IF
40: 54 48 49 53 20 49 53 0d 0a 09 53 55 42 09 45 09   THIS IS...SUB.E.
50: 3b 20 4f 52 20 43 4f 4e 53 4f 4c 45 20 52 45 0d   ; OR CONSOLE RE.
60: 0a 09 49 4e 58 09 48 0d 0a 09 4a 4e 5a 09 52 53   ..INX.H...JNZ.RS
70: 54 31 0d 0a 09 4d 4f 56 09 41 2c 4d 0d 0a 09 53   T1...MOV.A,M...S
### Disk Sector 136 ###
00: 55 42 09 44 0d 0a 09 4a 5a 09 52 53 54 33 0d 0a   UB.D...JZ.RST3..
10: 52 53 54 31 3a 09 49 4e 58 09 48 0d 0a 09 49 4e   RST1:.INX.H...IN
20: 58 09 48 0d 0a 09 4d 4f 56 09 41 2c 4d 0d 0a 09   X.H...MOV.A,M...
30: 53 55 42 09 45 0d 0a 09 4a 4e 5a 09 52 53 54 32   SUB.E...JNZ.RST2
40: 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 4f 56 09 41   ...INX.H...MOV.A
50: 2c 4d 0d 0a 09 53 55 42 09 44 0d 0a 09 4a 5a 09   ,M...SUB.D...JZ.
60: 52 53 54 33 0d 0a 52 53 54 32 3a 09 49 4e 58 09   RST3..RST2:.INX.
70: 44 09 3b 20 41 44 4a 55 53 54 20 50 43 20 56 41   D.; ADJUST PC VA
### Disk Sector 137 ###
00: 4c 55 45 0d 0a 52 53 54 33 3a 09 58 43 48 47 09   LUE..RST3:.XCHG.
10: 09 3b 20 48 4c 3d 50 43 20 56 41 4c 55 45 0d 0a   .; HL=PC VALUE..
20: 09 53 48 4c 44 09 54 50 43 09 3b 20 53 41 56 45   .SHLD.TPC.; SAVE
30: 20 50 43 20 56 41 4c 55 45 0d 0a 09 4c 58 49 09    PC VALUE...LXI.
40: 48 2c 4d 53 47 0d 0a 09 43 41 4c 4c 09 4f 53 54   H,MSG...CALL.OST
50: 52 0d 0a 09 4c 48 4c 44 09 54 50 43 0d 0a 09 43   R...LHLD.TPC...C
60: 41 4c 4c 09 4c 41 44 52 09 3b 20 44 49 53 50 4c   ALL.LADR.; DISPL
70: 41 59 20 50 43 0d 0a 09 4c 58 49 09 48 2c 54 31   AY PC...LXI.H,T1
### Disk Sector 138 ###
00: 41 09 3b 20 50 4f 49 4e 54 20 54 4f 20 42 52 45   A.; POINT TO BRE
10: 41 4b 50 4f 49 4e 54 20 41 52 45 41 0d 0a 09 4d   AKPOINT AREA...M
20: 56 49 09 44 2c 32 09 3b 20 53 45 54 20 43 4f 55   VI.D,2.; SET COU
30: 4e 54 20 46 4f 52 20 54 57 4f 0d 0a 52 53 54 34   NT FOR TWO..RST4
40: 3a 09 4d 4f 56 09 43 2c 4d 09 3b 20 47 45 54 20   :.MOV.C,M.; GET
50: 4c 53 42 20 4f 46 20 41 44 44 52 45 53 53 0d 0a   LSB OF ADDRESS..
60: 09 4d 56 49 09 4d 2c 30 09 3b 20 43 4c 45 41 52   .MVI.M,0.; CLEAR
70: 20 4d 45 4d 4f 52 59 0d 0a 09 49 4e 58 09 48 0d    MEMORY...INX.H.
### Disk Sector 139 ###
00: 0a 09 4d 4f 56 09 42 2c 4d 09 3b 20 47 45 54 20   ..MOV.B,M.; GET
10: 4d 53 42 20 4f 46 20 41 44 44 52 45 53 53 0d 0a   MSB OF ADDRESS..
20: 09 4d 56 49 09 4d 2c 30 0d 0a 09 49 4e 58 09 48   .MVI.M,0...INX.H
30: 0d 0a 09 4d 4f 56 09 41 2c 43 0d 0a 09 4f 52 41   ...MOV.A,C...ORA
40: 09 42 09 3b 20 54 45 53 54 20 46 4f 52 20 56 41   .B.; TEST FOR VA
50: 4c 49 44 0d 0a 09 4a 5a 09 52 53 54 35 09 3b 20   LID...JZ.RST5.;
60: 41 44 44 52 45 53 53 20 3d 20 30 2c 20 4e 4f 0d   ADDRESS = 0, NO.
70: 0a 09 4d 4f 56 09 41 2c 4d 09 3b 20 47 45 54 20   ..MOV.A,M.; GET
### Disk Sector 140 ###
00: 4f 50 43 4f 44 45 20 42 59 54 45 0d 0a 09 53 54   OPCODE BYTE...ST
10: 41 58 09 42 09 3b 20 52 45 50 4c 41 43 45 20 49   AX.B.; REPLACE I
20: 54 0d 0a 52 53 54 35 3a 09 49 4e 58 09 48 09 3b   T..RST5:.INX.H.;
30: 20 50 4f 49 4e 54 20 54 4f 20 4e 45 58 54 20 52    POINT TO NEXT R
40: 45 47 49 53 54 45 52 0d 0a 09 44 43 52 09 44 0d   EGISTER...DCR.D.
50: 0a 09 4a 4e 5a 09 52 53 54 34 09 3b 20 52 45 50   ..JNZ.RST4.; REP
60: 45 41 54 20 46 4f 52 20 54 52 41 50 0d 0a 09 4d   EAT FOR TRAP...M
70: 56 49 09 41 2c 43 52 0d 0a 09 43 41 4c 4c 09 58   VI.A,CR...CALL.X
### Disk Sector 141 ###
00: 2b 33 0d 0a 09 4a 4d 50 09 53 54 41 52 54 0d 0a   +3...JMP.START..
10: 3b 0d 0a 3b 09 2d 20 45 58 49 54 20 46 52 4f 4d   ;..;.- EXIT FROM
20: 20 4d 4f 4e 49 54 4f 52 0d 0a 3b 0d 0a 45 58 49    MONITOR..;..EXI
30: 54 3a 09 4a 4d 50 09 30 09 3b 20 43 52 54 20 4d   T:.JMP.0.; CRT M
40: 4f 44 45 0d 0a 3b 0d 0a 3b 09 2d 20 43 48 45 43   ODE..;..;.- CHEC
50: 4b 20 46 4f 52 20 42 52 45 41 4b 2f 4c 49 4e 45   K FOR BREAK/LINE
60: 46 45 45 44 0d 0a 3b 0d 0a 41 42 54 45 53 54 3a   FEED..;..ABTEST:
70: 09 4c 44 41 09 4b 42 52 44 59 0d 0a 09 43 50 49   .LDA.KBRDY...CPI
### Disk Sector 142 ###
00: 09 35 30 48 0d 0a 09 4a 5a 09 41 42 54 45 53 54   .50H...JZ.ABTEST
10: 0d 0a 09 43 50 49 09 38 30 48 0d 0a 09 52 4e 5a   ...CPI.80H...RNZ
20: 0d 0a 09 58 52 41 09 41 0d 0a 09 53 54 41 09 4b   ...XRA.A...STA.K
30: 42 52 44 59 0d 0a 09 53 54 41 09 43 48 41 52 49   BRDY...STA.CHARI
40: 4e 0d 0a 09 43 50 49 09 31 30 0d 0a 09 52 4e 5a   N...CPI.10...RNZ
50: 0d 0a 09 4a 4d 50 09 45 58 49 54 0d 0a 3b 0d 0a   ...JMP.EXIT..;..
60: 3b 09 2d 20 44 49 53 50 4c 41 59 20 41 53 43 49   ;.- DISPLAY ASCI
70: 49 20 56 41 4c 55 45 53 20 4f 46 20 4d 45 4d 4f   I VALUES OF MEMO
### Disk Sector 143 ###
00: 52 59 0d 0a 3b 0d 0a 41 53 43 49 49 3a 09 43 41   RY..;..ASCII:.CA
10: 4c 4c 09 45 58 50 52 09 3b 20 47 45 54 20 54 57   LL.EXPR.; GET TW
20: 4f 20 41 44 44 52 45 53 53 45 53 0d 0a 09 50 4f   O ADDRESSES...PO
30: 50 09 44 09 3b 20 47 45 54 20 48 49 47 48 20 41   P.D.; GET HIGH A
40: 44 44 52 45 53 53 0d 0a 09 50 4f 50 09 48 09 3b   DDRESS...POP.H.;
50: 20 47 45 54 20 4c 4f 57 20 41 44 44 52 45 53 53    GET LOW ADDRESS
60: 0d 0a 41 53 43 31 3a 09 43 41 4c 4c 09 43 52 4c   ..ASC1:.CALL.CRL
70: 46 09 3b 20 47 52 45 45 4e 0d 0a 09 43 41 4c 4c   F.; GREEN...CALL
### Disk Sector 144 ###
00: 09 4c 41 44 52 09 3b 20 50 52 49 4e 54 20 4d 45   .LADR.; PRINT ME
10: 4d 4f 52 59 20 41 44 44 52 45 53 53 0d 0a 09 4d   MORY ADDRESS...M
20: 56 49 09 41 2c 31 33 48 09 3b 20 59 45 4c 4c 4f   VI.A,13H.; YELLO
30: 57 0d 0a 09 43 41 4c 4c 09 4c 4f 0d 0a 41 53 43   W...CALL.LO..ASC
40: 4c 3a 09 43 41 4c 4c 09 42 4c 4b 09 3b 20 50 52   L:.CALL.BLK.; PR
50: 49 4e 54 20 53 50 41 43 45 0d 0a 09 4d 4f 56 09   INT SPACE...MOV.
60: 41 2c 4d 0d 0a 09 41 4e 49 09 37 46 48 09 3b 20   A,M...ANI.7FH.;
70: 4d 41 4b 45 20 41 53 43 49 49 0d 0a 09 43 50 49   MAKE ASCII...CPI
### Disk Sector 145 ###
00: 09 32 30 48 09 3b 20 44 4f 4e 27 54 20 57 41 4e   .20H.; DON'T WAN
10: 54 20 43 54 52 4c 0d 0a 09 4a 4e 43 09 41 4f 4b   T CTRL...JNC.AOK
20: 31 0d 0a 09 4d 56 49 09 41 2c 27 2e 27 09 3b 20   1...MVI.A,'.'.;
30: 53 57 41 50 20 44 4f 54 20 46 4f 52 20 43 4e 54   SWAP DOT FOR CNT
40: 4c 0d 0a 41 4f 4b 31 3a 09 43 41 4c 4c 09 4c 4f   L..AOK1:.CALL.LO
50: 09 3b 20 4f 55 54 50 55 54 20 43 48 41 52 41 43   .; OUTPUT CHARAC
60: 54 45 52 0d 0a 09 43 41 4c 4c 09 42 4c 4b 09 3b   TER...CALL.BLK.;
70: 20 50 52 49 4e 54 20 53 50 41 43 45 0d 0a 09 43    PRINT SPACE...C
### Disk Sector 146 ###
00: 41 4c 4c 09 41 42 54 45 53 54 09 3b 20 43 48 45   ALL.ABTEST.; CHE
10: 43 4b 20 46 4f 52 20 42 52 45 41 4b 0d 0a 09 43   CK FOR BREAK...C
20: 41 4c 4c 09 48 49 4c 4f 09 3b 20 43 4f 4d 50 55   ALL.HILO.; COMPU
30: 54 45 20 45 4e 44 0d 0a 09 52 43 09 09 3b 20 52   TE END...RC..; R
40: 45 54 55 52 4e 20 49 46 20 45 4e 44 0d 0a 09 4d   ETURN IF END...M
50: 4f 56 09 41 2c 4c 0d 0a 09 41 4e 49 09 30 46 48   OV.A,L...ANI.0FH
60: 09 3b 20 43 48 45 43 4b 20 54 4f 20 53 45 45 20   .; CHECK TO SEE
70: 49 46 20 31 36 20 4f 4e 20 43 52 54 0d 0a 09 4a   IF 16 ON CRT...J
### Disk Sector 147 ###
00: 4e 5a 09 41 53 43 4c 0d 0a 09 4a 4d 50 09 41 53   NZ.ASCL...JMP.AS
10: 43 31 0d 0a 3b 0d 0a 3b 09 2d 20 4e 4f 4e 2d 44   C1..;..;.- NON-D
20: 45 53 54 52 55 43 54 49 56 45 20 4d 45 4d 4f 52   ESTRUCTIVE MEMOR
30: 59 20 54 45 53 54 0d 0a 3b 09 2d 20 50 52 4f 56   Y TEST..;.- PROV
40: 49 44 45 20 53 54 41 52 54 20 41 4e 44 20 45 4e   IDE START AND EN
50: 44 20 41 44 44 52 45 53 53 45 53 0d 0a 3b 09 2d   D ADDRESSES..;.-
60: 20 43 48 45 43 4b 53 20 52 41 4d 20 4f 4e 4c 59    CHECKS RAM ONLY
70: 2e 20 44 4f 20 4e 4f 54 20 54 45 53 54 20 4d 4f   . DO NOT TEST MO
### Disk Sector 148 ###
00: 4e 49 54 4f 52 0d 0a 3b 09 2d 20 53 45 43 54 49   NITOR..;.- SECTI
10: 4f 4e 20 4f 46 20 52 41 4d 20 28 20 57 49 4c 4c   ON OF RAM ( WILL
20: 20 52 45 53 55 4c 54 20 49 4e 20 50 52 4f 47 52    RESULT IN PROGR
30: 41 4d 20 0d 0a 3b 09 2d 20 48 41 4e 47 55 50 29   AM ..;.- HANGUP)
40: 2e 0d 0a 3b 0d 0a 4e 44 4d 54 3a 09 43 41 4c 4c   ...;..NDMT:.CALL
50: 09 45 58 50 52 09 3b 20 47 45 54 20 54 57 4f 20   .EXPR.; GET TWO
60: 41 44 44 52 45 53 53 45 53 0d 0a 09 50 4f 50 09   ADDRESSES...POP.
70: 44 09 3b 20 47 45 54 20 48 49 47 48 20 41 44 44   D.; GET HIGH ADD
### Disk Sector 149 ###
00: 52 45 53 53 0d 0a 09 50 4f 50 09 48 09 3b 20 47   RESS...POP.H.; G
10: 45 54 20 4c 4f 57 20 41 44 44 52 45 53 53 0d 0a   ET LOW ADDRESS..
20: 4e 44 4c 4f 4f 50 3a 09 4d 4f 56 09 43 2c 4d 09   NDLOOP:.MOV.C,M.
30: 3b 20 53 41 56 45 20 4d 45 4d 4f 52 59 20 43 4f   ; SAVE MEMORY CO
40: 4e 54 45 4e 54 53 0d 0a 09 4d 56 49 09 42 2c 30   NTENTS...MVI.B,0
50: 46 46 48 09 3b 20 4c 4f 41 44 20 42 20 57 49 54   FFH.; LOAD B WIT
60: 48 20 27 46 46 27 0d 0a 09 4d 4f 56 09 4d 2c 42   H 'FF'...MOV.M,B
70: 09 3b 20 53 54 4f 52 45 20 49 4e 20 4d 45 4d 4f   .; STORE IN MEMO
### Disk Sector 150 ###
00: 52 59 0d 0a 09 4d 4f 56 09 41 2c 4d 09 3b 20 53   RY...MOV.A,M.; S
10: 54 4f 52 45 20 4d 45 4d 4f 52 59 20 49 4e 20 41   TORE MEMORY IN A
20: 43 43 55 4d 55 4c 41 54 4f 52 0d 0a 09 43 4d 50   CCUMULATOR...CMP
30: 09 42 09 3b 20 43 4f 4d 50 41 52 45 20 57 49 54   .B.; COMPARE WIT
40: 48 20 42 0d 0a 09 4a 4e 5a 09 4d 45 4d 45 52 52   H B...JNZ.MEMERR
50: 09 3b 20 44 49 53 50 4c 41 59 20 45 52 52 4f 52   .; DISPLAY ERROR
60: 0d 0a 09 4d 56 49 09 42 2c 30 09 3b 20 4c 4f 41   ...MVI.B,0.; LOA
70: 44 20 42 20 57 49 54 48 20 27 30 27 0d 0a 09 4d   D B WITH '0'...M
### Disk Sector 151 ###
00: 4f 56 09 4d 2c 42 09 3b 20 53 54 4f 52 45 20 49   OV.M,B.; STORE I
10: 4e 20 4d 45 4d 4f 52 59 0d 0a 09 4d 4f 56 09 41   N MEMORY...MOV.A
20: 2c 4d 09 3b 20 4d 4f 56 45 20 4d 45 4d 4f 52 59   ,M.; MOVE MEMORY
30: 20 54 4f 20 41 43 43 55 4d 55 4c 41 54 4f 52 0d    TO ACCUMULATOR.
40: 0a 09 43 4d 50 09 42 09 3b 20 43 4f 4d 50 41 52   ..CMP.B.; COMPAR
50: 45 20 57 49 54 48 20 42 0d 0a 09 4a 4e 5a 09 4d   E WITH B...JNZ.M
60: 45 4d 45 52 52 09 3b 20 44 49 53 50 4c 41 59 20   EMERR.; DISPLAY
70: 45 52 52 4f 52 0d 0a 09 4d 4f 56 09 4d 2c 43 09   ERROR...MOV.M,C.
### Disk Sector 152 ###
00: 3b 20 52 45 53 54 4f 52 45 20 4f 52 49 47 49 4e   ; RESTORE ORIGIN
10: 41 4c 20 4d 45 4d 4f 52 59 20 43 4f 4e 54 45 4e   AL MEMORY CONTEN
20: 54 53 0d 0a 09 43 41 4c 4c 09 48 49 4c 4f 09 3b   TS...CALL.HILO.;
30: 20 43 4f 4d 50 4c 45 54 45 44 3f 0d 0a 09 52 43    COMPLETED?...RC
40: 09 09 3b 20 59 45 53 3f 20 52 45 54 55 52 4e 21   ..; YES? RETURN!
50: 0d 0a 09 4a 4d 50 09 4e 44 4c 4f 4f 50 09 3b 20   ...JMP.NDLOOP.;
60: 4e 4f 3f 20 43 4f 4e 54 49 4e 55 45 21 0d 0a 3b   NO? CONTINUE!..;
70: 0d 0a 3b 09 2d 20 50 52 49 4e 54 20 4d 45 4d 4f   ..;.- PRINT MEMO
### Disk Sector 153 ###
00: 52 59 20 45 52 52 4f 52 20 41 4e 44 20 4c 4f 43   RY ERROR AND LOC
10: 41 54 49 4f 4e 0d 0a 3b 0d 0a 4d 45 4d 45 52 52   ATION..;..MEMERR
20: 3a 09 50 55 53 48 09 48 09 3b 20 53 41 56 45 20   :.PUSH.H.; SAVE
30: 41 44 44 52 45 53 53 0d 0a 09 4c 58 49 09 48 2c   ADDRESS...LXI.H,
40: 4d 53 47 31 09 3b 20 50 52 49 4e 54 20 45 52 52   MSG1.; PRINT ERR
50: 4f 52 20 4d 45 53 53 41 47 45 0d 0a 09 43 41 4c   OR MESSAGE...CAL
60: 4c 09 4f 53 54 52 09 3b 20 2e 2e 54 4f 20 54 48   L.OSTR.; ..TO TH
70: 45 20 43 52 54 0d 0a 09 50 4f 50 09 48 09 3b 20   E CRT...POP.H.;
### Disk Sector 154 ###
00: 52 45 53 54 4f 52 45 20 41 44 44 52 45 53 53 0d   RESTORE ADDRESS.
10: 0a 09 43 41 4c 4c 09 4c 41 44 52 09 3b 20 50 52   ..CALL.LADR.; PR
20: 49 4e 54 20 41 44 44 52 45 53 53 0d 0a 09 52 45   INT ADDRESS...RE
30: 54 0d 0a 3b 0d 0a 3b 09 2d 20 53 45 41 52 43 48   T..;..;.- SEARCH
40: 20 46 4f 52 20 42 59 54 45 2f 57 4f 52 44 2f 54    FOR BYTE/WORD/T
50: 48 52 45 45 20 42 59 54 45 53 0d 0a 3b 0d 0a 53   HREE BYTES..;..S
60: 52 43 48 3a 09 49 4e 52 09 43 09 3b 20 47 45 54   RCH:.INR.C.; GET
70: 20 54 48 52 45 45 20 42 59 54 45 53 0d 0a 09 49    THREE BYTES...I
### Disk Sector 155 ###
00: 4e 52 09 43 09 3b 20 2e 2e 41 4e 44 20 54 48 52   NR.C.; ..AND THR
10: 45 45 20 41 44 52 45 53 53 45 53 0d 0a 09 43 41   EE ADRESSES...CA
20: 4c 4c 09 45 58 50 52 09 3b 0d 0a 09 50 4f 50 09   LL.EXPR.;...POP.
30: 48 09 3b 20 53 54 4f 52 45 20 54 48 49 52 44 20   H.; STORE THIRD
40: 42 59 54 45 0d 0a 09 4d 4f 56 09 41 2c 48 09 3b   BYTE...MOV.A,H.;
50: 0d 0a 09 53 54 41 09 54 48 49 52 44 09 3b 0d 0a   ...STA.THIRD.;..
60: 09 50 4f 50 09 42 09 3b 20 42 59 54 45 2f 57 4f   .POP.B.; BYTE/WO
70: 52 44 0d 0a 09 50 4f 50 09 44 09 3b 20 53 4f 55   RD...POP.D.; SOU
### Disk Sector 156 ###
00: 52 43 45 20 45 4e 44 0d 0a 09 50 4f 50 09 48 09   RCE END...POP.H.
10: 3b 20 53 4f 55 52 43 45 20 42 45 47 49 4e 0d 0a   ; SOURCE BEGIN..
20: 53 31 3a 09 4d 4f 56 09 41 2c 4d 09 3b 20 4d 4f   S1:.MOV.A,M.; MO
30: 56 45 20 4d 45 4d 4f 52 59 20 43 4f 4e 54 45 4e   VE MEMORY CONTEN
40: 54 53 0d 0a 09 43 4d 50 09 42 09 3b 20 43 4f 4d   TS...CMP.B.; COM
50: 50 41 52 45 20 52 45 47 49 53 54 45 52 20 42 2d   PARE REGISTER B-
60: 31 53 54 20 42 59 54 45 0d 0a 09 4a 4e 5a 09 53   1ST BYTE...JNZ.S
70: 32 09 3b 20 4e 4f 20 4d 41 54 43 48 20 2d 20 43   2.; NO MATCH - C
### Disk Sector 157 ###
00: 48 45 43 4b 20 46 4f 52 20 4d 4f 52 45 20 42 59   HECK FOR MORE BY
10: 54 45 53 0d 0a 09 4d 4f 56 09 41 2c 43 09 3b 20   TES...MOV.A,C.;
20: 49 53 20 54 48 45 52 45 20 41 20 0d 0a 09 43 50   IS THERE A ...CP
30: 49 09 30 09 3b 20 2e 2e 53 45 43 4f 4e 44 20 42   I.0.; ..SECOND B
40: 59 54 45 3f 0d 0a 09 4a 4e 5a 09 53 34 09 3b 20   YTE?...JNZ.S4.;
50: 59 45 53 3f 20 43 4f 4d 50 41 52 45 20 56 41 4c   YES? COMPARE VAL
60: 55 45 0d 0a 09 4c 44 41 09 54 48 49 52 44 09 3b   UE...LDA.THIRD.;
70: 20 49 53 20 54 48 45 52 45 20 41 20 0d 0a 09 43    IS THERE A ...C
### Disk Sector 158 ###
00: 50 49 09 30 09 3b 20 2e 2e 54 48 49 52 44 20 42   PI.0.; ..THIRD B
10: 59 54 45 3f 0d 0a 09 4a 4e 5a 09 53 36 09 3b 20   YTE?...JNZ.S6.;
20: 59 45 53 3f 20 43 4f 4d 50 41 52 45 20 56 41 4c   YES? COMPARE VAL
30: 55 45 0d 0a 09 43 41 4c 4c 09 53 5a 09 3b 20 50   UE...CALL.SZ.; P
40: 52 49 4e 54 20 41 44 44 52 45 53 53 20 4c 4f 43   RINT ADDRESS LOC
50: 41 54 49 4f 4e 20 4f 46 20 4d 41 54 43 48 0d 0a   ATION OF MATCH..
60: 09 4a 4d 50 09 53 41 09 3b 20 43 4f 4e 54 49 4e   .JMP.SA.; CONTIN
70: 55 45 0d 0a 53 32 3a 09 4d 4f 56 09 41 2c 43 09   UE..S2:.MOV.A,C.
### Disk Sector 159 ###
00: 3b 20 49 53 20 54 48 45 52 45 20 41 20 0d 0a 09   ; IS THERE A ...
10: 43 50 49 09 30 09 3b 20 2e 2e 53 45 43 4f 4e 44   CPI.0.; ..SECOND
20: 20 42 59 54 45 3f 0d 0a 09 4a 4e 5a 09 53 33 09    BYTE?...JNZ.S3.
30: 3b 20 59 45 53 3f 20 43 4f 4d 50 41 52 45 20 56   ; YES? COMPARE V
40: 41 4c 55 45 0d 0a 09 4c 44 41 09 54 48 49 52 44   ALUE...LDA.THIRD
50: 09 3b 20 49 53 20 54 48 45 52 45 20 41 20 20 0d   .; IS THERE A  .
60: 0a 09 43 50 49 09 30 09 3b 20 2e 2e 54 48 49 52   ..CPI.0.; ..THIR
70: 44 20 42 59 54 45 3f 0d 0a 09 4a 4e 5a 09 53 35   D BYTE?...JNZ.S5
### Disk Sector 160 ###
00: 09 3b 20 59 45 53 3f 20 43 4f 4d 50 41 52 45 20   .; YES? COMPARE
10: 56 41 4c 55 45 0d 0a 09 4a 4d 50 09 53 41 09 3b   VALUE...JMP.SA.;
20: 20 4e 4f 3f 20 43 4f 4e 54 49 4e 55 45 0d 0a 53    NO? CONTINUE..S
30: 33 3a 09 49 4e 58 09 48 09 3b 20 49 4e 43 52 45   3:.INX.H.; INCRE
40: 4d 45 4e 54 20 4d 45 4d 4f 52 59 0d 0a 53 31 30   MENT MEMORY..S10
50: 3a 09 4c 44 41 09 54 48 49 52 44 09 3b 20 49 53   :.LDA.THIRD.; IS
60: 20 54 48 45 52 45 20 41 0d 0a 09 43 50 49 09 30    THERE A...CPI.0
70: 09 3b 20 2e 2e 54 48 49 52 44 20 42 59 54 45 3f   .; ..THIRD BYTE?
### Disk Sector 161 ###
00: 0d 0a 09 4a 4e 5a 09 53 41 09 3b 20 59 45 53 3f   ...JNZ.SA.; YES?
10: 20 43 4f 4e 54 49 4e 55 45 0d 0a 09 44 43 58 09    CONTINUE...DCX.
20: 48 09 3b 20 4e 4f 3f 20 44 45 43 52 45 4d 45 4e   H.; NO? DECREMEN
30: 54 20 4d 45 4d 4f 52 59 0d 0a 09 4a 4d 50 09 53   T MEMORY...JMP.S
40: 41 09 3b 20 2e 2e 41 4e 44 20 43 4f 4e 54 49 4e   A.; ..AND CONTIN
50: 55 45 0d 0a 53 34 3a 09 49 4e 58 09 48 09 3b 20   UE..S4:.INX.H.;
60: 49 4e 43 52 45 4d 45 4e 54 20 4d 45 4d 4f 52 59   INCREMENT MEMORY
70: 0d 0a 09 4d 4f 56 09 41 2c 43 09 3b 20 43 4f 4d   ...MOV.A,C.; COM
### Disk Sector 162 ###
00: 50 41 52 45 20 32 4e 44 20 42 59 54 45 0d 0a 09   PARE 2ND BYTE...
10: 43 4d 50 09 4d 09 3b 20 2e 2e 57 49 54 48 20 4d   CMP.M.; ..WITH M
20: 45 4d 4f 52 59 0d 0a 09 4a 4e 5a 09 53 31 30 09   EMORY...JNZ.S10.
30: 3b 20 4d 41 54 43 48 3f 20 4e 4f 3f 20 43 48 45   ; MATCH? NO? CHE
40: 43 4b 20 46 4f 52 20 54 48 49 52 44 20 42 59 54   CK FOR THIRD BYT
50: 45 0d 0a 09 49 4e 58 09 48 09 3b 20 59 45 53 3f   E...INX.H.; YES?
60: 20 49 4e 43 52 45 4d 45 4e 54 20 4d 45 4d 4f 52    INCREMENT MEMOR
70: 59 0d 0a 09 4c 44 41 09 54 48 49 52 44 09 3b 20   Y...LDA.THIRD.;
### Disk Sector 163 ###
00: 2e 2e 43 4f 4d 50 41 52 45 20 57 49 54 48 0d 0a   ..COMPARE WITH..
10: 09 43 4d 50 09 4d 09 3b 20 2e 2e 54 48 49 52 44   .CMP.M.; ..THIRD
20: 20 42 59 54 45 0d 0a 09 4a 5a 09 53 58 09 3b 20    BYTE...JZ.SX.;
30: 4d 41 54 43 48 3f 20 59 45 53 3f 20 50 52 49 4e   MATCH? YES? PRIN
40: 54 20 41 44 44 52 45 53 53 0d 0a 09 44 43 58 09   T ADDRESS...DCX.
50: 48 09 3b 20 4e 4f 3f 20 54 48 45 4e 0d 0a 09 43   H.; NO? THEN...C
60: 50 49 09 30 09 3b 0d 0a 09 4a 5a 09 53 59 09 3b   PI.0.;...JZ.SY.;
70: 0d 0a 09 4a 4d 50 09 53 41 09 3b 20 2e 2e 43 4f   ...JMP.SA.; ..CO
### Disk Sector 164 ###
00: 4e 54 49 4e 55 45 0d 0a 53 36 3a 09 49 4e 58 09   NTINUE..S6:.INX.
10: 48 09 3b 20 49 4e 43 52 45 4d 45 4e 54 20 4d 45   H.; INCREMENT ME
20: 4d 4f 52 59 0d 0a 09 49 4e 58 09 48 09 3b 20 49   MORY...INX.H.; I
30: 4e 43 52 45 4d 45 4e 54 20 4d 45 4d 4f 52 59 0d   NCREMENT MEMORY.
40: 0a 09 4c 44 41 09 54 48 49 52 44 09 3b 20 43 4f   ..LDA.THIRD.; CO
50: 4d 50 41 52 45 20 54 48 49 52 44 20 42 59 54 45   MPARE THIRD BYTE
60: 0d 0a 09 43 4d 50 09 4d 09 3b 20 2e 2e 57 49 54   ...CMP.M.; ..WIT
70: 48 20 4d 45 4d 4f 52 59 0d 0a 09 4a 5a 09 53 59   H MEMORY...JZ.SY
### Disk Sector 165 ###
00: 09 3b 20 4d 41 54 43 48 3f 20 59 45 53 3f 20 50   .; MATCH? YES? P
10: 52 49 4e 54 20 41 44 44 52 45 53 53 0d 0a 09 44   RINT ADDRESS...D
20: 43 58 09 48 09 3b 20 4e 4f 3f 20 44 45 43 52 45   CX.H.; NO? DECRE
30: 4d 45 4e 54 20 4d 45 4d 4f 52 59 0d 0a 09 4a 4d   MENT MEMORY...JM
40: 50 09 53 41 09 3b 20 2e 2e 41 4e 44 20 43 4f 4e   P.SA.; ..AND CON
50: 54 49 4e 55 45 0d 0a 53 35 3a 09 49 4e 58 09 48   TINUE..S5:.INX.H
60: 09 3b 20 49 4e 43 52 45 4d 45 4e 54 20 4d 45 4d   .; INCREMENT MEM
70: 4f 52 59 0d 0a 09 4a 4d 50 09 53 41 09 3b 20 2e   ORY...JMP.SA.; .
### Disk Sector 166 ###
00: 2e 41 4e 44 20 43 4f 4e 54 49 4e 55 45 0d 0a 53   .AND CONTINUE..S
10: 59 3a 09 44 43 58 09 48 09 3b 20 44 45 43 52 45   Y:.DCX.H.; DECRE
20: 4d 45 4e 54 20 4d 45 4d 4f 52 59 0d 0a 09 43 41   MENT MEMORY...CA
30: 4c 4c 09 53 5a 09 3b 20 50 52 49 4e 54 20 41 44   LL.SZ.; PRINT AD
40: 44 52 45 53 53 0d 0a 09 49 4e 58 09 48 09 3b 20   DRESS...INX.H.;
50: 49 4e 43 52 45 4d 45 4e 54 20 4d 45 4d 4f 52 59   INCREMENT MEMORY
60: 0d 0a 09 4a 4d 50 09 53 41 09 3b 20 2e 2e 41 4e   ...JMP.SA.; ..AN
70: 44 20 43 4f 4e 54 49 4e 55 45 0d 0a 53 58 3a 09   D CONTINUE..SX:.
### Disk Sector 167 ###
00: 44 43 58 09 48 09 3b 20 44 45 43 52 45 4d 45 4e   DCX.H.; DECREMEN
10: 54 20 4d 45 4d 4f 52 59 0d 0a 09 44 43 58 09 48   T MEMORY...DCX.H
20: 09 3b 20 44 45 43 52 45 4d 45 4e 54 20 4d 45 4d   .; DECREMENT MEM
30: 4f 52 59 0d 0a 09 43 41 4c 4c 09 53 5a 09 3b 20   ORY...CALL.SZ.;
40: 50 52 49 4e 54 20 41 44 44 52 45 53 53 0d 0a 09   PRINT ADDRESS...
50: 49 4e 58 09 48 09 3b 20 49 4e 43 52 45 4d 45 4e   INX.H.; INCREMEN
60: 54 20 4d 45 4d 4f 52 59 0d 0a 09 49 4e 58 09 48   T MEMORY...INX.H
70: 09 3b 20 49 4e 43 52 45 4d 45 4e 54 20 4d 45 4d   .; INCREMENT MEM
### Disk Sector 168 ###
00: 4f 52 59 0d 0a 09 4a 4d 50 09 53 41 09 3b 20 2e   ORY...JMP.SA.; .
10: 2e 41 4e 44 20 43 4f 4e 54 49 4e 55 45 0d 0a 53   .AND CONTINUE..S
20: 5a 3a 09 43 41 4c 4c 09 43 52 4c 46 09 3b 20 47   Z:.CALL.CRLF.; G
30: 52 45 45 4e 20 41 4e 44 20 43 52 2c 4c 46 0d 0a   REEN AND CR,LF..
40: 09 43 41 4c 4c 09 4c 41 44 52 09 3b 20 50 52 49   .CALL.LADR.; PRI
50: 4e 54 20 41 44 44 52 45 53 53 0d 0a 09 43 41 4c   NT ADDRESS...CAL
60: 4c 09 41 42 54 45 53 54 09 3b 20 43 48 45 43 4b   L.ABTEST.; CHECK
70: 20 46 4f 52 20 42 52 45 41 4b 0d 0a 09 52 45 54    FOR BREAK...RET
### Disk Sector 169 ###
00: 09 09 3b 20 52 45 54 55 52 4e 0d 0a 53 41 3a 09   ..; RETURN..SA:.
10: 43 41 4c 4c 09 48 49 4c 4f 09 3b 20 43 48 45 43   CALL.HILO.; CHEC
20: 4b 20 49 46 20 45 4e 44 0d 0a 09 52 43 09 09 3b   K IF END...RC..;
30: 20 45 4e 44 3f 20 59 45 53 2c 20 52 45 54 55 52    END? YES, RETUR
40: 4e 0d 0a 09 4a 4d 50 09 53 31 09 3b 20 4e 4f 3f   N...JMP.S1.; NO?
50: 20 43 4f 4e 54 49 4e 55 45 0d 0a 3b 0d 0a 3b 09    CONTINUE..;..;.
60: 2d 20 43 4f 4d 50 41 52 45 20 4d 45 4d 4f 52 59   - COMPARE MEMORY
70: 0d 0a 3b 0d 0a 43 4f 4d 50 52 3a 0d 0a 09 49 4e   ..;..COMPR:...IN
### Disk Sector 170 ###
00: 52 09 43 09 3b 20 53 45 54 20 55 50 20 46 4f 52   R.C.; SET UP FOR
10: 20 54 48 52 45 45 20 56 41 4c 55 45 53 0d 0a 09    THREE VALUES...
20: 43 41 4c 4c 09 45 58 50 52 09 3b 20 47 45 54 20   CALL.EXPR.; GET
30: 41 44 44 52 45 53 53 45 53 0d 0a 09 50 4f 50 09   ADDRESSES...POP.
40: 42 09 3b 20 4d 45 4d 4f 52 59 20 54 4f 20 42 45   B.; MEMORY TO BE
50: 20 43 4f 4d 50 41 52 45 44 0d 0a 09 50 4f 50 09    COMPARED...POP.
60: 44 09 3b 20 53 4f 55 52 43 45 20 45 4e 44 0d 0a   D.; SOURCE END..
70: 09 50 4f 50 09 48 09 3b 20 53 4f 55 52 43 45 20   .POP.H.; SOURCE
### Disk Sector 171 ###
00: 42 45 47 49 4e 0d 0a 43 4d 50 31 3a 09 50 55 53   BEGIN..CMP1:.PUS
10: 48 09 44 09 3b 20 53 41 56 45 20 44 0d 0a 09 50   H.D.; SAVE D...P
20: 55 53 48 09 42 09 3b 20 53 41 56 45 20 42 0d 0a   USH.B.; SAVE B..
30: 09 50 4f 50 09 44 09 3b 20 4d 4f 56 45 20 42 20   .POP.D.; MOVE B
40: 54 4f 20 44 0d 0a 09 4d 4f 56 09 41 2c 4d 09 3b   TO D...MOV.A,M.;
50: 20 4d 4f 56 45 20 4d 45 4d 4f 52 59 20 54 4f 20    MOVE MEMORY TO
60: 41 43 43 55 4d 2e 0d 0a 09 58 43 48 47 09 09 3b   ACCUM....XCHG..;
70: 20 45 58 43 48 41 4e 47 45 20 48 4c 26 44 45 0d    EXCHANGE HL&DE.
### Disk Sector 172 ###
00: 0a 09 43 4d 50 09 4d 09 3b 20 43 4f 4d 50 41 52   ..CMP.M.; COMPAR
10: 45 20 4d 45 4d 4f 52 59 20 54 4f 20 41 43 43 55   E MEMORY TO ACCU
20: 4d 2e 0d 0a 09 4a 4e 5a 09 44 53 50 09 3b 20 4a   M....JNZ.DSP.; J
30: 55 4d 50 20 49 46 20 4e 4f 54 20 45 51 55 41 4c   UMP IF NOT EQUAL
40: 0d 0a 43 4d 50 32 3a 09 49 4e 58 09 48 09 3b 20   ..CMP2:.INX.H.;
50: 49 4e 43 52 45 4d 45 4e 54 20 4d 45 4d 4f 52 59   INCREMENT MEMORY
60: 20 43 4f 4d 50 41 52 45 44 0d 0a 09 58 43 48 47    COMPARED...XCHG
70: 09 09 3b 20 45 58 48 41 4e 47 45 20 48 4c 26 44   ..; EXHANGE HL&D
### Disk Sector 173 ###
00: 45 0d 0a 09 50 55 53 48 09 44 09 3b 20 53 41 56   E...PUSH.D.; SAV
10: 45 20 44 0d 0a 09 50 4f 50 09 42 09 3b 20 52 45   E D...POP.B.; RE
20: 53 54 4f 52 45 20 42 0d 0a 09 50 4f 50 09 44 09   STORE B...POP.D.
30: 3b 20 52 45 53 54 4f 52 45 20 44 0d 0a 09 43 41   ; RESTORE D...CA
40: 4c 4c 09 48 49 4c 4f 09 3b 20 43 48 45 43 4b 20   LL.HILO.; CHECK
50: 49 46 20 45 4e 44 0d 0a 09 52 43 09 09 3b 20 45   IF END...RC..; E
60: 4e 44 3f 20 59 45 53 2c 52 45 54 55 52 4e 0d 0a   ND? YES,RETURN..
70: 09 4a 4d 50 09 43 4d 50 31 09 3b 20 4e 4f 3f 20   .JMP.CMP1.; NO?
### Disk Sector 174 ###
00: 43 4f 4e 54 49 4e 55 45 0d 0a 44 53 50 3a 09 58   CONTINUE..DSP:.X
10: 43 48 47 09 09 3b 20 45 58 43 48 41 4e 47 45 20   CHG..; EXCHANGE
20: 48 4c 20 26 20 44 45 0d 0a 09 43 41 4c 4c 09 43   HL & DE...CALL.C
30: 52 4c 46 09 3b 20 47 52 45 45 4e 0d 0a 09 43 41   RLF.; GREEN...CA
40: 4c 4c 09 4c 41 44 52 09 3b 20 50 52 49 4e 54 20   LL.LADR.; PRINT
50: 41 44 44 52 45 53 53 0d 0a 09 4d 56 49 09 41 2c   ADDRESS...MVI.A,
60: 27 20 27 09 3b 20 50 52 49 4e 54 20 53 50 41 43   ' '.; PRINT SPAC
70: 45 0d 0a 09 43 41 4c 4c 09 4c 4f 09 3b 0d 0a 09   E...CALL.LO.;...
### Disk Sector 175 ###
00: 4d 4f 56 09 41 2c 4d 09 3b 20 50 52 49 4e 54 20   MOV.A,M.; PRINT
10: 44 41 54 41 0d 0a 09 43 41 4c 4c 09 4c 42 59 54   DATA...CALL.LBYT
20: 09 3b 0d 0a 09 4d 56 49 09 41 2c 27 20 27 09 3b   .;...MVI.A,' '.;
30: 20 50 52 49 4e 54 20 53 50 41 43 45 0d 0a 09 43    PRINT SPACE...C
40: 41 4c 4c 09 4c 4f 09 3b 0d 0a 09 58 43 48 47 09   ALL.LO.;...XCHG.
50: 09 3b 20 45 58 43 48 41 4e 47 45 20 48 4c 20 26   .; EXCHANGE HL &
60: 20 44 45 0d 0a 09 43 41 4c 4c 09 4c 41 44 52 09    DE...CALL.LADR.
70: 3b 20 50 52 49 4e 54 20 41 44 44 52 45 53 53 0d   ; PRINT ADDRESS.
### Disk Sector 176 ###
00: 0a 09 4d 56 49 09 41 2c 27 20 27 09 3b 20 50 52   ..MVI.A,' '.; PR
10: 49 4e 54 20 53 50 41 43 45 0d 0a 09 43 41 4c 4c   INT SPACE...CALL
20: 09 4c 4f 09 3b 0d 0a 09 4d 4f 56 09 41 2c 4d 09   .LO.;...MOV.A,M.
30: 3b 20 50 52 49 4e 54 20 44 41 54 41 0d 0a 09 43   ; PRINT DATA...C
40: 41 4c 4c 09 4c 42 59 54 09 3b 0d 0a 09 43 41 4c   ALL.LBYT.;...CAL
50: 4c 09 41 42 54 45 53 54 09 3b 20 43 48 45 43 4b   L.ABTEST.; CHECK
60: 20 46 4f 52 20 42 52 45 41 4b 0d 0a 09 4a 4d 50    FOR BREAK...JMP
70: 09 43 4d 50 32 09 3b 20 52 45 54 55 52 4e 0d 0a   .CMP2.; RETURN..
### Disk Sector 177 ###
00: 3b 0d 0a 3b 09 2d 20 4d 45 4d 4f 52 59 20 45 52   ;..;.- MEMORY ER
10: 52 4f 52 20 4d 45 53 53 41 47 45 0d 0a 3b 0d 0a   ROR MESSAGE..;..
20: 4d 53 47 31 3a 09 44 42 09 31 37 2c 27 4d 45 4d   MSG1:.DB.17,'MEM
30: 4f 52 59 20 45 52 52 4f 52 20 40 20 27 2c 32 33   ORY ERROR @ ',23
40: 39 0d 0a 3b 0d 0a 3b 09 2d 20 52 45 53 54 41 52   9..;..;.- RESTAR
50: 54 20 4d 45 53 53 41 47 45 2e 0d 0a 3b 0d 0a 4d   T MESSAGE...;..M
60: 53 47 3a 09 44 42 09 31 32 2c 43 52 2c 4c 46 2c   SG:.DB.12,CR,LF,
70: 27 42 52 45 41 4b 20 40 20 27 2c 32 33 39 0d 0a   'BREAK @ ',239..
### Disk Sector 178 ###
00: 3b 0d 0a 3b 09 2d 20 4c 4f 42 59 54 45 20 4f 46   ;..;.- LOBYTE OF
10: 20 41 44 44 52 45 53 53 45 53 20 4f 46 20 52 45    ADDRESSES OF RE
20: 47 49 53 54 45 52 20 53 54 4f 52 41 47 45 20 41   GISTER STORAGE A
30: 52 45 41 3a 0d 0a 3b 0d 0a 41 4c 4f 43 09 45 51   REA:..;..ALOC.EQ
40: 55 09 54 41 50 2b 31 20 41 4e 44 20 32 35 35 0d   U.TAP+1 AND 255.
50: 0a 42 4c 4f 43 09 45 51 55 09 54 42 43 2b 31 20   .BLOC.EQU.TBC+1
60: 41 4e 44 20 32 35 35 0d 0a 43 4c 4f 43 09 45 51   AND 255..CLOC.EQ
70: 55 09 54 42 43 20 20 20 41 4e 44 20 32 35 35 0d   U.TBC   AND 255.
### Disk Sector 179 ###
00: 0a 44 4c 4f 43 09 45 51 55 09 54 44 45 2b 31 20   .DLOC.EQU.TDE+1
10: 41 4e 44 20 32 35 35 0d 0a 45 4c 4f 43 09 45 51   AND 255..ELOC.EQ
20: 55 09 54 44 45 20 20 20 41 4e 44 20 32 35 35 0d   U.TDE   AND 255.
30: 0a 46 4c 4f 43 09 45 51 55 09 54 41 50 20 20 20   .FLOC.EQU.TAP
40: 41 4e 44 20 32 35 35 0d 0a 48 4c 4f 43 09 45 51   AND 255..HLOC.EQ
50: 55 09 54 48 4c 2b 31 20 41 4e 44 20 32 35 35 0d   U.THL+1 AND 255.
60: 0a 4c 4c 4f 43 09 45 51 55 09 54 48 4c 20 20 20   .LLOC.EQU.THL
70: 41 4e 44 20 32 35 35 0d 0a 50 4c 4f 43 09 45 51   AND 255..PLOC.EQ
### Disk Sector 180 ###
00: 55 09 54 50 43 2b 31 20 41 4e 44 20 32 35 35 0d   U.TPC+1 AND 255.
10: 0a 53 4c 4f 43 09 45 51 55 09 54 53 50 2b 31 20   .SLOC.EQU.TSP+1
20: 41 4e 44 20 32 35 35 0d 0a 3b 0d 0a 3b 09 2d 20   AND 255..;..;.-
30: 54 41 42 4c 45 20 46 4f 52 20 41 43 43 45 53 53   TABLE FOR ACCESS
40: 49 4e 47 20 52 45 47 49 53 54 45 52 53 2e 0d 0a   ING REGISTERS...
50: 3b 09 2d 20 31 20 52 45 47 49 53 54 45 52 20 49   ;.- 1 REGISTER I
60: 44 45 4e 54 49 46 49 45 52 2e 0d 0a 3b 09 2d 20   DENTIFIER...;.-
70: 32 20 4c 4f 42 59 54 45 20 4f 46 20 53 54 4f 52   2 LOBYTE OF STOR
### Disk Sector 181 ###
00: 41 47 45 20 41 44 44 52 45 53 53 0d 0a 3b 09 2d   AGE ADDRESS..;.-
10: 20 33 20 50 52 45 43 49 53 49 4f 4e 2e 0d 0a 3b    3 PRECISION...;
20: 0d 0a 41 43 54 42 4c 3a 0d 0a 09 44 42 09 27 41   ..ACTBL:...DB.'A
30: 27 2c 41 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 42   ',ALOC,1...DB.'B
40: 27 2c 42 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 43   ',BLOC,1...DB.'C
50: 27 2c 43 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 44   ',CLOC,1...DB.'D
60: 27 2c 44 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 45   ',DLOC,1...DB.'E
70: 27 2c 45 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 46   ',ELOC,1...DB.'F
### Disk Sector 182 ###
00: 27 2c 46 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 48   ',FLOC,1...DB.'H
10: 27 2c 48 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 4c   ',HLOC,1...DB.'L
20: 27 2c 4c 4c 4f 43 2c 31 0d 0a 09 44 42 09 27 4d   ',LLOC,1...DB.'M
30: 27 2c 48 4c 4f 43 2c 32 0d 0a 09 44 42 09 27 50   ',HLOC,2...DB.'P
40: 27 2c 50 4c 4f 43 2c 32 0d 0a 09 44 42 09 27 53   ',PLOC,2...DB.'S
50: 27 2c 53 4c 4f 43 2c 32 0d 0a 09 44 42 09 30 46   ',SLOC,2...DB.0F
60: 46 48 09 3b 20 54 41 42 4c 45 20 54 45 52 4d 49   FH.; TABLE TERMI
70: 4e 41 54 49 4f 4e 0d 0a 54 48 49 52 44 3a 09 44   NATION..THIRD:.D
### Disk Sector 183 ###
00: 53 09 31 09 3b 20 53 54 4f 52 45 20 53 52 43 48   S.1.; STORE SRCH
10: 20 54 48 49 52 44 20 42 59 54 45 0d 0a 09 45 4e    THIRD BYTE...EN
20: 44 09 43 49 49 4e 49 54 0d 0a 00 00 00 00 00 00   D.CIINIT........
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   ................