SORD.m5 BIOS (IPL ROM)
;************************************************************
; dis80sm v1.0 - 2010년 6월25일
;
; 소스 파일은 : sordint.rom
; 촐력된 파일은 : SORDBIOS
; 어 블리 기종은 : Z-80 CPU
; 아스키코드 이외의 문자는 ''로 하였습니다.
;
; http://blog.naver.com/mayhouse 오월의집
;************************************************************
ORG00000h
L2005 EQU02005h
L2008 EQU02008h
L33CC EQU033CCh
L38CC EQU038CCh
L3CFB EQU03CFBh
L45CA EQU045CAh
L5050 EQU05050h
L5252 EQU05252h
L7008 EQU07008h
L700B EQU0700Bh
L8042 EQU08042h
L83BB EQU083BBh
L8487 EQU08487h
L914A EQU0914Ah
L98BA EQU098BAh
LBFBF EQU0BFBFh
LE020 EQU0E020h
LE0FE EQU0E0FEh
LE27C EQU0E27Ch
LEAF3 EQU0EAF3h
LF0F8 EQU0F0F8h
LF6F5 EQU0F6F5h
LFCFC EQU0FCFCh
LFEEF EQU0FEEFh
LFEFE EQU0FEFEh
LFFE7 EQU0FFE7h
LFFFE EQU0FFFEh
LFFFF EQU0FFFFh
;Unused Label
;소스에서 라벨문으로 쓰이지 못한 라벨들
L01C9 EQU001C9h
L01FC EQU001FCh
L04FF EQU004FFh
L050E EQU0050Eh
L0B05 EQU00B05h
L0B0D EQU00B0Dh
L0C62 EQU00C62h
L1083 EQU01083h
L10F9 EQU010F9h
L10FC EQU010FCh
L10FF EQU010FFh
L1491 EQU01491h
L14FA EQU014FAh
L1502 EQU01502h
L1503 EQU01503h
L1507 EQU01507h
L153D EQU0153Dh
L15EB EQU015EBh
L1650 EQU01650h
L1AFC EQU01AFCh
L1B66 EQU01B66h
L1C8C EQU01C8Ch
L1C9B EQU01C9Bh
L1CA0 EQU01CA0h
L1CC3 EQU01CC3h
L1CC5 EQU01CC5h
L1CC7 EQU01CC7h
L1CCD EQU01CCDh
L1D35 EQU01D35h
L1D70 EQU01D70h
L1D87 EQU01D87h
L1DF6 EQU01DF6h
L1E1E EQU01E1Eh
L1E36 EQU01E36h
L1E57 EQU01E57h
L1E5F EQU01E5Fh
L1E68 EQU01E68h
L1F0A EQU01F0Ah
L1F5F EQU01F5Fh
L1F6D EQU01F6Dh
L2005 EQU02005h
L2008 EQU02008h
L33CC EQU033CCh
L38CC EQU038CCh
L3CFB EQU03CFBh
L45CA EQU045CAh
L5050 EQU05050h
L5252 EQU05252h
L7008 EQU07008h
L700B EQU0700Bh
L8042 EQU08042h
L83BB EQU083BBh
L8487 EQU08487h
L914A EQU0914Ah
L98BA EQU098BAh
LBFBF EQU0BFBFh
LE020 EQU0E020h
LE0FE EQU0E0FEh
LE27C EQU0E27Ch
LEAF3 EQU0EAF3h
LF0F8 EQU0F0F8h
LF6F5 EQU0F6F5h
LFCFC EQU0FCFCh
LFEEF EQU0FEEFh
LFEFE EQU0FEFEh
LFFE7 EQU0FFE7h
LFFFE EQU0FFFEh
LFFFF EQU0FFFFh
00001 0000 F3 L0000: DI ;
00002 0001 ED 5E IM2 ;^
00003 0003 31 00 73 LDSP,07300h ;1s
00004 0006 18 50 JRL0058 ;P
00005 0008 21 94 70 L0008: LDHL,07094h ;!p
00006 000B 7E LDA,(HL) ;~
00007 000C C9 RET ;
00008 000D 1C INCE ;
00009 000E C9 RET ;
00010 000F F3 DI ;
00011 0010 F3 DI ;
00012 0011 CD BD 14 CALLL14BD ;
00013 0014 FB L0014: EI ;
00014 0015 C9 RET ;
00015 0016 15 DECD ;
00016 0017 C9 RET ;
00017 0018 F3 L0018: DI ;
00018 0019 CD C5 14 CALLL14C5 ;
00019 001C FB EI ;
00020 001D C9 RET ;
00021 001E 1D DECE ;
00022 001F C9 RET ;
00023 0020 C3 05 20 JPL2005 ;
00024 0023 14 INCD ;
00025 0024 C9 RET ;
00026 0025 00 NOP ;
00027 0026 00 NOP ;
00028 0027 00 NOP ;
00029 0028 C3 08 20 JPL2008 ;
00030 002B 37 L002B: SCF ;7
00031 002C E1 POPHL ;
00032 002D FB EI ;
00033 002E C9 RET ;
00034 002F 00 NOP ;
00035 0030 C3 08 70 JPL7008 ;p
00036 0033 CD 0D 01 L0033: CALLL010D ;
00037 0036 18 FB JRL0033 ;
00038 0038 C3 0B 70 JPL700B ;p
00039 003B 00 NOP ;
00040 003C 00 L003C: NOP ;
00041 003D 00 L003D: NOP ;
00042 003E 00 L003E: NOP ;
00043 003F 00 NOP ;
00044 0040 00 L0040: NOP ;
00045 0041 00 L0041: NOP ;
00046 0042 00 L0042: NOP ;
00047 0043 00 L0043: NOP ;
00048 0044 00 L0044: NOP ;
00049 0045 00 L0045: NOP ;
00050 0046 00 L0046: NOP ;
00051 0047 00 L0047: NOP ;
00052 0048 00 L0048: NOP ;
00053 0049 00 L0049: NOP ;
00054 004A 00 L004A: NOP ;
00055 004B 00 L004B: NOP ;
00056 004C 00 NOP ;
00057 004D CD 7E 17 CALLL177E ;~
00058 0050 E3 EX(SP),HL ;
00059 0051 2B DECHL ;+
00060 0052 2B DECHL ;+
00061 0053 7E LDA,(HL) ;~
00062 0054 D6 BF SUB0BFh ;
00063 0056 18 D3 JRL002B ;
00064 0058 3E 70 L0058: LDA,070h ;>p
00065 005A ED 47 LDI,A ;G
00066 005C 21 94 70 LDHL,07094h ;!p
00067 005F 01 CE 01 LDBC,001CEh ;
00068 0062 CD 60 08 CALLL0860 ;`
00069 0065 21 65 01 LDHL,00165h ;!e
00070 0068 11 00 70 LDDE,07000h ;p
00071 006B 01 5D 00 LDBC,0005Dh ;]
00072 006E ED B0 LDIR ;
00073 0070 CD C2 01 CALLL01C2 ;
00074 0073 FB EI ;
00075 0074 CD 11 18 CALLL1811 ;
00076 0077 CD 0B 0E CALLL0E0B ;
00077 007A CD C7 00 CALLL00C7 ;
00078 007D CD 8E 00 CALLL008E ;
00079 0080 CD E4 00 CALLL00E4 ;
00080 0083 18 AE JRL0033 ;
00081 0085 FE 61 L0085: CP061h ;a
00082 0087 D8 RETC ;
00083 0088 FE 7B CP07Bh ;{
00084 008A D0 RETNC ;
00085 008B D6 20 SUB020h ;
00086 008D C9 RET ;
00087 008E F3 L008E: DI ;
00088 008F 21 00 70 LDHL,07000h ;!p
00089 0092 2B L0092: DECHL ;+
00090 0093 CD BC 00 CALLL00BC ;
00091 0096 28 FA JRZ,L0092 ;(
00092 0098 23 INCHL ;#
00093 0099 7C LDA,H ;|
00094 009A E6 03 AND003h ;
00095 009C B5 ORL ;
00096 009D 20 3C JRNZ,L00DB ; <
00097 009F 22 10 70 LD(07010h),HL ;"p
00098 00A2 23 L00A2: INCHL ;#
00099 00A3 CD BC 00 CALLL00BC ;
00100 00A6 28 FA JRZ,L00A2 ;(
00101 00A8 7C LDA,H ;|
00102 00A9 E6 03 AND003h ;
00103 00AB B5 ORL ;
00104 00AC 20 2D JRNZ,L00DB ; -
00105 00AE 22 12 70 LD(07012h),HL ;"p
00106 00B1 22 16 70 LD(07016h),HL ;"p
00107 00B4 21 00 73 LDHL,07300h ;!s
00108 00B7 22 14 70 LD(07014h),HL ;"p
00109 00BA FB EI ;
00110 00BB C9 RET ;
00111 00BC 56 L00BC: LDD,(HL) ;V
00112 00BD 3E 5A LDA,05Ah ;>Z
00113 00BF 77 LD(HL),A ;w
00114 00C0 BE CP(HL) ;
00115 00C1 C0 RETNZ ;
00116 00C2 2F CPL ;/
00117 00C3 77 LD(HL),A ;w
00118 00C4 BE CP(HL) ;
00119 00C5 72 LD(HL),D ;r
00120 00C6 C9 RET ;
00121 00C7 21 00 00 L00C7: LDHL,00000h ;!
00122 00CA 3E 20 LDA,020h ;>
00123 00CC 84 ADDA,H ;
00124 00CD 47 LDB,A ;G
00125 00CE 0E 00 LDC,000h ;
00126 00D0 79 L00D0: LDA,C ;y
00127 00D1 86 ADDA,(HL) ;
00128 00D2 4F LDC,A ;O
00129 00D3 23 INCHL ;#
00130 00D4 7C LDA,H ;|
00131 00D5 B8 CPB ;
00132 00D6 20 F8 JRNZ,L00D0 ;
00133 00D8 79 LDA,C ;y
00134 00D9 B7 ORA ;
00135 00DA C8 RETZ ;
00136 00DB F3 L00DB: DI ;
00137 00DC 3E 88 LDA,088h ;>
00138 00DE D3 11 OUT(011h),A ;
00139 00E0 3D DECA ;=
00140 00E1 D3 11 OUT(011h),A ;
00141 00E3 76 HALT ;v
00142 00E4 3A 00 20 L00E4: LDA,(02000h) ;:
00143 00E7 3C INCA ;<
00144 00E8 21 2E 00 LDHL,0002Eh ;!.
00145 00EB E5 PUSHHL ;
00146 00EC 28 10 JRZ,L00FE ;(
00147 00EE 2A 01 20 LDHL,(02001h) ;*
00148 00F1 E3 EX(SP),HL ;
00149 00F2 F5 PUSHAF ;
00150 00F3 2A 03 20 LDHL,(02003h) ;*
00151 00F6 CD FE 05 CALLL05FE ;
00152 00F9 F1 POPAF ;
00153 00FA FE 03 CP003h ;
00154 00FC 28 0D JRZ,L010B ;(
00155 00FE 3A 00 40 L00FE: LDA,(04000h) ;:@
00156 0101 3C INCA ;<
00157 0102 28 07 JRZ,L010B ;(
00158 0104 2A 01 40 LDHL,(04001h) ;*@
00159 0107 E3 EX(SP),HL ;
00160 0108 CD FE 05 CALLL05FE ;
00161 010B E1 L010B: POPHL ;
00162 010C E9 JP(HL) ;
00163 010D 11 9B 04 L010D: LDDE,0049Bh ;
00164 0110 21 62 72 LDHL,07262h ;!br
00165 0113 CD 87 15 CALLL1587 ;
00166 0116 38 F5 JRC,L010D ;8
00167 0118 CB 56 BIT2,(HL) ;V
00168 011A 20 F1 JRNZ,L010D ;
00169 011C E5 PUSHHL ;
00170 011D CB 5E BIT3,(HL) ;^
00171 011F 3E 20 LDA,020h ;>
00172 0121 20 02 JRNZ,L0125 ;
00173 0123 3E 2A LDA,02Ah ;>*
00174 0125 CD 88 10 L0125: CALLL1088 ;
00175 0128 23 INCHL ;#
00176 0129 06 09 LDB,009h ;
00177 012B CD 63 10 CALLL1063 ;c
00178 012E CD ED 10 CALLL10ED ;
00179 0131 E1 POPHL ;
00180 0132 CB 5E BIT3,(HL) ;^
00181 0134 20 D7 JRNZ,L010D ;
00182 0136 AF XORA ;
00183 0137 CD 3B 15 CALLL153B ;;
00184 013A F5 PUSHAF ;
00185 013B DC 76 11 CALLC,L1176 ;v
00186 013E F1 POPAF ;
00187 013F 38 CC JRC,L010D ;8
00188 0141 21 62 72 LDHL,07262h ;!br
00189 0144 CB 4E BIT1,(HL) ;N
00190 0146 28 C5 JRZ,L010D ;(
00191 0148 11 0E 00 LDDE,0000Eh ;
00192 014B 19 L014B: ADDHL,DE ;
00193 014C 5E LDE,(HL) ;^
00194 014D 23 INCHL ;#
00195 014E 56 LDD,(HL) ;V
00196 014F EB EXDE,HL ;
00197 0150 E9 JP(HL) ;
00198 0151 4F L0151: LDC,A ;O
00199 0152 AF XORA ;
00200 0153 06 10 LDB,010h ;
00201 0155 ED 6A L0155: ADCHL,HL ;j
00202 0157 8F ADCA,A ;
00203 0158 38 04 JRC,L015E ;8
00204 015A B9 CPC ;
00205 015B 3F CCF ;?
00206 015C 30 02 JRNC,L0160 ;0
00207 015E 91 L015E: SUBC ;
00208 015F 37 SCF ;7
00209 0160 10 F3 L0160: DJNZL0155 ;
00210 0162 ED 6A ADCHL,HL ;j
00211 0164 C9 RET ;
00212 0165 6C LDL,H ;l
00213 0166 18 61 JRL01C9 ;a
00214 0168 18 6C JRL01D6 ;l
00215 016A 18 DF JRL014B ;
00216 016C 01 C3 00 LDBC,000C3h ;
00217 016F 00 NOP ;
00218 0170 C3 00 00 JPL0000 ;
00219 0173 CD 14 00 CALLL0014 ;
00220 0176 70 LD(HL),B ;p
00221 0177 00 NOP ;
00222 0178 80 ADDA,B ;
00223 0179 00 NOP ;
00224 017A 73 LD(HL),E ;s
00225 017B 00 NOP ;
00226 017C 80 ADDA,B ;
00227 017D 00 NOP ;
00228 017E 21 94 E7 LDHL,0E794h ;!
00229 0181 09 ADDHL,BC ;
00230 0182 00 NOP ;
00231 0183 00 NOP ;
00232 0184 00 L0184: NOP ;
00233 0185 00 NOP ;
00234 0186 2E 00 LDL,000h ;.
00235 0188 2E 00 LDL,000h ;.
00236 018A 1B DECDE ;
00237 018B 02 LD(BC),A ;
00238 018C 1B DECDE ;
00239 018D 02 LD(BC),A ;
00240 018E 00 NOP ;
00241 018F 00 NOP ;
00242 0190 00 NOP ;
00243 0191 05 DECB ;
00244 0192 1E 1E LDE,01Eh ;
00245 0194 04 INCB ;
00246 0195 04 INCB ;
00247 0196 DF RST18H ;
00248 0197 70 LD(HL),B ;p
00249 0198 00 NOP ;
00250 0199 00 NOP ;
00251 019A 3F CCF ;?
00252 019B 00 NOP ;
00253 019C 00 NOP ;
00254 019D 32 00 04 LD(00400h),A ;2
00255 01A0 02 LD(BC),A ;
00256 01A1 23 INCHL ;#
00257 01A2 00 NOP ;
00258 01A3 00 NOP ;
00259 01A4 00 NOP ;
00260 01A5 00 NOP ;
00261 01A6 32 32 00 LD(00032h),A ;22
00262 01A9 00 NOP ;
00263 01AA 32 32 00 LD(00032h),A ;22
00264 01AD 00 NOP ;
00265 01AE 32 00 00 LD(00000h),A ;2
00266 01B1 00 NOP ;
00267 01B2 FF RST38H ;
00268 01B3 FF RST38H ;
00269 01B4 2E 00 LDL,000h ;.
00270 01B6 2E 00 LDL,000h ;.
00271 01B8 2E 00 LDL,000h ;.
00272 01BA 80 ADDA,B ;
00273 01BB 02 LD(BC),A ;
00274 01BC 01 00 00 LDBC,00000h ;
00275 01BF 07 RLCA ;
00276 01C0 50 LDD,B ;P
00277 01C1 00 NOP ;
00278 01C2 AF L01C2: XORA ;
00279 01C3 D3 00 OUT(000h),A ;
00280 01C5 21 D7 01 LDHL,001D7h ;!
00281 01C8 01 00 04 LDBC,00400h ;
00282 01CB 7E L01CB: LDA,(HL) ;~
00283 01CC ED 79 OUT(C),A ;y
00284 01CE 23 INCHL ;#
00285 01CF 7E LDA,(HL) ;~
00286 01D0 ED 79 OUT(C),A ;y
00287 01D2 23 INCHL ;#
00288 01D3 0C INCC ;
00289 01D4 10 F5 DJNZL01CB ;
00290 01D6 C9 L01D6: RET ;
00291 01D7 C7 RST0H ;
00292 01D8 01 A7 0E LDBC,00EA7h ;
00293 01DB 57 LDD,A ;W
00294 01DC 17 RLA ;
00295 01DD C7 RST0H ;
00296 01DE 01 F5 C5 LDBC,0C5F5h ;
00297 01E1 D5 PUSHDE ;
00298 01E2 E5 PUSHHL ;
00299 01E3 CD 6D 18 CALLL186D ;m
00300 01E6 DB 11 INA,(011h) ;
00301 01E8 32 55 70 LD(07055h),A ;2Up
00302 01EB 21 40 70 LDHL,07040h ;!@p
00303 01EE CB 46 BIT0,(HL) ;F
00304 01F0 CB C6 SET0,(HL) ;
00305 01F2 20 48 JRNZ,L023C ; H
00306 01F4 FB EI ;
00307 01F5 21 3C 70 LDHL,0703Ch ;!<p
00308 01F8 CB 46 BIT0,(HL) ;F
00309 01FA 2A 53 70 LDHL,(07053h) ;*Sp
00310 01FD C4 FE 05 CALLNZ,L05FE ;
00311 0200 21 3C 70 LDHL,0703Ch ;!<p
00312 0203 CB 4E BIT1,(HL) ;N
00313 0205 C4 42 02 CALLNZ,L0242 ;B
00314 0208 21 3C 70 LDHL,0703Ch ;!<p
00315 020B CB 56 BIT2,(HL) ;V
00316 020D C4 65 02 CALLNZ,L0265 ;e
00317 0210 21 3C 70 LDHL,0703Ch ;!<p
00318 0213 CB 5E BIT3,(HL) ;^
00319 0215 C4 75 02 CALLNZ,L0275 ;u
00320 0218 CD FF 05 CALLL05FF ;
00321 021B 21 3C 70 LDHL,0703Ch ;!<p
00322 021E CB 66 BIT4,(HL) ;f
00323 0220 C4 A5 05 CALLNZ,L05A5 ;
00324 0223 21 3C 70 LDHL,0703Ch ;!<p
00325 0226 CB 6E BIT5,(HL) ;n
00326 0228 C4 11 05 CALLNZ,L0511 ;
00327 022B CD 8B 11 CALLL118B ;
00328 022E 21 3C 70 LDHL,0703Ch ;!<p
00329 0231 CB 76 BIT6,(HL) ;v
00330 0233 C4 8F 02 CALLNZ,L028F ;
00331 0236 F3 DI ;
00332 0237 21 40 70 LDHL,07040h ;!@p
00333 023A CB 86 RES0,(HL) ;
00334 023C E1 L023C: POPHL ;
00335 023D D1 POPDE ;
00336 023E C1 POPBC ;
00337 023F F1 POPAF ;
00338 0240 FB EI ;
00339 0241 C9 RET ;
00340 0242 21 49 70 L0242: LDHL,07049h ;!Ip
00341 0245 35 DEC(HL) ;5
00342 0246 C0 RETNZ ;
00343 0247 36 32 LD(HL),032h ;62
00344 0249 23 INCHL ;#
00345 024A CD E4 02 CALLL02E4 ;
00346 024D D8 RETC ;
00347 024E FE 18 CP018h ;
00348 0250 2A 51 70 LDHL,(07051h) ;*Qp
00349 0253 DC FE 05 CALLC,L05FE ;
00350 0256 ED 5B 4B 70 LDDE,(0704Bh) ;[Kp
00351 025A 2A 4D 70 LDHL,(0704Dh) ;*Mp
00352 025D B7 ORA ;
00353 025E ED 52 SBCHL,DE ;R
00354 0260 2A 4F 70 LDHL,(0704Fh) ;*Op
00355 0263 C0 RETNZ ;
00356 0264 E9 JP(HL) ;
00357 0265 21 41 70 L0265: LDHL,07041h ;!Ap
00358 0268 7E LDA,(HL) ;~
00359 0269 23 INCHL ;#
00360 026A 35 DEC(HL) ;5
00361 026B C0 RETNZ ;
00362 026C 77 LD(HL),A ;w
00363 026D 2A 43 70 LDHL,(07043h) ;*Cp
00364 0270 23 INCHL ;#
00365 0271 22 43 70 LD(07043h),HL ;"Cp
00366 0274 C9 RET ;
00367 0275 21 45 70 L0275: LDHL,07045h ;!Ep
00368 0278 7E LDA,(HL) ;~
00369 0279 23 INCHL ;#
00370 027A 35 DEC(HL) ;5
00371 027B C0 RETNZ ;
00372 027C 77 LD(HL),A ;w
00373 027D 2A 47 70 LDHL,(07047h) ;*Gp
00374 0280 2B DECHL ;+
00375 0281 22 47 70 LD(07047h),HL ;"Gp
00376 0284 7C LDA,H ;|
00377 0285 B5 ORL ;
00378 0286 C0 RETNZ ;
00379 0287 21 3C 70 LDHL,0703Ch ;!<p
00380 028A CB FE SET7,(HL) ;
00381 028C CB 9E RES3,(HL) ;
00382 028E C9 RET ;
00383 028F AF L028F: XORA ;
00384 0290 2A 3E 70 LDHL,(0703Eh) ;*>p
00385 0293 EB L0293: EXDE,HL ;
00386 0294 21 3D 70 LDHL,0703Dh ;!=p
00387 0297 BE CP(HL) ;
00388 0298 C8 RETZ ;
00389 0299 3C INCA ;<
00390 029A 32 23 72 LD(07223h),A ;2#r
00391 029D 21 06 00 LDHL,00006h ;!
00392 02A0 19 ADDHL,DE ;
00393 02A1 22 24 72 LD(07224h),HL ;"$r
00394 02A4 EB EXDE,HL ;
00395 02A5 5E LDE,(HL) ;^
00396 02A6 23 INCHL ;#
00397 02A7 56 LDD,(HL) ;V
00398 02A8 CB 7A BIT7,D ;z
00399 02AA 20 1B JRNZ,L02C7 ;
00400 02AC 1B DECDE ;
00401 02AD CB BA RES7,D ;
00402 02AF 72 LD(HL),D ;r
00403 02B0 2B DECHL ;+
00404 02B1 73 LD(HL),E ;s
00405 02B2 7A LDA,D ;z
00406 02B3 B3 ORE ;
00407 02B4 20 11 JRNZ,L02C7 ;
00408 02B6 34 INC(HL) ;4
00409 02B7 23 INCHL ;#
00410 02B8 23 INCHL ;#
00411 02B9 7E LDA,(HL) ;~
00412 02BA 23 INCHL ;#
00413 02BB 35 DEC(HL) ;5
00414 02BC 20 09 JRNZ,L02C7 ;
00415 02BE 77 LD(HL),A ;w
00416 02BF 23 INCHL ;#
00417 02C0 5E LDE,(HL) ;^
00418 02C1 23 INCHL ;#
00419 02C2 56 LDD,(HL) ;V
00420 02C3 EB EXDE,HL ;
00421 02C4 CD FE 05 CALLL05FE ;
00422 02C7 2A 24 72 L02C7: LDHL,(07224h) ;*$r
00423 02CA 3A 23 72 LDA,(07223h) ;:#r
00424 02CD 18 C4 JRL0293 ;
00425 02CF F3 DI ;
00426 02D0 32 4C 70 LD(0704Ch),A ;2Lp
00427 02D3 22 4A 70 LD(0704Ah),HL ;"Jp
00428 02D6 21 3C 70 LDHL,0703Ch ;!<p
00429 02D9 CB CE SET1,(HL) ;
00430 02DB F3 DI ;
00431 02DC 3A 4C 70 LDA,(0704Ch) ;:Lp
00432 02DF 2A 4A 70 LDHL,(0704Ah) ;*Jp
00433 02E2 FB EI ;
00434 02E3 C9 RET ;
00435 02E4 3E 3B L02E4: LDA,03Bh ;>;
00436 02E6 34 INC(HL) ;4
00437 02E7 BE CP(HL) ;
00438 02E8 3F CCF ;?
00439 02E9 D8 RETC ;
00440 02EA 36 00 LD(HL),000h ;6
00441 02EC 23 INCHL ;#
00442 02ED 34 INC(HL) ;4
00443 02EE BE CP(HL) ;
00444 02EF D0 RETNC ;
00445 02F0 36 00 LD(HL),000h ;6
00446 02F2 23 INCHL ;#
00447 02F3 34 INC(HL) ;4
00448 02F4 3E 17 LDA,017h ;>
00449 02F6 BE CP(HL) ;
00450 02F7 D0 RETNC ;
00451 02F8 AF XORA ;
00452 02F9 77 LD(HL),A ;w
00453 02FA C9 RET ;
00454 02FB 21 3C 70 LDHL,0703Ch ;!<p
00455 02FE CB 56 BIT2,(HL) ;V
00456 0300 20 1F JRNZ,L0321 ;
00457 0302 67 LDH,A ;g
00458 0303 6F LDL,A ;o
00459 0304 22 41 70 LD(07041h),HL ;"Ap
00460 0307 21 00 00 LDHL,00000h ;!
00461 030A 22 43 70 LD(07043h),HL ;"Cp
00462 030D 21 3C 70 LDHL,0703Ch ;!<p
00463 0310 CB D6 SET2,(HL) ;
00464 0312 C9 RET ;
00465 0313 21 3C 70 LDHL,0703Ch ;!<p
00466 0316 CB 96 RES2,(HL) ;
00467 0318 C9 RET ;
00468 0319 F3 L0319: DI ;
00469 031A E5 PUSHHL ;
00470 031B 21 3C 70 LDHL,0703Ch ;!<p
00471 031E CB 5E BIT3,(HL) ;^
00472 0320 E1 POPHL ;
00473 0321 C4 4A 00 L0321: CALLNZ,L004A ;J
00474 0324 22 47 70 LD(07047h),HL ;"Gp
00475 0327 67 LDH,A ;g
00476 0328 6F LDL,A ;o
00477 0329 22 45 70 LD(07045h),HL ;"Ep
00478 032C 21 3C 70 LDHL,0703Ch ;!<p
00479 032F B7 L032F: ORA ;
00480 0330 CB DE SET3,(HL) ;
00481 0332 CB BE RES7,(HL) ;
00482 0334 FB EI ;
00483 0335 C9 RET ;
00484 0336 F3 DI ;
00485 0337 21 3C 70 LDHL,0703Ch ;!<p
00486 033A CB 7E BIT7,(HL) ;~
00487 033C 20 E3 JRNZ,L0321 ;
00488 033E 18 EF JRL032F ;
00489 0340 E5 L0340: PUSHHL ;
00490 0341 21 3C 70 LDHL,0703Ch ;!<p
00491 0344 CB 9E RES3,(HL) ;
00492 0346 E1 POPHL ;
00493 0347 C9 RET ;
00494 0348 21 3C 70 LDHL,0703Ch ;!<p
00495 034B 87 ADDA,A ;
00496 034C F3 DI ;
00497 034D CB 26 SLA(HL) ;&
00498 034F 1F RRA ;
00499 0350 77 LD(HL),A ;w
00500 0351 3A 3C 70 LDA,(0703Ch) ;:<p
00501 0354 FB EI ;
00502 0355 C9 RET ;
00503 0356 FE 29 CP029h ;)
00504 0358 D4 48 00 CALLNC,L0048 ;H
00505 035B F3 DI ;
00506 035C 32 3D 70 LD(0703Dh),A ;2=p
00507 035F 22 3E 70 LD(0703Eh),HL ;">p
00508 0362 21 3C 70 LDHL,0703Ch ;!<p
00509 0365 CB F6 SET6,(HL) ;
00510 0367 FB EI ;
00511 0368 C9 RET ;
00512 0369 D5 L0369: PUSHDE ;
00513 036A 2A 9B 70 LDHL,(0709Bh) ;*p
00514 036D E6 1F AND01Fh ;
00515 036F 87 ADDA,A ;
00516 0370 87 ADDA,A ;
00517 0371 5F LDE,A ;_
00518 0372 16 00 LDD,000h ;
00519 0374 19 ADDHL,DE ;
00520 0375 D1 POPDE ;
00521 0376 C9 RET ;
00522 0377 06 00 L0377: LDB,000h ;
00523 0379 3A AF 70 LDA,(070AFh) ;:p
00524 037C E6 38 AND038h ;8
00525 037E 4F LDC,A ;O
00526 037F 7B LDA,E ;{
00527 0380 14 INCD ;
00528 0381 28 0D L0381: JRZ,L0390 ;(
00529 0383 15 DECD ;
00530 0384 20 20 JRNZ,L03A6 ;
00531 0386 FE D1 CP0D1h ;
00532 0388 30 1C JRNC,L03A6 ;0
00533 038A FE C0 CP0C0h ;
00534 038C 30 0B JRNC,L0399 ;0
00535 038E 18 0D JRL039D ;
00536 0390 FE D2 L0390: CP0D2h ;
00537 0392 38 12 JRC,L03A6 ;8
00538 0394 ED 44 NEG ;D
00539 0396 B9 CPC ;
00540 0397 38 04 JRC,L039D ;8
00541 0399 CB C0 L0399: SET0,B ;
00542 039B 3E 7F LDA,07Fh ;>
00543 039D 1D L039D: DECE ;
00544 039E 55 LDD,L ;U
00545 039F 24 INCH ;$
00546 03A0 28 09 JRZ,L03AB ;(
00547 03A2 CB 38 SRLB ;8
00548 03A4 25 DECH ;%
00549 03A5 C8 RETZ ;
00550 03A6 1E D1 L03A6: LDE,0D1h ;
00551 03A8 CD 47 00 CALLL0047 ;G
00552 03AB CB F8 L03AB: SET7,B ;
00553 03AD 3E E0 LDA,0E0h ;>
00554 03AF BD CPL ;
00555 03B0 30 F4 JRNC,L03A6 ;0
00556 03B2 7D LDA,L ;}
00557 03B3 C6 20 ADDA,020h ;
00558 03B5 57 LDD,A ;W
00559 03B6 7D LDA,L ;}
00560 03B7 ED 44 NEG ;D
00561 03B9 B9 CPC ;
00562 03BA 30 06 JRNC,L03C2 ;0
00563 03BC B7 ORA ;
00564 03BD CB 40 BIT0,B ;@
00565 03BF CB 80 RES0,B ;
00566 03C1 C8 RETZ ;
00567 03C2 CD 3E 00 L03C2: CALLL003E ;>
00568 03C5 CD 69 03 CALLL0369 ;i
00569 03C8 3E D0 LDA,0D0h ;>
00570 03CA D7 RST10H ;
00571 03CB C9 RET ;
00572 03CC 1E D2 L03CC: LDE,0D2h ;
00573 03CE E5 L03CE: PUSHHL ;
00574 03CF E5 PUSHHL ;
00575 03D0 CD 69 03 CALLL0369 ;i
00576 03D3 E3 EX(SP),HL ;
00577 03D4 CD 77 03 CALLL0377 ;w
00578 03D7 E1 POPHL ;
00579 03D8 F5 PUSHAF ;
00580 03D9 F3 DI ;
00581 03DA CD 9F 14 CALLL149F ;
00582 03DD ED 59 OUT(C),E ;Y
00583 03DF F5 PUSHAF ;
00584 03E0 F1 POPAF ;
00585 03E1 ED 51 OUT(C),D ;Q
00586 03E3 23 INCHL ;#
00587 03E4 23 INCHL ;#
00588 03E5 23 INCHL ;#
00589 03E6 DF RST18H ;
00590 03E7 E6 0F AND00Fh ;
00591 03E9 B0 ORB ;
00592 03EA D7 RST10H ;
00593 03EB F1 POPAF ;
00594 03EC E1 POPHL ;
00595 03ED C9 RET ;
00596 03EE 26 00 L03EE: LDH,000h ;&
00597 03F0 6A LDL,D ;j
00598 03F1 CB 78 BIT7,B ;x
00599 03F3 28 05 JRZ,L03FA ;(
00600 03F5 25 DECH ;%
00601 03F6 7A LDA,D ;z
00602 03F7 D6 20 SUB020h ;
00603 03F9 6F LDL,A ;o
00604 03FA 16 00 L03FA: LDD,000h ;
00605 03FC 1C INCE ;
00606 03FD 3E D1 LDA,0D1h ;>
00607 03FF BB CPE ;
00608 0400 28 03 JRZ,L0405 ;(
00609 0402 D0 RETNC ;
00610 0403 3C INCA ;<
00611 0404 BB CPE ;
00612 0405 CC 49 00 L0405: CALLZ,L0049 ;I
00613 0408 15 DECD ;
00614 0409 B7 ORA ;
00615 040A C9 RET ;
00616 040B F5 PUSHAF ;
00617 040C C5 PUSHBC ;
00618 040D CD 2B 04 CALLL042B ;+
00619 0410 C1 POPBC ;
00620 0411 D4 1B 04 CALLNC,L041B ;
00621 0414 F1 POPAF ;
00622 0415 D5 PUSHDE ;
00623 0416 CD CE 03 CALLL03CE ;
00624 0419 D1 POPDE ;
00625 041A C9 RET ;
00626 041B C5 L041B: PUSHBC ;
00627 041C CD 21 04 CALLL0421 ;!
00628 041F C1 POPBC ;
00629 0420 48 LDC,B ;H
00630 0421 06 00 L0421: LDB,000h ;
00631 0423 CB 79 BIT7,C ;y
00632 0425 28 01 JRZ,L0428 ;(
00633 0427 05 DECB ;
00634 0428 EB L0428: EXDE,HL ;
00635 0429 09 ADDHL,BC ;
00636 042A C9 RET ;
00637 042B CD 69 03 L042B: CALLL0369 ;i
00638 042E F3 DI ;
00639 042F CD C5 14 CALLL14C5 ;
00640 0432 5F LDE,A ;_
00641 0433 23 INCHL ;#
00642 0434 CD C5 14 CALLL14C5 ;
00643 0437 57 LDD,A ;W
00644 0438 23 INCHL ;#
00645 0439 FB EI ;
00646 043A DF RST18H ;
00647 043B 4F LDC,A ;O
00648 043C 23 INCHL ;#
00649 043D DF RST18H ;
00650 043E 47 LDB,A ;G
00651 043F CD EE 03 CALLL03EE ;
00652 0442 CB B8 RES7,B ;
00653 0444 C9 RET ;
00654 0445 CD 69 03 CALLL0369 ;i
00655 0448 23 INCHL ;#
00656 0449 23 INCHL ;#
00657 044A 23 INCHL ;#
00658 044B F3 DI ;
00659 044C CD C5 14 CALLL14C5 ;
00660 044F E6 80 AND080h ;
00661 0451 B0 ORB ;
00662 0452 D7 RST10H ;
00663 0453 C9 RET ;
00664 0454 CD 69 03 CALLL0369 ;i
00665 0457 23 INCHL ;#
00666 0458 23 INCHL ;#
00667 0459 79 LDA,C ;y
00668 045A D7 RST10H ;
00669 045B C9 RET ;
00670 045C E6 03 AND003h ;
00671 045E 4F LDC,A ;O
00672 045F 06 00 LDB,000h ;
00673 0461 21 FB 04 LDHL,004FBh ;!
00674 0464 09 ADDHL,BC ;
00675 0465 0F RRCA ;
00676 0466 0F RRCA ;
00677 0467 B6 OR(HL) ;
00678 0468 21 AF 70 LDHL,070AFh ;!p
00679 046B 4F LDC,A ;O
00680 046C 7E LDA,(HL) ;~
00681 046D E6 07 AND007h ;
00682 046F B1 ORC ;
00683 0470 77 LD(HL),A ;w
00684 0471 3A 18 70 LDA,(07018h) ;:p
00685 0474 CB 4F BIT1,A ;O
00686 0476 CC A3 0C CALLZ,L0CA3 ;
00687 0479 C9 RET ;
00688 047A C5 L047A: PUSHBC ;
00689 047B 3A 57 70 LDA,(07057h) ;:Wp
00690 047E 3C INCA ;<
00691 047F 47 LDB,A ;G
00692 0480 29 L0480: ADDHL,HL ;)
00693 0481 10 FD DJNZL0480 ;
00694 0483 09 ADDHL,BC ;
00695 0484 79 LDA,C ;y
00696 0485 CD 51 01 CALLL0151 ;Q
00697 0488 CB 3C SRLH ;<
00698 048A CB 1D RRL ;
00699 048C C1 POPBC ;
00700 048D C9 RET ;
00701 048E 7D L048E: LDA,L ;}
00702 048F B7 ORA ;
00703 0490 24 INCH ;$
00704 0491 28 06 JRZ,L0499 ;(
00705 0493 CB 80 RES0,B ;
00706 0495 25 DECH ;%
00707 0496 C8 RETZ ;
00708 0497 37 SCF ;7
00709 0498 C9 RET ;
00710 0499 ED 44 L0499: NEG ;D
00711 049B 3F CCF ;?
00712 049C CB C0 SET0,B ;
00713 049E C9 RET ;
00714 049F F5 PUSHAF ;
00715 04A0 C5 PUSHBC ;
00716 04A1 48 LDC,B ;H
00717 04A2 AF XORA ;
00718 04A3 47 LDB,A ;G
00719 04A4 ED 42 SBCHL,BC ;B
00720 04A6 EB EXDE,HL ;
00721 04A7 C1 POPBC ;
00722 04A8 47 LDB,A ;G
00723 04A9 B7 ORA ;
00724 04AA ED 42 SBCHL,BC ;B
00725 04AC CD 8E 04 CALLL048E ;
00726 04AF 38 45 JRC,L04F6 ;8E
00727 04B1 4F LDC,A ;O
00728 04B2 EB EXDE,HL ;
00729 04B3 CB 20 SLAB ;
00730 04B5 CD 8E 04 CALLL048E ;
00731 04B8 38 3C JRC,L04F6 ;8<
00732 04BA 58 LDE,B ;X
00733 04BB 47 LDB,A ;G
00734 04BC B9 CPC ;
00735 04BD 3A 56 70 LDA,(07056h) ;:Vp
00736 04C0 57 LDD,A ;W
00737 04C1 38 0E JRC,L04D1 ;8
00738 04C3 B8 CPB ;
00739 04C4 30 18 JRNC,L04DE ;0
00740 04C6 69 LDL,C ;i
00741 04C7 26 00 LDH,000h ;&
00742 04C9 48 LDC,B ;H
00743 04CA CD 7A 04 CALLL047A ;z
00744 04CD 4D LDC,L ;M
00745 04CE 42 LDB,D ;B
00746 04CF 18 0B JRL04DC ;
00747 04D1 B9 L04D1: CPC ;
00748 04D2 30 0A JRNC,L04DE ;0
00749 04D4 68 LDL,B ;h
00750 04D5 26 00 LDH,000h ;&
00751 04D7 CD 7A 04 CALLL047A ;z
00752 04DA 45 LDB,L ;E
00753 04DB 4A LDC,D ;J
00754 04DC CB D3 L04DC: SET2,E ;
00755 04DE CB 3B L04DE: SRLE ;;
00756 04E0 38 04 JRC,L04E6 ;8
00757 04E2 78 LDA,B ;x
00758 04E3 ED 44 NEG ;D
00759 04E5 47 L04E5: LDB,A ;G
00760 04E6 CB 3B L04E6: SRLE ;;
00761 04E8 38 04 JRC,L04EE ;8
00762 04EA 79 LDA,C ;y
00763 04EB ED 44 NEG ;D
00764 04ED 4F LDC,A ;O
00765 04EE F1 L04EE: POPAF ;
00766 04EF CB 3B SRLE ;;
00767 04F1 D4 3D 00 CALLNC,L003D ;=
00768 04F4 B7 ORA ;
00769 04F5 C9 RET ;
00770 04F6 F1 L04F6: POPAF ;
00771 04F7 3E 89 LDA,089h ;>
00772 04F9 37 SCF ;7
00773 04FA C9 RET ;
00774 04FB 08 EXAF,AF’ ;
00775 04FC 10 10 DJNZL050E ;
00776 04FE 20 E5 JRNZ,L04E5 ;
00777 0500 21 94 70 LDHL,07094h ;!p
00778 0503 CB CE SET1,(HL) ;
00779 0505 CB 50 BIT2,B ;P
00780 0507 20 06 JRNZ,L050F ;
00781 0509 CB 58 BIT3,B ;X
00782 050B 20 02 JRNZ,L050F ;
00783 050D CB 8E RES1,(HL) ;
00784 050F E1 L050F: POPHL ;
00785 0510 C9 RET ;
00786 0511 21 2B 70 L0511: LDHL,0702Bh ;!+p
00787 0514 7E LDA,(HL) ;~
00788 0515 B7 ORA ;
00789 0516 28 16 JRZ,L052E ;(
00790 0518 3D DECA ;=
00791 0519 4F LDC,A ;O
00792 051A E6 07 AND007h ;
00793 051C 3C INCA ;<
00794 051D 47 LDB,A ;G
00795 051E 79 LDA,C ;y
00796 051F 0F RRCA ;
00797 0520 0F RRCA ;
00798 0521 0F RRCA ;
00799 0522 E6 1F AND01Fh ;
00800 0524 C6 30 ADDA,030h ;0
00801 0526 4F LDC,A ;O
00802 0527 ED 78 INA,(C) ;x
00803 0529 0F L0529: RRCA ;
00804 052A 10 FD DJNZL0529 ;
00805 052C 38 26 JRC,L0554 ;8&
00806 052E CD 66 09 L052E: CALLL0966 ;f
00807 0531 32 29 70 LD(07029h),A ;2)p
00808 0534 34 INC(HL) ;4
00809 0535 35 DEC(HL) ;5
00810 0536 2B DECHL ;+
00811 0537 70 LD(HL),B ;p
00812 0538 23 INCHL ;#
00813 0539 28 0B JRZ,L0546 ;(
00814 053B BE CP(HL) ;
00815 053C 23 INCHL ;#
00816 053D 28 1E JRZ,L055D ;(
00817 053F B7 ORA ;
00818 0540 20 03 JRNZ,L0545 ;
00819 0542 35 DEC(HL) ;5
00820 0543 20 1A JRNZ,L055F ;
00821 0545 2B L0545: DECHL ;+
00822 0546 77 L0546: LD(HL),A ;w
00823 0547 23 INCHL ;#
00824 0548 36 05 LD(HL),005h ;6
00825 054A 23 INCHL ;#
00826 054B 4E LDC,(HL) ;N
00827 054C 23 INCHL ;#
00828 054D 71 LD(HL),C ;q
00829 054E 23 INCHL ;#
00830 054F 23 INCHL ;#
00831 0550 36 01 LD(HL),001h ;6
00832 0552 18 16 JRL056A ;
00833 0554 DB 30 L0554: INA,(030h) ;0
00834 0556 E6 0F AND00Fh ;
00835 0558 47 LDB,A ;G
00836 0559 32 2A 70 LD(0702Ah),A ;2*p
00837 055C 23 INCHL ;#
00838 055D 36 05 L055D: LD(HL),005h ;6
00839 055F 23 L055F: INCHL ;#
00840 0560 23 INCHL ;#
00841 0561 35 DEC(HL) ;5
00842 0562 C0 RETNZ ;
00843 0563 34 INC(HL) ;4
00844 0564 23 INCHL ;#
00845 0565 4E LDC,(HL) ;N
00846 0566 23 INCHL ;#
00847 0567 35 DEC(HL) ;5
00848 0568 C0 RETNZ ;
00849 0569 71 LD(HL),C ;q
00850 056A 3A 2B 70 L056A: LDA,(0702Bh) ;:+p
00851 056D CD DA 08 CALLL08DA ;
00852 0570 D8 RETC ;
00853 0571 C5 PUSHBC ;
00854 0572 E5 PUSHHL ;
00855 0573 F5 PUSHAF ;
00856 0574 3A 1A 70 LDA,(0701Ah) ;:p
00857 0577 B7 ORA ;
00858 0578 FC 6A 11 CALLM,L116A ;j
00859 057B F1 POPAF ;
00860 057C E1 POPHL ;
00861 057D C1 POPBC ;
00862 057E CB 48 BIT1,B ;H
00863 0580 CA 69 08 JPZ,L0869 ;i
00864 0583 CB 88 RES1,B ;
00865 0585 0E 00 LDC,000h ;
00866 0587 3A DC 70 LDA,(070DCh) ;:p
00867 058A 87 ADDA,A ;
00868 058B 38 05 JRC,L0592 ;8
00869 058D 4E LDC,(HL) ;N
00870 058E 23 INCHL ;#
00871 058F 79 LDA,C ;y
00872 0590 B7 ORA ;
00873 0591 C8 RETZ ;
00874 0592 7E L0592: LDA,(HL) ;~
00875 0593 B7 ORA ;
00876 0594 C8 RETZ ;
00877 0595 E5 PUSHHL ;
00878 0596 CD 69 08 CALLL0869 ;i
00879 0599 E1 POPHL ;
00880 059A D8 RETC ;
00881 059B 7E LDA,(HL) ;~
00882 059C 23 INCHL ;#
00883 059D FE 0D CP00Dh ;
00884 059F C8 RETZ ;
00885 05A0 B7 ORA ;
00886 05A1 0D DECC ;
00887 05A2 20 EE JRNZ,L0592 ;
00888 05A4 C9 RET ;
00889 05A5 06 02 L05A5: LDB,002h ;
00890 05A7 3A 3C 70 LDA,(0703Ch) ;:<p
00891 05AA 4F LDC,A ;O
00892 05AB C5 L05AB: PUSHBC ;
00893 05AC DB 37 INA,(037h) ;7
00894 05AE CB 40 BIT0,B ;@
00895 05B0 20 04 JRNZ,L05B6 ;
00896 05B2 0F RRCA ;
00897 05B3 0F RRCA ;
00898 05B4 0F RRCA ;
00899 05B5 0F RRCA ;
00900 05B6 E6 0F L05B6: AND00Fh ;
00901 05B8 5F LDE,A ;_
00902 05B9 16 82 LDD,082h ;
00903 05BB E6 0A AND00Ah ;
00904 05BD FE 0A CP00Ah ;
00905 05BF 28 08 JRZ,L05C9 ;(
00906 05C1 15 DECD ;
00907 05C2 7B LDA,E ;{
00908 05C3 E6 05 AND005h ;
00909 05C5 FE 05 CP005h ;
00910 05C7 20 05 JRNZ,L05CE ;
00911 05C9 7A L05C9: LDA,D ;z
00912 05CA 16 00 LDD,000h ;
00913 05CC 18 07 JRL05D5 ;
00914 05CE 16 00 L05CE: LDD,000h ;
00915 05D0 21 A7 09 LDHL,009A7h ;!
00916 05D3 19 ADDHL,DE ;
00917 05D4 7E LDA,(HL) ;~
00918 05D5 21 1D 70 L05D5: LDHL,0701Dh ;!p
00919 05D8 58 LDE,B ;X
00920 05D9 1D DECE ;
00921 05DA 19 ADDHL,DE ;
00922 05DB 19 ADDHL,DE ;
00923 05DC CB 7F BIT7,A ;
00924 05DE CB BF RES7,A ;
00925 05E0 28 10 JRZ,L05F2 ;(
00926 05E2 BE CP(HL) ;
00927 05E3 28 09 JRZ,L05EE ;(
00928 05E5 77 LD(HL),A ;w
00929 05E6 2A 23 70 LDHL,(07023h) ;*#p
00930 05E9 CB 61 L05E9: BIT4,C ;a
00931 05EB C4 FE 05 CALLNZ,L05FE ;
00932 05EE C1 L05EE: POPBC ;
00933 05EF 10 BA DJNZL05AB ;
00934 05F1 C9 RET ;
00935 05F2 36 00 L05F2: LD(HL),000h ;6
00936 05F4 23 INCHL ;#
00937 05F5 BE CP(HL) ;
00938 05F6 28 F6 JRZ,L05EE ;(
00939 05F8 77 LD(HL),A ;w
00940 05F9 2A 21 70 LDHL,(07021h) ;*!p
00941 05FC 18 EB JRL05E9 ;
00942 05FE E9 L05FE: JP(HL) ;
00943 05FF 21 1A 70 L05FF: LDHL,0701Ah ;!p
00944 0602 46 LDB,(HL) ;F
00945 0603 CB AE RES5,(HL) ;
00946 0605 DB 50 INA,(050h) ;P
00947 0607 B7 ORA ;
00948 0608 F0 RETP ;
00949 0609 CB EE SET5,(HL) ;
00950 060B DB 30 INA,(030h) ;0
00951 060D 2A 27 70 LDHL,(07027h) ;*'p
00952 0610 CB 47 BIT0,A ;G
00953 0612 20 06 JRNZ,L061A ;
00954 0614 E6 0C AND00Ch ;
00955 0616 C8 RETZ ;
00956 0617 2A 25 70 LDHL,(07025h) ;*%p
00957 061A CB 68 L061A: BIT5,B ;h
00958 061C C0 RETNZ ;
00959 061D E3 EX(SP),HL ;
00960 061E CD 40 03 CALLL0340 ;@
00961 0621 F3 DI ;
00962 0622 21 40 70 LDHL,07040h ;!@p
00963 0625 CB 86 RES0,(HL) ;
00964 0627 18 0F JRL0638 ;
00965 0629 2A 26 72 L0629: LDHL,(07226h) ;*&r
00966 062C 2B DECHL ;+
00967 062D 22 26 72 LD(07226h),HL ;"&r
00968 0630 7C LDA,H ;|
00969 0631 B5 ORL ;
00970 0632 C0 RETNZ ;
00971 0633 CF RST8H ;
00972 0634 CB 5F BIT3,A ;_
00973 0636 28 16 JRZ,L064E ;(
00974 0638 CF L0638: RST8H ;
00975 0639 CB 67 BIT4,A ;g
00976 063B C0 RETNZ ;
00977 063C CD AC 14 CALLL14AC ;
00978 063F FE 1B CP01Bh ;
00979 0641 C0 RETNZ ;
00980 0642 3A AA 70 LDA,(070AAh) ;:p
00981 0645 D7 RST10H ;
00982 0646 CF RST8H ;
00983 0647 CB 9E RES3,(HL) ;
00984 0649 3A AC 70 LDA,(070ACh) ;:p
00985 064C 18 13 JRL0661 ;
00986 064E CF L064E: RST8H ;
00987 064F CB 67 BIT4,A ;g
00988 0651 C0 RETNZ ;
00989 0652 CD AC 14 CALLL14AC ;
00990 0655 32 AA 70 LD(070AAh),A ;2p
00991 0658 3E 1B LDA,01Bh ;>
00992 065A D7 RST10H ;
00993 065B CF RST8H ;
00994 065C CB DE SET3,(HL) ;
00995 065E 3A AB 70 LDA,(070ABh) ;:p
00996 0661 67 L0661: LDH,A ;g
00997 0662 2E 00 LDL,000h ;.
00998 0664 22 26 72 LD(07226h),HL ;"&r
00999 0667 C9 RET ;
01000 0668 C5 PUSHBC ;
01001 0669 E5 PUSHHL ;
01002 066A CD 89 06 CALLL0689 ;
01003 066D E1 POPHL ;
01004 066E C1 POPBC ;
01005 066F CD EC 0E CALLL0EEC ;
01006 0672 F5 PUSHAF ;
01007 0673 C5 PUSHBC ;
01008 0674 E5 PUSHHL ;
01009 0675 CD CA 11 CALLL11CA ;
01010 0678 F5 PUSHAF ;
01011 0679 CD DD 13 CALLL13DD ;
01012 067C F1 POPAF ;
01013 067D 3E 0D LDA,00Dh ;>
01014 067F DC 83 10 CALLC,L1083 ;
01015 0682 CD 40 03 CALLL0340 ;@
01016 0685 E1 POPHL ;
01017 0686 C1 POPBC ;
01018 0687 F1 POPAF ;
01019 0688 C9 RET ;
01020 0689 CD 92 09 L0689: CALLL0992 ;
01021 068C 3A 18 70 LDA,(07018h) ;:p
01022 068F F5 PUSHAF ;
01023 0690 ED 5B A6 70 LDDE,(070A6h) ;[p
01024 0694 D5 L0694: PUSHDE ;
01025 0695 CD 45 08 L0695: CALLL0845 ;E
01026 0698 30 03 JRNC,L069D ;0
01027 069A D1 POPDE ;
01028 069B E1 POPHL ;
01029 069C C9 RET ;
01030 069D FE 0D L069D: CP00Dh ;
01031 069F 28 38 JRZ,L06D9 ;(8
01032 06A1 FE 0C CP00Ch ;
01033 06A3 20 07 JRNZ,L06AC ;
01034 06A5 78 LDA,B ;x
01035 06A6 E6 0C AND00Ch ;
01036 06A8 28 EB JRZ,L0695 ;(
01037 06AA 3E 0C LDA,00Ch ;>
01038 06AC 21 1A 70 L06AC: LDHL,0701Ah ;!p
01039 06AF CB B6 RES6,(HL) ;
01040 06B1 CD 85 10 CALLL1085 ;
01041 06B4 FE 03 CP003h ;
01042 06B6 38 04 JRC,L06BC ;8
01043 06B8 FE 07 CP007h ;
01044 06BA 38 06 JRC,L06C2 ;8
01045 06BC CB 76 L06BC: BIT6,(HL) ;v
01046 06BE 28 D5 JRZ,L0695 ;(
01047 06C0 3E 05 LDA,005h ;>
01048 06C2 D1 L06C2: POPDE ;
01049 06C3 D5 PUSHDE ;
01050 06C4 1C INCE ;
01051 06C5 28 CE JRZ,L0695 ;(
01052 06C7 D1 POPDE ;
01053 06C8 21 FF 06 LDHL,006FFh ;!
01054 06CB D6 03 SUB003h ;
01055 06CD CD 76 10 CALLL1076 ;v
01056 06D0 CD 81 14 CALLL1481 ;
01057 06D3 30 BF JRNC,L0694 ;0
01058 06D5 1E FF LDE,0FFh ;
01059 06D7 18 BB JRL0694 ;
01060 06D9 ED 5B A6 70 L06D9: LDDE,(070A6h) ;[p
01061 06DD E1 POPHL ;
01062 06DE C1 POPBC ;
01063 06DF 3A 18 70 LDA,(07018h) ;:p
01064 06E2 A8 XORB ;
01065 06E3 0F RRCA ;
01066 06E4 38 14 JRC,L06FA ;8
01067 06E6 EB EXDE,HL ;
01068 06E7 CD 84 07 CALLL0784 ;
01069 06EA EB EXDE,HL ;
01070 06EB 38 0D JRC,L06FA ;8
01071 06ED E5 PUSHHL ;
01072 06EE CD 9E 11 CALLL119E ;
01073 06F1 E1 POPHL ;
01074 06F2 CD 84 07 CALLL0784 ;
01075 06F5 3F CCF ;?
01076 06F6 D0 RETNC ;
01077 06F7 EB EXDE,HL ;
01078 06F8 B7 ORA ;
01079 06F9 C9 RET ;
01080 06FA CD 9E 11 L06FA: CALLL119E ;
01081 06FD B7 ORA ;
01082 06FE C9 RET ;
01083 06FF 0D DECC ;
01084 0700 00 NOP ;
01085 0701 16 00 LDD,000h ;
01086 0703 1E 00 LDE,000h ;
01087 0705 23 INCHL ;#
01088 0706 00 NOP ;
01089 0707 CF L0707: RST8H ;
01090 0708 3A 1A 70 LDA,(0701Ah) ;:p
01091 070B E6 03 AND003h ;
01092 070D 46 LDB,(HL) ;F
01093 070E CB 18 RRB ;
01094 0710 CB 17 RLA ;
01095 0712 87 ADDA,A ;
01096 0713 87 ADDA,A ;
01097 0714 87 ADDA,A ;
01098 0715 4F LDC,A ;O
01099 0716 06 00 LDB,000h ;
01100 0718 3E 01 LDA,001h ;>
01101 071A CB 6E BIT5,(HL) ;n
01102 071C 28 09 JRZ,L0727 ;(
01103 071E 3A A6 70 LDA,(070A6h) ;:p
01104 0721 1F RRA ;
01105 0722 1F RRA ;
01106 0723 1F RRA ;
01107 0724 E6 03 AND003h ;
01108 0726 3C INCA ;<
01109 0727 21 B7 09 L0727: LDHL,009B7h ;!
01110 072A 09 ADDHL,BC ;
01111 072B CD 33 07 CALLL0733 ;3
01112 072E C6 03 ADDA,003h ;
01113 0730 21 25 1D LDHL,01D25h ;!%
01114 0733 01 1B 01 L0733: LDBC,0011Bh ;
01115 0736 D5 PUSHDE ;
01116 0737 F5 PUSHAF ;
01117 0738 CD 59 0E CALLL0E59 ;Y
01118 073B F1 POPAF ;
01119 073C D1 POPDE ;
01120 073D B7 ORA ;
01121 073E C9 RET ;
01122 073F CB 78 L073F: BIT7,B ;x
01123 0741 37 SCF ;7
01124 0742 C8 RETZ ;
01125 0743 FE 04 CP004h ;
01126 0745 D0 RETNC ;
01127 0746 E6 03 AND003h ;
01128 0748 C8 RETZ ;
01129 0749 3D DECA ;=
01130 074A 47 LDB,A ;G
01131 074B 21 1A 70 LDHL,0701Ah ;!p
01132 074E 7E LDA,(HL) ;~
01133 074F E6 FC AND0FCh ;
01134 0751 B0 ORB ;
01135 0752 CB D7 SET2,A ;
01136 0754 77 LD(HL),A ;w
01137 0755 C9 RET ;
01138 0756 CD 07 07 L0756: CALLL0707 ;
01139 0759 CD 29 06 L0759: CALLL0629 ;)
01140 075C D5 PUSHDE ;
01141 075D 21 1A 70 LDHL,0701Ah ;!p
01142 0760 CB 56 BIT2,(HL) ;V
01143 0762 CB 96 RES2,(HL) ;
01144 0764 C4 07 07 CALLNZ,L0707 ;
01145 0767 CD AC 08 CALLL08AC ;
01146 076A D1 POPDE ;
01147 076B D0 RETNC ;
01148 076C 3A 3C 70 LDA,(0703Ch) ;:<p
01149 076F 87 ADDA,A ;
01150 0770 30 E7 JRNC,L0759 ;0
01151 0772 CD 38 06 CALLL0638 ;8
01152 0775 CD 40 03 CALLL0340 ;@
01153 0778 CD 46 00 CALLL0046 ;F
01154 077B F3 L077B: DI ;
01155 077C 3A 34 70 LDA,(07034h) ;:4p
01156 077F 32 33 70 LD(07033h),A ;23p
01157 0782 FB EI ;
01158 0783 C9 RET ;
01159 0784 7D L0784: LDA,L ;}
01160 0785 BB CPE ;
01161 0786 C0 RETNZ ;
01162 0787 7C LDA,H ;|
01163 0788 BA CPD ;
01164 0789 C9 RET ;
01165 078A 0C L078A: INCC ;
01166 078B 0D DECC ;
01167 078C 37 SCF ;7
01168 078D C8 RETZ ;
01169 078E 2B DECHL ;+
01170 078F 36 00 LD(HL),000h ;6
01171 0791 04 INCB ;
01172 0792 E5 PUSHHL ;
01173 0793 CD AC 14 CALLL14AC ;
01174 0796 F5 PUSHAF ;
01175 0797 C5 PUSHBC ;
01176 0798 CD FF 10 CALLL10FF ;
01177 079B C1 POPBC ;
01178 079C F1 POPAF ;
01179 079D B7 ORA ;
01180 079E 28 02 JRZ,L07A2 ;(
01181 07A0 3E 20 LDA,020h ;>
01182 07A2 2A A8 70 L07A2: LDHL,(070A8h) ;*p
01183 07A5 D7 RST10H ;
01184 07A6 E1 POPHL ;
01185 07A7 0D DECC ;
01186 07A8 C9 RET ;
01187 07A9 D5 PUSHDE ;
01188 07AA 0E 00 LDC,000h ;
01189 07AC CD 92 09 CALLL0992 ;
01190 07AF C5 L07AF: PUSHBC ;
01191 07B0 E5 PUSHHL ;
01192 07B1 CD 45 08 L07B1: CALLL0845 ;E
01193 07B4 30 04 JRNC,L07BA ;0
01194 07B6 E1 POPHL ;
01195 07B7 C1 POPBC ;
01196 07B8 D1 POPDE ;
01197 07B9 C9 RET ;
01198 07BA FE 0D L07BA: CP00Dh ;
01199 07BC 28 4A JRZ,L0808 ;(J
01200 07BE FE 20 CP020h ;
01201 07C0 30 34 JRNC,L07F6 ;04
01202 07C2 CD FF 04 CALLL04FF ;
01203 07C5 20 2F JRNZ,L07F6 ; /
01204 07C7 21 1F 08 LDHL,0081Fh ;!
01205 07CA 01 08 00 LDBC,00008h ;
01206 07CD ED B1 CPIR ;
01207 07CF 28 3A JRZ,L080B ;(:
01208 07D1 FE 18 CP018h ;
01209 07D3 28 18 JRZ,L07ED ;(
01210 07D5 FE 08 CP008h ;
01211 07D7 28 0D JRZ,L07E6 ;(
01212 07D9 FE 07 CP007h ;
01213 07DB 28 04 JRZ,L07E1 ;(
01214 07DD FE 19 CP019h ;
01215 07DF 20 D0 JRNZ,L07B1 ;
01216 07E1 CD 88 10 L07E1: CALLL1088 ;
01217 07E4 18 CB JRL07B1 ;
01218 07E6 E1 L07E6: POPHL ;
01219 07E7 C1 POPBC ;
01220 07E8 CD 8A 07 CALLL078A ;
01221 07EB 18 C2 JRL07AF ;
01222 07ED E1 L07ED: POPHL ;
01223 07EE C1 POPBC ;
01224 07EF CD 8A 07 L07EF: CALLL078A ;
01225 07F2 20 FB JRNZ,L07EF ;
01226 07F4 18 B9 JRL07AF ;
01227 07F6 CD 88 10 L07F6: CALLL1088 ;
01228 07F9 E1 POPHL ;
01229 07FA C1 POPBC ;
01230 07FB 77 LD(HL),A ;w
01231 07FC 23 INCHL ;#
01232 07FD 0C INCC ;
01233 07FE 05 DECB ;
01234 07FF 20 AE JRNZ,L07AF ;
01235 0801 CD 40 03 CALLL0340 ;@
01236 0804 D1 POPDE ;
01237 0805 CD 43 00 CALLL0043 ;C
01238 0808 CD 88 10 L0808: CALLL1088 ;
01239 080B CD 40 03 L080B: CALLL0340 ;@
01240 080E 06 00 LDB,000h ;
01241 0810 CD FF 04 CALLL04FF ;
01242 0813 E1 POPHL ;
01243 0814 C1 POPBC ;
01244 0815 77 LD(HL),A ;w
01245 0816 23 INCHL ;#
01246 0817 0C INCC ;
01247 0818 05 DECB ;
01248 0819 B7 ORA ;
01249 081A 32 39 70 LD(07039h),A ;29p
01250 081D D1 POPDE ;
01251 081E C9 RET ;
01252 081F 1E 1F LDE,01Fh ;
01253 0821 1C INCE ;
01254 0822 1D DECE ;
01255 0823 1B DECDE ;
01256 0824 0A LDA,(BC) ;
01257 0825 17 RLA ;
01258 0826 0B DECBC ;
01259 0827 D5 PUSHDE ;
01260 0828 C5 PUSHBC ;
01261 0829 E5 PUSHHL ;
01262 082A 57 LDD,A ;W
01263 082B CD 92 09 CALLL0992 ;
01264 082E CD 45 08 CALLL0845 ;E
01265 0831 38 0C JRC,L083F ;8
01266 0833 CD 40 03 CALLL0340 ;@
01267 0836 7A LDA,D ;z
01268 0837 B7 ORA ;
01269 0838 7B LDA,E ;{
01270 0839 28 04 JRZ,L083F ;(
01271 083B B7 ORA ;
01272 083C C4 85 10 CALLNZ,L1085 ;
01273 083F E1 L083F: POPHL ;
01274 0840 50 LDD,B ;P
01275 0841 C1 POPBC ;
01276 0842 42 LDB,D ;B
01277 0843 D1 POPDE ;
01278 0844 C9 RET ;
01279 0845 3A 1A 70 L0845: LDA,(0701Ah) ;:p
01280 0848 CB 67 BIT4,A ;g
01281 084A CC 7B 07 CALLZ,L077B ;{
01282 084D 21 3C 70 LDHL,0703Ch ;!<p
01283 0850 CB EE SET5,(HL) ;
01284 0852 CD 4E 06 CALLL064E ;N
01285 0855 CD 56 07 CALLL0756 ;V
01286 0858 D8 RETC ;
01287 0859 5F LDE,A ;_
01288 085A CD 38 06 CALLL0638 ;8
01289 085D 7B LDA,E ;{
01290 085E B7 ORA ;
01291 085F C9 RET ;
01292 0860 AF L0860: XORA ;
01293 0861 54 LDD,H ;T
01294 0862 5D LDE,L ;]
01295 0863 13 INCDE ;
01296 0864 77 LD(HL),A ;w
01297 0865 0B DECBC ;
01298 0866 ED B0 LDIR ;
01299 0868 C9 RET ;
01300 0869 CD 3F 07 L0869: CALLL073F ;?
01301 086C D0 RETNC ;
01302 086D C5 PUSHBC ;
01303 086E F5 PUSHAF ;
01304 086F 3A 35 70 LDA,(07035h) ;:5p
01305 0872 4F LDC,A ;O
01306 0873 2A 31 70 LDHL,(07031h) ;*1p
01307 0876 3A 33 70 LDA,(07033h) ;:3p
01308 0879 5F LDE,A ;_
01309 087A 16 00 LDD,000h ;
01310 087C 19 ADDHL,DE ;
01311 087D F1 POPAF ;
01312 087E 77 LD(HL),A ;w
01313 087F CD A3 08 CALLL08A3 ;
01314 0882 28 12 JRZ,L0896 ;(
01315 0884 7E LDA,(HL) ;~
01316 0885 FE 20 CP020h ;
01317 0887 30 11 JRNC,L089A ;0
01318 0889 2A 31 70 LDHL,(07031h) ;*1p
01319 088C 19 ADDHL,DE ;
01320 088D 70 LD(HL),B ;p
01321 088E CD A3 08 CALLL08A3 ;
01322 0891 37 SCF ;7
01323 0892 3F CCF ;?
01324 0893 20 05 JRNZ,L089A ;
01325 0895 1D DECE ;
01326 0896 1D L0896: DECE ;
01327 0897 3E 84 LDA,084h ;>
01328 0899 37 SCF ;7
01329 089A F5 L089A: PUSHAF ;
01330 089B 79 LDA,C ;y
01331 089C A3 ANDE ;
01332 089D 32 33 70 LD(07033h),A ;23p
01333 08A0 F1 POPAF ;
01334 08A1 C1 POPBC ;
01335 08A2 C9 RET ;
01336 08A3 1C L08A3: INCE ;
01337 08A4 79 LDA,C ;y
01338 08A5 A3 ANDE ;
01339 08A6 5F LDE,A ;_
01340 08A7 3A 34 70 LDA,(07034h) ;:4p
01341 08AA BB CPE ;
01342 08AB C9 RET ;
01343 08AC 06 00 L08AC: LDB,000h ;
01344 08AE 3A 35 70 LDA,(07035h) ;:5p
01345 08B1 4F LDC,A ;O
01346 08B2 21 34 70 LDHL,07034h ;!4p
01347 08B5 7E LDA,(HL) ;~
01348 08B6 2B DECHL ;+
01349 08B7 BE CP(HL) ;
01350 08B8 CC 44 00 CALLZ,L0044 ;D
01351 08BB 5F LDE,A ;_
01352 08BC 16 00 LDD,000h ;
01353 08BE 2A 31 70 LDHL,(07031h) ;*1p
01354 08C1 19 ADDHL,DE ;
01355 08C2 7E LDA,(HL) ;~
01356 08C3 B7 ORA ;
01357 08C4 F5 PUSHAF ;
01358 08C5 1C INCE ;
01359 08C6 FE 20 CP020h ;
01360 08C8 30 09 JRNC,L08D3 ;0
01361 08CA 79 LDA,C ;y
01362 08CB A3 ANDE ;
01363 08CC 5F LDE,A ;_
01364 08CD 2A 31 70 LDHL,(07031h) ;*1p
01365 08D0 19 ADDHL,DE ;
01366 08D1 46 LDB,(HL) ;F
01367 08D2 1C INCE ;
01368 08D3 79 L08D3: LDA,C ;y
01369 08D4 A3 ANDE ;
01370 08D5 32 34 70 LD(07034h),A ;24p
01371 08D8 F1 POPAF ;
01372 08D9 C9 RET ;
01373 08DA FE 07 L08DA: CP007h ;
01374 08DC D8 RETC ;
01375 08DD 48 LDC,B ;H
01376 08DE CB 39 SRLC ;9
01377 08E0 38 29 JRC,L090B ;8)
01378 08E2 CB 39 SRLC ;9
01379 08E4 38 4D JRC,L0933 ;8M
01380 08E6 06 00 LDB,000h ;
01381 08E8 28 01 JRZ,L08EB ;(
01382 08EA 04 INCB ;
01383 08EB 4F L08EB: LDC,A ;O
01384 08EC 3A 1A 70 LDA,(0701Ah) ;:p
01385 08EF E6 03 AND003h ;
01386 08F1 87 ADDA,A ;
01387 08F2 80 ADDA,B ;
01388 08F3 5F LDE,A ;_
01389 08F4 79 LDA,C ;y
01390 08F5 16 00 L08F5: LDD,000h ;
01391 08F7 2A 1B 70 LDHL,(0701Bh) ;*p
01392 08FA 19 ADDHL,DE ;
01393 08FB 19 ADDHL,DE ;
01394 08FC 5E LDE,(HL) ;^
01395 08FD 23 INCHL ;#
01396 08FE 66 LDH,(HL) ;f
01397 08FF 6B LDL,E ;k
01398 0900 D6 07 SUB007h ;
01399 0902 5F LDE,A ;_
01400 0903 7A LDA,D ;z
01401 0904 D8 RETC ;
01402 0905 19 ADDHL,DE ;
01403 0906 7E LDA,(HL) ;~
01404 0907 B7 ORA ;
01405 0908 C0 RETNZ ;
01406 0909 37 SCF ;7
01407 090A C9 RET ;
01408 090B 1E 00 L090B: LDE,000h ;
01409 090D CD F5 08 CALLL08F5 ;
01410 0910 D8 RETC ;
01411 0911 CD 85 00 CALLL0085 ;
01412 0914 CB 88 RES1,B ;
01413 0916 4F LDC,A ;O
01414 0917 21 28 09 LDHL,00928h ;!(
01415 091A 7E LDA,(HL) ;~
01416 091B B9 L091B: CPC ;
01417 091C 23 INCHL ;#
01418 091D 7E LDA,(HL) ;~
01419 091E 23 INCHL ;#
01420 091F C8 RETZ ;
01421 0920 7E LDA,(HL) ;~
01422 0921 B7 ORA ;
01423 0922 20 F7 JRNZ,L091B ;
01424 0924 79 LDA,C ;y
01425 0925 E6 BF AND0BFh ;
01426 0927 C9 RET ;
01427 0928 40 LDB,B ;@
01428 0929 1E 3A LDE,03Ah ;:
01429 092B 1C INCE ;
01430 092C 3B DECSP ;;
01431 092D 1D DECE ;
01432 092E 2F CPL ;/
01433 092F 1F RRA ;
01434 0930 5C LDE,H ;\
01435 0931 08 EXAF,AF’ ;
01436 0932 00 NOP ;
01437 0933 1E 00 L0933: LDE,000h ;
01438 0935 CD F5 08 CALLL08F5 ;
01439 0938 D8 RETC ;
01440 0939 CB 88 RES1,B ;
01441 093B CB F8 SET7,B ;
01442 093D D6 30 SUB030h ;0
01443 093F D8 RETC ;
01444 0940 FE 0A CP00Ah ;
01445 0942 3F CCF ;?
01446 0943 D0 RETNC ;
01447 0944 CB C8 SET1,B ;
01448 0946 CB B8 RES7,B ;
01449 0948 FE 31 CP031h ;1
01450 094A D8 RETC ;
01451 094B FE 4B CP04Bh ;K
01452 094D 3F CCF ;?
01453 094E D8 RETC ;
01454 094F D6 31 SUB031h ;1
01455 0951 5F LDE,A ;_
01456 0952 3A DC 70 LDA,(070DCh) ;:p
01457 0955 E6 1F AND01Fh ;
01458 0957 37 SCF ;7
01459 0958 C8 RETZ ;
01460 0959 3D DECA ;=
01461 095A BB CPE ;
01462 095B D8 RETC ;
01463 095C 2A DD 70 LDHL,(070DDh) ;*p
01464 095F 19 ADDHL,DE ;
01465 0960 19 ADDHL,DE ;
01466 0961 5E LDE,(HL) ;^
01467 0962 23 INCHL ;#
01468 0963 56 LDD,(HL) ;V
01469 0964 EB EXDE,HL ;
01470 0965 C9 RET ;
01471 0966 01 36 06 L0966: LDBC,00636h ;6
01472 0969 ED 78 L0969: INA,(C) ;x
01473 096B 20 07 JRNZ,L0974 ;
01474 096D 0D DECC ;
01475 096E 10 F9 DJNZL0969 ;
01476 0970 ED 78 INA,(C) ;x
01477 0972 E6 C0 AND0C0h ;
01478 0974 F5 L0974: PUSHAF ;
01479 0975 DB 30 INA,(030h) ;0
01480 0977 E6 0F AND00Fh ;
01481 0979 47 LDB,A ;G
01482 097A F1 POPAF ;
01483 097B C5 PUSHBC ;
01484 097C 06 07 LDB,007h ;
01485 097E 87 L097E: ADDA,A ;
01486 097F 38 02 JRC,L0983 ;8
01487 0981 10 FB DJNZL097E ;
01488 0983 79 L0983: LDA,C ;y
01489 0984 D6 30 SUB030h ;0
01490 0986 87 ADDA,A ;
01491 0987 87 ADDA,A ;
01492 0988 87 ADDA,A ;
01493 0989 80 ADDA,B ;
01494 098A 3C INCA ;<
01495 098B C1 POPBC ;
01496 098C FE 07 CP007h ;
01497 098E D0 RETNC ;
01498 098F 3E 00 LDA,000h ;>
01499 0991 C9 RET ;
01500 0992 E5 L0992: PUSHHL ;
01501 0993 21 3C 70 LDHL,0703Ch ;!<p
01502 0996 CB BE RES7,(HL) ;
01503 0998 2A 36 70 LDHL,(07036h) ;*6p
01504 099B 7C LDA,H ;|
01505 099C B5 ORL ;
01506 099D 28 06 JRZ,L09A5 ;(
01507 099F 3A 38 70 LDA,(07038h) ;:8p
01508 09A2 CD 19 03 CALLL0319 ;
01509 09A5 E1 L09A5: POPHL ;
01510 09A6 C9 RET ;
01511 09A7 00 NOP ;
01512 09A8 03 INCBC ;
01513 09A9 01 02 07 LDBC,00702h ;
01514 09AC 00 NOP ;
01515 09AD 08 EXAF,AF’ ;
01516 09AE 00 NOP ;
01517 09AF 05 DECB ;
01518 09B0 04 INCB ;
01519 09B1 00 NOP ;
01520 09B2 00 NOP ;
01521 09B3 06 00 LDB,000h ;
01522 09B5 00 NOP ;
01523 09B6 00 NOP ;
01524 09B7 FF RST38H ;
01525 09B8 BF CPA ;
01526 09B9 BF CPA ;
01527 09BA BF CPA ;
01528 09BB BF CPA ;
01529 09BC BF CPA ;
01530 09BD 83 ADDA,E ;
01531 09BE FF RST38H ;
01532 09BF FF RST38H ;
01533 09C0 CF RST8H ;
01534 09C1 EF RST28H ;
01535 09C2 EF RST28H ;
01536 09C3 EF RST28H ;
01537 09C4 EF RST28H ;
01538 09C5 EF RST28H ;
01539 09C6 FF RST38H ;
01540 09C7 FF RST38H ;
01541 09C8 C7 RST0H ;
01542 09C9 BB CPE ;
01543 09CA BF CPA ;
01544 09CB BF CPA ;
01545 09CC BB CPE ;
01546 09CD C7 RST0H ;
01547 09CE FF RST38H ;
01548 09CF FF RST38H ;
01549 09D0 FF RST38H ;
01550 09D1 FF RST38H ;
01551 09D2 C3 BF BF JPLBFBF ;
01552 09D5 C3 FF FF JPLFFFF ;
01553 09D8 C7 RST0H ;
01554 09D9 BB CPE ;
01555 09DA BF CPA ;
01556 09DB A3 ANDE ;
01557 09DC BB CPE ;
01558 09DD C3 FF FF JPLFFFF ;
01559 09E0 FF RST38H ;
01560 09E1 C3 BB 83 JPL83BB ;
01561 09E4 FB EI ;
01562 09E5 87 ADDA,A ;
01563 09E6 FF RST38H ;
01564 09E7 F3 DI ;
01565 09E8 09 ADDHL,BC ;
01566 09E9 25 DECH ;%
01567 09EA 0A LDA,(BC) ;
01568 09EB 57 LDD,A ;W
01569 09EC 0A LDA,(BC) ;
01570 09ED 89 ADCA,C ;
01571 09EE 0A LDA,(BC) ;
01572 09EF BB CPE ;
01573 09F0 0A LDA,(BC) ;
01574 09F1 ED 0A DB 0EDh,00Ah ;
01575 09F3 20 0D JRNZ,L0A02 ;
01576 09F5 31 32 33 LDSP,03332h ;123
01577 09F8 34 INC(HL) ;4
01578 09F9 35 DEC(HL) ;5
01579 09FA 36 37 LD(HL),037h ;67
01580 09FC 38 71 JRC,L0A6F ;8q
01581 09FE 77 LD(HL),A ;w
01582 09FF 65 LDH,L ;e
01583 0A00 72 LD(HL),D ;r
01584 0A01 74 LD(HL),H ;t
01585 0A02 79 L0A02: LDA,C ;y
01586 0A03 75 LD(HL),L ;u
01587 0A04 69 LDL,C ;i
01588 0A05 61 LDH,C ;a
01589 0A06 73 LD(HL),E ;s
01590 0A07 64 LDH,H ;d
01591 0A08 66 LDH,(HL) ;f
01592 0A09 67 LDH,A ;g
01593 0A0A 68 LDL,B ;h
01594 0A0B 6A LDL,D ;j
01595 0A0C 6B LDL,E ;k
01596 0A0D 7A LDA,D ;z
01597 0A0E 78 LDA,B ;x
01598 0A0F 63 LDH,E ;c
01599 0A10 76 HALT ;v
01600 0A11 62 LDH,D ;b
01601 0A12 6E LDL,(HL) ;n
01602 0A13 6D LDL,L ;m
01603 0A14 2C INCL ;,
01604 0A15 39 ADDHL,SP ;9
01605 0A16 30 2D JRNC,L0A45 ;0-
01606 0A18 5E LDE,(HL) ;^
01607 0A19 2E 2F LDL,02Fh ;./
01608 0A1B 5F LDE,A ;_
01609 0A1C 5C LDE,H ;\
01610 0A1D 6F LDL,A ;o
01611 0A1E 70 LD(HL),B ;p
01612 0A1F 40 LDB,B ;@
01613 0A20 5B LDE,E ;[
01614 0A21 6C LDL,H ;l
01615 0A22 3B DECSP ;;
01616 0A23 3A 5D 20 LDA,(0205Dh) ;:]
01617 0A26 0D DECC ;
01618 0A27 21 22 23 LDHL,02322h ;!"#
01619 0A2A 24 INCH ;$
01620 0A2B 25 DECH ;%
01621 0A2C 26 27 LDH,027h ;&'
01622 0A2E 28 51 JRZ,L0A81 ;(Q
01623 0A30 57 LDD,A ;W
01624 0A31 45 LDB,L ;E
01625 0A32 52 LDD,D ;R
01626 0A33 54 LDD,H ;T
01627 0A34 59 LDE,C ;Y
01628 0A35 55 LDD,L ;U
01629 0A36 49 LDC,C ;I
01630 0A37 41 LDB,C ;A
01631 0A38 53 LDD,E ;S
01632 0A39 44 LDB,H ;D
01633 0A3A 46 LDB,(HL) ;F
01634 0A3B 47 LDB,A ;G
01635 0A3C 48 LDC,B ;H
01636 0A3D 4A LDC,D ;J
01637 0A3E 4B LDC,E ;K
01638 0A3F 5A LDE,D ;Z
01639 0A40 58 LDE,B ;X
01640 0A41 43 LDB,E ;C
01641 0A42 56 LDD,(HL) ;V
01642 0A43 42 LDB,D ;B
01643 0A44 4E LDC,(HL) ;N
01644 0A45 4D L0A45: LDC,L ;M
01645 0A46 3C INCA ;<
01646 0A47 29 ADDHL,HL ;)
01647 0A48 00 NOP ;
01648 0A49 3D DECA ;=
01649 0A4A 7E LDA,(HL) ;~
01650 0A4B 3E 3F LDA,03Fh ;>?
01651 0A4D 7F LDA,A ;
01652 0A4E 7C LDA,H ;|
01653 0A4F 4F LDC,A ;O
01654 0A50 50 LDD,B ;P
01655 0A51 60 LDH,B ;`
01656 0A52 7B L0A52: LDA,E ;{
01657 0A53 4C LDC,H ;L
01658 0A54 2B DECHL ;+
01659 0A55 2A 7D 20 LDHL,(0207Dh) ;*}
01660 0A58 0D DECC ;
01661 0A59 31 32 33 LDSP,03332h ;123
01662 0A5C 34 INC(HL) ;4
01663 0A5D 35 DEC(HL) ;5
01664 0A5E 36 37 LD(HL),037h ;67
01665 0A60 38 51 JRC,L0AB3 ;8Q
01666 0A62 57 LDD,A ;W
01667 0A63 45 LDB,L ;E
01668 0A64 52 LDD,D ;R
01669 0A65 54 LDD,H ;T
01670 0A66 59 LDE,C ;Y
01671 0A67 55 LDD,L ;U
01672 0A68 49 LDC,C ;I
01673 0A69 41 LDB,C ;A
01674 0A6A 53 LDD,E ;S
01675 0A6B 44 LDB,H ;D
01676 0A6C 46 LDB,(HL) ;F
01677 0A6D 47 LDB,A ;G
01678 0A6E 48 LDC,B ;H
01679 0A6F 4A L0A6F: LDC,D ;J
01680 0A70 4B LDC,E ;K
01681 0A71 5A LDE,D ;Z
01682 0A72 58 LDE,B ;X
01683 0A73 43 LDB,E ;C
01684 0A74 56 LDD,(HL) ;V
01685 0A75 42 LDB,D ;B
01686 0A76 4E LDC,(HL) ;N
01687 0A77 4D LDC,L ;M
01688 0A78 2C INCL ;,
01689 0A79 39 ADDHL,SP ;9
01690 0A7A 30 2D JRNC,L0AA9 ;0-
01691 0A7C 5E LDE,(HL) ;^
01692 0A7D 2E 2F LDL,02Fh ;./
01693 0A7F 5F LDE,A ;_
01694 0A80 5C LDE,H ;\
01695 0A81 4F L0A81: LDC,A ;O
01696 0A82 50 LDD,B ;P
01697 0A83 40 LDB,B ;@
01698 0A84 5B LDE,E ;[
01699 0A85 4C LDC,H ;L
01700 0A86 3B DECSP ;;
01701 0A87 3A 5D 20 LDA,(0205Dh) ;:]
01702 0A8A 0D DECC ;
01703 0A8B 21 22 23 LDHL,02322h ;!"#
01704 0A8E 24 INCH ;$
01705 0A8F 25 DECH ;%
01706 0A90 26 27 LDH,027h ;&'
01707 0A92 28 71 JRZ,L0B05 ;(q
01708 0A94 77 LD(HL),A ;w
01709 0A95 65 LDH,L ;e
01710 0A96 72 LD(HL),D ;r
01711 0A97 74 LD(HL),H ;t
01712 0A98 79 LDA,C ;y
01713 0A99 75 LD(HL),L ;u
01714 0A9A 69 LDL,C ;i
01715 0A9B 61 LDH,C ;a
01716 0A9C 73 LD(HL),E ;s
01717 0A9D 64 LDH,H ;d
01718 0A9E 66 LDH,(HL) ;f
01719 0A9F 67 LDH,A ;g
01720 0AA0 68 LDL,B ;h
01721 0AA1 6A LDL,D ;j
01722 0AA2 6B LDL,E ;k
01723 0AA3 7A LDA,D ;z
01724 0AA4 78 LDA,B ;x
01725 0AA5 63 LDH,E ;c
01726 0AA6 76 HALT ;v
01727 0AA7 62 LDH,D ;b
01728 0AA8 6E LDL,(HL) ;n
01729 0AA9 6D L0AA9: LDL,L ;m
01730 0AAA 3C INCA ;<
01731 0AAB 29 ADDHL,HL ;)
01732 0AAC 00 NOP ;
01733 0AAD 3D DECA ;=
01734 0AAE 7E LDA,(HL) ;~
01735 0AAF 3E 3F LDA,03Fh ;>?
01736 0AB1 7F LDA,A ;
01737 0AB2 7C LDA,H ;|
01738 0AB3 6F L0AB3: LDL,A ;o
01739 0AB4 70 LD(HL),B ;p
01740 0AB5 60 LDH,B ;`
01741 0AB6 7B LDA,E ;{
01742 0AB7 6C LDL,H ;l
01743 0AB8 2B DECHL ;+
01744 0AB9 2A 7D 20 LDHL,(0207Dh) ;*}
01745 0ABC 0D DECC ;
01746 0ABD 31 32 33 LDSP,03332h ;123
01747 0AC0 34 INC(HL) ;4
01748 0AC1 35 DEC(HL) ;5
01749 0AC2 36 37 LD(HL),037h ;67
01750 0AC4 38 8C JRC,L0A52 ;8
01751 0AC6 86 ADDA,(HL) ;
01752 0AC7 8E ADCA,(HL) ;
01753 0AC8 87 ADDA,A ;
01754 0AC9 90 SUBB ;
01755 0ACA 91 SUBC ;
01756 0ACB 92 SUBD ;
01757 0ACC 93 SUBE ;
01758 0ACD 8A ADCA,D ;
01759 0ACE 8B ADCA,E ;
01760 0ACF 89 ADCA,C ;
01761 0AD0 88 ADCA,B ;
01762 0AD1 94 SUBH ;
01763 0AD2 95 SUBL ;
01764 0AD3 96 SUB(HL) ;
01765 0AD4 97 SUBA ;
01766 0AD5 8D ADCA,L ;
01767 0AD6 85 ADDA,L ;
01768 0AD7 8F ADCA,A ;
01769 0AD8 98 SBCA,B ;
01770 0AD9 9A SBCA,D ;
01771 0ADA 9B SBCA,E ;
01772 0ADB 99 SBCA,C ;
01773 0ADC 2C INCL ;,
01774 0ADD 39 ADDHL,SP ;9
01775 0ADE 30 2D JRNC,L0B0D ;0-
01776 0AE0 5E LDE,(HL) ;^
01777 0AE1 2E 81 LDL,081h ;.
01778 0AE3 84 ADDA,H ;
01779 0AE4 5C L0AE4: LDE,H ;\
01780 0AE5 82 ADDA,D ;
01781 0AE6 83 ADDA,E ;
01782 0AE7 9C SBCA,H ;
01783 0AE8 9E SBCA,(HL) ;
01784 0AE9 80 ADDA,B ;
01785 0AEA 3B DECSP ;;
01786 0AEB 9D SBCA,L ;
01787 0AEC 9F SBCA,A ;
01788 0AED 20 0D JRNZ,L0AFC ;
01789 0AEF 21 22 23 LDHL,02322h ;!"#
01790 0AF2 24 INCH ;$
01791 0AF3 25 DECH ;%
01792 0AF4 26 27 LDH,027h ;&'
01793 0AF6 28 EC JRZ,L0AE4 ;(
01794 0AF8 E6 EE AND0EEh ;
01795 0AFA E7 RST20H ;
01796 0AFB F0 RETP ;
01797 0AFC F1 L0AFC: POPAF ;
01798 0AFD F2 F3 EA JPP,LEAF3 ;
01799 0B00 EB EXDE,HL ;
01800 0B01 E9 JP(HL) ;
01801 0B02 E8 RETPE ;
01802 0B03 F4 F5 F6 CALLP,LF6F5 ;
01803 0B06 F7 RST30H ;
01804 0B07 ED E5 DB 0EDh,0E5h ;
01805 0B09 EF RST28H ;
01806 0B0A F8 RETM ;
01807 0B0B F9 LDSP,HL ;
01808 0B0C FA FB 3C JPM,L3CFB ;<
01809 0B0F 29 ADDHL,HL ;)
01810 0B10 00 NOP ;
01811 0B11 3D DECA ;=
01812 0B12 7E LDA,(HL) ;~
01813 0B13 3E E1 LDA,0E1h ;>
01814 0B15 E4 7C E2 CALLPO,LE27C ;|
01815 0B18 E3 EX(SP),HL ;
01816 0B19 FC FE E0 CALLM,LE0FE ;
01817 0B1C 2B DECHL ;+
01818 0B1D FD FF DB 0FDh,0FFh ;
01819 0B1F 3A B8 70 LDA,(070B8h) ;:p
01820 0B22 E6 60 AND060h ;`
01821 0B24 37 SCF ;7
01822 0B25 C0 RETNZ ;
01823 0B26 CF RST8H ;
01824 0B27 CB 6F BIT5,A ;o
01825 0B29 37 SCF ;7
01826 0B2A C0 RETNZ ;
01827 0B2B CD 7E 13 CALLL137E ;~
01828 0B2E 2A BD 70 LDHL,(070BDh) ;*p
01829 0B31 E5 PUSHHL ;
01830 0B32 21 00 18 LDHL,01800h ;!
01831 0B35 22 BD 70 LD(070BDh),HL ;"p
01832 0B38 22 C1 70 LD(070C1h),HL ;"p
01833 0B3B EB EXDE,HL ;
01834 0B3C E1 POPHL ;
01835 0B3D CD 81 0B CALLL0B81 ;
01836 0B40 21 18 70 LDHL,07018h ;!p
01837 0B43 CB DE SET3,(HL) ;
01838 0B45 CD 14 0C CALLL0C14 ;
01839 0B48 CF RST8H ;
01840 0B49 36 20 LD(HL),020h ;6
01841 0B4B 21 00 20 LDHL,02000h ;!
01842 0B4E 22 99 70 LD(07099h),HL ;"p
01843 0B51 26 00 LDH,000h ;&
01844 0B53 22 97 70 LD(07097h),HL ;"p
01845 0B56 26 18 LDH,018h ;&
01846 0B58 22 9D 70 LD(0709Dh),HL ;"p
01847 0B5B CD A3 0C CALLL0CA3 ;
01848 0B5E 01 00 18 LDBC,01800h ;
01849 0B61 CD FB 0D CALLL0DFB ;
01850 0B64 CD 89 0D CALLL0D89 ;
01851 0B67 21 00 20 LDHL,02000h ;!
01852 0B6A 11 00 28 LDDE,02800h ;(
01853 0B6D 01 00 08 LDBC,00800h ;
01854 0B70 C5 PUSHBC ;
01855 0B71 CD 75 0B CALLL0B75 ;u
01856 0B74 C1 POPBC ;
01857 0B75 DF L0B75: RST18H ;
01858 0B76 EB EXDE,HL ;
01859 0B77 D7 RST10H ;
01860 0B78 EB EXDE,HL ;
01861 0B79 13 INCDE ;
01862 0B7A 23 INCHL ;#
01863 0B7B 0B DECBC ;
01864 0B7C 78 LDA,B ;x
01865 0B7D B1 ORC ;
01866 0B7E 20 F5 JRNZ,L0B75 ;
01867 0B80 C9 RET ;
01868 0B81 01 00 08 L0B81: LDBC,00800h ;
01869 0B84 18 EF JRL0B75 ;
01870 0B86 ED 53 27 72 L0B86: LD(07227h),DE ;S'r
01871 0B8A 59 LDE,C ;Y
01872 0B8B AF XORA ;
01873 0B8C 57 LDD,A ;W
01874 0B8D E5 PUSHHL ;
01875 0B8E 2A 99 70 LDHL,(07099h) ;*p
01876 0B91 EB EXDE,HL ;
01877 0B92 29 ADDHL,HL ;)
01878 0B93 29 ADDHL,HL ;)
01879 0B94 29 ADDHL,HL ;)
01880 0B95 19 ADDHL,DE ;
01881 0B96 EB EXDE,HL ;
01882 0B97 E1 POPHL ;
01883 0B98 3E 08 LDA,008h ;>
01884 0B9A 32 26 72 LD(07226h),A ;2&r
01885 0B9D D5 L0B9D: PUSHDE ;
01886 0B9E C5 PUSHBC ;
01887 0B9F 3A 27 72 LDA,(07227h) ;:'r
01888 0BA2 4F LDC,A ;O
01889 0BA3 87 ADDA,A ;
01890 0BA4 87 ADDA,A ;
01891 0BA5 87 ADDA,A ;
01892 0BA6 91 SUBC ;
01893 0BA7 4F LDC,A ;O
01894 0BA8 06 00 LDB,000h ;
01895 0BAA 11 31 72 LDDE,07231h ;1r
01896 0BAD D5 PUSHDE ;
01897 0BAE ED B0 LDIR ;
01898 0BB0 D1 POPDE ;
01899 0BB1 C1 POPBC ;
01900 0BB2 0E 08 LDC,008h ;
01901 0BB4 E3 EX(SP),HL ;
01902 0BB5 EB EXDE,HL ;
01903 0BB6 C5 L0BB6: PUSHBC ;
01904 0BB7 D5 PUSHDE ;
01905 0BB8 ED 4B 26 72 LDBC,(07226h) ;K&r
01906 0BBC 11 29 72 LDDE,07229h ;)r
01907 0BBF CD EC 0B CALLL0BEC ;
01908 0BC2 79 LDA,C ;y
01909 0BC3 32 26 72 LD(07226h),A ;2&r
01910 0BC6 06 08 LDB,008h ;
01911 0BC8 E3 EX(SP),HL ;
01912 0BC9 3A 28 72 LDA,(07228h) ;:(r
01913 0BCC 4F LDC,A ;O
01914 0BCD 1A L0BCD: LDA,(DE) ;
01915 0BCE CB 71 BIT6,C ;q
01916 0BD0 28 02 JRZ,L0BD4 ;(
01917 0BD2 CB 3F SRLA ;?
01918 0BD4 CB 79 L0BD4: BIT7,C ;y
01919 0BD6 28 01 JRZ,L0BD9 ;(
01920 0BD8 2F CPL ;/
01921 0BD9 D7 L0BD9: RST10H ;
01922 0BDA 23 INCHL ;#
01923 0BDB 13 INCDE ;
01924 0BDC 10 EF DJNZL0BCD ;
01925 0BDE EB EXDE,HL ;
01926 0BDF E1 POPHL ;
01927 0BE0 C1 POPBC ;
01928 0BE1 05 DECB ;
01929 0BE2 28 06 JRZ,L0BEA ;(
01930 0BE4 0D DECC ;
01931 0BE5 20 CF JRNZ,L0BB6 ;
01932 0BE7 E1 POPHL ;
01933 0BE8 18 B3 JRL0B9D ;
01934 0BEA E1 L0BEA: POPHL ;
01935 0BEB C9 RET ;
01936 0BEC C5 L0BEC: PUSHBC ;
01937 0BED D5 PUSHDE ;
01938 0BEE 06 08 LDB,008h ;
01939 0BF0 AF XORA ;
01940 0BF1 12 L0BF1: LD(DE),A ;
01941 0BF2 13 INCDE ;
01942 0BF3 10 FC DJNZL0BF1 ;
01943 0BF5 D1 POPDE ;
01944 0BF6 C1 POPBC ;
01945 0BF7 E5 L0BF7: PUSHHL ;
01946 0BF8 C5 PUSHBC ;
01947 0BF9 D5 PUSHDE ;
01948 0BFA 06 07 LDB,007h ;
01949 0BFC CB 3E L0BFC: SRL(HL) ;>
01950 0BFE EB EXDE,HL ;
01951 0BFF CB 1E RR(HL) ;
01952 0C01 EB EXDE,HL ;
01953 0C02 23 INCHL ;#
01954 0C03 13 INCDE ;
01955 0C04 10 F6 DJNZL0BFC ;
01956 0C06 D1 POPDE ;
01957 0C07 C1 POPBC ;
01958 0C08 0D DECC ;
01959 0C09 28 03 JRZ,L0C0E ;(
01960 0C0B E1 POPHL ;
01961 0C0C 18 03 JRL0C11 ;
01962 0C0E F1 L0C0E: POPAF ;
01963 0C0F 0E 08 LDC,008h ;
01964 0C11 10 E4 L0C11: DJNZL0BF7 ;
01965 0C13 C9 RET ;
01966 0C14 F3 L0C14: DI ;
01967 0C15 CF RST8H ;
01968 0C16 EB EXDE,HL ;
01969 0C17 21 0D 15 LDHL,0150Dh ;!
01970 0C1A 01 1C 00 LDBC,0001Ch ;
01971 0C1D ED B0 LDIR ;
01972 0C1F 3A 18 70 LDA,(07018h) ;:p
01973 0C22 F5 PUSHAF ;
01974 0C23 CB 47 BIT0,A ;G
01975 0C25 C1 POPBC ;
01976 0C26 78 LDA,B ;x
01977 0C27 C8 RETZ ;
01978 0C28 F5 PUSHAF ;
01979 0C29 21 95 70 LDHL,07095h ;!p
01980 0C2C 06 04 LDB,004h ;
01981 0C2E 48 LDC,B ;H
01982 0C2F 23 L0C2F: INCHL ;#
01983 0C30 79 LDA,C ;y
01984 0C31 86 ADDA,(HL) ;
01985 0C32 77 LD(HL),A ;w
01986 0C33 23 INCHL ;#
01987 0C34 10 F9 DJNZL0C2F ;
01988 0C36 79 LDA,C ;y
01989 0C37 21 9A 70 LDHL,0709Ah ;!p
01990 0C3A 86 ADDA,(HL) ;
01991 0C3B 77 LD(HL),A ;w
01992 0C3C 79 LDA,C ;y
01993 0C3D 21 A9 70 LDHL,070A9h ;!p
01994 0C40 86 ADDA,(HL) ;
01995 0C41 77 LD(HL),A ;w
01996 0C42 F1 POPAF ;
01997 0C43 C9 RET ;
01998 0C44 CF RST8H ;
01999 0C45 CB 6F BIT5,A ;o
02000 0C47 C4 5E 0D CALLNZ,L0D5E ;^
02001 0C4A 3A 18 70 LDA,(07018h) ;:p
02002 0C4D CB 5F BIT3,A ;_
02003 0C4F 37 SCF ;7
02004 0C50 C0 RETNZ ;
02005 0C51 CD 7E 13 CALLL137E ;~
02006 0C54 CD 14 0C CALLL0C14 ;
02007 0C57 CF RST8H ;
02008 0C58 36 40 LD(HL),040h ;6@
02009 0C5A 18 47 JRL0CA3 ;G
02010 0C5C AF XORA ;
02011 0C5D CD 33 0E CALLL0E33 ;3
02012 0C60 AF XORA ;
02013 0C61 01 3E 02 LDBC,0023Eh ;>
02014 0C64 47 LDB,A ;G
02015 0C65 3A 18 70 LDA,(07018h) ;:p
02016 0C68 4F LDC,A ;O
02017 0C69 1F RRA ;
02018 0C6A 1F RRA ;
02019 0C6B E6 01 AND001h ;
02020 0C6D B8 CPB ;
02021 0C6E C8 RETZ ;
02022 0C6F 79 L0C6F: LDA,C ;y
02023 0C70 EE 06 XOR006h ;
02024 0C72 32 18 70 LD(07018h),A ;2p
02025 0C75 18 2C JRL0CA3 ;,
02026 0C77 47 LDB,A ;G
02027 0C78 3A 18 70 LDA,(07018h) ;:p
02028 0C7B 4F LDC,A ;O
02029 0C7C 1F RRA ;
02030 0C7D E6 01 AND001h ;
02031 0C7F B8 CPB ;
02032 0C80 20 ED JRNZ,L0C6F ;
02033 0C82 C9 RET ;
02034 0C83 21 9F 70 LDHL,0709Fh ;!p
02035 0C86 7E LDA,(HL) ;~
02036 0C87 E6 0F AND00Fh ;
02037 0C89 4F LDC,A ;O
02038 0C8A 78 LDA,B ;x
02039 0C8B 0F RRCA ;
02040 0C8C 0F RRCA ;
02041 0C8D 0F RRCA ;
02042 0C8E 0F RRCA ;
02043 0C8F B1 ORC ;
02044 0C90 77 LD(HL),A ;w
02045 0C91 CF RST8H ;
02046 0C92 CB 7E BIT7,(HL) ;~
02047 0C94 C8 RETZ ;
02048 0C95 18 0C JRL0CA3 ;
02049 0C97 21 9F 70 LDHL,0709Fh ;!p
02050 0C9A 7E LDA,(HL) ;~
02051 0C9B E6 F0 AND0F0h ;
02052 0C9D 4F LDC,A ;O
02053 0C9E 78 LDA,B ;x
02054 0C9F E6 0F AND00Fh ;
02055 0CA1 B1 ORC ;
02056 0CA2 77 LD(HL),A ;w
02057 0CA3 3A 18 70 L0CA3: LDA,(07018h) ;:p
02058 0CA6 CD 34 0D CALLL0D34 ;4
02059 0CA9 ED 53 26 72 LD(07226h),DE ;S&r
02060 0CAD 11 28 72 LDDE,07228h ;(r
02061 0CB0 23 INCHL ;#
02062 0CB1 23 INCHL ;#
02063 0CB2 7E LDA,(HL) ;~
02064 0CB3 0F RRCA ;
02065 0CB4 0F RRCA ;
02066 0CB5 E6 0F AND00Fh ;
02067 0CB7 12 LD(DE),A ;
02068 0CB8 13 INCDE ;
02069 0CB9 D5 PUSHDE ;
02070 0CBA 23 INCHL ;#
02071 0CBB 5E LDE,(HL) ;^
02072 0CBC 23 INCHL ;#
02073 0CBD 56 LDD,(HL) ;V
02074 0CBE EB EXDE,HL ;
02075 0CBF 29 ADDHL,HL ;)
02076 0CC0 29 ADDHL,HL ;)
02077 0CC1 7C LDA,H ;|
02078 0CC2 E1 POPHL ;
02079 0CC3 CB 68 BIT5,B ;h
02080 0CC5 28 02 JRZ,L0CC9 ;(
02081 0CC7 F6 7F OR07Fh ;
02082 0CC9 77 L0CC9: LD(HL),A ;w
02083 0CCA 23 INCHL ;#
02084 0CCB 13 INCDE ;
02085 0CCC 13 INCDE ;
02086 0CCD 1A LDA,(DE) ;
02087 0CCE 0F RRCA ;
02088 0CCF 0F RRCA ;
02089 0CD0 0F RRCA ;
02090 0CD1 E6 07 AND007h ;
02091 0CD3 CB 68 BIT5,B ;h
02092 0CD5 28 02 JRZ,L0CD9 ;(
02093 0CD7 F6 03 OR003h ;
02094 0CD9 77 L0CD9: LD(HL),A ;w
02095 0CDA 23 INCHL ;#
02096 0CDB 13 INCDE ;
02097 0CDC 1A LDA,(DE) ;
02098 0CDD 17 RLA ;
02099 0CDE 13 INCDE ;
02100 0CDF 1A LDA,(DE) ;
02101 0CE0 17 RLA ;
02102 0CE1 E6 7F AND07Fh ;
02103 0CE3 77 LD(HL),A ;w
02104 0CE4 23 INCHL ;#
02105 0CE5 13 INCDE ;
02106 0CE6 13 INCDE ;
02107 0CE7 1A LDA,(DE) ;
02108 0CE8 0F RRCA ;
02109 0CE9 0F RRCA ;
02110 0CEA 0F RRCA ;
02111 0CEB E6 07 AND007h ;
02112 0CED 77 LD(HL),A ;w
02113 0CEE 23 INCHL ;#
02114 0CEF 13 INCDE ;
02115 0CF0 1A LDA,(DE) ;
02116 0CF1 77 LD(HL),A ;w
02117 0CF2 21 2D 72 LDHL,0722Dh ;!-r
02118 0CF5 01 11 08 LDBC,00811h ;
02119 0CF8 F3 DI ;
02120 0CF9 ED AB L0CF9: OUTD ;
02121 0CFB 78 LDA,B ;x
02122 0CFC CB FF SET7,A ;
02123 0CFE ED 79 OUT(C),A ;y
02124 0D00 20 F7 JRNZ,L0CF9 ;
02125 0D02 FB EI ;
02126 0D03 C9 RET ;
02127 0D04 CF RST8H ;
02128 0D05 B7 ORA ;
02129 0D06 F8 RETM ;
02130 0D07 CB 6F BIT5,A ;o
02131 0D09 C4 5E 0D CALLNZ,L0D5E ;^
02132 0D0C CD 14 0C CALLL0C14 ;
02133 0D0F F5 PUSHAF ;
02134 0D10 CF RST8H ;
02135 0D11 36 80 LD(HL),080h ;6
02136 0D13 3E 28 LDA,028h ;>(
02137 0D15 32 A3 70 LD(070A3h),A ;2p
02138 0D18 32 A5 70 LD(070A5h),A ;2p
02139 0D1B F1 POPAF ;
02140 0D1C CB 5F BIT3,A ;_
02141 0D1E 28 06 JRZ,L0D26 ;(
02142 0D20 21 00 18 LDHL,01800h ;!
02143 0D23 22 99 70 LD(07099h),HL ;"p
02144 0D26 2A 99 70 L0D26: LDHL,(07099h) ;*p
02145 0D29 22 9D 70 LD(0709Dh),HL ;"p
02146 0D2C CD 93 13 CALLL1393 ;
02147 0D2F CD A3 0C L0D2F: CALLL0CA3 ;
02148 0D32 18 55 JRL0D89 ;U
02149 0D34 CB 4F L0D34: BIT1,A ;O
02150 0D36 CF RST8H ;
02151 0D37 28 02 JRZ,L0D3B ;(
02152 0D39 2E B8 LDL,0B8h ;.
02153 0D3B E5 L0D3B: PUSHHL ;
02154 0D3C 1E 1B LDE,01Bh ;
02155 0D3E AF XORA ;
02156 0D3F 57 LDD,A ;W
02157 0D40 19 ADDHL,DE ;
02158 0D41 4E LDC,(HL) ;N
02159 0D42 E1 POPHL ;
02160 0D43 46 LDB,(HL) ;F
02161 0D44 CB 68 BIT5,B ;h
02162 0D46 28 02 JRZ,L0D4A ;(
02163 0D48 CB CF SET1,A ;
02164 0D4A 5F L0D4A: LDE,A ;_
02165 0D4B 1C INCE ;
02166 0D4C 3E 38 LDA,038h ;>8
02167 0D4E CB 21 SLAC ;!
02168 0D50 17 RLA ;
02169 0D51 CB 21 SLAC ;!
02170 0D53 17 RLA ;
02171 0D54 4F LDC,A ;O
02172 0D55 78 LDA,B ;x
02173 0D56 0F RRCA ;
02174 0D57 0F RRCA ;
02175 0D58 0F RRCA ;
02176 0D59 E6 18 AND018h ;
02177 0D5B B1 ORC ;
02178 0D5C 57 LDD,A ;W
02179 0D5D C9 RET ;
02180 0D5E 3A 18 70 L0D5E: LDA,(07018h) ;:p
02181 0D61 0F RRCA ;
02182 0D62 21 00 28 LDHL,02800h ;!(
02183 0D65 38 03 JRC,L0D6A ;8
02184 0D67 21 00 30 LDHL,03000h ;!0
02185 0D6A E5 L0D6A: PUSHHL ;
02186 0D6B 22 BD 70 LD(070BDh),HL ;"p
02187 0D6E 21 00 20 LDHL,02000h ;!
02188 0D71 22 C1 70 LD(070C1h),HL ;"p
02189 0D74 21 00 18 LDHL,01800h ;!
02190 0D77 D1 POPDE ;
02191 0D78 CD 81 0B CALLL0B81 ;
02192 0D7B 21 00 18 LDHL,01800h ;!
02193 0D7E 11 00 20 LDDE,02000h ;
02194 0D81 CD 81 0B CALLL0B81 ;
02195 0D84 21 18 70 LDHL,07018h ;!p
02196 0D87 CB 9E RES3,(HL) ;
02197 0D89 01 1C 04 L0D89: LDBC,0041Ch ;
02198 0D8C 21 B1 1A LDHL,01AB1h ;!
02199 0D8F CD 55 0E CALLL0E55 ;U
02200 0D92 11 05 40 LDDE,04005h ;@
02201 0D95 01 20 60 LDBC,06020h ; `
02202 0D98 CD 86 0B CALLL0B86 ;
02203 0D9B 01 80 20 LDBC,02080h ;
02204 0D9E CD 55 0E CALLL0E55 ;U
02205 0DA1 11 07 00 LDDE,00007h ;
02206 0DA4 01 A0 40 LDBC,040A0h ;@
02207 0DA7 CD 86 0B CALLL0B86 ;
02208 0DAA 01 E0 20 LDBC,020E0h ;
02209 0DAD CD 55 0E CALLL0E55 ;U
02210 0DB0 2A 99 70 LDHL,(07099h) ;*p
02211 0DB3 01 08 00 LDBC,00008h ;
02212 0DB6 AF XORA ;
02213 0DB7 CD 01 0E CALLL0E01 ;
02214 0DBA 2A 99 70 LDHL,(07099h) ;*p
02215 0DBD E5 PUSHHL ;
02216 0DBE 01 08 00 LDBC,00008h ;
02217 0DC1 09 ADDHL,BC ;
02218 0DC2 EB EXDE,HL ;
02219 0DC3 E1 POPHL ;
02220 0DC4 01 08 02 LDBC,00208h ;
02221 0DC7 09 ADDHL,BC ;
02222 0DC8 01 D0 00 LDBC,000D0h ;
02223 0DCB DF L0DCB: RST18H ;
02224 0DCC EB EXDE,HL ;
02225 0DCD 2F CPL ;/
02226 0DCE D7 RST10H ;
02227 0DCF EB EXDE,HL ;
02228 0DD0 23 INCHL ;#
02229 0DD1 13 INCDE ;
02230 0DD2 0B DECBC ;
02231 0DD3 78 LDA,B ;x
02232 0DD4 B1 ORC ;
02233 0DD5 20 F4 JRNZ,L0DCB ;
02234 0DD7 C9 RET ;
02235 0DD8 CF L0DD8: RST8H ;
02236 0DD9 E6 E0 AND0E0h ;
02237 0DDB 37 SCF ;7
02238 0DDC C8 RETZ ;
02239 0DDD CB 6F BIT5,A ;o
02240 0DDF C4 5E 0D CALLNZ,L0D5E ;^
02241 0DE2 CD 7E 13 CALLL137E ;~
02242 0DE5 CD 14 0C CALLL0C14 ;
02243 0DE8 CB 5F BIT3,A ;_
02244 0DEA 28 09 JRZ,L0DF5 ;(
02245 0DEC 21 00 18 LDHL,01800h ;!
02246 0DEF 22 9D 70 LD(0709Dh),HL ;"p
02247 0DF2 22 99 70 LD(07099h),HL ;"p
02248 0DF5 CD 2F 0D L0DF5: CALLL0D2F ;/
02249 0DF8 01 20 00 LDBC,00020h ;
02250 0DFB 3E E0 L0DFB: LDA,0E0h ;>
02251 0DFD 00 NOP ;
02252 0DFE 2A 97 70 LDHL,(07097h) ;*p
02253 0E01 57 L0E01: LDD,A ;W
02254 0E02 D7 RST10H ;
02255 0E03 23 INCHL ;#
02256 0E04 0B DECBC ;
02257 0E05 78 LDA,B ;x
02258 0E06 B1 ORC ;
02259 0E07 7A LDA,D ;z
02260 0E08 20 F7 JRNZ,L0E01 ;
02261 0E0A C9 RET ;
02262 0E0B 3E 40 L0E0B: LDA,040h ;>@
02263 0E0D 32 94 70 LD(07094h),A ;2p
02264 0E10 32 B8 70 LD(070B8h),A ;2p
02265 0E13 CD 23 0E CALLL0E23 ;#
02266 0E16 2A BD 70 LDHL,(070BDh) ;*p
02267 0E19 ED 5B C1 70 LDDE,(070C1h) ;[p
02268 0E1D 01 00 08 LDBC,00800h ;
02269 0E20 CD 75 0B CALLL0B75 ;u
02270 0E23 CD D8 0D L0E23: CALLL0DD8 ;
02271 0E26 CD 93 13 CALLL1393 ;
02272 0E29 CD 87 13 CALLL1387 ;
02273 0E2C 18 03 JRL0E31 ;
02274 0E2E CD 62 0C CALLL0C62 ;b
02275 0E31 3E 02 L0E31: LDA,002h ;>
02276 0E33 47 L0E33: LDB,A ;G
02277 0E34 3A 18 70 LDA,(07018h) ;:p
02278 0E37 4F LDC,A ;O
02279 0E38 E6 01 AND001h ;
02280 0E3A B8 CPB ;
02281 0E3B 79 LDA,C ;y
02282 0E3C C8 RETZ ;
02283 0E3D EE 03 XOR003h ;
02284 0E3F 32 18 70 LD(07018h),A ;2p
02285 0E42 CF RST8H ;
02286 0E43 11 B8 70 LDDE,070B8h ;p
02287 0E46 01 24 00 LDBC,00024h ;$
02288 0E49 F3 DI ;
02289 0E4A 1A L0E4A: LDA,(DE) ;
02290 0E4B ED A0 LDI ;
02291 0E4D 2B DECHL ;+
02292 0E4E 77 LD(HL),A ;w
02293 0E4F 23 INCHL ;#
02294 0E50 EA 4A 0E JPPE,L0E4A ;J
02295 0E53 FB EI ;
02296 0E54 C9 RET ;
02297 0E55 3E 01 L0E55: LDA,001h ;>
02298 0E57 16 AF LDD,0AFh ;
02299 0E59 E5 L0E59: PUSHHL ;
02300 0E5A CD 90 0E CALLL0E90 ;
02301 0E5D EB EXDE,HL ;
02302 0E5E E1 POPHL ;
02303 0E5F 38 19 JRC,L0E7A ;8
02304 0E61 F3 L0E61: DI ;
02305 0E62 EB EXDE,HL ;
02306 0E63 C5 PUSHBC ;
02307 0E64 CD 9F 14 CALLL149F ;
02308 0E67 C1 POPBC ;
02309 0E68 EB EXDE,HL ;
02310 0E69 7E L0E69: LDA,(HL) ;~
02311 0E6A D3 10 OUT(010h),A ;
02312 0E6C 13 INCDE ;
02313 0E6D 23 INCHL ;#
02314 0E6E 0B DECBC ;
02315 0E6F 78 LDA,B ;x
02316 0E70 B1 ORC ;
02317 0E71 20 F6 JRNZ,L0E69 ;
02318 0E73 FB EI ;
02319 0E74 C9 RET ;
02320 0E75 E5 PUSHHL ;
02321 0E76 CD 90 0E CALLL0E90 ;
02322 0E79 D1 POPDE ;
02323 0E7A DC 48 00 L0E7A: CALLC,L0048 ;H
02324 0E7D F3 L0E7D: DI ;
02325 0E7E 7D LDA,L ;}
02326 0E7F D3 11 OUT(011h),A ;
02327 0E81 7C LDA,H ;|
02328 0E82 D3 11 OUT(011h),A ;
02329 0E84 23 INCHL ;#
02330 0E85 0B DECBC ;
02331 0E86 78 LDA,B ;x
02332 0E87 B1 ORC ;
02333 0E88 DB 10 INA,(010h) ;
02334 0E8A FB EI ;
02335 0E8B 12 LD(DE),A ;
02336 0E8C 13 INCDE ;
02337 0E8D 20 EE JRNZ,L0E7D ;
02338 0E8F C9 RET ;
02339 0E90 FE 07 L0E90: CP007h ;
02340 0E92 3F CCF ;?
02341 0E93 D8 RETC ;
02342 0E94 57 LDD,A ;W
02343 0E95 CF RST8H ;
02344 0E96 CB 6F BIT5,A ;o
02345 0E98 20 05 JRNZ,L0E9F ;
02346 0E9A 7A LDA,D ;z
02347 0E9B FE 02 CP002h ;
02348 0E9D 3F CCF ;?
02349 0E9E D8 RETC ;
02350 0E9F CD B9 0E L0E9F: CALLL0EB9 ;
02351 0EA2 EB EXDE,HL ;
02352 0EA3 79 LDA,C ;y
02353 0EA4 68 LDL,B ;h
02354 0EA5 26 00 LDH,000h ;&
02355 0EA7 04 INCB ;
02356 0EA8 05 DECB ;
02357 0EA9 20 01 JRNZ,L0EAC ;
02358 0EAB 24 INCH ;$
02359 0EAC 29 L0EAC: ADDHL,HL ;)
02360 0EAD 29 ADDHL,HL ;)
02361 0EAE 29 ADDHL,HL ;)
02362 0EAF 44 LDB,H ;D
02363 0EB0 4D LDC,L ;M
02364 0EB1 6F LDL,A ;o
02365 0EB2 26 00 LDH,000h ;&
02366 0EB4 29 ADDHL,HL ;)
02367 0EB5 29 ADDHL,HL ;)
02368 0EB6 29 ADDHL,HL ;)
02369 0EB7 19 ADDHL,DE ;
02370 0EB8 C9 RET ;
02371 0EB9 7A L0EB9: LDA,D ;z
02372 0EBA 2A 9D 70 LDHL,(0709Dh) ;*p
02373 0EBD B7 ORA ;
02374 0EBE C8 RETZ ;
02375 0EBF 3D DECA ;=
02376 0EC0 2A 99 70 LDHL,(07099h) ;*p
02377 0EC3 FE 03 CP003h ;
02378 0EC5 38 04 JRC,L0ECB ;8
02379 0EC7 3C INCA ;<
02380 0EC8 2A 97 70 LDHL,(07097h) ;*p
02381 0ECB E6 03 L0ECB: AND003h ;
02382 0ECD 87 ADDA,A ;
02383 0ECE 87 ADDA,A ;
02384 0ECF 87 ADDA,A ;
02385 0ED0 84 ADDA,H ;
02386 0ED1 67 LDH,A ;g
02387 0ED2 C9 RET ;
02388 0ED3 CF RST8H ;
02389 0ED4 E6 E0 AND0E0h ;
02390 0ED6 C4 45 00 CALLNZ,L0045 ;E
02391 0ED9 78 LDA,B ;x
02392 0EDA E6 1F AND01Fh ;
02393 0EDC 5F LDE,A ;_
02394 0EDD 16 00 LDD,000h ;
02395 0EDF 2A 97 70 LDHL,(07097h) ;*p
02396 0EE2 19 ADDHL,DE ;
02397 0EE3 B7 ORA ;
02398 0EE4 CB 78 BIT7,B ;x
02399 0EE6 C2 18 00 JPNZ,L0018 ;
02400 0EE9 79 LDA,C ;y
02401 0EEA D7 RST10H ;
02402 0EEB C9 RET ;
02403 0EEC CD 00 0F L0EEC: CALLL0F00 ;
02404 0EEF 77 LD(HL),A ;w
02405 0EF0 23 INCHL ;#
02406 0EF1 05 DECB ;
02407 0EF2 FE 0D CP00Dh ;
02408 0EF4 C8 RETZ ;
02409 0EF5 7A LDA,D ;z
02410 0EF6 B3 ORE ;
02411 0EF7 79 LDA,C ;y
02412 0EF8 C8 RETZ ;
02413 0EF9 04 INCB ;
02414 0EFA 05 DECB ;
02415 0EFB 20 EF JRNZ,L0EEC ;
02416 0EFD CD 43 00 CALLL0043 ;C
02417 0F00 CD 81 14 L0F00: CALLL1481 ;
02418 0F03 38 0C JRC,L0F11 ;8
02419 0F05 C5 PUSHBC ;
02420 0F06 E5 PUSHHL ;
02421 0F07 D5 PUSHDE ;
02422 0F08 CD B1 14 CALLL14B1 ;
02423 0F0B D1 POPDE ;
02424 0F0C E1 POPHL ;
02425 0F0D C1 POPBC ;
02426 0F0E B7 ORA ;
02427 0F0F 20 02 JRNZ,L0F13 ;
02428 0F11 3E 0D L0F11: LDA,00Dh ;>
02429 0F13 4F L0F13: LDC,A ;O
02430 0F14 CD 16 11 CALLL1116 ;
02431 0F17 79 LDA,C ;y
02432 0F18 C9 RET ;
02433 0F19 CF RST8H ;
02434 0F1A CB 86 RES0,(HL) ;
02435 0F1C 18 03 JRL0F21 ;
02436 0F1E CF RST8H ;
02437 0F1F CB C6 SET0,(HL) ;
02438 0F21 21 1A 70 L0F21: LDHL,0701Ah ;!p
02439 0F24 CB D6 SET2,(HL) ;
02440 0F26 C9 RET ;
02441 0F27 3A A7 70 L0F27: LDA,(070A7h) ;:p
02442 0F2A B7 ORA ;
02443 0F2B C8 RETZ ;
02444 0F2C 47 LDB,A ;G
02445 0F2D 2A A8 70 LDHL,(070A8h) ;*p
02446 0F30 2B L0F30: DECHL ;+
02447 0F31 DF RST18H ;
02448 0F32 B7 ORA ;
02449 0F33 C0 RETNZ ;
02450 0F34 3E 20 LDA,020h ;>
02451 0F36 D7 RST10H ;
02452 0F37 10 F7 DJNZL0F30 ;
02453 0F39 C9 RET ;
02454 0F3A 32 26 72 L0F3A: LD(07226h),A ;2&r
02455 0F3D ED 53 52 72 LD(07252h),DE ;SRr
02456 0F41 CD DD 13 CALLL13DD ;
02457 0F44 2A A8 70 L0F44: LDHL,(070A8h) ;*p
02458 0F47 CD 1E 10 CALLL101E ;
02459 0F4A 28 0B JRZ,L0F57 ;(
02460 0F4C EB EXDE,HL ;
02461 0F4D 21 27 72 LDHL,07227h ;!'r
02462 0F50 CD 2E 10 L0F50: CALLL102E ;.
02463 0F53 28 06 JRZ,L0F5B ;(
02464 0F55 10 F9 DJNZL0F50 ;
02465 0F57 DB 10 L0F57: INA,(010h) ;
02466 0F59 57 LDD,A ;W
02467 0F5A 04 INCB ;
02468 0F5B FB L0F5B: EI ;
02469 0F5C 05 DECB ;
02470 0F5D 79 LDA,C ;y
02471 0F5E 90 SUBB ;
02472 0F5F 47 LDB,A ;G
02473 0F60 2A A8 70 LDHL,(070A8h) ;*p
02474 0F63 D5 PUSHDE ;
02475 0F64 CD 5C 14 CALLL145C ;\
02476 0F67 D1 POPDE ;
02477 0F68 2B DECHL ;+
02478 0F69 AF XORA ;
02479 0F6A B6 OR(HL) ;
02480 0F6B 7A LDA,D ;z
02481 0F6C 32 26 72 LD(07226h),A ;2&r
02482 0F6F 28 17 JRZ,L0F88 ;(
02483 0F71 CD 8C 14 CALLL148C ;
02484 0F74 38 12 JRC,L0F88 ;8
02485 0F76 CD ED 10 CALLL10ED ;
02486 0F79 3A 26 72 LDA,(07226h) ;:&r
02487 0F7C B7 ORA ;
02488 0F7D 20 C5 JRNZ,L0F44 ;
02489 0F7F 3A A6 70 LDA,(070A6h) ;:p
02490 0F82 5F LDE,A ;_
02491 0F83 CD 3C 10 CALLL103C ;<
02492 0F86 AF XORA ;
02493 0F87 47 LDB,A ;G
02494 0F88 F5 L0F88: PUSHAF ;
02495 0F89 3A A7 70 LDA,(070A7h) ;:p
02496 0F8C 80 ADDA,B ;
02497 0F8D 21 A3 70 LDHL,070A3h ;!p
02498 0F90 BE CP(HL) ;
02499 0F91 20 05 JRNZ,L0F98 ;
02500 0F93 21 A6 70 LDHL,070A6h ;!p
02501 0F96 34 INC(HL) ;4
02502 0F97 AF XORA ;
02503 0F98 57 L0F98: LDD,A ;W
02504 0F99 3A A6 70 LDA,(070A6h) ;:p
02505 0F9C 5F LDE,A ;_
02506 0F9D D5 PUSHDE ;
02507 0F9E ED 5B 52 72 LDDE,(07252h) ;[Rr
02508 0FA2 CD DD 13 CALLL13DD ;
02509 0FA5 D1 POPDE ;
02510 0FA6 F1 POPAF ;
02511 0FA7 3A 26 72 LDA,(07226h) ;:&r
02512 0FAA C9 RET ;
02513 0FAB CF RST8H ;
02514 0FAC CB 67 BIT4,A ;g
02515 0FAE C0 RETNZ ;
02516 0FAF 3A A7 70 LDA,(070A7h) ;:p
02517 0FB2 B7 ORA ;
02518 0FB3 20 13 JRNZ,L0FC8 ;
02519 0FB5 3A A6 70 LDA,(070A6h) ;:p
02520 0FB8 B7 ORA ;
02521 0FB9 28 14 JRZ,L0FCF ;(
02522 0FBB 3D DECA ;=
02523 0FBC 5F LDE,A ;_
02524 0FBD 3A A3 70 LDA,(070A3h) ;:p
02525 0FC0 3D DECA ;=
02526 0FC1 57 LDD,A ;W
02527 0FC2 CD B1 14 CALLL14B1 ;
02528 0FC5 B7 ORA ;
02529 0FC6 28 07 JRZ,L0FCF ;(
02530 0FC8 CD AC 14 L0FC8: CALLL14AC ;
02531 0FCB B7 ORA ;
02532 0FCC CC FF 10 CALLZ,L10FF ;
02533 0FCF ED 5B A6 70 L0FCF: LDDE,(070A6h) ;[p
02534 0FD3 ED 53 52 72 LD(07252h),DE ;SRr
02535 0FD7 CD DD 13 CALLL13DD ;
02536 0FDA 2A A8 70 L0FDA: LDHL,(070A8h) ;*p
02537 0FDD 23 INCHL ;#
02538 0FDE CD 1E 10 CALLL101E ;
02539 0FE1 EB EXDE,HL ;
02540 0FE2 21 26 72 LDHL,07226h ;!&r
02541 0FE5 28 07 JRZ,L0FEE ;(
02542 0FE7 CD 2E 10 L0FE7: CALLL102E ;.
02543 0FEA 28 17 JRZ,L1003 ;(
02544 0FEC 10 F9 DJNZL0FE7 ;
02545 0FEE C5 L0FEE: PUSHBC ;
02546 0FEF CD 8C 14 CALLL148C ;
02547 0FF2 3E 00 LDA,000h ;>
02548 0FF4 38 0B JRC,L1001 ;8
02549 0FF6 57 LDD,A ;W
02550 0FF7 3A A6 70 LDA,(070A6h) ;:p
02551 0FFA 5F LDE,A ;_
02552 0FFB 1C INCE ;
02553 0FFC E5 PUSHHL ;
02554 0FFD CD B1 14 CALLL14B1 ;
02555 1000 E1 L1000: POPHL ;
02556 1001 77 L1001: LD(HL),A ;w
02557 1002 C1 POPBC ;
02558 1003 FB L1003: EI ;
02559 1004 79 LDA,C ;y
02560 1005 90 SUBB ;
02561 1006 47 LDB,A ;G
02562 1007 2A A8 70 LDHL,(070A8h) ;*p
02563 100A CD 5C 14 CALLL145C ;\
02564 100D 2B DECHL ;+
02565 100E AF XORA ;
02566 100F B6 OR(HL) ;
02567 1010 28 05 JRZ,L1017 ;(
02568 1012 CD ED 10 CALLL10ED ;
02569 1015 18 C3 JRL0FDA ;
02570 1017 ED 5B 52 72 L1017: LDDE,(07252h) ;[Rr
02571 101B C3 DD 13 JPL13DD ;
02572 101E F3 L101E: DI ;
02573 101F CD A1 14 CALLL14A1 ;
02574 1022 3A A7 70 LDA,(070A7h) ;:p
02575 1025 47 LDB,A ;G
02576 1026 3A A3 70 LDA,(070A3h) ;:p
02577 1029 90 SUBB ;
02578 102A 4F LDC,A ;O
02579 102B 47 LDB,A ;G
02580 102C 05 DECB ;
02581 102D C9 RET ;
02582 102E DB 10 L102E: INA,(010h) ;
02583 1030 13 INCDE ;
02584 1031 C5 PUSHBC ;
02585 1032 EB EXDE,HL ;
02586 1033 CD A1 14 CALLL14A1 ;
02587 1036 EB EXDE,HL ;
02588 1037 C1 POPBC ;
02589 1038 77 LD(HL),A ;w
02590 1039 23 INCHL ;#
02591 103A B7 ORA ;
02592 103B C9 RET ;
02593 103C 2A A0 70 L103C: LDHL,(070A0h) ;*p
02594 103F 3A A2 70 LDA,(070A2h) ;:p
02595 1042 67 LDH,A ;g
02596 1043 E5 PUSHHL ;
02597 1044 7B LDA,E ;{
02598 1045 85 ADDA,L ;
02599 1046 32 A0 70 LD(070A0h),A ;2p
02600 1049 7C LDA,H ;|
02601 104A 93 SUBE ;
02602 104B 32 A2 70 LD(070A2h),A ;2p
02603 104E CD BF 12 CALLL12BF ;
02604 1051 E1 POPHL ;
02605 1052 7C LDA,H ;|
02606 1053 32 A2 70 LD(070A2h),A ;2p
02607 1056 7D LDA,L ;}
02608 1057 32 A0 70 LD(070A0h),A ;2p
02609 105A C9 RET ;
02610 105B 06 06 LDB,006h ;
02611 105D 00 NOP ;
02612 105E CD FF 04 CALLL04FF ;
02613 1061 06 00 LDB,000h ;
02614 1063 7E L1063: LDA,(HL) ;~
02615 1064 23 INCHL ;#
02616 1065 B7 ORA ;
02617 1066 C8 RETZ ;
02618 1067 05 DECB ;
02619 1068 FE 0D CP00Dh ;
02620 106A 28 17 JRZ,L1083 ;(
02621 106C CD 88 10 CALLL1088 ;
02622 106F 04 INCB ;
02623 1070 10 F1 DJNZL1063 ;
02624 1072 C9 RET ;
02625 1073 2A 0E 70 L1073: LDHL,(0700Eh) ;*p
02626 1076 87 L1076: ADDA,A ;
02627 1077 D5 PUSHDE ;
02628 1078 5F LDE,A ;_
02629 1079 16 00 LDD,000h ;
02630 107B 19 ADDHL,DE ;
02631 107C D1 POPDE ;
02632 107D 7E LDA,(HL) ;~
02633 107E 23 INCHL ;#
02634 107F 66 LDH,(HL) ;f
02635 1080 6F LDL,A ;o
02636 1081 E9 JP(HL) ;
02637 1082 06 06 LDB,006h ;
02638 1084 00 NOP ;
02639 1085 CD FF 04 L1085: CALLL04FF ;
02640 1088 F5 L1088: PUSHAF ;
02641 1089 C5 PUSHBC ;
02642 108A D5 PUSHDE ;
02643 108B E5 PUSHHL ;
02644 108C 21 3C 02 LDHL,0023Ch ;!<
02645 108F E5 PUSHHL ;
02646 1090 21 94 70 LDHL,07094h ;!p
02647 1093 CB 4E BIT1,(HL) ;N
02648 1095 20 04 JRNZ,L109B ;
02649 1097 FE 20 CP020h ;
02650 1099 38 D8 JRC,L1073 ;8
02651 109B CB 46 L109B: BIT0,(HL) ;F
02652 109D 28 2B JRZ,L10CA ;(+
02653 109F 21 94 70 LDHL,07094h ;!p
02654 10A2 CB 66 BIT4,(HL) ;f
02655 10A4 20 56 JRNZ,L10FC ; V
02656 10A6 F5 PUSHAF ;
02657 10A7 CD 27 0F CALLL0F27 ;'
02658 10AA ED 5B A6 70 LDDE,(070A6h) ;[p
02659 10AE F1 POPAF ;
02660 10AF CD 3A 0F CALLL0F3A ;:
02661 10B2 30 48 JRNC,L10FC ;0H
02662 10B4 CF RST8H ;
02663 10B5 CB 57 BIT2,A ;W
02664 10B7 20 43 JRNZ,L10FC ; C
02665 10B9 21 1A 70 LDHL,0701Ah ;!p
02666 10BC CB F6 SET6,(HL) ;
02667 10BE CD B3 12 CALLL12B3 ;
02668 10C1 3A A6 70 LDA,(070A6h) ;:p
02669 10C4 B7 ORA ;
02670 10C5 C4 F9 10 CALLNZ,L10F9 ;
02671 10C8 18 32 JRL10FC ;2
02672 10CA 21 94 70 L10CA: LDHL,07094h ;!p
02673 10CD CB 66 BIT4,(HL) ;f
02674 10CF 20 2B JRNZ,L10FC ; +
02675 10D1 2A A8 70 LDHL,(070A8h) ;*p
02676 10D4 D7 RST10H ;
02677 10D5 CD 27 0F CALLL0F27 ;'
02678 10D8 ED 5B A6 70 LDDE,(070A6h) ;[p
02679 10DC CD 16 11 CALLL1116 ;
02680 10DF CF RST8H ;
02681 10E0 CB 57 BIT2,A ;W
02682 10E2 20 18 JRNZ,L10FC ;
02683 10E4 7A LDA,D ;z
02684 10E5 B3 ORE ;
02685 10E6 20 14 JRNZ,L10FC ;
02686 10E8 21 1A 70 LDHL,0701Ah ;!p
02687 10EB CB F6 SET6,(HL) ;
02688 10ED CD CD 13 L10ED: CALLL13CD ;
02689 10F0 CD 8C 14 CALLL148C ;
02690 10F3 DA B3 12 JPC,L12B3 ;
02691 10F6 3E 03 L10F6: LDA,003h ;>
02692 10F8 01 3E 02 LDBC,0023Eh ;>
02693 10FB 01 3E 01 LDBC,0013Eh ;>
02694 10FE 06 AF LDB,0AFh ;
02695 1100 ED 5B A6 70 LDDE,(070A6h) ;[p
02696 1104 21 13 11 LDHL,01113h ;!
02697 1107 E5 PUSHHL ;
02698 1108 B7 ORA ;
02699 1109 28 29 JRZ,L1134 ;()
02700 110B 3D DECA ;=
02701 110C 28 08 JRZ,L1116 ;(
02702 110E 3D DECA ;=
02703 110F 28 36 JRZ,L1147 ;(6
02704 1111 18 13 JRL1126 ;
02705 1113 C3 DD 13 JPL13DD ;
02706 1116 3A 94 70 L1116: LDA,(07094h) ;:p
02707 1119 14 INCD ;
02708 111A CB 67 BIT4,A ;g
02709 111C C0 RETNZ ;
02710 111D CD 85 14 CALLL1485 ;
02711 1120 D0 RETNC ;
02712 1121 16 00 LDD,000h ;
02713 1123 1C INCE ;
02714 1124 18 07 JRL112D ;
02715 1126 3A 94 70 L1126: LDA,(07094h) ;:p
02716 1129 1C INCE ;
02717 112A CB 67 BIT4,A ;g
02718 112C C0 RETNZ ;
02719 112D CD 92 14 L112D: CALLL1492 ;
02720 1130 D0 RETNC ;
02721 1131 1E 00 LDE,000h ;
02722 1133 C9 RET ;
02723 1134 3A 94 70 L1134: LDA,(07094h) ;:p
02724 1137 15 DECD ;
02725 1138 CB 67 BIT4,A ;g
02726 113A C0 RETNZ ;
02727 113B CD 85 14 CALLL1485 ;
02728 113E D0 RETNC ;
02729 113F 3A A3 70 LDA,(070A3h) ;:p
02730 1142 3D DECA ;=
02731 1143 57 LDD,A ;W
02732 1144 1D DECE ;
02733 1145 18 07 JRL114E ;
02734 1147 3A 94 70 L1147: LDA,(07094h) ;:p
02735 114A 1D DECE ;
02736 114B CB 67 BIT4,A ;g
02737 114D C0 RETNZ ;
02738 114E CD 92 14 L114E: CALLL1492 ;
02739 1151 D0 RETNC ;
02740 1152 3A A2 70 LDA,(070A2h) ;:p
02741 1155 3D DECA ;=
02742 1156 5F LDE,A ;_
02743 1157 C9 RET ;
02744 1158 3E 20 LDA,020h ;>
02745 115A F5 PUSHAF ;
02746 115B 3A A7 70 LDA,(070A7h) ;:p
02747 115E 2F CPL ;/
02748 115F E6 07 AND007h ;
02749 1161 3C INCA ;<
02750 1162 47 LDB,A ;G
02751 1163 F1 POPAF ;
02752 1164 CD 88 10 L1164: CALLL1088 ;
02753 1167 10 FB DJNZL1164 ;
02754 1169 C9 RET ;
02755 116A 2A 3A 70 L116A: LDHL,(0703Ah) ;*:p
02756 116D 7C LDA,H ;|
02757 116E 32 58 70 LD(07058h),A ;2Xp
02758 1171 11 D0 C0 LDDE,0C0D0h ;
02759 1174 18 0B JRL1181 ;
02760 1176 F3 L1176: DI ;
02761 1177 2A AD 70 LDHL,(070ADh) ;*p
02762 117A 7C LDA,H ;|
02763 117B 32 59 70 LD(07059h),A ;2Yp
02764 117E 11 B0 A0 LDDE,0A0B0h ;
02765 1181 0E 20 L1181: LDC,020h ;
02766 1183 ED 51 OUT(C),D ;Q
02767 1185 ED 69 OUT(C),L ;i
02768 1187 ED 59 OUT(C),E ;Y
02769 1189 FB EI ;
02770 118A C9 RET ;
02771 118B 21 58 70 L118B: LDHL,07058h ;!Xp
02772 118E 3E DF LDA,0DFh ;>
02773 1190 CD 96 11 CALLL1196 ;
02774 1193 23 INCHL ;#
02775 1194 3E BF LDA,0BFh ;>
02776 1196 34 L1196: INC(HL) ;4
02777 1197 35 DEC(HL) ;5
02778 1198 C8 RETZ ;
02779 1199 35 DEC(HL) ;5
02780 119A C0 RETNZ ;
02781 119B D3 20 OUT(020h),A ;
02782 119D C9 RET ;
02783 119E CD BB 11 L119E: CALLL11BB ;
02784 11A1 3A A6 70 L11A1: LDA,(070A6h) ;:p
02785 11A4 B7 ORA ;
02786 11A5 28 0A JRZ,L11B1 ;(
02787 11A7 CD F9 10 CALLL10F9 ;
02788 11AA DF RST18H ;
02789 11AB B7 ORA ;
02790 11AC 20 F3 JRNZ,L11A1 ;
02791 11AE CD F6 10 CALLL10F6 ;
02792 11B1 CD CD 13 L11B1: CALLL13CD ;
02793 11B4 DF RST18H ;
02794 11B5 B7 ORA ;
02795 11B6 20 01 JRNZ,L11B9 ;
02796 11B8 37 SCF ;7
02797 11B9 18 20 L11B9: JRL11DB ;
02798 11BB 2A A6 70 L11BB: LDHL,(070A6h) ;*p
02799 11BE 22 52 72 LD(07252h),HL ;"Rr
02800 11C1 3A A3 70 LDA,(070A3h) ;:p
02801 11C4 57 LDD,A ;W
02802 11C5 15 DECD ;
02803 11C6 5D LDE,L ;]
02804 11C7 C3 DD 13 JPL13DD ;
02805 11CA CD BB 11 L11CA: CALLL11BB ;
02806 11CD CD 8C 14 L11CD: CALLL148C ;
02807 11D0 38 09 JRC,L11DB ;8
02808 11D2 DF RST18H ;
02809 11D3 B7 ORA ;
02810 11D4 F5 PUSHAF ;
02811 11D5 CD F6 10 CALLL10F6 ;
02812 11D8 F1 POPAF ;
02813 11D9 20 F2 JRNZ,L11CD ;
02814 11DB F5 L11DB: PUSHAF ;
02815 11DC 16 00 LDD,000h ;
02816 11DE 3A A6 70 LDA,(070A6h) ;:p
02817 11E1 5F LDE,A ;_
02818 11E2 D5 PUSHDE ;
02819 11E3 ED 5B 52 72 LDDE,(07252h) ;[Rr
02820 11E7 CD DD 13 CALLL13DD ;
02821 11EA D1 POPDE ;
02822 11EB F1 POPAF ;
02823 11EC C9 RET ;
02824 11ED EB EXDE,HL ;
02825 11EE 78 LDA,B ;x
02826 11EF 69 LDL,C ;i
02827 11F0 CD 41 14 CALLL1441 ;A
02828 11F3 19 ADDHL,DE ;
02829 11F4 CD 3D 12 CALLL123D ;=
02830 11F7 38 40 JRC,L1239 ;8@
02831 11F9 CD 60 12 CALLL1260 ;`
02832 11FC D5 L11FC: PUSHDE ;
02833 11FD CD 48 12 CALLL1248 ;H
02834 1200 CD 60 14 CALLL1460 ;`
02835 1203 D1 POPDE ;
02836 1204 7A LDA,D ;z
02837 1205 16 00 LDD,000h ;
02838 1207 19 ADDHL,DE ;
02839 1208 3D DECA ;=
02840 1209 57 LDD,A ;W
02841 120A 20 F0 JRNZ,L11FC ;
02842 120C 18 2B JRL1239 ;+
02843 120E E5 PUSHHL ;
02844 120F EB EXDE,HL ;
02845 1210 78 LDA,B ;x
02846 1211 69 LDL,C ;i
02847 1212 CD 41 14 CALLL1441 ;A
02848 1215 EB EXDE,HL ;
02849 1216 36 00 L1216: LD(HL),000h ;6
02850 1218 23 INCHL ;#
02851 1219 1B DECDE ;
02852 121A 7A LDA,D ;z
02853 121B B3 ORE ;
02854 121C 20 F8 JRNZ,L1216 ;
02855 121E D1 POPDE ;
02856 121F CD 3D 12 CALLL123D ;=
02857 1222 38 15 JRC,L1239 ;8
02858 1224 CD 60 12 CALLL1260 ;`
02859 1227 D5 L1227: PUSHDE ;
02860 1228 CD 48 12 CALLL1248 ;H
02861 122B EB EXDE,HL ;
02862 122C CD 4B 14 CALLL144B ;K
02863 122F EB EXDE,HL ;
02864 1230 D1 POPDE ;
02865 1231 7A LDA,D ;z
02866 1232 16 00 LDD,000h ;
02867 1234 19 ADDHL,DE ;
02868 1235 3D DECA ;=
02869 1236 57 LDD,A ;W
02870 1237 20 EE JRNZ,L1227 ;
02871 1239 2A 4E 72 L1239: LDHL,(0724Eh) ;*Nr
02872 123C C9 RET ;
02873 123D 22 4E 72 L123D: LD(0724Eh),HL ;"Nr
02874 1240 EB EXDE,HL ;
02875 1241 ED 5B A6 70 LDDE,(070A6h) ;[p
02876 1245 C3 69 14 JPL1469 ;i
02877 1248 59 L1248: LDE,C ;Y
02878 1249 16 00 LDD,000h ;
02879 124B 19 ADDHL,DE ;
02880 124C E5 PUSHHL ;
02881 124D C5 PUSHBC ;
02882 124E ED 5B 52 72 LDDE,(07252h) ;[Rr
02883 1252 79 LDA,C ;y
02884 1253 82 ADDA,D ;
02885 1254 57 LDD,A ;W
02886 1255 CD F7 13 CALLL13F7 ;
02887 1258 EB EXDE,HL ;
02888 1259 C1 POPBC ;
02889 125A 21 52 72 LDHL,07252h ;!Rr
02890 125D 34 INC(HL) ;4
02891 125E E1 POPHL ;
02892 125F C9 RET ;
02893 1260 3A A2 70 L1260: LDA,(070A2h) ;:p
02894 1263 93 SUBE ;
02895 1264 B9 CPC ;
02896 1265 38 01 JRC,L1268 ;8
02897 1267 79 LDA,C ;y
02898 1268 CB 7B L1268: BIT7,E ;{
02899 126A 28 19 JRZ,L1285 ;(
02900 126C D5 PUSHDE ;
02901 126D E5 PUSHHL ;
02902 126E 68 LDL,B ;h
02903 126F 7B LDA,E ;{
02904 1270 ED 44 NEG ;D
02905 1272 CD 41 14 CALLL1441 ;A
02906 1275 D1 POPDE ;
02907 1276 19 ADDHL,DE ;
02908 1277 D1 POPDE ;
02909 1278 79 LDA,C ;y
02910 1279 83 ADDA,E ;
02911 127A 1E 00 LDE,000h ;
02912 127C E5 PUSHHL ;
02913 127D 21 A2 70 LDHL,070A2h ;!p
02914 1280 BE CP(HL) ;
02915 1281 38 01 JRC,L1284 ;8
02916 1283 7E LDA,(HL) ;~
02917 1284 E1 L1284: POPHL ;
02918 1285 ED 53 52 72 L1285: LD(07252h),DE ;SRr
02919 1289 E5 PUSHHL ;
02920 128A F5 PUSHAF ;
02921 128B 26 00 LDH,000h ;&
02922 128D 3A A3 70 LDA,(070A3h) ;:p
02923 1290 92 SUBD ;
02924 1291 B8 CPB ;
02925 1292 38 01 JRC,L1295 ;8
02926 1294 78 LDA,B ;x
02927 1295 CB 7A L1295: BIT7,D ;z
02928 1297 28 0F JRZ,L12A8 ;(
02929 1299 7A LDA,D ;z
02930 129A ED 44 NEG ;D
02931 129C 67 LDH,A ;g
02932 129D 78 LDA,B ;x
02933 129E 82 ADDA,D ;
02934 129F E5 PUSHHL ;
02935 12A0 21 A3 70 LDHL,070A3h ;!p
02936 12A3 BE CP(HL) ;
02937 12A4 38 01 JRC,L12A7 ;8
02938 12A6 7E LDA,(HL) ;~
02939 12A7 E1 L12A7: POPHL ;
02940 12A8 6F L12A8: LDL,A ;o
02941 12A9 78 LDA,B ;x
02942 12AA 94 SUBH ;
02943 12AB 95 SUBL ;
02944 12AC 5F LDE,A ;_
02945 12AD F1 POPAF ;
02946 12AE 57 LDD,A ;W
02947 12AF 4C LDC,H ;L
02948 12B0 45 LDB,L ;E
02949 12B1 E1 POPHL ;
02950 12B2 C9 RET ;
02951 12B3 2A A5 70 L12B3: LDHL,(070A5h) ;*p
02952 12B6 26 00 LDH,000h ;&
02953 12B8 22 4E 72 LD(0724Eh),HL ;"Nr
02954 12BB 54 LDD,H ;T
02955 12BC 5C LDE,H ;\
02956 12BD 18 12 JRL12D1 ;
02957 12BF 26 FF L12BF: LDH,0FFh ;&
02958 12C1 3A A5 70 LDA,(070A5h) ;:p
02959 12C4 2F CPL ;/
02960 12C5 6F LDL,A ;o
02961 12C6 23 INCHL ;#
02962 12C7 22 4E 72 LD(0724Eh),HL ;"Nr
02963 12CA 16 00 LDD,000h ;
02964 12CC 3A A2 70 LDA,(070A2h) ;:p
02965 12CF 5F LDE,A ;_
02966 12D0 1D DECE ;
02967 12D1 CD F7 13 L12D1: CALLL13F7 ;
02968 12D4 3A A2 70 LDA,(070A2h) ;:p
02969 12D7 47 LDB,A ;G
02970 12D8 05 DECB ;
02971 12D9 28 14 JRZ,L12EF ;(
02972 12DB C5 L12DB: PUSHBC ;
02973 12DC 54 LDD,H ;T
02974 12DD 5D LDE,L ;]
02975 12DE ED 4B 4E 72 LDBC,(0724Eh) ;KNr
02976 12E2 09 ADDHL,BC ;
02977 12E3 3A A3 70 LDA,(070A3h) ;:p
02978 12E6 47 LDB,A ;G
02979 12E7 E5 PUSHHL ;
02980 12E8 CD 54 14 CALLL1454 ;T
02981 12EB E1 POPHL ;
02982 12EC C1 POPBC ;
02983 12ED 10 EC DJNZL12DB ;
02984 12EF 3A A3 70 L12EF: LDA,(070A3h) ;:p
02985 12F2 47 LDB,A ;G
02986 12F3 AF XORA ;
02987 12F4 D7 L12F4: RST10H ;
02988 12F5 23 INCHL ;#
02989 12F6 10 FC DJNZL12F4 ;
02990 12F8 C9 RET ;
02991 12F9 21 01 00 LDHL,00001h ;!
02992 12FC 22 50 72 LD(07250h),HL ;"Pr
02993 12FF 2B DECHL ;+
02994 1300 2B DECHL ;+
02995 1301 22 4E 72 LD(0724Eh),HL ;"Nr
02996 1304 16 00 LDD,000h ;
02997 1306 3E 20 LDA,020h ;>
02998 1308 18 14 JRL131E ;
02999 130A 3A A3 70 LDA,(070A3h) ;:p
03000 130D 3D DECA ;=
03001 130E 57 LDD,A ;W
03002 130F 2F CPL ;/
03003 1310 6F LDL,A ;o
03004 1311 26 FF LDH,0FFh ;&
03005 1313 23 INCHL ;#
03006 1314 22 50 72 LD(07250h),HL ;"Pr
03007 1317 21 01 00 LDHL,00001h ;!
03008 131A 22 4E 72 LD(0724Eh),HL ;"Nr
03009 131D AF XORA ;
03010 131E 32 54 72 L131E: LD(07254h),A ;2Tr
03011 1321 3A A2 70 LDA,(070A2h) ;:p
03012 1324 F5 PUSHAF ;
03013 1325 5F LDE,A ;_
03014 1326 1D DECE ;
03015 1327 CD F7 13 CALLL13F7 ;
03016 132A C1 POPBC ;
03017 132B C5 L132B: PUSHBC ;
03018 132C E5 PUSHHL ;
03019 132D ED 5B 50 72 LDDE,(07250h) ;[Pr
03020 1331 19 ADDHL,DE ;
03021 1332 54 LDD,H ;T
03022 1333 5D LDE,L ;]
03023 1334 ED 4B 4E 72 LDBC,(0724Eh) ;KNr
03024 1338 09 ADDHL,BC ;
03025 1339 3A A3 70 LDA,(070A3h) ;:p
03026 133C 47 LDB,A ;G
03027 133D 05 DECB ;
03028 133E C4 54 14 CALLNZ,L1454 ;T
03029 1341 E1 POPHL ;
03030 1342 C1 POPBC ;
03031 1343 3A 54 72 LDA,(07254h) ;:Tr
03032 1346 D7 RST10H ;
03033 1347 16 00 LDD,000h ;
03034 1349 3A A5 70 LDA,(070A5h) ;:p
03035 134C 5F LDE,A ;_
03036 134D B7 ORA ;
03037 134E ED 52 SBCHL,DE ;R
03038 1350 10 D9 DJNZL132B ;
03039 1352 C9 RET ;
03040 1353 ED 4B A4 70 L1353: LDBC,(070A4h) ;Kp
03041 1357 21 00 00 LDHL,00000h ;!
03042 135A 18 19 JRL1375 ;
03043 135C ED 4B A4 70 LDBC,(070A4h) ;Kp
03044 1360 7B LDA,E ;{
03045 1361 B9 CPC ;
03046 1362 30 07 JRNC,L136B ;0
03047 1364 92 SUBD ;
03048 1365 38 08 JRC,L136F ;8
03049 1367 3C INCA ;<
03050 1368 4F LDC,A ;O
03051 1369 7D LDA,L ;}
03052 136A B8 CPB ;
03053 136B D4 48 00 L136B: CALLNC,L0048 ;H
03054 136E 94 SUBH ;
03055 136F DC 48 00 L136F: CALLC,L0048 ;H
03056 1372 3C INCA ;<
03057 1373 47 LDB,A ;G
03058 1374 6A LDL,D ;j
03059 1375 ED 43 A2 70 L1375: LD(070A2h),BC ;Cp
03060 1379 22 A0 70 LD(070A0h),HL ;"p
03061 137C 18 38 JRL13B6 ;8
03062 137E CF L137E: RST8H ;
03063 137F 87 ADDA,A ;
03064 1380 D0 RETNC ;
03065 1381 CD 53 13 CALLL1353 ;S
03066 1384 CD 93 13 CALLL1393 ;
03067 1387 3E 1F L1387: LDA,01Fh ;>
03068 1389 F5 L1389: PUSHAF ;
03069 138A CD CC 03 CALLL03CC ;
03070 138D F1 POPAF ;
03071 138E B7 ORA ;
03072 138F C8 RETZ ;
03073 1390 3D DECA ;=
03074 1391 18 F6 JRL1389 ;
03075 1393 AF L1393: XORA ;
03076 1394 21 26 72 LDHL,07226h ;!&r
03077 1397 06 28 LDB,028h ;(
03078 1399 77 L1399: LD(HL),A ;w
03079 139A 23 INCHL ;#
03080 139B 10 FC DJNZL1399 ;
03081 139D 11 00 00 LDDE,00000h ;
03082 13A0 CD F7 13 CALLL13F7 ;
03083 13A3 ED 4B A2 70 LDBC,(070A2h) ;Kp
03084 13A7 E5 L13A7: PUSHHL ;
03085 13A8 CD 5C 14 CALLL145C ;\
03086 13AB E1 POPHL ;
03087 13AC 3A A5 70 LDA,(070A5h) ;:p
03088 13AF 5F LDE,A ;_
03089 13B0 16 00 LDD,000h ;
03090 13B2 19 ADDHL,DE ;
03091 13B3 0D DECC ;
03092 13B4 20 F1 JRNZ,L13A7 ;
03093 13B6 11 00 00 L13B6: LDDE,00000h ;
03094 13B9 18 22 JRL13DD ;"
03095 13BB ED 5B A6 70 LDDE,(070A6h) ;[p
03096 13BF D5 L13BF: PUSHDE ;
03097 13C0 CD B1 14 CALLL14B1 ;
03098 13C3 D1 POPDE ;
03099 13C4 D8 RETC ;
03100 13C5 C8 RETZ ;
03101 13C6 AF XORA ;
03102 13C7 D7 RST10H ;
03103 13C8 CD 16 11 CALLL1116 ;
03104 13CB 18 F2 JRL13BF ;
03105 13CD 3A A6 70 L13CD: LDA,(070A6h) ;:p
03106 13D0 5F LDE,A ;_
03107 13D1 16 00 LDD,000h ;
03108 13D3 18 08 JRL13DD ;
03109 13D5 CD 9E 11 CALLL119E ;
03110 13D8 18 03 JRL13DD ;
03111 13DA CD CA 11 CALLL11CA ;
03112 13DD ED 53 A6 70 L13DD: LD(070A6h),DE ;Sp
03113 13E1 CD 81 14 CALLL1481 ;
03114 13E4 CF RST8H ;
03115 13E5 CB E6 SET4,(HL) ;
03116 13E7 38 02 JRC,L13EB ;8
03117 13E9 CB A6 RES4,(HL) ;
03118 13EB F5 L13EB: PUSHAF ;
03119 13EC CD F7 13 CALLL13F7 ;
03120 13EF 22 A8 70 LD(070A8h),HL ;"p
03121 13F2 F1 POPAF ;
03122 13F3 DC 3C 00 CALLC,L003C ;<
03123 13F6 C9 RET ;
03124 13F7 7A L13F7: LDA,D ;z
03125 13F8 EE 80 XOR080h ;
03126 13FA 57 LDD,A ;W
03127 13FB 7B LDA,E ;{
03128 13FC EE 80 XOR080h ;
03129 13FE 5F LDE,A ;_
03130 13FF 3A A5 70 LDA,(070A5h) ;:p
03131 1402 FE 28 CP028h ;(
03132 1404 01 80 EB LDBC,0EB80h ;
03133 1407 28 03 JRZ,L140C ;(
03134 1409 01 80 EF LDBC,0EF80h ;
03135 140C 6B L140C: LDL,E ;k
03136 140D CD 41 14 CALLL1441 ;A
03137 1410 09 ADDHL,BC ;
03138 1411 5A LDE,D ;Z
03139 1412 16 00 LDD,000h ;
03140 1414 19 ADDHL,DE ;
03141 1415 E5 PUSHHL ;
03142 1416 2A A0 70 LDHL,(070A0h) ;*p
03143 1419 5C LDE,H ;\
03144 141A 3A A5 70 LDA,(070A5h) ;:p
03145 141D CD 41 14 CALLL1441 ;A
03146 1420 16 00 LDD,000h ;
03147 1422 19 ADDHL,DE ;
03148 1423 ED 5B 95 70 LDDE,(07095h) ;[p
03149 1427 19 ADDHL,DE ;
03150 1428 EB EXDE,HL ;
03151 1429 E1 POPHL ;
03152 142A 19 ADDHL,DE ;
03153 142B C9 RET ;
03154 142C C5 L142C: PUSHBC ;
03155 142D 44 LDB,H ;D
03156 142E 4D LDC,L ;M
03157 142F 3E 10 LDA,010h ;>
03158 1431 21 00 00 LDHL,00000h ;!
03159 1434 29 L1434: ADDHL,HL ;)
03160 1435 CB 13 RLE ;
03161 1437 CB 12 RLD ;
03162 1439 30 01 JRNC,L143C ;0
03163 143B 09 ADDHL,BC ;
03164 143C 3D L143C: DECA ;=
03165 143D 20 F5 JRNZ,L1434 ;
03166 143F C1 POPBC ;
03167 1440 C9 RET ;
03168 1441 D5 L1441: PUSHDE ;
03169 1442 26 00 LDH,000h ;&
03170 1444 54 LDD,H ;T
03171 1445 5F LDE,A ;_
03172 1446 CD 2C 14 CALLL142C ;,
03173 1449 D1 POPDE ;
03174 144A C9 RET ;
03175 144B C5 L144B: PUSHBC ;
03176 144C 48 LDC,B ;H
03177 144D 06 00 LDB,000h ;
03178 144F CD 7D 0E CALLL0E7D ;}
03179 1452 C1 POPBC ;
03180 1453 C9 RET ;
03181 1454 D5 L1454: PUSHDE ;
03182 1455 11 26 72 LDDE,07226h ;&r
03183 1458 CD 4B 14 CALLL144B ;K
03184 145B E1 POPHL ;
03185 145C EB L145C: EXDE,HL ;
03186 145D 21 26 72 LDHL,07226h ;!&r
03187 1460 C5 L1460: PUSHBC ;
03188 1461 48 LDC,B ;H
03189 1462 06 00 LDB,000h ;
03190 1464 CD 61 0E CALLL0E61 ;a
03191 1467 C1 POPBC ;
03192 1468 C9 RET ;
03193 1469 CD 85 14 L1469: CALLL1485 ;
03194 146C 30 07 JRNC,L1475 ;0
03195 146E CB 7F BIT7,A ;
03196 1470 C8 RETZ ;
03197 1471 80 ADDA,B ;
03198 1472 3D DECA ;=
03199 1473 37 SCF ;7
03200 1474 F8 RETM ;
03201 1475 CD 92 14 L1475: CALLL1492 ;
03202 1478 CB 7F BIT7,A ;
03203 147A C8 RETZ ;
03204 147B 81 ADDA,C ;
03205 147C 3D DECA ;=
03206 147D 37 SCF ;7
03207 147E F8 RETM ;
03208 147F B7 ORA ;
03209 1480 C9 RET ;
03210 1481 CD 92 14 L1481: CALLL1492 ;
03211 1484 D8 RETC ;
03212 1485 7A L1485: LDA,D ;z
03213 1486 E5 PUSHHL ;
03214 1487 21 A3 70 LDHL,070A3h ;!p
03215 148A 18 0B JRL1497 ;
03216 148C 3A A6 70 L148C: LDA,(070A6h) ;:p
03217 148F 3C INCA ;<
03218 1490 18 01 JRL1493 ;
03219 1492 7B L1492: LDA,E ;{
03220 1493 E5 L1493: PUSHHL ;
03221 1494 21 A2 70 LDHL,070A2h ;!p
03222 1497 B7 L1497: ORA ;
03223 1498 FA 9C 14 JPM,L149C ;
03224 149B BE CP(HL) ;
03225 149C E1 L149C: POPHL ;
03226 149D 3F CCF ;?
03227 149E C9 RET ;
03228 149F CB F4 L149F: SET6,H ;
03229 14A1 0E 11 L14A1: LDC,011h ;
03230 14A3 ED 69 OUT(C),L ;i
03231 14A5 ED 61 OUT(C),H ;a
03232 14A7 CB B4 L14A7: RES6,H ;
03233 14A9 0E 10 LDC,010h ;
03234 14AB C9 RET ;
03235 14AC 2A A8 70 L14AC: LDHL,(070A8h) ;*p
03236 14AF 18 09 JRL14BA ;
03237 14B1 CD 81 14 L14B1: CALLL1481 ;
03238 14B4 DC 3C 00 CALLC,L003C ;<
03239 14B7 CD F7 13 CALLL13F7 ;
03240 14BA DF L14BA: RST18H ;
03241 14BB B7 ORA ;
03242 14BC C9 RET ;
03243 14BD C5 L14BD: PUSHBC ;
03244 14BE CD 9F 14 CALLL149F ;
03245 14C1 D3 10 OUT(010h),A ;
03246 14C3 C1 POPBC ;
03247 14C4 C9 RET ;
03248 14C5 C5 L14C5: PUSHBC ;
03249 14C6 CD A1 14 CALLL14A1 ;
03250 14C9 DB 10 INA,(010h) ;
03251 14CB C1 POPBC ;
03252 14CC C9 RET ;
03253 14CD 72 LD(HL),D ;r
03254 14CE 10 72 DJNZL1542 ;r
03255 14D0 10 D5 DJNZL14A7 ;
03256 14D2 13 INCDE ;
03257 14D3 BF CPA ;
03258 14D4 12 LD(DE),A ;
03259 14D5 0A LDA,(BC) ;
03260 14D6 13 INCDE ;
03261 14D7 B3 ORE ;
03262 14D8 12 LD(DE),A ;
03263 14D9 F9 LDSP,HL ;
03264 14DA 12 LD(DE),A ;
03265 14DB 76 HALT ;v
03266 14DC 11 AB 0F LDDE,00FABh ;
03267 14DF 58 LDE,B ;X
03268 14E0 11 F0 10 LDDE,010F0h ;
03269 14E3 B6 OR(HL) ;
03270 14E4 13 INCDE ;
03271 14E5 93 SUBE ;
03272 14E6 13 INCDE ;
03273 14E7 ED 10 DB 0EDh,010h ;
03274 14E9 DA 13 19 JPC,L1913 ;
03275 14EC 0F RRCA ;
03276 14ED 1E 0F LDE,00Fh ;
03277 14EF 44 LDB,H ;D
03278 14F0 0C INCC ;
03279 14F1 1F RRA ;
03280 14F2 0B DECBC ;
03281 14F3 D8 RETC ;
03282 14F4 0D DECC ;
03283 14F5 04 INCB ;
03284 14F6 0D DECC ;
03285 14F7 5C LDE,H ;\
03286 14F8 0C INCC ;
03287 14F9 2E 0E LDL,00Eh ;.
03288 14FB ED 10 DB 0EDh,010h ;
03289 14FD BB CPE ;
03290 14FE 13 INCDE ;
03291 14FF 62 LDH,D ;b
03292 1500 0C INCC ;
03293 1501 31 0E 72 LDSP,0720Eh ;1r
03294 1504 10 FC DJNZL1502 ;
03295 1506 10 FF DJNZL1507 ;
03296 1508 10 F9 DJNZL1503 ;
03297 150A 10 F6 DJNZL1502 ;
03298 150C 10 00 DJNZL150E ;
03299 150E 00 L150E: NOP ;
03300 150F 38 80 JRC,L1491 ;8
03301 1511 3B DECSP ;;
03302 1512 00 NOP ;
03303 1513 28 00 JRZ,L1515 ;(
03304 1515 3B L1515: DECSP ;;
03305 1516 00 NOP ;
03306 1517 20 E1 JRNZ,L14FA ;
03307 1519 00 NOP ;
03308 151A 00 NOP ;
03309 151B 18 20 JRL153D ;
03310 151D 18 20 JRL153F ;
03311 151F 00 NOP ;
03312 1520 00 NOP ;
03313 1521 00 NOP ;
03314 1522 38 00 JRC,L1524 ;8
03315 1524 10 10 L1524: DJNZL1536 ;
03316 1526 08 EXAF,AF’ ;
03317 1527 0E 09 LDC,009h ;
03318 1529 F3 DI ;
03319 152A CD 31 1A CALLL1A31 ;1
03320 152D E5 PUSHHL ;
03321 152E CD C3 15 CALLL15C3 ;
03322 1531 E1 POPHL ;
03323 1532 D8 RETC ;
03324 1533 CD 56 15 CALLL1556 ;V
03325 1536 CD 63 15 L1536: CALLL1563 ;c
03326 1539 18 16 JRL1551 ;
03327 153B B7 L153B: ORA ;
03328 153C 28 07 JRZ,L1545 ;(
03329 153E E5 PUSHHL ;
03330 153F 21 8E 70 L153F: LDHL,0708Eh ;!p
03331 1542 CB CE L1542: SET1,(HL) ;
03332 1544 E1 POPHL ;
03333 1545 F3 L1545: DI ;
03334 1546 CD 56 15 CALLL1556 ;V
03335 1549 CD 79 15 CALLL1579 ;y
03336 154C F5 PUSHAF ;
03337 154D CD 1E 18 CALLL181E ;
03338 1550 F1 POPAF ;
03339 1551 CD 7E 17 L1551: CALLL177E ;~
03340 1554 FB EI ;
03341 1555 C9 RET ;
03342 1556 11 0A 00 L1556: LDDE,0000Ah ;
03343 1559 19 ADDHL,DE ;
03344 155A 5E LDE,(HL) ;^
03345 155B 23 INCHL ;#
03346 155C 56 LDD,(HL) ;V
03347 155D 23 INCHL ;#
03348 155E 4E LDC,(HL) ;N
03349 155F 23 INCHL ;#
03350 1560 46 LDB,(HL) ;F
03351 1561 EB EXDE,HL ;
03352 1562 C9 RET ;
03353 1563 78 L1563: LDA,B ;x
03354 1564 B1 ORC ;
03355 1565 C8 RETZ ;
03356 1566 B7 ORA ;
03357 1567 79 LDA,C ;y
03358 1568 28 01 JRZ,L156B ;(
03359 156A AF XORA ;
03360 156B C5 L156B: PUSHBC ;
03361 156C 47 LDB,A ;G
03362 156D 0E 02 LDC,002h ;
03363 156F CD EB 15 CALLL15EB ;
03364 1572 C1 POPBC ;
03365 1573 D8 RETC ;
03366 1574 05 DECB ;
03367 1575 F2 6B 15 JPP,L156B ;k
03368 1578 C9 RET ;
03369 1579 78 L1579: LDA,B ;x
03370 157A B1 ORC ;
03371 157B C8 RETZ ;
03372 157C C5 PUSHBC ;
03373 157D CD 50 16 CALLL1650 ;P
03374 1580 C1 POPBC ;
03375 1581 D8 RETC ;
03376 1582 05 DECB ;
03377 1583 F2 79 15 JPP,L1579 ;y
03378 1586 C9 RET ;
03379 1587 E5 L1587: PUSHHL ;
03380 1588 D5 PUSHDE ;
03381 1589 CD 98 15 CALLL1598 ;
03382 158C D1 POPDE ;
03383 158D E1 POPHL ;
03384 158E D8 RETC ;
03385 158F 23 INCHL ;#
03386 1590 CD 65 17 CALLL1765 ;e
03387 1593 2B DECHL ;+
03388 1594 DC 42 00 CALLC,L0042 ;B
03389 1597 C9 RET ;
03390 1598 F3 L1598: DI ;
03391 1599 CD 31 1A CALLL1A31 ;1
03392 159C CD 76 17 CALLL1776 ;v
03393 159F E5 PUSHHL ;
03394 15A0 CD D1 16 CALLL16D1 ;
03395 15A3 E1 POPHL ;
03396 15A4 38 3D JRC,L15E3 ;8=
03397 15A6 AF XORA ;
03398 15A7 32 8E 70 LD(0708Eh),A ;2p
03399 15AA 3E 48 LDA,048h ;>H
03400 15AC E5 PUSHHL ;
03401 15AD CD 52 16 CALLL1652 ;R
03402 15B0 E1 POPHL ;
03403 15B1 30 06 JRNC,L15B9 ;0
03404 15B3 FE 8C CP08Ch ;
03405 15B5 28 E1 JRZ,L1598 ;(
03406 15B7 37 SCF ;7
03407 15B8 C9 RET ;
03408 15B9 AF L15B9: XORA ;
03409 15BA CB 5E BIT3,(HL) ;^
03410 15BC 28 01 JRZ,L15BF ;(
03411 15BE 3C INCA ;<
03412 15BF 32 8E 70 L15BF: LD(0708Eh),A ;2p
03413 15C2 C9 RET ;
03414 15C3 CD 76 17 L15C3: CALLL1776 ;v
03415 15C6 01 00 0E LDBC,00E00h ;
03416 15C9 DB 50 L15C9: INA,(050h) ;P
03417 15CB 07 RLCA ;
03418 15CC 38 15 JRC,L15E3 ;8
03419 15CE AF XORA ;
03420 15CF 3D L15CF: DECA ;=
03421 15D0 20 FD JRNZ,L15CF ;
03422 15D2 0B DECBC ;
03423 15D3 B0 ORB ;
03424 15D4 20 F3 JRNZ,L15C9 ;
03425 15D6 32 8E 70 LD(0708Eh),A ;2p
03426 15D9 3E 48 LDA,048h ;>H
03427 15DB 01 1F 1F LDBC,01F1Fh ;
03428 15DE E5 PUSHHL ;
03429 15DF CD ED 15 CALLL15ED ;
03430 15E2 E1 POPHL ;
03431 15E3 DC 41 00 L15E3: CALLC,L0041 ;A
03432 15E6 18 D1 JRL15B9 ;
03433 15E8 3E 46 LDA,046h ;>F
03434 15EA 11 3E 44 LDDE,0443Eh ;>D
03435 15ED CD 76 17 L15ED: CALLL1776 ;v
03436 15F0 57 LDD,A ;W
03437 15F1 C5 PUSHBC ;
03438 15F2 41 LDB,C ;A
03439 15F3 37 L15F3: SCF ;7
03440 15F4 CD 3A 16 CALLL163A ;:
03441 15F7 0B DECBC ;
03442 15F8 78 LDA,B ;x
03443 15F9 B1 ORC ;
03444 15FA 20 F7 JRNZ,L15F3 ;
03445 15FC C1 POPBC ;
03446 15FD CD 26 16 CALLL1626 ;&
03447 1600 50 LDD,B ;P
03448 1601 CD 26 16 CALLL1626 ;&
03449 1604 0E 00 LDC,000h ;
03450 1606 DB 50 L1606: INA,(050h) ;P
03451 1608 07 RLCA ;
03452 1609 38 D8 JRC,L15E3 ;8
03453 160B 3A 8E 70 LDA,(0708Eh) ;:p
03454 160E CB 47 BIT0,A ;G
03455 1610 C4 C5 14 CALLNZ,L14C5 ;
03456 1613 20 01 JRNZ,L1616 ;
03457 1615 7E LDA,(HL) ;~
03458 1616 57 L1616: LDD,A ;W
03459 1617 79 LDA,C ;y
03460 1618 82 ADDA,D ;
03461 1619 4F LDC,A ;O
03462 161A CD 26 16 CALLL1626 ;&
03463 161D 23 INCHL ;#
03464 161E 10 E6 DJNZL1606 ;
03465 1620 51 LDD,C ;Q
03466 1621 CD 26 16 CALLL1626 ;&
03467 1624 B7 ORA ;
03468 1625 C9 RET ;
03469 1626 C5 L1626: PUSHBC ;
03470 1627 06 08 LDB,008h ;
03471 1629 B7 ORA ;
03472 162A CD 3A 16 CALLL163A ;:
03473 162D CB 0A L162D: RRCD ;
03474 162F CD 3A 16 CALLL163A ;:
03475 1632 10 F9 DJNZL162D ;
03476 1634 37 SCF ;7
03477 1635 CD 3A 16 CALLL163A ;:
03478 1638 C1 POPBC ;
03479 1639 C9 RET ;
03480 163A 3E 03 L163A: LDA,003h ;>
03481 163C CD 41 16 CALLL1641 ;A
03482 163F 3E 02 LDA,002h ;>
03483 1641 D3 50 L1641: OUT(050h),A ;P
03484 1643 D4 46 16 CALLNC,L1646 ;F
03485 1646 3A 19 70 L1646: LDA,(07019h) ;:p
03486 1649 3D L1649: DECA ;=
03487 164A 20 FD JRNZ,L1649 ;
03488 164C C9 RET ;
03489 164D 3E 46 LDA,046h ;>F
03490 164F 01 3E 44 LDBC,0443Eh ;>D
03491 1652 CD 76 17 L1652: CALLL1776 ;v
03492 1655 F5 PUSHAF ;
03493 1656 CD 17 17 CALLL1717 ;
03494 1659 CD B6 16 CALLL16B6 ;
03495 165C D1 POPDE ;
03496 165D 38 25 JRC,L1684 ;8%
03497 165F FE 45 CP045h ;E
03498 1661 CC 44 00 CALLZ,L0044 ;D
03499 1664 BA CPD ;
03500 1665 C4 4B 00 CALLNZ,L004B ;K
03501 1668 D5 PUSHDE ;
03502 1669 CD B3 16 CALLL16B3 ;
03503 166C D1 POPDE ;
03504 166D 47 LDB,A ;G
03505 166E 32 90 70 LD(07090h),A ;2p
03506 1671 7A LDA,D ;z
03507 1672 FE 46 CP046h ;F
03508 1674 20 07 JRNZ,L167D ;
03509 1676 3A 91 70 LDA,(07091h) ;:p
03510 1679 B8 CPB ;
03511 167A DC 43 00 CALLC,L0043 ;C
03512 167D 16 00 L167D: LDD,000h ;
03513 167F D5 L167F: PUSHDE ;
03514 1680 CD B3 16 CALLL16B3 ;
03515 1683 D1 POPDE ;
03516 1684 DC 41 00 L1684: CALLC,L0041 ;A
03517 1687 5F LDE,A ;_
03518 1688 3A 8E 70 LDA,(0708Eh) ;:p
03519 168B CB 4F BIT1,A ;O
03520 168D 28 0D JRZ,L169C ;(
03521 168F CB 47 BIT0,A ;G
03522 1691 C4 C5 14 CALLNZ,L14C5 ;
03523 1694 20 01 JRNZ,L1697 ;
03524 1696 7E LDA,(HL) ;~
03525 1697 BB L1697: CPE ;
03526 1698 20 15 JRNZ,L16AF ;
03527 169A 18 09 JRL16A5 ;
03528 169C CB 47 L169C: BIT0,A ;G
03529 169E 7B LDA,E ;{
03530 169F C4 BD 14 CALLNZ,L14BD ;
03531 16A2 20 01 JRNZ,L16A5 ;
03532 16A4 77 LD(HL),A ;w
03533 16A5 82 L16A5: ADDA,D ;
03534 16A6 57 LDD,A ;W
03535 16A7 23 INCHL ;#
03536 16A8 10 D5 DJNZL167F ;
03537 16AA 42 LDB,D ;B
03538 16AB CD B3 16 CALLL16B3 ;
03539 16AE B8 CPB ;
03540 16AF C4 40 00 L16AF: CALLNZ,L0040 ;@
03541 16B2 C9 RET ;
03542 16B3 CD 39 17 L16B3: CALLL1739 ;9
03543 16B6 C5 L16B6: PUSHBC ;
03544 16B7 E5 PUSHHL ;
03545 16B8 06 08 LDB,008h ;
03546 16BA 26 00 LDH,000h ;&
03547 16BC 3A 57 72 LDA,(07257h) ;:Wr
03548 16BF 6F LDL,A ;o
03549 16C0 CD 39 17 L16C0: CALLL1739 ;9
03550 16C3 38 09 JRC,L16CE ;8
03551 16C5 BD CPL ;
03552 16C6 CB 1C RRH ;
03553 16C8 10 F6 DJNZL16C0 ;
03554 16CA CD 39 17 CALLL1739 ;9
03555 16CD 7C LDA,H ;|
03556 16CE E1 L16CE: POPHL ;
03557 16CF C1 POPBC ;
03558 16D0 C9 RET ;
03559 16D1 CD 76 17 L16D1: CALLL1776 ;v
03560 16D4 21 00 00 LDHL,00000h ;!
03561 16D7 22 55 72 LD(07255h),HL ;"Ur
03562 16DA 44 LDB,H ;D
03563 16DB 4D LDC,L ;M
03564 16DC CD 39 17 CALLL1739 ;9
03565 16DF 32 57 72 LD(07257h),A ;2Wr
03566 16E2 CD 39 17 L16E2: CALLL1739 ;9
03567 16E5 D8 RETC ;
03568 16E6 F5 PUSHAF ;
03569 16E7 7A LDA,D ;z
03570 16E8 16 00 LDD,000h ;
03571 16EA 19 ADDHL,DE ;
03572 16EB E5 PUSHHL ;
03573 16EC 2A 55 72 LDHL,(07255h) ;*Ur
03574 16EF 5F LDE,A ;_
03575 16F0 19 ADDHL,DE ;
03576 16F1 22 55 72 LD(07255h),HL ;"Ur
03577 16F4 E1 POPHL ;
03578 16F5 D1 POPDE ;
03579 16F6 3A 57 72 LDA,(07257h) ;:Wr
03580 16F9 92 SUBD ;
03581 16FA C6 0A ADDA,00Ah ;
03582 16FC FE 14 CP014h ;
03583 16FE 30 D1 JRNC,L16D1 ;0
03584 1700 7A LDA,D ;z
03585 1701 32 57 72 LD(07257h),A ;2Wr
03586 1704 10 DC DJNZL16E2 ;
03587 1706 7C LDA,H ;|
03588 1707 CB 3F SRLA ;?
03589 1709 84 ADDA,H ;
03590 170A 2A 55 72 LDHL,(07255h) ;*Ur
03591 170D 6F LDL,A ;o
03592 170E 7C LDA,H ;|
03593 170F CB 3F SRLA ;?
03594 1711 84 ADDA,H ;
03595 1712 67 LDH,A ;g
03596 1713 22 55 72 LD(07255h),HL ;"Ur
03597 1716 C9 RET ;
03598 1717 E5 L1717: PUSHHL ;
03599 1718 0E 00 LDC,000h ;
03600 171A CD 39 17 CALLL1739 ;9
03601 171D 2A 55 72 LDHL,(07255h) ;*Ur
03602 1720 CD 39 17 L1720: CALLL1739 ;9
03603 1723 38 12 JRC,L1737 ;8
03604 1725 7B LDA,E ;{
03605 1726 BD CPL ;
03606 1727 38 F7 JRC,L1720 ;8
03607 1729 7A LDA,D ;z
03608 172A BC CPH ;
03609 172B 30 05 JRNC,L1732 ;0
03610 172D 0E 02 LDC,002h ;
03611 172F CD 39 17 CALLL1739 ;9
03612 1732 7C L1732: LDA,H ;|
03613 1733 85 ADDA,L ;
03614 1734 32 57 72 LD(07257h),A ;2Wr
03615 1737 E1 L1737: POPHL ;
03616 1738 C9 RET ;
03617 1739 DB 50 L1739: INA,(050h) ;P
03618 173B 07 RLCA ;
03619 173C D8 RETC ;
03620 173D E6 02 AND002h ;
03621 173F A9 XORC ;
03622 1740 20 F7 JRNZ,L1739 ;
03623 1742 DB 01 INA,(001h) ;
03624 1744 57 LDD,A ;W
03625 1745 DB 50 L1745: INA,(050h) ;P
03626 1747 07 RLCA ;
03627 1748 D8 RETC ;
03628 1749 E6 02 AND002h ;
03629 174B A9 XORC ;
03630 174C 28 F7 JRZ,L1745 ;(
03631 174E DB 01 INA,(001h) ;
03632 1750 5F LDE,A ;_
03633 1751 3E 07 LDA,007h ;>
03634 1753 D3 01 OUT(001h),A ;
03635 1755 AF XORA ;
03636 1756 D3 01 OUT(001h),A ;
03637 1758 7A LDA,D ;z
03638 1759 ED 44 NEG ;D
03639 175B 57 LDD,A ;W
03640 175C 7B LDA,E ;{
03641 175D ED 44 NEG ;D
03642 175F F5 PUSHAF ;
03643 1760 92 SUBD ;
03644 1761 5F LDE,A ;_
03645 1762 F1 POPAF ;
03646 1763 B7 ORA ;
03647 1764 C9 RET ;
03648 1765 E5 L1765: PUSHHL ;
03649 1766 1A L1766: LDA,(DE) ;
03650 1767 FE 3F CP03Fh ;?
03651 1769 28 09 JRZ,L1774 ;(
03652 176B BE CP(HL) ;
03653 176C 37 SCF ;7
03654 176D 20 05 JRNZ,L1774 ;
03655 176F 13 INCDE ;
03656 1770 23 INCHL ;#
03657 1771 B7 ORA ;
03658 1772 20 F2 JRNZ,L1766 ;
03659 1774 E1 L1774: POPHL ;
03660 1775 C9 RET ;
03661 1776 F5 L1776: PUSHAF ;
03662 1777 AF XORA ;
03663 1778 D3 40 OUT(040h),A ;@
03664 177A 3E 02 LDA,002h ;>
03665 177C 18 02 JRL1780 ;
03666 177E F5 L177E: PUSHAF ;
03667 177F AF XORA ;
03668 1780 D3 50 L1780: OUT(050h),A ;P
03669 1782 F1 POPAF ;
03670 1783 C9 RET ;
03671 1784 E5 L1784: PUSHHL ;
03672 1785 21 5B 70 LDHL,0705Bh ;![p
03673 1788 7E LDA,(HL) ;~
03674 1789 23 INCHL ;#
03675 178A BE CP(HL) ;
03676 178B E1 POPHL ;
03677 178C C0 RETNZ ;
03678 178D CB 4B BIT1,E ;K
03679 178F C8 RETZ ;
03680 1790 3E 0D LDA,00Dh ;>
03681 1792 18 05 JRL1799 ;
03682 1794 CB 43 L1794: BIT0,E ;C
03683 1796 C8 RETZ ;
03684 1797 3E 0A LDA,00Ah ;>
03685 1799 D5 L1799: PUSHDE ;
03686 179A E5 PUSHHL ;
03687 179B 57 LDD,A ;W
03688 179C DB 50 L179C: INA,(050h) ;P
03689 179E CB 4F BIT1,A ;O
03690 17A0 28 FA JRZ,L179C ;(
03691 17A2 7A LDA,D ;z
03692 17A3 D3 40 OUT(040h),A ;@
03693 17A5 3E 01 LDA,001h ;>
03694 17A7 D3 50 OUT(050h),A ;P
03695 17A9 3E 0B LDA,00Bh ;>
03696 17AB 3D L17AB: DECA ;=
03697 17AC 20 FD JRNZ,L17AB ;
03698 17AE D3 50 OUT(050h),A ;P
03699 17B0 7A LDA,D ;z
03700 17B1 21 5C 70 LDHL,0705Ch ;!\p
03701 17B4 34 INC(HL) ;4
03702 17B5 FE 0D CP00Dh ;
03703 17B7 20 0B JRNZ,L17C4 ;
03704 17B9 3A 5A 70 LDA,(0705Ah) ;:Zp
03705 17BC 5F LDE,A ;_
03706 17BD CD 94 17 CALLL1794 ;
03707 17C0 3E 0D LDA,00Dh ;>
03708 17C2 36 00 LD(HL),000h ;6
03709 17C4 E1 L17C4: POPHL ;
03710 17C5 D1 POPDE ;
03711 17C6 C9 RET ;
03712 17C7 3A 5A 70 LDA,(0705Ah) ;:Zp
03713 17CA 5F LDE,A ;_
03714 17CB 7E L17CB: LDA,(HL) ;~
03715 17CC 23 INCHL ;#
03716 17CD B7 ORA ;
03717 17CE C8 RETZ ;
03718 17CF FE 09 CP009h ;
03719 17D1 28 19 JRZ,L17EC ;(
03720 17D3 FE 20 CP020h ;
03721 17D5 30 04 JRNC,L17DB ;0
03722 17D7 FE 0D CP00Dh ;
03723 17D9 20 0C JRNZ,L17E7 ;
03724 17DB CD 99 17 L17DB: CALLL1799 ;
03725 17DE FE 0D CP00Dh ;
03726 17E0 20 02 JRNZ,L17E4 ;
03727 17E2 05 DECB ;
03728 17E3 C9 RET ;
03729 17E4 CD 84 17 L17E4: CALLL1784 ;
03730 17E7 05 L17E7: DECB ;
03731 17E8 20 E1 JRNZ,L17CB ;
03732 17EA 7A LDA,D ;z
03733 17EB C9 RET ;
03734 17EC CB 53 L17EC: BIT2,E ;S
03735 17EE 28 F7 JRZ,L17E7 ;(
03736 17F0 3A 5C 70 LDA,(0705Ch) ;:\p
03737 17F3 2F CPL ;/
03738 17F4 E6 07 AND007h ;
03739 17F6 3C INCA ;<
03740 17F7 4F LDC,A ;O
03741 17F8 3E 20 L17F8: LDA,020h ;>
03742 17FA CD 99 17 CALLL1799 ;
03743 17FD CD 84 17 CALLL1784 ;
03744 1800 0D DECC ;
03745 1801 20 F5 JRNZ,L17F8 ;
03746 1803 18 E2 JRL17E7 ;
03747 1805 7E L1805: LDA,(HL) ;~
03748 1806 CD 99 17 CALLL1799 ;
03749 1809 0B DECBC ;
03750 180A 78 LDA,B ;x
03751 180B B1 ORC ;
03752 180C 7E LDA,(HL) ;~
03753 180D 23 INCHL ;#
03754 180E 20 F5 JRNZ,L1805 ;
03755 1810 C9 RET ;
03756 1811 F3 L1811: DI ;
03757 1812 21 54 18 LDHL,01854h ;!T
03758 1815 22 5D 70 LD(0705Dh),HL ;"]p
03759 1818 21 79 1A LDHL,01A79h ;!y
03760 181B 22 5F 70 LD(0705Fh),HL ;"_p
03761 181E F3 L181E: DI ;
03762 181F 21 1F 1F LDHL,01F1Fh ;!
03763 1822 22 61 70 LD(07061h),HL ;"ap
03764 1825 AF XORA ;
03765 1826 32 63 70 LD(07063h),A ;2cp
03766 1829 3E 03 LDA,003h ;>
03767 182B 21 5F 71 LDHL,0715Fh ;!_q
03768 182E 11 64 70 LDDE,07064h ;dp
03769 1831 EB L1831: EXDE,HL ;
03770 1832 73 LD(HL),E ;s
03771 1833 23 INCHL ;#
03772 1834 72 LD(HL),D ;r
03773 1835 23 INCHL ;#
03774 1836 EB EXDE,HL ;
03775 1837 E5 PUSHHL ;
03776 1838 21 55 18 LDHL,01855h ;!U
03777 183B 01 0C 00 LDBC,0000Ch ;
03778 183E ED B0 LDIR ;
03779 1840 E1 POPHL ;
03780 1841 01 20 00 LDBC,00020h ;
03781 1844 09 ADDHL,BC ;
03782 1845 3D DECA ;=
03783 1846 20 E9 JRNZ,L1831 ;
03784 1848 CD 31 1A CALLL1A31 ;1
03785 184B 3E A7 LDA,0A7h ;>
03786 184D D3 01 OUT(001h),A ;
03787 184F 3E 0E LDA,00Eh ;>
03788 1851 D3 01 OUT(001h),A ;
03789 1853 FB EI ;
03790 1854 C9 RET ;
03791 1855 20 00 JRNZ,L1857 ;
03792 1857 00 L1857: NOP ;
03793 1858 07 RLCA ;
03794 1859 00 NOP ;
03795 185A 02 LD(BC),A ;
03796 185B 10 00 DJNZL185D ;
03797 185D 00 L185D: NOP ;
03798 185E 10 00 DJNZL1860 ;
03799 1860 00 L1860: NOP ;
03800 1861 F5 PUSHAF ;
03801 1862 E5 PUSHHL ;
03802 1863 21 62 70 LDHL,07062h ;!bp
03803 1866 35 DEC(HL) ;5
03804 1867 CC 6F 18 CALLZ,L186F ;o
03805 186A E1 POPHL ;
03806 186B F1 POPAF ;
03807 186C FB EI ;
03808 186D ED 4D L186D: RETI ;M
03809 186F C5 L186F: PUSHBC ;
03810 1870 D5 PUSHDE ;
03811 1871 DD E5 PUSHIX ;
03812 1873 06 02 LDB,002h ;
03813 1875 CD 4A 1A L1875: CALLL1A4A ;J
03814 1878 E5 PUSHHL ;
03815 1879 DD E1 POPIX ;
03816 187B DD 7E 0C LDA,(IX+12) ;~
03817 187E B7 ORA ;
03818 187F 28 08 JRZ,L1889 ;(
03819 1881 DD 35 0C DEC(IX+12) ;5
03820 1884 20 16 JRNZ,L189C ;
03821 1886 CD 38 1A CALLL1A38 ;8
03822 1889 DD 4E 04 L1889: LDC,(IX+4) ;N
03823 188C CD F5 18 CALLL18F5 ;
03824 188F 38 0B JRC,L189C ;8
03825 1891 F5 PUSHAF ;
03826 1892 2A 5D 70 LDHL,(0705Dh) ;*]p
03827 1895 CD FE 05 CALLL05FE ;
03828 1898 F1 POPAF ;
03829 1899 B7 ORA ;
03830 189A 28 ED JRZ,L1889 ;(
03831 189C DD 7E 0A L189C: LDA,(IX+10) ;~
03832 189F B7 ORA ;
03833 18A0 28 05 JRZ,L18A7 ;(
03834 18A2 CD C2 18 CALLL18C2 ;
03835 18A5 18 0C JRL18B3 ;
03836 18A7 DD 7E 0C L18A7: LDA,(IX+12) ;~
03837 18AA B7 ORA ;
03838 18AB 28 06 JRZ,L18B3 ;(
03839 18AD DD 35 0D DEC(IX+13) ;5
03840 18B0 CC 38 1A CALLZ,L1A38 ;8
03841 18B3 05 L18B3: DECB ;
03842 18B4 F2 75 18 JPP,L1875 ;u
03843 18B7 3A 61 70 LDA,(07061h) ;:ap
03844 18BA 32 62 70 LD(07062h),A ;2bp
03845 18BD DD E1 POPIX ;
03846 18BF D1 POPDE ;
03847 18C0 C1 POPBC ;
03848 18C1 C9 RET ;
03849 18C2 DD 7E 0B L18C2: LDA,(IX+11) ;~
03850 18C5 FE 10 CP010h ;
03851 18C7 C8 RETZ ;
03852 18C8 DD 35 0D DEC(IX+13) ;5
03853 18CB 20 06 JRNZ,L18D3 ;
03854 18CD DD 36 0B 08 LD(IX+11),008h ;6
03855 18D1 18 03 JRL18D6 ;
03856 18D3 FE 08 L18D3: CP008h ;
03857 18D5 C8 RETZ ;
03858 18D6 DD 6E 09 L18D6: LDL,(IX+9) ;n
03859 18D9 DD 66 0A LDH,(IX+10) ;f
03860 18DC DD 5E 0B LDE,(IX+11) ;^
03861 18DF CB 3B SRLE ;;
03862 18E1 F5 PUSHAF ;
03863 18E2 16 00 LDD,000h ;
03864 18E4 19 ADDHL,DE ;
03865 18E5 56 LDD,(HL) ;V
03866 18E6 F1 POPAF ;
03867 18E7 7A LDA,D ;z
03868 18E8 38 04 JRC,L18EE ;8
03869 18EA 0F RRCA ;
03870 18EB 0F RRCA ;
03871 18EC 0F RRCA ;
03872 18ED 0F RRCA ;
03873 18EE CD 3A 1A L18EE: CALLL1A3A ;:
03874 18F1 DD 34 0B INC(IX+11) ;4
03875 18F4 C9 RET ;
03876 18F5 C5 L18F5: PUSHBC ;
03877 18F6 CD 59 1A CALLL1A59 ;Y
03878 18F9 38 0D JRC,L1908 ;8
03879 18FB 4F LDC,A ;O
03880 18FC 0F RRCA ;
03881 18FD 0F RRCA ;
03882 18FE 0F RRCA ;
03883 18FF 0F RRCA ;
03884 1900 E6 07 AND007h ;
03885 1902 21 0A 19 LDHL,0190Ah ;!
03886 1905 CD 76 10 CALLL1076 ;v
03887 1908 C1 L1908: POPBC ;
03888 1909 C9 RET ;
03889 190A 1A LDA,(DE) ;
03890 190B 19 ADDHL,DE ;
03891 190C 32 19 A1 LD(0A119h),A ;2
03892 190F 19 ADDHL,DE ;
03893 1910 B4 ORH ;
03894 1911 19 ADDHL,DE ;
03895 1912 C0 RETNZ ;
03896 1913 19 L1913: ADDHL,DE ;
03897 1914 DB 19 INA,(019h) ;
03898 1916 E3 EX(SP),HL ;
03899 1917 19 ADDHL,DE ;
03900 1918 EB EXDE,HL ;
03901 1919 19 ADDHL,DE ;
03902 191A 79 LDA,C ;y
03903 191B E6 0F AND00Fh ;
03904 191D 28 0B JRZ,L192A ;(
03905 191F 3D DECA ;=
03906 1920 C5 PUSHBC ;
03907 1921 DD 4E 07 LDC,(IX+7) ;N
03908 1924 CD 01 1A CALLL1A01 ;
03909 1927 C1 POPBC ;
03910 1928 18 1E JRL1948 ;
03911 192A CD 51 19 L192A: CALLL1951 ;Q
03912 192D DD 36 0B 10 LD(IX+11),010h ;6
03913 1931 C9 RET ;
03914 1932 CD 59 1A CALLL1A59 ;Y
03915 1935 4F LDC,A ;O
03916 1936 C5 PUSHBC ;
03917 1937 CB BF RES7,A ;
03918 1939 3D DECA ;=
03919 193A 11 0C 00 LDDE,0000Ch ;
03920 193D 14 L193D: INCD ;
03921 193E 93 SUBE ;
03922 193F 30 FC JRNC,L193D ;0
03923 1941 15 DECD ;
03924 1942 83 ADDA,E ;
03925 1943 4A LDC,D ;J
03926 1944 CD 01 1A CALLL1A01 ;
03927 1947 C1 POPBC ;
03928 1948 DD 7E 0A L1948: LDA,(IX+10) ;~
03929 194B B7 ORA ;
03930 194C DD 7E 06 LDA,(IX+6) ;~
03931 194F 28 02 JRZ,L1953 ;(
03932 1951 3E 0F L1951: LDA,00Fh ;>
03933 1953 51 L1953: LDD,C ;Q
03934 1954 CD 3A 1A CALLL1A3A ;:
03935 1957 CB 7A BIT7,D ;z
03936 1959 DD 7E 08 LDA,(IX+8) ;~
03937 195C C4 59 1A CALLNZ,L1A59 ;Y
03938 195F DD 77 0C LD(IX+12),A ;w
03939 1962 6F LDL,A ;o
03940 1963 26 00 LDH,000h ;&
03941 1965 54 LDD,H ;T
03942 1966 5D LDE,L ;]
03943 1967 DD 7E 05 LDA,(IX+5) ;~
03944 196A B7 ORA ;
03945 196B 20 03 JRNZ,L1970 ;
03946 196D 6F LDL,A ;o
03947 196E 18 06 JRL1976 ;
03948 1970 3D L1970: DECA ;=
03949 1971 28 03 JRZ,L1976 ;(
03950 1973 19 ADDHL,DE ;
03951 1974 18 FA JRL1970 ;
03952 1976 06 03 L1976: LDB,003h ;
03953 1978 CB 3C L1978: SRLH ;<
03954 197A CB 1D RRL ;
03955 197C 10 FA DJNZL1978 ;
03956 197E 2C INCL ;,
03957 197F DD 75 0D LD(IX+13),L ;u
03958 1982 DD 36 0B 00 LD(IX+11),000h ;6
03959 1986 AF XORA ;
03960 1987 3D DECA ;=
03961 1988 C9 RET ;
03962 1989 35 DEC(HL) ;5
03963 198A 70 LD(HL),B ;p
03964 198B 32 70 2F LD(02F70h),A ;2p/
03965 198E A0 ANDB ;
03966 198F 2C INCL ;,
03967 1990 F0 RETP ;
03968 1991 2A 70 28 LDHL,(02870h) ;*p(
03969 1994 10 25 DJNZL19BB ;%
03970 1996 D0 RETNC ;
03971 1997 23 INCHL ;#
03972 1998 B0 ORB ;
03973 1999 21 B0 1F LDHL,01FB0h ;!
03974 199C C0 RETNZ ;
03975 199D 1E 00 LDE,000h ;
03976 199F 1C INCE ;
03977 19A0 50 LDD,B ;P
03978 19A1 79 LDA,C ;y
03979 19A2 CB 7F BIT7,A ;
03980 19A4 20 07 JRNZ,L19AD ;
03981 19A6 E6 07 AND007h ;
03982 19A8 DD 77 07 LD(IX+7),A ;w
03983 19AB AF XORA ;
03984 19AC C9 RET ;
03985 19AD E6 0F L19AD: AND00Fh ;
03986 19AF 32 63 70 LD(07063h),A ;2cp
03987 19B2 AF XORA ;
03988 19B3 C9 RET ;
03989 19B4 79 LDA,C ;y
03990 19B5 E6 0F AND00Fh ;
03991 19B7 D6 0F SUB00Fh ;
03992 19B9 ED 44 NEG ;D
03993 19BB DD 77 06 L19BB: LD(IX+6),A ;w
03994 19BE AF XORA ;
03995 19BF C9 RET ;
03996 19C0 79 LDA,C ;y
03997 19C1 E6 07 AND007h ;
03998 19C3 21 00 00 LDHL,00000h ;!
03999 19C6 28 0B JRZ,L19D3 ;(
04000 19C8 3D DECA ;=
04001 19C9 87 ADDA,A ;
04002 19CA 87 ADDA,A ;
04003 19CB 87 ADDA,A ;
04004 19CC 5F LDE,A ;_
04005 19CD 16 00 LDD,000h ;
04006 19CF 2A 5F 70 LDHL,(0705Fh) ;*_p
04007 19D2 19 ADDHL,DE ;
04008 19D3 DD 75 09 L19D3: LD(IX+9),L ;u
04009 19D6 DD 74 0A LD(IX+10),H ;t
04010 19D9 AF XORA ;
04011 19DA C9 RET ;
04012 19DB 79 LDA,C ;y
04013 19DC E6 0F AND00Fh ;
04014 19DE DD 77 05 LD(IX+5),A ;w
04015 19E1 AF XORA ;
04016 19E2 C9 RET ;
04017 19E3 CD 59 1A CALLL1A59 ;Y
04018 19E6 DD 77 08 LD(IX+8),A ;w
04019 19E9 AF XORA ;
04020 19EA C9 RET ;
04021 19EB CD 59 1A CALLL1A59 ;Y
04022 19EE 5F LDE,A ;_
04023 19EF 16 00 LDD,000h ;
04024 19F1 21 4C 1D LDHL,01D4Ch ;!L
04025 19F4 19 ADDHL,DE ;
04026 19F5 CD 51 01 CALLL0151 ;Q
04027 19F8 7D LDA,L ;}
04028 19F9 CB 3C SRLH ;<
04029 19FB 1F RRA ;
04030 19FC 32 61 70 LD(07061h),A ;2ap
04031 19FF AF XORA ;
04032 1A00 C9 RET ;
04033 1A01 57 L1A01: LDD,A ;W
04034 1A02 3A 63 70 LDA,(07063h) ;:cp
04035 1A05 82 ADDA,D ;
04036 1A06 FE 0C CP00Ch ;
04037 1A08 38 03 JRC,L1A0D ;8
04038 1A0A 0C INCC ;
04039 1A0B D6 0C SUB00Ch ;
04040 1A0D 87 L1A0D: ADDA,A ;
04041 1A0E 5F LDE,A ;_
04042 1A0F 16 00 LDD,000h ;
04043 1A11 21 89 19 LDHL,01989h ;!
04044 1A14 19 ADDHL,DE ;
04045 1A15 56 LDD,(HL) ;V
04046 1A16 23 INCHL ;#
04047 1A17 5E LDE,(HL) ;^
04048 1A18 79 LDA,C ;y
04049 1A19 E6 07 AND007h ;
04050 1A1B 28 07 JRZ,L1A24 ;(
04051 1A1D CB 3A L1A1D: SRLD ;:
04052 1A1F CB 1B RRE ;
04053 1A21 3D DECA ;=
04054 1A22 20 F9 JRNZ,L1A1D ;
04055 1A24 7B L1A24: LDA,E ;{
04056 1A25 0F RRCA ;
04057 1A26 0F RRCA ;
04058 1A27 0F RRCA ;
04059 1A28 0F RRCA ;
04060 1A29 0E 80 LDC,080h ;
04061 1A2B CD 3C 1A CALLL1A3C ;<
04062 1A2E 7A LDA,D ;z
04063 1A2F 18 16 JRL1A47 ;
04064 1A31 06 03 L1A31: LDB,003h ;
04065 1A33 CD 38 1A L1A33: CALLL1A38 ;8
04066 1A36 10 FB DJNZL1A33 ;
04067 1A38 3E 0F L1A38: LDA,00Fh ;>
04068 1A3A 0E 90 L1A3A: LDC,090h ;
04069 1A3C E6 0F L1A3C: AND00Fh ;
04070 1A3E 5F LDE,A ;_
04071 1A3F 78 LDA,B ;x
04072 1A40 0F RRCA ;
04073 1A41 0F RRCA ;
04074 1A42 0F RRCA ;
04075 1A43 E6 60 AND060h ;`
04076 1A45 B3 ORE ;
04077 1A46 B1 ORC ;
04078 1A47 D3 20 L1A47: OUT(020h),A ;
04079 1A49 C9 RET ;
04080 1A4A 78 L1A4A: LDA,B ;x
04081 1A4B 87 ADDA,A ;
04082 1A4C 87 ADDA,A ;
04083 1A4D 87 ADDA,A ;
04084 1A4E 87 ADDA,A ;
04085 1A4F 90 SUBB ;
04086 1A50 90 SUBB ;
04087 1A51 5F LDE,A ;_
04088 1A52 16 00 LDD,000h ;
04089 1A54 21 64 70 LDHL,07064h ;!dp
04090 1A57 19 ADDHL,DE ;
04091 1A58 C9 RET ;
04092 1A59 C5 L1A59: PUSHBC ;
04093 1A5A DD E5 PUSHIX ;
04094 1A5C E1 POPHL ;
04095 1A5D 5E LDE,(HL) ;^
04096 1A5E 23 INCHL ;#
04097 1A5F 56 LDD,(HL) ;V
04098 1A60 23 INCHL ;#
04099 1A61 46 LDB,(HL) ;F
04100 1A62 23 INCHL ;#
04101 1A63 7E LDA,(HL) ;~
04102 1A64 23 INCHL ;#
04103 1A65 BE CP(HL) ;
04104 1A66 37 SCF ;7
04105 1A67 28 0E JRZ,L1A77 ;(
04106 1A69 4E LDC,(HL) ;N
04107 1A6A 79 LDA,C ;y
04108 1A6B 3C INCA ;<
04109 1A6C B8 CPB ;
04110 1A6D 38 01 JRC,L1A70 ;8
04111 1A6F AF XORA ;
04112 1A70 77 L1A70: LD(HL),A ;w
04113 1A71 06 00 LDB,000h ;
04114 1A73 EB EXDE,HL ;
04115 1A74 09 ADDHL,BC ;
04116 1A75 7E LDA,(HL) ;~
04117 1A76 B7 ORA ;
04118 1A77 C1 L1A77: POPBC ;
04119 1A78 C9 RET ;
04120 1A79 01 23 45 LDBC,04523h ;#E
04121 1A7C 67 LDH,A ;g
04122 1A7D 89 ADCA,C ;
04123 1A7E AB XORE ;
04124 1A7F CD EF FE CALLLFEEF ;
04125 1A82 DC BA 98 CALLC,L98BA ;
04126 1A85 76 HALT ;v
04127 1A86 54 LDD,H ;T
04128 1A87 32 1F 01 LD(0011Fh),A ;2
04129 1A8A 23 INCHL ;#
04130 1A8B 45 LDB,L ;E
04131 1A8C 67 LDH,A ;g
04132 1A8D 76 HALT ;v
04133 1A8E 54 LDD,H ;T
04134 1A8F 32 1F 76 LD(0761Fh),A ;2v
04135 1A92 54 LDD,H ;T
04136 1A93 32 10 12 LD(01210h),A ;2
04137 1A96 34 INC(HL) ;4
04138 1A97 56 LDD,(HL) ;V
04139 1A98 7F LDA,A ;
04140 1A99 02 LD(BC),A ;
04141 1A9A 46 L1A9A: LDB,(HL) ;F
04142 1A9B 8A ADCA,D ;
04143 1A9C CE 24 ADCA,024h ;$
04144 1A9E 68 LDL,B ;h
04145 1A9F AC XORH ;
04146 1AA0 EF RST28H ;
04147 1AA1 FC 84 01 CALLM,L0184 ;
04148 1AA4 23 INCHL ;#
04149 1AA5 45 LDB,L ;E
04150 1AA6 67 LDH,A ;g
04151 1AA7 89 ADCA,C ;
04152 1AA8 AF XORA ;
04153 1AA9 FC 84 01 CALLM,L0184 ;
04154 1AAC 23 INCHL ;#
04155 1AAD 45 LDB,L ;E
04156 1AAE 43 LDB,E ;C
04157 1AAF 21 0F 00 LDHL,0000Fh ;!
04158 1AB2 08 EXAF,AF’ ;
04159 1AB3 04 INCB ;
04160 1AB4 FE 04 CP004h ;
04161 1AB6 08 EXAF,AF’ ;
04162 1AB7 00 NOP ;
04163 1AB8 00 NOP ;
04164 1AB9 00 NOP ;
04165 1ABA 20 40 JRNZ,L1AFC ; @
04166 1ABC FE 40 CP040h ;@
04167 1ABE 20 00 JRNZ,L1AC0 ;
04168 1AC0 00 L1AC0: NOP ;
04169 1AC1 10 38 DJNZL1AFB ;8
04170 1AC3 54 LDD,H ;T
04171 1AC4 10 10 DJNZL1AD6 ;
04172 1AC6 10 10 DJNZL1AD8 ;
04173 1AC8 00 NOP ;
04174 1AC9 10 10 DJNZL1ADB ;
04175 1ACB 10 10 DJNZL1ADD ;
04176 1ACD 54 LDD,H ;T
04177 1ACE 38 10 JRC,L1AE0 ;8
04178 1AD0 00 NOP ;
04179 1AD1 80 ADDA,B ;
04180 1AD2 80 ADDA,B ;
04181 1AD3 80 ADDA,B ;
04182 1AD4 80 ADDA,B ;
04183 1AD5 00 NOP ;
04184 1AD6 00 L1AD6: NOP ;
04185 1AD7 80 ADDA,B ;
04186 1AD8 28 28 L1AD8: JRZ,L1B02 ;((
04187 1ADA A8 XORB ;
04188 1ADB 00 L1ADB: NOP ;
04189 1ADC 80 ADDA,B ;
04190 1ADD 00 L1ADD: NOP ;
04191 1ADE 00 NOP ;
04192 1ADF 45 LDB,L ;E
04193 1AE0 F5 L1AE0: PUSHAF ;
04194 1AE1 4F LDC,A ;O
04195 1AE2 E5 PUSHHL ;
04196 1AE3 5F LDE,A ;_
04197 1AE4 E5 PUSHHL ;
04198 1AE5 45 LDB,L ;E
04199 1AE6 30 B2 JRNC,L1A9A ;0
04200 1AE8 05 DECB ;
04201 1AE9 08 EXAF,AF’ ;
04202 1AEA 50 LDD,B ;P
04203 1AEB A7 ANDA ;
04204 1AEC 46 LDB,(HL) ;F
04205 1AED 63 LDH,E ;c
04206 1AEE 24 INCH ;$
04207 1AEF 45 LDB,L ;E
04208 1AF0 02 LD(BC),A ;
04209 1AF1 05 DECB ;
04210 1AF2 04 INCB ;
04211 1AF3 03 INCBC ;
04212 1AF4 02 LD(BC),A ;
04213 1AF5 84 ADDA,H ;
04214 1AF6 48 LDC,B ;H
04215 1AF7 48 LDC,B ;H
04216 1AF8 48 LDC,B ;H
04217 1AF9 84 ADDA,H ;
04218 1AFA 02 LD(BC),A ;
04219 1AFB 01 10 54 L1AFB: LDBC,05410h ;T
04220 1AFE B8 CPB ;
04221 1AFF 54 LDD,H ;T
04222 1B00 10 01 DJNZL1B03 ;
04223 1B02 00 L1B02: NOP ;
04224 1B03 02 L1B03: LD(BC),A ;
04225 1B04 02 LD(BC),A ;
04226 1B05 0F RRCA ;
04227 1B06 C2 42 80 JPNZ,L8042 ;B
04228 1B09 00 NOP ;
04229 1B0A 00 NOP ;
04230 1B0B 00 NOP ;
04231 1B0C 3E 00 LDA,000h ;>
04232 1B0E 00 NOP ;
04233 1B0F 00 NOP ;
04234 1B10 00 NOP ;
04235 1B11 08 EXAF,AF’ ;
04236 1B12 10 20 DJNZL1B34 ;
04237 1B14 40 LDB,B ;@
04238 1B15 83 ADDA,E ;
04239 1B16 03 INCBC ;
04240 1B17 8E ADCA,(HL) ;
04241 1B18 91 SUBC ;
04242 1B19 93 SUBE ;
04243 1B1A 95 SUBL ;
04244 1B1B 99 SBCA,C ;
04245 1B1C 91 SUBC ;
04246 1B1D CE B8 ADCA,0B8h ;
04247 1B1F 45 LDB,L ;E
04248 1B20 04 INCB ;
04249 1B21 08 EXAF,AF’ ;
04250 1B22 90 SUBB ;
04251 1B23 A0 ANDB ;
04252 1B24 7D LDA,L ;}
04253 1B25 2F CPL ;/
04254 1B26 61 LDH,C ;a
04255 1B27 A2 ANDD ;
04256 1B28 21 F0 28 LDHL,028F0h ;!(
04257 1B2B 27 DAA ;'
04258 1B2C BE CP(HL) ;
04259 1B2D 20 3C JRNZ,L1B6B ; <
04260 1B2F 83 ADDA,E ;
04261 1B30 43 LDB,E ;C
04262 1B31 62 LDH,D ;b
04263 1B32 9C SBCA,H ;
04264 1B33 F9 LDSP,HL ;
04265 1B34 0A L1B34: LDA,(BC) ;
04266 1B35 14 INCD ;
04267 1B36 27 DAA ;'
04268 1B37 44 LDB,H ;D
04269 1B38 44 LDB,H ;D
04270 1B39 43 L1B39: LDB,E ;C
04271 1B3A CE 31 ADCA,031h ;1
04272 1B3C 31 EE 31 LDSP,031EEh ;11
04273 1B3F 51 LDD,C ;Q
04274 1B40 8E ADCA,(HL) ;
04275 1B41 01 32 32 LDBC,03232h ;22
04276 1B44 01 30 30 LDBC,03030h ;00
04277 1B47 01 20 46 LDBC,04620h ; F
04278 1B4A 86 ADDA,(HL) ;
04279 1B4B 00 NOP ;
04280 1B4C 86 ADDA,(HL) ;
04281 1B4D 42 LDB,D ;B
04282 1B4E 24 INCH ;$
04283 1B4F 00 NOP ;
04284 1B50 00 NOP ;
04285 1B51 3E 81 LDA,081h ;>
04286 1B53 3E 00 LDA,000h ;>
04287 1B55 00 NOP ;
04288 1B56 74 LD(HL),H ;t
04289 1B57 8A ADCA,D ;
04290 1B58 09 ADDHL,BC ;
04291 1B59 10 21 DJNZL1B7C ;!
04292 1B5B 02 LD(BC),A ;
04293 1B5C 24 INCH ;$
04294 1B5D CE 31 ADCA,031h ;1
04295 1B5F 21 2D F5 LDHL,0F52Dh ;!-
04296 1B62 35 DEC(HL) ;5
04297 1B63 2E 79 LDL,079h ;.y
04298 1B65 C6 46 ADDA,046h ;F
04299 1B67 7A LDA,D ;z
04300 1B68 47 LDB,A ;G
04301 1B69 C6 7A ADDA,07Ah ;z
04302 1B6B C7 L1B6B: RST0H ;
04303 1B6C 28 18 JRZ,L1B86 ;(
04304 1B6E 18 18 JRL1B88 ;
04305 1B70 28 C7 JRZ,L1B39 ;(
04306 1B72 FF RST38H ;
04307 1B73 21 21 BD LDHL,0BD21h ;!!
04308 1B76 21 21 3F LDHL,03F21h ;!!?
04309 1B79 77 LD(HL),A ;w
04310 1B7A 8C ADCA,H ;
04311 1B7B 84 ADDA,H ;
04312 1B7C BF L1B7C: CPA ;
04313 1B7D 8C ADCA,H ;
04314 1B7E 8C ADCA,H ;
04315 1B7F 7C LDA,H ;|
04316 1B80 D1 POPDE ;
04317 1B81 91 SUBC ;
04318 1B82 91 SUBC ;
04319 1B83 9F SBCA,A ;
04320 1B84 91 SUBC ;
04321 1B85 91 SUBC ;
04322 1B86 D1 L1B86: POPDE ;
04323 1B87 9D SBCA,L ;
04324 1B88 08 L1B88: EXAF,AF’ ;
04325 1B89 08 EXAF,AF’ ;
04326 1B8A 08 EXAF,AF’ ;
04327 1B8B 08 EXAF,AF’ ;
04328 1B8C 48 LDC,B ;H
04329 1B8D B1 ORC ;
04330 1B8E 08 EXAF,AF’ ;
04331 1B8F 09 ADDHL,BC ;
04332 1B90 0A LDA,(BC) ;
04333 1B91 0C INCC ;
04334 1B92 0A LDA,(BC) ;
04335 1B93 09 ADDHL,BC ;
04336 1B94 F8 RETM ;
04337 1B95 63 LDH,E ;c
04338 1B96 77 LD(HL),A ;w
04339 1B97 6B LDL,E ;k
'◆ FC-150' 카테고리의 다른 글
FC-150, TMS9918 & Z80-CTC (0) | 2012.04.14 |
---|---|
FC-150이 내가 가지고 있는 가장 Smart한 Z80머신 입니다 (2) | 2011.07.03 |
FC-150과 BASIC-W&Game 합본팩 (1) | 2011.06.15 |
FC-150 (Sord m5 emulator) (2) | 2011.06.13 |
SC-3000과 MSX1 에 대하여.. (0) | 2011.06.10 |