;********************************************* ;* TALKING ELECTRONICS - Issue No.14 - 1982 * ;* TEC-1B - Monitor 2 - mon2.bin * ;********************************************* ; EPROM 2K -> $0000 - $07FF ; RAM 2K -> $0800 - $1000 ;----------------------------------------------------- ; Keyboard input $00 - 74C923 4x5 matrica ; Display digit $01 ; Display segment $02 ;----------------------------------------------------- ; Mask_INT 8C0 - 8CA ; INT 8CC ; KEY_IN 8E0 ; 8D2 ; 8D4 ; 8D6 ; DISPLAY 8D8 ; 8DC, 8DD ; 8DF ; stackmem 8E8 ; stack 900 ;----------------------------------------------------- ; LABEL INSTR. PARAMETER(s) ADR/OPCODE ASCII ;------------------------------------------------------------------------ .ORG $0000 JP Start ; 0000 C30002 ... LD HL,($8C0) ; 0008 2AC008 *.. JP (HL) ; 000B E9 . LD HL,($8C2) ; 0010 2AC208 *.. JP (HL) ; 0013 E9 . LD HL,($8C4) ; 0018 2AC408 *.. JP (HL) ; 001B E9 . LD HL,($8CA) ; 0020 2ACA08 *.. JP (HL) ; 0023 E9 . LD HL,($8CC) ; 0028 2ACC08 *.. JP (HL) ; 002B E9 . LD HL,($8CA) ; 0030 2ACA08 *.. JP (HL) ; 0033 E9 . INT: LD HL,($8CC) ; 0038 2ACC08 *.. JP (HL) ; 003B E9 . ;------------------------------------------------------------------------ .ORG $0066 NMI: PUSH AF ; 0066 F5 . IN A,($00) ; 0067 DB00 .. LD ($8E0),A ; 0069 32E008 2.. POP AF ; 006C F1 . RETN ; 006D ED45 .E ;------------------------------------------------------------------------ .ORG $0080 Tabla1: DB EB 28 CD AD 2E A7 E7 29 EF 2F 6F E6 C3 EC C7 47 DB E3 66 28 E8 4E C2 2D 6B EB 4F 2F 4B A7 46 EA E0 DB AC A4 AE C9 10 08 18 04 2C 00 FF FF FF FF FF FF DB 00 09 00 00 FF FF FF FF FF FF FF FF FF FF FF FF DB 1B 18 1E 1D 12 17 0E 29 0B 22 29 17 12 0C 24 29 DB 29 29 29 29 FE 1C 1D 18 17 0E FF FF FF FF FF FF ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ .ORG $00E0 Jump_65: CALL Podprg_10 ; 00E0 CD8902 ... INC BC ; 00E3 03 . JR Skok11 ; 00E4 1804 .. ;------------------------------------------------------------------------ Jump_66: CALL Podprg_10 ; 00E6 CD8902 ... DEC BC ; 00E9 0B . Skok11: CALL Podprg_12 ; 00EA CD9004 ... CALL Podprg_13 ; 00ED CD7002 .p. Skok_9: LD HL,$8DF ; 00F0 21DF08 !.. SET 0,(HL) ; 00F3 CBC6 .. RES 1,(HL) ; 00F5 CB8E .. JP Skok_14 ; 00F7 C37803 .x. ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ .ORG $0100 Tabla2: DB FD 10 10 FD 11 EF 12 E1 13 D5 14 C9 15 BE 16 B3 DB 18 A9 19 9F 1A 96 1C 8E 1E 86 20 7F 22 77 24 71 DB 26 6A 28 64 2A 5F 2D 59 2F 54 32 50 35 4B 38 47 DB 3C 43 3F 3F 43 3C 47 38 4B 35 50 32 54 2F 59 2D DB 5F 2A 64 28 6A 26 71 24 77 22 7F 20 86 1E 8E 1C DB 96 1A 94 19 A9 18 B3 16 BE 15 C9 14 D5 13 E1 12 DB EF 11 FD 10 FF FF FF FF FF FF FF FF FF FF FF FF ;------------------------------------------------------------------------ .ORG $0170 Podprg_26: PUSH BC ; 0170 C5 . PUSH DE ; 0171 D5 . PUSH HL ; 0172 E5 . PUSH AF ; 0173 F5 . AND A ; 0174 A7 . JR NZ,Lb21 ; 0175 2003 . Lb18: LD E,A ; 0177 5F _ JR Lb22 ; 0178 1802 .. Lb21: LD E,$80 ; 017A 1E80 .. Lb22: LD HL,Tabla2 ; 017C 210001 !.. ADD A,A ; 017F 87 . ADD A,L ; 0180 85 . LD L,A ; 0181 6F o LD C,(HL) ; 0182 4E N INC HL ; 0183 23 # Lb19: LD B,(HL) ; 0184 46 F LD A,E ; 0185 7B { OUT ($01),A ; 0186 D301 .. Loop17: DJNZ Loop17 ; 0188 10FE .. LD B,(HL) ; 018A 46 F XOR A ; 018B AF . OUT ($01),A ; 018C D301 .. Loop23: DJNZ Loop23 ; 018E 10FE .. DEC C ; 0190 0D . JR NZ,Lb19 ; 0191 20F1 . POP AF ; 0193 F1 . POP HL ; 0194 E1 . POP DE ; 0195 D1 . POP BC ; 0196 C1 . RET ; 0197 C9 . ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ .ORG $01A0 PUSH AF ; 01A0 F5 . PUSH HL ; 01A1 E5 . Lb25: LD HL,($8D6) ; 01A2 2AD608 *.. Lb27: LD A,(HL) ; 01A5 7E ~ CP $FF ; 01A6 FEFF .. JR NZ,Lb24 ; 01A8 2003 . POP HL ; 01AA E1 . POP AF ; 01AB F1 . RET ; 01AC C9 . ;------------------------------------------------------------------------ Lb24: CP $FE ; 01AD FEFE .. JR Z,Lb25 ; 01AF 28F1 (. INC HL ; 01B1 23 # CALL Podprg_26 ; 01B2 CD7001 .p. JR Lb27 ; 01B5 18EE .. ;------------------------------------------------------------------------ .ORG $01C0 Skok_68: LD HL,$8DF ; 01C0 21DF08 !.. BIT 0,(HL) ; 01C3 CB46 .F JR NZ,Lb28 ; 01C5 2007 . SET 0,(HL) ; 01C7 CBC6 .. RES 1,(HL) ; 01C9 CB8E .. JP Skok_14 ; 01CB C37803 .x. ;------------------------------------------------------------------------ Lb28: RES 0,(HL) ; 01CE CB86 .. SET 1,(HL) ; 01D0 CBCE .. JP Skok_14 ; 01D2 C37803 .x. ;------------------------------------------------------------------------ .ORG $01D8 PUSH BC ; 01D8 C5 . LD B,$80 ; 01D9 0680 .. Lb30: CALL Podprg_29 ; 01DB CDA002 ... DJNZ Lb30 ; 01DE 10FB .. POP BC ; 01E0 C1 . RET ; 01E1 C9 . ;------------------------------------------------------------------------ .ORG $01E4 Skok_76: LD BC,$8D2 ; 01E4 ED4BD208 .K.. CALL Podprg_12 ; 01E8 CD9004 ... CALL Podprg_13 ; 01EB CD7002 .p. JP Skok_14 ; 01EE C37803 .x. ;------------------------------------------------------------------------ Skok_71: LD BC,$8D4 ; 01F2 ED4BD408 .K.. CALL Podprg_12 ; 01F6 CD9004 ... CALL Podprg_13 ; 01F9 CD7002 .p. JP Skok_14 ; 01FC C37803 .x. ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ .ORG $0200 Start: LD ($8E8),SP ; 0200 ED73E808 .s.. LD SP,$900 ; 0204 310009 1.. PUSH AF ; 0207 F5 . PUSH BC ; 0208 C5 . PUSH DE ; 0209 D5 . PUSH HL ; 020A E5 . PUSH IX ; 020B DDE5 .. PUSH IY ; 020D FDE5 .. EX AF,A'F' ; 020F 08 . EXX ; 0210 D9 . PUSH AF ; 0211 F5 . PUSH BC ; 0212 C5 . PUSH DE ; 0213 D5 . PUSH HL ; 0214 E5 . LD A,I ; 0215 ED57 .W PUSH AF ; 0217 F5 . XOR A ; 0218 AF . LD ($8CC),A ; 0219 32CC08 2.. LD ($8CD),A ; 021C 32CD08 2.. LD A,$FF ; 021F 3EFF >. LD ($8E0),A ; 0221 32E008 2.. JP Lb31 ; 0224 C34002 .@. ;------------------------------------------------------------------------ .ORG $0240 Lb31: LD SP,$8C0 ; 0240 31C008 1.. XOR A ; 0243 AF . OUT ($01),A ; 0244 D301 .. OUT ($02),A ; 0246 D302 .. LD HL,$B0 ; 0248 21B000 ... LD DE,$8D8 ; 024B 11D808 ... LD BC,$05 ; 024E 010500 ... LDIR ; 0251 EDB0 .. Lb78: CALL Podprg_13 ; 0253 CD7002 .p. LD A,$08 ; 0256 3E08 >. CALL Podprg_26 ; 0258 CD7001 .p. LD A,$0F ; 025B 3E0F >. CALL Podprg_26 ; 025D CD7001 .p. LD A,$01 ; 0260 3E01 >. LD ($8DF),A ; 0262 32DF08 2.. Loop1: CALL Podprg_29 ; 0265 CDA002 ... CALL Podprg_32 ; 0268 CD6003 .`. JR Loop1 ; 026B 18F8 .. ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- Podprg_13: PUSH AF ; 0270 F5 . PUSH HL ; 0271 E5 . PUSH BC ; 0272 C5 . CALL Podprg_10 ; 0273 CD8902 ... AND $F0 ; 0276 E6F0 .. RRCA ; 0278 0F . RRCA ; 0279 0F . RRCA ; 027A 0F . RRCA ; 027B 0F . LD ($8DC),A ; 027C 32DC08 2.. LD A,(BC) ; 027F 0A . AND $0F ; 0280 E60F .. LD ($8DD),A ; 0282 32DD08 2.. POP BC ; 0285 C1 . POP HL ; 0286 E1 . POP AF ; 0287 F1 . RET ; 0288 C9 . ;----------------------------------------------------------------------- Podprg_10: LD HL,$8D8 ; 0289 21D808 !.. LD A,(HL) ; 028C 7E ~ RLCA ; 028D 07 . RLCA ; 028E 07 . RLCA ; 028F 07 . RLCA ; 0290 07 . INC HL ; 0291 23 # ADD A,(HL) ; 0292 86 . LD B,A ; 0293 47 G INC HL ; 0294 23 # LD A,(HL) ; 0295 7E ~ RLCA ; 0296 07 . RLCA ; 0297 07 . RLCA ; 0298 07 . RLCA ; 0299 07 . INC HL ; 029A 23 # ADD A,(HL) ; 029B 86 . LD C,A ; 029C 4F O LD A,(BC) ; 029D 0A . RET ; 029E C9 . ;----------------------------------------------------------------------- Podprg_29: PUSH AF ; 02A0 F5 . PUSH HL ; 02A1 E5 . PUSH DE ; 02A2 D5 . PUSH BC ; 02A3 C5 . LD DE,$8D8 ; 02A4 11D808 ... XOR A ; 02A7 AF . OUT ($01),A ; 02A8 D301 .. CALL Pp_34 ; 02AA CD5003 .P. BIT 1,(HL) ; 02AD CB4E .N JR Z,Lb35 ; 02AF 2802 (. SET 4,A ; 02B1 CBE7 .. Lb35: OUT ($02),A ; 02B3 D302 .. LD A,$20 ; 02B5 3E20 > OUT ($01),A ; 02B7 D301 .. LD B,$20 ; 02B9 0620 . Loop36: DJNZ Loop36 ; 02BB 10FE .. XOR A ; 02BD AF . OUT ($01),A ; 02BE D301 .. CALL Pp_34 ; 02C0 CD5003 .P. BIT 1,(HL) ; 02C3 CB4E .N JR Z,Lb37 ; 02C5 2802 (. SET 4,A ; 02C7 CBE7 .. Lb37: OUT ($02),A ; 02C9 D302 .. LD A,$10 ; 02CB 3E10 >. OUT ($01),A ; 02CD D301 .. LD B,$20 ; 02CF 0620 . Loop38: DJNZ Loop38 ; 02D1 10FE .. XOR A ; 02D3 AF . OUT ($01),A ; 02D4 D301 .. CALL Pp_34 ; 02D6 CD5003 .P. BIT 1,(HL) ; 02D9 CB4E .N JR Z,Lb39 ; 02DB 2802 (. SET 4,A ; 02DD CBE7 .. Lb39: OUT ($02),A ; 02DF D302 .. LD A,$08 ; 02E1 3E08 >. OUT ($01),A ; 02E3 D301 .. LD B,$20 ; 02E5 0620 . Loop40: DJNZ Loop40 ; 02E7 10FE .. XOR A ; 02E9 AF . OUT ($01),A ; 02EA D301 .. CALL Pp_34 ; 02EC CD5003 .P. BIT 1,(HL) ; 02EF CB4E .N JR Z,Lb41 ; 02F1 2802 (. SET 4,A ; 02F3 CBE7 .. Lb41: OUT ($02),A ; 02F5 D302 .. LD A,$04 ; 02F7 3E04 >. OUT ($01),A ; 02F9 D301 .. LD B,$20 ; 02FB 0620 . Loop42: DJNZ Loop42 ; 02FD 10FE .. XOR A ; 02FF AF . OUT ($01),A ; 0300 D301 .. NOP ; 0302 00 . JP Skok_43 ; 0303 C31803 ... ;----------------------------------------------------------------------- Jump_67: CALL Podprg_10 ; 030C CD8902 ... PUSH BC ; 030F C5 . POP HL ; 0310 E1 . LD SP,$8C0 ; 0311 31C008 1.. JP (HL) ; 0314 E9 . ;----------------------------------------------------------------------- Skok_43: CALL Pp_34 ; 0318 CD5003 .P. BIT 0,(HL) ; 031B CB46 .F JR Z,Lb44 ; 031D 2802 (. SET 4,A ; 031F CBE7 .. Lb44: OUT ($02),A ; 0321 D302 .. LD A,$02 ; 0323 3E02 >. OUT ($01),A ; 0325 D301 .. LD B,$20 ; 0327 0620 . Loop45: DJNZ Loop45 ; 0329 10FE .. XOR A ; 032B AF . OUT ($01),A ; 032C D301 .. CALL Pp_34 ; 032E CD5003 .P. BIT 0,(HL) ; 0331 CB46 .F JR Z,Lb46 ; 0333 2802 (. SET 4,A ; 0335 CBE7 .. Lb46: OUT ($02),A ; 0337 D302 .. LD A,$01 ; 0339 3E01 >. OUT ($01),A ; 033B D301 .. LD B,$20 ; 033D 0620 . Loop47: DJNZ Loop47 ; 033F 10FE .. XOR A ; 0341 AF . OUT ($01),A ; 0342 D301 .. POP BC ; 0344 C1 . POP DE ; 0345 D1 . POP HL ; 0346 E1 . POP AF ; 0347 F1 . RET ; 0348 C9 . ;----------------------------------------------------------------------- .ORG $0350 Pp_34: LD HL,Tabla1 ; 0350 218000 !.. LD A,(DE) ; 0353 1A . ADD A,L ; 0354 85 . LD L,A ; 0355 6F o LD A,(HL) ; 0356 7E ~ INC DE ; 0357 13 . LD HL,$8DF ; 0358 21DF08 !.. RET ; 035B C9 . ;----------------------------------------------------------------------- ; Tastatura .ORG $0360 Podprg_32: PUSH AF ; 0360 F5 . PUSH HL ; 0361 E5 . LD HL,$8E0 ; 0362 21E008 !.. LD A,$FF ; 0365 3EFF >. CP (HL) ; 0367 BE . JR Z,Skok_14 ; 0368 280E (. LD A,(HL) ; 036A 7E ~ AND $1F ; 036B E61F .. BIT 5,(HL) ; 036D CB6E .n JR NZ,Lb48 ; 036F 2002 . ADD A,$14 ; 0371 C614 .. Lb48: JP Skok_49 ; 0373 C3A803 ... ;----------------------------------------------------------------------- .ORG $0378 Skok_14: POP HL ; 0378 E1 . POP AF ; 0379 F1 . RET ; 037A C9 . ;----------------------------------------------------------------------- .ORG $037D Skok_63: POP HL ; 037D E1 . POP AF ; 037E F1 . RET ; 037F C9 . ;----------------------------------------------------------------------- .ORG $0384 Skok_75: CALL Podprg_10 ; 0384 CD8902 ... PUSH BC ; 0387 C5 . POP IX ; 0388 DDE1 .. Loop51: INC IX ; 038A DD23 .# PUSH IX ; 038C DDE5 .. POP HL ; 038E E1 . LD A,H ; 038F 7C | CP $40 ; 0390 FE40 .@ JR Z,Lb50 ; 0392 2808 (. LD A,(IX+$00) ; 0394 DD7E00 .~. LD (IX+$FF),A ; 0397 DD77FF .w. JR Loop51 ; 039A 18EE .. Lb50: LD A,$00 ; 039C 3E00 >. LD ($3FFF),A ; 039E 32FF3F 2.? CALL Podprg_13 ; 03A1 CD7002 .p. JP Skok_14 ; 03A4 C37803 .x. ;----------------------------------------------------------------------- Skok_49: ADD A,$01 ; 03A8 C601 .. CALL Podprg_26 ; 03AA CD7001 .p. JP Skok_52 ; 03AD C32104 .!. ;----------------------------------------------------------------------- Skok_74: CALL Podprg_10 ; 03B0 CD8902 ... DEC BC ; 03B3 0B . LD IX,$3FFE ; 03B4 DD21FE3F .!.? Loop53: LD A,(IX+$00) ; 03B8 DD7E00 .~. LD (IX+$01),A ; 03BB DD7701 .w. DEC IX ; 03BE DD2B .+ PUSH IX ; 03C0 DDE5 .. POP HL ; 03C2 E1 . LD A,C ; 03C3 79 y CP L ; 03C4 BD . JR NZ,Loop53 ; 03C5 20F1 . LD A,B ; 03C7 78 x CP H ; 03C8 BC . JR NZ,Loop53 ; 03C9 20ED . LD (IX+$01),$00 ; 03CB DD360100 .6.. CALL Podprg_13 ; 03CF CD7002 .p. JP Skok_14 ; 03D2 C37803 .x. ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- .ORG $03D8 ?????? PUSH HL ; 03D8 E5 . PUSH AF ; 03D9 F5 . PUSH IX ; 03DA DDE5 .. PUSH BC ; 03DC C5 . XOR A ; 03DD AF . LD ($8DF),A ; 03DE 32DF08 2.. LD B,$06 ; 03E1 0606 .. LD HL,$8D8 ; 03E3 21D808 !.. LD A,$29 ; 03E6 3E29 >) Loop54: LD (HL),A ; 03E8 77 w INC HL ; 03E9 23 # DJNZ Loop54 ; 03EA 10FC .. Loop56: LD HL,($8D0) ; 03EC 2AD008 *.. Skok_59: LD A,(HL) ; 03EF 7E ~ CP $FF ; 03F0 FEFF .. JR NZ,Skok_55 ; 03F2 2006 . POP BC ; 03F4 C1 . POP IX ; 03F5 DDE1 .. POP AF ; 03F7 F1 . POP HL ; 03F8 E1 . RET ; 03F9 C9 . ;----------------------------------------------------------------------- Skok_55: CP $FE ; 03FA FEFE .. JR Z,Loop56 ; 03FC 28EE (. LD IX,$8D8 ; 03FE DD21D808 .!.. LD B,$05 ; 0402 0605 .. Loop57: LD A,(IX+$01) ; 0404 DD7E01 .~. LD (IX+$00),A ; 0407 DD7700 .w. INC IX ; 040A DD23 .# DJNZ Loop57 ; 040C 10F6 .. LD A,(HL) ; 040E 7E ~ LD ($8DD),A ; 040F 32DD08 2.. INC HL ; 0412 23 # LD B,$40 ; 0413 0640 .@ Loop58: CALL Podprg_29 ; 0415 CDA002 ... DJNZ Loop58 ; 0418 10FB .. JR Skok_59 ; 041A 18D3 .. ;----------------------------------------------------------------------- .ORG $0421 Skok_52: SUB $01 ; 0421 D601 .. LD (HL),$FF ; 0423 36FF 6. BIT 4,A ; 0425 CB67 .g JP NZ,Skokovi60 ; 0427 C2C004 ... BIT 5,A ; 042A CB6F .o JP NZ,Skokovi60 ; 042C C2C004 ... LD HL,$8DF ; 042F 21DF08 !.. BIT 0,(HL) ; 0432 CB46 .F JP Z,Lb61 ; 0434 CA5504 .U. LD D,A ; 0437 57 W CALL Podprg_10 ; 0438 CD8902 ... LD HL,$8DF ; 043B 21DF08 !.. BIT 3,(HL) ; 043E CB5E .^ JR NZ,Lb62 ; 0440 2003 . XOR A ; 0442 AF . SET 3,(HL) ; 0443 CBDE .. Lb62: RLCA ; 0445 07 . RLCA ; 0446 07 . RLCA ; 0447 07 . RLCA ; 0448 07 . AND $F0 ; 0449 E6F0 .. ADD A,D ; 044B 82 . LD (BC),A ; 044C 02 . CALL Podprg_13 ; 044D CD7002 .p. JP Skok_63 ; 0450 C37D03 .}. ;----------------------------------------------------------------------- .ORG $0455 Lb61: LD D,A ; 0455 57 W LD HL,$8DF ; 0456 21DF08 !.. RES 3,(HL) ; 0459 CB9E .. BIT 4,(HL) ; 045B CB66 .f JR NZ,Lb64 ; 045D 2008 . LD BC,$00 ; 045F 010000 ... CALL Podprg_12 ; 0462 CD9004 ... SET 4,(HL) ; 0465 CBE6 .. Lb64: CALL Podprg_10 ; 0467 CD8902 ... LD A,B ; 046A 78 x RLCA ; 046B 07 . RLCA ; 046C 07 . RLCA ; 046D 07 . RLCA ; 046E 07 . AND $F0 ; 046F E6F0 .. LD E,A ; 0471 5F _ LD A,C ; 0472 79 y RLCA ; 0473 07 . RLCA ; 0474 07 . RLCA ; 0475 07 . RLCA ; 0476 07 . AND $0F ; 0477 E60F .. ADD A,E ; 0479 83 . LD B,A ; 047A 47 G LD A,C ; 047B 79 y RLCA ; 047C 07 . RLCA ; 047D 07 . RLCA ; 047E 07 . RLCA ; 047F 07 . AND $F0 ; 0480 E6F0 .. ADD A,D ; 0482 82 . LD C,A ; 0483 4F O CALL Podprg_12 ; 0484 CD9004 ... CALL Podprg_13 ; 0487 CD7002 .p. JP Skok_63 ; 048A C37D03 .}. ;----------------------------------------------------------------------- .ORG $0490 Podprg_12: PUSH AF ; 0490 F5 . PUSH HL ; 0491 E5 . LD HL,$8D8 ; 0492 21D808 !.. LD A,B ; 0495 78 x AND $F0 ; 0496 E6F0 .. RLCA ; 0498 07 . RLCA ; 0499 07 . RLCA ; 049A 07 . RLCA ; 049B 07 . LD (HL),A ; 049C 77 w INC HL ; 049D 23 # LD A,B ; 049E 78 x AND $0F ; 049F E60F .. LD (HL),A ; 04A1 77 w INC HL ; 04A2 23 # LD A,C ; 04A3 79 y AND $F0 ; 04A4 E6F0 .. RLCA ; 04A6 07 . RLCA ; 04A7 07 . RLCA ; 04A8 07 . RLCA ; 04A9 07 . LD (HL),A ; 04AA 77 w INC HL ; 04AB 23 # LD A,C ; 04AC 79 y AND $0F ; 04AD E60F .. LD (HL),A ; 04AF 77 w POP HL ; 04B0 E1 . POP AF ; 04B1 F1 . RET ; 04B2 C9 . ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- .ORG $04C0 Skokovi60: LD HL,$8DF ; 04C0 21DF08 !.. RES 3,(HL) ; 04C3 CB9E .. RES 4,(HL) ; 04C5 CBA6 .. CP $10 ; 04C7 FE10 .. JP Z,Jump_65 ; 04C9 CAE000 ... CP $11 ; 04CC FE11 .. JP Z,Jump_66 ; 04CE CAE600 ... CP $12 ; 04D1 FE12 .. JP Z,Jump_67 ; 04D3 CA0C03 ... CP $13 ; 04D6 FE13 .. JP Z,Skok_68 ; 04D8 CAC001 ... CP $14 ; 04DB FE14 .. JP Z,Skok_69 ; 04DD CA5005 .P. CP $15 ; 04E0 FE15 .. JP Z,Skok_70 ; 04E2 CAFFFF ... CP $16 ; 04E5 FE16 .. JP Z,Skok_70 ; 04E7 CAFFFF ... CP $17 ; 04EA FE17 .. JP Z,Skok_71 ; 04EC CAF201 ... CP $18 ; 04EF FE18 .. JP Z,Skok_72 ; 04F1 CA7005 .p. CP $19 ; 04F4 FE19 .. JP Z,Skok_70 ; 04F6 CAFFFF ... CP $1A ; 04F9 FE1A .. JP Z,Skok_70 ; 04FB CAFFFF ... CP $1B ; 04FE FE1B .. JP Z,Skok_70 ; 0500 CAFFFF ... CP $1C ; 0503 FE1C .. JP Z,Skok_73 ; 0505 CA6006 .`. CP $1D ; 0508 FE1D .. JP Z,Skok_70 ; 050A CAFFFF ... CP $1E ; 050D FE1E .. JP Z,Skok_70 ; 050F CAFFFF ... CP $1F ; 0512 FE1F .. JP Z,Skok_70 ; 0514 CAFFFF ... CP $20 ; 0517 FE20 . JP Z,Skok_70 ; 0519 CAFFFF ... CP $21 ; 051C FE21 .! JP Z,Skok_70 ; 051E CAFFFF ... CP $22 ; 0521 FE22 .. JP Z,Skok_70 ; 0523 CAFFFF ... CP $23 ; 0526 FE23 .# JP Z,Skok_70 ; 0528 CAFFFF ... CP $24 ; 052B FE24 .$ JP Z,Skok_74 ; 052D CAB003 ... CP $25 ; 0530 FE25 .% JP Z,Skok_75 ; 0532 CA8403 ... CP $26 ; 0535 FE26 .& JP Z,Skok_70 ; 0537 CAFFFF ... CP $27 ; 053A FE27 .' JP Z,Skok_76 ; 053C CAE401 ... JP Skok_14 ; 053F C37803 .x. ;----------------------------------------------------------------------- ;----------------------------------------------------------------------- .ORG $0550 Skok_69: CALL Podprg_10 ; 0550 CD8902 ... LD H,B ; 0553 60 ` LD L,C ; 0554 69 i LD A,($8E1) ; 0555 3AE108 :.. Loop77: INC HL ; 0558 23 # CP (HL) ; 0559 BE . JR NZ,Loop77 ; 055A 20FC . LD B,H ; 055C 44 D LD C,L ; 055D 4D M CALL Podprg_12 ; 055E CD9004 ... JP Lb78 ; 0561 C35302 .S. ;----------------------------------------------------------------------- .ORG $0570 Skok_72: .ORG $0660 Skok_73: ;----------------------------------------------------------------------- .ORG $FFFF Skok_70: ;-----------------------------------------------------------------------