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