1000 ; NORTHSTAR TRAINER
1010 ; STI 13-APR-1988
1020 ;
1030 ;
1040 GAME EQU $4000
1050 LIVES1 EQU $4081
1060 LIVES2 EQU $428F
1070 ULIVES EQU $5BDB
1080 AIR EQU $40AA
1090 LEVEL EQU $5530
1100 ;
1110 L1 EQU 1367
1120 L2 EQU 1447
1130 L3 EQU 1527
1140 L4 EQU 1607
1150 ;
1160 ;
1170 ORG $3D80
1180 ;
1190 CLI
1200 FLUSH JSR 65508
1210 BNE FLUSH
1220 STA 54296 ; SOUND OFF
1230 STA 53269 ; SPRIT OFF
1240 ;
1250 LDX #0
1260 TEXLOOP LDA TEXT,X
1270 BEQ WEITER1
1280 JSR 65490
1290 INX
1300 BNE TEXLOOP
1310 INC TEXLOOP+2
1320 BNE TEXLOOP
1330 ;
1340 WEITER1 LDA #21
1350 STA 53272
1360 LDA #27
1370 STA 53265
1380 ;
1390 LDA #9
1400 STA LEVEL
1410 LDA #4
1420 STA LIVES1
1430 STA LIVES2
1440 LDA #$CE
1450 STA ULIVES
1460 STA 650
1470 LDA #$20
1480 STA AIR
1490 ;
1500 ;
1510 KEYLOOP JSR 65508
1520 BEQ KEYLOOP
1530 ;
1540 CMP #32 ; SPACE
1550 BEQ STRT
1560 SEC
1570 SBC #133 ; F1
1580 BCC KEYLOOP
1590 CMP #8
1600 BCS KEYLOOP
1610 ASL
1620 TAX
1630 LDA CTAB,X
1640 STA VEC+1
1650 LDA CTAB+1,X
1660 STA VEC+2
1670 VEC JMP $FCE2
1680 ;
1690 STRT JMP GAME
1700 ;
1710 ;
1720 INLIVES LDA LIVES1
1730 CMP #9
1740 BEQ SHOWLIVES
1750 INC LIVES1
1760 INC LIVES2
1770 JMP SHOWLIVES
1780 ;
1790 DELIVES LDA LIVES1
1800 CMP #1
1810 BEQ SHOWLIVES
1820 DEC LIVES1
1830 DEC LIVES2
1840 ;
1850 SHOWLIVES LDA LIVES1
1860 CLC
1870 ADC #48
1880 STA L1
1890 JMP KEYLOOP
1900 ;
1910 ULIVESY LDA #25
1920 STA L2
1930 LDA #5
1940 STA L2+1
1950 LDA #19
1960 STA L2+2
1970 LDA #$AD
1980 STA ULIVES
1990 JMP KEYLOOP
2000 ;
2010 ULIVESN LDA #14
2020 STA L2
2030 LDA #15
2040 STA L2+1
2050 LDA #32
2060 STA L2+2
2070 LDA #$CE
2080 STA ULIVES
2090 JMP KEYLOOP
2100 ;
2110 AIRYES LDA #25
2120 STA L3
2130 LDA #5
2140 STA L3+1
2150 LDA #19
2160 STA L3+2
2170 LDA #$2C
2180 STA AIR
2190 JMP KEYLOOP
2200 ;
2210 AIRNO LDA #14
2220 STA L3
2230 LDA #15
2240 STA L3+1
2250 LDA #32
2260 STA L3+2
2270 LDA #$20
2280 STA AIR
2290 JMP KEYLOOP
2300 ;
2310 INLEVEL LDA LEVEL
2320 CMP #9
2330 BEQ SHOWLEVEL
2340 INC LEVEL
2350 JMP SHOWLEVEL
2360 ;
2370 DELEVEL LDA LEVEL
2380 CMP #1
2390 BEQ SHOWLEVEL
2400 DEC LEVEL
2410 ;
2420 SHOWLEVEL LDA LEVEL
2430 CLC
2440 ADC #48
2450 STA L4
2460 JMP KEYLOOP
2470 ;
2480 ;
2490 CTAB DFB <INLIVES,>INLIVES
2500 DFB <ULIVESY,>ULIVESY
2510 DFB <AIRYES,>AIRYES
2520 DFB <INLEVEL,>INLEVEL
2530 DFB <DELIVES,>DELIVES
2540 DFB <ULIVESN,>ULIVESN
2550 DFB <AIRNO,>AIRNO
2560 DFB <DELEVEL,>DELEVEL
2570 ;
2580 ;
2590 DFB ""
2600 ;
2610 TEXT DFB "",13,13
2620 DFB "",13,13
2630 DFB "",13,13,13
2640 DFB "",13,13
2650 DFB "",13,13
2660 DFB "",13,13
2670 DFB "",13,13,13,13
2680 DFB "",0
READY.
