mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 00:31:17 +00:00
179 lines
4.3 KiB
Plaintext
179 lines
4.3 KiB
Plaintext
|
0010 .LI OFF
|
||
|
|
0020 TEMP4 .EQ $FF
|
||
|
|
0030 POINTER3 .EQ $FD
|
||
|
|
0040 POINTER2 .EQ $FB
|
||
|
|
0050 POINTER1 .EQ $F9
|
||
|
|
0060 SCRPNT2 .EQ $F7
|
||
|
|
0070 SCRPNT1 .EQ $F5
|
||
|
|
0080 TEMP3 .EQ $F2
|
||
|
|
0090 TEMP2 .EQ $F1
|
||
|
|
0100 TEMP1 .EQ $F0
|
||
|
|
0110 TEMP5 .EQ $94
|
||
|
|
0120 POINTER4 .EQ $EE
|
||
|
|
0130 HEIGHT .EQ $ED
|
||
|
|
0140 PATINDEX .EQ $EC
|
||
|
|
0150 PITCH .EQ $DF
|
||
|
|
0160 ENDINDEX .EQ $CC
|
||
|
|
0170 MANX .EQ $CB
|
||
|
|
0180 MANXX .EQ $CA
|
||
|
|
0190 MANY .EQ $C9
|
||
|
|
0200 MANDIR .EQ $C8
|
||
|
|
0210 MANXOLD .EQ $BC
|
||
|
|
0220 MANXXOLD .EQ $BB
|
||
|
|
0230 MANYOLD .EQ $BA
|
||
|
|
0240 K3 .EQ $B9
|
||
|
|
0250 INIT.K3 .EQ $B8
|
||
|
|
0260 PLAYERNUM .EQ $B3
|
||
|
|
0270 WASPX .EQ $B0
|
||
|
|
0280 WASPY .EQ $B1
|
||
|
|
0290 WASPSTATE .EQ $B2
|
||
|
|
0300 WASPXX .EQ $9B
|
||
|
|
0310 K4 .EQ $9D
|
||
|
|
0320 INIT.K4 .EQ $9C
|
||
|
|
0330 FLAP .EQ $96
|
||
|
|
0340 RNDBYT1 .EQ $F3
|
||
|
|
0350 RNDBYT2 .EQ $F4
|
||
|
|
0360 INITIALIZE.1.Z .EQ $45BA
|
||
|
|
0370 DRAW.GREEN.Z .EQ $45BD
|
||
|
|
0380 DELAY.Z .EQ $5800
|
||
|
|
0390 MAN.MASTER.Z .EQ $4600
|
||
|
|
0400 WASP.MASTER.Z .EQ $5806
|
||
|
|
0410 MOVE.RIGHT.Z .EQ $5803
|
||
|
|
0420 ERASE.LEFT.Z .EQ $5809
|
||
|
|
0430 MOVE.MEMORY.Z .EQ $45C0
|
||
|
|
0440 R1.Z .EQ $4F18
|
||
|
|
0450 .OR $A48
|
||
|
|
0460 .TA $1A48
|
||
|
|
0470 THE.END
|
||
|
|
0480 JSR INITIALIZE.1.Z
|
||
|
|
0490 LDA #$70
|
||
|
|
0500 STA WASPY
|
||
|
|
0510 STA MANY
|
||
|
|
0520 LDA #$04
|
||
|
|
0530 STA WASPX
|
||
|
|
0540 STA MANX
|
||
|
|
0550 LDA $460D
|
||
|
|
0560 PHA
|
||
|
|
0570 LDA #$F0
|
||
|
|
0580 STA $460D
|
||
|
|
0590 LDA #$00
|
||
|
|
0600 STA WASPXX
|
||
|
|
0610 STA MANXX
|
||
|
|
0620 STA ENDINDEX
|
||
|
|
0630 LDA #$02
|
||
|
|
0640 STA WASPSTATE
|
||
|
|
0650 JSR DRAW.GREEN.Z
|
||
|
|
0660 LDA #$40
|
||
|
|
0670 STA TEMP1
|
||
|
|
0680 LDA #$00
|
||
|
|
0690 LDX #$80
|
||
|
|
0700 LDY #$20
|
||
|
|
0710 JSR MOVE.MEMORY.Z
|
||
|
|
0720 LDA #$00
|
||
|
|
0730 STA PATINDEX
|
||
|
|
0740 LDA #$82
|
||
|
|
0750 STA POINTER4+1
|
||
|
|
0760 LDA #$28
|
||
|
|
0770 STA POINTER4
|
||
|
|
0780 LDA #$06
|
||
|
|
0790 STA HEIGHT
|
||
|
|
0800 .7 LDY #$0A
|
||
|
|
0810 .8 LDX PATINDEX
|
||
|
|
0820 LDA TABLE703,X
|
||
|
|
0830 STA (POINTER4),Y
|
||
|
|
0840 INC PATINDEX
|
||
|
|
0850 INY
|
||
|
|
0860 CPY #$1D
|
||
|
|
0870 BNE .8
|
||
|
|
0880 LDX HEIGHT
|
||
|
|
0890 LDA PLAYERNUM
|
||
|
|
0900 BEQ .9
|
||
|
|
0910 TXA
|
||
|
|
0920 CLC
|
||
|
|
0930 ADC #$07
|
||
|
|
0940 TAX
|
||
|
|
0950 .9 LDA TABLE704,X
|
||
|
|
0960 STA (POINTER4),Y
|
||
|
|
0970 INY
|
||
|
|
0980 LDA TABLE705,X
|
||
|
|
0990 STA (POINTER4),Y
|
||
|
|
1000 LDA POINTER4+1
|
||
|
|
1010 CLC
|
||
|
|
1020 ADC #$04
|
||
|
|
1030 STA POINTER4+1
|
||
|
|
1040 DEC HEIGHT
|
||
|
|
1050 BPL .7
|
||
|
|
1060 LDA #$2B
|
||
|
|
1070 STA $9E42
|
||
|
|
1080 LDA #$0C
|
||
|
|
1090 STA INIT.K4
|
||
|
|
1100 STA K4
|
||
|
|
1110 LDA #$18
|
||
|
|
1120 STA INIT.K3
|
||
|
|
1130 STA K3
|
||
|
|
1140 LDA #$60
|
||
|
|
1150 STA $600F
|
||
|
|
1160 .1 JSR MAN.MASTER.Z
|
||
|
|
1170 LDA #$10
|
||
|
|
1180 JSR DELAY.Z
|
||
|
|
1190 LDA MANX
|
||
|
|
1200 CMP #$10
|
||
|
|
1210 BNE .1
|
||
|
|
1220 .2 LDA MANX
|
||
|
|
1230 CMP #$2C
|
||
|
|
1240 BEQ .5
|
||
|
|
1250 JSR MAN.MASTER.Z
|
||
|
|
1260 .5 DEC K4
|
||
|
|
1270 BNE .4
|
||
|
|
1280 LDA INIT.K4
|
||
|
|
1290 STA K4
|
||
|
|
1300 INC FLAP
|
||
|
|
1310 JSR MOVE.RIGHT.Z
|
||
|
|
1320 JSR ERASE.LEFT.Z
|
||
|
|
1330 .4 LDX ENDINDEX
|
||
|
|
1340 LDA TABLE706,X
|
||
|
|
1350 BEQ .10
|
||
|
|
1360 LDY PITCH
|
||
|
|
1370 STY TEMP1
|
||
|
|
1380 JSR R1.Z
|
||
|
|
1390 LDA PITCH
|
||
|
|
1410 ADC #$02
|
||
|
|
1420 STA PITCH
|
||
|
|
1430 BNE .11
|
||
|
|
1440 .10 LDA #$05
|
||
|
|
1450 STA PITCH
|
||
|
|
1460 .11 LDA MANX
|
||
|
|
1470 CMP TABLE700,X
|
||
|
|
1480 BNE .2
|
||
|
|
1490 LDA TABLE701,X
|
||
|
|
1500 STA MANDIR
|
||
|
|
1510 LDA TABLE702,X
|
||
|
|
1520 STA INIT.K3
|
||
|
|
1530 INX
|
||
|
|
1540 CPX #$07
|
||
|
|
1550 BNE .6
|
||
|
|
1560 DEX
|
||
|
|
1570 .6 STX ENDINDEX
|
||
|
|
1580 LDA #$2B
|
||
|
|
1590 CMP WASPX
|
||
|
|
1600 BCS .5
|
||
|
|
1610 LDX #$05
|
||
|
|
1620 .3 JSR DELAY.Z
|
||
|
|
1630 DEX
|
||
|
|
1640 BNE .3
|
||
|
|
1650 LDA #$4C
|
||
|
|
1660 STA $600F
|
||
|
|
1670 PLA
|
||
|
|
1680 STA $460D
|
||
|
|
1690 RTS
|
||
|
|
1700 TABLE700 .HS 181A1C2022242C
|
||
|
|
1710 TABLE701 .HS B0BBD0B0BBD0
|
||
|
|
1720 TABLE702 .HS 020218020210
|
||
|
|
1730 TABLE703 .HS 2E552A552A553A552A552A553E752A552A552A3B552A552A556E552A552A556E5D2B552A552A2B5D3A572E556E5D6B752A556F5D6B752E572B2F776E5D3B556E5D3B772F556E5D3B776E5D3F
|
||
|
|
1740 .HS 3B776E5D3B556E5D3B772E553E5D3B776E5D3B7B776E5D2E556E5D6B5D2E552E7D3E572B773A2E7D6F7D3B553A753E572E556E776B5F7B5D3A
|
||
|
|
1750 TABLE704 .HS 7D757575757D757D5D7555555D75
|
||
|
|
1760 .LI ON
|
||
|
|
1770 TABLE705 .HS 2B2A2A2A2A2A2A2B2A2A2B2B2B2A
|
||
|
|
1780 TABLE706 .HS 00084000084000
|
||
|
|
1790 .LI OFF
|