mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 15:30:02 +00:00
169 lines
3.6 KiB
Plaintext
169 lines
3.6 KiB
Plaintext
0010 TEMP4 .EQ $FF
|
|
0020 POINTER3 .EQ $FD
|
|
0030 POINTER2 .EQ $FB
|
|
0040 POINTER1 .EQ $F9
|
|
0050 SCRPNT2 .EQ $F7
|
|
0060 SCRPNT1 .EQ $F5
|
|
0070 RNDBYTE2 .EQ $F4
|
|
0080 RNDBYTE1 .EQ $F3
|
|
0090 TEMP3 .EQ $F2
|
|
0100 TEMP2 .EQ $F1
|
|
0110 TEMP1 .EQ $F0
|
|
0120 RAMCARD .EQ $F53
|
|
0130 TEMP5 .EQ $94
|
|
0140 MANXX .EQ $CA
|
|
0150 COUNT0 .EQ $41A4
|
|
0160 COUNT1 .EQ $D033
|
|
0170 SETUP .EQ $45C3
|
|
0180 .OR $20F
|
|
0190 .TA $220F
|
|
0200 SETUP2
|
|
0210 LDA #$1E
|
|
0220 STA $20
|
|
0230 LDA #$42
|
|
0240 STA $21
|
|
0250 LDA #$AF
|
|
0260 STA $22
|
|
0270 LDA #$02
|
|
0280 STA $23
|
|
0290 LDY #$00
|
|
0300 .1 STA SETUP,Y
|
|
0310 INY
|
|
0320 CPY #$3D
|
|
0330 BNE .1
|
|
0340 LDA #$FF
|
|
0350 STA $7FD
|
|
0360 STA $7FE
|
|
0370 STA $7FF
|
|
0380 LDA #$84
|
|
0390 STA $7907
|
|
0400 LDA #$F5
|
|
0410 STA $7908
|
|
0420 LDA #$EA
|
|
0430 STA $7909
|
|
0440 TESTRAM
|
|
0450 LDA #$F0
|
|
0460 STA POINTER1
|
|
0470 STA POINTER2
|
|
0480 LDY #$91
|
|
0490 TYA
|
|
0500 CLC
|
|
0510 ADC #$2E
|
|
0520 STA POINTER1+1
|
|
0530 LDA (POINTER1),Y
|
|
0540 ROR
|
|
0550 STA TEMP1
|
|
0560 LDA (POINTER1),Y
|
|
0570 STA TEMP2
|
|
0580 LDX #$DF
|
|
0590 STX POINTER2+1
|
|
0600 LDY #$10
|
|
0610 DEX
|
|
0620 DEX
|
|
0630 TXA
|
|
0640 STA (POINTER2),Y
|
|
0650 LDY #$90
|
|
0660 LDA (POINTER1),Y
|
|
0670 LDA (POINTER1),Y
|
|
0680 LDY #$10
|
|
0690 LDA (POINTER2),Y
|
|
0700 CMP #$DD
|
|
0710 BNE .1
|
|
0720 STA RAMCARD
|
|
0730 .1 LDY #$92
|
|
0740 LDA (POINTER1),Y
|
|
0750 ROR
|
|
0760 STA TEMP4
|
|
0770 LDA (POINTER1),Y
|
|
0780 ROL
|
|
0790 STA TEMP5
|
|
0800 CLEAR
|
|
0810 LDX #$95
|
|
0820 LDA RAMCARD
|
|
0830 BEQ SKIP
|
|
0840 LDA $C081-$95,X
|
|
0850 LDA $C081-$95,X
|
|
0860 LDA #$53
|
|
0870 STA COUNT0
|
|
0880 LDA #$AD
|
|
0890 STA COUNT1
|
|
0900 BNE X1
|
|
0910 SKIP
|
|
0920 LDA $C082-$95,X
|
|
0930 LDA $C082-$95,X
|
|
0940 X1
|
|
0950 LDY #$00
|
|
0960 LDA #$FF
|
|
0970 .1 STA SETUP2,Y
|
|
0980 INY
|
|
0990 CPY #$95
|
|
1000 BNE .1
|
|
1010 RTS
|
|
1020 .OR $421E
|
|
1030 .TA $121E
|
|
1040 SCRAMBLE
|
|
1050 LDY#$02
|
|
1060 STY POINTER3+1
|
|
1070 .1 LDA #$B0
|
|
1080 STA POINTER3
|
|
1090 EOR (POINTER3),Y
|
|
1100 STA (POINTER3),Y
|
|
1110 INY
|
|
1120 CPY #$46
|
|
1130 BNE .1
|
|
1140 RTS
|
|
1150 PROTECT
|
|
1160 JSR SCRAMBLE2
|
|
1170 JSR CHECK2
|
|
1180 SCRAMBLE2
|
|
1190 JMP ($20)
|
|
1200 CHECK2
|
|
1210 JMP ($22)
|
|
1220 .OR $6535
|
|
1230 .TA $1535
|
|
1240 DIE
|
|
1250 JSR SCRAMBLE2
|
|
1260 LDX #$00
|
|
1270 STX RNDBYTE1
|
|
1280 STX RNDBYTE2
|
|
1290 INC MANXX
|
|
1300 INC SCRPNT1+1
|
|
1310 .1 STA DIE,X
|
|
1320 INX
|
|
1330 CPX #$0E
|
|
1340 BNE .1
|
|
1350 RTS
|
|
1360 .OR $2AF
|
|
1370 .TA $2AF
|
|
1380 CHECK
|
|
1390 LDX #$95
|
|
1400 LDA $C081-$95,X
|
|
1410 LDA $C081-$95,X
|
|
1420 LDA #$DD
|
|
1430 STA $E000-$95,X
|
|
1440 LDA $C080-$95,X
|
|
1450 LDA $C080-$95,X
|
|
1460 LDA $E000-$95,X
|
|
1470 CMP #$DD
|
|
1480 BNE .1
|
|
1490 CMP RAMCARD
|
|
1500 BEQ .2
|
|
1510 JMP DIE
|
|
1520 .2 LDA $C083-$95,X
|
|
1530 LDA $C083-$95,X
|
|
1540 INC COUNT0
|
|
1550 DEC COUNT1
|
|
1560 LDA COUNT0
|
|
1570 CLC
|
|
1580 ADC COUNT1
|
|
1590 BEQ SKIP2
|
|
1600 JMP DIE
|
|
1610 .1 LDA RAMCARD
|
|
1620 BEQ SKIP2
|
|
1630 JMP DIE
|
|
1640 SKIP2
|
|
1650 LDA $C082-$95,X
|
|
1660 LDA $C082-$95,X
|
|
1670 RTS
|
|
1680 .LI OFF
|