;UPRAVA HRY MSX PINBAL ;ADJPINBAL ; 17-AUG-91 ; 19:08 ;(C) ROS, 20-OCT-90 .RADIX 16T ORG 0CE51 GAMES EQU 1 ;-------------------------------- KEYBOA JP 0141 LEFT CALL KEYBOA RLCA RLCA RLCA RET RIGHT CALL KEYBOA RRCA RRCA RET START DI LD A,(0006) CP 10 JR NZ,RUN 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 HL,TEST LD (KEYBOA+1),HL IN A,(11) RUN EI XOR A LD (0F3DB),A JP 9103 ;-------------------------------- TEST DI PUSH AF IN A,(30) CPL AND 0C JP Z,0000 POP AF LD C,A PUSH BC CALL KEYROW POP BC EI RET KEYROW OR A JR NZ,ROW1 IN A,(35) RRCA RRCA IN A,(31) RLA CALL TSCTRL RET NC OR 0FE RET ROW1 DEC C JR NZ,ROW2 IN A,(31) RLCA IN A,(35) RLA AND 03 LD C,A IN A,(35) AND 0C OR C LD C,A IN A,(35) RLCA JR NC,ROW11 SET 4,C ROW11 IN A,(36) RLCA JR NC,ROW12 SET 6,C ROW12 RLCA AND 0A0 CALL TSTCTR COND GAMES JR C,ROW13 OR 80 RET ROW13 OR 10 RET ELSE RET NC OR 90 RET ENDC ROW2 DEC C JR NZ,ROW3 IN A,(36) BIT 6,A JR Z,ROW21 INC C ROW21 RRCA AND 02 OR C LD C,A IN A,(33) RRCA RRCA AND 40 OR C LD C,A IN A,(34) RLCA RLCA RLCA AND 84 OR C LD C,A IN A,(35) BIT 6,A JR Z,ROW22 SET 5,C ROW22 RRCA AND 18 CALL TSTCTR COND GAMES RET C ELSE RET NC ENDC OR 13 RET ROW3 DEC C JR NZ,ROW4 IN A,(34) BIT 2,A JR Z,ROW31 INC C ROW31 IN A,(32) BIT 7,A JR Z,ROW32 SET 6,C ROW32 AND 04 OR C LD C,A IN A,(33) BIT 6,A JR Z,ROW34 SET 7,C ROW34 BIT 2,A JR Z,ROW35 SET 1,C ROW35 AND 38 CALL TSTCTR RET NC OR 60 RET ROW4 DEC C JR NZ,ROW5 IN A,(33) RLCA JR NC,ROW41 INC C ROW41 IN A,(32) RRCA JR NC,ROW42 SET 6,C ROW42 BIT 2,A JR Z,ROW43 SET 7,C ROW43 IN A,(34) RLCA RLCA JR NC,ROW44 SET 2,C ROW44 RLCA JR NC,ROW45 SET 3,C ROW45 IN A,(36) RLCA RLCA RLCA RLCA JR NC,ROW46 SET 1,C ROW46 AND 30 CALL TSTCTR RET NC OR 81 RET ROW5 DEC C JR NZ,ROW6 IN A,(33) RRCA AND 01 LD C,A IN A,(32) BIT 1,A JR Z,ROW51 SET 4,C ROW51 RLCA RLCA JR NC,ROW52 SET 2,C ROW52 RLCA JR NC,ROW53 SET 6,C ROW53 RLCA JR NC,ROW54 SET 1,C ROW54 IN A,(34) BIT 3,A JR Z,ROW55 SET 3,C ROW55 RRCA JR NC,ROW56 SET 7,C ROW56 RRCA JR NC,ROW57 SET 5,C ROW57 CALL TESTCT RET NC OR 20 RET ROW6 DEC C JR NZ,ROW7 IN A,(30) BIT 2,A JR Z,ROW61 INC C ROW61 AND 08 OR C LD C,A IN A,(30) RRCA LD A,C JR NC,ROW64 SET 1,C IN A,(31) RLCA RLCA JR NC,ROW62 SET 4,C ROW62 RLCA JR NC,ROW63 SET 2,C ROW63 RLCA RLCA AND 0E0 OR C ROW64 CPL RET ROW7 DEC C JR NZ,ROW8 IN A,(30) RLCA JR NC,ROW71 SET 7,C ROW71 AND 04 OR C LD C,A IN A,(50) RLCA JR NC,ROW72 SET 4,C ROW72 IN A,(31) RRCA RRCA RRCA AND 03 OR C LD C,A IN A,(32) RLCA JR NC,ROW73 SET 3,C ROW73 IN A,(33) AND 20 OR C LD C,A IN A,(34) RRCA RRCA RRCA AND 40 CALL TSTCTR RET C OR 6B RET ROW8 DEC C JR NZ,ROW9 IN A,(30) RLCA RLCA AND 01 LD C,A IN A,(32) RRCA AND 04 OR C LD C,A IN A,(33) RLCA RLCA AND 02 OR C LD C,A IN A,(35) RLCA JR NC,ROW81 SET 3,C ROW81 AND 40 OR C LD C,A IN A,(36) BIT 2,A JR Z,ROW82 SET 5,C ROW82 RLCA RLCA JR NC,ROW83 SET 7,C ROW83 RLCA JR NC,ROW84 SET 4,C ROW84 CALL TESTCT COND GAMES JR C,ROW85 OR 0E RET ROW85 OR 0F0 RET ELSE RET C OR 0FE RET ENDC ROW9 IN A,(37) CPL RET TESTCT LD A,C TSTCTR OR C TSCTRL CPL LD C,A IN A,(30) RRCA LD A,C RET ;-------------------------------- 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 '17-AUG-91',0 ;-------------------------------- ZKONEC END