home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9109a.d64
/
springer.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
10KB
|
791 lines
10 REM ** SPRINGER **
20 REM
30 REM PROGRAMM VON: MAIK QUALMANN
40 REM
50 REM (C) 1991
60 REM MAGIC FORMEL ASSEMBLER
70 (null)
80 OPT OO
90 *= $4780
100 PUFFER1 = $0400
110 PUFFER2 = $0500
120 PUFFER3 = $0600
130 SEI
140 CLD
150 JSR $FD15
160 JSR $FDA3
170 JSR $E518
180 LDA #$31
190 STA $01
200 LDX #$00
210 CO1 LDA $D000,X
220 STA $4400,X
230 LDA $D100,X
240 STA $4500,X
250 LDA #$0F
260 STA $4000,X
270 STA $4100,X
280 STA $4200,X
290 STA $4300,X
300 INX
310 BNE CO1
320 LDA #$37
330 STA $01
340 TXA
350 LDY #$60
360 JSR POSI
370 LDX #$20
380 TYA
390 CL1 STA ($FB),Y
400 INY
410 BNE CL1
420 INC $FC
430 DEX
440 BNE CL1
450 LDY #$03
460 LDA #$0B
470 AF2 LDX #$09
480 AF1 JSR (null)
490 INX
500 CPX #$0D
510 BNE AF1
520 EOR #$07
530 INY
540 CPY #$08
550 BNE AF2
560 LDX #$00
570 AF5 CPX #$60
580 BEQ AF6
590 LDA (null)TAB,X
600 STA $FC
610 INX
620 LDA (null)TAB,X
630 STA $FB
640 INX
650 LDA (null)TAB,X
660 STA $46
670 INX
680 LDY #$00
690 AF7 LDA (null)TAB,X
700 PHA
710 JSR (null)
720 INY
730 INX
740 PLA
750 BMI AF5
760 BPL AF7
770 AF6 LDA #$0F
780 STA $D020
790 LDA #%00001001
800 STA $D018
810 LDA #$3B
820 STA $D011
830 LDA #$96
840 STA $DD00
850 LDA #29
860 STA $43F8
870 LDA #$14
880 STA $4F
890 LDA #$32
900 STA $55
910 START LDA #$00
920 STA $3B
930 STA $3F
940 TAY
950 LDA #$01
960 BL3 LDX #$00
970 BL2 JSR (null)
980 EOR #$01
990 INX
1000 CPX #$08
1010 BNE BL2
1020 EOR #$01
1030 INY
1040 CPY #$08
1050 BNE BL3
1060 LDA $4F
1070 STA $56
1080 LDA #$50
1090 STA $44
1100 LDA #$F0
1110 STA $45
1120 JSR ZUFALL
1130 STA $40
1140 STA $60
1150 TAY
1160 JSR ZUFALL
1170 STA $41
1180 STA $61
1190 TAX
1200 LDA #64
1210 JSR (null)1
1220 SE1 JSR TEST
1230 LDA $FE
1240 BNE SD1
1250 JMP START
1260 SD1 JSR ZUFALL
1270 CMP $FE
1280 BCS SD1
1290 ASL
1300 TAX
1310 LDA $3B
1320 ASL
1330 TAY
1340 LDA PUFFER1,X
1350 STA PUFFER2,Y
1360 STA $40
1370 LDA PUFFER1+1,X
1380 STA PUFFER2+1,Y
1390 STA $41
1400 INC $3B
1410 LDY $40
1420 TAX
1430 LDA #82
1440 JSR (null)1
1450 DEC $56
1460 BNE SE1
1470 LDA #91
1480 JSR (null)1
1490 JSR ST6
1500 INC $3B
1510 LDA #$00
1520 STA $3C
1530 STA $4E
1540 STA $57
1550 STA $60
1560 STA $61
1570 LDA #7
1580 STA $3D
1590 LDA #$1D
1600 STA $D000
1610 LDA #$36
1620 STA $D001
1630 LDA #$01
1640 STA $D015
1650 ANFANG1 JSR LEVELZ
1660 LDX #$06
1670 LDA #$30
1680 RE1 STA $62,X
1690 DEX
1700 BPL RE1
1710 LDX #$03
1720 LDA #$00
1730 RE2 STA $48,X
1740 DEX
1750 BPL RE2
1760 LDA #$C0
1770 LDY #$43
1780 JSR POSI
1790 LDY #$27
1800 KI1 LDA #$20
1810 JSR (null)
1820 DEY
1830 BPL KI1
1840 ANFANG LDA #<ANFANG
1850 LDX #>ANFANG
1860 STA $4C
1870 STX $4D
1880 LDA #$F0
1890 AN1 CMP $D012
1900 BNE AN1
1910 INC $D027
1920 LDA $57
1930 BNE AN2
1940 JSR TIME
1950 AN2 JSR (null)
1960 JSR JOYST
1970 JMP ($004C)
1980 JOYST LDA $03
1990 LDX $3C
2000 BNE J1
2010 LDA $DC00
2020 STA $03
2030 J1 LDY $D001
2040 LDX $D000
2050 LSR
2060 STA $02
2070 BCS J2
2080 LDA $60
2090 BEQ J2
2100 DEY
2110 DEY
2120 DEY
2130 INC $3C
2140 LDA $3D
2150 BNE J2
2160 DEC $60
2170 J2 LSR $02
2180 BCS J3
2190 LDA $60
2200 CMP #$07
2210 BEQ J3
2220 INY
2230 INY
2240 INY
2250 INC $3C
2260 LDA $3D
2270 BNE J3
2280 INC $60
2290 J3 LSR $02
2300 BCS J4
2310 LDA $61
2320 BEQ J4
2330 DEX
2340 DEX
2350 DEX
2360 INC $3C
2370 LDA $3D
2380 BNE J4
2390 DEC $61
2400 J4 LSR $02
2410 BCS J5
2420 LDA $61
2430 CMP #$09
2440 BEQ J5
2450 INX
2460 INX
2470 INX
2480 INC $3C
2490 LDA $3D
2500 BNE J5
2510 INC $61
2520 J5 STY $D001
2530 STX $D000
2540 LDA $3C
2550 BNE J6
2560 LSR $02
2570 BCS J7
2580 LDA $4E
2590 BNE J8
2600 JSR MENU
2610 BCS J9
2620 JSR SET
2630 J9 LDA #$01
2640 STA $4E
2650 J8 RTS
2660 J7 LDA #$00
2670 STA $4E
2680 RTS
2690 J6 DEC $3D
2700 BPL J8
2710 LDA #$00
2720 STA $3C
2730 LDA #7
2740 STA $3D
2750 RTS
2760 PFERD LDY $40
2770 LDX $41
2780 LDA #64
2790 JSR (null)1
2800 LDX #$06
2810 ZUG2 INC $62,X
2820 LDA $62,X
2830 CMP #$3A
2840 BNE ZUG1
2850 LDA #$30
2860 STA $62,X
2870 DEX
2880 BPL ZUG2
2890 BMI ZUG3
2900 ZUG1 STA $62,X
2910 ZUG3 RTS
2920 SET LDA #$00
2930 STA $44
2940 LDA #$F0
2950 STA $45
2960 JSR TEST
2970 LDX $FE
2980 DEX
2990 BMI ST1
3000 ST4 TXA
3010 ASL
3020 TAY
3030 LDA PUFFER1,Y
3040 CMP $60
3050 BNE ST2
3060 LDA PUFFER1+1,Y
3070 CMP $61
3080 BEQ ST3
3090 ST2 DEX
3100 BPL ST4
3110 BMI ST1
3120 ST3 LDY $60
3130 LDX $61
3140 JSR BILD
3150 CMP #$70
3160 BNE ST5
3170 LDA $3B
3180 CMP #$01
3190 BNE ST1
3200 JSR ST5
3210 INC $57
3220 LDA $4C
3230 CMP #<ANFANG
3240 BNE ST1
3250 LDA #$9F
3260 STA $46
3270 LDA #$C0
3280 LDY #$43
3290 JSR POSI
3300 GES1 LDA (null)2,Y
3310 JSR (null)
3320 INY
3330 CPY #16
3340 BNE GES1
3350 LDA #$1F
3360 STA $46
3370 LDX #$FF
3380 LDA #$30
3390 GES2 INX
3400 CMP $62,X
3410 BEQ GES2
3420 GES3 LDA $62,X
3430 JSR (null)
3440 INY
3450 INX
3460 CPX #$07
3470 BNE GES3
3480 LDA #$9F
3490 STA $46
3500 LDX #$00
3510 GES4 LDA (null)3,X
3520 JSR (null)
3530 INY
3540 INX
3550 CPX #$07
3560 BNE GES4
3570 LDA #$1F
3580 STA $46
3590 ST1 RTS
3600 ST5 LDY $40
3610 LDX $41
3620 LDA #73
3630 JSR (null)1
3640 INC $3F
3650 ST6 LDA $3F
3660 ASL
3670 TAX
3680 LDA $60
3690 STA PUFFER3,X
3700 STA $40
3710 LDA $61
3720 STA PUFFER3+1,X
3730 STA $41
3740 DEC $3B
3750 JSR TON
3760 JMP PFERD
3770 ZURUECK LDA $57
3780 BNE ZR1
3790 JSR ZURU
3800 JSR TON
3810 ZR1 JMP ANFANG
3820 ZURU LDA $3F
3830 BEQ ST1
3840 LDA #82
3850 LDX $57
3860 BEQ ZU2
3870 LDA #91
3880 ZU2 LDY $40
3890 LDX $41
3900 JSR (null)1
3910 DEC $3F
3920 LDA $3F
3930 ASL
3940 TAX
3950 LDA PUFFER3,X
3960 STA $40
3970 LDA PUFFER3+1,X
3980 STA $41
3990 INC $3B
4000 JMP PFERD
4010 (null) LDX #$70
4020 LDA $3B
4030 CMP #$01
4040 BNE HE2
4050 LDX #$F0
4060 HE2 STX $44
4070 LDA #$00
4080 STA $45
4090 JSR TEST
4100 LDA #$39
4110 LDY #$41
4120 JSR POSI
4130 LDA $FE
4140 JMP (null)ZAHL
4150 ZUFALL LDA $DC04
4160 EOR $D012
4170 AND #$07
4180 RTS
4190 BILD LDA #$3F
4200 STA $FC
4210 LDA #$85
4220 BI1 CLC
4230 ADC #120
4240 BCC BI4
4250 INC $FC
4260 BI4 DEY
4270 BPL BI1
4280 BI2 CLC
4290 ADC #$03
4300 BCC BI5
4310 INC $FC
4320 BI5 DEX
4330 BPL BI2
4340 STA $FB
4350 LDY #$00
4360 LDA ($FB),Y
4370 AND #$0F
4380 STA $54
4390 LDA ($FB),Y
4400 AND #$F0
4410 RTS
4420 TEST LDA #$00
4430 STA $FE
4440 LDA #$07
4450 STA $52
4460 SC2 LDA $52
4470 ASL
4480 TAX
4490 LDA $40
4500 CLC
4510 ADC SCTAB,X
4520 CMP #$08
4530 BCS SC3
4540 TAY
4550 LDA $41
4560 CLC
4570 ADC SCTAB+1,X
4580 CMP #$08
4590 BCS SC3
4600 TAX
4610 STY $42
4620 STX $43
4630 JSR BILD
4640 CMP #$E0
4650 BEQ SC3
4660 CMP #$A0
4670 BEQ SC3
4680 CMP $44
4690 BEQ SC3
4700 CMP $45
4710 BEQ SC3
4720 LDA $FE
4730 ASL
4740 TAX
4750 LDA $42
4760 STA PUFFER1,X
4770 LDA $43
4780 STA PUFFER1+1,X
4790 INC $FE
4800 SC3 DEC $52
4810 BPL SC2
4820 RTS
4830 SCTAB BYT $FE,$FF,$FE,$01,$FF,$02
4840 BYT $01,$02,$02,$01,$02,$FF
4850 BYT $01,$FE,$FF,$FE
4860 TON LDA #$00
4870 STA $D404
4880 STA $D400
4890 LDA #$50
4900 STA $D405
4910 LDA #$1A
4920 STA $D401
4930 LDA #$0F
4940 STA $D418
4950 LDA #$61
4960 STA $D404
4970 RTS
4980 TIME INC $48
4990 LDA $48
5000 CMP #50
5010 BNE TI6
5020 LDA #$00
5030 STA $48
5040 SED
5050 LDX #$02
5060 TI4 LDA $49,X
5070 CLC
5080 ADC #$01
5090 CMP #$60
5100 BNE TI3
5110 LDA #$00
5120 STA $49,X
5130 DEX
5140 BPL TI4
5150 BMI TI6
5160 TI3 STA $49,X
5170 TI6 CLD
5180 LDA #$95
5190 LDY #$40
5200 JSR POSI
5210 LDY #$07
5220 LDX #$02
5230 TI5 LDA $49,X
5240 AND #$0F
5250 JSR (null)ZAHL
5260 LDA $49,X
5270 LSR
5280 LSR
5290 LSR
5300 LSR
5310 DEY
5320 JSR (null)ZAHL
5330 DEY
5340 BMI TI7
5350 LDA #$3A
5360 JSR (null)
5370 DEY
5380 DEX
5390 BPL TI5
5400 TI7 RTS
5410 MENU LDX #$03
5420 LDA $61
5430 CMP #$09
5440 BNE ME1
5450 ME3 CPX $60
5460 BEQ ME2
5470 INX
5480 CPX #$08
5490 BNE ME3
5500 ME1 LDA $61
5510 CMP #$08
5520 RTS
5530 ME2 DEX
5540 DEX
5550 DEX
5560 TXA
5570 ASL
5580 TAY
5590 LDA STAB,Y
5600 STA $4C
5610 LDA STAB+1,Y
5620 STA $4D
5630 LDA #$01
5640 STA $D027
5650 SEC
5660 RTS
5670 STAB WOR ZURUECK,SLEEP,LEVEL,ZEIGEN,GGAME
5680 SLEEP JSR TON
5690 LDA #$7B
5700 STA $D011
5710 JSR TASTE
5720 LDA #$3B
5730 STA $D011
5740 JMP ANFANG
5750 LEVEL JSR TON
5760 LEVEL1 JSR LEVELZ
5770 JSR PAUSE
5780 LDA $DC00
5790 LSR
5800 TAY
5810 BCS LE1
5820 LDA $4F
5830 CMP #$32
5840 BEQ LE1
5850 CLC
5860 ADC #$0A
5870 STA $4F
5880 INC $55
5890 LE1 TYA
5900 LSR
5910 TAY
5920 BCS LE2
5930 LDA $4F
5940 CMP #$0A
5950 BEQ LE2
5960 SEC
5970 SBC #$0A
5980 STA $4F
5990 DEC $55
6000 LE2 TYA
6010 LSR
6020 LSR
6030 LSR
6040 BCS LEVEL1
6050 JMP START
6060 LEVELZ LDA #$A4
6070 LDY #$42
6080 JSR POSI
6090 LDA #$1B
6100 STA $46
6110 LDA $55
6120 JSR (null)
6130 LDA #$1F
6140 STA $46
6150 RTS
6160 PAUSE LDX #$90
6170 LDY #$90
6180 LE4 DEY
6190 BNE LE4
6200 DEX
6210 BNE LE4
6220 RTS
6230 ZEIGEN JSR TON
6240 LDA $61
6250 PHA
6260 LDA $60
6270 PHA
6280 ZE1 JSR ZURU
6290 LDA #$00
6300 STA $57
6310 STA $FD
6320 LDA $3F
6330 BNE ZE1
6340 BEQ ZE5
6350 ZE4 JSR TASTE
6360 LDA $FD
6370 ASL
6380 TAX
6390 LDA PUFFER2,X
6400 STA $60
6410 LDA PUFFER2+1,X
6420 STA $61
6430 INC $FD
6440 JSR SET
6450 ZE5 JSR (null)
6460 LDA $57
6470 BEQ ZE4
6480 PLA
6490 STA $60
6500 PLA
6510 STA $61
6520 JMP ANFANG
6530 REGISS STA $5C
6540 STX $5D
6550 STY $5E
6560 JSR BILD
6570 LDA #$02
6580 STA $52
6590 RTS
6600 PLUS LDA $FB
6610 CLC
6620 ADC #$28
6630 STA $FB
6640 BCC PL1
6650 INC $FC
6660 PL1 DEC $52
6670 RTS
6680 (null) JSR REGISS
6690 BL1 LDY #$00
6700 LDA $5C
6710 LDX #32
6720 JSR SETT
6730 INY
6740 JSR SETT
6750 INY
6760 JSR SETT
6770 JSR PLUS
6780 BPL BL1
6790 (null)E LDA $5C
6800 LDX $5D
6810 LDY $5E
6820 RTS
6830 (null)1 JSR REGISS
6840 BO4 LDA #$03
6850 STA $53
6860 LDY #$00
6870 BO3 LDA $5C
6880 SEC
6890 SBC #64
6900 TAX
6910 LDA FTAB,X
6920 ORA $54
6930 LDX $5C
6940 JSR SETT
6950 INC $5C
6960 INY
6970 DEC $53
6980 BNE BO3
6990 JSR PLUS
7000 BPL BO4
7010 BMI (null)E
7020 FTAB BYT $E0,$E0,$E0,$E0,$E0,$E0,$E0,$E0,$E0
7030 BYT $A0,$A0,$A0,$A0,$A0,$A0,$A0,$50,$50
7040 BYT $50,$50,$50,$50,$50,$50,$50,$50,$50
7050 BYT $70,$70,$70,$A0,$A0,$A0,$30,$30,$30
7060 GGAME JSR ZURU
7070 LDA #$00
7080 STA $57
7090 LDA $3F
7100 BNE GGAME
7110 JSR TON
7120 JMP ANFANG1
7130 SETT STA $58
7140 STX $59
7150 STY $5A
7160 SETT2 STA ($FB),Y
7170 LDA #$00
7180 STA $A9
7190 TXA
7200 ASL
7210 ROL $A9
7220 ASL
7230 ROL $A9
7240 ASL
7250 ROL $A9
7260 STA $A8
7270 LDA $A9
7280 CLC
7290 ADC #$44
7300 STA $A9
7310 LDA $FC
7320 AND #$0F
7330 STA $A7
7340 TYA
7350 CLC
7360 ADC $FB
7370 STA $A6
7380 BCC SET2
7390 INC $A7
7400 SET2 LDA $A6
7410 ASL
7420 ROL $A7
7430 ASL
7440 ROL $A7
7450 ASL
7460 ROL $A7
7470 STA $A6
7480 LDA $A7
7490 CLC
7500 ADC #$60
7510 STA $A7
7520 LDX #$07
7530 LDY #$00
7540 SET1 LDA ($A8),Y
7550 STA ($A6),Y
7560 INY
7570 DEX
7580 BPL SET1
7590 LDA $58
7600 LDX $59
7610 LDY $5A
7620 RTS
7630 POSI STA $FB
7640 STY $FC
7650 LDY #$00
7660 RTS
7670 (null)ZAHL ORA #$30
7680 (null) AND #$3F
7690 STX $59
7700 STY $5A
7710 TAX
7720 LDA $46
7730 JMP SETT2
7740 TASTE JSR PAUSE
7750 TASTE1 LDA $DC00
7760 AND #$10
7770 BNE TASTE1
7780 RTS
7790 (null)TAB BYT $40,$1A,$6F : ASC "** SPRINGER *":BYT $AA
7800 BYT $40,$6F,$9F : ASC "ZEI[212]"
7810 BYT $40,$E5,$9F : ASC "MOEGLICH[197]"
7820 BYT $41,$0D,$9F : ASC "ZUGANZAH[204]"
7830 BYT $41,$AD,$FB : ASC "ZURUEC[203]"
7840 BYT $42,$26,$FC : ASC "PAUS[197]"
7850 BYT $42,$9D,$FB : ASC "LEVEL":BYT $BA
7860 BYT $43,$15,$FC : ASC "LOESUN[199]"
7870 BYT $43,$8D,$FB : ASC "NEUSTAR[212]"
7880 (null)2 ASC "O.K.! DAS WAREN "
7890 (null)3 ASC " ZUEGE!"
7900 END