;UPRAVA HRY MSX WILD CAT ;ADJWILCAT ; 15-AUG-91 ; 16:19 ;(C) ROS, 20-OCT-90 .RADIX 16T ORG 8500 ;-------------------------------- START DI LD A,(0006) CP 10 JP NZ,8600 SORDM5 LD HL,0F3E9 LD A,0F LD (HL),A INC HL LD A,4 LD (HL),A INC HL LD (HL),A CALL 00CC CALL 006F LD HL,TEXT TISK LD A,(HL) OR A JR Z,PAUSE CALL 00A2 INC HL JR TISK PAUSE LD B,0E PAUS1 XOR A PAUS2 DEC A JR NZ,PAUS2 DEC BC OR B JR NZ,PAUS1 DI LD A,10 LD (8886),A LD (8893),A LD (88E9),A LD (88F8),A LD (89B3),A LD (9099),A INC A LD (8874),A LD (8879),A LD (887E),A LD (8883),A LD (888B),A LD (8890),A LD (88E1),A LD (88E6),A LD (88F3),A LD (88F6),A LD (894C),A LD (89A7),A LD (89AB),A LD (9088),A LD (908D),A LD A,3 LD (863E),A LD HL,SNSMAT LD (8971),HL LD HL,TEST LD (862A),HL LD HL,03F0 LD A,(HL) LD (HL),0C3 LD (SCHOVA),A IN A,(11) JR 8600 ;-------------------------------- SNSMAT IN A,(30) BIT 0,A JR NZ,8600 RLCA AND 04 CPL RET ;-------------------------------- TEST DI IN A,(30) CPL AND 0C JR Z,SHIFTY IN A,(50) RLCA VEN JP NC,0C33A RESET IN A,(50) RLCA JR C,RESET LD HL,0CBD4 LD A,35 XOR (HL) LD (HL),A JR VEN SHIFTY LD A,(SCHOVA) LD (03F0),A JP 0000 ;-------------------------------- SCHOVA DB 00 TEXT DB 0C,0A,0A,0A,0A,0A,0A,09,'Pro SORD m.5',0D,0A,0A,' upravil LZR Soft',0D,0A,0A,09,20 DB '15-AUG-91',0 ;-------------------------------- ZKONEC END 8FF8