; ;Here is version 2.0 of an Intel ROM monitor from the rom images from bitsavers. ; ;http://bitsavers.informatik.uni-stuttgart.de/pdf/intel/ ; MCS80/Intellec_8_Mod_80/Intellec_8_8080_eproms.zip ; PROMS 3800 through 3F00 ; ; Disassembly of i38.bin by Bill Beech Feb 3 2015 ; File is 2046[07FE] bytes ; ; Origin set to 3800H ORG 03800H ; Hex/ASCII dump of file: ; Addr 0 1 2 3 4 5 6 7 8 9 A B C D E F ; 000000 C3 29 38 C3 94 3C C3 A0 3E C3 50 3C C3 78 3E C3 .)8..<..>.P<.x>. ; 000010 DE 3D C3 D2 3C C3 AF 3D C3 B3 3D C3 F3 3D 0D 0A .=..<..=..=..=.. ; 000020 38 30 38 30 20 56 32 2E 30 21 03 00 36 2F 3E FF 8080 V2.0!..6/>. ; 000030 32 A2 2F 21 4E 2F 06 12 11 BD 3F 1B 1A 2B 77 05 2./!N/....?..+w. ; 000040 C2 3B 38 F9 CD E0 3F 00 00 21 00 01 E5 26 00 E5 .;8...?..!...&.. ; 000050 E5 E5 3E C3 32 08 00 21 03 3F 22 09 00 21 1E 38 ..>.2..!.?"..!.8 ; 000060 16 0B 4E 23 CD 50 3C 15 C2 62 38 FB 3E 08 D3 01 ..N#.P<..b8.>... ; 000070 CD C8 3C 0E 2E CD 50 3C CD 6E 3F D6 41 FA 6B 38 ..<...P<.n?.A.k8 ; 000080 FE 18 F2 3E 3C 87 21 92 38 85 6F 7E 23 66 6F 0E ...><.!.8.o~#fo. ; 000090 02 E9 C2 38 11 39 5A 39 8D 39 AE 39 D0 39 E1 39 ...8.9Z9.9.9.9.9 ; 0000A0 2B 3A 00 35 8C 35 C4 35 48 3A 5C 3A 6F 3A 40 36 +:.5.5.5H:\:o:@6 ; 0000B0 75 3A 3E 3C C9 3A 10 3B 3E 3B 00 60 3E 3C 59 3B u:><.:.;>;.`><.n ; 000100 3F FE 0D C2 FE 38 4E 21 03 00 7E A0 B1 77 C3 6B ?....8N!..~..w.k ; 000110 38 CD 6B 3D CD C8 3C CD D2 3D D1 E1 E5 D5 CD 56 8.k=..<..=.....V ; 000120 3E 06 20 11 10 27 CD 29 3D 11 E8 03 CD 29 3D 11 >. ..'.)=....)=. ; 000130 64 00 CD 29 3D 1E 0A CD 29 3D 1E 01 06 30 CD 29 d..)=...)=...0.) ; 000140 3D 0E 20 CD 78 3E D1 E1 CD 48 3D CD 9F 3D DA 6F =. .x>...H=..=.o ; 000150 3A 7D E6 03 C2 48 39 C3 1C 39 0D CD 6B 3D E1 1E :}...H9..9..k=.. ; 000160 00 3E 00 D3 01 7B 2F D3 02 DB 02 2F BE CA 85 39 .>...{/..../...9 ; 000170 F5 CD C8 3C CD BA 3D CD 4E 3C 7E CD C2 3D CD 4E ...<..=.N<~..=.N ; 000180 3C F1 CD C2 3D 23 1C C2 61 39 C3 6B 38 CD 6B 3D <...=#..a9.k8.k= ; 000190 D1 E1 CD C8 3C CD BA 3D CD 4E 3C 7E CD C2 3D CD ....<..=.N<~..=. ; 0001A0 9F 3D DA 6B 38 7D E6 0F C2 98 39 C3 92 39 0D CD .=.k8}....9..9.. ; 0001B0 6B 3D 0E 3A CD 78 3E AF 57 CD 2B 3E E1 CD 23 3E k=.:.x>.W.+>..#> ; 0001C0 3E 01 CD 2B 3E AF 92 CD 2B 3E CD 56 3E C3 6F 3A >..+>...+>.V>.o: ; 0001D0 0C CD 6B 3D C1 D1 E1 71 CD 9F 3D D2 D7 39 C3 6B ..k=...q..=..9.k ; 0001E0 38 CD 46 3E DA 23 3A CA FB 39 CD 97 3D D1 21 13 8.F>.#:..9..=.!. ; 0001F0 00 39 72 2B 73 78 FE 0D CA 23 3A 16 02 21 14 00 .9r+sx...#:..!.. ; 000200 39 E5 0E 01 CD 6B 3D 58 C1 E1 78 B1 CA 19 3A 71 9....k=X..x...:q ; 000210 23 70 23 0A 77 23 3E CF 02 7B FE 0D CA 23 3A 15 #p#.w#>..{...#:. ; 000220 C2 01 3A CD C8 3C 21 08 00 39 E9 CD 6B 3D D1 E1 ..:.. ; 000280 00 D3 01 79 D3 FF 2F D3 02 DB 02 2F BE CA BF 3A ...y../..../...: ; 000290 06 F8 CD 60 3E DB 02 2F BE CA B1 3A 04 C2 92 3A ...`>../...:...: ; 0002A0 C5 0E 24 CD 50 3C CD 4E 3C C1 79 CD C2 3D C3 3E ..$.P<.N<.y..=.> ; 0002B0 3C 78 C6 09 47 87 80 47 CD 60 3E 05 C2 B8 3A 0C ...:. ; 0002C0 CD 9F 3D D2 7F 3A C3 6B 38 0D CD 6B 3D E1 E5 CD ..=..:.k8..k=... ; 0002D0 FA 3E 06 3A 90 C2 CD 3A 57 CD 7D 3C CA FF 3A 5F .>.:...:W.}<..:_ ; 0002E0 CD 7D 3C F5 CD 7D 3C C1 4F 09 CD 7D 3C CD 7D 3C .}<..}<.O..}<.}< ; 0002F0 77 23 1D C2 ED 3A CD 7D 3C C2 3E 3C C3 CD 3A CD w#...:.}<.><..:. ; 000300 7D 3C 67 CD 7D 3C 6F B4 CA 0C 3B E9 E1 C3 6B 38 }.><.~..=. ; 000320 2D CD 50 3C CD 46 3E DA 6B 38 CA 3A 3B E5 CD 97 -.P<.F>.k8.:;... ; 000330 3D D1 E1 73 78 FE 0D CA 6B 38 23 C3 1B 3B 0D CD =..sx...k8#..;.. ; 000340 6B 3D E1 1E 00 3E 00 D3 01 7B 2F D3 02 DB 02 2F k=...>...{/..../ ; 000350 77 23 1C C2 45 3B C3 6B 38 CD 6B 3D CD C8 3C D1 w#..E;.k8.k=..<. ; 000360 E1 7D C6 10 4F 7C CE 00 47 7B 91 4F 7A 98 DA 76 .}..O|..G{.Oz..v ; 000370 3B 3E 10 C3 79 3B 79 C6 11 B7 CA 6B 38 D5 5F 16 ;>..y;y....k8._. ; 000380 00 CD 56 3E 0E 3A CD 78 3E 7B CD 2B 3E CD 23 3E ..V>.:.x>{.+>.#> ; 000390 AF CD 2B 3E 7E 23 CD 2B 3E 1D C2 94 3B AF 92 CD ..+>~#.+>...;... ; 0003A0 2B 3E D1 C3 61 3B CD 6E 3F 21 BD 3F FE 0D CA 0F +>..a;.n?!.?.... ; 0003B0 3C BE CA C2 3B F5 7E B7 FA 3E 3C 23 23 23 F1 C3 <...;.~..><###.. ; 0003C0 B1 3B CD 4E 3C 23 7E EB 6F 26 00 39 EB 23 46 23 .;.N<#~.o&.9.#F# ; 0003D0 1A CD C2 3D 05 CA DD 3B 1B 1A CD C2 3D 04 0E 2D ...=...;....=..- ; 0003E0 CD 50 3C CD 46 3E DA 6B 38 CA 01 3C E5 C5 CD 97 .P<.F>.k8..<.... ; 0003F0 3D E1 F1 C5 F5 7D 12 C1 05 CA FF 3B 13 7C 12 C1 =....}.....;.|.. ; 000400 E1 7E B7 FA 6B 38 78 FE 0D CA 6B 38 C3 C5 3B CD .~..k8x...k8..;. ; 000410 C8 3C CD 4E 3C 7E 23 B7 FA 6B 38 4F CD 50 3C 0E .<.N<~#..k8O.P<. ; 000420 3D CD 50 3C 7E 23 EB 6F 26 00 39 EB 46 23 1A CD =.P<~#.o&.9.F#.. ; 000430 C2 3D 05 CA 12 3C 1B 1A CD C2 3D C3 12 3C CD FC .=...<....=..<.. ; 000440 3D 11 F8 FF 19 F9 0E 3F CD 50 3C C3 6B 38 0E 20 =......?.P<.k8. ; 000450 3A 03 00 E6 03 C2 64 3C DB 01 E6 04 C2 58 3C 79 :.....d<.....X ; 000480 CD 11 3E 07 07 07 07 4F CD FA 3E CD 11 3E B1 4F ..>....O..>..>.O ; 000490 82 57 79 C9 3A 03 00 E6 03 C2 A7 3C DB 01 E6 01 .Wy.:......<.... ; 0004A0 C2 9C 3C DB 00 2F C9 FE 01 C2 B8 3C DB 05 E6 01 ..<../.....<.... ; 0004B0 C2 AC 3C DB 04 C3 A5 3C FE 02 CA A0 3E C3 00 37 ..<....<....>..7 ; 0004C0 C6 90 27 CE 40 27 4F C9 0E 0D CD 50 3C 0E 0A C3 ..'.@'O....P<... ; 0004D0 50 3C 3A 03 00 E6 03 C2 DF 3C DB 01 C3 E6 3C FE P<:......<....<. ; 0004E0 01 C2 ED 3C DB 05 E6 01 3E 00 C0 2F C9 FE 02 3E ...<....>../...> ; 0004F0 FF CA EA 3C C3 18 37 CD FA 3E FE 42 C2 F7 3C 36 ...<..7..>.B..<6 ; 000500 01 CD FA 3E FE 4E C2 18 3D 7E 17 77 D2 01 3D CD ...>.N..=~.w..=. ; 000510 FA 3E FE 46 C2 3E 3C C9 C6 B0 C2 3E 3C C3 09 3D .>.F.><....><..= ; 000520 C5 06 54 05 C2 23 3D C1 C9 0E 30 7D 93 6F 7C 9A ..T..#=...0}.o|. ; 000530 67 DA 38 3D 0C C3 2B 3D 19 79 FE 30 C2 43 3D 48 g.8=..+=.y.0.C=H ; 000540 C3 78 3E 06 30 C3 40 3D 0E 42 CD 78 3E 06 08 7E .x>.0.@=.B.x>..~ ; 000550 07 F5 3E 00 17 17 C6 4E 4F CD 78 3E F1 05 C2 50 ..>....NO.x>...P ; 000560 3D 0E 46 CD 78 3E 0E 20 C3 78 3E 21 00 00 CD 6E =.F.x>. .x>!...n ; 000570 3F 47 CD 11 3E DA 81 3D 29 29 29 29 B5 6F C3 6E ?G..>..=)))).o.n ; 000580 3D E3 E5 78 CD 49 3E D2 8F 3D 0D C2 3E 3C C9 C2 =..x.I>..=..><.. ; 000590 3E 3C 0D C2 6B 3D C9 0E 01 21 00 00 C3 71 3D 23 ><..k=...!...q=# ; 0005A0 7C B5 37 C8 7B 95 7A 9C C9 CD C0 3C C3 50 3C 3A |.7.{.z....<.P<: ; 0005B0 03 00 C9 E5 21 03 00 71 E1 C9 7C CD C2 3D 7D C3 ....!..q..|..=}. ; 0005C0 C2 3D F5 0F 0F 0F 0F E6 0F CD A9 3D F1 E6 0F C3 .=.........=.... ; 0005D0 A9 3D 06 FC 0E 00 CD 78 3E 05 C2 D4 3D C9 3A 03 .=.....x>...=.:. ; 0005E0 00 E6 C0 CA 58 3C FE 40 CA 69 3C FE 80 CA 12 37 ....X<.@.i<....7 ; 0005F0 C3 15 37 E5 CD FC 3D 44 3E 0E E1 C9 C5 3E FF 32 ..7...=D>....>.2 ; 000600 A2 2F CD E0 3F 21 4E 2F 00 00 00 01 EE FF 09 C1 ./..?!N/........ ; 000610 C9 D6 30 D8 C6 E9 D8 C6 06 F2 1F 3E C6 07 D8 C6 ..0........>.... ; 000620 0A B7 C9 7C CD 2B 3E 7D C3 2B 3E F5 0F 0F 0F 0F ...|.+>}.+>..... ; 000630 E6 0F CD C0 3C CD 78 3E F1 F5 E6 0F CD C0 3C CD ....<.x>......<. ; 000640 78 3E F1 82 57 C9 CD 6E 3F FE 20 C8 FE 2C C8 FE x>..W..n?. ..,.. ; 000650 0D 37 3F C0 37 C9 0E 0D CD 78 3E 0E 0A C3 78 3E .7?.7....x>...x> ; 000660 7E 2F D3 03 3E 80 D3 01 3E 00 D3 01 C5 06 10 CD ~/..>...>....... ; 000670 20 3D 05 C2 6F 3E C1 C9 3A 03 00 E6 30 CA 58 3C =..o>..:...0.X< ; 000680 FE 10 C2 98 3E DB 01 E6 40 CA 85 3E 79 D3 03 3E ....>...@..>y..> ; 000690 0A D3 01 3E 08 D3 01 C9 FE 20 CA 0C 37 C3 0F 37 ...>..... ..7..7 ; 0006A0 E5 21 03 00 7E E6 0C C2 CC 3E 3E 09 D3 01 3E 08 .!..~....>>...>. ; 0006B0 D3 01 26 FA DB 01 E6 01 CA C6 3E CD 20 3D 25 C2 ..&.......>. =%. ; 0006C0 B4 3E AF 37 E1 C9 DB 00 2F B7 E1 C9 FE 04 C2 F1 .>.7..../....... ; 0006D0 3E 3E 0C D3 09 3E 08 D3 09 26 FA DB 09 E6 20 CA >>...>...&.... . ; 0006E0 EC 3E CD 20 3D 25 C2 DB 3E C3 C2 3E DB 0B B7 E1 .>. =%..>..>.... ; 0006F0 C9 E1 FE 08 CA 06 37 C3 09 37 CD A0 3E DA 3E 3C ......7..7..>.>< ; 000700 E6 7F C9 E5 D5 C5 F5 CD FC 3D EB 21 0A 00 39 06 .........=.!..9. ; 000710 04 EB 2B 72 2B 73 D1 05 C2 12 3F C1 0B F9 21 14 ..+r+s....?...!. ; 000720 00 39 7E 91 23 C2 2D 3F 7E 90 CA 3B 3F 23 23 7E .9~.#.-?~..;?##~ ; 000730 91 C2 3A 3F 23 7E 90 CA 3B 3F 03 21 0F 00 39 73 ..:?#~..;?.!..9s ; 000740 23 72 23 23 71 23 70 C5 0E 2A CD 50 3C E1 CD BA #r##q#p..*.P<... ; 000750 3D 21 14 00 39 16 02 4E 36 00 23 46 36 00 23 79 =!..9..N6.#F6.#y ; 000760 B0 CA 66 3F 7E 02 23 15 C2 57 3F C3 6B 38 CD 94 ..f?~.#..W?.k8.. ; 000770 3C E6 7F C5 4F CD 50 3C 79 C1 C9 43 FC 8B 3F 52 <...O.P.q#...? ; 0007F0 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ ; 000800 ; sof=3800 eof=3FFF mem=FFFF X0000 EQU 00000H ;0 X0003 EQU 00003H ;3 X0008 EQU 00008H ;8 X0009 EQU 00009H ;9 X000A EQU 0000AH ;10 X000F EQU 0000FH ;15 X0013 EQU 00013H ;19 X0014 EQU 00014H ;20 X0064 EQU 00064H ;100 X0100 EQU 00100H ;256 X03E8 EQU 003E8H ;1000 X2710 EQU 02710H ;10000 X2F4E EQU 02F4EH ;12110 X2FA2 EQU 02FA2H ;12194 X3500 EQU 03500H ;13568 X358C EQU 0358CH ;13708 X35C4 EQU 035C4H ;13764 X3640 EQU 03640H ;13888 X3700 EQU 03700H ;14080 X3703 EQU 03703H ;14083 X3706 EQU 03706H ;14086 X3709 EQU 03709H ;14089 X370C EQU 0370CH ;14092 X370F EQU 0370FH ;14095 X3712 EQU 03712H ;14098 X3715 EQU 03715H ;14101 X3718 EQU 03718H ;14104 MFFEE EQU 0FFEEH ;65518 MFFF8 EQU 0FFF8H ;65528 ; Symbol table dump: ; Type addr jmp/call? count ; X 0000 * 145 ; X 0003 * 11 ; X 0008 * 18 ; X 0009 * 20 ; X 000A * 172 ; X 000F * 177 ; X 0013 * 82 ; X 0014 * 83 ; X 0064 * 63 ; X 0100 * 17 ; X 03E8 * 62 ; X 2710 * 60 ; X 2F4E * 13 ; X 2FA2 * 12 ; X 3500 * 36 ; X 358C * 37 ; X 35C4 * 38 ; X 3640 * 42 ; X 3700 * 130 ; X 3703 * 123 ; X 3706 * 170 ; X 3709 * 171 ; X 370C * 161 ; X 370F * 162 ; X 3712 * 153 ; X 3715 * 154 ; X 3718 * 135 ; A 381E * 21 ; A 3829 * 1 ; A 383B * 15 ; A 3862 * 22 ; A 386B * 25 ; A 3892 * 27 ; A 38C2 * 28 ; A 38CA * 52 ; A 38D9 * 51 ; A 38DF * 53 ; A 38E7 * 54 ; A 38F1 * 56 ; A 38FE * 55 ; A 3911 * 29 ; A 391C * 67 ; A 3948 * 66 ; A 395A * 30 ; A 3961 * 72 ; A 3985 * 68 ; A 398D * 31 ; A 3992 * 74 ; A 3998 * 73 ; A 39AE * 32 ; A 39D0 * 33 ; A 39D7 * 77 ; A 39E1 * 34 ; A 39FB * 80 ; A 3A01 * 85 ; A 3A19 * 84 ; A 3A23 * 79 ; A 3A2B * 35 ; A 3A48 * 39 ; A 3A50 * 87 ; A 3A5C * 40 ; A 3A63 * 88 ; A 3A6F * 41 ; A 3A75 * 43 ; A 3A7F * 94 ; A 3A92 * 92 ; A 3AB1 * 91 ; A 3AB8 * 93 ; A 3ABF * 89 ; A 3AC9 * 44 ; A 3ACD * 96 ; A 3AED * 99 ; A 3AFF * 98 ; A 3B0C * 100 ; A 3B10 * 45 ; A 3B1B * 103 ; A 3B3A * 102 ; A 3B3E * 46 ; A 3B45 * 104 ; A 3B59 * 48 ; A 3B61 * 108 ; A 3B76 * 105 ; A 3B79 * 106 ; A 3B94 * 107 ; A 3BA6 * 49 ; A 3BB1 * 111 ; A 3BC2 * 110 ; A 3BC5 * 115 ; A 3BDD * 112 ; A 3BFF * 114 ; A 3C01 * 113 ; A 3C0F * 109 ; A 3C12 * 116 ; A 3C3E * 26 ; A 3C4E * 70 ; A 3C50 * 4 ; A 3C58 * 120 ; A 3C64 * 119 ; A 3C69 * 122 ; A 3C75 * 121 ; A 3C7D * 97 ; A 3C94 * 2 ; A 3C9C * 126 ; A 3CA5 * 129 ; A 3CA7 * 125 ; A 3CAC * 128 ; A 3CB8 * 127 ; A 3CC0 * 150 ; A 3CC8 * 23 ; A 3CD2 * 7 ; A 3CDF * 131 ; A 3CE6 * 132 ; A 3CEA * 134 ; A 3CED * 133 ; A 3CF7 * 86 ; A 3D01 * 137 ; A 3D09 * 138 ; A 3D18 * 136 ; A 3D20 * 157 ; A 3D23 * 139 ; A 3D29 * 61 ; A 3D2B * 141 ; A 3D38 * 140 ; A 3D40 * 143 ; A 3D43 * 142 ; A 3D48 * 64 ; A 3D50 * 144 ; A 3D6B * 57 ; A 3D6E * 147 ; A 3D71 * 149 ; A 3D81 * 146 ; A 3D8F * 148 ; A 3D97 * 81 ; A 3D9F * 65 ; A 3DA9 * 151 ; A 3DAF * 8 ; A 3DB3 * 9 ; A 3DBA * 69 ; A 3DC2 * 71 ; A 3DD2 * 58 ; A 3DD4 * 152 ; A 3DDE * 6 ; A 3DF3 * 10 ; A 3DFC * 117 ; A 3E11 * 124 ; A 3E1F * 156 ; A 3E23 * 76 ; A 3E2B * 75 ; A 3E46 * 78 ; A 3E49 * 101 ; A 3E56 * 59 ; A 3E60 * 90 ; A 3E6F * 158 ; A 3E78 * 5 ; A 3E85 * 160 ; A 3E98 * 159 ; A 3EA0 * 3 ; A 3EB4 * 165 ; A 3EC2 * 169 ; A 3EC6 * 164 ; A 3ECC * 163 ; A 3EDB * 168 ; A 3EEC * 167 ; A 3EF1 * 166 ; A 3EFA * 95 ; A 3F03 * 19 ; A 3F12 * 173 ; A 3F2D * 174 ; A 3F3A * 176 ; A 3F3B * 175 ; A 3F57 * 179 ; A 3F66 * 178 ; A 3F6E * 24 ; A 3F7B * 50 ; A 3FBD * 14 ; A 3FE0 * 16 ; M 6000 * 47 ; M FFEE * 155 ; M FFF8 * 118 ;Start code segment JMP A3829 ;3800-C3 29 38 * ;************ JMP A3C94 ;3803-C3 94 3C * ;************ JMP A3EA0 ;3806-C3 A0 3E * ;************ JMP A3C50 ;3809-C3 50 3C * ;************ JMP A3E78 ;380C-C3 78 3E * ;************ JMP A3DDE ;380F-C3 DE 3D * ;************ JMP A3CD2 ;3812-C3 D2 3C * ;************ JMP A3DAF ;3815-C3 AF 3D * ;************ JMP A3DB3 ;3818-C3 B3 3D * ;************ JMP A3DF3 ;381B-C3 F3 3D * ;************ ;Start data segment DB 00DH, 00AH, '8', '0', '8', '0', ' ', 'V' DB '2', '.', '0' ;************ ;Start code segment A3829 LXI H,X0003 ;3829-21 03 00 * MVI M,02FH ;382C-36 2F MVI A,0FFH ;382E-3E FF STA X2FA2 ;3830-32 A2 2F * LXI H,X2F4E ;3833-21 4E 2F * MVI B,012H ;3836-06 12 LXI D,A3FBD ;3838-11 BD 3F * A383B DCX D ;383B-1B LDAX D ;383C-1A DCX H ;383D-2B MOV M,A ;383E-77 DCR B ;383F-05 JNZ A383B ;3840-C2 3B 38 * SPHL ;3843-F9 CALL A3FE0 ;3844-CD E0 3F * NOP ;3847-00 NOP ;3848-00 LXI H,X0100 ;3849-21 00 01 * PUSH H ;384C-E5 MVI H,000H ;384D-26 00 PUSH H ;384F-E5 PUSH H ;3850-E5 PUSH H ;3851-E5 MVI A,0C3H ;3852-3E C3 STA X0008 ;3854-32 08 00 * LXI H,A3F03 ;3857-21 03 3F * SHLD X0009 ;385A-22 09 00 * LXI H,A381E ;385D-21 1E 38 * MVI D,00BH ;3860-16 0B A3862 MOV C,M ;3862-4E INX H ;3863-23 CALL A3C50 ;3864-CD 50 3C * DCR D ;3867-15 JNZ A3862 ;3868-C2 62 38 * A386B EI ;386B-FB MVI A,008H ;386C-3E 08 OUT 001H ;386E-D3 01 CALL A3CC8 ;3870-CD C8 3C * MVI C,02EH ;3873-0E 2E CALL A3C50 ;3875-CD 50 3C * CALL A3F6E ;3878-CD 6E 3F * SUI 041H ;387B-D6 41 JM A386B ;387D-FA 6B 38 * CPI 018H ;3880-FE 18 JP A3C3E ;3882-F2 3E 3C * ADD A ;3885-87 LXI H,A3892 ;3886-21 92 38 * ADD L ;3889-85 MOV L,A ;388A-6F MOV A,M ;388B-7E INX H ;388C-23 MOV H,M ;388D-66 MOV L,A ;388E-6F MVI C,002H ;388F-0E 02 PCHL ;3891-E9 ;************ ;Start table segment A3892 DW A38C2 ;3892-C2 38 * DW A3911 ;3894-11 39 * DW A395A ;3896-5A 39 * DW A398D ;3898-8D 39 * DW A39AE ;389A-AE 39 * DW A39D0 ;389C-D0 39 * DW A39E1 ;389E-E1 39 * DW A3A2B ;38A0-2B 3A * DW X3500 ;38A2-00 35 * DW X358C ;38A4-8C 35 * DW X35C4 ;38A6-C4 35 * DW A3A48 ;38A8-48 3A * DW A3A5C ;38AA-5C 3A * DW A3A6F ;38AC-6F 3A * DW X3640 ;38AE-40 36 * DW A3A75 ;38B0-75 3A * DW A3C3E ;38B2-3E 3C * DW A3AC9 ;38B4-C9 3A * DW A3B10 ;38B6-10 3B * DW A3B3E ;38B8-3E 3B * DW M6000 ;38BA-00 60 * DW A3C3E ;38BC-3E 3C * DW A3B59 ;38BE-59 3B * DW A3BA6 ;38C0-A6 3B * ;************ ;Start code segment A38C2 CALL A3F6E ;38C2-CD 6E 3F * LXI H,A3F7B ;38C5-21 7B 3F * MVI C,004H ;38C8-0E 04 A38CA CMP M ;38CA-BE INX H ;38CB-23 JZ A38D9 ;38CC-CA D9 38 * INX H ;38CF-23 INX H ;38D0-23 INX H ;38D1-23 DCR C ;38D2-0D JNZ A38CA ;38D3-C2 CA 38 * JMP A3C3E ;38D6-C3 3E 3C * ;************ A38D9 MOV B,M ;38D9-46 INX H ;38DA-23 MOV E,M ;38DB-5E INX H ;38DC-23 MOV D,M ;38DD-56 XCHG ;38DE-EB A38DF CALL A3F6E ;38DF-CD 6E 3F * CPI 03DH ;38E2-FE 3D JNZ A38DF ;38E4-C2 DF 38 * A38E7 CALL A3F6E ;38E7-CD 6E 3F * CPI 020H ;38EA-FE 20 JZ A38E7 ;38EC-CA E7 38 * MVI C,004H ;38EF-0E 04 A38F1 CMP M ;38F1-BE INX H ;38F2-23 JZ A38FE ;38F3-CA FE 38 * INX H ;38F6-23 DCR C ;38F7-0D JNZ A38F1 ;38F8-C2 F1 38 * JMP A3C3E ;38FB-C3 3E 3C * ;************ A38FE CALL A3F6E ;38FE-CD 6E 3F * CPI 00DH ;3901-FE 0D JNZ A38FE ;3903-C2 FE 38 * MOV C,M ;3906-4E LXI H,X0003 ;3907-21 03 00 * MOV A,M ;390A-7E ANA B ;390B-A0 ORA C ;390C-B1 MOV M,A ;390D-77 JMP A386B ;390E-C3 6B 38 * ;************ A3911 CALL A3D6B ;3911-CD 6B 3D * CALL A3CC8 ;3914-CD C8 3C * CALL A3DD2 ;3917-CD D2 3D * POP D ;391A-D1 POP H ;391B-E1 A391C PUSH H ;391C-E5 PUSH D ;391D-D5 CALL A3E56 ;391E-CD 56 3E * MVI B,020H ;3921-06 20 LXI D,X2710 ;3923-11 10 27 * CALL A3D29 ;3926-CD 29 3D * LXI D,X03E8 ;3929-11 E8 03 * CALL A3D29 ;392C-CD 29 3D * LXI D,X0064 ;392F-11 64 00 * CALL A3D29 ;3932-CD 29 3D * MVI E,00AH ;3935-1E 0A CALL A3D29 ;3937-CD 29 3D * MVI E,001H ;393A-1E 01 MVI B,030H ;393C-06 30 CALL A3D29 ;393E-CD 29 3D * MVI C,020H ;3941-0E 20 CALL A3E78 ;3943-CD 78 3E * POP D ;3946-D1 POP H ;3947-E1 A3948 CALL A3D48 ;3948-CD 48 3D * CALL A3D9F ;394B-CD 9F 3D * JC A3A6F ;394E-DA 6F 3A * MOV A,L ;3951-7D ANI 003H ;3952-E6 03 JNZ A3948 ;3954-C2 48 39 * JMP A391C ;3957-C3 1C 39 * ;************ A395A DCR C ;395A-0D CALL A3D6B ;395B-CD 6B 3D * POP H ;395E-E1 MVI E,000H ;395F-1E 00 A3961 MVI A,000H ;3961-3E 00 OUT 001H ;3963-D3 01 MOV A,E ;3965-7B CMA ;3966-2F OUT 002H ;3967-D3 02 IN 002H ;3969-DB 02 CMA ;396B-2F CMP M ;396C-BE JZ A3985 ;396D-CA 85 39 * PUSH PSW ;3970-F5 CALL A3CC8 ;3971-CD C8 3C * CALL A3DBA ;3974-CD BA 3D * CALL A3C4E ;3977-CD 4E 3C * MOV A,M ;397A-7E CALL A3DC2 ;397B-CD C2 3D * CALL A3C4E ;397E-CD 4E 3C * POP PSW ;3981-F1 CALL A3DC2 ;3982-CD C2 3D * A3985 INX H ;3985-23 INR E ;3986-1C JNZ A3961 ;3987-C2 61 39 * JMP A386B ;398A-C3 6B 38 * ;************ A398D CALL A3D6B ;398D-CD 6B 3D * POP D ;3990-D1 POP H ;3991-E1 A3992 CALL A3CC8 ;3992-CD C8 3C * CALL A3DBA ;3995-CD BA 3D * A3998 CALL A3C4E ;3998-CD 4E 3C * MOV A,M ;399B-7E CALL A3DC2 ;399C-CD C2 3D * CALL A3D9F ;399F-CD 9F 3D * JC A386B ;39A2-DA 6B 38 * MOV A,L ;39A5-7D ANI 00FH ;39A6-E6 0F JNZ A3998 ;39A8-C2 98 39 * JMP A3992 ;39AB-C3 92 39 * ;************ A39AE DCR C ;39AE-0D CALL A3D6B ;39AF-CD 6B 3D * MVI C,03AH ;39B2-0E 3A CALL A3E78 ;39B4-CD 78 3E * XRA A ;39B7-AF MOV D,A ;39B8-57 CALL A3E2B ;39B9-CD 2B 3E * POP H ;39BC-E1 CALL A3E23 ;39BD-CD 23 3E * MVI A,001H ;39C0-3E 01 CALL A3E2B ;39C2-CD 2B 3E * XRA A ;39C5-AF SUB D ;39C6-92 CALL A3E2B ;39C7-CD 2B 3E * CALL A3E56 ;39CA-CD 56 3E * JMP A3A6F ;39CD-C3 6F 3A * ;************ A39D0 INR C ;39D0-0C CALL A3D6B ;39D1-CD 6B 3D * POP B ;39D4-C1 POP D ;39D5-D1 POP H ;39D6-E1 A39D7 MOV M,C ;39D7-71 CALL A3D9F ;39D8-CD 9F 3D * JNC A39D7 ;39DB-D2 D7 39 * JMP A386B ;39DE-C3 6B 38 * ;************ A39E1 CALL A3E46 ;39E1-CD 46 3E * JC A3A23 ;39E4-DA 23 3A * JZ A39FB ;39E7-CA FB 39 * CALL A3D97 ;39EA-CD 97 3D * POP D ;39ED-D1 LXI H,X0013 ;39EE-21 13 00 * DAD SP ;39F1-39 MOV M,D ;39F2-72 DCX H ;39F3-2B MOV M,E ;39F4-73 MOV A,B ;39F5-78 CPI 00DH ;39F6-FE 0D JZ A3A23 ;39F8-CA 23 3A * A39FB MVI D,002H ;39FB-16 02 LXI H,X0014 ;39FD-21 14 00 * DAD SP ;3A00-39 A3A01 PUSH H ;3A01-E5 MVI C,001H ;3A02-0E 01 CALL A3D6B ;3A04-CD 6B 3D * MOV E,B ;3A07-58 POP B ;3A08-C1 POP H ;3A09-E1 MOV A,B ;3A0A-78 ORA C ;3A0B-B1 JZ A3A19 ;3A0C-CA 19 3A * MOV M,C ;3A0F-71 INX H ;3A10-23 MOV M,B ;3A11-70 INX H ;3A12-23 LDAX B ;3A13-0A MOV M,A ;3A14-77 INX H ;3A15-23 MVI A,0CFH ;3A16-3E CF STAX B ;3A18-02 A3A19 MOV A,E ;3A19-7B CPI 00DH ;3A1A-FE 0D JZ A3A23 ;3A1C-CA 23 3A * DCR D ;3A1F-15 JNZ A3A01 ;3A20-C2 01 3A * A3A23 CALL A3CC8 ;3A23-CD C8 3C * LXI H,X0008 ;3A26-21 08 00 * DAD SP ;3A29-39 PCHL ;3A2A-E9 ;************ A3A2B CALL A3D6B ;3A2B-CD 6B 3D * POP D ;3A2E-D1 POP H ;3A2F-E1 CALL A3CC8 ;3A30-CD C8 3C * PUSH H ;3A33-E5 DAD D ;3A34-19 CALL A3DBA ;3A35-CD BA 3D * CALL A3C4E ;3A38-CD 4E 3C * POP H ;3A3B-E1 MOV A,L ;3A3C-7D SUB E ;3A3D-93 MOV L,A ;3A3E-6F MOV A,H ;3A3F-7C SBB D ;3A40-9A MOV H,A ;3A41-67 CALL A3DBA ;3A42-CD BA 3D * JMP A386B ;3A45-C3 6B 38 * ;************ A3A48 CALL A3D6B ;3A48-CD 6B 3D * CALL A3CC8 ;3A4B-CD C8 3C * POP D ;3A4E-D1 POP H ;3A4F-E1 A3A50 CALL A3CF7 ;3A50-CD F7 3C * CALL A3D9F ;3A53-CD 9F 3D * JNC A3A50 ;3A56-D2 50 3A * JMP A386B ;3A59-C3 6B 38 * ;************ A3A5C INR C ;3A5C-0C CALL A3D6B ;3A5D-CD 6B 3D * POP B ;3A60-C1 POP D ;3A61-D1 POP H ;3A62-E1 A3A63 MOV A,M ;3A63-7E STAX B ;3A64-02 INX B ;3A65-03 CALL A3D9F ;3A66-CD 9F 3D * JNC A3A63 ;3A69-D2 63 3A * JMP A386B ;3A6C-C3 6B 38 * ;************ A3A6F CALL A3DD2 ;3A6F-CD D2 3D * JMP A386B ;3A72-C3 6B 38 * ;************ A3A75 INR C ;3A75-0C CALL A3D6B ;3A76-CD 6B 3D * CALL A3CC8 ;3A79-CD C8 3C * POP B ;3A7C-C1 POP D ;3A7D-D1 POP H ;3A7E-E1 A3A7F MVI A,000H ;3A7F-3E 00 OUT 001H ;3A81-D3 01 MOV A,C ;3A83-79 OUT 0FFH ;3A84-D3 FF CMA ;3A86-2F OUT 002H ;3A87-D3 02 IN 002H ;3A89-DB 02 CMA ;3A8B-2F CMP M ;3A8C-BE JZ A3ABF ;3A8D-CA BF 3A * MVI B,0F8H ;3A90-06 F8 A3A92 CALL A3E60 ;3A92-CD 60 3E * IN 002H ;3A95-DB 02 CMA ;3A97-2F CMP M ;3A98-BE JZ A3AB1 ;3A99-CA B1 3A * INR B ;3A9C-04 JNZ A3A92 ;3A9D-C2 92 3A * PUSH B ;3AA0-C5 MVI C,024H ;3AA1-0E 24 CALL A3C50 ;3AA3-CD 50 3C * CALL A3C4E ;3AA6-CD 4E 3C * POP B ;3AA9-C1 MOV A,C ;3AAA-79 CALL A3DC2 ;3AAB-CD C2 3D * JMP A3C3E ;3AAE-C3 3E 3C * ;************ A3AB1 MOV A,B ;3AB1-78 ADI 009H ;3AB2-C6 09 MOV B,A ;3AB4-47 ADD A ;3AB5-87 ADD B ;3AB6-80 MOV B,A ;3AB7-47 A3AB8 CALL A3E60 ;3AB8-CD 60 3E * DCR B ;3ABB-05 JNZ A3AB8 ;3ABC-C2 B8 3A * A3ABF INR C ;3ABF-0C CALL A3D9F ;3AC0-CD 9F 3D * JNC A3A7F ;3AC3-D2 7F 3A * JMP A386B ;3AC6-C3 6B 38 * ;************ A3AC9 DCR C ;3AC9-0D CALL A3D6B ;3ACA-CD 6B 3D * A3ACD POP H ;3ACD-E1 PUSH H ;3ACE-E5 CALL A3EFA ;3ACF-CD FA 3E * MVI B,03AH ;3AD2-06 3A SUB B ;3AD4-90 JNZ A3ACD ;3AD5-C2 CD 3A * MOV D,A ;3AD8-57 CALL A3C7D ;3AD9-CD 7D 3C * JZ A3AFF ;3ADC-CA FF 3A * MOV E,A ;3ADF-5F CALL A3C7D ;3AE0-CD 7D 3C * PUSH PSW ;3AE3-F5 CALL A3C7D ;3AE4-CD 7D 3C * POP B ;3AE7-C1 MOV C,A ;3AE8-4F DAD B ;3AE9-09 CALL A3C7D ;3AEA-CD 7D 3C * A3AED CALL A3C7D ;3AED-CD 7D 3C * MOV M,A ;3AF0-77 INX H ;3AF1-23 DCR E ;3AF2-1D JNZ A3AED ;3AF3-C2 ED 3A * CALL A3C7D ;3AF6-CD 7D 3C * JNZ A3C3E ;3AF9-C2 3E 3C * JMP A3ACD ;3AFC-C3 CD 3A * ;************ A3AFF CALL A3C7D ;3AFF-CD 7D 3C * MOV H,A ;3B02-67 CALL A3C7D ;3B03-CD 7D 3C * MOV L,A ;3B06-6F ORA H ;3B07-B4 JZ A3B0C ;3B08-CA 0C 3B * PCHL ;3B0B-E9 ;************ A3B0C POP H ;3B0C-E1 JMP A386B ;3B0D-C3 6B 38 * ;************ A3B10 DCR C ;3B10-0D CALL A3D6B ;3B11-CD 6B 3D * CALL A3E49 ;3B14-CD 49 3E * JC A3C3E ;3B17-DA 3E 3C * POP H ;3B1A-E1 A3B1B MOV A,M ;3B1B-7E CALL A3DC2 ;3B1C-CD C2 3D * MVI C,02DH ;3B1F-0E 2D CALL A3C50 ;3B21-CD 50 3C * CALL A3E46 ;3B24-CD 46 3E * JC A386B ;3B27-DA 6B 38 * JZ A3B3A ;3B2A-CA 3A 3B * PUSH H ;3B2D-E5 CALL A3D97 ;3B2E-CD 97 3D * POP D ;3B31-D1 POP H ;3B32-E1 MOV M,E ;3B33-73 MOV A,B ;3B34-78 CPI 00DH ;3B35-FE 0D JZ A386B ;3B37-CA 6B 38 * A3B3A INX H ;3B3A-23 JMP A3B1B ;3B3B-C3 1B 3B * ;************ A3B3E DCR C ;3B3E-0D CALL A3D6B ;3B3F-CD 6B 3D * POP H ;3B42-E1 MVI E,000H ;3B43-1E 00 A3B45 MVI A,000H ;3B45-3E 00 OUT 001H ;3B47-D3 01 MOV A,E ;3B49-7B CMA ;3B4A-2F OUT 002H ;3B4B-D3 02 IN 002H ;3B4D-DB 02 CMA ;3B4F-2F MOV M,A ;3B50-77 INX H ;3B51-23 INR E ;3B52-1C JNZ A3B45 ;3B53-C2 45 3B * JMP A386B ;3B56-C3 6B 38 * ;************ A3B59 CALL A3D6B ;3B59-CD 6B 3D * CALL A3CC8 ;3B5C-CD C8 3C * POP D ;3B5F-D1 POP H ;3B60-E1 A3B61 MOV A,L ;3B61-7D ADI 010H ;3B62-C6 10 MOV C,A ;3B64-4F MOV A,H ;3B65-7C ACI 000H ;3B66-CE 00 MOV B,A ;3B68-47 MOV A,E ;3B69-7B SUB C ;3B6A-91 MOV C,A ;3B6B-4F MOV A,D ;3B6C-7A SBB B ;3B6D-98 JC A3B76 ;3B6E-DA 76 3B * MVI A,010H ;3B71-3E 10 JMP A3B79 ;3B73-C3 79 3B * ;************ A3B76 MOV A,C ;3B76-79 ADI 011H ;3B77-C6 11 A3B79 ORA A ;3B79-B7 JZ A386B ;3B7A-CA 6B 38 * PUSH D ;3B7D-D5 MOV E,A ;3B7E-5F MVI D,000H ;3B7F-16 00 CALL A3E56 ;3B81-CD 56 3E * MVI C,03AH ;3B84-0E 3A CALL A3E78 ;3B86-CD 78 3E * MOV A,E ;3B89-7B CALL A3E2B ;3B8A-CD 2B 3E * CALL A3E23 ;3B8D-CD 23 3E * XRA A ;3B90-AF CALL A3E2B ;3B91-CD 2B 3E * A3B94 MOV A,M ;3B94-7E INX H ;3B95-23 CALL A3E2B ;3B96-CD 2B 3E * DCR E ;3B99-1D JNZ A3B94 ;3B9A-C2 94 3B * XRA A ;3B9D-AF SUB D ;3B9E-92 CALL A3E2B ;3B9F-CD 2B 3E * POP D ;3BA2-D1 JMP A3B61 ;3BA3-C3 61 3B * ;************ A3BA6 CALL A3F6E ;3BA6-CD 6E 3F * LXI H,A3FBD ;3BA9-21 BD 3F * CPI 00DH ;3BAC-FE 0D JZ A3C0F ;3BAE-CA 0F 3C * A3BB1 CMP M ;3BB1-BE JZ A3BC2 ;3BB2-CA C2 3B * PUSH PSW ;3BB5-F5 MOV A,M ;3BB6-7E ORA A ;3BB7-B7 JM A3C3E ;3BB8-FA 3E 3C * INX H ;3BBB-23 INX H ;3BBC-23 INX H ;3BBD-23 POP PSW ;3BBE-F1 JMP A3BB1 ;3BBF-C3 B1 3B * ;************ A3BC2 CALL A3C4E ;3BC2-CD 4E 3C * A3BC5 INX H ;3BC5-23 MOV A,M ;3BC6-7E XCHG ;3BC7-EB MOV L,A ;3BC8-6F MVI H,000H ;3BC9-26 00 DAD SP ;3BCB-39 XCHG ;3BCC-EB INX H ;3BCD-23 MOV B,M ;3BCE-46 INX H ;3BCF-23 LDAX D ;3BD0-1A CALL A3DC2 ;3BD1-CD C2 3D * DCR B ;3BD4-05 JZ A3BDD ;3BD5-CA DD 3B * DCX D ;3BD8-1B LDAX D ;3BD9-1A CALL A3DC2 ;3BDA-CD C2 3D * A3BDD INR B ;3BDD-04 MVI C,02DH ;3BDE-0E 2D CALL A3C50 ;3BE0-CD 50 3C * CALL A3E46 ;3BE3-CD 46 3E * JC A386B ;3BE6-DA 6B 38 * JZ A3C01 ;3BE9-CA 01 3C * PUSH H ;3BEC-E5 PUSH B ;3BED-C5 CALL A3D97 ;3BEE-CD 97 3D * POP H ;3BF1-E1 POP PSW ;3BF2-F1 PUSH B ;3BF3-C5 PUSH PSW ;3BF4-F5 MOV A,L ;3BF5-7D STAX D ;3BF6-12 POP B ;3BF7-C1 DCR B ;3BF8-05 JZ A3BFF ;3BF9-CA FF 3B * INX D ;3BFC-13 MOV A,H ;3BFD-7C STAX D ;3BFE-12 A3BFF POP B ;3BFF-C1 POP H ;3C00-E1 A3C01 MOV A,M ;3C01-7E ORA A ;3C02-B7 JM A386B ;3C03-FA 6B 38 * MOV A,B ;3C06-78 CPI 00DH ;3C07-FE 0D JZ A386B ;3C09-CA 6B 38 * JMP A3BC5 ;3C0C-C3 C5 3B * ;************ A3C0F CALL A3CC8 ;3C0F-CD C8 3C * A3C12 CALL A3C4E ;3C12-CD 4E 3C * MOV A,M ;3C15-7E INX H ;3C16-23 ORA A ;3C17-B7 JM A386B ;3C18-FA 6B 38 * MOV C,A ;3C1B-4F CALL A3C50 ;3C1C-CD 50 3C * MVI C,03DH ;3C1F-0E 3D CALL A3C50 ;3C21-CD 50 3C * MOV A,M ;3C24-7E INX H ;3C25-23 XCHG ;3C26-EB MOV L,A ;3C27-6F MVI H,000H ;3C28-26 00 DAD SP ;3C2A-39 XCHG ;3C2B-EB MOV B,M ;3C2C-46 INX H ;3C2D-23 LDAX D ;3C2E-1A CALL A3DC2 ;3C2F-CD C2 3D * DCR B ;3C32-05 JZ A3C12 ;3C33-CA 12 3C * DCX D ;3C36-1B LDAX D ;3C37-1A CALL A3DC2 ;3C38-CD C2 3D * JMP A3C12 ;3C3B-C3 12 3C * ;************ A3C3E CALL A3DFC ;3C3E-CD FC 3D * LXI D,MFFF8 ;3C41-11 F8 FF * DAD D ;3C44-19 SPHL ;3C45-F9 MVI C,03FH ;3C46-0E 3F CALL A3C50 ;3C48-CD 50 3C * JMP A386B ;3C4B-C3 6B 38 * ;************ A3C4E MVI C,020H ;3C4E-0E 20 A3C50 LDA X0003 ;3C50-3A 03 00 * ANI 003H ;3C53-E6 03 JNZ A3C64 ;3C55-C2 64 3C * A3C58 IN 001H ;3C58-DB 01 ANI 004H ;3C5A-E6 04 JNZ A3C58 ;3C5C-C2 58 3C * MOV A,C ;3C5F-79 CMA ;3C60-2F OUT 000H ;3C61-D3 00 RET ;3C63-C9 ;************ A3C64 CPI 001H ;3C64-FE 01 JNZ A3C75 ;3C66-C2 75 3C * A3C69 IN 005H ;3C69-DB 05 ANI 004H ;3C6B-E6 04 JNZ A3C69 ;3C6D-C2 69 3C * MOV A,C ;3C70-79 CMA ;3C71-2F OUT 004H ;3C72-D3 04 RET ;3C74-C9 ;************ A3C75 CPI 002H ;3C75-FE 02 JZ A3DDE ;3C77-CA DE 3D * JMP X3703 ;3C7A-C3 03 37 * ;************ A3C7D CALL A3EFA ;3C7D-CD FA 3E * CALL A3E11 ;3C80-CD 11 3E * RLC ;3C83-07 RLC ;3C84-07 RLC ;3C85-07 RLC ;3C86-07 MOV C,A ;3C87-4F CALL A3EFA ;3C88-CD FA 3E * CALL A3E11 ;3C8B-CD 11 3E * ORA C ;3C8E-B1 MOV C,A ;3C8F-4F ADD D ;3C90-82 MOV D,A ;3C91-57 MOV A,C ;3C92-79 RET ;3C93-C9 ;************ A3C94 LDA X0003 ;3C94-3A 03 00 * ANI 003H ;3C97-E6 03 JNZ A3CA7 ;3C99-C2 A7 3C * A3C9C IN 001H ;3C9C-DB 01 ANI 001H ;3C9E-E6 01 JNZ A3C9C ;3CA0-C2 9C 3C * IN 000H ;3CA3-DB 00 A3CA5 CMA ;3CA5-2F RET ;3CA6-C9 ;************ A3CA7 CPI 001H ;3CA7-FE 01 JNZ A3CB8 ;3CA9-C2 B8 3C * A3CAC IN 005H ;3CAC-DB 05 ANI 001H ;3CAE-E6 01 JNZ A3CAC ;3CB0-C2 AC 3C * IN 004H ;3CB3-DB 04 JMP A3CA5 ;3CB5-C3 A5 3C * ;************ A3CB8 CPI 002H ;3CB8-FE 02 JZ A3EA0 ;3CBA-CA A0 3E * JMP X3700 ;3CBD-C3 00 37 * ;************ A3CC0 ADI 090H ;3CC0-C6 90 DAA ;3CC2-27 ACI 040H ;3CC3-CE 40 DAA ;3CC5-27 MOV C,A ;3CC6-4F RET ;3CC7-C9 ;************ A3CC8 MVI C,00DH ;3CC8-0E 0D CALL A3C50 ;3CCA-CD 50 3C * MVI C,00AH ;3CCD-0E 0A JMP A3C50 ;3CCF-C3 50 3C * ;************ A3CD2 LDA X0003 ;3CD2-3A 03 00 * ANI 003H ;3CD5-E6 03 JNZ A3CDF ;3CD7-C2 DF 3C * IN 001H ;3CDA-DB 01 JMP A3CE6 ;3CDC-C3 E6 3C * ;************ A3CDF CPI 001H ;3CDF-FE 01 JNZ A3CED ;3CE1-C2 ED 3C * IN 005H ;3CE4-DB 05 A3CE6 ANI 001H ;3CE6-E6 01 MVI A,000H ;3CE8-3E 00 A3CEA RNZ ;3CEA-C0 CMA ;3CEB-2F RET ;3CEC-C9 ;************ A3CED CPI 002H ;3CED-FE 02 MVI A,0FFH ;3CEF-3E FF JZ A3CEA ;3CF1-CA EA 3C * JMP X3718 ;3CF4-C3 18 37 * ;************ A3CF7 CALL A3EFA ;3CF7-CD FA 3E * CPI 042H ;3CFA-FE 42 JNZ A3CF7 ;3CFC-C2 F7 3C * MVI M,001H ;3CFF-36 01 A3D01 CALL A3EFA ;3D01-CD FA 3E * CPI 04EH ;3D04-FE 4E JNZ A3D18 ;3D06-C2 18 3D * A3D09 MOV A,M ;3D09-7E RAL ;3D0A-17 MOV M,A ;3D0B-77 JNC A3D01 ;3D0C-D2 01 3D * CALL A3EFA ;3D0F-CD FA 3E * CPI 046H ;3D12-FE 46 JNZ A3C3E ;3D14-C2 3E 3C * RET ;3D17-C9 ;************ A3D18 ADI 0B0H ;3D18-C6 B0 JNZ A3C3E ;3D1A-C2 3E 3C * JMP A3D09 ;3D1D-C3 09 3D * ;************ A3D20 PUSH B ;3D20-C5 MVI B,054H ;3D21-06 54 A3D23 DCR B ;3D23-05 JNZ A3D23 ;3D24-C2 23 3D * POP B ;3D27-C1 RET ;3D28-C9 ;************ A3D29 MVI C,030H ;3D29-0E 30 A3D2B MOV A,L ;3D2B-7D SUB E ;3D2C-93 MOV L,A ;3D2D-6F MOV A,H ;3D2E-7C SBB D ;3D2F-9A MOV H,A ;3D30-67 JC A3D38 ;3D31-DA 38 3D * INR C ;3D34-0C JMP A3D2B ;3D35-C3 2B 3D * ;************ A3D38 DAD D ;3D38-19 MOV A,C ;3D39-79 CPI 030H ;3D3A-FE 30 JNZ A3D43 ;3D3C-C2 43 3D * MOV C,B ;3D3F-48 A3D40 JMP A3E78 ;3D40-C3 78 3E * ;************ A3D43 MVI B,030H ;3D43-06 30 JMP A3D40 ;3D45-C3 40 3D * ;************ A3D48 MVI C,042H ;3D48-0E 42 CALL A3E78 ;3D4A-CD 78 3E * MVI B,008H ;3D4D-06 08 MOV A,M ;3D4F-7E A3D50 RLC ;3D50-07 PUSH PSW ;3D51-F5 MVI A,000H ;3D52-3E 00 RAL ;3D54-17 RAL ;3D55-17 ADI 04EH ;3D56-C6 4E MOV C,A ;3D58-4F CALL A3E78 ;3D59-CD 78 3E * POP PSW ;3D5C-F1 DCR B ;3D5D-05 JNZ A3D50 ;3D5E-C2 50 3D * MVI C,046H ;3D61-0E 46 CALL A3E78 ;3D63-CD 78 3E * MVI C,020H ;3D66-0E 20 JMP A3E78 ;3D68-C3 78 3E * ;************ A3D6B LXI H,X0000 ;3D6B-21 00 00 * A3D6E CALL A3F6E ;3D6E-CD 6E 3F * A3D71 MOV B,A ;3D71-47 CALL A3E11 ;3D72-CD 11 3E * JC A3D81 ;3D75-DA 81 3D * DAD H ;3D78-29 DAD H ;3D79-29 DAD H ;3D7A-29 DAD H ;3D7B-29 ORA L ;3D7C-B5 MOV L,A ;3D7D-6F JMP A3D6E ;3D7E-C3 6E 3D * ;************ A3D81 XTHL ;3D81-E3 PUSH H ;3D82-E5 MOV A,B ;3D83-78 CALL A3E49 ;3D84-CD 49 3E * JNC A3D8F ;3D87-D2 8F 3D * DCR C ;3D8A-0D JNZ A3C3E ;3D8B-C2 3E 3C * RET ;3D8E-C9 ;************ A3D8F JNZ A3C3E ;3D8F-C2 3E 3C * DCR C ;3D92-0D JNZ A3D6B ;3D93-C2 6B 3D * RET ;3D96-C9 ;************ A3D97 MVI C,001H ;3D97-0E 01 LXI H,X0000 ;3D99-21 00 00 * JMP A3D71 ;3D9C-C3 71 3D * ;************ A3D9F INX H ;3D9F-23 MOV A,H ;3DA0-7C ORA L ;3DA1-B5 STC ;3DA2-37 RZ ;3DA3-C8 MOV A,E ;3DA4-7B SUB L ;3DA5-95 MOV A,D ;3DA6-7A SBB H ;3DA7-9C RET ;3DA8-C9 ;************ A3DA9 CALL A3CC0 ;3DA9-CD C0 3C * JMP A3C50 ;3DAC-C3 50 3C * ;************ A3DAF LDA X0003 ;3DAF-3A 03 00 * RET ;3DB2-C9 ;************ A3DB3 PUSH H ;3DB3-E5 LXI H,X0003 ;3DB4-21 03 00 * MOV M,C ;3DB7-71 POP H ;3DB8-E1 RET ;3DB9-C9 ;************ A3DBA MOV A,H ;3DBA-7C CALL A3DC2 ;3DBB-CD C2 3D * MOV A,L ;3DBE-7D JMP A3DC2 ;3DBF-C3 C2 3D * ;************ A3DC2 PUSH PSW ;3DC2-F5 RRC ;3DC3-0F RRC ;3DC4-0F RRC ;3DC5-0F RRC ;3DC6-0F ANI 00FH ;3DC7-E6 0F CALL A3DA9 ;3DC9-CD A9 3D * POP PSW ;3DCC-F1 ANI 00FH ;3DCD-E6 0F JMP A3DA9 ;3DCF-C3 A9 3D * ;************ A3DD2 MVI B,0FCH ;3DD2-06 FC A3DD4 MVI C,000H ;3DD4-0E 00 CALL A3E78 ;3DD6-CD 78 3E * DCR B ;3DD9-05 JNZ A3DD4 ;3DDA-C2 D4 3D * RET ;3DDD-C9 ;************ A3DDE LDA X0003 ;3DDE-3A 03 00 * ANI 0C0H ;3DE1-E6 C0 JZ A3C58 ;3DE3-CA 58 3C * CPI 040H ;3DE6-FE 40 JZ A3C69 ;3DE8-CA 69 3C * CPI 080H ;3DEB-FE 80 JZ X3712 ;3DED-CA 12 37 * JMP X3715 ;3DF0-C3 15 37 * ;************ A3DF3 PUSH H ;3DF3-E5 CALL A3DFC ;3DF4-CD FC 3D * MOV B,H ;3DF7-44 MVI A,00EH ;3DF8-3E 0E POP H ;3DFA-E1 RET ;3DFB-C9 ;************ A3DFC PUSH B ;3DFC-C5 MVI A,0FFH ;3DFD-3E FF STA X2FA2 ;3DFF-32 A2 2F * CALL A3FE0 ;3E02-CD E0 3F * LXI H,X2F4E ;3E05-21 4E 2F * NOP ;3E08-00 NOP ;3E09-00 NOP ;3E0A-00 LXI B,MFFEE ;3E0B-01 EE FF * DAD B ;3E0E-09 POP B ;3E0F-C1 RET ;3E10-C9 ;************ A3E11 SUI 030H ;3E11-D6 30 RC ;3E13-D8 ADI 0E9H ;3E14-C6 E9 RC ;3E16-D8 ADI 006H ;3E17-C6 06 JP A3E1F ;3E19-F2 1F 3E * ADI 007H ;3E1C-C6 07 RC ;3E1E-D8 A3E1F ADI 00AH ;3E1F-C6 0A ORA A ;3E21-B7 RET ;3E22-C9 ;************ A3E23 MOV A,H ;3E23-7C CALL A3E2B ;3E24-CD 2B 3E * MOV A,L ;3E27-7D JMP A3E2B ;3E28-C3 2B 3E * ;************ A3E2B PUSH PSW ;3E2B-F5 RRC ;3E2C-0F RRC ;3E2D-0F RRC ;3E2E-0F RRC ;3E2F-0F ANI 00FH ;3E30-E6 0F CALL A3CC0 ;3E32-CD C0 3C * CALL A3E78 ;3E35-CD 78 3E * POP PSW ;3E38-F1 PUSH PSW ;3E39-F5 ANI 00FH ;3E3A-E6 0F CALL A3CC0 ;3E3C-CD C0 3C * CALL A3E78 ;3E3F-CD 78 3E * POP PSW ;3E42-F1 ADD D ;3E43-82 MOV D,A ;3E44-57 RET ;3E45-C9 ;************ A3E46 CALL A3F6E ;3E46-CD 6E 3F * A3E49 CPI 020H ;3E49-FE 20 RZ ;3E4B-C8 CPI 02CH ;3E4C-FE 2C RZ ;3E4E-C8 CPI 00DH ;3E4F-FE 0D STC ;3E51-37 CMC ;3E52-3F RNZ ;3E53-C0 STC ;3E54-37 RET ;3E55-C9 ;************ A3E56 MVI C,00DH ;3E56-0E 0D CALL A3E78 ;3E58-CD 78 3E * MVI C,00AH ;3E5B-0E 0A JMP A3E78 ;3E5D-C3 78 3E * ;************ A3E60 MOV A,M ;3E60-7E CMA ;3E61-2F OUT 003H ;3E62-D3 03 MVI A,080H ;3E64-3E 80 OUT 001H ;3E66-D3 01 MVI A,000H ;3E68-3E 00 OUT 001H ;3E6A-D3 01 PUSH B ;3E6C-C5 MVI B,010H ;3E6D-06 10 A3E6F CALL A3D20 ;3E6F-CD 20 3D * DCR B ;3E72-05 JNZ A3E6F ;3E73-C2 6F 3E * POP B ;3E76-C1 RET ;3E77-C9 ;************ A3E78 LDA X0003 ;3E78-3A 03 00 * ANI 030H ;3E7B-E6 30 JZ A3C58 ;3E7D-CA 58 3C * CPI 010H ;3E80-FE 10 JNZ A3E98 ;3E82-C2 98 3E * A3E85 IN 001H ;3E85-DB 01 ANI 040H ;3E87-E6 40 JZ A3E85 ;3E89-CA 85 3E * MOV A,C ;3E8C-79 OUT 003H ;3E8D-D3 03 MVI A,00AH ;3E8F-3E 0A OUT 001H ;3E91-D3 01 MVI A,008H ;3E93-3E 08 OUT 001H ;3E95-D3 01 RET ;3E97-C9 ;************ A3E98 CPI 020H ;3E98-FE 20 JZ X370C ;3E9A-CA 0C 37 * JMP X370F ;3E9D-C3 0F 37 * ;************ A3EA0 PUSH H ;3EA0-E5 LXI H,X0003 ;3EA1-21 03 00 * MOV A,M ;3EA4-7E ANI 00CH ;3EA5-E6 0C JNZ A3ECC ;3EA7-C2 CC 3E * MVI A,009H ;3EAA-3E 09 OUT 001H ;3EAC-D3 01 MVI A,008H ;3EAE-3E 08 OUT 001H ;3EB0-D3 01 MVI H,0FAH ;3EB2-26 FA A3EB4 IN 001H ;3EB4-DB 01 ANI 001H ;3EB6-E6 01 JZ A3EC6 ;3EB8-CA C6 3E * CALL A3D20 ;3EBB-CD 20 3D * DCR H ;3EBE-25 JNZ A3EB4 ;3EBF-C2 B4 3E * A3EC2 XRA A ;3EC2-AF STC ;3EC3-37 POP H ;3EC4-E1 RET ;3EC5-C9 ;************ A3EC6 IN 000H ;3EC6-DB 00 CMA ;3EC8-2F ORA A ;3EC9-B7 POP H ;3ECA-E1 RET ;3ECB-C9 ;************ A3ECC CPI 004H ;3ECC-FE 04 JNZ A3EF1 ;3ECE-C2 F1 3E * MVI A,00CH ;3ED1-3E 0C OUT 009H ;3ED3-D3 09 MVI A,008H ;3ED5-3E 08 OUT 009H ;3ED7-D3 09 MVI H,0FAH ;3ED9-26 FA A3EDB IN 009H ;3EDB-DB 09 ANI 020H ;3EDD-E6 20 JZ A3EEC ;3EDF-CA EC 3E * CALL A3D20 ;3EE2-CD 20 3D * DCR H ;3EE5-25 JNZ A3EDB ;3EE6-C2 DB 3E * JMP A3EC2 ;3EE9-C3 C2 3E * ;************ A3EEC IN 00BH ;3EEC-DB 0B ORA A ;3EEE-B7 POP H ;3EEF-E1 RET ;3EF0-C9 ;************ A3EF1 POP H ;3EF1-E1 CPI 008H ;3EF2-FE 08 JZ X3706 ;3EF4-CA 06 37 * JMP X3709 ;3EF7-C3 09 37 * ;************ A3EFA CALL A3EA0 ;3EFA-CD A0 3E * JC A3C3E ;3EFD-DA 3E 3C * ANI 07FH ;3F00-E6 7F RET ;3F02-C9 ;************ A3F03 PUSH H ;3F03-E5 PUSH D ;3F04-D5 PUSH B ;3F05-C5 PUSH PSW ;3F06-F5 CALL A3DFC ;3F07-CD FC 3D * XCHG ;3F0A-EB LXI H,X000A ;3F0B-21 0A 00 * DAD SP ;3F0E-39 MVI B,004H ;3F0F-06 04 XCHG ;3F11-EB A3F12 DCX H ;3F12-2B MOV M,D ;3F13-72 DCX H ;3F14-2B MOV M,E ;3F15-73 POP D ;3F16-D1 DCR B ;3F17-05 JNZ A3F12 ;3F18-C2 12 3F * POP B ;3F1B-C1 DCX B ;3F1C-0B SPHL ;3F1D-F9 LXI H,X0014 ;3F1E-21 14 00 * DAD SP ;3F21-39 MOV A,M ;3F22-7E SUB C ;3F23-91 INX H ;3F24-23 JNZ A3F2D ;3F25-C2 2D 3F * MOV A,M ;3F28-7E SUB B ;3F29-90 JZ A3F3B ;3F2A-CA 3B 3F * A3F2D INX H ;3F2D-23 INX H ;3F2E-23 MOV A,M ;3F2F-7E SUB C ;3F30-91 JNZ A3F3A ;3F31-C2 3A 3F * INX H ;3F34-23 MOV A,M ;3F35-7E SUB B ;3F36-90 JZ A3F3B ;3F37-CA 3B 3F * A3F3A INX B ;3F3A-03 A3F3B LXI H,X000F ;3F3B-21 0F 00 * DAD SP ;3F3E-39 MOV M,E ;3F3F-73 INX H ;3F40-23 MOV M,D ;3F41-72 INX H ;3F42-23 INX H ;3F43-23 MOV M,C ;3F44-71 INX H ;3F45-23 MOV M,B ;3F46-70 PUSH B ;3F47-C5 MVI C,02AH ;3F48-0E 2A CALL A3C50 ;3F4A-CD 50 3C * POP H ;3F4D-E1 CALL A3DBA ;3F4E-CD BA 3D * LXI H,X0014 ;3F51-21 14 00 * DAD SP ;3F54-39 MVI D,002H ;3F55-16 02 A3F57 MOV C,M ;3F57-4E MVI M,000H ;3F58-36 00 INX H ;3F5A-23 MOV B,M ;3F5B-46 MVI M,000H ;3F5C-36 00 INX H ;3F5E-23 MOV A,C ;3F5F-79 ORA B ;3F60-B0 JZ A3F66 ;3F61-CA 66 3F * MOV A,M ;3F64-7E STAX B ;3F65-02 A3F66 INX H ;3F66-23 DCR D ;3F67-15 JNZ A3F57 ;3F68-C2 57 3F * JMP A386B ;3F6B-C3 6B 38 * ;************ A3F6E CALL A3C94 ;3F6E-CD 94 3C * ANI 07FH ;3F71-E6 7F PUSH B ;3F73-C5 MOV C,A ;3F74-4F CALL A3C50 ;3F75-CD 50 3C * MOV A,C ;3F78-79 POP B ;3F79-C1 RET ;3F7A-C9 ;************ ;Start data segment DB 'C', 0FCH, 08BH, '?', 'R', 0F3H, 093H, '?' DB 'P', 0CFH, 09BH, '?', 'L', '?', 0A3H, '?' DB 'T', 000H, 'C', 001H, 'B', 002H, '1', 003H DB 'T', 000H, 'P', 004H, '1', 008H, '2', 00CH DB 'T', 000H, 'P', 010H, '1', ' ', '2', '0' DB 'T', 000H, 'C', '@', '1', 080H, '2', 0C0H DB 0D1H, 0C1H, 0F1H, 0E1H, 0F9H, 0FBH, '!', 000H DB 000H, 0C3H, 000H, 000H, 000H, 000H, 000H, 000H DB 000H, 000H, 'A', 005H, 001H, 'B', 003H, 001H DB 'C', 002H, 001H, 'D', 001H, 001H, 'E', 000H DB 001H, 'F', 004H, 001H, 'H', 010H, 001H, 'L' DB 00FH, 001H, 'M', 010H, 002H, 'P', 013H, 002H DB 'S', 007H, 002H, 0FFH, 000H, '!', 'P', '/' DB '"', 'N', '/', 00EH, 0FFH, '>', 0A0H, 'q' DB '#', 0BDH, 0C2H, 0EAH, '?', 0C9H, 000H, 000H DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H DB 000H, 000H, 000H, 000H, 000H ;************ ;Start code segment END