0100 ;SAVE#D:SNOW.PT2
0110 ;----------------
0120 ; part 2 of game
0130 ;
0140 ; by:Barry Kolbe
0150 ;
0160 ;----------------
0170 ;
0180 ;load a map from disk
0190 ;
0200 LOADMP LDX #$10
0210     LDA #$0C
0220     STA ICCOM,X
0230     JSR CIOV
0240     LDX #$10
0250     LDA #3
0260     STA ICCOM,X
0270     LDA # >MAPNAM
0280     STA ICBAH,X
0290     LDA # <MAPNAM
0300     STA ICBAL,X
0310     LDA #4
0320     STA AUX1,X
0330     LDA #0
0340     STA AUX2,X
0350     JSR CIOV
0360     BPL RDOK
0370     RTS 
0380 RDOK LDX #$10
0390     LDA # >SCNMEM
0400     STA ICBAH,X
0410     LDA # <SCNMEM
0420     STA ICBAL,X
0430     LDA #0
0440     LDA #10     ;10 pages
0450     STA ICBLH,X
0460     LDA #7      ;read it
0470     STA ICCOM,X
0480     JSR CIOV
0490     RTS 
0500 ;
0510 MAPNAM .BYTE "D1:SMAP.   ",EOL
0520 ;
0530 ;count all the roads
0540 ;each pair of road bytes
0550 ;counts as 1 point
0560 ;
0570 CNTRDS LDY #0
0580     STY ROADC
0590     INC ROADC
0600     STY ROADC+1
0610     STY CNT     ;lines
0620     JSR WHERE
0630 CR4 LDY #0
0640 CR1 LDA (JL),Y
0650     LDX #12
0660 CR3 CMP ROADS,X ;is it road?
0670     BEQ CR2
0680     DEX 
0690     BPL CR3
0700 CR6 INY         ;skip over 2
0710     INY 
0720     CPY #0
0730     BNE CR1
0740     INC JL+1
0750     INC CNT
0760     LDY CNT
0770     CPY #10
0780     BNE CR4
0790     RTS 
0800 CR2 INC ROADC
0810     BNE CR5
0820     INC ROADC+1
0830 CR5 JMP CR6
0840 ;
0850 ;copy the game dlist
0860 ;back for next board
0870 ;
0880 COPYDL LDY #50
0890 CC1 LDA BCKUP,Y
0900     STA DL1,Y
0910     DEY 
0920     BPL CC1
0930     RTS 
0940 ;
0950 ;reset fuel in text window
0960 ;
0970 RESFUL LDA #0
0980     STA FUEL+2
0990     LDA #1
1000     STA FUEL
1010     LDA FULK
1020     STA FUEL+1
1030     RTS 
1040 ;
1050 ;find fuel containers
1060 ;in map-store their
1070 ;positions
1080 ;
1090 FNDFUL LDY #0
1100     STY CNT
1110     STY FOFS
1120 SS4 LDY CNT
1130     CPY #19     ;20 lines
1140     BNE SS3
1150     RTS 
1160 SS3 JSR WHERE
1170     LDY #0
1180 SS2 LDA (JL),Y
1190     CMP #8      ;fuel chr
1200     BEQ SS1
1210 SS5 INY 
1220     INY 
1230     CPY #126    ;end of line?
1240     BNE SS2
1250     INC CNT
1260     JMP SS4
1270 ;
1280 SS1 LDX FOFS    ;store x,y
1290     LDA JL+1    ;positions
1300     STA FULY,X
1310     TYA 
1320     CLC 
1330     ADC JL
1340     STA FULX,X
1350     INC FOFS
1360     LDA FOFS
1370     CMP #6      ;only 6 allowed
1380     BNE SS5
1390     RTS 
1400 ;
1410 ;check timers-fuel first
1420 ;
1430 CKFTIM LDX FOFS
1440     BEQ CCB     ;no fuel
1450 FTC LDA FTIME,X
1460     BEQ FTB
1470     DEC FTIME,X
1480     LDA FTIME,X
1490     BNE FTB
1500     LDA FULY,X
1510     STA JL+1
1520     LDA FULX,X
1530     STA JL
1540     LDY #0
1550     LDA #8
1560     STA (JL),Y
1570     INY 
1580     LDA #$0A
1590     STA (JL),Y
1600 FTB DEX 
1610     BPL FTC
1620 ;
1630 ;check bonus car timers
1640 ;
1650 CCB LDX CARCNT
1660     BNE CTC     ;yes
1670     RTS         ;no cars
1680 CTC LDA CARTIM,X
1690     BEQ CTD
1700     DEC CARTIM,X
1710     LDA CARTIM,X
1720     BNE CTD
1730     LDA CARY,X
1740     STA JL+1
1750     LDA CARX,X
1760     STA JL
1770     LDY #0      ;put bonus
1780     LDA (JL),Y  ;car on scn
1790     CMP #$60    ;snow bckgrnd?
1800     BNE CTF
1810     LDA #$1B    ;yes
1820     STA (JL),Y
1830     INY 
1840     LDA #$1C
1850 CTG STA (JL),Y
1860     LDA #$50
1870     STA RMTIM,X
1880     JSR BELL
1890 CTD DEX 
1900     BPL CTC
1910 ;
1920 ;timers to remove cars
1930 ;
1940     LDX CARCNT
1950 CTK LDA RMTIM,X
1960     BEQ RRA
1970     DEC RMTIM,X
1980     LDA RMTIM,X
1990     BNE RRA
2000     LDA CARY,X
2010     STA JL+1
2020     LDA CARX,X
2030     STA JL
2040     LDY #0
2050     LDA (JL),Y
2060     CMP #$1B
2070     BNE CTI
2080     LDA #$60    ;snow road
2090 CTM STA (JL),Y
2100     INY 
2110     STA (JL),Y
2120     LDA #100    ;reset timer
2130     STA CARTIM,X
2140 RRA DEX 
2150     BPL CTK
2160     RTS 
2170 ;
2180 CTI LDA #$61    ;plain road
2190     BNE CTM
2200     RTS 
2210 CTF LDA #$1D
2220     STA (JL),Y
2230     INY 
2240     LDA #$1E
2250     BNE CTG
2260 ;
2270 ;find bonus cars on map
2280 ;
2290 FNDCRS LDY #0
2300     STY CNT
2310     STY CARCNT
2320 FCA LDY CNT
2330     CPY #19     ;20 lines
2340     BNE FCE
2350     RTS 
2360 FCE JSR WHERE
2370     LDY #0
2380 FCC LDA (JL),Y
2390     CMP #$1B    ;cars
2400     BEQ FCB
2410 FCD INY 
2420     INY 
2430     CPY #126    ;end of line?
2440     BNE FCC
2450     INC CNT
2460     JMP FCA
2470 FCB LDX CARCNT
2480     LDA JL+1
2490     STA CARY,X
2500     TYA 
2510     CLC 
2520     ADC JL
2530     STA CARX,X
2540     TYA 
2550     PHA 
2560     LDA #$60    ;repl w/road
2570     STA (JL),Y
2580     INY 
2590     STA (JL),Y
2600     PLA 
2610     TAY 
2620     INC CARCNT
2630     LDA CARCNT
2640     CMP #4      ;only 4 cars
2650     BNE FCD
2660     RTS 
2670 ;
2680 ;show bonus & regular score
2690 ;
2700 BONSCR LDX #3   ;100 bonus
2710     BNE SCD
2720 ;
2730 DOSCOR LDX #4   ;reg. score
2740 SCD LDA SCRS,X
2750     CLC 
2760     ADC #1
2770     STA SCRS,X
2780 SCB CMP #$1A
2790     BCC SCE
2800     LDA #$10
2810     STA SCRS,X
2820     DEX 
2830     BMI SCE
2840     INC SCRS,X
2850     LDA SCRS,X
2860     JMP SCB
2870 SCE LDX #5
2880 SCC LDA SCRS,X
2890     STA SCLN+9,X
2900     DEX 
2910     BPL SCC
2920     LDA SCRS+1
2930     CMP THOUS
2940     BEQ CRET
2950     STA THOUS
2960     INC LIVES
2970     JSR SHOLIV
2980 CRET RTS 
2990 ;
3000 ;move the storm
3010 ;
3020 MOVICE LDA ICECNT ;time for
3030     BEQ NEWD    ;new direction?
3040     DEC ICECNT  ;no
3050     LDX ICEDIR  ;get direction
3060     LDA ICETB,X
3070     STA IJMP+1
3080     LDA ICETB+1,X
3090     STA IJMP+2
3100     LDA #1
3110     STA ICEON
3120 IJMP JSR $FFFF  ;move it
3130     JMP XITVBV
3140 ;
3150 ;get a new direction
3160 ;and set flags
3170 ;
3180 NEWD LDA RANDOM
3190     AND #3
3200     TAX 
3210     ASL A
3220     STA ICEDIR
3230     LDA #$6B    ;time on
3240     STA ICECNT  ;screen
3250     LDA IYP,X   ;starting
3260     STA ICY     ;position
3270     LDA IXP,X
3280     STA ICX
3290     CLC 
3300     ADC #$0C    ;eyes
3310     STA EYX
3320     JSR PUTICE  ;put definition
3330     JSR ZB3     ;in memory
3340     LDA ICTL    ;time spent
3350     STA OFFSCN  ;off screen
3360     LDA ICTH
3370     STA OFFSCN+1
3380     LDA #0      ;off yet
3390     STA ICEON
3400     JMP XITVBV
3410 ;
3420 ;move table
3430 ;
3440 ICETB .WORD ZRU
3450     .WORD ZLD
3460     .WORD ZRD
3470     .WORD ZLU
3480 ;
3490 ;diagonal movement
3500 ;
3510 ZRU JSR ZIRT
3520     JSR ZIUP
3530     RTS 
3540 ZLD JSR ZILF
3550     JSR ZIDN
3560     RTS 
3570 ZRD JSR ZIRT
3580     JSR ZIDN
3590     RTS 
3600 ZLU JSR ZILF
3610     JSR ZIUP
3620     RTS 
3630 ;
3640 ;slide it up
3650 ;
3660 ZIUP LDY ICY
3670     LDX #31
3680 ZIUA LDA P2MEM,Y
3690     STA P2MEM-1,Y
3700     LDA P3MEM,Y
3710     STA P3MEM-1,Y
3720     INY 
3730     DEX 
3740     BPL ZIUA
3750     DEC ICY
3760     LDA #0
3770     LDY EYY
3780     STA MSMEM+1,Y
3790     LDA #$C3
3800     STA MSMEM-1,Y
3810     DEC EYY
3820     RTS 
3830 ;
3840 ;go down
3850 ;
3860 ZIDN LDA ICY
3870     CLC 
3880     ADC #31
3890     TAY 
3900     LDX #31
3910 ZIDA LDA P2MEM,Y
3920     STA P2MEM+1,Y
3930     LDA P3MEM,Y
3940     STA P3MEM+1,Y
3950     DEY 
3960     DEX 
3970     BPL ZIDA
3980     INC ICY
3990     LDA #0
4000     LDY EYY
4010     STA MSMEM,Y
4020     LDA #$C3
4030     STA MSMEM+2,Y
4040     INC EYY
4050     RTS 
4060 ;
4070 IYP .BYTE $C0,$30,$30,$C0
4080 IXP .BYTE $0A,$E0,$0A,$E0
4090 ;
4100 ;move storm left
4110 ;
4120 ZILF DEC ICX
4130     DEC ICX
4140     DEC EYX
4150     DEC EYX
4160 ZB3 LDA ICX
4170     STA HPOSP0+2
4180     CLC 
4190     ADC #16
4200     STA HPOSP0+3
4210     LDA EYX
4220     STA HPOSM0
4230     CLC 
4240     ADC #6
4250     STA HPOSM0+3
4260     RTS 
4270 ;
4280 ;move stormy right
4290 ;
4300 ZIRT INC ICX
4310     INC ICX
4320     INC EYX
4330     INC EYX
4340     LDA EYX
4350     JMP ZB3
4360 ;
4370 ;put snow storm on screen
4380 ;
4390 PUTICE JSR CLR23
4400     LDX #0
4410     LDY ICY
4420 ICA LDA ICEDAT,X
4430     STA P2MEM,Y
4440     STA P2MEM+1,Y
4450     LDA ICDT2,X
4460     STA P3MEM,Y
4470     STA P3MEM+1,Y
4480     INY 
4490     INY 
4500     INX 
4510     CPX #16
4520     BNE ICA
4530     LDA ICY
4540     CLC 
4550     ADC #$0C
4560     STA EYY
4570     LDY EYY
4580     LDA #$C3
4590     STA MSMEM,Y
4600     STA MSMEM+1,Y
4610     RTS 
4620 ;
4630 ;stormy's definition
4640 ;
4650 ICEDAT .BYTE $00,$04,$02,$32
4660     .BYTE $0B,$07,$3D,$4F
4670     .BYTE $0C,$3D,$47,$0B
4680     .BYTE $12,$12,$01,$00
4690 ICDT2 .BYTE $00,$80,$48,$48
4700     .BYTE $D0,$E6,$BC,$F0
4710     .BYTE $32,$BC,$E0,$D0
4720     .BYTE $4C,$40,$20,$00
4730 ;
4740 ;erase plyrs 2,3 & missiles
4750 ;
4760 CLR23 LDX #0
4770     TXA 
4780 C23 STA P3MEM,X
4790     STA P2MEM,X
4800     STA MSMEM,X
4810     INX 
4820     BNE C23
4830     RTS 
4840 ;
4850 ;reset game due to
4860 ;lost lives
4870 ;
4880 GRESET DEC LIVES
4890     JSR SHOLIV
4900     JSR RESFUL
4910     JSR DSPFUL
4920     RTS 
4930 ;
4940 ;show # of lives
4950 ;
4960 SHOLIV LDA LIVES
4970     CMP #10
4980     BCC GRT
4990     LDA #9
5000     STA LIVES
5010 GRT ORA #$10
5020     STA TXTWIN+16
5030     RTS 
5040 ;
5050 ;let the storm exit stage
5060 ;
5070 REMP23 LDA #0
5080     STA HPOSP0+2
5090     STA HPOSP0+3
5100     STA HPOSM0
5110     STA HPOSM0+3
5120     STA ICECNT
5130     LDA ICTL
5140     STA OFFSCN
5150     LDA ICTH
5160     STA OFFSCN+1
5170     LDA #0
5180     STA ICEON
5190     RTS 
5200 ;
5210 ;game over-snow guys win
5220 ;
5230 GAMOVR LDA # >GOVER
5240     STA TMESS+1
5250     LDA # <GOVER
5260     STA TMESS
5270     LDA #0      ;turn off vbi
5280     STA VFLG
5290     JSR SNDOFF
5300 GAM LDA CONSOL  ;chk for START
5310     CMP #6
5320     BNE GAM
5330     JMP NEWBEG
5340 ;
5350 ;initialize sound
5360 ;
5370 SNDOFF LDA #0
5380     STA $D208
5390     LDX #3
5400     STX $D20F
5410     LDX #7
5420 SNL STA $D200,X
5430     DEX 
5440     BPL SNL
5450     RTS 
5460 ;
5470 ;turn off individ. snds
5480 ;
5490 OFF1 LDA #0
5500     STA $D200
5510     STA $D201
5520     RTS 
5530 ;
5540 OFF2 LDA #0
5550     STA $D203
5560     STA $D202
5570     RTS 
5580 ;
5590 OFF34 LDA #0
5600     STA $D204
5610     STA $D205
5620     STA $D206
5630     STA $D207
5640     RTS 
5650 ;
5660 ;honk horn when dozer hits car
5670 ;
5680 HORN JSR SNDOFF
5690     LDX #1      ;twice!
5700 HN1 LDA #121
5710     STA $D204
5720     LDA #$A6
5730     STA $D205
5740     LDA #10
5750     STA $D206
5760     LDA #$24
5770     STA $D207
5780     JSR LDL
5790     JSR OFF34
5800     JSR LDL
5810     DEX 
5820     BPL HN1
5830     RTS 
5840 ;
5850 ;pause the game
5860 ;
5870 PAUSE LDX #$FF
5880     STX CH
5890     LDA #0      ;hold on vbi
5900     STA VFLG
5910     JSR WAIT
5920 PAUS LDA CH
5930     CMP #$FF
5940     BEQ PAUS
5950     STX CH
5960     LDA #1
5970     STA VFLG
5980     RTS 
5990 ;
6000 ;the vbi
6010 ;
6020 VBLNK LDA VFLG  ;running?
6030     BNE VBC     ;yes
6040 VBA JMP XITVBV
6050 VBC LDA OFFSCN  ;coming on?
6060     ORA OFFSCN+1
6070     BEQ VBB     ;yes
6080     DEC OFFSCN  ;countdown
6090     LDA OFFSCN
6100     CMP #$FF
6110     BNE VBA
6120     DEC OFFSCN+1
6130     JMP VBA
6140 VBB DEC VTIME   ;vbi speed
6150     LDA VTIME
6160     BNE VBA
6170     LDA ICESPEED
6180     STA VTIME
6190     JMP MOVICE  ;do the move
6200 ;
6210 ;make a plowing sound
6220 ;
6230 PLWSND LDA ICEON ;unless
6240     BNE NOPL    ;the storm is
6250     LDA #$32    ;making noise
6260     STA $D202
6270     LDA #$46
6280     STA $D203
6290     JSR WAIT
6300 NOPL RTS 
6310 ;
6320 ;reset some playing stuff
6330 ;
6340 REPLAY LDA #$80 ;dozer's
6350     STA PXP     ;position
6360     LDA #$70
6370     STA PYP
6380     LDA #4      ;scroll shadows
6390     STA SMY
6400     LDA #24
6410     STA SMX
6420     LDA #0      ;screen pos.
6430     STA SXP
6440     STA SYP
6450     LDX #5      ;fuel timers
6460     LDA #0
6470 FT1 STA FTIME,X
6480     DEX 
6490     BPL FT1
6500     LDX #3      ;car timers
6510 CT1 LDA CARSHD,X
6520     STA CARTIM,X
6530     LDA #0
6540     STA RMTIM,X
6550     DEX 
6560     BPL CT1
6570     LDA #0      ;reset road
6580     STA ROADG   ;counters
6590     STA ROADG+1
6600     INC ROADG
6610     STA ICECNT
6620     LDA ICESPEED ;storm'S speed
6630     STA VTIME
6640     JSR SNDOFF  ;sound off
6650     LDA ICTL
6660     STA OFFSCN
6670     LDA ICTH
6680     STA OFFSCN+1
6690     RTS 
6700 ;
6710 ;interval between cars
6720 ;
6730 CARSHD .BYTE $30,$60,$80,$B0
6740 ;
6750 ;speed up for next level
6760 ;fuel down by 10
6770 ;storm is off screen less
6780 ;storm moves faster
6790 ;
6800 FIGLEV LDX LEVEL
6810     CPX #5
6820     BEQ LEA
6830     INC LEVEL
6840 LEA LDX LEVEL
6850     LDA FULM,X
6860     STA FULK
6870     LDA ICOFFL,X
6880     STA ICTL
6890     LDA ICOFFH,X
6900     STA ICTH
6910     LDA ICESPDT,X
6920     STA ICESPEED
6930     LDA #1
6940     STA EDGFLG
6950     JSR SNDOFF
6960     RTS 
6970 ;
6980 ;tables for stormy
6990 ;
7000 FULM .BYTE 8,7,6,5,4,3
7010 ICOFFL .BYTE $80,$80,0,$80,0,$80
7020 ICOFFH .BYTE 3,2,2,1,1,0
7030 ICESPDT .BYTE 10,8,6,4,2,1
7040 SPTAB .BYTE 0,2,1,3
7050 ;
7060 ;spin dozer if hit by storm
7070 ;or out of fuel
7080 ;
7090 SPIN LDA DIRECT
7100     PHA 
7110     LDY #4
7120     STY YSP
7130     LDA #0
7140     STA SPSND
7150 SPB LDX #3
7160     STX XSP
7170 SPA LDA SPTAB,X
7180     TAX 
7190     JSR DFOK
7200     LDA #$86
7210     STA $D203
7220     LDA SPSND
7230     CLC 
7240     ADC #9
7250     STA SPSND
7260     STA $D202
7270     JSR DELAY
7280     DEC XSP
7290     LDX XSP
7300     BNE SPA
7310     DEC YSP
7320     LDY YSP
7330     BNE SPB
7340     PLA 
7350     STA DIRECT
7360     JSR DFOK
7370     JSR OFF2
7380     RTS 
7390 ;
7400 ;move the tracks on the dozer
7410 ;
7420 TRACKR STY YH
7430     STX XH
7440     LDA XD1
7450     AND #1
7460     TAX 
7470     LDA TRKR,X
7480 TRKJMP LDY PYP+1
7490     STA P1MEM+1,Y
7500     STA P1MEM+2,Y
7510     STA P1MEM+13,Y
7520     STA P1MEM+14,Y
7530     INC XD1
7540     LDY YH
7550     LDX XH
7560     RTS 
7570 ;
7580 TRKR .BYTE $55,$A9 ;masks
7590 ;
7600 TRACKL STY YH
7610     STX XH
7620     LDA XD1
7630     AND #1
7640     TAX 
7650     LDA TRKL,X
7660     JMP TRKJMP
7670 ;
7680 TRKL .BYTE $AA,$95 ;masks
7690 ;
7700 TRACKU STY YH
7710     STX XH
7720     LDY PYP+1
7730     LDX #7
7740 TRU1 LDA P1MEM+4,Y
7750     CMP #$99
7760     BNE TRU2
7770     LDA #$18
7780     BNE TRU3
7790 TRU2 CMP #$18
7800     BNE TRU3
7810     LDA #$99
7820 TRU3 STA P1MEM+4,Y
7830     INY 
7840     DEX 
7850     BPL TRU1
7860     LDX XH
7870     LDY YH
7880     RTS 
7890 ;
7900 ;filling up with fuel sound
7910 ;
7920 FILSND JSR OFF2
7930     LDA #$A4
7940     STA $D203
7950     LDX #160
7960 FIL1 STX $D202
7970     JSR FDEL
7980     CPX #45
7990     BNE FIL2
8000     LDA #$A2
8010     STA $D203
8020 FIL2 DEX 
8030     BNE FIL1
8040     JSR OFF2
8050     RTS 
8060 ;
8070 FDEL LDY #200
8080 FD1 JSR WAIT
8090     DEY 
8100     BPL FD1
8110     RTS 
8120 ;
8130 ;get the directory
8140 ;search for SMAP.???
8150 ;
8160 GETDIR JSR CLOSE6
8170     LDX #$60
8180     LDA #3
8190     STA ICCOM,X
8200     LDA # >DIRNAM
8210     STA ICBAH,X
8220     LDA # <DIRNAM
8230     STA ICBAL,X
8240     LDA #6
8250     STA AUX1,X
8260     LDA #0
8270     STA AUX2,X
8280     JSR CIOV
8290     RTS 
8300 ;
8310 CLOSE6 LDX #$60
8320     LDA #$0C
8330     STA ICCOM,X
8340     JSR CIOV
8350     RTS 
8360 ;
8370 ;read ina map from disk
8380 ;
8390 GETFIL LDA #5
8400     LDX #$60
8410     STA ICCOM,X
8420     LDA # >DBUF
8430     STA ICBAH,X
8440     LDA # <DBUF
8450     STA ICBAL,X
8460     LDA #20
8470     STA ICBLL,X
8480     LDA #0
8490     STA ICBLH,X
8500     JSR CIOV
8510     BMI DOV
8520     LDA DBUF+4
8530     CMP #'F
8540     BNE FLP
8550 DOV JSR GETDIR
8560     LDA #0
8570     STA MAPFLG
8580     PLA 
8590     PLA 
8600     JMP MAP2
8610 ;
8620 FLP LDX #10
8630 DLP LDA DBUF,X
8640     STA MAPNAM-2,X
8650     CMP #$20
8660     BEQ DRET
8670     INX 
8680     BNE DLP
8690 DRET LDA #EOL
8700     STA MAPNAM-2,X
8710     RTS 
8720 ;
8730 DIRNAM .BYTE "D1:SMAP.*",EOL
8740 ;
8750 ;try jumping to edge
8760 ;once per level only
8770 ;to road
8780 ;
8790 JMPEDG LDA EDGFLG
8800     BNE JEA
8810     RTS 
8820 JEA LDA DIRECT
8830     CMP #7
8840     BNE JLF
8850     LDA SMX
8860     STA EHOLD
8870     LDA #$C8
8880     SEC 
8890     SBC PXP
8900     LSR A
8910     LSR A
8920     STA EADD
8930     CLC 
8940     ADC SMX
8950     STA SMX
8960     DEC SMX
8970     DEC SMX
8980     JSR LOOKR
8990     BCC JYES
9000     LDA EHOLD
9010     STA SMX
9020     RTS 
9030 JYES LDX #$C8
9040     STX HPOSP0
9050     STX PXP
9060     INX 
9070     STX HPOSP0+1
9080     STX PXP+1
9090     INC SMX
9100     INC SMX
9110     DEC EDGFLG
9120     RTS 
9130 ;
9140 JLF CMP #11
9150     BNE JUP
9160     LDA SMX
9170     STA EHOLD
9180     LDA PXP
9190     SEC 
9200     SBC #$30
9210     LSR A
9220     LSR A
9230     STA EADD
9240     LDA SMX
9250     SEC 
9260     SBC EADD
9270     STA SMX
9280     INC SMX
9290     INC SMX
9300     JSR LOOKL
9310     BCC JEB
9320     LDA EHOLD
9330     STA SMX
9340     RTS 
9350 JEB LDX #$30
9360     STX HPOSP0
9370     STX PXP
9380     DEX 
9390     STX HPOSP0+1
9400     STX PXP+1
9410     DEC SMX
9420     DEC SMX
9430     DEC EDGFLG
9440     RTS 
9450 ;
9460 JUP CMP #14
9470     BNE JDN
9480     LDA SMY
9490     STA EHOLD
9500     LDA PYP
9510     SEC 
9520     SBC #$30
9530     LSR A
9540     LSR A
9550     LSR A
9560     LSR A       ;/16
9570     STA EADD
9580     LDA SMY
9590     SEC 
9600     SBC EADD
9610     STA SMY
9620     INC SMY
9630     JSR LOOKU
9640     BCC JEC
9650     LDA EHOLD
9660     STA SMY
9670     RTS 
9680 JEC DEC SMY
9690     JSR ERS01
9700     LDA #$30
9710     STA PYP
9720     JSR DEFPLR
9730     DEC EDGFLG
9740     RTS 
9750 ;
9760 ;erase players 0 and 1
9770 ;
9780 ERS01 LDY #$FF
9790     LDA #0
9800 ERSA STA P0MEM,Y
9810     STA P1MEM,Y
9820     DEY 
9830     BNE ERSA
9840     RTS 
9850 ;
9860 JDN CMP #13
9870     BNE JRET
9880     LDA SMY
9890     STA EHOLD
9900     LDA #$C0
9910     SEC 
9920     SBC PYP
9930     LSR A
9940     LSR A
9950     LSR A
9960     LSR A
9970     CLC 
9980     ADC SMY
9990     STA SMY
010000   DEC SMY
010010   JSR LOOKD
010020   BCC JED
010030   LDA EHOLD
010040   STA SMY
010050 JRET RTS 
010060 JED JSR ERS01
010070   LDA #$C0
010080   STA PYP
010090   JSR DEFPLR
010100   INC SMY
010110   DEC EDGFLG
010120   RTS 
010130 ;
010140 ;bonus car bell sound
010150 ;
010160 BELL JSR OFF2
010170   LDA #12
010180   STA $D202
010190 BL3 LDA #$A9
010200   STA SHD
010210 BL1 DEC SHD
010220   LDA SHD
010230   CMP #$A0
010240   BCC BL2
010250   STA $D203
010260   JSR DELAY
010270   JMP BL1
010280 BL2 JSR OFF2
010290   RTS 
010300 ;
010310 ;storm sound
010320 ;
010330 ICESND LDA ICEON
010340   BEQ ICOFF
010350   LDA #$86
010360   STA $D201
010370   LDA #11
010380   STA $D200
010390   RTS 
010400 ICOFF JSR OFF1
010410   RTS 
010420 ;
010430 ;check if START was pressed
010440 ;
010450 STKEY LDA CONSOL
010460   CMP #6
010470   BEQ STKEY
010480   JMP GAMOVR
010490 ;
010500 ;setup game board and colors
010510 ;
010520 SETSCN LDA # >DL1
010530   STA SDLSTL+1
010540   LDA # <DL1
010550   STA SDLSTL
010560   LDA #$C0
010570   STA $D40E
010580   LDA # >DLI
010590   STA 513
010600   LDA # <DLI
010610   STA 512
010620   LDX #4
010630 KLR LDA CLRTAB,X
010640   STA COLOR0,X
010650   DEX 
010660   BPL KLR
010670   RTS