973 lines
23 KiB
Plaintext
973 lines
23 KiB
Plaintext
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
|