; DA8085 Version 1.3B7 ; Disassembly of mon80.bin ; File is 4096D[01000H] bytes ; sof=0000 eof=0FFF mem=1000 rom=F800 ; Out of Range Label Definitions IOBYTE EQU 00003H ; A0004 EQU 00004H ; A0008 EQU 00008H ; A0009 EQU 00009H ; A000A EQU 0000AH ; A000F EQU 0000FH ; A0011 EQU 00011H ; A0013 EQU 00013H ; A0014 EQU 00014H ; A0064 EQU 00064H ; A00FF EQU 000FFH ; A0100 EQU 00100H ; A01FF EQU 001FFH ; A03E8 EQU 003E8H ; A03FF EQU 003FFH ; A04FF EQU 004FFH ; PTR1 EQU 01F80H ; A1F82 EQU 01F82H ; A1F83 EQU 01F83H ; A1F84 EQU 01F84H ; A2710 EQU 02710H ; SIGNON EQU 0384BH ; AFFEE EQU 0FFEEH ; AFFF8 EQU 0FFF8H ; ; Port Definitions TTYD EQU 00000H ; TTYS EQU 00001H ; P0002 EQU 00002H ; P0003 EQU 00003H ; CRTD EQU 00004H ; CRTS EQU 00005H ; P0006 EQU 00006H ; P00FF EQU 000FFH ; ASEG ; ASCII character equates BS EQU 008H HT EQU 009H LF EQU 00AH CR EQU 00DH ; 320 symbols defined ; Origin set to 3000H, Binary file delta set to 0000 ORG 03000H ; Hex/ASCII dump of file ; Addr 0 1 2 3 4 5 6 7 8 9 A B C D E F 0123456789ABCDEF ; 0000 C3 00 00 C3 00 00 C3 FA 35 C3 39 36 C3 00 00 C3 ........5.96.... ; 0010 5A 36 C3 00 00 C3 00 00 C3 00 00 C3 99 33 C3 6E Z6...........3.n ; 0020 34 C3 B9 34 C3 1E 35 C3 B9 35 C3 6A 35 C3 36 30 4..4..5..5.j5.60 ; 0030 C3 75 36 C3 00 00 0E 03 CD 33 38 E1 7D FE 03 D2 .u6......38.}... ; 0040 2A 38 32 84 1F E1 22 82 1F E1 22 80 1F C3 DA 30 *82..."..."....0 ; 0050 2A 80 1F 7E 23 22 80 1F C9 3C E6 07 FE 06 DA 63 *..~#"...<.....c ; 0060 30 C6 03 FE 05 DA 6A 30 C6 02 C6 41 4F C3 94 30 0.....j0...AO..0 ; 0070 06 04 4E CD 94 30 23 05 C2 72 30 0E 20 C3 94 30 ..N..0#..r0. ..0 ; 0080 F5 0F 0F 0F 0F E6 0F CD 8D 30 F1 E6 0F C6 90 27 .........0.....' ; 0090 CE 40 27 4F 3A 84 1F A7 CA 09 38 3D CA 0C 38 CD .@'O:.....8=..8. ; 00A0 0C 38 C3 09 38 7A E6 38 0F 0F 0F C9 CD A5 30 87 .8..8z.8......0. ; 00B0 4F 21 89 33 09 4E CD 94 30 23 4E CD 94 30 0E 20 O!.3.N..0#N..0. ; 00C0 CD 94 30 C3 94 30 CD A5 30 E6 06 FE 06 C2 59 30 ..0..0..0.....Y0 ; 00D0 0E 53 CD 94 30 0E 50 C3 94 30 0E 0D CD 94 30 0E .S..0.P..0....0. ; 00E0 0A CD 94 30 2A 82 1F EB 2A 80 1F 2B CD 36 38 DA ...0*...*..+.68. ; 00F0 1E 38 0E 2E CD 94 30 7C CD 80 30 7D CD 80 30 0E .8....0|..0}..0. ; 0100 20 CD 94 30 CD 94 30 CD 50 30 57 21 8C 32 01 11 ..0..0.P0W!.2.. ; 0110 00 BE CA 7E 32 23 0D C2 11 31 0E 0A BE CA 60 32 ...~2#...1....`2 ; 0120 23 0D C2 1C 31 0E 06 BE CA 43 32 23 0D C2 27 31 #...1....C2#..'1 ; 0130 E6 C0 FE 40 CA 29 32 FE 80 CA 1A 32 7A E6 C7 D6 ...@.)2....2z... ; 0140 04 CA 0B 32 3D CA 05 32 3D CA F1 31 7A E6 C0 CA ...2=..2=..1z... ; 0150 BD 31 7A E6 C7 D6 C0 CA B2 31 D6 02 CA A7 31 D6 .1z......1....1. ; 0160 02 CA 94 31 D6 03 CA 85 31 7A E6 07 4F 21 80 33 ...1....1z..O!.3 ; 0170 09 CD 70 30 CD A5 30 FE 06 C2 14 32 21 7D 33 CD ..p0..0....2!}3. ; 0180 70 30 C3 DA 30 21 79 33 CD 70 30 CD A5 30 CD 80 p0..0!y3.p0..0.. ; 0190 30 C3 DA 30 0E 43 CD 94 30 CD AC 30 0E 2E CD 94 0..0.C..0..0.... ; 01A0 30 CD 51 32 C3 DA 30 0E 4A CD 94 30 CD AC 30 C3 0.Q2..0.J..0..0. ; 01B0 9C 31 0E 52 CD 94 30 CD AC 30 C3 DA 30 21 61 33 .1.R..0..0..0!a3 ; 01C0 7A E6 0F 3D CA DB 31 FE 04 DA CE 31 D6 05 87 87 z..=..1....1.... ; 01D0 4F 09 CD 70 30 CD C6 30 C3 DA 30 CD 70 30 CD C6 O..p0..0..0.p0.. ; 01E0 30 0E 2C CD 94 30 0E 30 CD 94 30 CD 51 32 C3 76 0.,..0.0..0.Q2.v ; 01F0 32 21 5D 33 CD 70 30 CD A5 30 CD 59 30 0E 2C CD 2!]3.p0..0.Y0.,. ; 0200 94 30 C3 6B 32 21 59 33 C3 0E 32 21 55 33 CD 70 .0.k2!Y3..2!U3.p ; 0210 30 CD A5 30 CD 59 30 C3 DA 30 7A E6 38 0F 4F 21 0..0.Y0..0z.8.O! ; 0220 35 33 09 CD 70 30 C3 3A 32 21 31 33 CD 70 30 CD 53..p0.:2!13.p0. ; 0230 A5 30 CD 59 30 0E 2C CD 94 30 7A E6 07 CD 59 30 .0.Y0.,..0z...Y0 ; 0240 C3 DA 30 79 87 87 4F 21 15 33 09 CD 70 30 C3 9C ..0y..O!.3..p0.. ; 0250 31 CD 50 30 57 CD 50 30 CD 80 30 7A CD 80 30 C9 1.P0W.P0..0z..0. ; 0260 79 87 87 4F 21 ED 32 09 CD 70 30 0E 30 CD 94 30 y..O!.2..p0.0..0 ; 0270 CD 50 30 CD 80 30 0E 48 CD 94 30 C3 DA 30 79 87 .P0..0.H..0..0y. ; 0280 87 4F 21 A9 32 09 CD 70 30 C3 DA 30 00 07 0F 17 .O!.2..p0..0.... ; 0290 1F 27 2F 37 3F 76 C9 E3 E9 EB F3 F9 FB C6 CE D3 .'/7?v.......... ; 02A0 D6 DB DE E6 EE F6 FE 22 2A 32 3A C3 CD 45 49 20 ......."*2:..EI ; 02B0 20 53 50 48 4C 44 49 20 20 58 43 48 47 50 43 48 SPHLDI XCHGPCH ; 02C0 4C 58 54 48 4C 52 45 54 20 48 4C 54 20 43 4D 43 LXTHLRET HLT CMC ; 02D0 20 53 54 43 20 43 4D 41 20 44 41 41 20 52 41 52 STC CMA DAA RAR ; 02E0 20 52 41 4C 20 52 52 43 20 52 4C 43 20 4E 4F 50 RAL RRC RLC NOP ; 02F0 20 43 50 49 20 4F 52 49 20 58 52 49 20 41 4E 49 CPI ORI XRI ANI ; 0300 20 53 42 49 20 49 4E 20 20 53 55 49 20 4F 55 54 SBI IN SUI OUT ; 0310 20 41 43 49 20 41 44 49 20 43 41 4C 4C 4A 4D 50 ACI ADI CALLJMP ; 0320 20 4C 44 41 20 53 54 41 20 4C 48 4C 44 53 48 4C LDA STA LHLDSHL ; 0330 44 4D 4F 56 20 41 44 44 20 41 44 43 20 53 55 42 DMOV ADD ADC SUB ; 0340 20 53 42 42 20 41 4E 41 20 58 52 41 20 4F 52 41 SBB ANA XRA ORA ; 0350 20 43 4D 50 20 49 4E 52 20 44 43 52 20 4D 56 49 CMP INR DCR MVI ; 0360 20 4C 58 49 20 53 54 41 58 49 4E 58 20 44 41 44 LXI STAXINX DAD ; 0370 20 4C 44 41 58 44 43 58 20 52 53 54 20 50 53 57 LDAXDCX RST PSW ; 0380 20 50 4F 50 20 50 55 53 48 4E 5A 5A 20 4E 43 43 POP PUSHNZZ NCC ; 0390 20 50 4F 50 45 50 20 4D 20 CD 48 38 F5 CD 48 38 POPEP M .H8..H8 ; 03A0 FE 2C C2 2A 38 F1 FE 32 0E 02 CA 24 38 FE 34 CA .,.*8..2...$8.4. ; 03B0 B7 33 FE 38 C2 2A 38 0E 03 CD 33 38 CD 30 38 3E .3.8.*8...38.08> ; 03C0 30 D3 01 3E 00 32 04 00 D3 FF C1 D1 E1 E5 D5 C5 0..>.2.......... ; 03D0 CD 5C 34 AE A6 C2 E7 33 03 CD 36 38 D2 D0 33 C3 .\4....3..68..3. ; 03E0 F4 33 CD 5C 34 AE A6 C4 03 35 03 CD 36 38 D2 E2 .3.\4....5..68.. ; 03F0 33 C3 2A 38 3A 04 00 FE 64 C2 0E 34 01 FF 04 CD 3.*8:...d..4.... ; 0400 53 34 0B 78 A7 C2 FF 33 C1 D1 E1 C3 EE 34 21 04 S4.x...3.....4!. ; 0410 00 34 7E D3 FF C1 D1 E1 E5 D5 C5 7E 2F D3 03 79 .4~........~/..y ; 0420 2F D3 02 78 2F 07 07 07 07 E6 30 F6 40 D3 01 00 /..x/.....0.@... ; 0430 00 F6 80 D3 01 CD 53 34 E6 70 D3 01 03 CD 36 38 ......S4.p....68 ; 0440 D2 1B 34 3E 00 D3 01 26 5A CD 53 34 25 C2 49 34 ..4>...&Z.S4%.I4 ; 0450 C3 F4 33 D5 1E 4E 1D C2 56 34 D1 C9 78 2F 07 07 ..3..N..V4..x/.. ; 0460 07 07 E6 30 D3 01 79 2F D3 02 DB 02 2F C9 CD 48 ...0..y/..../..H ; 0470 38 F5 CD 48 38 FE 2C C2 2A 38 F1 FE 32 CA 27 38 8..H8.,.*8..2.'8 ; 0480 FE 34 C2 8B 34 11 FF 01 C3 93 34 FE 38 C2 2A 38 .4..4.....4.8.*8 ; 0490 11 FF 03 D5 0E 01 CD 33 38 CD 30 38 D1 E1 01 00 .......38.08.... ; 04A0 00 19 EB 3E 1E D3 01 CD 5C 34 77 BE C2 2A 38 03 ...>....\4w..*8. ; 04B0 CD 36 38 D2 A7 34 C3 1E 38 CD 48 38 F5 CD 48 38 .68..4..8.H8..H8 ; 04C0 FE 2C C2 2A 38 F1 FE 32 CA 21 38 FE 34 C2 D6 34 .,.*8..2.!8.4..4 ; 04D0 11 FF 01 C3 DE 34 FE 38 C2 2A 38 11 FF 03 D5 0E .....4.8.*8..... ; 04E0 01 CD 33 38 CD 30 38 D1 E1 19 EB 01 00 00 3E 30 ..38.08.......>0 ; 04F0 D3 01 CD 5C 34 BE C4 06 35 03 CD 36 38 D2 F2 34 ...\4...5..68..4 ; 0500 C3 1E 38 CD 5C 34 C5 F5 CD 30 38 CD 39 38 CD 2D ..8.\4...08.98.- ; 0510 38 7E CD 3C 38 CD 2D 38 F1 CD 3C 38 C1 C9 CD 48 8~.<8.-8..<8...H ; 0520 38 F5 0D CD 33 38 E1 F1 FE 2C CA 3A 35 FE 20 C2 8...38...,.:5. . ; 0530 2A 38 CD 06 38 FE FF C2 32 35 CD 06 38 FE 2A CA *8..8...25..8.*. ; 0540 1E 38 CD 62 35 CA 3A 35 CD 3F 38 DA 2A 38 07 07 .8.b5.:5.?8.*8.. ; 0550 07 07 4F CD 06 38 CD 3F 38 DA 2A 38 81 77 23 C3 ..O..8.?8.*8.w#. ; 0560 3A 35 A7 C8 FE 0D C8 FE 0A C9 06 0A CD 06 38 FE :5............8. ; 0570 47 C2 6A 35 05 C2 6C 35 CD 06 38 FE 45 C8 FE 42 G.j5..l5..8.E..B ; 0580 C2 78 35 36 01 CD 06 38 FE 4C CA A7 35 FE 4E CA .x56...8.L..5.N. ; 0590 A7 35 FE 58 CA A7 35 FE 48 CA A6 35 FE 50 CA A6 .5.X..5.H..5.P.. ; 05A0 35 FE 2E C2 2A 38 37 7E 17 77 D2 85 35 CD 06 38 5...*87~.w..5..8 ; 05B0 FE 46 C2 2A 38 23 C3 78 35 CD 33 38 CD EE 35 0E .F.*8#.x5.38..5. ; 05C0 FF CD 0C 38 CD EE 35 D1 E1 E5 D5 06 20 7E D5 CD ...8..5..... ~.. ; 05D0 42 38 D1 CD 36 38 DA E3 35 05 C2 CD 35 CD 45 38 B8..68..5...5.E8 ; 05E0 C3 CB 35 0E 2A CD 0C 38 CD EE 35 C3 1E 38 06 14 ..5.*..8..5..8.. ; 05F0 0E 00 CD 0C 38 05 C2 F2 35 C9 D5 3E FE D3 05 00 ....8...5..>.... ; 0600 3E FF D3 05 16 FF CD 2C 36 C2 06 36 16 04 CD 24 >......,6..6...$ ; 0610 36 DB 04 5F 16 FF CD 2C 36 CA 16 36 16 FF CD 24 6.._...,6..6...$ ; 0620 36 7B D1 C9 15 3E 00 BA C8 C3 24 36 DB 05 E6 01 6{...>....$6.... ; 0630 F5 15 AF BA CA 2A 38 F1 C9 DB 05 E6 40 C2 39 36 .....*8.....@.96 ; 0640 3E FB D3 05 DB 05 E6 40 CA 44 36 3E FF D3 05 DB >......@.D6>.... ; 0650 05 E6 80 C2 4F 36 DB 06 2F C9 DB 05 E6 20 C2 5A ....O6../.... .Z ; 0660 36 79 2F D3 06 3E F7 D3 05 DB 05 E6 20 CA 69 36 6y/..>...... .i6 ; 0670 3E FF D3 05 C9 0E 01 CD 33 38 C1 79 A7 CA 2A 38 >.......38.y..*8 ; 0680 FE 08 D2 2A 38 32 84 1F 07 07 67 2E FF 22 82 1F ...*82....g..".. ; 0690 2E F8 54 5D 36 FF 2C C2 94 36 21 00 01 CD DD 36 ..T]6.,..6!....6 ; 06A0 12 1C 3A 83 1F D6 04 BC D2 9D 36 C6 05 47 21 00 ..:.......6..G!. ; 06B0 01 CD E1 36 2F 12 CD 30 38 2A 82 1F 2E F8 16 00 ...6/..08*...... ; 06C0 7A 86 57 CD 3C 38 0E 2C CD 09 38 2C 7D BB DA C0 z.W.<8.,..8,}... ; 06D0 36 21 00 01 CD E1 36 CD 3C 38 C3 1E 38 7C C6 04 6!....6.<8..8|.. ; 06E0 47 0E 00 79 86 4F 23 7C B8 DA E3 36 79 C9 00 00 G..y.O#|...6y... ; 06F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ ; 0700 3C 1B 1A CD D9 3D 04 0E 2D CD 79 3C CD 5D 3E DA <....=..-.y<.]>. ; 0710 98 38 CA 2A 3C E5 C5 CD AE 3D E1 F1 C5 F5 7D 12 .8.*<....=....}. ; 0720 C1 05 CA 28 3C 13 7C 12 C1 E1 7E B7 FA 98 38 78 ...(<.|...~...8x ; 0730 FE 0D CA 98 38 C3 EE 3B CD 08 3D CD 77 3C 7E 23 ....8..;..=.w<~# ; 0740 B7 FA 98 38 4F CD 79 3C 0E 3D CD 79 3C 7E 23 EB ...8O.y<.=.y<~#. ; 0750 6F 26 00 39 EB 46 23 1A CD D9 3D 05 CA 3B 3C 1B o&.9.F#...=..;<. ; 0760 1A CD D9 3D C3 3B 3C CD 13 3E 11 F8 FF 19 F9 0E ...=.;<..>...... ; 0770 2A CD 79 3C C3 98 38 0E 20 3A 03 00 E6 03 C2 A4 *.y<..8. :...... ; 0780 3C CD 98 3C 79 FE 0D C9 0E 05 CD 98 3C CD D4 3C <......O..?.(>.O ; 07D0 82 57 79 C9 3A 03 00 E6 03 C2 E7 3C DB 01 E6 01 .Wy.:......<.... ; 07E0 C2 DC 3C DB 00 2F C9 FE 01 C2 F8 3C DB 05 E6 01 ..<../.....<.... ; 07F0 C2 EC 3C DB 04 C3 E5 3C FE 02 CA B7 3E C3 00 30 ..<....<....>..0 ; 0800 C3 56 38 C3 D4 3C C3 B7 3E C3 79 3C C3 8F 3E C3 .V8..<..>.y<..>. ; 0810 F5 3D C3 12 3D C3 C6 3D C3 CA 3D C3 0A 3E C3 98 .=..=..=..=..>.. ; 0820 38 C3 87 39 C3 9C 3A C3 64 3B C3 67 3C C3 77 3C 8..9..:.d;.g<.w< ; 0830 C3 08 3D C3 82 3D C3 B6 3D C3 D1 3D C3 D9 3D C3 ..=..=..=..=..=. ; 0840 28 3E C3 42 3E C3 6D 3E C3 86 3F 0D 0A 38 30 38 (>.B>.m>..?..808 ; 0850 30 20 56 34 2E 30 21 03 00 36 3C 2E FF 25 7E 2F 0 V4.0!..6<..%~/ ; 0860 77 BE 2F 77 C2 5D 38 23 06 12 11 D5 3F 1B 1A 2B w./w.]8#....?..+ ; 0870 77 05 C2 6D 38 F9 21 00 01 E5 26 00 E5 E5 E5 3E w..m8.!...&....> ; 0880 C3 32 08 00 21 1B 3F 22 09 00 21 4B 38 16 0B 4E .2..!.?"..!K8..N ; 0890 23 CD 79 3C 15 C2 8F 38 FB 3E 08 D3 01 CD 08 3D #.y<...8.>.....= ; 08A0 0E 2E CD 79 3C CD 86 3F D6 41 FA 98 38 FE 18 F2 ...y<..?.A..8... ; 08B0 67 3C 87 21 BF 38 85 6F 7E 23 66 6F 0E 02 E9 EF g<.!.8.o~#fo.... ; 08C0 38 3E 39 21 30 BD 39 DE 39 00 3A 11 3A 5B 3A 67 8>9!0.9.9.:.:[:g ; 08D0 3C 67 3C 67 3C 78 3A 83 3A 96 3A 2D 30 1B 30 30 . ; 0950 11 10 27 CD 40 3D 11 E8 03 CD 40 3D 11 64 00 CD ..'.@=....@=.d.. ; 0960 40 3D 1E 0A CD 40 3D 1E 01 06 30 CD 40 3D 0E 20 @=...@=...0.@=. ; 0970 CD 8F 3E D1 E1 CD 5F 3D CD B6 3D DA 96 3A 7D E6 ..>..._=..=..:}. ; 0980 03 C2 75 39 C3 49 39 0D CD 82 3D E1 1E 00 3E 00 ..u9.I9...=...>. ; 0990 D3 01 7B 2F D3 02 CD 37 3D DB 02 2F BE CA B5 39 ..{/...7=../...9 ; 09A0 F5 CD 08 3D CD D1 3D CD 77 3C 7E CD D9 3D CD 77 ...=..=.w<~..=.w ; 09B0 3C F1 CD D9 3D 23 1C C2 8E 39 C3 98 38 CD 82 3D <...=#...9..8..= ; 09C0 D1 E1 CD 08 3D CD D1 3D CD 77 3C 7E CD D9 3D CD ....=..=.w<~..=. ; 09D0 B6 3D DA 98 38 7D E6 0F C2 C8 39 C3 C2 39 0D CD .=..8}....9..9.. ; 09E0 82 3D CD 6D 3E 0E 3A CD 8F 3E AF 57 CD 42 3E E1 .=.m>.:..>.W.B>. ; 09F0 CD 3A 3E 3E 01 CD 42 3E AF 92 CD 42 3E C3 96 3A .:>>..B>...B>..: ; 0A00 0C CD 82 3D C1 D1 E1 71 CD B6 3D D2 07 3A C3 98 ...=...q..=..:.. ; 0A10 38 CD 5D 3E DA 53 3A CA 2B 3A CD AE 3D D1 21 13 8.]>.S:.+:..=.!. ; 0A20 00 39 72 2B 73 78 FE 0D CA 53 3A 16 02 21 14 00 .9r+sx...S:..!.. ; 0A30 39 E5 0E 01 CD 82 3D 58 C1 E1 78 B1 CA 49 3A 71 9.....=X..x..I:q ; 0A40 23 70 23 0A 77 23 3E CF 02 7B FE 0D CA 53 3A 15 #p#.w#>..{...S:. ; 0A50 C2 31 3A CD 08 3D 21 08 00 39 E9 CD 82 3D D1 E1 .1:..=!..9...=.. ; 0A60 CD 08 3D E5 19 CD D1 3D CD 77 3C E1 7D 93 6F 7C ..=....=.w<.}.o| ; 0A70 9A 67 CD D1 3D C3 98 38 0D CD 82 3D E1 CD 2A 30 .g..=..8...=..*0 ; 0A80 C3 98 38 0C CD 82 3D C1 D1 E1 7E 02 03 CD B6 3D ..8...=...~....= ; 0A90 D2 8A 3A C3 98 38 CD E9 3D C3 98 38 0C CD 82 3D ..:..8..=..8...= ; 0AA0 CD 08 3D C1 D1 E1 3E 00 D3 01 79 D3 FF 2F D3 02 ..=...>...y../.. ; 0AB0 DB 02 2F BE CA E5 3A 06 F0 CD 77 3E DB 02 2F BE ../...:...w>../. ; 0AC0 CA D8 3A 04 C2 B9 3A C5 0E 24 CD 79 3C CD 77 3C ..:...:..$.y<.w< ; 0AD0 C1 79 CD D9 3D C3 67 3C 78 C6 11 87 87 47 CD 77 .y..=.g...:...=..:..8. ; 0AF0 CD 82 3D E1 E5 CD 12 3F 06 3A 90 C2 F3 3A 57 CD ..=....?.:...:W. ; 0B00 BD 3C CA 25 3B 5F CD BD 3C F5 CD BD 3C C1 4F 09 .<.%;_..<...<.O. ; 0B10 CD BD 3C CD BD 3C 77 23 1D C2 13 3B CD BD 3C C2 ..<...g< ; 0B40 E1 7E CD D9 3D 0E 2D CD 79 3C CD 5D 3E DA 98 38 .~..=.-.y<.]>..8 ; 0B50 CA 60 3B E5 CD AE 3D D1 E1 73 78 FE 0D CA 98 38 .`;...=..sx....8 ; 0B60 23 C3 41 3B 0D CD 82 3D E1 1E 00 3E 00 D3 01 7B #.A;...=...>...{ ; 0B70 2F D3 02 CD 37 3D DB 02 2F 77 23 1C C2 6B 3B C3 /...7=../w#..k;. ; 0B80 98 38 CD 82 3D CD 08 3D D1 E1 7D C6 10 4F 7C CE .8..=..=..}..O|. ; 0B90 00 47 7B 91 4F 7A 98 DA 9F 3B 3E 10 C3 A2 3B 79 .G{.Oz...;>...;y ; 0BA0 C6 11 B7 CA 98 38 D5 5F 16 00 CD 6D 3E 0E 3A CD .....8._...m>.:. ; 0BB0 8F 3E 7B CD 42 3E CD 3A 3E AF CD 42 3E 7E 23 CD .>{.B>.:>..B>~#. ; 0BC0 42 3E 1D C2 BD 3B AF 92 CD 42 3E D1 C3 8A 3B CD B>...;...B>...;. ; 0BD0 86 3F 21 D5 3F FE 0D CA 38 3C BE CA EB 3B F5 7E .?!.?...8<...;.~ ; 0BE0 B7 FA 67 3C 23 23 23 F1 C3 DA 3B CD 77 3C 23 7E ..g<###...;.w<#~ ; 0BF0 EB 6F 26 00 39 EB 23 46 23 1A CD D9 3D 05 CA 06 .o&.9.#F#...=... ; 0C00 3C 1B 1A CD D9 3D 04 0E 2D CD 79 3C CD 5D 3E DA <....=..-.y<.]>. ; 0C10 98 38 CA 2A 3C E5 C5 CD AE 3D E1 F1 C5 F5 7D 12 .8.*<....=....}. ; 0C20 C1 05 CA 28 3C 13 7C 12 C1 E1 7E B7 FA 98 38 78 ...(<.|...~...8x ; 0C30 FE 0D CA 98 38 C3 EE 3B CD 08 3D CD 77 3C 7E 23 ....8..;..=.w<~# ; 0C40 B7 FA 98 38 4F CD 79 3C 0E 3D CD 79 3C 7E 23 EB ...8O.y<.=.y<~#. ; 0C50 6F 26 00 39 EB 46 23 1A CD D9 3D 05 CA 3B 3C 1B o&.9.F#...=..;<. ; 0C60 1A CD D9 3D C3 3B 3C CD 13 3E 11 F8 FF 19 F9 0E ...=.;<..>...... ; 0C70 2A CD 79 3C C3 98 38 0E 20 3A 03 00 E6 03 C2 A4 *.y<..8. :...... ; 0C80 3C CD 98 3C 79 FE 0D C0 0E 05 CD 98 3C CD D4 3C <......O..?.(>.O ; 0CD0 82 57 79 C9 3A 03 00 E6 03 C2 E7 3C DB 01 E6 01 .Wy.:......<.... ; 0CE0 C2 DC 3C DB 00 2F C9 FE 01 C2 F8 3C DB 05 E6 01 ..<../.....<.... ; 0CF0 C2 EC 3C DB 04 C3 E5 3C FE 02 CA B7 3E C3 00 30 ..<....<....>..0 ; 0D00 C6 90 27 CE 40 27 4F C9 0E 0D CD 79 3C 0E 0A C3 ..'.@'O....y<... ; 0D10 79 3C 3A 03 00 E6 03 C2 1F 3D DB 01 C3 26 3D FE y<:......=...&=. ; 0D20 01 C2 2D 3D DB 05 E6 01 3E 00 C0 2F C9 FE 02 3E ..-=....>../...> ; 0D30 FF CA 2A 3D C3 18 30 C5 06 54 05 C2 3A 3D C1 C9 ..*=..0..T..:=.. ; 0D40 0E 30 7D 93 6F 7C 9A 67 DA 4F 3D 0C C3 42 3D 19 .0}.o|.g.O=..B=. ; 0D50 79 FE 30 C2 5A 3D 48 C3 8F 3E 06 30 C3 57 3D 0E y.0.Z=H..>.0.W=. ; 0D60 42 CD 8F 3E 06 08 7E 07 F5 3E 00 17 17 C6 4E 4F B..>..~..>....NO ; 0D70 CD 8F 3E F1 05 C2 67 3D 0E 46 CD 8F 3E 0E 20 C3 ..>...g=.F..>. . ; 0D80 8F 3E 21 00 00 CD 86 3F 47 CD 28 3E DA 98 3D 29 .>!....?G.(>..=) ; 0D90 29 29 29 B5 6F C3 85 3D E3 E5 78 CD 60 3E D2 A6 ))).o..=..x.`>.. ; 0DA0 3D 0D C2 67 3C C9 C2 67 3C 0D C2 82 3D C9 0E 01 =..g<..g<...=... ; 0DB0 21 00 00 C3 88 3D 23 7C B5 37 C8 7B 95 7A 9C C9 !....=#|.7.{.z.. ; 0DC0 CD 00 3D C3 79 3C 3A 03 00 C9 E5 21 03 00 71 E1 ..=.y<:....!..q. ; 0DD0 C9 7C CD D9 3D 7D C3 D9 3D F5 0F 0F 0F 0F E6 0F .|..=}..=....... ; 0DE0 CD C0 3D F1 E6 0F C3 C0 3D 06 3C 0E 00 CD 8F 3E ..=.....=.<....> ; 0DF0 05 C2 EB 3D C9 3A 03 00 E6 C0 CA 98 3C FE 40 CA ...=.:......<.@. ; 0E00 A9 3C FE 80 CA 12 30 C3 15 30 E5 CD 13 3E 44 3E .<....0..0...>D> ; 0E10 C0 E1 C9 C5 21 FF 00 25 7E 2F 77 BE 2F 77 C2 17 ....!..%~/w./w.. ; 0E20 3E 23 01 EE FF 09 C1 C9 D6 30 D8 C6 E9 D8 C6 06 >#.......0...... ; 0E30 F2 36 3E C6 07 D8 C6 0A B7 C9 7C CD 42 3E 7D C3 .6>.......|.B>}. ; 0E40 42 3E F5 0F 0F 0F 0F E6 0F CD 00 3D CD 8F 3E F1 B>.........=..>. ; 0E50 F5 E6 0F CD 00 3D CD 8F 3E F1 82 57 C9 CD 86 3F .....=..>..W...? ; 0E60 FE 20 C8 FE 2C C8 FE 0D 37 3F C0 37 C9 0E 0D CD . ..,...7?.7.... ; 0E70 8F 3E 0E 0A C3 8F 3E 7E 2F D3 03 3E 80 D3 01 3E .>....>~/..>...> ; 0E80 00 D3 01 C5 06 14 CD 37 3D 05 C2 86 3E C1 C9 3A .......7=...>..: ; 0E90 03 00 E6 30 CA 98 3C FE 10 C2 AF 3E DB 01 E6 40 ...0..<....>...@ ; 0EA0 CA 9C 3E 79 D3 03 3E 0A D3 01 3E 08 D3 01 C9 FE ..>y..>...>..... ; 0EB0 20 CA 0C 30 C3 0F 30 E5 21 03 00 7E E6 0C C2 E4 ..0..0.!..~.... ; 0EC0 3E 3E 09 D3 01 3E 08 D3 01 26 FF E6 01 CA DE 3E >>...>...&.....> ; 0ED0 CD 37 3D CD 37 3D 25 C2 C5 3E AF 37 E1 C9 DB 00 .7=.7=%..>.7.... ; 0EE0 2F B7 E1 C9 FE 04 C2 09 3F 3E 0C D3 01 3E 08 D3 /.......?>...>.. ; 0EF0 01 26 FA DB 01 E6 20 C2 04 3F CD 37 3D 25 C2 F3 .&.... ..?.7=%.. ; 0F00 3E C3 DA 3E DB 03 B7 E1 C9 E1 FE 08 CA 06 30 C3 >..>..........0. ; 0F10 09 30 CD B7 3E DA 67 3C E6 7F C9 E5 D5 C5 F5 CD .0..>.g<........ ; 0F20 13 3E EB 21 0A 00 39 06 04 EB 2B 72 2B 73 D1 05 .>.!..9...+r+s.. ; 0F30 C2 2A 3F C1 0B F9 21 14 00 39 7E 91 23 C2 45 3F .*?...!..9~.#.E? ; 0F40 7E 90 CA 53 3F 23 23 7E 91 C2 52 3F 23 7E 90 CA ~..S?##~..R?#~.. ; 0F50 53 3F 03 21 0F 00 39 73 23 72 23 23 71 23 70 C5 S?.!..9s#r##q#p. ; 0F60 0E 2A CD 79 3C E1 CD D1 3D 21 14 00 39 16 02 4E .*.y<...=!..9..N ; 0F70 36 00 23 46 36 00 23 79 B0 CA 7E 3F 7E 02 23 15 6.#F6.#y..~?~.#. ; 0F80 C2 6F 3F C3 98 38 CD D4 3C E6 7F C5 4F CD 79 3C .o?..8..<...O.y< ; 0F90 79 C1 C9 43 FC A3 3F 52 F3 AB 3F 50 CF B3 3F 4C y..C..?R..?P..?L ; 0FA0 3F BB 3F 54 00 43 01 42 02 31 03 54 00 50 04 31 ?.?T.C.B.1.T.P.1 ; 0FB0 08 32 0C 54 00 50 10 31 20 32 30 54 00 43 40 31 .2.T.P.1 20T.C@1 ; 0FC0 80 32 C0 D1 C1 F1 E1 F9 FB 21 00 00 C3 00 00 00 .2.......!...... ; 0FD0 00 00 00 00 00 41 05 01 42 03 01 43 02 01 44 01 .....A..B..C..D. ; 0FE0 01 45 00 01 46 04 01 48 10 01 4C 0F 01 4D 10 02 .E..F..H..L..M.. ; 0FF0 50 13 02 53 07 02 FF 7B 38 00 00 00 00 00 00 00 P..S...{8....... ;******************************* ; Start code segment CILOC: JMP RST0 ;3000-C3 00 00 COLOC: JMP RST0 ;3003-C3 00 00 R1LOC: JMP J35FA ;3006-C3 FA 35 R2LOC: JMP J3639 ;3009-C3 39 36 P1LOC: JMP RST0 ;300C-C3 00 00 P2LOC: JMP J365A ;300F-C3 5A 36 L1LOC: JMP RST0 ;3012-C3 00 00 L2LOC: JMP RST0 ;3015-C3 00 00 J3018: JMP RST0 ;3018-C3 00 00 DPROG: JMP J3399 ;301B-C3 99 33 DTRAN: JMP J346E ;301E-C3 6E 34 DCOMP: JMP J34B9 ;3021-C3 B9 34 JMP J351E ;3024-C3 1E 35 JMP J35B9 ;3027-C3 B9 35 ;******************************* ; Start Subroutine C302A: JMP J356A ;302A-C3 6A 35 JMP J3036 ;302D-C3 36 30 JMP J3675 ;3030-C3 75 36 JMP RST0 ;3033-C3 00 00 J3036: MVI C,003H ;3036-0E 03 CALL DOEXPR ;3038-CD 33 38 POP H ;303B-E1 MOV A,L ;303C-7D CPI 003H ;303D-FE 03 JNC DOLER ;303F-D2 2A 38 STA A1F84 ;3042-32 84 1F POP H ;3045-E1 SHLD A1F82 ;3046-22 82 1F POP H ;3049-E1 SHLD PTR1 ;304A-22 80 1F JMP LOOP ;304D-C3 DA 30 ;******************************* ; Start Subroutine STPTR1: LHLD PTR1 ;3050-2A 80 1F MOV A,M ;3053-7E INX H ;3054-23 SHLD PTR1 ;3055-22 80 1F RET ;3058-C9 ISBDH: INR A ;3059-3C ANI 007H ;305A-E6 07 CPI 006H ;305C-FE 06 JC ISBDH0 ;305E-DA 63 30 ADI 003H ;3061-C6 03 ISBDH0: CPI 005H ;3063-FE 05 JC ISBDH1 ;3065-DA 6A 30 ADI 002H ;3068-C6 02 ISBDH1: ADI 'A' ;306A-C6 41 MOV C,A ;306C-4F JMP CHROUT ;306D-C3 94 30 ;******************************* ; Start Subroutine 4CHOUT: MVI B,004H ;3070-06 04 STROUT: MOV C,M ;3072-4E CALL CHROUT ;3073-CD 94 30 INX H ;3076-23 DCR B ;3077-05 JNZ STROUT ;3078-C2 72 30 MVI C,' ' ;307B-0E 20 JMP CHROUT ;307D-C3 94 30 ;******************************* ; Start Subroutine BYTOUT: PUSH PSW ;3080-F5 RRC ;3081-0F RRC ;3082-0F RRC ;3083-0F RRC ;3084-0F ANI 00FH ;3085-E6 0F CALL NIBOUT ;3087-CD 8D 30 POP PSW ;308A-F1 ANI 00FH ;308B-E6 0F ;******************************* ; Start Subroutine NIBOUT: ADI 090H ;308D-C6 90 DAA ;308F-27 ACI '@' ;3090-CE 40 DAA ;3092-27 MOV C,A ;3093-4F CHROUT: LDA A1F84 ;3094-3A 84 1F ANA A ;3097-A7 JZ DOCO ;3098-CA 09 38 DCR A ;309B-3D JZ DOPO ;309C-CA 0C 38 CALL DOPO ;309F-CD 0C 38 JMP DOCO ;30A2-C3 09 38 ;******************************* ; Start Subroutine GETDDD: MOV A,D ;30A5-7A ANI '8' ;30A6-E6 38 RRC ;30A8-0F RRC ;30A9-0F RRC ;30AA-0F RET ;30AB-C9 ;******************************* ; Start Subroutine PSWOUT: CALL GETDDD ;30AC-CD A5 30 ADD A ;30AF-87 MOV C,A ;30B0-4F LXI H,PSWBIT ;30B1-21 89 33 DAD B ;30B4-09 MOV C,M ;30B5-4E CALL CHROUT ;30B6-CD 94 30 INX H ;30B9-23 MOV C,M ;30BA-4E CALL CHROUT ;30BB-CD 94 30 MVI C,' ' ;30BE-0E 20 CALL CHROUT ;30C0-CD 94 30 JMP CHROUT ;30C3-C3 94 30 ;******************************* ; Start Subroutine ISSP: CALL GETDDD ;30C6-CD A5 30 ANI 006H ;30C9-E6 06 CPI 006H ;30CB-FE 06 JNZ ISBDH ;30CD-C2 59 30 MVI C,'S' ;30D0-0E 53 CALL CHROUT ;30D2-CD 94 30 MVI C,'P' ;30D5-0E 50 JMP CHROUT ;30D7-C3 94 30 LOOP: MVI C,CR ;30DA-0E 0D CALL CHROUT ;30DC-CD 94 30 MVI C,LF ;30DF-0E 0A CALL CHROUT ;30E1-CD 94 30 LHLD A1F82 ;30E4-2A 82 1F XCHG ;30E7-EB LHLD PTR1 ;30E8-2A 80 1F DCX H ;30EB-2B CALL DOHILO ;30EC-CD 36 38 JC DOSTART ;30EF-DA 1E 38 MVI C,'.' ;30F2-0E 2E CALL CHROUT ;30F4-CD 94 30 MOV A,H ;30F7-7C CALL BYTOUT ;30F8-CD 80 30 MOV A,L ;30FB-7D CALL BYTOUT ;30FC-CD 80 30 MVI C,' ' ;30FF-0E 20 CALL CHROUT ;3101-CD 94 30 CALL CHROUT ;3104-CD 94 30 CALL STPTR1 ;3107-CD 50 30 MOV D,A ;310A-57 LXI H,ONEBYT ;310B-21 8C 32 LXI B,A0011 ;310E-01 11 00 J3111: CMP M ;3111-BE JZ DO1BYT ;3112-CA 7E 32 INX H ;3115-23 DCR C ;3116-0D JNZ J3111 ;3117-C2 11 31 MVI C,LF ;311A-0E 0A J311C: CMP M ;311C-BE JZ DOD8 ;311D-CA 60 32 INX H ;3120-23 DCR C ;3121-0D JNZ J311C ;3122-C2 1C 31 MVI C,006H ;3125-0E 06 J3127: CMP M ;3127-BE JZ DOADI ;3128-CA 43 32 INX H ;312B-23 DCR C ;312C-0D JNZ J3127 ;312D-C2 27 31 ANI 0C0H ;3130-E6 C0 CPI '@' ;3132-FE 40 JZ DOMOV ;3134-CA 29 32 CPI 080H ;3137-FE 80 JZ DOADD ;3139-CA 1A 32 MOV A,D ;313C-7A ANI 0C7H ;313D-E6 C7 SUI 004H ;313F-D6 04 JZ DOINR ;3141-CA 0B 32 DCR A ;3144-3D JZ DODCR ;3145-CA 05 32 DCR A ;3148-3D JZ DOMVI ;3149-CA F1 31 MOV A,D ;314C-7A ANI 0C0H ;314D-E6 C0 JZ DOLXI ;314F-CA BD 31 MOV A,D ;3152-7A ANI 0C7H ;3153-E6 C7 SUI 0C0H ;3155-D6 C0 JZ DORET ;3157-CA B2 31 SUI 002H ;315A-D6 02 JZ DOJMP ;315C-CA A7 31 SUI 002H ;315F-D6 02 JZ DOCALL ;3161-CA 94 31 SUI 003H ;3164-D6 03 JZ DORST ;3166-CA 85 31 MOV A,D ;3169-7A ANI 007H ;316A-E6 07 MOV C,A ;316C-4F LXI H,POPMSG ;316D-21 80 33 DAD B ;3170-09 CALL 4CHOUT ;3171-CD 70 30 CALL GETDDD ;3174-CD A5 30 CPI 006H ;3177-FE 06 JNZ J3214 ;3179-C2 14 32 LXI H,PSWMSG ;317C-21 7D 33 CALL 4CHOUT ;317F-CD 70 30 JMP LOOP ;3182-C3 DA 30 DORST: LXI H,RSTMSG ;3185-21 79 33 CALL 4CHOUT ;3188-CD 70 30 CALL GETDDD ;318B-CD A5 30 CALL BYTOUT ;318E-CD 80 30 JMP LOOP ;3191-C3 DA 30 DOCALL: MVI C,'C' ;3194-0E 43 CALL CHROUT ;3196-CD 94 30 CALL PSWOUT ;3199-CD AC 30 DOADR: MVI C,'.' ;319C-0E 2E CALL CHROUT ;319E-CD 94 30 CALL ADROUT ;31A1-CD 51 32 JMP LOOP ;31A4-C3 DA 30 DOJMP: MVI C,'J' ;31A7-0E 4A CALL CHROUT ;31A9-CD 94 30 CALL PSWOUT ;31AC-CD AC 30 JMP DOADR ;31AF-C3 9C 31 DORET: MVI C,'R' ;31B2-0E 52 CALL CHROUT ;31B4-CD 94 30 CALL PSWOUT ;31B7-CD AC 30 JMP LOOP ;31BA-C3 DA 30 DOLXI: LXI H,LXIMSG ;31BD-21 61 33 MOV A,D ;31C0-7A ANI 00FH ;31C1-E6 0F DCR A ;31C3-3D JZ DOD16 ;31C4-CA DB 31 CPI 004H ;31C7-FE 04 JC J31CE ;31C9-DA CE 31 SUI 005H ;31CC-D6 05 J31CE: ADD A ;31CE-87 ADD A ;31CF-87 MOV C,A ;31D0-4F DAD B ;31D1-09 CALL 4CHOUT ;31D2-CD 70 30 CALL ISSP ;31D5-CD C6 30 JMP LOOP ;31D8-C3 DA 30 DOD16: CALL 4CHOUT ;31DB-CD 70 30 CALL ISSP ;31DE-CD C6 30 MVI C,',' ;31E1-0E 2C CALL CHROUT ;31E3-CD 94 30 MVI C,'0' ;31E6-0E 30 CALL CHROUT ;31E8-CD 94 30 CALL ADROUT ;31EB-CD 51 32 JMP J3276 ;31EE-C3 76 32 DOMVI: LXI H,MVIMSG ;31F1-21 5D 33 CALL 4CHOUT ;31F4-CD 70 30 CALL GETDDD ;31F7-CD A5 30 CALL ISBDH ;31FA-CD 59 30 MVI C,',' ;31FD-0E 2C CALL CHROUT ;31FF-CD 94 30 JMP HEXOUT ;3202-C3 6B 32 DODCR: LXI H,DCRMSG ;3205-21 59 33 JMP J320E ;3208-C3 0E 32 DOINR: LXI H,INRMSG ;320B-21 55 33 J320E: CALL 4CHOUT ;320E-CD 70 30 CALL GETDDD ;3211-CD A5 30 J3214: CALL ISBDH ;3214-CD 59 30 JMP LOOP ;3217-C3 DA 30 DOADD: MOV A,D ;321A-7A ANI '8' ;321B-E6 38 RRC ;321D-0F MOV C,A ;321E-4F LXI H,ADDMSG ;321F-21 35 33 DAD B ;3222-09 CALL 4CHOUT ;3223-CD 70 30 JMP DOSSS ;3226-C3 3A 32 DOMOV: LXI H,MOVMSG ;3229-21 31 33 CALL 4CHOUT ;322C-CD 70 30 CALL GETDDD ;322F-CD A5 30 CALL ISBDH ;3232-CD 59 30 MVI C,',' ;3235-0E 2C CALL CHROUT ;3237-CD 94 30 DOSSS: MOV A,D ;323A-7A ANI 007H ;323B-E6 07 CALL ISBDH ;323D-CD 59 30 JMP LOOP ;3240-C3 DA 30 DOADI: MOV A,C ;3243-79 ADD A ;3244-87 ADD A ;3245-87 MOV C,A ;3246-4F LXI H,ADIMSG ;3247-21 15 33 DAD B ;324A-09 CALL 4CHOUT ;324B-CD 70 30 JMP DOADR ;324E-C3 9C 31 ;******************************* ; Start Subroutine ADROUT: CALL STPTR1 ;3251-CD 50 30 MOV D,A ;3254-57 CALL STPTR1 ;3255-CD 50 30 CALL BYTOUT ;3258-CD 80 30 MOV A,D ;325B-7A CALL BYTOUT ;325C-CD 80 30 RET ;325F-C9 DOD8: MOV A,C ;3260-79 ADD A ;3261-87 ADD A ;3262-87 MOV C,A ;3263-4F LXI H,NOPMSG ;3264-21 ED 32 DAD B ;3267-09 CALL 4CHOUT ;3268-CD 70 30 HEXOUT: MVI C,'0' ;326B-0E 30 CALL CHROUT ;326D-CD 94 30 CALL STPTR1 ;3270-CD 50 30 CALL BYTOUT ;3273-CD 80 30 J3276: MVI C,'H' ;3276-0E 48 CALL CHROUT ;3278-CD 94 30 JMP LOOP ;327B-C3 DA 30 DO1BYT: MOV A,C ;327E-79 ADD A ;327F-87 ADD A ;3280-87 MOV C,A ;3281-4F LXI H,A32A9 ;3282-21 A9 32 DAD B ;3285-09 CALL 4CHOUT ;3286-CD 70 30 JMP LOOP ;3289-C3 DA 30 ; End code segment ;******************************* ; Start initialized byte data segment ONEBYT: DB 000H, 007H, 00FH, 017H, 01FH, 027H, 02FH, 037H ;328C-000H 007H 00FH 017H 01FH ''' '/' '7' DB 03FH, 076H, 0C9H, 0E3H, 0E9H, 0EBH, 0F3H, 0F9H ;3294-'?' 'v' 0C9H 0E3H 0E9H 0EBH 0F3H 0F9H DB 0FBH, 0C6H, 0CEH, 0D3H, 0D6H, 0DBH, 0DEH, 0E6H ;329C-0FBH 0C6H 0CEH 0D3H 0D6H 0DBH 0DEH 0E6H DB 0EEH, 0F6H, 0FEH, 022H, 02AH ;32A4-0EEH 0F6H 0FEH '"' '*' A32A9: DB 032H, 03AH, 0C3H, 0CDH ;32A9-'2' ':' 0C3H 0CDH ; End initialized byte data segment ;******************************* ; Start initialized ASCII data segment DB 'EI SPHLDI XCHGPCHLXTHLRET HLT CMC STC CMA DAA RAR RAL RRC RLC ' ;32AD- NOPMSG: DB 'NOP CPI ORI XRI ANI SBI IN SUI OUT ACI ' ;32ED- ADIMSG: DB 'ADI CALLJMP LDA STA LHLDSHLD' ;3315- MOVMSG: DB 'MOV ' ;3331- ADDMSG: DB 'ADD ADC SUB SBB ANA XRA ORA CMP ' ;3335- INRMSG: DB 'INR ' ;3355- DCRMSG: DB 'DCR ' ;3359- MVIMSG: DB 'MVI ' ;335D- LXIMSG: DB 'LXI STAXINX DAD LDAXDCX ' ;3361- RSTMSG: DB 'RST ' ;3379- PSWMSG: DB 'PSW' ;337D- POPMSG: DB ' POP PUSH' ;3380- PSWBIT: DB 'NZZ NCC POPEP M ' ;3389- ; End initialized ASCII data segment ;******************************* ; Start code segment J3399: CALL DOTI ;3399-CD 48 38 PUSH PSW ;339C-F5 CALL DOTI ;339D-CD 48 38 CPI ',' ;33A0-FE 2C JNZ DOLER ;33A2-C2 2A 38 POP PSW ;33A5-F1 CPI '2' ;33A6-FE 32 MVI C,002H ;33A8-0E 02 JZ DOPROG ;33AA-CA 24 38 CPI '4' ;33AD-FE 34 JZ J33B7 ;33AF-CA B7 33 CPI '8' ;33B2-FE 38 JNZ DOLER ;33B4-C2 2A 38 J33B7: MVI C,003H ;33B7-0E 03 CALL DOEXPR ;33B9-CD 33 38 CALL DOCRLF ;33BC-CD 30 38 MVI A,'0' ;33BF-3E 30 OUT TTYS ;33C1-D3 01 MVI A,0 ;33C3-3E 00 STA A0004 ;33C5-32 04 00 OUT P00FF ;33C8-D3 FF POP B ;33CA-C1 POP D ;33CB-D1 POP H ;33CC-E1 PUSH H ;33CD-E5 PUSH D ;33CE-D5 PUSH B ;33CF-C5 J33D0: CALL C345C ;33D0-CD 5C 34 XRA M ;33D3-AE ANA M ;33D4-A6 JNZ J33E7 ;33D5-C2 E7 33 INX B ;33D8-03 CALL DOHILO ;33D9-CD 36 38 JNC J33D0 ;33DC-D2 D0 33 JMP J33F4 ;33DF-C3 F4 33 J33E2: CALL C345C ;33E2-CD 5C 34 XRA M ;33E5-AE ANA M ;33E6-A6 J33E7: CNZ C3503 ;33E7-C4 03 35 INX B ;33EA-03 CALL DOHILO ;33EB-CD 36 38 JNC J33E2 ;33EE-D2 E2 33 JMP DOLER ;33F1-C3 2A 38 J33F4: LDA A0004 ;33F4-3A 04 00 CPI 'd' ;33F7-FE 64 JNZ J340E ;33F9-C2 0E 34 LXI B,A04FF ;33FC-01 FF 04 J33FF: CALL C3453 ;33FF-CD 53 34 DCX B ;3402-0B MOV A,B ;3403-78 ANA A ;3404-A7 JNZ J33FF ;3405-C2 FF 33 POP B ;3408-C1 POP D ;3409-D1 POP H ;340A-E1 JMP J34EE ;340B-C3 EE 34 J340E: LXI H,A0004 ;340E-21 04 00 INR M ;3411-34 MOV A,M ;3412-7E OUT P00FF ;3413-D3 FF POP B ;3415-C1 POP D ;3416-D1 POP H ;3417-E1 PUSH H ;3418-E5 PUSH D ;3419-D5 PUSH B ;341A-C5 J341B: MOV A,M ;341B-7E CMA ;341C-2F OUT P0003 ;341D-D3 03 MOV A,C ;341F-79 CMA ;3420-2F OUT P0002 ;3421-D3 02 MOV A,B ;3423-78 CMA ;3424-2F RLC ;3425-07 RLC ;3426-07 RLC ;3427-07 RLC ;3428-07 ANI '0' ;3429-E6 30 ORI '@' ;342B-F6 40 OUT TTYS ;342D-D3 01 NOP ;342F-00 NOP ;3430-00 ORI 080H ;3431-F6 80 OUT TTYS ;3433-D3 01 CALL C3453 ;3435-CD 53 34 ANI 'p' ;3438-E6 70 OUT TTYS ;343A-D3 01 INX B ;343C-03 CALL DOHILO ;343D-CD 36 38 JNC J341B ;3440-D2 1B 34 MVI A,0 ;3443-3E 00 OUT TTYS ;3445-D3 01 MVI H,'Z' ;3447-26 5A J3449: CALL C3453 ;3449-CD 53 34 DCR H ;344C-25 JNZ J3449 ;344D-C2 49 34 JMP J33F4 ;3450-C3 F4 33 ;******************************* ; Start Subroutine C3453: PUSH D ;3453-D5 MVI E,'N' ;3454-1E 4E J3456: DCR E ;3456-1D JNZ J3456 ;3457-C2 56 34 POP D ;345A-D1 RET ;345B-C9 ;******************************* ; Start Subroutine C345C: MOV A,B ;345C-78 CMA ;345D-2F RLC ;345E-07 RLC ;345F-07 RLC ;3460-07 RLC ;3461-07 ANI '0' ;3462-E6 30 OUT TTYS ;3464-D3 01 MOV A,C ;3466-79 CMA ;3467-2F OUT P0002 ;3468-D3 02 IN P0002 ;346A-DB 02 CMA ;346C-2F RET ;346D-C9 J346E: CALL DOTI ;346E-CD 48 38 PUSH PSW ;3471-F5 CALL DOTI ;3472-CD 48 38 CPI ',' ;3475-FE 2C JNZ DOLER ;3477-C2 2A 38 POP PSW ;347A-F1 CPI '2' ;347B-FE 32 JZ DOTRAN ;347D-CA 27 38 CPI '4' ;3480-FE 34 JNZ J348B ;3482-C2 8B 34 LXI D,A01FF ;3485-11 FF 01 JMP J3493 ;3488-C3 93 34 J348B: CPI '8' ;348B-FE 38 JNZ DOLER ;348D-C2 2A 38 LXI D,A03FF ;3490-11 FF 03 J3493: PUSH D ;3493-D5 MVI C,001H ;3494-0E 01 CALL DOEXPR ;3496-CD 33 38 CALL DOCRLF ;3499-CD 30 38 POP D ;349C-D1 POP H ;349D-E1 LXI B,RST0 ;349E-01 00 00 DAD D ;34A1-19 XCHG ;34A2-EB MVI A,01EH ;34A3-3E 1E OUT TTYS ;34A5-D3 01 J34A7: CALL C345C ;34A7-CD 5C 34 MOV M,A ;34AA-77 CMP M ;34AB-BE JNZ DOLER ;34AC-C2 2A 38 INX B ;34AF-03 CALL DOHILO ;34B0-CD 36 38 JNC J34A7 ;34B3-D2 A7 34 JMP DOSTART ;34B6-C3 1E 38 J34B9: CALL DOTI ;34B9-CD 48 38 PUSH PSW ;34BC-F5 CALL DOTI ;34BD-CD 48 38 CPI ',' ;34C0-FE 2C JNZ DOLER ;34C2-C2 2A 38 POP PSW ;34C5-F1 CPI '2' ;34C6-FE 32 JZ DOCOMP ;34C8-CA 21 38 CPI '4' ;34CB-FE 34 JNZ J34D6 ;34CD-C2 D6 34 LXI D,A01FF ;34D0-11 FF 01 JMP J34DE ;34D3-C3 DE 34 J34D6: CPI '8' ;34D6-FE 38 JNZ DOLER ;34D8-C2 2A 38 LXI D,A03FF ;34DB-11 FF 03 J34DE: PUSH D ;34DE-D5 MVI C,001H ;34DF-0E 01 CALL DOEXPR ;34E1-CD 33 38 CALL DOCRLF ;34E4-CD 30 38 POP D ;34E7-D1 POP H ;34E8-E1 DAD D ;34E9-19 XCHG ;34EA-EB LXI B,RST0 ;34EB-01 00 00 J34EE: MVI A,'0' ;34EE-3E 30 OUT TTYS ;34F0-D3 01 J34F2: CALL C345C ;34F2-CD 5C 34 CMP M ;34F5-BE CNZ C3506 ;34F6-C4 06 35 INX B ;34F9-03 CALL DOHILO ;34FA-CD 36 38 JNC J34F2 ;34FD-D2 F2 34 JMP DOSTART ;3500-C3 1E 38 ;******************************* ; Start Subroutine C3503: CALL C345C ;3503-CD 5C 34 ;******************************* ; Start Subroutine C3506: PUSH B ;3506-C5 PUSH PSW ;3507-F5 CALL DOCRLF ;3508-CD 30 38 CALL DOLADR ;350B-CD 39 38 CALL DOBLK ;350E-CD 2D 38 MOV A,M ;3511-7E CALL DOLBYTE ;3512-CD 3C 38 CALL DOBLK ;3515-CD 2D 38 POP PSW ;3518-F1 CALL DOLBYTE ;3519-CD 3C 38 POP B ;351C-C1 RET ;351D-C9 J351E: CALL DOTI ;351E-CD 48 38 PUSH PSW ;3521-F5 DCR C ;3522-0D CALL DOEXPR ;3523-CD 33 38 POP H ;3526-E1 POP PSW ;3527-F1 CPI ',' ;3528-FE 2C JZ J353A ;352A-CA 3A 35 CPI ' ' ;352D-FE 20 JNZ DOLER ;352F-C2 2A 38 J3532: CALL DORI ;3532-CD 06 38 CPI 0FFH ;3535-FE FF JNZ J3532 ;3537-C2 32 35 J353A: CALL DORI ;353A-CD 06 38 CPI '*' ;353D-FE 2A JZ DOSTART ;353F-CA 1E 38 CALL C3562 ;3542-CD 62 35 JZ J353A ;3545-CA 3A 35 CALL DONIBBLE ;3548-CD 3F 38 JC DOLER ;354B-DA 2A 38 RLC ;354E-07 RLC ;354F-07 RLC ;3550-07 RLC ;3551-07 MOV C,A ;3552-4F CALL DORI ;3553-CD 06 38 CALL DONIBBLE ;3556-CD 3F 38 JC DOLER ;3559-DA 2A 38 ADD C ;355C-81 MOV M,A ;355D-77 INX H ;355E-23 JMP J353A ;355F-C3 3A 35 ;******************************* ; Start Subroutine C3562: ANA A ;3562-A7 RZ ;3563-C8 CPI CR ;3564-FE 0D RZ ;3566-C8 CPI LF ;3567-FE 0A RET ;3569-C9 J356A: MVI B,LF ;356A-06 0A J356C: CALL DORI ;356C-CD 06 38 CPI 'G' ;356F-FE 47 JNZ J356A ;3571-C2 6A 35 DCR B ;3574-05 JNZ J356C ;3575-C2 6C 35 J3578: CALL DORI ;3578-CD 06 38 CPI 'E' ;357B-FE 45 RZ ;357D-C8 CPI 'B' ;357E-FE 42 JNZ J3578 ;3580-C2 78 35 MVI M,001H ;3583-36 01 J3585: CALL DORI ;3585-CD 06 38 CPI 'L' ;3588-FE 4C JZ J35A7 ;358A-CA A7 35 CPI 'N' ;358D-FE 4E JZ J35A7 ;358F-CA A7 35 CPI 'X' ;3592-FE 58 JZ J35A7 ;3594-CA A7 35 CPI 'H' ;3597-FE 48 JZ J35A6 ;3599-CA A6 35 CPI 'P' ;359C-FE 50 JZ J35A6 ;359E-CA A6 35 CPI '.' ;35A1-FE 2E JNZ DOLER ;35A3-C2 2A 38 J35A6: STC ;35A6-37 J35A7: MOV A,M ;35A7-7E RAL ;35A8-17 MOV M,A ;35A9-77 JNC J3585 ;35AA-D2 85 35 CALL DORI ;35AD-CD 06 38 CPI 'F' ;35B0-FE 46 JNZ DOLER ;35B2-C2 2A 38 INX H ;35B5-23 JMP J3578 ;35B6-C3 78 35 J35B9: CALL DOEXPR ;35B9-CD 33 38 CALL C35EE ;35BC-CD EE 35 MVI C,0FFH ;35BF-0E FF CALL DOPO ;35C1-CD 0C 38 CALL C35EE ;35C4-CD EE 35 POP D ;35C7-D1 POP H ;35C8-E1 PUSH H ;35C9-E5 PUSH D ;35CA-D5 J35CB: MVI B,' ' ;35CB-06 20 J35CD: MOV A,M ;35CD-7E PUSH D ;35CE-D5 CALL DOPBYTE ;35CF-CD 42 38 POP D ;35D2-D1 CALL DOHILO ;35D3-CD 36 38 JC J35E3 ;35D6-DA E3 35 DCR B ;35D9-05 JNZ J35CD ;35DA-C2 CD 35 CALL DOPEOL ;35DD-CD 45 38 JMP J35CB ;35E0-C3 CB 35 J35E3: MVI C,'*' ;35E3-0E 2A CALL DOPO ;35E5-CD 0C 38 CALL C35EE ;35E8-CD EE 35 JMP DOSTART ;35EB-C3 1E 38 ;******************************* ; Start Subroutine C35EE: MVI B,014H ;35EE-06 14 MVI C,0 ;35F0-0E 00 J35F2: CALL DOPO ;35F2-CD 0C 38 DCR B ;35F5-05 JNZ J35F2 ;35F6-C2 F2 35 RET ;35F9-C9 J35FA: PUSH D ;35FA-D5 MVI A,0FEH ;35FB-3E FE OUT CRTS ;35FD-D3 05 NOP ;35FF-00 MVI A,0FFH ;3600-3E FF OUT CRTS ;3602-D3 05 MVI D,0FFH ;3604-16 FF J3606: CALL C362C ;3606-CD 2C 36 JNZ J3606 ;3609-C2 06 36 MVI D,004H ;360C-16 04 CALL C3624 ;360E-CD 24 36 IN CRTD ;3611-DB 04 MOV E,A ;3613-5F MVI D,0FFH ;3614-16 FF J3616: CALL C362C ;3616-CD 2C 36 JZ J3616 ;3619-CA 16 36 MVI D,0FFH ;361C-16 FF CALL C3624 ;361E-CD 24 36 MOV A,E ;3621-7B POP D ;3622-D1 RET ;3623-C9 ;******************************* ; Start Subroutine C3624: DCR D ;3624-15 MVI A,0 ;3625-3E 00 CMP D ;3627-BA RZ ;3628-C8 JMP C3624 ;3629-C3 24 36 ;******************************* ; Start Subroutine C362C: IN CRTS ;362C-DB 05 ANI 001H ;362E-E6 01 PUSH PSW ;3630-F5 DCR D ;3631-15 XRA A ;3632-AF CMP D ;3633-BA JZ DOLER ;3634-CA 2A 38 POP PSW ;3637-F1 RET ;3638-C9 J3639: IN CRTS ;3639-DB 05 ANI '@' ;363B-E6 40 JNZ J3639 ;363D-C2 39 36 MVI A,0FBH ;3640-3E FB OUT CRTS ;3642-D3 05 J3644: IN CRTS ;3644-DB 05 ANI '@' ;3646-E6 40 JZ J3644 ;3648-CA 44 36 MVI A,0FFH ;364B-3E FF OUT CRTS ;364D-D3 05 J364F: IN CRTS ;364F-DB 05 ANI 080H ;3651-E6 80 JNZ J364F ;3653-C2 4F 36 IN P0006 ;3656-DB 06 CMA ;3658-2F RET ;3659-C9 J365A: IN CRTS ;365A-DB 05 ANI ' ' ;365C-E6 20 JNZ J365A ;365E-C2 5A 36 MOV A,C ;3661-79 CMA ;3662-2F OUT P0006 ;3663-D3 06 MVI A,0F7H ;3665-3E F7 OUT CRTS ;3667-D3 05 J3669: IN CRTS ;3669-DB 05 ANI ' ' ;366B-E6 20 JZ J3669 ;366D-CA 69 36 MVI A,0FFH ;3670-3E FF OUT CRTS ;3672-D3 05 RET ;3674-C9 J3675: MVI C,001H ;3675-0E 01 CALL DOEXPR ;3677-CD 33 38 POP B ;367A-C1 MOV A,C ;367B-79 ANA A ;367C-A7 JZ DOLER ;367D-CA 2A 38 CPI BS ;3680-FE 08 JNC DOLER ;3682-D2 2A 38 STA A1F84 ;3685-32 84 1F RLC ;3688-07 RLC ;3689-07 MOV H,A ;368A-67 MVI L,0FFH ;368B-2E FF SHLD A1F82 ;368D-22 82 1F MVI L,0F8H ;3690-2E F8 MOV D,H ;3692-54 MOV E,L ;3693-5D J3694: MVI M,0FFH ;3694-36 FF INR L ;3696-2C JNZ J3694 ;3697-C2 94 36 LXI H,A0100 ;369A-21 00 01 J369D: CALL C36DD ;369D-CD DD 36 STAX D ;36A0-12 INR E ;36A1-1C LDA A1F83 ;36A2-3A 83 1F SUI 004H ;36A5-D6 04 CMP H ;36A7-BC JNC J369D ;36A8-D2 9D 36 ADI 005H ;36AB-C6 05 MOV B,A ;36AD-47 LXI H,A0100 ;36AE-21 00 01 CALL C36E1 ;36B1-CD E1 36 CMA ;36B4-2F STAX D ;36B5-12 CALL DOCRLF ;36B6-CD 30 38 LHLD A1F82 ;36B9-2A 82 1F MVI L,0F8H ;36BC-2E F8 MVI D,0 ;36BE-16 00 J36C0: MOV A,D ;36C0-7A ADD M ;36C1-86 MOV D,A ;36C2-57 CALL DOLBYTE ;36C3-CD 3C 38 MVI C,',' ;36C6-0E 2C CALL DOCO ;36C8-CD 09 38 INR L ;36CB-2C MOV A,L ;36CC-7D CMP E ;36CD-BB JC J36C0 ;36CE-DA C0 36 LXI H,A0100 ;36D1-21 00 01 CALL C36E1 ;36D4-CD E1 36 CALL DOLBYTE ;36D7-CD 3C 38 JMP DOSTART ;36DA-C3 1E 38 ;******************************* ; Start Subroutine C36DD: MOV A,H ;36DD-7C ADI 004H ;36DE-C6 04 MOV B,A ;36E0-47 ;******************************* ; Start Subroutine C36E1: MVI C,0 ;36E1-0E 00 J36E3: MOV A,C ;36E3-79 ADD M ;36E4-86 MOV C,A ;36E5-4F INX H ;36E6-23 MOV A,H ;36E7-7C CMP B ;36E8-B8 JC J36E3 ;36E9-DA E3 36 MOV A,C ;36EC-79 RET ;36ED-C9 ; End code segment ;******************************* ; Start initialized data segment DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H ;36EE-000H 000H 000H 000H 000H 000H 000H 000H DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H ;36F6-000H 000H 000H 000H 000H 000H 000H 000H DB 000H, 000H ;36FE-000H 000H ; End initialized data segment ;******************************* ; Start code segment INR A ;3700-3C DCX D ;3701-1B LDAX D ;3702-1A CALL LBYTE ;3703-CD D9 3D INR B ;3706-04 MVI C,'-' ;3707-0E 2D CALL CO ;3709-CD 79 3C CALL PCHK ;370C-CD 5D 3E JC START ;370F-DA 98 38 JZ X5 ;3712-CA 2A 3C PUSH H ;3715-E5 PUSH B ;3716-C5 CALL EXF ;3717-CD AE 3D POP H ;371A-E1 POP PSW ;371B-F1 PUSH B ;371C-C5 PUSH PSW ;371D-F5 MOV A,L ;371E-7D STAX D ;371F-12 POP B ;3720-C1 DCR B ;3721-05 JZ X4 ;3722-CA 28 3C INX D ;3725-13 MOV A,H ;3726-7C STAX D ;3727-12 POP B ;3728-C1 POP H ;3729-E1 MOV A,M ;372A-7E ORA A ;372B-B7 JM START ;372C-FA 98 38 MOV A,B ;372F-78 CPI CR ;3730-FE 0D JZ START ;3732-CA 98 38 JMP X2 ;3735-C3 EE 3B CALL CRLF ;3738-CD 08 3D CALL BLK ;373B-CD 77 3C MOV A,M ;373E-7E INX H ;373F-23 ORA A ;3740-B7 JM START ;3741-FA 98 38 MOV C,A ;3744-4F CALL CO ;3745-CD 79 3C MVI C,'=' ;3748-0E 3D CALL CO ;374A-CD 79 3C MOV A,M ;374D-7E INX H ;374E-23 XCHG ;374F-EB MOV L,A ;3750-6F MVI H,0 ;3751-26 00 DAD SP ;3753-39 XCHG ;3754-EB MOV B,M ;3755-46 INX H ;3756-23 LDAX D ;3757-1A CALL LBYTE ;3758-CD D9 3D DCR B ;375B-05 JZ X6 ;375C-CA 3B 3C DCX D ;375F-1B LDAX D ;3760-1A CALL LBYTE ;3761-CD D9 3D JMP X6 ;3764-C3 3B 3C CALL MEMSIZ ;3767-CD 13 3E LXI D,AFFF8 ;376A-11 F8 FF DAD D ;376D-19 SPHL ;376E-F9 MVI C,'*' ;376F-0E 2A CALL CO ;3771-CD 79 3C JMP START ;3774-C3 98 38 MVI C,' ' ;3777-0E 20 LDA IOBYTE ;3779-3A 03 00 ANI 003H ;377C-E6 03 JNZ CO2 ;377E-C2 A4 3C CALL TTYOUT ;3781-CD 98 3C MOV A,C ;3784-79 CPI CR ;3785-FE 0D RET ;3787-C9 MVI C,005H ;3788-0E 05 CALL TTYOUT ;378A-CD 98 3C CALL CI ;378D-CD D4 3C CPI 006H ;3790-FE 06 JNZ CO1 ;3792-C2 95 3C MVI C,CR ;3795-0E 0D RET ;3797-C9 IN TTYS ;3798-DB 01 ANI 004H ;379A-E6 04 JNZ TTYOUT ;379C-C2 98 3C MOV A,C ;379F-79 CMA ;37A0-2F OUT TTYD ;37A1-D3 00 RET ;37A3-C9 CPI 001H ;37A4-FE 01 JNZ CO3 ;37A6-C2 B5 3C IN CRTS ;37A9-DB 05 ANI 004H ;37AB-E6 04 JNZ CRTOUT ;37AD-C2 A9 3C MOV A,C ;37B0-79 CMA ;37B1-2F OUT CRTD ;37B2-D3 04 RET ;37B4-C9 CPI 002H ;37B5-FE 02 JNZ COLOC ;37B7-C2 03 30 JMP LO ;37BA-C3 F5 3D CALL RIX ;37BD-CD 12 3F CALL NIBBLE ;37C0-CD 28 3E RLC ;37C3-07 RLC ;37C4-07 RLC ;37C5-07 RLC ;37C6-07 MOV C,A ;37C7-4F CALL RIX ;37C8-CD 12 3F CALL NIBBLE ;37CB-CD 28 3E ORA C ;37CE-B1 MOV C,A ;37CF-4F ADD D ;37D0-82 MOV D,A ;37D1-57 MOV A,C ;37D2-79 RET ;37D3-C9 LDA IOBYTE ;37D4-3A 03 00 ANI 003H ;37D7-E6 03 JNZ CI1 ;37D9-C2 E7 3C IN TTYS ;37DC-DB 01 ANI 001H ;37DE-E6 01 JNZ TTYIN ;37E0-C2 DC 3C IN TTYD ;37E3-DB 00 CMA ;37E5-2F RET ;37E6-C9 CPI 001H ;37E7-FE 01 JNZ CI2 ;37E9-C2 F8 3C IN CRTS ;37EC-DB 05 ANI 001H ;37EE-E6 01 JNZ CRTIN ;37F0-C2 EC 3C IN CRTD ;37F3-DB 04 JMP CI0 ;37F5-C3 E5 3C CPI 002H ;37F8-FE 02 JZ RI ;37FA-CA B7 3E JMP CILOC ;37FD-C3 00 30 JMP BEGIN ;3800-C3 56 38 JMP CI ;3803-C3 D4 3C ;******************************* ; Start Subroutine DORI: JMP RI ;3806-C3 B7 3E DOCO: JMP CO ;3809-C3 79 3C DOPO: JMP PO ;380C-C3 8F 3E JMP LO ;380F-C3 F5 3D JMP CSTS ;3812-C3 12 3D JMP IOCHK ;3815-C3 C6 3D JMP IOSET ;3818-C3 CA 3D JMP MEMCK ;381B-C3 0A 3E DOSTART: JMP START ;381E-C3 98 38 DOCOMP: JMP COMP ;3821-C3 87 39 DOPROG: JMP PROG ;3824-C3 9C 3A DOTRAN: JMP TRAN ;3827-C3 64 3B DOLER: JMP LER ;382A-C3 67 3C ;******************************* ; Start Subroutine DOBLK: JMP BLK ;382D-C3 77 3C ;******************************* ; Start Subroutine DOCRLF: JMP CRLF ;3830-C3 08 3D ;******************************* ; Start Subroutine DOEXPR: JMP EXPR ;3833-C3 82 3D ;******************************* ; Start Subroutine DOHILO: JMP HILO ;3836-C3 B6 3D ;******************************* ; Start Subroutine DOLADR: JMP LADR ;3839-C3 D1 3D ;******************************* ; Start Subroutine DOLBYTE: JMP LBYTE ;383C-C3 D9 3D ;******************************* ; Start Subroutine DONIBBLE: JMP NIBBLE ;383F-C3 28 3E ;******************************* ; Start Subroutine DOPBYTE: JMP PBYTE ;3842-C3 42 3E ;******************************* ; Start Subroutine DOPEOL: JMP PEOL ;3845-C3 6D 3E ;******************************* ; Start Subroutine DOTI: JMP TI ;3848-C3 86 3F ; End code segment ;******************************* ; Start initialized ASCII data segment SIGNON: DB CR, LF, '8080 V4.0' ;384B- ; End initialized ASCII data segment ;******************************* ; Start code segment BEGIN: LXI H,IOBYTE ;3856-21 03 00 MVI M,'<' ;3859-36 3C MVI L,0FFH ;385B-2E FF BG0: DCR H ;385D-25 MOV A,M ;385E-7E CMA ;385F-2F MOV M,A ;3860-77 CMP M ;3861-BE CMA ;3862-2F MOV M,A ;3863-77 JNZ BG0 ;3864-C2 5D 38 INX H ;3867-23 MVI B,012H ;3868-06 12 LXI D,ACTBL ;386A-11 D5 3F BG1: DCX D ;386D-1B LDAX D ;386E-1A DCX H ;386F-2B MOV M,A ;3870-77 DCR B ;3871-05 JNZ BG1 ;3872-C2 6D 38 SPHL ;3875-F9 LXI H,A0100 ;3876-21 00 01 PUSH H ;3879-E5 MVI H,0 ;387A-26 00 PUSH H ;387C-E5 PUSH H ;387D-E5 PUSH H ;387E-E5 MVI A,0C3H ;387F-3E C3 STA A0008 ;3881-32 08 00 LXI H,RESTART ;3884-21 1B 3F SHLD A0009 ;3887-22 09 00 LXI H,SIGNON ;388A-21 4B 38 MVI D,00BH ;388D-16 0B VER0: MOV C,M ;388F-4E INX H ;3890-23 CALL CO ;3891-CD 79 3C DCR D ;3894-15 JNZ VER0 ;3895-C2 8F 38 START: EI ;3898-FB MVI A,BS ;3899-3E 08 OUT TTYS ;389B-D3 01 CALL CRLF ;389D-CD 08 3D MVI C,'.' ;38A0-0E 2E CALL CO ;38A2-CD 79 3C CALL TI ;38A5-CD 86 3F SUI 'A' ;38A8-D6 41 JM START ;38AA-FA 98 38 CPI 018H ;38AD-FE 18 JP LER ;38AF-F2 67 3C ADD A ;38B2-87 LXI H,CTBL ;38B3-21 BF 38 ADD L ;38B6-85 MOV L,A ;38B7-6F MOV A,M ;38B8-7E INX H ;38B9-23 MOV H,M ;38BA-66 MOV L,A ;38BB-6F MVI C,002H ;38BC-0E 02 ; Possible jump table PCHL ;38BE-E9 ; End code segment ;******************************* ; Start table segment CTBL: DW ASSIGN ;38BF-EF 38 DW BPNF ;38C1-3E 39 DW DCOMP ;38C3-21 30 DW DISP ;38C5-BD 39 DW EOF ;38C7-DE 39 DW FILL ;38C9-00 3A DW GOTO ;38CB-11 3A DW HEXN ;38CD-5B 3A DW LER ;38CF-67 3C DW LER ;38D1-67 3C DW LER ;38D3-67 3C DW LOAD ;38D5-78 3A DW MOVE ;38D7-83 3A DW NULL ;38D9-96 3A DW 0302DH ;38DB-2D 30 DW DPROG ;38DD-1B 30 DW 03030H ;38DF-30 30 DW READ ;38E1-EF 3A DW SUBS ;38E3-36 3B DW DTRAN ;38E5-1E 30 DW 03024H ;38E7-24 30 DW 03027H ;38E9-27 30 DW WRITE ;38EB-82 3B DW X ;38ED-CF 3B ; End table segment ;******************************* ; Start code segment ASSIGN: CALL TI ;38EF-CD 86 3F LXI H,LTBL ;38F2-21 93 3F MVI C,004H ;38F5-0E 04 AS0: CMP M ;38F7-BE INX H ;38F8-23 JZ AS1 ;38F9-CA 06 39 INX H ;38FC-23 INX H ;38FD-23 INX H ;38FE-23 DCR C ;38FF-0D JNZ AS0 ;3900-C2 F7 38 JMP LER ;3903-C3 67 3C AS1: MOV B,M ;3906-46 INX H ;3907-23 MOV E,M ;3908-5E INX H ;3909-23 MOV D,M ;390A-56 XCHG ;390B-EB AS2: CALL TI ;390C-CD 86 3F CPI '=' ;390F-FE 3D JNZ AS2 ;3911-C2 0C 39 AS3: CALL TI ;3914-CD 86 3F CPI ' ' ;3917-FE 20 JZ AS3 ;3919-CA 14 39 MVI C,004H ;391C-0E 04 AS4: CMP M ;391E-BE INX H ;391F-23 JZ AS5 ;3920-CA 2B 39 INX H ;3923-23 DCR C ;3924-0D JNZ AS4 ;3925-C2 1E 39 JMP LER ;3928-C3 67 3C AS5: CALL TI ;392B-CD 86 3F CPI CR ;392E-FE 0D JNZ AS5 ;3930-C2 2B 39 MOV C,M ;3933-4E LXI H,IOBYTE ;3934-21 03 00 MOV A,M ;3937-7E ANA B ;3938-A0 ORA C ;3939-B1 MOV M,A ;393A-77 JMP START ;393B-C3 98 38 BPNF: CALL EXPR ;393E-CD 82 3D CALL CRLF ;3941-CD 08 3D CALL LEAD ;3944-CD E9 3D POP D ;3947-D1 POP H ;3948-E1 BN0: PUSH H ;3949-E5 PUSH D ;394A-D5 CALL PEOL ;394B-CD 6D 3E MVI B,' ' ;394E-06 20 LXI D,A2710 ;3950-11 10 27 CALL DIGIT ;3953-CD 40 3D LXI D,A03E8 ;3956-11 E8 03 CALL DIGIT ;3959-CD 40 3D LXI D,A0064 ;395C-11 64 00 CALL DIGIT ;395F-CD 40 3D MVI E,LF ;3962-1E 0A CALL DIGIT ;3964-CD 40 3D MVI E,001H ;3967-1E 01 MVI B,'0' ;3969-06 30 CALL DIGIT ;396B-CD 40 3D MVI C,' ' ;396E-0E 20 CALL PO ;3970-CD 8F 3E POP D ;3973-D1 POP H ;3974-E1 BN1: CALL ENCODE ;3975-CD 5F 3D CALL HILO ;3978-CD B6 3D JC NULL ;397B-DA 96 3A MOV A,L ;397E-7D ANI 003H ;397F-E6 03 JNZ BN1 ;3981-C2 75 39 JMP BN0 ;3984-C3 49 39 COMP: DCR C ;3987-0D CALL EXPR ;3988-CD 82 3D POP H ;398B-E1 MVI E,0 ;398C-1E 00 CM0: MVI A,0 ;398E-3E 00 OUT TTYS ;3990-D3 01 MOV A,E ;3992-7B CMA ;3993-2F OUT P0002 ;3994-D3 02 CALL DELAY ;3996-CD 37 3D IN P0002 ;3999-DB 02 CMA ;399B-2F CMP M ;399C-BE JZ CM1 ;399D-CA B5 39 PUSH PSW ;39A0-F5 CALL CRLF ;39A1-CD 08 3D CALL LADR ;39A4-CD D1 3D CALL BLK ;39A7-CD 77 3C MOV A,M ;39AA-7E CALL LBYTE ;39AB-CD D9 3D CALL BLK ;39AE-CD 77 3C POP PSW ;39B1-F1 CALL LBYTE ;39B2-CD D9 3D CM1: INX H ;39B5-23 INR E ;39B6-1C JNZ CM0 ;39B7-C2 8E 39 JMP START ;39BA-C3 98 38 DISP: CALL EXPR ;39BD-CD 82 3D POP D ;39C0-D1 POP H ;39C1-E1 DI0: CALL CRLF ;39C2-CD 08 3D CALL LADR ;39C5-CD D1 3D DI1: CALL BLK ;39C8-CD 77 3C MOV A,M ;39CB-7E CALL LBYTE ;39CC-CD D9 3D CALL HILO ;39CF-CD B6 3D JC START ;39D2-DA 98 38 MOV A,L ;39D5-7D ANI 00FH ;39D6-E6 0F JNZ DI1 ;39D8-C2 C8 39 JMP DI0 ;39DB-C3 C2 39 EOF: DCR C ;39DE-0D CALL EXPR ;39DF-CD 82 3D CALL PEOL ;39E2-CD 6D 3E MVI C,':' ;39E5-0E 3A CALL PO ;39E7-CD 8F 3E XRA A ;39EA-AF MOV D,A ;39EB-57 CALL PBYTE ;39EC-CD 42 3E POP H ;39EF-E1 CALL PADR ;39F0-CD 3A 3E MVI A,001H ;39F3-3E 01 CALL PBYTE ;39F5-CD 42 3E XRA A ;39F8-AF SUB D ;39F9-92 CALL PBYTE ;39FA-CD 42 3E JMP NULL ;39FD-C3 96 3A FILL: INR C ;3A00-0C CALL EXPR ;3A01-CD 82 3D POP B ;3A04-C1 POP D ;3A05-D1 POP H ;3A06-E1 FI0: MOV M,C ;3A07-71 CALL HILO ;3A08-CD B6 3D JNC FI0 ;3A0B-D2 07 3A JMP START ;3A0E-C3 98 38 GOTO: CALL PCHK ;3A11-CD 5D 3E JC GO3 ;3A14-DA 53 3A JZ GO0 ;3A17-CA 2B 3A CALL EXF ;3A1A-CD AE 3D POP D ;3A1D-D1 LXI H,A0013 ;3A1E-21 13 00 DAD SP ;3A21-39 MOV M,D ;3A22-72 DCX H ;3A23-2B MOV M,E ;3A24-73 MOV A,B ;3A25-78 CPI CR ;3A26-FE 0D JZ GO3 ;3A28-CA 53 3A GO0: MVI D,002H ;3A2B-16 02 LXI H,A0014 ;3A2D-21 14 00 DAD SP ;3A30-39 GO1: PUSH H ;3A31-E5 MVI C,001H ;3A32-0E 01 CALL EXPR ;3A34-CD 82 3D MOV E,B ;3A37-58 POP B ;3A38-C1 POP H ;3A39-E1 MOV A,B ;3A3A-78 ORA C ;3A3B-B1 JZ GO2 ;3A3C-CA 49 3A MOV M,C ;3A3F-71 INX H ;3A40-23 MOV M,B ;3A41-70 INX H ;3A42-23 LDAX B ;3A43-0A MOV M,A ;3A44-77 INX H ;3A45-23 MVI A,0CFH ;3A46-3E CF STAX B ;3A48-02 GO2: MOV A,E ;3A49-7B CPI CR ;3A4A-FE 0D JZ GO3 ;3A4C-CA 53 3A DCR D ;3A4F-15 JNZ GO1 ;3A50-C2 31 3A GO3: CALL CRLF ;3A53-CD 08 3D LXI H,A0008 ;3A56-21 08 00 DAD SP ;3A59-39 ; Possible jump table PCHL ;3A5A-E9 HEXN: CALL EXPR ;3A5B-CD 82 3D POP D ;3A5E-D1 POP H ;3A5F-E1 CALL CRLF ;3A60-CD 08 3D PUSH H ;3A63-E5 DAD D ;3A64-19 CALL LADR ;3A65-CD D1 3D CALL BLK ;3A68-CD 77 3C POP H ;3A6B-E1 MOV A,L ;3A6C-7D SUB E ;3A6D-93 MOV L,A ;3A6E-6F MOV A,H ;3A6F-7C SBB D ;3A70-9A MOV H,A ;3A71-67 CALL LADR ;3A72-CD D1 3D JMP START ;3A75-C3 98 38 LOAD: DCR C ;3A78-0D CALL EXPR ;3A79-CD 82 3D POP H ;3A7C-E1 CALL C302A ;3A7D-CD 2A 30 JMP START ;3A80-C3 98 38 MOVE: INR C ;3A83-0C CALL EXPR ;3A84-CD 82 3D POP B ;3A87-C1 POP D ;3A88-D1 POP H ;3A89-E1 MV0: MOV A,M ;3A8A-7E STAX B ;3A8B-02 INX B ;3A8C-03 CALL HILO ;3A8D-CD B6 3D JNC MV0 ;3A90-D2 8A 3A JMP START ;3A93-C3 98 38 NULL: CALL LEAD ;3A96-CD E9 3D JMP START ;3A99-C3 98 38 PROG: INR C ;3A9C-0C CALL EXPR ;3A9D-CD 82 3D CALL CRLF ;3AA0-CD 08 3D POP B ;3AA3-C1 POP D ;3AA4-D1 POP H ;3AA5-E1 PR0: MVI A,0 ;3AA6-3E 00 OUT TTYS ;3AA8-D3 01 MOV A,C ;3AAA-79 OUT P00FF ;3AAB-D3 FF CMA ;3AAD-2F OUT P0002 ;3AAE-D3 02 IN P0002 ;3AB0-DB 02 CMA ;3AB2-2F CMP M ;3AB3-BE JZ PR4 ;3AB4-CA E5 3A MVI B,0F0H ;3AB7-06 F0 PR1: CALL PGRM ;3AB9-CD 77 3E IN P0002 ;3ABC-DB 02 CMA ;3ABE-2F CMP M ;3ABF-BE JZ PR2 ;3AC0-CA D8 3A INR B ;3AC3-04 JNZ PR1 ;3AC4-C2 B9 3A PUSH B ;3AC7-C5 MVI C,'$' ;3AC8-0E 24 CALL CO ;3ACA-CD 79 3C CALL BLK ;3ACD-CD 77 3C POP B ;3AD0-C1 MOV A,C ;3AD1-79 CALL LBYTE ;3AD2-CD D9 3D JMP LER ;3AD5-C3 67 3C PR2: MOV A,B ;3AD8-78 ADI 011H ;3AD9-C6 11 ADD A ;3ADB-87 ADD A ;3ADC-87 MOV B,A ;3ADD-47 PR3: CALL PGRM ;3ADE-CD 77 3E DCR B ;3AE1-05 JNZ PR3 ;3AE2-C2 DE 3A PR4: INR C ;3AE5-0C CALL HILO ;3AE6-CD B6 3D JNC PR0 ;3AE9-D2 A6 3A JMP START ;3AEC-C3 98 38 READ: DCR C ;3AEF-0D CALL EXPR ;3AF0-CD 82 3D RED0: POP H ;3AF3-E1 PUSH H ;3AF4-E5 CALL RIX ;3AF5-CD 12 3F MVI B,':' ;3AF8-06 3A SUB B ;3AFA-90 JNZ RED0 ;3AFB-C2 F3 3A MOV D,A ;3AFE-57 CALL BYTE ;3AFF-CD BD 3C JZ RED2 ;3B02-CA 25 3B MOV E,A ;3B05-5F CALL BYTE ;3B06-CD BD 3C PUSH PSW ;3B09-F5 CALL BYTE ;3B0A-CD BD 3C POP B ;3B0D-C1 MOV C,A ;3B0E-4F DAD B ;3B0F-09 CALL BYTE ;3B10-CD BD 3C RED1: CALL BYTE ;3B13-CD BD 3C MOV M,A ;3B16-77 INX H ;3B17-23 DCR E ;3B18-1D JNZ RED1 ;3B19-C2 13 3B CALL BYTE ;3B1C-CD BD 3C JNZ LER ;3B1F-C2 67 3C JMP RED0 ;3B22-C3 F3 3A RED2: CALL BYTE ;3B25-CD BD 3C MOV H,A ;3B28-67 CALL BYTE ;3B29-CD BD 3C MOV L,A ;3B2C-6F ORA H ;3B2D-B4 JZ RED3 ;3B2E-CA 32 3B ; Possible jump table PCHL ;3B31-E9 RED3: POP H ;3B32-E1 JMP START ;3B33-C3 98 38 SUBS: DCR C ;3B36-0D CALL EXPR ;3B37-CD 82 3D CALL P2C ;3B3A-CD 60 3E JC LER ;3B3D-DA 67 3C POP H ;3B40-E1 SU0: MOV A,M ;3B41-7E CALL LBYTE ;3B42-CD D9 3D MVI C,'-' ;3B45-0E 2D CALL CO ;3B47-CD 79 3C CALL PCHK ;3B4A-CD 5D 3E JC START ;3B4D-DA 98 38 JZ SU1 ;3B50-CA 60 3B PUSH H ;3B53-E5 CALL EXF ;3B54-CD AE 3D POP D ;3B57-D1 POP H ;3B58-E1 MOV M,E ;3B59-73 MOV A,B ;3B5A-78 CPI CR ;3B5B-FE 0D JZ START ;3B5D-CA 98 38 SU1: INX H ;3B60-23 JMP SU0 ;3B61-C3 41 3B TRAN: DCR C ;3B64-0D CALL EXPR ;3B65-CD 82 3D POP H ;3B68-E1 MVI E,0 ;3B69-1E 00 TR0: MVI A,0 ;3B6B-3E 00 OUT TTYS ;3B6D-D3 01 MOV A,E ;3B6F-7B CMA ;3B70-2F OUT P0002 ;3B71-D3 02 CALL DELAY ;3B73-CD 37 3D IN P0002 ;3B76-DB 02 CMA ;3B78-2F MOV M,A ;3B79-77 INX H ;3B7A-23 INR E ;3B7B-1C JNZ TR0 ;3B7C-C2 6B 3B JMP START ;3B7F-C3 98 38 WRITE: CALL EXPR ;3B82-CD 82 3D CALL CRLF ;3B85-CD 08 3D POP D ;3B88-D1 POP H ;3B89-E1 WRT0: MOV A,L ;3B8A-7D ADI 010H ;3B8B-C6 10 MOV C,A ;3B8D-4F MOV A,H ;3B8E-7C ACI 0 ;3B8F-CE 00 MOV B,A ;3B91-47 MOV A,E ;3B92-7B SUB C ;3B93-91 MOV C,A ;3B94-4F MOV A,D ;3B95-7A SBB B ;3B96-98 JC WRT1 ;3B97-DA 9F 3B MVI A,010H ;3B9A-3E 10 JMP WRT2 ;3B9C-C3 A2 3B WRT1: MOV A,C ;3B9F-79 ADI 011H ;3BA0-C6 11 WRT2: ORA A ;3BA2-B7 JZ START ;3BA3-CA 98 38 PUSH D ;3BA6-D5 MOV E,A ;3BA7-5F MVI D,0 ;3BA8-16 00 CALL PEOL ;3BAA-CD 6D 3E MVI C,':' ;3BAD-0E 3A CALL PO ;3BAF-CD 8F 3E MOV A,E ;3BB2-7B CALL PBYTE ;3BB3-CD 42 3E CALL PADR ;3BB6-CD 3A 3E XRA A ;3BB9-AF CALL PBYTE ;3BBA-CD 42 3E WRT3: MOV A,M ;3BBD-7E INX H ;3BBE-23 CALL PBYTE ;3BBF-CD 42 3E DCR E ;3BC2-1D JNZ WRT3 ;3BC3-C2 BD 3B XRA A ;3BC6-AF SUB D ;3BC7-92 CALL PBYTE ;3BC8-CD 42 3E POP D ;3BCB-D1 JMP WRT0 ;3BCC-C3 8A 3B X: CALL TI ;3BCF-CD 86 3F LXI H,ACTBL ;3BD2-21 D5 3F CPI CR ;3BD5-FE 0D JZ X5 ;3BD7-CA 38 3C X0: CMP M ;3BDA-BE JZ X1 ;3BDB-CA EB 3B PUSH PSW ;3BDE-F5 MOV A,M ;3BDF-7E ORA A ;3BE0-B7 JM LER ;3BE1-FA 67 3C INX H ;3BE4-23 INX H ;3BE5-23 INX H ;3BE6-23 POP PSW ;3BE7-F1 JMP X0 ;3BE8-C3 DA 3B X1: CALL BLK ;3BEB-CD 77 3C X2: INX H ;3BEE-23 MOV A,M ;3BEF-7E XCHG ;3BF0-EB MOV L,A ;3BF1-6F MVI H,0 ;3BF2-26 00 DAD SP ;3BF4-39 XCHG ;3BF5-EB INX H ;3BF6-23 MOV B,M ;3BF7-46 INX H ;3BF8-23 LDAX D ;3BF9-1A CALL LBYTE ;3BFA-CD D9 3D DCR B ;3BFD-05 JZ X3 ;3BFE-CA 06 3C DCX D ;3C01-1B LDAX D ;3C02-1A CALL LBYTE ;3C03-CD D9 3D X3: INR B ;3C06-04 MVI C,'-' ;3C07-0E 2D CALL CO ;3C09-CD 79 3C CALL PCHK ;3C0C-CD 5D 3E JC START ;3C0F-DA 98 38 JZ X5 ;3C12-CA 2A 3C PUSH H ;3C15-E5 PUSH B ;3C16-C5 CALL EXF ;3C17-CD AE 3D POP H ;3C1A-E1 POP PSW ;3C1B-F1 PUSH B ;3C1C-C5 PUSH PSW ;3C1D-F5 MOV A,L ;3C1E-7D STAX D ;3C1F-12 POP B ;3C20-C1 DCR B ;3C21-05 JZ X4 ;3C22-CA 28 3C INX D ;3C25-13 MOV A,H ;3C26-7C STAX D ;3C27-12 X4: POP B ;3C28-C1 POP H ;3C29-E1 X5: MOV A,M ;3C2A-7E ORA A ;3C2B-B7 JM START ;3C2C-FA 98 38 MOV A,B ;3C2F-78 CPI CR ;3C30-FE 0D JZ START ;3C32-CA 98 38 JMP X2 ;3C35-C3 EE 3B X5: CALL CRLF ;3C38-CD 08 3D X6: CALL BLK ;3C3B-CD 77 3C MOV A,M ;3C3E-7E INX H ;3C3F-23 ORA A ;3C40-B7 JM START ;3C41-FA 98 38 MOV C,A ;3C44-4F CALL CO ;3C45-CD 79 3C MVI C,'=' ;3C48-0E 3D CALL CO ;3C4A-CD 79 3C MOV A,M ;3C4D-7E INX H ;3C4E-23 XCHG ;3C4F-EB MOV L,A ;3C50-6F MVI H,0 ;3C51-26 00 DAD SP ;3C53-39 XCHG ;3C54-EB MOV B,M ;3C55-46 INX H ;3C56-23 LDAX D ;3C57-1A CALL LBYTE ;3C58-CD D9 3D DCR B ;3C5B-05 JZ X6 ;3C5C-CA 3B 3C DCX D ;3C5F-1B LDAX D ;3C60-1A CALL LBYTE ;3C61-CD D9 3D JMP X6 ;3C64-C3 3B 3C ;******************************* ; Start Subroutine LER: CALL MEMSIZ ;3C67-CD 13 3E LXI D,AFFF8 ;3C6A-11 F8 FF DAD D ;3C6D-19 SPHL ;3C6E-F9 MVI C,'*' ;3C6F-0E 2A CALL CO ;3C71-CD 79 3C JMP START ;3C74-C3 98 38 ;******************************* ; Start Subroutine BLK: MVI C,' ' ;3C77-0E 20 ;******************************* ; Start Subroutine CO: LDA IOBYTE ;3C79-3A 03 00 ANI 003H ;3C7C-E6 03 JNZ CO2 ;3C7E-C2 A4 3C CALL TTYOUT ;3C81-CD 98 3C MOV A,C ;3C84-79 CPI CR ;3C85-FE 0D RNZ ;3C87-C0 MVI C,005H ;3C88-0E 05 CALL TTYOUT ;3C8A-CD 98 3C CO0: CALL CI ;3C8D-CD D4 3C CPI 006H ;3C90-FE 06 JNZ CO0 ;3C92-C2 8D 3C CO1: MVI C,CR ;3C95-0E 0D RET ;3C97-C9 ;******************************* ; Start Subroutine TTYOUT: IN TTYS ;3C98-DB 01 ANI 004H ;3C9A-E6 04 JNZ TTYOUT ;3C9C-C2 98 3C MOV A,C ;3C9F-79 CMA ;3CA0-2F OUT TTYD ;3CA1-D3 00 RET ;3CA3-C9 CO2: CPI 001H ;3CA4-FE 01 JNZ CO3 ;3CA6-C2 B5 3C CRTOUT: IN CRTS ;3CA9-DB 05 ANI 004H ;3CAB-E6 04 JNZ CRTOUT ;3CAD-C2 A9 3C MOV A,C ;3CB0-79 CMA ;3CB1-2F OUT CRTD ;3CB2-D3 04 RET ;3CB4-C9 CO3: CPI 002H ;3CB5-FE 02 JNZ COLOC ;3CB7-C2 03 30 JMP LO ;3CBA-C3 F5 3D ;******************************* ; Start Subroutine BYTE: CALL RIX ;3CBD-CD 12 3F CALL NIBBLE ;3CC0-CD 28 3E RLC ;3CC3-07 RLC ;3CC4-07 RLC ;3CC5-07 RLC ;3CC6-07 MOV C,A ;3CC7-4F CALL RIX ;3CC8-CD 12 3F CALL NIBBLE ;3CCB-CD 28 3E ORA C ;3CCE-B1 MOV C,A ;3CCF-4F ADD D ;3CD0-82 MOV D,A ;3CD1-57 MOV A,C ;3CD2-79 RET ;3CD3-C9 ;******************************* ; Start Subroutine CI: LDA IOBYTE ;3CD4-3A 03 00 ANI 003H ;3CD7-E6 03 JNZ CI1 ;3CD9-C2 E7 3C TTYIN: IN TTYS ;3CDC-DB 01 ANI 001H ;3CDE-E6 01 JNZ TTYIN ;3CE0-C2 DC 3C IN TTYD ;3CE3-DB 00 CI0: CMA ;3CE5-2F RET ;3CE6-C9 CI1: CPI 001H ;3CE7-FE 01 JNZ CI2 ;3CE9-C2 F8 3C CRTIN: IN CRTS ;3CEC-DB 05 ANI 001H ;3CEE-E6 01 JNZ CRTIN ;3CF0-C2 EC 3C IN CRTD ;3CF3-DB 04 JMP CI0 ;3CF5-C3 E5 3C CI2: CPI 002H ;3CF8-FE 02 JZ RI ;3CFA-CA B7 3E JMP CILOC ;3CFD-C3 00 30 ;******************************* ; Start Subroutine CONV: ADI 090H ;3D00-C6 90 DAA ;3D02-27 ACI '@' ;3D03-CE 40 DAA ;3D05-27 MOV C,A ;3D06-4F RET ;3D07-C9 ;******************************* ; Start Subroutine CRLF: MVI C,CR ;3D08-0E 0D CALL CO ;3D0A-CD 79 3C MVI C,LF ;3D0D-0E 0A JMP CO ;3D0F-C3 79 3C CSTS: LDA IOBYTE ;3D12-3A 03 00 ANI 003H ;3D15-E6 03 JNZ CS0 ;3D17-C2 1F 3D IN TTYS ;3D1A-DB 01 JMP CS1 ;3D1C-C3 26 3D CS0: CPI 001H ;3D1F-FE 01 JNZ CS3 ;3D21-C2 2D 3D IN CRTS ;3D24-DB 05 CS1: ANI 001H ;3D26-E6 01 MVI A,0 ;3D28-3E 00 CS2: RNZ ;3D2A-C0 CMA ;3D2B-2F RET ;3D2C-C9 CS3: CPI 002H ;3D2D-FE 02 MVI A,0FFH ;3D2F-3E FF JZ CS2 ;3D31-CA 2A 3D JMP J3018 ;3D34-C3 18 30 ;******************************* ; Start Subroutine DELAY: PUSH B ;3D37-C5 MVI B,'T' ;3D38-06 54 DLY1: DCR B ;3D3A-05 JNZ DLY1 ;3D3B-C2 3A 3D POP B ;3D3E-C1 RET ;3D3F-C9 ;******************************* ; Start Subroutine DIGIT: MVI C,'0' ;3D40-0E 30 DG0: MOV A,L ;3D42-7D SUB E ;3D43-93 MOV L,A ;3D44-6F MOV A,H ;3D45-7C SBB D ;3D46-9A MOV H,A ;3D47-67 JC DG1 ;3D48-DA 4F 3D INR C ;3D4B-0C JMP DG0 ;3D4C-C3 42 3D DG1: DAD D ;3D4F-19 MOV A,C ;3D50-79 CPI '0' ;3D51-FE 30 JNZ DG3 ;3D53-C2 5A 3D MOV C,B ;3D56-48 DG2: JMP PO ;3D57-C3 8F 3E DG3: MVI B,'0' ;3D5A-06 30 JMP DG2 ;3D5C-C3 57 3D ;******************************* ; Start Subroutine ENCODE: MVI C,'B' ;3D5F-0E 42 CALL PO ;3D61-CD 8F 3E MVI B,BS ;3D64-06 08 MOV A,M ;3D66-7E EN0: RLC ;3D67-07 PUSH PSW ;3D68-F5 MVI A,0 ;3D69-3E 00 RAL ;3D6B-17 RAL ;3D6C-17 ADI 'N' ;3D6D-C6 4E MOV C,A ;3D6F-4F CALL PO ;3D70-CD 8F 3E POP PSW ;3D73-F1 DCR B ;3D74-05 JNZ EN0 ;3D75-C2 67 3D MVI C,'F' ;3D78-0E 46 CALL PO ;3D7A-CD 8F 3E MVI C,' ' ;3D7D-0E 20 JMP PO ;3D7F-C3 8F 3E EXPR: LXI H,RST0 ;3D82-21 00 00 EX0: CALL TI ;3D85-CD 86 3F EX1: MOV B,A ;3D88-47 CALL NIBBLE ;3D89-CD 28 3E JC EX2 ;3D8C-DA 98 3D DAD H ;3D8F-29 DAD H ;3D90-29 DAD H ;3D91-29 DAD H ;3D92-29 ORA L ;3D93-B5 MOV L,A ;3D94-6F JMP EX0 ;3D95-C3 85 3D EX2: XTHL ;3D98-E3 PUSH H ;3D99-E5 MOV A,B ;3D9A-78 CALL P2C ;3D9B-CD 60 3E JNC EX3 ;3D9E-D2 A6 3D DCR C ;3DA1-0D JNZ LER ;3DA2-C2 67 3C RET ;3DA5-C9 EX3: JNZ LER ;3DA6-C2 67 3C DCR C ;3DA9-0D JNZ EXPR ;3DAA-C2 82 3D RET ;3DAD-C9 ;******************************* ; Start Subroutine EXF: MVI C,001H ;3DAE-0E 01 LXI H,RST0 ;3DB0-21 00 00 JMP EX1 ;3DB3-C3 88 3D HILO: INX H ;3DB6-23 MOV A,H ;3DB7-7C ORA L ;3DB8-B5 STC ;3DB9-37 RZ ;3DBA-C8 MOV A,E ;3DBB-7B SUB L ;3DBC-95 MOV A,D ;3DBD-7A SBB H ;3DBE-9C RET ;3DBF-C9 ;******************************* ; Start Subroutine HXD: CALL CONV ;3DC0-CD 00 3D JMP CO ;3DC3-C3 79 3C IOCHK: LDA IOBYTE ;3DC6-3A 03 00 RET ;3DC9-C9 IOSET: PUSH H ;3DCA-E5 LXI H,IOBYTE ;3DCB-21 03 00 MOV M,C ;3DCE-71 POP H ;3DCF-E1 RET ;3DD0-C9 LADR: MOV A,H ;3DD1-7C CALL LBYTE ;3DD2-CD D9 3D MOV A,L ;3DD5-7D JMP LBYTE ;3DD6-C3 D9 3D ;******************************* ; Start Subroutine LBYTE: PUSH PSW ;3DD9-F5 RRC ;3DDA-0F RRC ;3DDB-0F RRC ;3DDC-0F RRC ;3DDD-0F ANI 00FH ;3DDE-E6 0F CALL HXD ;3DE0-CD C0 3D POP PSW ;3DE3-F1 ANI 00FH ;3DE4-E6 0F JMP HXD ;3DE6-C3 C0 3D ;******************************* ; Start Subroutine LEAD: MVI B,'<' ;3DE9-06 3C LE0: MVI C,0 ;3DEB-0E 00 CALL PO ;3DED-CD 8F 3E DCR B ;3DF0-05 JNZ LE0 ;3DF1-C2 EB 3D RET ;3DF4-C9 LO: LDA IOBYTE ;3DF5-3A 03 00 ANI 0C0H ;3DF8-E6 C0 JZ TTYOUT ;3DFA-CA 98 3C CPI '@' ;3DFD-FE 40 JZ CRTOUT ;3DFF-CA A9 3C CPI 080H ;3E02-FE 80 JZ L1LOC ;3E04-CA 12 30 JMP L2LOC ;3E07-C3 15 30 MEMCK: PUSH H ;3E0A-E5 CALL MEMSIZ ;3E0B-CD 13 3E MOV B,H ;3E0E-44 MVI A,0C0H ;3E0F-3E C0 POP H ;3E11-E1 RET ;3E12-C9 ;******************************* ; Start Subroutine MEMSIZ: PUSH B ;3E13-C5 LXI H,A00FF ;3E14-21 FF 00 MEM0: DCR H ;3E17-25 MOV A,M ;3E18-7E CMA ;3E19-2F MOV M,A ;3E1A-77 CMP M ;3E1B-BE CMA ;3E1C-2F MOV M,A ;3E1D-77 JNZ MEM0 ;3E1E-C2 17 3E INX H ;3E21-23 LXI B,AFFEE ;3E22-01 EE FF DAD B ;3E25-09 POP B ;3E26-C1 RET ;3E27-C9 ;******************************* ; Start Subroutine NIBBLE: SUI '0' ;3E28-D6 30 RC ;3E2A-D8 ADI 0E9H ;3E2B-C6 E9 RC ;3E2D-D8 ADI 006H ;3E2E-C6 06 JP NI0 ;3E30-F2 36 3E ADI 007H ;3E33-C6 07 RC ;3E35-D8 NI0: ADI LF ;3E36-C6 0A ORA A ;3E38-B7 RET ;3E39-C9 ;******************************* ; Start Subroutine PADR: MOV A,H ;3E3A-7C CALL PBYTE ;3E3B-CD 42 3E MOV A,L ;3E3E-7D JMP PBYTE ;3E3F-C3 42 3E PBYTE: PUSH PSW ;3E42-F5 RRC ;3E43-0F RRC ;3E44-0F RRC ;3E45-0F RRC ;3E46-0F ANI 00FH ;3E47-E6 0F CALL CONV ;3E49-CD 00 3D CALL PO ;3E4C-CD 8F 3E POP PSW ;3E4F-F1 PUSH PSW ;3E50-F5 ANI 00FH ;3E51-E6 0F CALL CONV ;3E53-CD 00 3D CALL PO ;3E56-CD 8F 3E POP PSW ;3E59-F1 ADD D ;3E5A-82 MOV D,A ;3E5B-57 RET ;3E5C-C9 ;******************************* ; Start Subroutine PCHK: CALL TI ;3E5D-CD 86 3F ;******************************* ; Start Subroutine P2C: CPI ' ' ;3E60-FE 20 RZ ;3E62-C8 CPI ',' ;3E63-FE 2C RZ ;3E65-C8 CPI CR ;3E66-FE 0D STC ;3E68-37 CMC ;3E69-3F RNZ ;3E6A-C0 STC ;3E6B-37 RET ;3E6C-C9 PEOL: MVI C,CR ;3E6D-0E 0D CALL PO ;3E6F-CD 8F 3E MVI C,LF ;3E72-0E 0A JMP PO ;3E74-C3 8F 3E ;******************************* ; Start Subroutine PGRM: MOV A,M ;3E77-7E CMA ;3E78-2F OUT P0003 ;3E79-D3 03 MVI A,080H ;3E7B-3E 80 OUT TTYS ;3E7D-D3 01 MVI A,0 ;3E7F-3E 00 OUT TTYS ;3E81-D3 01 PUSH B ;3E83-C5 MVI B,014H ;3E84-06 14 PG0: CALL DELAY ;3E86-CD 37 3D DCR B ;3E89-05 JNZ PG0 ;3E8A-C2 86 3E POP B ;3E8D-C1 RET ;3E8E-C9 PO: LDA IOBYTE ;3E8F-3A 03 00 ANI '0' ;3E92-E6 30 JZ TTYOUT ;3E94-CA 98 3C CPI 010H ;3E97-FE 10 JNZ PO1 ;3E99-C2 AF 3E PO0: IN TTYS ;3E9C-DB 01 ANI '@' ;3E9E-E6 40 JZ PO0 ;3EA0-CA 9C 3E MOV A,C ;3EA3-79 OUT P0003 ;3EA4-D3 03 MVI A,LF ;3EA6-3E 0A OUT TTYS ;3EA8-D3 01 MVI A,BS ;3EAA-3E 08 OUT TTYS ;3EAC-D3 01 RET ;3EAE-C9 PO1: CPI ' ' ;3EAF-FE 20 JZ P1LOC ;3EB1-CA 0C 30 JMP P2LOC ;3EB4-C3 0F 30 RI: PUSH H ;3EB7-E5 LXI H,IOBYTE ;3EB8-21 03 00 MOV A,M ;3EBB-7E ANI 00CH ;3EBC-E6 0C JNZ RI3 ;3EBE-C2 E4 3E MVI A,HT ;3EC1-3E 09 OUT TTYS ;3EC3-D3 01 RI0: MVI A,BS ;3EC5-3E 08 OUT TTYS ;3EC7-D3 01 MVI H,0FFH ;3EC9-26 FF ANI 001H ;3ECB-E6 01 JZ RI2 ;3ECD-CA DE 3E CALL DELAY ;3ED0-CD 37 3D CALL DELAY ;3ED3-CD 37 3D DCR H ;3ED6-25 JNZ RI0 ;3ED7-C2 C5 3E RI1: XRA A ;3EDA-AF STC ;3EDB-37 POP H ;3EDC-E1 RET ;3EDD-C9 RI2: IN TTYD ;3EDE-DB 00 CMA ;3EE0-2F ORA A ;3EE1-B7 POP H ;3EE2-E1 RET ;3EE3-C9 RI3: CPI 004H ;3EE4-FE 04 JNZ RI6 ;3EE6-C2 09 3F MVI A,00CH ;3EE9-3E 0C OUT TTYS ;3EEB-D3 01 MVI A,BS ;3EED-3E 08 OUT TTYS ;3EEF-D3 01 MVI H,0FAH ;3EF1-26 FA RI4: IN TTYS ;3EF3-DB 01 ANI ' ' ;3EF5-E6 20 JNZ RI5 ;3EF7-C2 04 3F CALL DELAY ;3EFA-CD 37 3D DCR H ;3EFD-25 JNZ RI4 ;3EFE-C2 F3 3E JMP RI1 ;3F01-C3 DA 3E RI5: IN P0003 ;3F04-DB 03 ORA A ;3F06-B7 POP H ;3F07-E1 RET ;3F08-C9 RI6: POP H ;3F09-E1 CPI BS ;3F0A-FE 08 JZ R1LOC ;3F0C-CA 06 30 JMP R2LOC ;3F0F-C3 09 30 ;******************************* ; Start Subroutine RIX: CALL RI ;3F12-CD B7 3E JC LER ;3F15-DA 67 3C ANI 07FH ;3F18-E6 7F RET ;3F1A-C9 RESTART: PUSH H ;3F1B-E5 PUSH D ;3F1C-D5 PUSH B ;3F1D-C5 PUSH PSW ;3F1E-F5 CALL MEMSIZ ;3F1F-CD 13 3E XCHG ;3F22-EB LXI H,A000A ;3F23-21 0A 00 DAD SP ;3F26-39 MVI B,004H ;3F27-06 04 XCHG ;3F29-EB RS0: DCX H ;3F2A-2B MOV M,D ;3F2B-72 DCX H ;3F2C-2B MOV M,E ;3F2D-73 POP D ;3F2E-D1 DCR B ;3F2F-05 JNZ RS0 ;3F30-C2 2A 3F POP B ;3F33-C1 DCX B ;3F34-0B SPHL ;3F35-F9 LXI H,A0014 ;3F36-21 14 00 DAD SP ;3F39-39 MOV A,M ;3F3A-7E SUB C ;3F3B-91 INX H ;3F3C-23 JNZ RS1 ;3F3D-C2 45 3F MOV A,M ;3F40-7E SUB B ;3F41-90 JZ RS3 ;3F42-CA 53 3F RS1: INX H ;3F45-23 INX H ;3F46-23 MOV A,M ;3F47-7E SUB C ;3F48-91 JNZ RS2 ;3F49-C2 52 3F INX H ;3F4C-23 MOV A,M ;3F4D-7E SUB B ;3F4E-90 JZ RS3 ;3F4F-CA 53 3F RS2: INX B ;3F52-03 RS3: LXI H,A000F ;3F53-21 0F 00 DAD SP ;3F56-39 MOV M,E ;3F57-73 INX H ;3F58-23 MOV M,D ;3F59-72 INX H ;3F5A-23 INX H ;3F5B-23 MOV M,C ;3F5C-71 INX H ;3F5D-23 MOV M,B ;3F5E-70 PUSH B ;3F5F-C5 MVI C,'*' ;3F60-0E 2A CALL CO ;3F62-CD 79 3C POP H ;3F65-E1 CALL LADR ;3F66-CD D1 3D LXI H,A0014 ;3F69-21 14 00 DAD SP ;3F6C-39 MVI D,002H ;3F6D-16 02 RS4: MOV C,M ;3F6F-4E MVI M,0 ;3F70-36 00 INX H ;3F72-23 MOV B,M ;3F73-46 MVI M,0 ;3F74-36 00 INX H ;3F76-23 MOV A,C ;3F77-79 ORA B ;3F78-B0 JZ RS5 ;3F79-CA 7E 3F MOV A,M ;3F7C-7E STAX B ;3F7D-02 RS5: INX H ;3F7E-23 DCR D ;3F7F-15 JNZ RS4 ;3F80-C2 6F 3F JMP START ;3F83-C3 98 38 TI: CALL CI ;3F86-CD D4 3C ANI 07FH ;3F89-E6 7F PUSH B ;3F8B-C5 MOV C,A ;3F8C-4F CALL CO ;3F8D-CD 79 3C MOV A,C ;3F90-79 POP B ;3F91-C1 RET ;3F92-C9 ; End code segment ;******************************* ; Start initialized byte data segment LTBL: DB 043H, 0FCH ;3F93-'C' 0FCH ; End initialized byte data segment ;******************************* ; Start initialized word data segment DW 03FA3H ;3F95-A3 3F ; End initialized word data segment ;******************************* ; Start initialized byte data segment DB 052H, 0F3H ;3F97-'R' 0F3H ; End initialized byte data segment ;******************************* ; Start initialized word data segment DW 03FABH ;3F99-AB 3F ; End initialized word data segment ;******************************* ; Start initialized byte data segment DB 050H, 0CFH ;3F9B-'P' 0CFH ; End initialized byte data segment ;******************************* ; Start initialized word data segment DW 03FB3H ;3F9D-B3 3F ; End initialized word data segment ;******************************* ; Start initialized byte data segment DB 04CH, 03FH ;3F9F-'L' '?' ; End initialized byte data segment ;******************************* ; Start initialized word data segment DW 03FBBH ;3FA1-BB 3F ; End initialized word data segment ;******************************* ; Start initialized byte data segment DB 054H, 000H, 043H, 001H, 042H, 002H, 031H, 003H ;3FA3-'T' 000H 'C' 001H 'B' 002H '1' 003H DB 054H, 000H, 050H, 004H, 031H, 008H, 032H, 00CH ;3FAB-'T' 000H 'P' 004H '1' 008H '2' 00CH DB 054H, 000H, 050H, 010H, 031H, 020H, 032H, 030H ;3FB3-'T' 000H 'P' 010H '1' ' ' '2' '0' DB 054H, 000H, 043H, 040H, 031H, 080H, 032H, 0C0H ;3FBB-'T' 000H 'C' '@' '1' 080H '2' 0C0H ; End initialized byte data segment ;******************************* ; Start code segment POP D ;3FC3-D1 POP B ;3FC4-C1 POP PSW ;3FC5-F1 POP H ;3FC6-E1 SPHL ;3FC7-F9 EI ;3FC8-FB LXI H,RST0 ;3FC9-21 00 00 JMP RST0 ;3FCC-C3 00 00 ; End code segment ;******************************* ; Start initialized byte data segment DB 000H, 000H, 000H, 000H, 000H, 000H ;3FCF-000H 000H 000H 000H 000H 000H ACTBL: DB 041H, 005H, 001H ;3FD5-'A' 005H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 042H, 003H, 001H ;3FD8-'B' 003H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 043H, 002H, 001H ;3FDB-'C' 002H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 044H, 001H, 001H ;3FDE-'D' 001H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 045H, 000H, 001H ;3FE1-'E' 000H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 046H, 004H, 001H ;3FE4-'F' 004H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 048H, 010H, 001H ;3FE7-'H' 010H 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 04CH, 00FH, 001H ;3FEA-'L' 00FH 001H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 04DH, 010H, 002H ;3FED-'M' 010H 002H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 050H, 013H, 002H ;3FF0-'P' 013H 002H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 053H, 007H, 002H ;3FF3-'S' 007H 002H ; End initialized byte data segment ;******************************* ; Start initialized byte data segment DB 0FFH ;3FF6-0FFH ; End initialized byte data segment ;******************************* ; Start initialized word data segment DW 0387BH ;3FF7-7B 38 ; End initialized word data segment ;******************************* ; Start initialized byte data segment ; End initialized byte data segment ;******************************* ; Start of Full Symbol Table ; Type Addr Label Used NoEQU Count ; J 0000 RST0 1 0 65 ; P 0000 TTYD 0 0 4 ; P 0001 TTYS 1 0 73 ; P 0002 P0002 1 0 31 ; P 0003 P0003 1 0 42 ; A 0003 IOBYTE 0 0 11 ; A 0004 A0004 1 0 26 ; P 0004 CRTD 0 0 4 ; P 0005 CRTS 1 0 38 ; P 0006 P0006 1 0 11 ; A 0008 A0008 1 0 11 ; A 0009 A0009 1 0 2 ; A 000A A000A 1 0 10 ; A 000F A000F 1 0 9 ; A 0011 A0011 1 0 3 ; A 0013 A0013 1 0 1 ; A 0014 A0014 1 0 9 ; A 0064 A0064 1 0 2 ; P 00FF P00FF 1 0 20 ; A 00FF A00FF 0 0 0 ; A 0100 A0100 1 0 10 ; A 01FF A01FF 1 0 4 ; A 03E8 A03E8 1 0 1 ; A 03FF A03FF 1 0 4 ; A 04FF A04FF 1 0 1 ; A 1F80 PTR1 1 0 10 ; A 1F82 A1F82 1 0 10 ; A 1F83 A1F83 1 0 1 ; A 1F84 A1F84 1 0 7 ; A 2710 A2710 1 0 1 ; J 3000 CILOC 1 0 4 ; J 3003 COLOC 1 0 4 ; J 3006 R1LOC 1 0 1 ; J 3009 R2LOC 1 0 1 ; J 300C P1LOC 1 0 1 ; J 300F P2LOC 1 0 1 ; J 3012 L1LOC 1 0 1 ; J 3015 L2LOC 1 0 1 ; J 3018 J3018 1 0 1 ; F 301B DPROG 1 0 1 ; F 301E DTRAN 1 0 1 ; F 3021 DCOMP 1 0 1 ; C 302A C302A 1 0 1 ; J 3036 J3036 1 1 1 ; C 3050 STPTR1 1 0 10 ; J 3059 ISBDH 1 0 13 ; J 3063 ISBDH0 1 1 1 ; J 306A ISBDH1 1 1 1 ; C 3070 4CHOUT 1 0 34 ; J 3072 STROUT 1 0 1 ; C 3080 BYTOUT 1 0 16 ; C 308D NIBOUT 1 1 1 ; J 3094 CHROUT 1 1 70 ; C 30A5 GETDDD 1 0 19 ; C 30AC PSWOUT 1 0 7 ; C 30C6 ISSP 1 0 4 ; J 30DA LOOP 1 1 28 ; J 3111 J3111 1 0 1 ; J 311C J311C 1 0 1 ; J 3127 J3127 1 0 1 ; J 3185 DORST 1 1 1 ; J 3194 DOCALL 1 1 1 ; J 319C DOADR 1 0 4 ; J 31A7 DOJMP 1 1 1 ; J 31B2 DORET 1 1 1 ; J 31BD DOLXI 1 1 1 ; J 31CE J31CE 1 1 1 ; J 31DB DOD16 1 1 1 ; J 31F1 DOMVI 1 1 1 ; J 3205 DODCR 1 1 1 ; J 320B DOINR 1 1 1 ; J 320E J320E 1 1 1 ; J 3214 J3214 1 1 1 ; J 321A DOADD 1 1 1 ; J 3229 DOMOV 1 1 1 ; J 323A DOSSS 1 1 1 ; J 3243 DOADI 1 1 1 ; C 3251 ADROUT 1 1 4 ; J 3260 DOD8 1 1 1 ; J 326B HEXOUT 1 1 1 ; J 3276 J3276 1 1 1 ; J 327E DO1BYT 1 1 1 ; A 328C ONEBYT 1 1 1 ; A 32A9 A32A9 1 1 1 ; A 32ED NOPMSG 1 1 1 ; A 3315 ADIMSG 1 1 1 ; A 3331 MOVMSG 1 1 1 ; A 3335 ADDMSG 1 1 1 ; A 3355 INRMSG 1 1 1 ; A 3359 DCRMSG 1 1 1 ; A 335D MVIMSG 1 1 1 ; A 3361 LXIMSG 1 1 1 ; A 3379 RSTMSG 1 1 1 ; A 337D PSWMSG 1 1 1 ; A 3380 POPMSG 1 1 1 ; A 3389 PSWBIT 1 1 1 ; J 3399 J3399 1 1 1 ; J 33B7 J33B7 1 1 1 ; J 33D0 J33D0 1 0 1 ; J 33E2 J33E2 1 0 1 ; J 33E7 J33E7 1 1 1 ; J 33F4 J33F4 1 1 4 ; J 33FF J33FF 1 0 1 ; J 340E J340E 1 1 1 ; J 341B J341B 1 0 1 ; J 3449 J3449 1 0 1 ; C 3453 C3453 1 1 7 ; J 3456 J3456 1 0 1 ; C 345C C345C 1 1 13 ; J 346E J346E 1 1 1 ; J 348B J348B 1 1 1 ; J 3493 J3493 1 1 1 ; J 34A7 J34A7 1 0 1 ; J 34B9 J34B9 1 1 1 ; J 34D6 J34D6 1 1 1 ; J 34DE J34DE 1 1 1 ; J 34EE J34EE 1 1 1 ; J 34F2 J34F2 1 0 1 ; C 3503 C3503 1 1 1 ; C 3506 C3506 1 1 1 ; J 351E J351E 1 1 1 ; J 3532 J3532 1 0 1 ; J 353A J353A 1 1 7 ; C 3562 C3562 1 1 1 ; J 356A J356A 1 1 4 ; J 356C J356C 1 0 1 ; J 3578 J3578 1 0 4 ; J 3585 J3585 1 0 1 ; J 35A6 J35A6 1 1 4 ; J 35A7 J35A7 1 1 7 ; J 35B9 J35B9 1 1 1 ; J 35CB J35CB 1 0 1 ; J 35CD J35CD 1 0 1 ; J 35E3 J35E3 1 1 1 ; C 35EE C35EE 1 1 7 ; J 35F2 J35F2 1 0 1 ; J 35FA J35FA 1 1 1 ; J 3606 J3606 1 0 1 ; J 3616 J3616 1 0 1 ; C 3624 C3624 1 1 7 ; C 362C C362C 1 1 4 ; J 3639 J3639 1 1 4 ; J 3644 J3644 1 0 1 ; J 364F J364F 1 0 1 ; J 365A J365A 1 1 4 ; J 3669 J3669 1 0 1 ; J 3675 J3675 1 1 1 ; J 3694 J3694 1 0 1 ; J 369D J369D 1 0 1 ; J 36C0 J36C0 1 0 1 ; C 36DD C36DD 1 1 1 ; C 36E1 C36E1 1 1 4 ; J 36E3 J36E3 1 0 1 ; C 3806 DORI 1 1 19 ; J 3809 DOCO 1 1 7 ; J 380C DOPO 1 1 13 ; J 381E DOSTART 1 1 16 ; J 3821 DOCOMP 1 1 1 ; J 3824 DOPROG 1 1 1 ; J 3827 DOTRAN 1 1 1 ; J 382A DOLER 1 1 49 ; C 382D DOBLK 1 1 4 ; C 3830 DOCRLF 1 1 13 ; C 3833 DOEXPR 1 1 19 ; C 3836 DOHILO 1 1 19 ; C 3839 DOLADR 1 1 1 ; C 383C DOLBYTE 1 1 10 ; C 383F DONIBBLE 1 1 4 ; C 3842 DOPBYTE 1 1 1 ; C 3845 DOPEOL 1 1 1 ; C 3848 DOTI 1 1 19 ; A 384B SIGNON 1 0 1 ; J 3856 BEGIN 1 1 1 ; J 385D BG0 1 0 1 ; J 386D BG1 1 0 1 ; J 388F VER0 1 0 1 ; J 3898 START 1 1 79 ; A 38BF CTBL 1 1 1 ; F 38EF ASSIGN 1 0 1 ; J 38F7 AS0 1 0 1 ; J 3906 AS1 1 1 1 ; J 390C AS2 1 0 1 ; J 3914 AS3 1 0 1 ; J 391E AS4 1 0 1 ; J 392B AS5 1 1 4 ; F 393E BPNF 1 0 1 ; J 3949 BN0 1 0 1 ; J 3975 BN1 1 0 1 ; J 3987 COMP 1 1 1 ; J 398E CM0 1 0 1 ; J 39B5 CM1 1 1 1 ; F 39BD DISP 1 0 1 ; J 39C2 DI0 1 0 1 ; J 39C8 DI1 1 0 1 ; F 39DE EOF 1 0 1 ; F 3A00 FILL 1 0 1 ; J 3A07 FI0 1 0 1 ; F 3A11 GOTO 1 0 1 ; J 3A2B GO0 1 1 1 ; J 3A31 GO1 1 0 1 ; J 3A49 GO2 1 1 1 ; J 3A53 GO3 1 1 7 ; F 3A5B HEXN 1 0 1 ; F 3A78 LOAD 1 0 1 ; F 3A83 MOVE 1 0 1 ; J 3A8A MV0 1 0 1 ; J 3A96 NULL 1 1 5 ; J 3A9C PROG 1 1 1 ; J 3AA6 PR0 1 0 1 ; J 3AB9 PR1 1 0 1 ; J 3AD8 PR2 1 1 1 ; J 3ADE PR3 1 0 1 ; J 3AE5 PR4 1 1 1 ; F 3AEF READ 1 0 1 ; J 3AF3 RED0 1 0 4 ; J 3B13 RED1 1 0 1 ; J 3B25 RED2 1 1 1 ; J 3B32 RED3 1 1 1 ; F 3B36 SUBS 1 0 1 ; J 3B41 SU0 1 0 1 ; J 3B60 SU1 1 1 1 ; J 3B64 TRAN 1 1 1 ; J 3B6B TR0 1 0 1 ; F 3B82 WRITE 1 0 1 ; J 3B8A WRT0 1 0 1 ; J 3B9F WRT1 1 1 1 ; J 3BA2 WRT2 1 1 1 ; J 3BBD WRT3 1 0 1 ; F 3BCF X 1 0 1 ; J 3BDA X0 1 0 1 ; J 3BEB X1 1 1 1 ; J 3BEE X2 1 1 4 ; J 3C06 X3 1 1 1 ; J 3C28 X4 1 1 4 ; J 3C2A X5 1 1 4 ; J 3C38 X5 1 1 1 ; J 3C3B X6 1 1 10 ; T 3C67 LER 1 1 37 ; C 3C77 BLK 1 1 25 ; C 3C79 CO 1 1 52 ; J 3C8D CO0 1 0 1 ; J 3C95 CO1 1 1 1 ; C 3C98 TTYOUT 1 1 22 ; J 3CA4 CO2 1 1 4 ; J 3CA9 CRTOUT 1 1 7 ; J 3CB5 CO3 1 1 4 ; C 3CBD BYTE 1 1 22 ; C 3CD4 CI 1 1 10 ; J 3CDC TTYIN 1 1 4 ; J 3CE5 CI0 1 1 4 ; J 3CE7 CI1 1 1 4 ; J 3CEC CRTIN 1 1 4 ; J 3CF8 CI2 1 1 4 ; C 3D00 CONV 1 0 7 ; C 3D08 CRLF 1 1 31 ; J 3D12 CSTS 1 1 1 ; J 3D1F CS0 1 1 1 ; J 3D26 CS1 1 1 1 ; J 3D2A CS2 1 0 1 ; J 3D2D CS3 1 1 1 ; C 3D37 DELAY 1 1 16 ; J 3D3A DLY1 1 0 1 ; C 3D40 DIGIT 1 1 13 ; J 3D42 DG0 1 0 1 ; J 3D4F DG1 1 1 1 ; J 3D57 DG2 1 0 1 ; J 3D5A DG3 1 1 1 ; C 3D5F ENCODE 1 1 1 ; J 3D67 EN0 1 0 1 ; J 3D82 EXPR 1 1 46 ; J 3D85 EX0 1 0 1 ; J 3D88 EX1 1 0 1 ; J 3D98 EX2 1 1 1 ; J 3DA6 EX3 1 1 1 ; C 3DAE EXF 1 1 10 ; J 3DB6 HILO 1 1 16 ; C 3DC0 HXD 1 0 4 ; J 3DC6 IOCHK 1 1 1 ; J 3DCA IOSET 1 1 1 ; J 3DD1 LADR 1 1 16 ; C 3DD9 LBYTE 1 1 43 ; C 3DE9 LEAD 1 1 4 ; J 3DEB LE0 1 0 1 ; J 3DF5 LO 1 1 7 ; J 3E0A MEMCK 1 1 1 ; C 3E13 MEMSIZ 1 1 10 ; J 3E17 MEM0 1 0 1 ; C 3E28 NIBBLE 1 1 16 ; J 3E36 NI0 1 1 1 ; C 3E3A PADR 1 1 4 ; J 3E42 PBYTE 1 1 28 ; C 3E5D PCHK 1 1 10 ; C 3E60 P2C 1 1 4 ; J 3E6D PEOL 1 1 10 ; C 3E77 PGRM 1 1 4 ; J 3E86 PG0 1 0 1 ; J 3E8F PO 1 1 40 ; J 3E9C PO0 1 0 1 ; J 3EAF PO1 1 1 1 ; J 3EB7 RI 1 1 10 ; J 3EC5 RI0 1 0 1 ; J 3EDA RI1 1 0 1 ; J 3EDE RI2 1 1 1 ; J 3EE4 RI3 1 1 1 ; J 3EF3 RI4 1 0 1 ; J 3F04 RI5 1 1 1 ; J 3F09 RI6 1 1 1 ; C 3F12 RIX 1 1 13 ; A 3F1B RESTART 1 1 1 ; J 3F2A RS0 1 0 1 ; J 3F45 RS1 1 1 1 ; J 3F52 RS2 1 1 1 ; J 3F53 RS3 1 1 4 ; J 3F6F RS4 1 0 1 ; J 3F7E RS5 1 1 1 ; J 3F86 TI 1 1 25 ; A 3F93 LTBL 1 1 1 ; A 3FD5 ACTBL 1 1 4 ; A FFEE AFFEE 1 0 1 ; A FFF8 AFFF8 1 0 4 ; End of Full Symbol Table END