10 ';====================1992 6/17 WED 20 '; COLUMNS 30 ';================================= 40 ' ORG 8800H 50 'DISSCR EQU 0041H 60 'ENASCR EQU 0044H 70 'WRTVDP EQU 0047H 80 'LDIRVM EQU 005CH 90 'CHGCLR EQU 0062H 100 'CLRSPR EQU 0069H 110 'INITXT EQU 006CH 120 'INIT32 EQU 006FH 130 'SETGRP EQU 007EH 140 'WRTPSG EQU 0093H 150 'CHPUT EQU 00A2H 160 'BREAKX EQU 00B7H 170 'CLS EQU 00C3H 180 'POSIT EQU 00C6H 190 'ERAFNK EQU 00CCH 200 'DSPFNK EQU 00CFH 210 'GTSTCK EQU 00D5H 220 'GTTRIG EQU 00D8H 230 'BIGFIL EQU 016BH 240 'NRDVRM EQU 0174H 250 'NWRVRM EQU 0177H 260 'CHGCPU EQU 0180H 270 'GETCPU EQU 0183H 280 'LINL32 EQU 0F3AFH 290 'RG1SAV EQU 0F3E0H 300 'FORCLR EQU 0F3E9H 310 'SCRMOD EQU 0FCAFH 320 ';MAIN----------------------------- 330 ' LD A,R ;Init RND 340 ' LD (RND+1),A 350 ' CALL ERAFNK 360 ' LD A,0FH ;COLOR 15,1,1 370 ' LD HL,FORCLR 380 ' LD (HL),A 400 ' INC HL 410 ' LD (HL),1 420 ' INC HL 430 ' LD (HL),1 440 ' CALL CHGCLR 450 ' LD HL,LINL32 ;WIDTH 32 460 ' LD (HL),20H 470 ' CALL INIT32 480 ' CALL SETGRP 490 ' LD A,1 500 ' LD (SCRMOD),A 510 ' CALL CLRSPR 520 ' LD A,(RG1SAV) 530 ' AND 0FCH 540 ' LD B,A 550 ' LD C,1 560 ' CALL WRTVDP 570 ' CALL INISPR 580 ' CALL ERASPR 590 ' CALL DISSCR 600 ' CALL CHRINI 610 ' CALL MAKESC 620 ' CALL ENASCR 630 ' CALL TURBO 640 ' CALL DEMO 650 'COLUMN:CALL WITTIT ;MAIN LOOP 660 ' CALL BREAKX 670 ' JP C,BREAK 680 ' CALL BNKMG3 690 ' CALL DT8SCL 700 ' CALL GAME 710 ' CALL GMOVER 720 ' CALL GOTITL 730 ' JR COLUMN 740 ';--------------------------------- 750 'COPY: LD HL,0 ;From MSX-MAGAZINE 760 ' LD DE,800H 770 ' CALL COPY1 780 ' LD HL,2000H 790 ' LD DE,2800H 800 'COPY1: LD BC,1000H 810 'COPY2: CALL NRDVRM 820 ' EX DE,HL 830 ' CALL NWRVRM 840 ' EX DE,HL 850 ' INC HL 860 ' INC DE 870 ' DEC BC 880 ' LD A,B 890 ' OR C 900 ' JR NZ,COPY2 910 ' RET 915 ';................................. 920 'COLOR: LD HL,2000H ; 930 ' LD BC,800H 940 ' LD A,0F1H 950 ' JP BIGFIL 955 ';................................. 960 'PUTMG0:LD HL,MG0 970 'PRINT: LD A,(HL) ;Print routine 980 ' OR A 990 ' RET Z 1000 ' CALL CHPUT 1010 ' INC HL 1020 ' JR PRINT 1025 ';................................ 1030 'W2LINE:LD HL,1822H ;TITLE Line 1040 ' CALL SKIP0 1050 ' LD HL,1922H 1060 'SKIP0: LD BC,1CH 1070 ' LD A,0B2H 1080 ' JP BIGFIL 1085 ';................................ 1090 'WITTIT:LD BC,1000H ; 1100 'WAIT0: PUSH BC 1110 ' CALL STRIGA 1120 ' POP BC 1130 ' RET Z 1140 ' PUSH BC 1150 ' CALL STRIGB 1160 ' CALL Z,SETING 1170 ' POP BC 1180 ' DEC BC 1190 ' LD A,B 1200 ' OR C 1210 ' JR NZ,WAIT0 1220 ' LD HL,CHR 1230 ' LD A,(HL) 1240 ' INC A 1250 ' CP 6 1260 ' JR NZ,SKIP2 1270 ' XOR A 1280 'SKIP2: LD (HL),A 1290 ' CALL PTITLE 1300 ' JR WITTIT 1305 ';................................ 1310 'PTITLE:LD HL,504H ;Print 'ѽ' 1320 ' CALL POSIT 1330 ' LD HL,MOJIDT 1340 ' LD D,5 1350 'LP10: LD E,3 1360 'LP9: LD B,8 1370 ' LD C,(HL) 1380 'LP7: LD A,20H 1390 ' SLA C 1400 ' JR NC,SKIP1 1410 ' LD A,(CHR) 1420 ' ADD A,0B1H 1430 'SKIP1: CALL CHPUT 1440 ' DJNZ LP7 1450 ' INC HL 1460 ' DEC E 1470 ' JR NZ,LP9 1480 ' LD B,8 1490 'LP8: CALL CHPUT ;(A=' ') 1500 ' DJNZ LP8 1510 ' DEC D 1520 ' JR NZ,LP10 1530 ' RET 1535 ';................................ 1540 'STRIGA:XOR A ;From MSX-MAGAZINE 1550 ' CALL GTTRIG 1560 ' INC A 1570 ' RET Z 1580 ' CALL GTTRIG 1590 ' INC A 1600 ' RET 1605 ';................................ 1610 'STRIGB:LD A,3 ;From MSX-MAGAZINE 1620 ' CALL GTTRIG 1630 ' INC A 1640 ' RET 1645 ';................................ 1650 'STICK: XOR A ;From MSX-MAGAZINE 1660 ' CALL GTSTCK 1670 ' OR A 1680 ' RET NZ 1690 ' INC A 1700 ' CALL GTSTCK 1710 ' RET 1715 ';................................ 1720 'CHRINI:LD HL,180H ;Hutomoji 1730 ' LD BC,158H 1740 'LP0: CALL NRDVRM 1750 ' LD D,A 1760 ' SRL A 1770 ' OR D 1780 ' CALL NWRVRM 1790 ' INC HL 1800 ' DEC BC 1810 ' LD A,B 1820 ' OR C 1830 ' JR NZ,LP0 1840 ' LD HL,588H 1850 ' LD C,7 1860 'LP1: LD DE,CHRDT 1870 ' LD B,8 1880 'LP2: LD A,(DE) 1890 ' CALL NWRVRM 1900 ' INC HL 1910 ' INC DE 1920 ' DJNZ LP2 1930 ' DEC C 1940 ' JR NZ,LP1 1950 ' EX DE,HL 1960 ' LD BC,60H 1970 ' CALL LDIRVM 1980 ' LD HL,ZERODT ;Set '0' 1990 ' LD DE,180H 2000 ' LD BC,8 2010 ' CALL LDIRVM 2020 ' CALL COLOR 2030 ' LD HL,2180H ;Green '0'-'9' 2040 ' LD BC,50H 2050 ' LD A,31H 2060 ' CALL BIGFIL 2070 ' LD HL,25D3H 2080 ' LD BC,50H 2090 ' LD A,0A1H 2100 ' CALL BIGFIL 2110 ' LD HL,2588H 2120 ' LD DE,CLRDT 2130 ' LD C,0AH 2140 'LP5: LD B,8 2150 'LP4: LD A,C 2160 ' CP 5 2170 ' LD A,(DE) 2180 ' JR C,NOOR 2190 ' LD A,B 2200 ' SUB 4 2210 ' CP 3 2220 ' LD A,(DE) 2230 ' JR NC,NOOR 2240 ' OR 0FH 2250 'NOOR: CALL NWRVRM 2260 ' INC HL 2270 ' DJNZ LP4 2280 ' INC DE 2290 ' DEC C 2300 ' JR NZ,LP5 2310 ' LD HL,2408H 2320 ' LD BC,8 2330 ' LD A,81H 2340 ' CALL BIGFIL 2350 ' JP COPY 2355 ';................................ 2360 'BNKMG3:LD D,4 ;Brink 'START!' 2370 'LP15: LD HL,MG4 2380 ' CALL PRINT 2390 ' CALL WAIT1 2400 ' LD HL,MG3 2410 ' CALL PRINT 2420 ' CALL WAIT1 2430 ' DEC D 2440 ' JR NZ,LP15 2450 ' RET 2455 ';................................ 2460 'JOB2: CALL NRDVRM ;Move 1 line 2470 ' EX DE,HL 2480 ' CALL NWRVRM 2490 ' EX DE,HL 2500 ' INC HL 2510 ' INC DE 2520 ' LD A,E 2530 ' AND 1FH 2540 ' JR NZ,JOB2 2550 ' RET 2555 ';................................ 2560 'DT8SCL:LD HL,43E0H ;8 Dot scrool 2570 ' LD DE,17E0H 2580 ' LD BC,17H 2590 'LP19: PUSH BC 2600 ' CALL WRTVDP 2610 ' LD B,0 2620 'LP18: DJNZ LP18 2630 ' POP BC 2640 ' INC B 2650 ' CALL PIIN 2660 ' LD A,B 2670 ' AND 7 2680 ' JR NZ,LP19 2690 ' CALL JOB2 2700 ' INC B 2710 ' DEC B 2720 ' JR NZ,LP19 2730 ' LD A,8 2740 ' LD E,0 2750 ' JP WRTPSG 2755 ';................................ 2760 'GCOPY: LD HL,1800H ;Copy GAMEN 2770 ' LD BC,400H 2780 'LP13: CALL NRDVRM 2790 ' EX DE,HL 2800 ' CALL NWRVRM 2810 ' EX DE,HL 2820 ' INC HL 2830 ' INC DE 2840 ' DEC BC 2850 ' LD A,B 2860 ' OR C 2870 ' JR NZ,LP13 2880 ' RET 2885 ';................................ 2890 'JOB0: LD HL,1207H ;GAME Line 2900 ' CALL JOB1 2910 ' LD HL,0B07H 2920 'JOB1: CALL POSIT 2930 ' LD B,0DH 2940 'LP14: LD HL,MG1 2950 ' CALL PRINT 2960 ' DJNZ LP14 2970 ' RET 10 ';................................ 20 'MAKESC:LD HL,1B00H ;Make SCREEN 30 ' LD BC,100H 40 ' LD A,20H 50 ' CALL BIGFIL 60 ' CALL W2LINE ;Make & Move TITLE GAMEN 70 ' LD HL,MG10 80 ' CALL PRINT 90 ' XOR A 100 ' LD (CHR),A 110 ' CALL PTITLE 120 ' CALL PUTMG0 130 ' LD DE,4000H 140 ' CALL GCOPY 150 ' LD HL,1800H ;Make & Move GAME GAMEN 160 ' LD BC,300H 170 ' LD A,0B8H 180 ' CALL BIGFIL 190 ' LD HL,MG2 200 ' CALL PRINT 210 ' CALL JOB0 220 ' LD DE,4400H 230 ' CALL GCOPY 240 ' CALL CLS 250 ' LD HL,MG12 260 ' CALL PRINT 270 ' LD HL,MG13 280 ' CALL PRINT 290 ' LD HL,MG15 300 ' CALL PRINT 310 ' LD HL,MG17 320 ' CALL PRINT 330 ' CALL PUTMG0 340 ' LD DE,4800H 350 ' CALL GCOPY 360 ' JP CLS 370 ';................................ 380 'DEMO: LD BC,0A017H ;Scrool up 'Ootsuka-soft' 390 ' CALL WRTVDP 400 ' CALL PUTMG0 410 ' LD BC,0A017H 420 'LP6: INC B 430 ' PUSH BC 440 ' CALL WRTVDP 450 ' LD BC,1000H 460 'LP12: DEC BC 470 ' LD A,B 480 ' OR C 490 ' JR NZ,LP12 500 ' POP BC 510 ' CP B ;(A=0) 520 ' JR NZ,LP6 530 ' CALL W2LINE 540 ' JP PTITLE 550 ';................................ 560 'BREAK: CALL DSPFNK ;Ctrl-Stop 570 ' CALL INITXT 580 ' LD HL,MG5 590 ' CALL PRINT 600 ' LD A,(2DH) 610 ' CP 3 620 ' RET C 630 ' LD A,(SAVCPU) 640 ' OR 80H 650 ' JP CHGCPU 660 ';................................ 670 'WAIT1: LD BC,1000H ;Wait 1000H 680 'LP20: DEC BC 690 ' LD A,B 700 ' OR C 710 ' JR NZ,LP20 720 ' RET 730 ';................................ 740 'MCHECK:CALL SPEED ;Appear Stone 750 ' LD HL,COUNTM 760 ' LD A,(HL) 770 ' INC A 780 ' AND 63 790 ' LD (HL),A 800 ' LD HL,FALL2 810 ' JR NZ,STONE3 820 ' LD A,8 ;Magic stone 830 ' LD (HL),A 840 ' INC HL 850 ' LD (HL),A 860 ' INC HL 870 ' LD (HL),A 880 ' CALL RND 890 ' AND 15 900 ' LD (COUNTM),A 910 ' RET 920 ';................................ 930 'STONE3:LD B,3 ;Stone 940 'ISI1: PUSH HL 950 'ISI2: CALL RND 960 'FLG3: CP 6 970 ' JR NC,ISI2 980 ' POP HL 990 ' LD (HL),A 1000 ' INC HL 1010 ' DJNZ ISI1 1020 ' RET 1030 ';................................ 1040 'RND: LD HL,0 ;From HIDEN 1050 ' LD D,H 1060 ' LD E,L 1070 ' ADD HL,HL 1080 ' ADD HL,HL 1090 ' ADD HL,DE 1100 ' LD DE,3711H 1110 ' ADD HL,DE 1120 ' LD (RND+1),HL 1130 ' LD A,H 1140 ' RET 1150 ';................................ 1160 'SWAP: LD HL,FALL1 ;Swap stones 1170 ' LD A,(HL) 1180 ' INC HL 1190 ' LD B,(HL) 1200 ' INC HL 1210 ' LD C,(HL) 1220 ' LD (HL),B 1230 ' DEC HL 1240 ' LD (HL),A 1250 ' DEC HL 1260 ' LD (HL),C 1270 ' RET 1280 ';................................ 1290 'JOB3: LD HL,ADDR ;Init game 1300 ' LD (HL),0FH 1310 ' INC HL 1320 ' LD (HL),0 1330 ' LD DE,SCORE 1340 ' LD BC,6 1350 ' LDIR 1360 ' CALL GMODE0 1370 ' CALL GMODE1 1380 ' CALL MCHECK 1390 ' LD HL,KASOU0 1400 ' LD DE,KASOU1 1410 ' LD BC,0A0H 1420 ' LDIR 1430 ';................................ 1440 'KA1TO2:LD HL,KASOU1 ;Move KASOU1 to KASOU2 1450 ' LD DE,KASOU2 1460 ' LD BC,0A0H 1470 ' LDIR 1480 ' RET 1490 ';................................ 1500 'JOB4: LD HL,300H ;Init ZAHYOU 1510 ' LD (LOCATE),HL 1520 ' LD HL,FALL2 ;Move FALL2 to FALL1 1530 ' LD DE,FALL1 1540 ' LD BC,3 1550 ' LDIR 1560 ' CALL MCHECK 1570 ' CALL PUTF1 1580 ' LD HL,1704H ;Print FALL2 1590 ' CALL POSIT 1600 ' LD DE,FALL2 1610 ' JP PUTF2 1620 ';................................ 1630 'JOB6: CALL STRIGA ;Check 'A' to swap 1640 ' RET NZ 1650 'SKIP6: CALL SWAP 1660 ' JP PUTF1 1670 'JOB7: CALL STRIGB ;Check 'B' to swap 1680 ' RET NZ 1690 ' CALL SWAP 1700 ' JR SKIP6 1710 ';................................ 1720 'JOB5: LD HL,TIMING ; 1730 ' LD (HL),1 1740 ' LD HL,ADDR 1750 ' LD A,(HL) 1760 ' DEC HL 1770 ' LD (HL),A 1780 ' DEC HL 1790 ' LD D,(HL) 1800 ' DEC HL 1810 ' LD E,(HL) 1820 ' INC (HL) ;Y=Y+1 1830 ' EX DE,HL 1840 ' LD DE,0B03H 1850 ' ADD HL,DE 1860 ' CALL POSIT 1870 ' LD A,0B8H 1880 ' CALL CHPUT 1890 ' JP PUTF1 1900 ';................................ 1910 'JOB8: CALL STICK ;Check STICK 1920 ' CP 3 1930 ' JR Z,JOB9 1940 ' CP 7 1950 ' JR Z,JOB10 1960 ' CP 5 1970 ' RET NZ 1980 ' LD HL,TIMING ;STICK=5 1990 ' LD (HL),3 2000 ' LD HL,COUNTR 2010 ' LD (HL),1 2020 'ADDSC1:LD HL,PTS+2 2030 ' LD (HL),1 2040 ' JP PUTSCO 2050 ';................................ 2060 'POINT: LD DE,KASOU1 ;Get KASOU1(H,L) 2070 ' LD A,L 2080 ' ADD A,A 2090 ' ADD A,A 2100 ' ADD A,A 2110 ' OR H 2120 ' LD L,A 2130 ' LD H,0 2140 ' ADD HL,DE 2150 ' LD A,(HL) 2160 ' RET 2170 ';................................ 2180 'JOB9: LD HL,(LOCATE);STICK=3 2190 ' INC H 2200 ' LD B,1 ;Zahyou zoubun 2210 ' JR SKIP8 2220 ';................................ 2230 'JOB10: LD HL,(LOCATE);STICK=7 2240 ' DEC H 2250 ' LD B,0FFH ;Zahyou zoubun 2260 'SKIP8: INC L ;Ugokeruka 2270 ' INC L ;hantei 2280 ' CALL POINT ; 2290 ' CP 7 ; 2300 ' RET NZ ; 2310 ' LD HL,TIMING 2320 ' LD (HL),3 2330 ' LD HL,(LOCATE) 2340 ' LD DE,0B03H 2350 ' ADD HL,DE 2360 ' CALL POSIT 2370 ' LD HL,MG7 2380 ' CALL PRINT 2390 ' LD HL,LOCATE+1 2400 ' LD A,B 2410 ' ADD A,(HL) 2420 ' LD (HL),A 2430 ';................................ 2440 'PUTF1: LD HL,(LOCATE);Print FALL1 2450 ' LD DE,0B03H 2460 ' ADD HL,DE 2470 ' CALL POSIT 2480 ' LD DE,FALL1 2490 ' DEFB 3EH 2500 'PUTF2: NOP ;Print FALL2 2510 ' CALL PTFALL 2520 ' CALL PTFALL 2530 'PTFALL:LD A,(DE) 2540 ' ADD A,0B1H 2550 ' CALL CHPUT 2560 ' INC DE 2570 ' LD HL,MG6 2580 ' JP PRINT 2590 ';................................ 2600 'GAME: CALL JOB3 ;GAME MAIN 2610 'SKIP3: CALL JOB4 2620 'SKIP5: CALL JOB5 2630 'SKIP7: LD HL,TIMING 2640 ' DEC (HL) 2650 ' JR NZ,SKMN0 2660 ' LD (HL),3 2670 ' CALL JOB6 2680 ' CALL NZ,JOB7 2690 ' CALL JOB8 2700 'SKMN0: CALL WAIT1 2710 ' LD HL,COUNTR 2720 ' DEC (HL) 2730 ' JR NZ,SKIP7 2740 ' LD HL,(LOCATE) 2750 ' INC L 2760 ' INC L 2770 ' INC L 2780 ' CALL POINT 2790 ' CP 7 2800 ' JR Z,SKIP5 2810 ' PUSH AF 2820 ' CALL DAAN 2830 ' POP AF 2840 ' CALL CHKMIN 2850 ' LD HL,(LOCATE) 2860 ' LD L,3 2870 ' CALL POINT 2880 ' CP 7 2890 ' JR Z,SKIP3 2900 ' RET 2910 ';................................ 2920 'JOB12: LD HL,(LOCATE);Set FALL1 to KASOU 2930 ' CALL POINT ;(HL= Address of KASOU) 2940 'JOB13: LD B,3 2950 ' LD DE,FALL1 2960 'LP22: LD A,(DE) 2970 ' LD (HL),A 2980 ' INC DE 2990 ' PUSH BC 3000 ' LD BC,8 3010 ' ADD HL,BC 3020 ' POP BC 3030 ' DJNZ LP22 3040 ' RET 3050 ';................................ 3060 'WAIT2: PUSH BC 3070 ' CALL WAIT3 3080 ' POP BC 3090 ' JP POINT 3100 ';................................ 3110 'WAIT3: LD BC,800H 3120 'WAIT3L:DEC BC 3130 ' LD A,B 3140 ' OR C 3150 ' JR NZ,WAIT3L 3160 ' RET 3170 ';................................ 3180 'ADD01: OR A ;From HIDEN 3190 ' LD B,3 ;BCD + BCD 3200 'ADDLP: LD A,(DE) 3210 ' ADC A,(HL) 3220 ' DAA 3230 ' LD (HL),A 3240 ' DEC DE 3250 ' DEC HL 3260 ' DJNZ ADDLP 3270 ' RET NC 3280 ' LD A,99H 3290 ' LD (HL),A 3300 ' INC HL 3310 ' LD (HL),A 3320 ' INC HL 3330 ' LD (HL),A 3340 ' RET 3350 ';................................ 3360 'PUTSCO:LD HL,SCORE+2;Print SCORE 3370 ' LD DE,PTS+2 3380 ' CALL ADD01 3390 ' LD HL,6371 3400 ' LD BC,300H 3410 ' LD DE,SCORE 3420 ' CALL LPWRT 3430 ' LD HL,PTS ;PTS 3440 ' LD (HL),B ;zero 3450 ' INC HL ;clear 3460 ' LD (HL),B ;(B=0) 3470 ' INC HL ; 3480 ' LD (HL),B ; 3490 ' RET 10 ';.................................. 20 'PUTPTS:LD HL,COUNTN ;Print PTS 30 ' LD C,(HL) 40 'RENSA: PUSH BC ;Rensa Syori 50 ' LD HL,PTS 60 ' LD DE,PTSSAV 70 ' LD BC,3 80 ' LDIR 90 ' POP BC 100 ' DEC C 110 ' JR Z,SKPREN 120 ' LD HL,PTS+2 130 ' LD DE,PTSSAV+2 140 ' CALL ADD01 150 ' JR RENSA 160 'SKPREN:LD HL,6454 170 ' LD DE,PTS+1 180 ' LD BC,200H 190 ' JP LPWRT 200 ';................................. 210 'BNKISI:LD B,3 ;Brink stone 220 'LP29: PUSH BC 230 ' LD DE,KASOU1+1 240 ' CALL PUTKA 250 ' CALL WAIT1 260 ' LD DE,KASOU2+1 270 ' CALL PUTKA 280 ' CALL WAIT1 290 ' POP BC 300 ' DJNZ LP29 310 ' RET 320 ';................................. 330 'PUTKA: LD HL,0C03H ;Print KASOU 340 ' CALL POSIT 350 ' LD C,11H 360 'LP31: LD B,6 370 'LP30: LD A,(DE) 380 'SKIP15:ADD A,0B1H 390 ' CALL CHPUT 400 ' INC DE 410 ' DJNZ LP30 420 ' INC DE 430 ' INC DE 440 ' LD B,1AH 450 ' LD A,1CH 460 'LP32: CALL CHPUT 470 ' DJNZ LP32 480 ' DEC C 490 ' JR NZ,LP31 500 ' RET 510 ';................................. 520 'PUTSTN:LD HL,STONE+2 ;Print keshita isi no kazu 530 ' LD DE,CNTISI+2 540 ' CALL ADD01 550 ' LD BC,200H 560 ' LD HL,6533 570 ' LD DE,STONE+1 580 ' JP LPWRT 590 ';................................. 600 'WCIPTS:LD HL,CNTISI+2;Write keshita isi no kazu to PTS 610 ' LD DE,PTS+2 620 ' LD A,(HL) 630 ' RLCA 640 ' RLCA 650 ' RLCA 660 ' RLCA 670 ' AND 0F0H 680 ' LD (DE),A 690 ' DEC DE 700 ' LD A,(HL) 710 ' RRCA 720 ' RRCA 730 ' RRCA 740 ' RRCA 750 ' AND 0FH 760 ' LD (DE),A 770 ' RET 780 ';................................. 790 'TUMERU:LD DE,-8 800 ' LD HL,KASOU2+1 810 ' LD C,6 820 'LP35: PUSH HL 830 ' LD B,0 840 ' CALL TUMELP 850 ' POP HL 860 ' INC HL 870 ' DEC C 880 ' JR NZ,LP35 890 ' RET 900 'TUMELP:LD A,(HL) 910 ' CP 9 920 ' RET Z 930 ' CP 6 940 ' JR NZ,SKIP17 950 ' PUSH BC 960 ' PUSH HL 970 'LP34: ADD HL,DE 980 ' LD A,(HL) 990 ' OR A 1000 ' SBC HL,DE 1010 ' LD (HL),A 1020 ' ADD HL,DE 1030 ' DJNZ LP34 1040 ' POP HL 1050 ' POP BC 1060 'SKIP17:OR A 1070 ' SBC HL,DE 1080 ' INC B 1090 ' JR TUMELP 1100 ';................................ 1110 'CHKYOK:LD BC,6901H ;Check yoko 1120 ' LD HL,4 1130 ';................................ 1140 'CHECKS:CALL POINT ;Check stone 1150 ' LD A,7 1160 ' LD (BEFORE),A 1170 ' XOR A 1180 ' LD DE,COUNTR 1190 ' LD (DE),A 1200 'CHKLP: DEC B 1210 ' RET Z 1220 ' LD A,(BEFORE) 1230 ' CP (HL) 1240 ' JR NZ,SKIP11 1250 ' LD A,(DE) 1260 ' INC A 1270 ' LD (DE),A 1280 'SKIP14:PUSH BC 1290 ' LD B,0 1300 ' ADD HL,BC 1310 ' POP BC 1320 ' JR CHKLP 1330 'SKIP11:LD A,(DE) 1340 ' CP 2 1350 ' JR C,SKIP13 1360 ' LD A,(BEFORE) 1370 ' CP 6 1380 ' JR NC,SKIP13 1390 ' PUSH BC 1400 ' PUSH DE 1410 ' PUSH HL 1420 ' LD A,(DE) 1430 ' LD DE,0A0H 1440 ' ADD HL,DE 1450 ' INC A 1460 ' LD B,A 1470 ' LD D,0 1480 ' LD E,C 1490 'LP26: OR A 1500 ' SBC HL,DE 1510 ' LD (HL),6 1520 ' DJNZ LP26 1530 ' POP HL 1540 ' POP DE 1550 ' POP BC 1560 'SKIP13:LD A,(HL) 1570 ' LD (BEFORE),A 1580 ' XOR A 1590 ' LD (DE),A 1600 ' JP SKIP14 1610 ';................................ 1620 'CHKTAT:LD HL,101H ;Check tate 1630 ' LD C,8 1640 ' LD D,6 1650 'LP25: LD B,12H 1660 ' PUSH BC 1670 ' PUSH DE 1680 ' PUSH HL 1690 ' CALL CHECKS 1700 ' POP HL 1710 ' POP DE 1720 ' POP BC 1730 ' INC H 1740 ' DEC D 1750 ' JR NZ,LP25 1760 ' RET 1770 ';................................ 1780 'CHKNA2:LD HL,600H ;Check naname2 1790 ' LD C,7 1800 ' JR SKPNA1 1810 ';................................ 1820 'CHKNA1:LD HL,100H ;Check naname1 1830 ' LD C,9 1840 'SKPNA1:LD D,12H 1850 'LP27: LD B,8 1860 ' PUSH BC 1870 ' PUSH DE 1880 ' PUSH HL 1890 ' CALL CHECKS 1900 ' POP HL 1910 ' POP DE 1920 ' POP BC 1930 ' INC L 1940 ' DEC D 1950 ' JR NZ,LP27 1960 ' RET 1970 ';................................ 1980 'CHKMIN:PUSH AF ;Check MAIN 1990 ' CALL PUTF1 2000 ' CALL JOB12 2010 ' CALL KA1TO2 2020 ' LD A,1 2030 ' LD (COUNTN),A 2040 ' LD A,(FALL1) 2050 ' CP 8 2060 ' JR Z,MAHOU 2070 ' POP AF 2080 'LP24: XOR A 2090 ' LD (CNTISI+2),A 2100 ' CALL CHKYOK 2110 ' CALL CHKTAT 2120 ' CALL CHKNA1 2130 ' CALL CHKNA2 2140 ' CALL CNTSTN 2150 ' LD A,(CNTISI+2) 2160 ' OR A ;kieru isi no kazu =0? 2170 ' RET Z 2180 ' CALL WCIPTS 2190 'SKIP9: CALL PUTPTS 2200 ' CALL BNKISI 2210 ' CALL PUTSCO 2220 ' CALL PUTSTN 2230 ' CALL TUMERU 2240 ' LD DE,KASOU2+1 2250 ' CALL PUTKA 2260 ' CALL DAAN 2270 ' LD HL,MG8 2280 ' CALL PRINT 2290 ' LD HL,COUNTN 2300 ' INC (HL) 2310 ' LD HL,KASOU2 2320 ' LD DE,KASOU1 2330 ' LD BC,0A0H 2340 ' LDIR 2350 ' JR LP24 2360 ';................................ 2370 'MAHOU: LD HL,FALL1 ;Erase magic stone 2380 ' DEC (HL) 2390 ' INC HL 2400 ' DEC (HL) 2410 ' INC HL 2420 ' DEC (HL) 2430 ' LD HL,(LOCATE) 2440 ' CALL POINT 2450 ' LD DE,0A0H 2460 ' ADD HL,DE 2470 ' CALL JOB13 2480 ' LD HL,PTS+1 2490 ' LD (HL),20H 2500 ' POP DE 2510 ' LD B,88H 2520 ' LD E,6 2530 ' LD HL,KASOU2+24 2540 'MAHLP: LD A,(HL) 2550 ' CP D 2560 ' JR NZ,SKIP10 2570 ' LD (HL),E 2580 'SKIP10:INC HL 2590 ' DJNZ MAHLP 2600 ' JR SKIP9 2610 ';................................ 2620 'SPEED: LD A,(COUNTM);Speed syori 2630 ' AND 0FH 2640 ' RET NZ 2650 ' LD HL,ADDR 2660 ' LD A,(HL) 2670 ' DEC A 2680 ' RET Z 2690 ' LD (HL),A 2700 ' RET 2710 ';................................ 2720 'GOTITL:LD HL,43DFH ;Go TITLE 2730 ' LD DE,1BDFH 2740 ' LD BC,17H 2750 ' CALL JOBGT 2760 'LPGT0: PUSH BC 2770 ' CALL WRTVDP 2780 ' LD B,0 2790 'LPGT1: DJNZ LPGT1 2800 ' POP BC 2810 ' DEC B 2820 ' CALL PIIN 2830 ' LD A,B 2840 ' AND 7 2850 ' JR NZ,LPGT0 2860 ' CALL JOBGT 2870 ' INC B 2880 ' DEC B 2890 ' JR NZ,LPGT0 2900 ' LD A,8 2910 ' LD E,0 2920 ' JP WRTPSG 1000 'JOBGT: CALL NRDVRM 1010 ' EX DE,HL 1020 ' CALL NWRVRM 1030 ' EX DE,HL 1040 ' DEC HL 1050 ' DEC DE 1060 ' LD A,E 1070 ' AND 1FH 1080 ' JR NZ,JOBGT 1090 ' RET 1100 ';................................. 1110 'CNTSTN:LD DE,CNTISI+2;Count kieru ishi no kazu 1120 ' LD BC,0A006H 1130 ' LD HL,KASOU2+1 1140 'LPCNT: LD A,(HL) 1150 ' CP C 1160 ' JR NZ,SKPCNT 1170 ' LD A,(DE) 1180 ' ADD A,1 1190 ' DAA 1200 ' LD (DE),A 1210 'SKPCNT:INC HL 1220 ' DJNZ LPCNT 1230 ' RET 1240 ';................................. 1250 'GMOVER:CALL KESU ;GAME OVER 1260 ' CALL SETSPR 1270 ' CALL DAAN 1280 ' CALL CHKSCO 1290 'LPGM1: CALL STRIGA 1300 ' JR NZ,LPGM1 1310 ' CALL SPRDWN 1320 ' JP ERASPR 1330 ';................................. 1340 'DAAN: LD A,7 ;Sound DAAN! 1350 ' LD E,0 1360 ' CALL WRTPSG 1370 ' LD A,6 1380 ' LD E,27 1390 ' CALL WRTPSG 1400 ' LD A,10 1410 ' LD E,16 1420 ' CALL WRTPSG 1430 ' LD A,12 1440 ' DEC E 1450 ' CALL WRTPSG 1460 ' INC A 1470 ' LD E,0 1480 ' JP WRTPSG 1490 ';................................. 1500 'CPBCD: LD B,3 ;From HIDEN 1510 'CPBLP: LD A,(DE) 1520 ' CP (HL) 1530 ' RET NZ 1540 ' INC HL 1550 ' INC DE 1560 ' DJNZ CPBLP 1570 ' RET 1580 ';................................. 1590 'CHKSCO:LD HL,SCORE ;Check SCORE 1600 ' LD DE,HSCORE 1610 ' CALL CPBCD 1620 ' RET NC 1630 ' LD HL,MG11 1640 ' CALL PRINT 1650 ' LD HL,SCORE 1660 ' LD DE,HSCORE 1670 ' LD BC,6 1680 ' LDIR 1690 ' LD HL,41F1H 1700 ' LD DE,HSCORE 1710 ' LD BC,300H 1720 ' CALL LPWRT 1730 ' LD HL,4231H 1740 ' LD DE,HSTONE 1750 ' LD BC,300H 1760 'LPWRT: LD A,(DE) 1770 ' RRCA 1780 ' RRCA 1790 ' RRCA 1800 ' RRCA 1810 ' CALL WTKAZU 1820 ' INC HL 1830 ' LD A,(DE) 1840 ' CALL WTKAZU 1850 ' INC HL 1860 ' INC DE 1870 ' DJNZ LPWRT 1880 ' RET 1890 ';................................. 1900 'WTKAZU:AND 0FH ;Write kazu 1910 ' INC C 1920 ' DEC C ;Creg.=Zero suppress Flag 1930 ' CALL Z,SKPWRT 1940 ' ADD A,30H 1950 ' LD C,A 1960 ' JP NWRVRM 1970 'SKPWRT:OR A 1980 ' RET NZ 1990 ' POP AF 2000 ' LD A,32 2010 ' JP NWRVRM 2020 ';................................. 2030 'KESU: LD HL,6731 2040 ' LD DE,KASOU1+129 2050 ' LD C,16 2060 'LPOVR2:PUSH BC 2070 ' PUSH DE 2080 ' PUSH HL 2090 ' LD B,6 2100 'LPOVR0:LD A,(DE) 2110 ' CP 7 2120 ' LD A,'' 2130 ' JR Z,SKOVR0 2140 ' DEC A 2150 'SKOVR0:CALL NWRVRM 2160 ' INC HL 2170 ' INC DE 2180 ' DJNZ LPOVR0 2190 'SKOVR1:CALL WAIT1 2200 ' CALL WAIT1 2210 ' POP HL 2220 ' POP DE 2230 ' LD BC,-32 2240 ' ADD HL,BC 2250 ' EX DE,HL 2260 ' LD BC,-8 2270 ' ADD HL,BC 2280 ' EX DE,HL 2290 ' POP BC 2300 ' DEC C 2310 ' JR NZ,LPOVR2 2320 ' RET 2330 ';................................. 2340 'ERASPR:LD HL,1B03H 2350 ' LD B,8 2360 'ERALP: XOR A 2370 ' CALL NWRVRM 2380 ' INC HL 2390 ' INC HL 2400 ' INC HL 2410 ' INC HL 2420 ' DJNZ ERALP 2430 ' RET 2440 ';................................. 2450 'INISPR:LD HL,SPRDAT 2460 ' LD DE,3800H 2470 ' LD BC,56 2480 ' JP LDIRVM 2490 ';................................. 2500 'SETSPR:LD HL,1B00H 2510 ' LD DE,YDATA 2520 ' LD B,8 2530 'SPRLP0:LD A,(DE) 2540 ' INC DE 2550 ' CALL NWRVRM 2560 ' INC HL 2570 ' LD A,(DE) 2580 ' INC DE 2590 ' CALL NWRVRM 2600 ' LD A,(DE) 2610 ' INC HL 2620 ' INC DE 2630 ' CALL NWRVRM 2640 ' INC HL 2650 ' LD A,8 2660 ' CALL NWRVRM 2670 ' INC HL 2680 ' DJNZ SPRLP0 2690 'SPRUP: LD HL,1B00H ;Move (up) sprite 2700 ' LD B,8 2710 'SPRLP1:CALL NRDVRM 2720 'FLG1: DEC A 2730 ' CALL NWRVRM 2740 ' INC HL 2750 ' INC HL 2760 ' INC HL 2770 ' INC HL 2780 ' DJNZ SPRLP1 2790 ' LD B,0 2800 'SPRLP2:DJNZ SPRLP2 2810 ' LD HL,1B00H 2820 ' CALL NRDVRM 2830 'FLG2: CP 72 2840 ' JR NZ,SPRUP 2850 ' RET 2860 ';................................. 2870 'SPRDWN:LD HL,FLG1 ;Move (down) sprite 2880 ' LD (HL),3CH 2890 ' LD HL,FLG2+1 2900 ' LD (HL),0F0H 2910 ' PUSH HL 2920 ' CALL SPRUP 2930 ' POP HL 2940 ' LD (HL),72 2950 ' LD HL,FLG1 2960 ' LD (HL),3DH 2970 ' RET 2980 ';................................. 2990 'SETING:LD HL,4BDFH 3000 ' LD DE,1BDFH 3010 ' LD BC,17H 3020 ' CALL JOBGT 3030 ' CALL LPGT0 3040 ' CALL SETMIN 3050 ' LD HL,3FE0H 3060 ' LD DE,17E0H 3070 ' LD BC,17H 3080 ' JP LP19 3090 ';................................. 3100 'TURBO: LD A,(2DH) 3110 ' CP 3 3120 ' RET C 3130 ' CALL GETCPU 3140 ' LD (SAVCPU),A 3150 ' LD A,80H 3160 ' JP CHGCPU 3170 ';................................. 3180 'MODORI:LD DE,4800H 3190 ' CALL GCOPY 3200 'SETMIN:CALL STRIGB ;Setting main 3210 ' RET Z 3220 ' LD HL,MODORI 3230 ' PUSH HL 3240 ' CALL STICK 3250 ' CP 7 3260 ' JR Z,CHANGE 3270 ' CP 3 3280 ' JR Z,CHANGE 3290 ' CP 5 3300 ' JR Z,CSRDWN 3310 ' POP HL 3320 ' DEC A 3330 ' JR NZ,SETMIN 3340 ' PUSH HL 3350 ' LD HL,CSRPOS 3360 ' LD A,(HL) 3370 ' OR A 3380 ' RET Z 3390 ' CALL ERACSR 3400 ' DEC A 3410 ' JR PUTCSR 3420 ';................................. 3430 'CSRDWN:LD HL,CSRPOS ;Down cursor 3440 ' LD A,(HL) 3450 ' CP 2 3460 ' RET Z 3470 ' CALL ERACSR 3480 ' INC A 3490 ';. . . . . . . . . . . . . . . . . 3500 'PUTCSR:LD (HL),A ;Print cursor 3510 ' ADD A,A 3520 ' ADD A,7 3530 ' LD H,10 3540 ' LD L,A 3550 ' CALL POSIT 3560 ' LD A,'' 3570 ' JP CHPUT 3580 ';................................. 3590 'ERACSR:PUSH AF ;Erase cursor 3600 ' PUSH HL 3610 ' ADD A,A 3620 ' ADD A,7 3630 ' LD H,10 3640 ' LD L,A 3650 ' CALL POSIT 3660 ' POP HL 3670 ' LD A,32 3680 ' CALL CHPUT 3690 ' POP AF 3700 ' RET 3710 ';................................. 3720 'CHANGE:LD A,(CSRPOS) 3730 ' OR A 3740 ' JR Z,FAST 3750 ' DEC A 3760 ' JR Z,EASY 3770 ' LD HL,PUTF2 3780 ' LD A,(HL) 3790 ' XOR 0C9H 3800 ' LD (HL),A 3810 ' JR Z,MOD2ON 3820 ' LD HL,MG18 3830 ' JP PRINT 3840 ';................................. 3850 'MOD2ON:LD HL,MG17 3860 ' JP PRINT 3870 ';................................. 3880 'EASY: LD HL,MODE1 3890 ' LD A,(HL) 3900 ' OR A 3910 ' JR NZ,MOD1NO 3920 ' INC (HL) 3930 ' LD A,5 3940 ' LD (FLG3+1),A 3950 ' LD HL,MG16 3960 ' JP PRINT 3970 ';................................. 3980 'MOD1NO:DEC (HL) 3990 ' LD A,6 4000 ' LD (FLG3+1),A 4010 ' LD HL,MG15 4020 ' JP PRINT 4030 ';................................. 4040 'FAST: LD HL,MODE0 4050 ' LD A,(HL) 4060 ' OR A 4070 ' JR NZ,MOD0NO 4080 ' INC (HL) 4090 ' LD HL,MG14 4100 ' JP PRINT 4110 ';................................. 4120 'MOD0NO:DEC (HL) 4130 ' LD HL,MG13 4140 ' JP PRINT 4150 ';................................. 4160 'GMODE0:LD A,(MODE0) 4170 ' OR A 4180 ' RET Z 4190 ' LD A,8 4200 ' LD (ADDR),A 4210 ' LD A,50H 4220 ' LD (SCORE+1),A 4230 ' CALL PUTSCO 4240 ' RET 4250 ';................................. 4260 'GMODE1:LD A,(MODE2) 4270 ' OR A 4280 ' RET Z 4290 ' LD HL,MG19 4300 ' JP PRINT 1000 ';................................. 1010 'PIIN: PUSH DE ;Sound PIIN 1020 ' LD A,7 1030 ' LD E,0B8H 1040 ' CALL WRTPSG 1050 ' LD A,8 1060 ' LD E,15 1070 ' CALL WRTPSG 1080 ' LD A,B 1090 ' NEG 1100 ' LD E,A 1110 ' XOR A 1120 ' CALL WRTPSG 1130 ' POP DE 1140 ' RET 10 ';DATA------------------------------ 20 'CHRDT: DEFB 3CH, 7EH,0FBH,0FDH 30 ' DEFB 0FDH,0FFH, 7EH, 3CH 40 ' DEFB 42H,0C3H, 24H, 18H 50 ' DEFB 18H, 24H,0C3H, 42H 60 ' DEFB 18H, 3CH, 7EH,0FFH 70 ' DEFB 0FFH, 7EH, 3CH,0FFH 80 ' DEFB 0FFH, 81H,0BFH,0BFH 90 ' DEFB 0BFH,0BFH,0BFH,0BFH 100 ' DEFB 1CH, 2BH, 4EH, 42H ;O 110 ' DEFB 44H, 44H, 38H, 0 120 ' DEFB 0 , 0 , 38H, 54H ;o 130 ' DEFB 8FH, 88H, 70H, 0 140 ' DEFB 0 , 8 , 3EH, 10H ;t 150 ' DEFB 30H,0D1H, 0EH, 0 160 ' DEFB 0 , 0 , 4 , 0AH ;s 170 ' DEFB 32H,0C5H, 1EH, 0 180 ' DEFB 0 , 0 , 22H, 64H ;u 190 ' DEFB 0C4H, 49H, 36H, 0 200 ' DEFB 10H, 38H, 50H, 64H ;k 210 ' DEFB 0F8H, 51H, 9EH, 0 220 ' DEFB 0 , 0 , 30H, 48H ;a 230 ' DEFB 88H, 95H, 76H, 0 240 ' DEFB 18H, 24H, 2CH, 58H ;f 250 ' DEFB 0E0H, 59H, 6EH, 30H 260 ' DEFB 0 , 0 , 0 , 60H ;- 270 ' DEFB 92H, 0CH, 0 , 0 280 'ZERODT:DEFB 3CH, 66H, 66H, 66H ;0 290 ' DEFB 66H, 66H, 3CH, 0 300 'CLRDT: DEFB 21H, 61H, 51H,0A1H 310 ' DEFB 91H,0D1H,0F1H, 14H 320 ' DEFB 0AFH, 54H 330 'MOJIDT:DEFB 7DH,0E2H, 3CH, 4 340 ' DEFB 4 , 4 , 5 ,0E8H 350 ' DEFB 8 , 4 , 29H, 14H 360 ' DEFB 7CH,0CEH,0A2H 370 'MG0: DEFB 1BH 380 ' DEFM 'Y,% 1991 þ½ ' 400 ' DEFB 0 410 'MG1: DEFB '',29,31,0 420 'MG2: DEFB 1BH 430 ' DEFM 'Y%"SCORE' 440 ' DEFB 1BH,'Y',27H 450 ' DEFM '# 0' 460 ' DEFB 1BH 470 ' DEFM 'Y*"STONE' 480 ' DEFB 1BH 490 ' DEFM 'Y,# 0' 500 ' DEFB 1BH 510 ' DEFM 'Y!4' 520 ' DEFB 1BH 530 ' DEFM 'Y3*' 540 ' DEFB 1BH 550 ' DEFM 'Y#6 ' 560 ' DEFB 29,31,32 570 ' DEFB 29,31,32,1BH 580 ' DEFM 'Y)6 ' 590 ' DEFB 1BH 600 ' DEFM 'Y05' 610 ' DEFB 1BH 620 ' DEFM 'Y1:½' 630 ' DEFB 0 640 'MG3: DEFB 1BH 650 ' DEFM 'Y4-START!' 660 ' DEFB 0 670 'MG4: DEFB 1BH 680 ' DEFM 'Y4- ' 690 ' DEFB 0 700 'MG5: DEFM 'SEE YOU AGAIN!' 710 ' DEFB 0 720 'MG6: DEFB 29,31,0 730 'MG7: DEFB '',29,31,'' 740 ' DEFB 29,31,'',0 750 'MG8: DEFB 1BH 760 ' DEFM 'Y)6 ' 770 ' DEFB 0 780 'MG10: DEFB 1BH 790 ' DEFM 'Y/(HI-SCORE 5000' 800 ' DEFB 1BH 810 ' DEFM 'Y1+STONE 500' 820 ' DEFB 0 830 'MG11: DEFB 1BH 840 ' DEFM 'Y#(You are top!' 850 ' DEFB 0 860 'MG12: DEFB 1BH 870 ' DEFM 'Y"+' 880 ' DEFB 1BH 890 ' DEFM 'Y&) SPEED' 900 ' DEFB 1BH 910 ' DEFM 'Y(+STONE' 920 ' DEFB 1BH 930 ' DEFM 'Y*+NEXT' 940 ' DEFB 0 950 'MG13: DEFB 1BH 960 ' DEFM 'Y&1NORMAL' 970 ' DEFB 0 980 'MG14: DEFB 1BH 990 ' DEFM 'Y&1FAST ' 1000 ' DEFB 0 1010 'MG15: DEFB 1BH 1020 ' DEFM 'Y(1NORMAL' 1030 ' DEFB 0 1040 'MG16: DEFB 1BH 1050 ' DEFM 'Y(1EASY ' 1060 ' DEFB 0 1070 'MG17: DEFB 1BH 1080 ' DEFM 'Y*1ON ' 1090 ' DEFB 0 1100 'MG18: DEFB 1BH 1110 ' DEFM 'Y*1OFF' 1120 ' DEFB 0 1130 'MG19: DEFB 1BH 1140 ' DEFM 'Y#6?' 1150 ' DEFB 29,31,63,29,31,63,0 1160 'YDATA: DEFB 90H,60H,0,90H,68H,1 1170 ' DEFB 90H,70H,2,90H,78H,3 1180 ' DEFB 98H,60H,4,98H,68H,5 1190 ' DEFB 98H,70H,3,98H,78H,6 1200 'SPRDAT:DEFB 0,7EH,40H,40H,4EH,42H,42H,7EH 1210 ' DEFB 0,3CH,66H,42H,42H,7EH,42H,42H 1220 ' DEFB 0,7EH,63H,49H,49H,49H,49H,49H 1230 ' DEFB 0,7EH,40H,40H,7EH,40H,40H,7EH 1240 ' DEFB 0,7EH,42H,42H,42H,42H,42H,7EH 1250 ' DEFB 0,42H,42H,42H,42H,66H,3CH,18H 1260 ' DEFB 0,7CH,46H,42H,42H,7CH,42H,42H 1270 'KASOU0:DEFB 7,7,7,7,7,7,7,7 ;0 1280 ' DEFB 7,7,7,7,7,7,7,7 ;1 1290 ' DEFB 7,7,7,7,7,7,7,7 ;2 1300 ' DEFB 9,7,7,7,7,7,7,9 ;3 1310 ' DEFB 9,7,7,7,7,7,7,9 ;4 1320 ' DEFB 9,7,7,7,7,7,7,9 ;5 1330 ' DEFB 9,7,7,7,7,7,7,9 ;6 1340 ' DEFB 9,7,7,7,7,7,7,9 ;7 1350 ' DEFB 9,7,7,7,7,7,7,9 ;8 1360 ' DEFB 9,7,7,7,7,7,7,9 ;9 1370 ' DEFB 9,7,7,7,7,7,7,9 ;10 1380 ' DEFB 9,7,7,7,7,7,7,9 ;11 1390 ' DEFB 9,7,7,7,7,7,7,9 ;12 1400 ' DEFB 9,7,7,7,7,7,7,9 ;13 1410 ' DEFB 9,7,7,7,7,7,7,9 ;14 1420 ' DEFB 9,7,7,7,7,7,7,9 ;15 1430 ' DEFB 9,7,7,7,7,7,7,9 ;16 1440 ' DEFB 9,9,9,9,9,9,9,9 ;17 1450 ' DEFB 9,9,9,9,9,9,9,9 ;18 1460 ' DEFB 9,9,9,9,9,9,9,9 ;19 1470 'KASOU1:DEFS 0A0H 1480 'KASOU2:DEFS 0A0H 1490 ';WORK AREA---------------------- 1500 'CHR: DEFB 0 1510 'FALL1: DEFS 3 1520 'FALL2: DEFS 3 1530 'LOCATE:DEFW 300H 1540 'COUNTR:DEFB 0 1550 'ADDR: DEFB 0 1560 'COUNTM:DEFB 0 1570 'SCORE: DEFS 3 1580 'STONE: DEFS 3 1590 'PTSSAV:DEFS 3 1600 'PTS: DEFS 3 1610 'CNTISI:DEFB 0,0,0 1620 'BEFORE:DEFB 0 1630 'COUNTN:DEFB 0 1640 'TIMING:DEFB 0 1650 'HSCORE:DEFB 0,50H,0 1660 'HSTONE:DEFB 0,5,0 1670 'MODE0: DEFB 0 1680 'MODE1: DEFB 0 1690 'MODE2: DEFB 0 1700 'CSRPOS:DEFB 0 1710 'SAVCPU:DEFB 0