1010 .TF GAME 1020 *-------------------------------- 1030 * CONSTANT 1040 *-------------------------------- 1050 GETKEY .EQ $C000 1060 CLRKEY .EQ $C010 1070 PRTHEX .EQ $FDDA 1080 PRTCHR .EQ $FDED 1090 *-------------------------------- 1100 * START PROGRAM 1110 *-------------------------------- 1120 SET LDA #$00 1130 TAX 1140 .1 STA SROW,X 1150 INX 1160 BNE .1 1170 LDA #$31 1180 STA ROMNUM 1190 LDA #$03 1200 STA LIFE 1210 LDA #$C0 1220 STA SOUND+13 1230 LDX #3 1240 .2 LDA KEYSTR,X 1250 STA KEYDAT,X 1260 DEX 1270 BPL .2 1280 *-------------------------------- 1290 * PRINT SCREEN 1300 *-------------------------------- 1310 LDA $C051 1320 LDA $C052 1330 JSR PRINT 1340 .HS 80800D04 1350 .AS "BLOAD HIGH SCORE" 1360 .HS 8D 1370 JSR PRINT 1380 .HS FF0A00 1390 .AS "THE ANNOYING SNAKE" 1400 .HS 0D 1410 .AS "MADE BY ALON FLIESS 1987 WHITEFISH BAY" 1420 .HS 0D0D 1430 .AS " HIGH SCORE TABLE" 1440 .HS 0D 1450 .AS " NAME ROOM LEVEL SCORE" 1460 .HS 0D 1470 .AS " ---- ---- ----- -----" 1480 .HS 8D 1490 LDA #10 1500 STA NCOUNT 1510 PTBLE LDX #00 1520 .2 LDY #14 1530 .1 LDA $2000,X 1540 JSR PRTCHR 1550 INX 1560 DEY 1570 BNE .1 1580 LDA #$A0 1590 JSR PRTCHR 1600 JSR PRTCHR 1610 LDA $2000,X 1620 JSR PRTCHR 1630 LDA #$A0 1640 LDY #9 1650 .3 JSR PRTCHR 1660 DEY 1670 BNE .3 1680 INX 1690 LDA $2000,X 1700 JSR PRTCHR 1710 INX 1720 LDA #$A0 1730 LDY #7 1740 .4 JSR PRTCHR 1750 DEY 1760 BNE .4 1770 LDA $2000,X 1780 JSR PRTHEX 1790 INX 1800 LDA $2000,X 1810 JSR PRTHEX 1820 INX 1830 LDA #$8D 1840 JSR PRTCHR 1850 DEC NCOUNT 1860 BNE .2 1870 JSR PRINT 1880 .HS 80800D0D 1890 .AS "MOVE-" 1900 .HS 0D 1910 .AS " I" 1920 .HS 0D 1930 .AS " J L" 1940 .HS 0D 1950 .AS " M" 1960 .HS 0D0D 1970 .AS "LEVEL (1-5)" 1972 .AS -"?" 1980 *-------------------------------- 1990 * GET LEVEL 2000 *-------------------------------- 2010 GET.LEVEL 2020 .2 LDA GETKEY 2030 BPL .2 2040 STA CLRKEY 2050 CMP #$B6 2060 BCS .2 2070 CMP #$B1 2080 BCC .2 2090 STA SLEVEL 2100 JSR PRTCHR 2110 AND #$07 2120 TAX 2130 DEX 2140 LDA LEVELT,X 2150 STA LEVEL 2160 2170 *-------------------------------- 2180 * GET NEW KEYS 2190 *-------------------------------- 2200 DEFKEY JSR PRINT 2210 .HS FF8080 2220 .AS "DO YOU WANT TO CHANGE KEYS" 2225 .AS -"?" 2230 .1 LDA GETKEY 2240 BPL .1 2250 STA CLRKEY 2260 JSR PRTCHR 2270 CMP #$D9 2280 BEQ .2 2290 JMP STRTGM 2300 .2 JSR PRINT 2310 .HS 80800D0D 2320 .AS "DOWN" 2325 .AS -"?" 2330 .3 LDA GETKEY 2340 BPL.3 2350 STA CLRKEY 2360 STA KEYDAT 2370 JSR PRTCHR 2380 JSR PRINT 2390 .HS 80800D 2400 .AS "RIGHT" 2405 .AS -"?" 2410 .4 LDA GETKEY 2420 BPL .4 2430 STA CLRKEY 2440 STA KEYDAT+1 2450 JSR PRTCHR 2460 JSR PRINT 2470 .HS 80800D 2480 .AS "UP" 2485 .AS -"?" 2490 .5 LDA GETKEY 2500 BPL .5 2510 STA CLRKEY 2520 STA KEYDAT+2 2530 JSR PRTCHR 2540 JSR PRINT 2550 .HS 80800D 2560 .AS "LEFT" 2565 .AS -"?" 2570 .6 LDA GETKEY 2580 BPL .6 2590 STA CLRKEY 2600 STA KEYDAT+3 2610 JSR PRTCHR 2620 JSR PRINT 2630 .HS 80800D0D0D0D0D 2640 .AS "PRESS SPACE BAR TO CONTINU" 2645 .AS -"E" 2650 .7 LDA GETKEY 2660 BPL .7 2670 STA CLRKEY 2680 CMP #$A0 2690 BNE .7 2700 *-------------------------------- 2710 * START GAME 2720 *-------------------------------- 2730 STRTGM LDA $C050 2740 LDA $C053 2750 LDA $C054 2760 LDA $C056 2770 START JSR SETSCR 2780 LDA ROMNUM 2790 AND #$0F 2800 ASL 2810 STA LENGTH 2820 *-------------------------------- 2830 * MAIN LOOP 2840 *-------------------------------- 2850 LOOP LDA TAIL 2860 CLC 2870 ADC LENGTH 2880 CMP HEAD 2890 BNE .1 2900 LDX TAIL 2910 LDA ARRAYX,X 2920 STA COLOMN 2930 LDA ARRAYY,X 2940 STA SROW 2950 LDA #$00 2960 STA SCOLOR 2970 SEC 2980 JSR SPLOT 2990 INC TAIL 3000 .1 LDX HEAD 3010 DEX 3020 LDA ARRAYX,X 3030 STA COLOMN 3040 LDA ARRAYY,X 3050 STA SROW 3060 LDA #$0F 3070 STA SCOLOR 3080 SEC 3090 JSR SPLOT 3100 LDX HEAD 3110 LDA ARRAYX,X 3120 STA COLOMN 3130 LDA ARRAYY,X 3140 STA SROW 3150 LDA #$01 3160 STA SCOLOR 3170 SEC 3180 JSR SPLOT 3190 BCC .3 3200 CMP #$03 3210 BNE .4 3220 JMP NXTSCR 3230 .4 CMP #$02 3240 BEQ .5 3250 CMP #$0F 3260 BNE .6 3270 .5 JMP CRASH 3280 .6 JSR EATBOX 3290 .3 LDA ROMNUM 3300 AND #$0F 3310 ASL 3320 ASL 3330 ASL 3340 ADC LEVEL 3350 EOR #$FF 3360 CLC 3370 ADC #$01 3380 STA DUR 3390 LDX SCOUNT 3400 LDA MUSICT,X 3410 STA FREQ 3420 INC SCOUNT 3430 LDA SCOUNT 3440 CMP #41 3450 BNE .8 3460 LDA #$00 3470 STA SCOUNT 3480 .8 JSR SOUND 3490 LDA GETKEY 3500 BPL .7 3510 JSR GETDIR 3520 .7 STA CLRKEY 3530 LDX HEAD 3540 LDA ARRAYX,X 3550 CLC 3560 ADC DX 3570 INX 3580 STA ARRAYX,X 3590 DEX 3600 LDA ARRAYY,X 3610 CLC 3620 ADC DY 3630 INX 3640 STA ARRAYY,X 3650 STX HEAD 3660 JMP LOOP 3670 *-------------------------------- 3680 * GET DIRECTION 3690 *-------------------------------- 3700 GETDIR LDX #$03 3710 .2 CMP KEYDAT,X 3720 BEQ .1 3730 DEX 3740 BPL .2 3750 CMP #147 3760 BNE .3 3770 LDA #$FF 3780 EOR SOUND+13 3790 STA SOUND+13 3800 .3 RTS 3810 .1 LDA DIRX,X 3820 STA DX 3830 LDA DIRY,X 3840 STA DY 3850 RTS 3860 KEYDAT .HS CDCCC9CA 3870 DIRX .HS 000100FF 3880 DIRY .HS 0100FF00 3890 *-------------------------------- 3900 * SET SCREEN 3910 *-------------------------------- 3920 SETSCR JSR PRINT 3930 .HS FF80800D04 3940 .AS "BLOAD ROOM " 3950 ROMNUM .HS 008D 3960 SETBOX JSR HOME 3970 LDA ROMNUM 3980 AND #$0F 3990 CLC 4000 ADC #$02 4010 STA COUNT 4020 STA BOXNUM 4030 .2 LDY #$01 4040 .1 JSR RANDOM 4050 LSR 4060 LSR 4070 CMP #40 4080 BCS .1 4090 STA SROW,Y 4100 DEY 4110 BPL .1 4120 CLC 4130 JSR SPLOT 4140 BCS .2 4150 LDA COUNT 4160 ADC #$04 4170 STA SCOLOR 4180 SEC 4190 JSR SPLOT 4200 DEC COUNT 4210 BNE .2 4220 JSR SCOREP 4230 JSR BOXP 4240 JSR LIFEP 4250 JSR ROOMP 4260 LDA #38 4270 STA ARRAYX+1 4280 STA ARRAYX 4290 STA ARRAYY 4300 LDA #37 4310 STA ARRAYY+1 4320 LDA #$FF 4330 STA DY 4340 LDA #$00 4350 STA DX 4360 STA TAIL 4370 LDA #$01 4380 STA HEAD 4390 STA CLRKEY 4400 RTS 4410 *-------------------------------- 4420 * HOME/CLEAR TEXT SCREEN 4430 *-------------------------------- 4440 HOME LDX #20 4450 .2 LDA TBLELO,X 4460 STA $F9 4470 LDA TBLEHI,X 4480 STA $FA 4490 LDY #39 4500 LDA #$A0 4510 .1 STA ($F9),Y 4520 DEY 4530 BPL .1 4540 INX 4550 CPX #24 4560 BNE .2 4570 RTS 4580 *------------------------------- 4590 * PRINT THE SCORE 4600 *------------------------------- 4610 SCOREP JSR PRINT 4620 .HS 0015 4630 .AS "SCORE" 4635 .AS -":" 4640 LDA SCORE+1 4650 JSR PRTHEX 4660 LDA SCORE 4670 JSR PRTHEX 4680 RTS 4690 *------------------------------- 4700 * PRINT NUMBER OF BOX 4710 *------------------------------- 4720 BOXP JSR PRINT 4730 .HS 1E17 4740 .AS "BOX" 4745 .AS -":" 4750 SED 4760 LDA BOXNUM 4770 CLC 4780 ADC #$00 4790 CLD 4800 JSR PRTHEX 4810 RTS 4820 *------------------------------- 4830 * PRINT NUMBER OF LIFE 4840 *------------------------------- 4850 LIFEP JSR PRINT 4860 .HS 0C17 4870 .AS "LIFE" 4875 .AS -":" 4880 LDA LIFE 4890 ORA #$B0 4900 JSR PRTCHR 4910 RTS 4920 *------------------------------- 4930 * PRINT ROOM NUMBER 4940 *------------------------------- 4950 ROOMP JSR PRINT 4960 .HS 1517 4970 .AS "ROOM" 4975 .AS -":" 4980 LDA ROMNUM 4990 ORA #$80 5000 JSR PRTCHR 5010 RTS 5020 *------------------------------- 5030 * COLLISION 5040 *------------------------------- 5050 CRASH LDX #$04 5060 LDA #200 5070 STA FREQ 5080 .1 LDA #$02 5090 STA DUR 5100 JSR SOUND 5110 INC FREQ 5120 LDA FREQ 5130 CMP #230 5140 BNE .1 5150 .2 LDA #$02 5160 STA DUR 5170 JSR SOUND 5180 DEC FREQ 5190 LDA FREQ 5200 CMP #200 5210 BNE .2 5220 DEX 5230 BNE .1 5240 JSR ERASES 5250 DEC LIFE 5260 LDA LIFE 5270 CMP #$FF 5280 BNE .3 5310 JMP GMOVER 5320 .3 JMP START 5330 *------------------------------- 5340 * ERASE THE SNAKE 5350 *------------------------------- 5360 ERASES LDX TAIL 5370 LDA #230 5380 STA FREQ 5390 LDA #$00 5400 STA SCOLOR 5410 .1 LDA ARRAYX,X 5420 STA COLOMN 5430 LDA ARRAYY,X 5440 STA SROW 5450 STX TEMP2 5460 SEC 5470 JSR SPLOT 5480 LDX TEMP2 5490 LDA #$08 5500 STA DUR 5510 JSR SOUND 5520 DEC FREQ 5530 INX 5540 CPX HEAD 5550 BNE .1 5560 RTS 5570 *------------------------------- 5580 * NEXT SCREEN 5590 *------------------------------- 5600 NXTSCR JSR ERASES 5610 INC ROMNUM 5620 LDA ROMNUM 5630 CMP #$39 5640 BNE .2 5650 DEC ROMNUM 5680 JMP END 5690 .2 LDA SLEVEL 5700 AND #$07 5710 CMP LIFE 5720 BCC .3 5730 INC LIFE 5740 .3 JMP START 5750 *------------------------------- 5760 * COLLISION IN BOX 5770 *------------------------------- 5780 EATBOX LDX #50 5790 STX FREQ 5800 .1 LDX #$02 5810 STX DUR 5820 JSR SOUND 5830 DEC FREQ 5840 LDX FREQ 5850 CPX #$20 5860 BNE .1 5870 .2 LDX #$02 5880 STX DUR 5890 JSR SOUND 5900 INC FREQ 5910 LDX FREQ 5920 CPX #50 5930 BNE .2 5940 PHA 5950 SED 5960 CLC 5970 ADC #$00 5980 ADC SCORE 5990 STA SCORE 6000 LDA #$00 6010 ADC SCORE+1 6020 STA SCORE+1 6030 CLD 6040 JSR SCOREP 6050 PLA 6060 CLC 6070 ADC LENGTH 6080 STA LENGTH 6090 DEC BOXNUM 6100 BNE .3 6110 JSR BOXP 6120 LDA #$F5 6130 STA FREQ 6140 LDA #$D0 6150 STA DUR 6160 JSR SOUND 6170 LDA #$03 6180 STA SCOLOR 6190 LDX #$03 6200 .4 LDA OPENX,X 6210 STA COLOMN 6220 LDA OPENY,X 6230 STA SROW 6240 SEC 6250 STX TEMP2 6260 JSR SPLOT 6270 LDX TEMP2 6280 DEX 6290 BPL .4 6300 LDA #$05 6310 STA FREQ 6320 STA DUR 6330 JSR SOUND 6340 RTS 6350 .3 JSR BOXP 6360 RTS 6370 OPENX .HS 18271000 6380 OPENY .HS 00182710 6390 *------------------------------ 6400 * GAME OVER 6410 *------------------------------ 6420 GMOVER LDA $C051 6430 LDA $C052 6440 JSR PRINT 6450 .HS FF0000 6460 .AS " ***********" 6470 .HS 0D 6480 .AS " *GAME OVER*" 6490 .HS 0D 6500 .AS " ***********" 6510 .HS 0D0D0D 6520 .AS "YOU DIDN'T FINISH, MAYBE NEXT TIME." 6530 .HS 0D 6540 .AS "TRY AGAIN!!!" 6550 .HS 0D0D80 6560 JSR ROOMP 6570 JSR SCOREP 6580 JMP HSCORE 6590 *------------------------------- 6600 * END OF GAME 6610 *------------------------------- 6620 END LDA $C051 6630 LDA $C052 6635 JSR HOME 6640 JSR PRINT 6650 .HS FF0000 6660 .AS " ************" 6670 .HS 0D 6680 .AS " *YOU DID IT*" 6690 .HS 0D 6700 .AS " ************" 6710 .HS 0D0D 6720 .AS "LEVEL" 6725 .AS -" " 6730 LDA SLEVEL 6740 JSR PRTCHR 6750 CMP #$B5 6760 BEQ .1 6770 JSR PRINT 6780 .HS 80800D0D 6790 .AS "TRY NOW LEVEL" 6795 .AS -" " 6800 LDX SLEVEL 6810 INX 6820 TXA 6830 JSR PRTCHR 6840 .1 JSR SCOREP 6850 JSR ROOMP 6860 HSCORE LDA SCORE+1 6870 STA CLRKEY 6880 CMP $20B2 6890 BCS .2 6900 .4 JMP .12 6910 .2 BNE .3 6920 LDA SCORE 6930 CMP $20B3 6940 BCC .4 6950 BEQ .4 6960 .3 JSR PRINT 6970 .HS 000B0D 6980 .AS "NEW HIGH SCORE!!" 6985 .AS -"!" 6990 LDX #162 7000 .7 LDA SCORE+1 7010 CMP $2000+16,X 7020 BCC .6 7030 BNE .5 7040 LDA SCORE 7050 CMP $2000+17,X 7060 BCC .6 7070 .5 STX TEMP 7080 LDY #18 7090 .14 LDA $2000,X 7100 STA $2000+18,X 7110 INX 7120 DEY 7130 BNE .14 7140 LDA TEMP 7150 SEC 7160 SBC #18 7170 TAX 7180 BCS .7 7190 LDX #$00 7200 JMP VERYFH 7210 .6 JSR PRINT 7220 .HS 80800D0D 7230 .AS "INPUT YOUR NAME. (UP TO 14 LETTERS)." 7240 .HS 0D 7250 .AS -"?" 7260 LDY #14 7270 .8 LDA GETKEY 7280 BPL .8 7290 STA CLRKEY 7300 CMP #$8D 7310 BEQ .9 7320 STA $2000+18,X 7330 JSR PRTCHR 7340 INX 7350 DEY 7360 BNE .8 7370 .9 CPY #$00 7380 BEQ .10 7390 LDA #$A0 7400 .11 STA $2000+18,X 7410 INX 7420 DEY 7430 BNE .11 7440 .10 LDA ROMNUM 7450 ORA #$80 7460 STA $2000+18,X 7470 INX 7480 LDA SLEVEL 7490 STA $2000+18,X 7500 INX 7510 LDA SCORE+1 7520 STA $2000+18,X 7530 INX 7540 LDA SCORE 7550 STA $2000+18,X 7560 JSR PRINT 7570 .HS 80800D04 7580 .AS "BSAVE HIGH SCORE,A$2000,L$B4" 7590 .HS 8D 7600 .12 JSR PRINT 7610 .HS 0012 7620 .AS "PRESS SPACE BAR TO CONTINU" 7625 .AS -"E" 7630 L13 LDA GETKEY 7640 BPL L13 7650 STA CLRKEY 7660 CMP #$A0 7670 BNE L13 7680 JMP SET 7690 *------------------------------- 7700 * WRITE THE FIRST HIGH SCORE 7710 *------------------------------- 7720 VERYFH JSR PRINT 7730 .HS 80800D0D 7740 .AS "INPUT YOUR NAME. (UP TO 14 LETTERS)." 7750 .HS 0D 7760 .AS -"?" 7770 LDY #14 7780 .8 LDA GETKEY 7790 BPL .8 7800 STA CLRKEY 7810 CMP #$8D 7820 BEQ .9 7830 STA $2000,X 7840 JSR PRTCHR 7850 INX 7860 DEY 7870 BNE .8 7880 .9 CPY #$00 7890 BEQ .10 7900 LDA #$A0 7910 .11 STA $2000,X 7920 INX 7930 DEY 7940 BNE .11 7950 .10 LDA ROMNUM 7960 ORA #$80 7970 STA $2000,X 7980 INX 7990 LDA SLEVEL 8000 STA $2000,X 8010 INX 8020 LDA SCORE+1 8030 STA $2000,X 8040 INX 8050 LDA SCORE 8060 STA $2000,X 8070 JSR PRINT 8080 .HS 80800D04 8090 .AS "BSAVE HIGH SCORE,A$2000,L$B4" 8100 .HS 8D 8110 .12 JSR PRINT 8120 .HS 0012 8130 .AS "PRESS SPACE BAR TO CONTINU" 8135 .AS -"E" 8140 V13 LDA GETKEY 8150 BPL V13 8160 STA CLRKEY 8170 CMP #$A0 8180 BNE V13 8190 JMP SET 8200 *-------------------------------- 8210 * RANDOM 8220 *-------------------------------- 8230 RANDOM STX TEMP 8240 SEC 8250 LDA R 8260 ADC R+3 8270 ADC R+4 8280 STA R 8290 LDX #3 8300 .1 LDA R,X 8310 STA R+1,X 8320 DEX 8330 BPL .1 8340 LDX TEMP 8350 RTS 8360 R .BS 5 8370 *-------------------------------- 8380 * SOUND ROUTINE 8390 *-------------------------------- 8400 SOUND PHP 8410 PHA 8420 TXA 8430 PHA 8440 TYA 8450 PHA 8460 LDY #$00 8470 .1 LDX FREQ 8480 LDA BEEP 8490 .2 NOP 8500 DEX 8510 BEQ .1 8520 DEY 8530 BNE .2 8540 DEC DUR 8550 BNE .2 8560 PLA 8570 TAY 8580 PLA 8590 TAX 8600 PLA 8610 PLP 8620 RTS 8630 BEEP .EQ $C030 8640 FREQ .HS 00 8650 DUR .HS 00 8660 *------------------------------- 8670 * PLOT/GET COLOR ROUTINE 8680 *------------------------------- 8690 SPLOT PHP 8700 LDA SROW 8710 LSR 8720 TAX 8730 LDA TBLELO,X 8740 STA $F9 8750 LDA TBLEHI,X 8760 STA $FA 8770 LDY COLOMN 8780 LDA ($F9),Y 8790 BCC .1 8800 AND #$F0 8810 STA TEMP 8820 LDA ($F9),Y 8830 AND #$0F 8840 STA TEMP3 8850 LDA SCOLOR 8860 ASL 8870 ASL 8880 ASL 8890 ASL 8900 PLP 8910 BCC .2 8920 ORA TEMP3 8930 STA ($F9),Y 8940 .2 CLC 8950 LDA TEMP 8960 LSR 8970 LSR 8980 LSR 8990 LSR 9000 BEQ .3 9010 SEC 9020 .3 RTS 9040 .1 AND #$0F 9050 STA TEMP 9060 LDA ($F9),Y 9070 AND #$F0 9080 STA TEMP3 9090 LDA SCOLOR 9100 PLP 9110 BCC .4 9120 ORA TEMP3 9130 STA ($F9),Y 9140 CLC 9150 .4 LDA TEMP 9160 BEQ .5 9170 SEC 9180 .5 RTS 9190 *------------------------------- 9200 * PRINT SUBROUTINE 9210 *------------------------------- 9220 * 9230 * GET RETURN ADDRESS FROM THE STACK 9240 * AND USE IT AS A POINTER TO THE DATA 9250 * 9260 PRINT PLA 9270 STA $CE 9280 PLA 9290 STA $CF 9300 * 9310 * CHECK FIRST NUMBER FOR HOME 9320 * 9330 LDY #$01 ;INDEX TO DATA 9340 .1 LDA ($CE),Y ;GET CHARACTER 9350 CMP #$FF ;$FF IS CODE FOR HOME 9360 BNE .2 9370 JSR $FC58 ;HOME 9380 LDY #2 ;HOME SETS Y = 0 9390 BNE .1 ;ALWAYS! 9400 * 9410 * NEXT TWO BYTES ARE X,Y POSITION OF CURSOR 9420 * 9430 .2 BMI .10 9440 STA $24 ;CURRENT HORIZONTAL POSITION 9450 .10 INY ;NEXT CHARACTER 9460 LDA ($CE),Y ;VERTICAL POSITION 9470 BMI .11 9480 JSR $FB58 ;VERTICAL TAB 9490 .11 INY ;NEXT CHARACTER 9500 * 9510 * PRINT DATA 9520 * 9530 .3 LDA ($CE),Y ;GET CHARACTER 9540 ORA #$80 ;SET HIGH BIT 9550 JSR $FDED ;COUT 9560 LDA ($CE),Y ;GET CHARACTER AGAIN 9570 BMI .5 ;NEGATIVE = DONE 9580 INC $CE ;NEXT CHARACTER 9590 BNE .3 9600 INC $CF 9610 .4 BNE .3 ;ALWAYS! 9620 * 9630 * STORE RETURN ADDRESS ON STACK 9640 * 9650 .5 TYA ;ADD Y TO $CE 9660 CLC 9670 ADC $CE 9680 STA $CE 9690 BCC .6 9700 INC $CF 9710 .6 LDA $CF ;RESTORE STACK 9720 PHA 9730 LDA $CE 9740 PHA 9750 RTS 9760 *------------------------------- 9770 * LO-RES GRAPHIC ADDRESS TABLE 9780 *------------------------------- 9790 TBLEHI .DA #$04 9792 .DA #$04 9794 .DA #$05 9796 .DA #$05 9800 .DA #$06 9802 .DA #$06 9804 .DA #$07 9806 .DA #$07 9810 .DA #$04 9812 .DA #$04 9814 .DA #$05 9816 .DA #$05 9820 .DA #$06 9822 .DA #$06 9824 .DA #$07 9826 .DA #$07 9830 .DA #$04 9832 .DA #$04 9834 .DA #$05 9836 .DA #$05 9840 .DA #$06 9842 .DA #$06 9844 .DA #$07 9846 .DA #$07 9850 TBLELO .DA #$00 9852 .DA #$80 9854 .DA #$00 9856 .DA #$80 9860 .DA #$00 9862 .DA #$80 9864 .DA #$00 9866 .DA #$80 9870 .DA #$28 9872 .DA #$A8 9874 .DA #$28 9876 .DA #$A8 9880 .DA #$28 9882 .DA #$A8 9884 .DA #$28 9886 .DA #$A8 9890 .DA #$50 9892 .DA #$D0 9894 .DA #$50 9896 .DA #$D0 9900 .DA #$50 9902 .DA #$D0 9904 .DA #$50 9906 .DA #$D0 9910 *------------------------------- 9912 * DATA 9914 *------------------------------- 9916 SROW .HS 00 9918 COLOMN .HS 00 9920 SCOLOR .HS 00 9922 DOTE .HS 00 9924 COLDOT .HS 00 9926 LIFE .HS 00 9928 LEVEL .HS 00 9930 LENGTH .HS 00 9932 TAIL .HS 00 9934 HEAD .HS 00 9936 DX .HS 00 9938 DY .HS 00 9940 COUNT .HS 00 9942 BOXNUM .HS 00 9944 SCORE .HS 0000 9946 TEMP .HS 00 9948 TEMP2 .HS 00 9950 SCOUNT .HS 00 9952 SLEVEL .HS 00 9954 NCOUNT .HS 00 9956 TEMP3 .HS 00 9958 ARRAYX .BS 256 9960 ARRAYY .BS 256 9962 MUSICT .HS 161617171A1A1D 9964 .HS 1A1A1D1A1A1D16 9966 .HS 1617171A1A1D1A 9968 .HS 1A171716161617 9970 .HS 1A1D1A1D1A1D16 9972 .HS 171A1D1A1716 9974 KEYSTR .HS CDCCC9CA 9976 LEVELT .HS 78828C96BE