Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/centipede/centipede.s

5468 lines
58 KiB
ArmAsm
Raw Blame History

*
* Centipede
*
* (c) 1982, Atari
* (s) 2020, Antoine Vignau
*
* Made from LoGo's crack
*
mx %11
org $9000
lst off
*----------------------------
L02FC = $02FC
L05F0 = $05F0
L0600 = L05F0+$10
L0610 = L0600+$10
L0800 = $0800
L1020 = $1020
L1560 = $1560
HGR1 = $2000
HGR2 = $4000
L6000 = $6000
L7800 = $7800
L8000 = $8000
L8080 = L8000+$80
L8B00 = $8B00
L8F00 = $8F00
SOFTEV EQU $03F2
PWREDUP EQU $03F4
KBD EQU $C000
KBDSTROBE EQU $C010
SPKR EQU $C030
TXTCLR EQU $C050
MIXCLR EQU $C052
TXTPAGE1 EQU $C054
TXTPAGE2 EQU $C055
HIRES EQU $C057
BUTN0 EQU $C061
BUTN1 EQU $C062
ROMIN2 EQU $C081
RDROM2 EQU $C082
LCBANK2 EQU $C083
PREAD EQU $FB1E
INIT EQU $FB2F
VTAB EQU $FC22
CRLEOP EQU $FC42
HOME EQU $FC58
WAIT EQU $FCA8
RDKEY EQU $FD0C
PRBYTE EQU $FDDA
COUT EQU $FDED
SETKBD EQU $FE89
SETVID EQU $FE93
RESETV EQU $FFFC
*----------------------------
* KEYS
*
* Up : A
* Down : Z
* Left : left arrow
* Right : right arrow
* J : joystick
* K : keyboard
* Butns : shoot
*
*----------------------------
*----------------------------
* ZERO PAGE
*
* $A0..$A1 : pointer
* $A2..$A3 : pointer
* $A4 : length
* $A5..$A5 : offset within buffer area $0800
*----------------------------
fgINPUT = $f8 ; 0: joystick, 1: keyboard
whichDIR = $fc ; 0: none, 1: up, 2: down, 4: left, 8: right
*----------------------------
*--- Font and friends
L9000 hex 0000000000000000
hex 02BB5A305FEE3DA8
hex 0A0A0A0000000000
hex 0A0A1F0A1F0A0A00
hex 041E050E140F0400
hex 00130B041A190000
hex 02050502150F1600
hex 0404040000000000
hex 0402010101020400
hex 0408101010080400
hex 04150E040E150400
hex 0004041F04040000
hex 0000000006040200
hex 0000001F00000000
hex 0000000000060600
hex 1010080402010100
hex 040A11110A040000
hex 04060404040E0000
hex 0E11100C061F0000
hex 0E11100C110E0000
hex 0109091F08080000
hex 1F010F10100F0000
hex 0E01010F110E0000
hex 1F10080402010000
hex 0E110E11110E0000
hex 1E111E10100E0000
hex 0006060006060000
hex 0006060006040200
hex 0804020102040800
hex 00001F001F000000
hex 0204081008040200
hex 0E11100C04000400
hex 0E111D0D05011E00
hex 040A111F11110000
hex 0F110F11110F0000
hex 0E110101110E0000
hex 0F111111110F0000
hex 1F010701011F0000
hex 1F01070101010000
hex 0F11011D111E0000
hex 11111F1F11110000
hex 1F040404041F0000
hex 10101010110E0000
hex 1109070509110000
hex 01010101011F0000
hex 111B151111110000
hex 1113151911110000
hex 0E111111110E0000
hex 0F11110F01010000
hex 0E11111509160000
hex 0F11110F09110000
hex 1F011F10101F0000
hex 1F04040404040000
hex 11111111110E0000
hex 111111111A040000
hex 111111151B110000
hex 110A040A11110000
hex 11110A0404040000
hex 1F080402011F0000
hex 0000000000000000
hex 0000000000000000
hex 0000000000000000
hex 0000000000000000
hex 0000000000000000
hex 082A2A2A08080800
hex 082A2A2A08000000
hex 082A2A2200000000
hex 082A280000000000
hex 0000000000000000
hex 1054545410101000
hex 1054545410000000
hex 1054544400000000
hex 1054500000000000
hex 0000000000000000
hex 8184A8AAAAA88481
hex 838C9EBFBF9E8C83
hex 90848AAAAA8A8490
hex E098BAFEFEBA98E0
hex 9084A9AAAAA88490
hex B08C9EBFBF9E8CB0
hex 81848AAAAA8A8481
hex 8698BAFEFEBA9886
hex 7E66666666667E00
hex 1818181818181800
hex 7E60607E06067E00
hex 7E60607E60607E00
hex 6666667E60606000
hex 7E06067E60607E00
hex 0606067E66667E00
hex 7E60606060606000
hex 7E66667E66667E00
hex 7E66667E60606000
hex 888888AAAAAAAAAA
hex 888888AAAAAAAAAA
hex 888888AAAAAAAAAA
hex 0000000000000000
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0001020304050607
hex 08090A0B0C0D0E0F
hex 1011121314151617
hex 18191A1B1C1D1E1F
hex 2021222324252627
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000000000000000
hex 0000000000000000
hex 0000000000000000
hex 0000000000000000
hex 0000000000000000
hex 0808080808080808
hex 0808080808080808
hex 0808080808080808
hex 0808080808080808
hex 0808080808080808
hex 1010101010101010
hex 1010101010101010
hex 1010101010101010
hex 1010101010101010
hex 1010101010101010
hex 1818181818181818
hex 1818181818181818
hex 1818181818181818
hex 1818181818181818
hex 1818181818181818
hex 2020202020202020
hex 2020202020202020
hex 2020202020202020
hex 2020202020202020
hex 2020202020202020
hex 2828282828282828
hex 2828282828282828
hex 2828282828282828
hex 2828282828282828
hex 2828282828282828
hex 3030303030303030
hex 3030303030303030
hex 3030303030303030
hex 3030303030303030
hex 3030303030303030
hex 3838383838383838
hex 3838383838383838
hex 3838383838383838
hex 3838383838383838
hex 3838383838383838
hex 4040404040404040
hex 4040404040404040
hex 4040404040404040
hex 4040404040404040
hex 4040404040404040
hex 4848484848484848
hex 4848484848484848
hex 4848484848484848
hex 4848484848484848
hex 4848484848484848
hex 5050505050505050
hex 5050505050505050
hex 5050505050505050
hex 5050505050505050
hex 5050505050505050
hex 5858585858585858
hex 5858585858585858
hex 5858585858585858
hex 5858585858585858
hex 5858585858585858
hex 6060606060606060
hex 6060606060606060
hex 6060606060606060
hex 6060606060606060
hex 6060606060606060
hex 6868686868686868
hex 6868686868686868
hex 6868686868686868
hex 6868686868686868
hex 6868686868686868
hex 7070707070707070
hex 7070707070707070
hex 7070707070707070
hex 7070707070707070
hex 7070707070707070
hex 7878787878787878
hex 7878787878787878
hex 7878787878787878
hex 7878787878787878
hex 7878787878787878
hex 8080808080808080
hex 8080808080808080
hex 8080808080808080
hex 8080808080808080
hex 8080808080808080
hex 8888888888888888
hex 8888888888888888
hex 8888888888888888
hex 8888888888888888
hex 8888888888888888
hex 9090909090909090
hex 9090909090909090
hex 9090909090909090
hex 9090909090909090
hex 9090909090909090
hex 9898989898989898
hex 9898989898989898
hex 9898989898989898
hex 9898989898989898
hex 9898989898989898
hex A0A0A0A0A0A0A0A0
hex A0A0A0A0A0A0A0A0
hex A0A0A0A0A0A0A0A0
hex A0A0A0A0A0A0A0A0
hex A0A0A0A0A0A0A0A0
hex A8A8A8A8A8A8A8A8
hex A8A8A8A8A8A8A8A8
hex A8A8A8A8A8A8A8A8
hex A8A8A8A8A8A8A8A8
hex A8A8A8A8A8A8A8A8
hex B0B0B0B0B0B0B0B0
hex B0B0B0B0B0B0B0B0
hex B0B0B0B0B0B0B0B0
hex B0B0B0B0B0B0B0B0
hex B0B0B0B0B0B0B0B0
hex B8B8B8B8B8B8B8B8
hex B8B8B8B8B8B8B8B8
hex B8B8B8B8B8B8B8B8
hex B8B8B8B8B8B8B8B8
hex B8B8B8B8B8B8B8B8
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
hex 0000FFFF0000FFFF
L9B00 hex 00000000000000008080808080808080
hex 00000000000000008080808080808080
hex 00000000000000008080808080808080
hex 00000000000000008080808080808080
hex 2828282828282828A8A8A8A8A8A8A8A8
hex 2828282828282828A8A8A8A8A8A8A8A8
hex 2828282828282828A8A8A8A8A8A8A8A8
hex 2828282828282828A8A8A8A8A8A8A8A8
hex 5050505050505050D0D0D0D0D0D0D0D0
hex 5050505050505050D0D0D0D0D0D0D0D0
hex 5050505050505050D0D0D0D0D0D0D0D0
hex 5050505050505050D0D0D0D0D0D0D0D0
L9BC0 hex 2024282C3034383C2024282C3034383C
hex 2125292D3135393D2125292D3135393D
hex 22262A2E32363A3E22262A2E32363A3E
hex 23272B2F33373B3F23272B2F33373B3F
hex 2024282C3034383C2024282C3034383C
hex 2125292D3135393D2125292D3135393D
hex 22262A2E32363A3E22262A2E32363A3E
hex 23272B2F33373B3F23272B2F33373B3F
hex 2024282C3034383C2024282C3034383C
hex 2125292D3135393D2125292D3135393D
hex 22262A2E32363A3E22262A2E32363A3E
hex 23272B2F33373B3F23272B2F33373B3F
L9C80 hex 00000000000000010101010101010202
hex 02020202020303030303030304040404
hex 04040405050505050505060606060606
hex 06070707070707070808080808080809
hex 0909090909090A0A0A0A0A0A0A0B0B0B
hex 0B0B0B0B0C0C0C0C0C0C0C0D0D0D0D0D
hex 0D0D0E0E0E0E0E0E0E0F0F0F0F0F0F0F
hex 10101010101010111111111111111212
hex 12121212121313131313131314141414
hex 14141415151515151515161616161616
hex 16171717171717171818181818181819
hex 1919191919191A1A1A1A1A1A1A1B1B1B
hex 1B1B1B1B1C1C1C1C1C1C1C1D1D1D1D1D
hex 1D1D1E1E1E1E1E1E1E1F1F1F1F1F1F1F
hex 20202020202020212121212121212222
hex 22222222222323232323232324242424
L9D80 hex 24242425252525252525262626262626
hex 26272727272727270000000000000000
L9DA0 hex 8182848890A0C08182848890A0C08182
hex 848890A0C08182848890A0C081828488
hex 90A0C08182848890A0C08182848890A0
hex C08182848890A0C08182848890A0C081
hex 82848890A0C08182848890A0C0818284
hex 8890A0C08182848890A0C08182848890
hex A0C08182848890A0C08182848890A0C0
hex 8182848890A0C08182848890A0C08182
hex 848890A0C08182848890A0C081828488
hex 90A0C08182848890A0C08182848890A0
hex C08182848890A0C08182848890A0C081
hex 82848890A0C08182848890A0C0818284
hex 8890A0C08182848890A0C08182848890
hex A0C08182848890A0C08182848890A0C0
hex 8182848890A0C08182848890A0C08182
hex 848890A0C08182848890A0C081828488
L9EA0 hex 90A0C08182848890A0C08182848890A0
hex C08182848890A0C00000000000000000
L9EC0 hex 00010203040506000102030405060001
hex 02030405060001020304050600010203
hex 04050600010203040506000102030405
hex 06000102030405060001020304050600
hex 01020304050600010203040506000102
hex 03040506000102030405060001020304
hex 05060001020304050600010203040506
hex 00010203040506000102030405060001
hex 02030405060001020304050600010203
hex 04050600010203040506000102030405
hex 06000102030405060001020304050600
hex 01020304050600010203040506000102
hex 03040506000102030405060001020304
hex 05060001020304050600010203040506
hex 00010203040506000102030405060001
hex 02030405060001020304050600010203
L9FC0 hex 04050600010203040506000102030405
hex 06000102030405060000000000000000
DS \
*--- Entry point
LA000 LDA #$00 ; A000
STA fgINPUT
STA $60
STA $61
STA $62
STA $63
JSR LBF37
JSR LADE1
JSR LBF61
LDA #<HGR1
STA $58
LDA #>HGR1
STA $58+1
LDX #$40
LDY #$00
TYA
LA022 STA ($58),Y
INY
BNE LA022
INC $58+1
DEX
BNE LA022
LDA TXTCLR
LDA HIRES
LDA MIXCLR
LDA TXTPAGE1
LDA #$00
STA $B7
STA $0A
STA $0C
LDA #$A0
STA $0B
STA $0D
LDA #$C0
STA $10
LDA #$10
STA $6A
JSR LB3C0
LDX #$F8 ; Copy sprites
LA053 LDA LA65F,X
* STA L91FF,X
lda $91FF,X ; patch patch
DEX
BNE LA053
LDA #$00
STA $D6
LDA #$38 ; LOGO?
STA $D7
LDY #$20
LA066 LDA LA769,Y
STA L7800-1,Y
DEY
BNE LA066
LSR LA76E
LDA LA76E
NOP
NOP
LDY #$AB
STY $FF
LDY #$D8
STY $FE
NOP
NOP
LDY #$B6
STY $FF
LDY #$41
STY $FE
NOP
NOP
LA08B JSR LA447
LDA #$00
STA $86
STA $80
STA $90
STA $91
STA $92
STA $93
STA $94
STA $95
STA $96
STA $8C
STA $81
STA $85
STA $83
STA $84
STA $D201 ; souvenir
STA $D203 ; from
STA $D205 ; another
STA $D207 ; 8-bit
STA $D208 ; computer... POKEY
LDA #$07
STA $99
LDY #$04
LDA L7800,Y
STA $58
STA $64
INY
LDA L7800,Y
STA $58+1
STA $64+1
JSR LB3C0
LDA $60
STA $E0
LDA $61
STA $E1
LDA $62
STA $E2
LDA $63
STA $E3
JSR LA536
JSR LA4A1
JSR LAEC9
JSR LBC22
LDX #$0C
LDY #$00
LA0F3 DEY
BNE LA0F3
DEX
BNE LA0F3
JSR LAEC9
LDA #$06
STA $99
JSR LA198
LDA #$00
STA $8F
STA $BC
STA $BD
STA $BE
STA $BF
LA10F JSR LAEC9
JSR LBC22
LDX #$06
LDY #$00
LA119 DEY
BNE LA119
DEX
BNE LA119
JSR LAEC9
LDA KBD
BIT KBDSTROBE
CMP #$8D ; RET = play
BEQ LA13E
LDX $BC
BEQ LA137
CMP #"1" ; 1 player mode
BEQ LA145
* JMP (L0408)
jmp LA10F
LA137 CMP #"2" ; 2 player mode
BEQ LA145
* JMP (L040A)
jmp LA10F
LA13E LDA #$06
STA $99
* JMP (L040C)
jmp LA1D3
LA145 LDA #$05 ; Switch player mode
STA $99
LDA $8F
EOR #$01
STA $BD
STA $8F
STA $BC
JSR LA159
* JMP (L040E)
jmp LA10F
LA159 LDA $BC
BEQ LA198
LDY #$24
STY $A4
LDA #>LAC50
STA $A0+1
LDA #<LAC50
STA $A0
BNE LA16D
DEC $A0+1
LA16D DEC $A0
LDA #$29
STA $A5
LDA #$00
STA $A6
JSR LAE51
LDY #$52
STY $A4
LDA #>LAAD0
STA $A0+1
LDA #<LAAD0
STA $A0
BNE LA18A
DEC $A0+1
LA18A DEC $A0
LDA #$6B
STA $A5
LDA #$03
STA $A6
JSR LAE51
RTS
LA198 LDY #$24
STY $A4
LDA #>LAC20
STA $A0+1
LDA #<LAC20
STA $A0
BNE LA1A8
DEC $A0+1
LA1A8 DEC $A0
LDA #$29
STA $A5
LDA #$00
STA $A6
JSR LAE51
LDY #$52
STY $A4
LDA #>LAA70
STA $A0+1
LDA #<LAA70
STA $A0
BNE LA1C5
DEC $A0+1
LA1C5 DEC $A0
LDA #$6B
STA $A5
LDA #$03
STA $A6
JSR LAE51
RTS
LA1D3 LDA #$01
STA $86
LDA $8F
BEQ LA1DD
STA $BC
LA1DD STA $BD
JSR LB3C0
JSR LA5AC
JSR LB3C0
LDA TXTPAGE2
JSR LAC90
LDA TXTPAGE1
LDA #$00
STA $A7
STA $83
STA $84
STA $9C
STA $8D
STA $BF
LDX #$04
STX $BE
LDA $BC
BEQ LA209
STX $BF
LA209 LDA #$FF
STA $BB
JSR LAE97
LDA $BC
BEQ LA21A
JSR LA5AC
JSR LAE97
LA21A JSR LAE72
LDX $BC
BEQ LA22A
JSR LA5AC
LDA $BD
EOR #$01
STA $BD
LA22A LDA $BD
TAX
LDA $BE,X
BEQ LA235
LA231 DEC $BE,X
BNE LA262
LA235 LDX $BC
BEQ LA24A
JSR LA5AC
LDA $BD
EOR #$01
STA $BD
TAX
LDA $BE,X
BEQ LA24A
* JMP (L0410)
jmp LA231
LA24A LDX $BC
BEQ LA251
JSR LA5AC
LA251 LDY $8F
LA253 LDX #$00
LA255 INX
CPX #$04
BEQ LA27E
TYA
BEQ LA265
LDA $DC,X
* JMP (L0412)
jmp LA267
*LA262 JMP (L0414)
LA262 jmp LA2D3
LA265 LDA $D8,X
LA267 CMP $E0,X
BEQ LA255
BCC LA27E
LDX #$04
LA26F TYA
BEQ LA277
LDA $DB,X
* JMP (L0416)
jmp LA279
LA277 LDA $D7,X
LA279 STA $DF,X
DEX
LA27C BNE LA26F
LA27E DEY
BEQ LA253
JSR LB9AB ; GAME OVER
LDY #$0B
STY $A4
LDA #>LAC80
STA $A0+1
LDA #<LAC80
STA $A0
LDA #$C6
STA $A5
LDA #$01
STA $A6
JSR LAE51
LDY #$18
LA29D LDA #$FF
JSR WAIT
LA2A2 DEY
BNE LA29D
LDA $E0
STA $60
LDA $E1
STA $61
LDA $E2
STA $62
LDA $E3
STA $63
JSR LAC90
* JMP (L0418)
jmp LA08B
LA2BB JSR LA58B
* JMP (L041A)
jmp LA1D3
LA2C1 LDA #$00
STA $83
STA $84
JSR LB3C0
JSR LA447
JSR LA536
* JMP (L041C)
jmp LA145
LA2D3 JSR LA5A3
LDA $BC
BNE LA2DD
* JMP (L041E)
jmp LA368
LA2DD JSR LA5DE
LDA $BD
BEQ LA304
LDY #$0F
STY $A4
LDA #>LA8EA ; PLAYER TWO UP
STA $A0+1
LDA #<LA8EA
STA $A0
BNE LA2F4
DEC $A0+1
LA2F4 DEC $A0
LDA #$A6
STA $A5
LDA #$03
STA $A6
JSR LAE51
* JMP (L0420)
jmp LA321
LA304 LDY #$0F
STY $A4
LDA #>LA8F9 ; PLAYER ONE UP
STA $A0+1
LDA #<LA8F9
STA $A0
BNE LA314
DEC $A0+1
LA314 DEC $A0
LDA #$A6
STA $A5
LDA #$03
STA $A6
JSR LAE51
LA321 JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
JSR LB98B
LDY #$0E
STY $A4
LDA #>LA8DC ; EMPTY STRING
STA $A0+1
LDA #<LA8DC
STA $A0
BNE LA35B
DEC $A0+1
LA35B DEC $A0
LDA #$A6
STA $A5
LDA #$03
STA $A6
JSR LAE51
LA368 JSR LA5A3
JSR LA447
JSR LB9AB
LDA #$11
STA $87
LDA #$18
STA $88
LDA #$90
STA $89
LDA #$D8
STA $8A
LDA #$FF
STA L02FC
LDA #$00
STA $81
STA $85
LA38C LDY #$07
LDA #$07
STA $99
LDA $99
LDA KBD
CMP #$8D
BNE LA3B7
JSR LBCEB
LDA $E0
STA $60
LDA $E1
STA $61
LDA $E2
STA $62
LDA $E3
STA $63
JSR LAC90
BIT KBDSTROBE
* JMP (L0422)
jmp LA08B
LA3B7 CMP #$9B
BNE LA3C6
BIT KBDSTROBE
LA3BE LDA KBD
BPL LA3BE
BIT KBDSTROBE
LA3C6 JSR LAEC9
JSR LB420
JSR LB529
JSR LAEC9
JSR LBC22
JSR LBAFD
JSR LAEC9
JSR LBD75
JSR LAEC9
JSR LB529
LDX $BD
LDA $8D,X
CMP #$01
BCC LA410
JSR LAEC9
LDX $BD
LDA $8D,X
CMP #$02
BCC LA410
JSR LBC22
LDX $BD
LDA $8D,X
CMP #$04
BCC LA410
JSR LBAFD
LDX $BD
LDA $8D,X
CMP #$08
BCC LA410
JSR LAEC9
LA410 JSR LA605
LDY #$05
LDA $B4
BEQ LA41A
DEY
LA41A LDA $C1
BEQ LA41F
DEY
LA41F LDA $C2
BEQ LA424
DEY
LA424 LDA $C3
BEQ LA429
DEY
LA429 LDX $BB
INX
LA42C DEX
BNE LA42C
DEY
BNE LA429
* JMP (L0424)
jmp LA38C
LDA #$00
STA $A7
STA $96
* JMP (L0426)
jmp LA2BB
LDA #$00
STA $A7
STA $96
* JMP (L0428)
jmp LA2C1
LA447 LDA #$00
STA $C7
STA $C1
LDX #$80
STX $C0
STX $B2
INX
INX
STX $C5
LDX #$84
STX $C4
LDA #$05
STA L6000+$3DA
STA L6000+$3DB
LDA #$D8
STA $B3
LDX #$08
LA469 LDA LA758-1,X
STA L6000+$4D7,X
DEX
BNE LA469
LDA #$80
STA $06
LDA #$D8
STA $08
LDA #$FF
STA $15
LDA #$00
STA $13
JSR LBF61
JSR LBC16
LA488 LDA #$B0
STA $B6
LDA #$01
STA $BA
LDX $BD
LDA $83,X
AND #$07
TAX
LDA LA654,X
LDA LA655,X
LDA #$00
STA $F5
LA4A1 JSR LBF1A
CMP #$18
BCS LA4A1
STA $B0
TAX
LDY #$02
JSR LB795
BNE LA4A1
LDY $B0
LDX #$C0
LA4B6 LDA #$00
STA $95
STA L05F0,X
STA L05F0+$1,X
STA L05F0+$2,X
STA L05F0+$4,X
STA L05F0+$5,X
STA L05F0+$6,X
STA L05F0+$7,X
STA L05F0+$8,X
STA L05F0+$9,X
STA L05F0+$A,X
STA L05F0+$B,X
STA L05F0+$C,X
STA L05F0+$D,X
STA L05F0+$E,X
STA L05F0+$F,X
TYA
STA L05F0+$3,X
INC L05F0+$5,X
INC L05F0+$6,X
INC L05F0+$4,X
INC L05F0+$4,X
INY
TXA
SEC
SBC #$10
TAX
BNE LA4B6
INX
STX L0600+$2
LDA L0600+$3
STA $AA
LDA #$02
STA $A8
LDA L0600+$4
STA $AB
LDA #$01
STA $AC
LDA #$00
STA $AD
LDX $BD
LDA $83,X
BEQ LA535
CMP #$0C
BNE LA525
LDA #$0B
LA525 STA $01
LDA #$02
STA L0600+$4
LDA #$03
STA L0600+$3
STA $A8
DEC $01
LA535 RTS
LA536 LDA #$00
STA $86
JSR LA58B
LDY #$19
STY $A4
LDA #>LA78A ; CENTIPEDE
STA $A0+1
LDA #<LA78A ; LA545
STA $A0
BNE LA54D
DEC $A0+1
LA54D DEC $A0
LDA #$00
STA $A5
LDA #$00
STA $A6
JSR LAE51
LDY #$3E
STY $A4
LDA #>LA7D3
STA $A0+1
LDA #<LA7D3
STA $A0
BNE LA56A
DEC $A0+1
LA56A DEC $A0
LDA #$4C
STA $A5
LDA #$03
STA $A6
LDA #$02
STA $87
LDA #$16
STA $88
LDA #$80
STA $89
LDA #$C8
STA $8A
JSR LAE97
JSR LAE72
RTS
LA58B LDA L7800+$3
EOR #$06
STA L7800+$3
LDA L7800+$6
EOR #$06
STA L7800+$6
LDA L7800+$1B
EOR #$06
STA L7800+$1B
LA5A3 LDA L7800+$1C
EOR #$06
STA L7800+$1C
RTS
LA5AC LDA #<L0800
STA $A0
LDA #>L0800
STA $A0+1
LDA #<L1020
STA $A2
LDA #>L1020
STA $A2+1
LDX #$03
LA5BE INC $A0+1 ; 8_9_A_B
INC $A2+1 ; 10_11_12_13
DEX
BNE LA5BE
LDX #$03
LDY #$C0
LA5C9 LDA ($A0),Y ; BC0
PHA
LDA ($A2),Y ; 13E0
STA ($A0),Y
PLA
STA ($A2),Y
DEY
BNE LA5C9
DEC $A2+1
DEC $A0+1
DEX
BNE LA5C9
RTS
LA5DE LDY #$00
STY $CB
LA5E2 LDX #$00
LA5E4 STX $CA
LDY $CB
JSR LB3D8
LDY $CA
LDA ($64),Y
LDX #$64
JSR LBE71
LDX $CA
INX
CPX #$28
BNE LA5E4
LDY $CB
INY
STY $CB
CPY #$18
BNE LA5E2
RTS
LA605 LDA L02FC
CMP #$21
BNE LA635
INC $8C
LDA #$00
STA $D207
STA $D205
STA $D203
STA $D201
STA $96
LDA #$FF
STA L02FC
STA $81
LA625 LDA L02FC
CMP #$21
BNE LA625
LDA #$FF
STA L02FC
INC $81
DEC $8C
LA635 RTS
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $26
DB $84
DB $3A
DB $A6
LA654 DB $44 ; A bug
LA655 DB $D4 ; The real address
DB $64
DB $E8
DB $26
DB $84
DB $3A
DB $A6
DB $44
DB $D4
DB $64
LA65F DB $E8
*--- Sprites
DB $08
DB $2A
DB $2A
DB $2A
DB $08
DB $08
DB $08
DB $00
DB $08
DB $2A
DB $2A
DB $2A
DB $08
DB $00
DB $00
DB $00
DB $08
DB $2A
DB $2A
DB $22
DB $00
DB $00
DB $00
DB $00
DB $08
DB $2A
DB $28
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $10
DB $54
DB $54
DB $54
DB $10
DB $10
DB $10
DB $00
DB $10
DB $54
DB $54
DB $54
DB $10
DB $00
DB $00
DB $00
DB $10
DB $54
DB $54
DB $44
DB $00
DB $00
DB $00
DB $00
DB $10
DB $54
DB $50
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $81
DB $84
DB $A8
DB $AA
DB $AA
DB $A8
DB $84
DB $81
DB $83
DB $8C
DB $9E
DB $BF
DB $BF
DB $9E
DB $8C
DB $83
DB $90
DB $84
DB $8A
DB $AA
DB $AA
DB $8A
DB $84
DB $90
DB $E0
DB $98
DB $BA
DB $FE
DB $FE
DB $BA
DB $98
DB $E0
DB $90
DB $84
DB $A9
DB $AA
DB $AA
DB $A8
DB $84
DB $90
DB $B0
DB $8C
DB $9E
DB $BF
DB $BF
DB $9E
DB $8C
DB $B0
DB $81
DB $84
DB $8A
DB $AA
DB $AA
DB $8A
DB $84
DB $81
DB $86
DB $98
DB $BA
DB $FE
DB $FE
DB $BA
DB $98
DB $86
DB $7E
DB $66
DB $66
DB $66
DB $66
DB $66
DB $7E
DB $00
DB $18
DB $18
DB $18
DB $18
DB $18
DB $18
DB $18
DB $00
DB $7E
DB $60
DB $60
DB $7E
DB $06
DB $06
DB $7E
DB $00
DB $7E
DB $60
DB $60
DB $7E
DB $60
DB $60
DB $7E
DB $00
DB $66
DB $66
DB $66
DB $7E
DB $60
DB $60
DB $60
DB $00
DB $7E
DB $06
DB $06
DB $7E
DB $60
DB $60
DB $7E
DB $00
DB $06
DB $06
DB $06
DB $7E
DB $66
DB $66
DB $7E
DB $00
DB $7E
DB $60
DB $60
DB $60
DB $60
DB $60
DB $60
DB $00
DB $7E
DB $66
DB $66
DB $7E
DB $66
DB $66
DB $7E
DB $00
DB $7E
DB $66
DB $66
DB $7E
DB $60
DB $60
DB $60
DB $00
DB $88
DB $88
DB $88
DB $AA
DB $AA
DB $AA
DB $AA
DB $AA
DB $88
DB $88
DB $88
DB $AA
DB $AA
DB $AA
DB $AA
DB $AA
DB $88
DB $88
DB $88
DB $AA
DB $AA
DB $AA
DB $AA
DB $AA
*--- From $A660 to $A200 until $A2F7
LA758 DB $10
DB $10
DB $10
DB $10
DB $7C
DB $7C
DB $38
DB $38
LA760 DB $52
DB $53
DB $54
DB $55
LA764 DB $56
DB $57
DB $58
DB $59
DB $5A
LA769 DB $5B
DB $70
DB $70
DB $70
DB $44
LA76E DB $00
DB $08
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $04
DB $41
DB $00
DB $38
LA78A DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $23 ; CENTIPEDE
DB $25
DB $2E
DB $34
DB $29
DB $30
DB $25
DB $24
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $82
DB $88
DB $D4
DB $D5
DB $D5
DB $D4
DB $88
DB $82
DB $83
DB $8C
DB $9E
DB $BF
DB $BF
DB $9E
DB $8C
DB $83
DB $A0
DB $88
DB $95
DB $D5
DB $D5
DB $95
DB $88
DB $A0
DB $E0
DB $98
DB $BA
DB $FE
DB $FE
DB $BA
DB $98
DB $E0
DB $A0
DB $88
DB $D4
LA7D3 DB $D5
DB $D5
DB $D4
DB $88
DB $A0
DB $B0
DB $8C
DB $9E
DB $BF
DB $BF
DB $9E
DB $8C
DB $B0
DB $82
DB $88
DB $95
DB $D5
DB $D5
DB $95
DB $88
DB $82
DB $86
DB $98
DB $BA
DB $FE
DB $FE
DB $BA
DB $98
DB $86
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $33 ; SPACE
DB $30
DB $21
DB $23
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $2F ; ONE
DB $2E
DB $25
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $27 ; GAME
DB $21
DB $2D
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $02 ; "2"
DB $12
DB $02
DB $00
DB $00
DB $26 ; FOR
DB $2F
DB $32
DB $00
DB $34 ; TWO
DB $37
DB $2F
DB $00
DB $30 ; PLAYERS
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $33
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $32 ; RETURN
DB $25
DB $34
DB $35
DB $32
DB $2E
DB $00
DB $34 ; TO
DB $2F
DB $00
DB $30 ; PLAY
DB $2C
DB $21
DB $39
DB $00
DB $00
DB $00
DB $00
DB $00
DB $34 ; TWO
DB $37
DB $2F
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $27 ; GAME
DB $21
DB $2D
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $02 ; "1"
DB $11
DB $02
DB $00
DB $00
DB $26 ; FOR
DB $2F
DB $32
DB $00
DB $2F ; ONE
DB $2E
DB $25
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $32 ; RETURN
DB $25
DB $34
DB $35
DB $32
DB $2E
DB $00
DB $34 ; TO
DB $2F
DB $00
DB $30 ; PLAY
DB $2C
DB $21
DB $39
LA8DC DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LA8EA DB $30 ; PLAYER TWO UP
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $34
DB $37
DB $2F
DB $00
DB $35
DB $30
DB $00
DB $00
LA8F9 DB $30 ; PLAYER UP ONE
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $2F
DB $2E
DB $25
DB $00
DB $35
DB $30
DB $00
DB $00
DB $3C
DB $7E
DB $7E
DB $FF
DB $FF
DB $7E
DB $7E
LA90F DB $3C
DB $0A
DB $05
DB $0F
DB $0F
DB $0E
DB $0E
DB $06
LA917 DB $00
DB $42
DB $DB
DB $66
DB $3C
DB $D8
DB $58
DB $78
LA91F DB $30
DB $21
DB $DB
DB $66
DB $3C
DB $1B
DB $1A
DB $1E
LA927 DB $0C
DB $22
DB $5D
DB $1C
DB $08
DB $1C
DB $36
DB $5D
DB $00
LA930 DB $E0
DB $A0
DB $A0
DB $A0
DB $E0
DB $00
DB $7F
DB $54
DB $57
DB $54
DB $7F
DB $00
DB $7D
DB $55
DB $57
DB $55
DB $7F
DB $00
DB $7F
DB $55
DB $57
DB $54
DB $7C
DB $00
DB $02
DB $BB
DB $5A
DB $30
DB $5F
DB $EE
DB $3D
DB $A8
ASC 'COPYRIGHT 1982 ATARI, INC.'
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LA970 DB $20
DB $00
DB $20
DB $00
DB $20
DB $00
DB $20
DB $00
DB $20
DB $00
DB $20
DB $00
DB $00
DB $00
DB $00
DB $00
LA980 LDA fgINPUT
BEQ LA987
JMP LAA09
LA987 LDA KBD
CMP #"K"
BNE LA991
JMP LAA09
LA991 LDX $FA
BNE LA9CF
LDA $FB
EOR whichDIR
STA $FB
JSR PREAD
LDA $FB
CPY #$A0
BCS LA9B4
CPY #$40
BCC LA9BE
LDA $FB
AND #$F3
STA $FB
LDA #$00
STA whichDIR
BEQ LA9C6
LA9B4 ORA #$08
STA $FB
LDA #$08
STA whichDIR
BNE LA9C6
LA9BE ORA #$04
STA $FB
LDA #$04
STA whichDIR
LA9C6 LDA $FA
EOR #$01
STA $FA
LDA $FB
RTS
LA9CF LDA $FB
EOR $FD
STA $FB
JSR PREAD
LDA $FB
CPY #$A0
BCS LA9F8
CPY #$40
BCC LA9EE
LDA $FB
AND #$FC
STA $FB
LDA #$00
STA $FD
BEQ LAA00
LA9EE ORA #$01
STA $FB
LDA #$01
STA $FD
BNE LAA00
LA9F8 ORA #$02
STA $FB
LDA #$02
STA $FD
LAA00 LDA $FA
EOR #$01
STA $FA
LDA $FB
RTS
LAA09 LDA KBD
CMP #"K" ; K
BEQ LAA3D
CMP #"J" ; J
BEQ LAA44
CMP #"A"
BEQ LAA33
CMP #"Z"
BEQ LAA38
CMP #$88 ; LEFT ARROW
BEQ LAA2E
CMP #$95 ; RIGHT ARROW
BEQ LAA29
LDA #$00
STA whichDIR
RTS
LAA29 LDA #$08 ; go right
STA whichDIR
RTS
LAA2E LDA #$04 ; go left
STA whichDIR
RTS
LAA33 LDA #$01 ; go up
STA whichDIR
RTS
LAA38 LDA #$02 ; go down
STA whichDIR
RTS
LAA3D LDA #$01
STA fgINPUT
LDA #$00
RTS
LAA44 LDA #$00
STA fgINPUT
RTS
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LAA70 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $02 ; "2"
DB $12
DB $02
DB $00
DB $26 ; FOR
DB $2F
DB $32
DB $00
DB $34 ; TWO
DB $37
DB $2F
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $27 ; GAME
DB $21
DB $2D
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $08 ; (C)
DB $23
DB $09
DB $11 ; 1983
DB $19
DB $18
DB $13
DB $00
DB $21 ; ATARI
DB $34
DB $21
DB $32
DB $29
DB $00
DB $00
DB $00
DB $00
DB $21 ; ALL
DB $2C
DB $2C
DB $00
DB $32 ; RIGHTS
DB $29
DB $27
DB $28
DB $34
DB $33
DB $00
DB $32 ; RESERVED
DB $25
DB $33
DB $25
DB $32
DB $36
DB $25
DB $24
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LAAD0 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $30 ; PRESS
DB $32
DB $25
DB $33
DB $33
DB $00
DB $02 ; "1"
DB $11
DB $02
DB $00
DB $26 ; FOR
DB $2F
DB $32
DB $00
DB $2F ; ONE
DB $2E
DB $25
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $27 ; GAME
DB $21
DB $2D
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $08 ; (C)
DB $23
DB $09
DB $11 ; 1983
DB $19
DB $18
DB $13
DB $00
DB $21 ; ATARI
DB $34
DB $21
DB $32
DB $29
DB $00
DB $00
DB $00
DB $00
DB $21 ; ALL
DB $2C
DB $2C
DB $00
DB $32 ; RIGHTS
DB $29
DB $27
DB $28
DB $34
DB $33
DB $00
DB $32 ; RESERVED
DB $25
DB $33
DB $25
DB $32
DB $36
DB $25
DB $24
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $08
DB $09
DB $0A
DB $0B
DB $0C
DB $0D
DB $0E
DB $0F
DB $10
DB $11
DB $12
DB $13
DB $14
DB $15
DB $16
DB $17
DB $18
DB $19
DB $1A
DB $1B
DB $1C
DB $1D
DB $1E
DB $1F
DB $20
DB $21
DB $22
DB $23
DB $24
DB $25
DB $26
DB $27
DB $00
DB $01
DB $02
DB $03
DB $04
DB $05
DB $06
DB $07
DB $08
DB $09
DB $0A
DB $0B
DB $0C
DB $0D
DB $0E
DB $0F
LAB60 DB $70
DB $07
DB $7C
DB $1F
DB $7E
DB $3F
DB $7F
DB $7F
DB $7F
DB $7F
DB $7E
DB $3F
DB $7C
DB $1F
DB $70
DB $07
LAB70 DB $7C
DB $00
DB $7E
DB $01
DB $7B
DB $03
DB $5F
DB $03
DB $22
DB $01
DB $11
DB $01
DB $49
DB $00
DB $00
DB $00
LAB80 DB $0C
DB $18
DB $4F
DB $79
DB $3C
DB $1E
DB $7C
DB $0F
DB $47
DB $03
DB $4C
DB $03
DB $78
DB $01
DB $70
DB $00
LAB90 DB $0C
DB $18
DB $4F
DB $79
DB $3C
DB $1E
DB $78
DB $07
DB $60
DB $71
DB $60
DB $19
DB $40
DB $0F
DB $00
DB $07
LABA0 DB $00
DB $00
DB $00
DB $00
DB $02
DB $20
DB $45
DB $51
DB $68
DB $0B
DB $70
DB $07
DB $56
DB $35
DB $68
DB $4B
LABB0 DB $46
DB $31
DB $29
DB $4A
DB $28
DB $4A
DB $24
DB $4A
DB $28
DB $4A
DB $29
DB $4A
DB $46
DB $31
DB $00
DB $00
LABC0 DB $46
DB $31
DB $29
DB $4A
DB $21
DB $4A
DB $27
DB $4A
DB $29
DB $4A
DB $29
DB $4A
DB $46
DB $31
DB $00
DB $00
LABD0 DB $46
DB $31
DB $29
DB $4A
DB $29
DB $4A
DB $2E
DB $4A
DB $28
DB $4A
DB $24
DB $4A
DB $43
DB $31
DB $00
DB $00
LABE0 DB $20
DB $00
DB $70
DB $00
DB $2C
DB $03
DB $7E
DB $07
DB $04
DB $02
DB $78
DB $01
DB $78
DB $01
DB $20
DB $00
LABF0 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LAC00 DB $06
DB $30
DB $09
DB $48
DB $10
DB $04
DB $52
DB $25
DB $65
DB $53
DB $74
DB $17
DB $58
DB $0D
DB $60
DB $03
LAC10 DB $7C
DB $00
DB $7E
DB $01
DB $7B
DB $03
DB $5F
DB $03
DB $22
DB $01
DB $24
DB $01
DB $48
DB $02
DB $00
DB $00
LAC20 DB $2F
DB $2E
DB $25
DB $00
DB $30
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $27
DB $21
DB $2D
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $32
DB $25
DB $34
DB $35
DB $32
DB $2E
DB $00
DB $34
DB $2F
DB $00
DB $30
DB $2C
DB $21
DB $39
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LAC50 DB $34 ; TWO
DB $37
DB $2F
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $25
DB $32
DB $00
DB $27 ; GAME
DB $21
DB $2D
DB $25
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $32 ; RETURN
DB $25
DB $34
DB $35
DB $32
DB $2E
DB $00
DB $34 ; TO
DB $2F
DB $00
DB $30 ; PLAYER
DB $2C
DB $21
DB $39
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
LAC80 DB $00
DB $00
DB $27 ; GAME
DB $21
DB $2D
DB $25
DB $00
DB $2F ; OVER
DB $35
DB $25
DB $32
DB $00
DB $00
DB $00
DB $00
DB $00
LAC90 LDA $58
PHA
LDA $58+1
PHA
LDA #<HGR1 ; LOGO
STA $58
LDA #>HGR1 ; LOGO
STA $58+1
LDX #$40
LDY #$00
TYA
LACA3 STA ($58),Y
INY
BNE LACA3
INC $58+1
DEX
BNE LACA3
PLA
STA $58+1
PLA
STA $58
RTS
LACB4 LDA TXTPAGE2
LDA #<HGR1 ; LOGO
STA $02
STA $04
LDA #>HGR1 ; LOGO
STA $02+1
LDA #>HGR2 ; LOGO
STA $04+1
LDX #$20
LDY #$00
LACC9 LDA ($04),Y
STA ($02),Y
INY
BNE LACC9
INC $02+1
INC $04+1
DEX
BNE LACC9
LDA TXTPAGE1
RTS
RTS
LACDC LDA $08
PHA
TXA
PHA
TYA
PHA
LDA #$00
STA $07
LDX $06
LDA L8F00,X
SEC
SBC #$26
ASL
STA $06
ROL $07
LDA $08
SEC
SBC #$20
STA $08
LDA $07
BEQ LAD0B
LDY $06
LDA L9D80,Y
STA $14
LDA L9FC0,Y
BPL LAD15
LAD0B LDY $06
LDA L9C80,Y
STA $14
LDA L9EC0,Y
LAD15 CLC
ADC #>L8000 ; LOGO
STA LAD58+2
STA LAD5F+2
LDA $13
ASL
TAY
LDA LADB5,Y
STA LAD52+1
LDA LADB5+1,Y
STA LAD52+2
LDA #$08
STA $17
LDA $15
BEQ LAD89
LDA #$00
STA $16
LAD3A LDY $08
LDA L9B00,Y
STA $02
LDA L9BC0,Y
STA $02+1
LDA #$02
STA $1A
LDA #$00
STA $18
LDX $16
LDY $14
LAD52 LDA L6000,X
LAD55 AND #$7F
TAX
LAD58 LDA L6000,X
ORA $18
STA $19
LAD5F LDA L6000+$80,X
STA $18
LDA ($02),Y
ORA $19
STA ($02),Y
INY
INC $16
LDX $16
DEC $1A
BMI LAD7B
BNE LAD52
DEC $16
LDA #$00
BEQ LAD55
LAD7B INC $08
DEC $17
BNE LAD3A
PLA
TAY
PLA
TAX
PLA
STA $08
RTS
LAD89 LDX #$03
LDY $08
LDA L9B00,Y
STA $02
STA $04
LDA L9BC0,Y
STA $02+1
EOR #$60
STA $04+1
LDY $14
LAD9F LDA ($04),Y
STA ($02),Y
INY
DEX
BNE LAD9F
INC $08
DEC $17
BNE LAD89
PLA
TAY
PLA
TAX
PLA
STA $08
RTS
LADB5 DA LABE0
DA LAB70
DA LABA0
DA LAB80
DA LA970
DA LAB90
DA LABB0
DA LABF0
DA LABB0
DA LABB0
DA LABB0
DA LABB0
DA LABC0
DA LABC0
DA LABC0
DA LABC0
DA LABC0
DA LABC0
DA LABD0
DA LABD0
DA LAC00
DA LAC10
LADE1 LDA #<L8000
STA $02
LDA #<L8080
STA $04
LDA #>L8000
STA $02+1
STA $04+1
LDA #$01
STA $09
LADF3 LDY #$00
LADF5 TYA
STA $06
LDA #$00
STA $07
LDX $09
LADFE ASL $06
ROL $07
DEX
BNE LADFE
LSR $06
LDA $06
STA ($02),Y
LDA $07
STA ($04),Y
INY
CPY #$80
BNE LADF5
INC $02+1
INC $04+1
INC $09
LDA $09
CMP #$09
BNE LADF3
LDA #<L8F00
STA $02
LDA #>L8F00 ; LOGO
STA $02+1
LDY #$00
STY $09
LAE2C LDX #$00
LAE2E LDA $09
STA ($02),Y
INY
BEQ LAE3E
INX
CPX #$07
BEQ LAE2C
INC $09
BNE LAE2E
LAE3E RTS
LDA $BB
SEC
SBC #$10
STA $BB
BCC LAE4C
CMP #$04
BCS LAE50
LAE4C LDA #$04
STA $BB
LAE50 RTS
*-------------------------------
*
* $A0: source pointer
* $A2: dest pointer (storage area)
* $A4: length
* $A5..$A6: offset
*
LAE51 LDA #>L0800
CLC
ADC $A6
STA $A2+1
LDA #<L0800
CLC
ADC $A5
STA $A2
BCC LAE63
INC $A2+1
LAE63 LDY $A4
LAE65 LDA ($A0),Y
STA ($A2),Y
LDX #$A2
JSR LBE71
DEY
BNE LAE65
RTS
LAE72 LDA #$00
STA $B4
STA $E6
STA $EB
TAX
LAE7B STA L6000,X
STA L6000+$100,X
STA L6000+$200,X
STA L6000+$300,X
STA L6000+$400,X
STA L6000+$500,X
STA L6000+$600,X
STA L6000+$700,X
INX
BNE LAE7B
RTS
LAE97 LDA #$00
LDX #$08
LAE9B STA $D7,X
DEX
BNE LAE9B
JSR LBF1A
AND #$0F
ADC #$28
TAX
LAEA8 STX $B0
JSR LBF1A
CMP #$23
BCS LAEA8
ADC #$03
TAX
LAEB4 JSR LBF1A
CMP #$14
BCS LAEB4
ADC #$02
TAY
LDA #$00
JSR LB3F4
LDX $B0
DEX
BNE LAEA8
RTS
LAEC9 LDX $B6
LDA $86
BEQ LAED3
LDA #$00
STA $4D
LAED3 CPX #$B0
BNE LAF0B
LDX #$F0
LDA $BA
BNE LAF01
PLA
PLA
LDA $BB
CMP #$04
BCC LAEED
DEC $BB
DEC $BB
DEC $BB
LDA $B7
LAEED LDX $BD
INC $83,X
LDA $83,X
CMP #$04
BNE LAEFB
LDA #$01
STA $9C,X
LAEFB JSR LA488
JMP LA38C
LAF01 LDA #$00
STA $BA
LDA $B7
EOR #$04
STA $B7
LAF0B TXA
CLC
ADC #$10
TAX
STX $B6
LDA $AC
BEQ LAF1F
LDX $B6
CPX $AD
BEQ LAF1F
BCC LAF1F
RTS
LAF1F LDA L0600+$3,X
STA $B8
LDA L0600+$4,X
STA $B9
LDA L0600,X
BEQ LAF58
JSR LB335
LDA L0600+$9,X
BEQ LAF57
DEC L0600+$8,X
BNE LAF57
LDA #$00
STA L0600+$D,X
STA L0600+$A,X
STA L0600+$9,X
STA L0600+$7,X
STA L0600+$1,X
STA L0600,X
LDA #$01
STA L0600+$2,X
JMP LAF58
LAF57 RTS
LAF58 LDA #$01
STA $BA
STA $A7
LDA L0600+$7,X
BEQ LAF66
JMP LB24B
LAF66 LDA L0600+$4,X
AND #$01
BNE LAF80
JSR LB0A0
INX
LDA #$01
JSR LB0AB
BNE LAF93
LDX $B6
INC L0600+$3,X
JMP LAFF6
LAF80 JSR LB0A0
DEX
LDA #$02
JSR LB0AB
BNE LAF93
LDX $B6
DEC L0600+$3,X
JMP LAFF6
LAF93 LDX $B6
LDA L0600+$1,X
BEQ LAF9D
JMP LAFCE
LAF9D JSR LB0A0
INY
CPY $88
BNE LAFB5
LDA #$01
LDX $B6
STA L0600+$C,X
STA L0600+$B,X
STA L0600+$1,X
JMP LAFCE
LAFB5 LDA #$04
STA $B1
JSR LB795
BEQ LAFC6
LDX $B6
INC L0600+$4,X
JMP LB04B
LAFC6 LDX $B6
INC L0600+$4,X
JMP LAFF6
LAFCE JSR LB0A0
DEY
CPY $87
BNE LAFE0
LDA #$00
LDX $B6
STA L0600+$1,X
JMP LAF9D
LAFE0 LDA #$08
STA $B1
JSR LB795
BEQ LAFF1
LDX $B6
DEC L0600+$4,X
JMP LB04B
LAFF1 LDX $B6
DEC L0600+$4,X
LAFF6 JSR LB335
LDA #$00
STA $8B
LDA $B1
LDX $B6
CPX #$00
BEQ LB008
CMP L0600+$6,X
LB008 STA L0610+$5,X
BEQ LB012
LDA #$01
STA L0600+$2,X
LB012 LDA L0600+$5,X
STA L0600+$6,X
LDA L0600+$D,X
BEQ LB025
LDA #$00
STA L0600+$D,X
JMP LB027
LB025 LDA #$20
LB027 LDX $B8
LDY $B9
JSR LB3F4
LDX $B6
LDA L0600+$2,X
STA $B0
LDA L0600+$4,X
AND #$01
ASL
ADC $B0
ADC #$6A
ADC $B7
STA $B0
JSR LB0A0
LDA $B0
JMP LB3F4
LB04B INC $8B
LDA $8B
CMP #$10
BCS LB056
JMP LAF58
LB056 LDX $B6
LDA $B8
STA L0600+$3,X
LDA $B9
STA L0600+$4,X
AND #$01
BNE LB083
JSR LB0A0
INX
JSR LB795
LDA $2F
CMP #$40
BCC LB080
CMP #$44
BCS LB080
LDA #$01
STA $B1
LDX $B6
INC L0600+$3,X
LB080 JMP LAFF6
LB083 JSR LB0A0
DEX
JSR LB795
LDA $2F
CMP #$40
BCC LB09D
CMP #$44
BCS LB09D
LDA #$02
STA $B1
LDX $B6
DEC L0600+$3,X
LB09D JMP LAFF6
LB0A0 LDX $B6
LB0A2 LDA L0600+$4,X
TAY
LDA L0600+$3,X
TAX
RTS
LB0AB STA $B1
SEC
CPX #$03
BCC LB0DD
CLC
CPX #$26
BCS LB0DD
JSR LB795
BEQ LB0FE
LDA $2F
CMP #$40
BCC LB0FE
CMP #$44
BEQ LB0FE
CMP #$45
BCC LB0FB
CMP #$49
BCS LB0FB
LDX $B6
LDA #$01
STA L0600+$7,X
STA L0600+$A,X
PLA
PLA
JMP LB24B
LB0DD LDX $B6
LDA L0600+$2,X
BEQ LB0FB
LDA L0600+$B,X
BEQ LB0FB
LDA L0600+$C,X
BEQ LB0F4
JSR LB101
JMP LB0FB
LB0F4 LDX $B6
LDA #$01
STA L0600+$C,X
LB0FB LDA #$01
RTS
LB0FE LDA #$00
RTS
LB101 LDX #$00
LB103 LDA L0600,X
BEQ LB110
LDA L0600+$9,X
BNE LB110
JMP LB11F
LB110 TXA
CLC
ADC #$10
TAX
CPX #$C0
BEQ LB11C
JMP LB103
LB11C LDX $B6
RTS
LB11F TXA
LDX $B6
LDY L0600+$4,X
TAX
TYA
STA L0600+$4,X
DEC L0600+$4,X
AND #$01
BEQ LB13E
LDA #$02
STA L0600+$3,X
LDA #$11
STA L0600+$8,X
JMP LB148
LB13E LDA #$25
STA L0600+$3,X
LDA #$12
STA L0600+$8,X
LB148 LDA #$01
STA L0600+$9,X
LDA #$00
STA L0600+$C,X
RTS
LB153 LDX #$00
LB155 LDA L0600,X
BNE LB168
LDA L0600+$3,X
CMP $55
BNE LB168
LDA L0600+$4,X
CMP $54
BEQ LB176
LB168 TXA
CLC
ADC #$10
TAX
CPX #$C0
BNE LB155
LDA #$20
JMP LB5E8
LB176 STX $E4
LDA L0600+$2,X
BEQ LB183
LDX #$01
LDY #$00
BEQ LB187
LB183 LDX #$00
LDY #$10
LB187 LDA #$13
STA $91
JSR LBA50
LDA #$02
LDY #$00
LDX #$80
JSR LBF80
LDX $E4
LDA L0600+$3,X
STA $9E
LDA L0600+$4,X
STA $9F
LB1A3 LDA $9E
STA L0600+$E,X
LDA $9F
STA L0600+$F,X
LB1AD CPX #$C0
BEQ LB1CE
TXA
CLC
ADC #$10
TAX
LDA L0600+$3,X
LDY $E4
SEC
SBC L0600+$3,Y
BEQ LB1A3
CLC
ADC #$01
BEQ LB1A3
SEC
SBC #$02
BEQ LB1A3
JMP LB1AD
LB1CE LDX $E4
LDA #$01
STA L0600,X
STA L0600+$2,X
STA L0600+$1,X
STA L0610+$2,X
LDA #$00
STA L0600+$D,X
STA L0600+$7,X
LDA #$20
JSR LB5E8
LDX $E4
LDA L0610+$5,X
CMP #$04
BEQ LB24A
LDA L0600+$3,X
PHA
LDA L0600+$4,X
TAY
PLA
TAX
TYA
AND #$01
BEQ LB20D
DEX
CPX #$03
BCS LB214
LDX #$03
JMP LB214
LB20D INX
CPX #$25
BCC LB214
LDX #$25
LB214 STY $9B
STX $9A
JSR LB795
BEQ LB241
LDX #$00
LB21F LDA L0600+$3,X
CMP $9A
BNE LB235
LDA L0600+$4,X
CMP $9B
BNE LB235
LDA #$01
STA L0600+$D,X
JMP LB24A
LB235 TXA
CLC
ADC #$10
TAX
CMP #$C0
BCS LB24A
JMP LB21F
LB241 LDY $9B
LDX $9A
LDA #$00
JSR LB3F4
LB24A RTS
LB24B LDX $B6
LDA L0600+$3,X
CMP L0600+$E,X
BNE LB262
LDA L0600+$4,X
CMP L0600+$F,X
BNE LB262
LDA #$00
STA L0600+$7,X
LB262 JSR LB0A0
INY
CPY $88
BCC LB27C
LB26A LDX $B6
LDA #$01
STA L0600+$1,X
LDA #$00
STA L0600+$7,X
STA L0600+$A,X
JMP LAFCE
LB27C LDX $B6
LDA L0600+$A,X
BNE LB2BA
LDA L0600+$4,X
AND #$01
BNE LB2A2
JSR LB0A0
INX
LDA #$01
JSR LB0AB
BNE LB2BA
LDX $B6
INC L0600+$3,X
LDA #$01
STA L0600+$A,X
JMP LAFF6
LB2A2 JSR LB0A0
DEX
LDA #$02
JSR LB0AB
BNE LB2BA
LDX $B6
DEC L0600+$3,X
LDA #$01
STA L0600+$A,X
JMP LAFF6
LB2BA LDA #$04
STA $B1
JSR LB0A0
INY
CPY $88
BCC LB2C9
JMP LB26A
LB2C9 JSR LB795
BEQ LB328
LDX $B6
INC L0600+$4,X
INC $8B
LDA $8B
CMP #$10
BCS LB2DE
JMP LB262
LB2DE LDX $B6
LDA $B8
STA L0600+$3,X
LDA $B9
STA L0600+$4,X
AND #$01
BNE LB30B
JSR LB0A0
INX
JSR LB795
LDA $2F
CMP #$40
BCC LB308
CMP #$48
BCS LB308
LDA #$01
STA $B1
LDX $B6
INC L0600+$3,X
LB308 JMP LAFF6
LB30B JSR LB0A0
DEX
JSR LB795
LDA $2F
CMP #$40
BCC LB325
CMP #$44
BCS LB325
LDA #$02
STA $B1
LDX $B6
DEC L0600+$3,X
LB325 JMP LAFF6
LB328 LDX $B6
INC L0600+$4,X
LDA #$00
STA L0600+$A,X
JMP LAFF6
LB335 LDX $B6
CPX $AD
BEQ LB33E
JMP LB3BF
LB33E DEC $A8
BEQ LB34A
LDA $B1
STA L0600+$6,X
JMP LB3BF
LB34A LDA $AD
CLC
ADC #$10
STA $AD
CMP #$C0
BNE LB35C
LDA #$00
STA $AC
JMP LB3BF
LB35C LDX $BD
LDA $83,X
BEQ LB398
LDA $01
BEQ LB398
LDX $B6
TXA
LSR
LSR
LSR
LSR
ADC #$01
AND #$01
BEQ LB382
LDA #$03
STA $A8
STA L0610+$4,X
LDA #$26
STA L0610+$3,X
LB37F JMP LB38E
LB382 LDA #$02
STA L0610+$4,X
LDA #$03
STA $A8
STA L0610+$3,X
LB38E LDA #$01
STA L0610+$2,X
DEC $01
JMP LB3BF
LB398 LDX $B6
LDA #$02
STA $A8
LDA $AA
STA L0610+$3,X
LDA $AB
STA L0610+$4,X
LDA $B1
STA L0600+$6,X
LDA $F5
BNE LB3BF
LDY $BD
LDA |$0083,Y
BEQ LB3BF
LDA #$01
STA $F5
STA L0610+$2,X
LB3BF RTS
LB3C0 LDX #$00
LDY #$00
JSR LB3D8
LDA #$00
TAY
LB3CA STA ($64),Y
INY
BNE LB3CA
INC $64+1
LDX $64+1
CPX $6A
BCC LB3CA
RTS
LB3D8 LDA $58
STA $64
LDA $58+1
STA $64+1
INY
LB3E1 DEY
BEQ LB3F1
LDA $64
CLC
ADC #$28
STA $64
BCC LB3E1
INC $64+1
BCS LB3E1
LB3F1 TXA
TAY
RTS
LB3F4 STA $2F
JSR LB3D8
LDA $2F
BPL LB400
SEC
SBC #$80
LB400 SEC
SBC #$20
BPL LB408
CLC
ADC #$60
LB408 STA ($64),Y
LDX #$64
JSR LBE71
LDA $2F
BPL LB41F
CLC
LDA ($64),Y
ADC #$80
STA ($64),Y
LDX #$64
JSR LBE71
LB41F RTS
LB420 LDX $BD
JSR LA980
LDX $B2
CPX #$3A
BCS LB42D
AND #$FB
LB42D CPX #$C2
BCC LB433
AND #$F7
LB433 LDX $B3
CPX #$B0
BCS LB43B
AND #$FE
LB43B CPX #$D8
BCC LB441
AND #$FD
LB441 STA $B0
JSR LB7D1
JSR LB7E2
LDA #$F7
JSR LB7C4
JSR LB7E2
JSR LB7E8
LDA #$F7
JSR LB7C4
INX
INX
INX
LDA #$FB
JSR LB7C4
INX
INX
INX
JSR LB7E8
LDA #$FB
JSR LB7C4
JSR LB7E2
JSR LB7E8
LDA #$FD
JSR LB7C4
INX
INX
INX
INX
DEY
LDA #$FE
JSR LB7C4
JSR LB7E2
INX
DEY
LDA #$FE
JSR LB7C4
LDA $B0
PHA
PLA
STA $B0
LDA $C0
STA $06
LDA $B3
STA $08
LDA #$00
STA $13
STA $15
JSR LACDC
LDA $B0
AND #$01
BEQ LB4C4
DEC $B3
DEC $B3
LDX $B3
LDY #$09
LB4B0 LDA L6000+$401,X
STA L6000+$400,X
INX
DEY
BNE LB4B0
LDA #$00
STA L6000+$2FB,X
LDA #$05
STA L6000+$2F9,X
LB4C4 LDA $B0
AND #$02
BEQ LB4EC
LDA $B3
CMP #$D8
BCS LB4EC
INC $B3
INC $B3
LDX $B3
LDY #$09
LB4D8 LDA L6000+$406,X
STA L6000+$407,X
DEX
DEY
BNE LB4D8
LDA #$00
STA L6000+$30A,X
LDA #$05
STA L6000+$30C,X
LB4EC LDA $B0
AND #$04
BEQ LB4F8
DEC $B2
DEC $B2
BNE LB502
LB4F8 LDA $B0
AND #$08
BEQ LB512
INC $B2
INC $B2
LB502 LDX $B2
STX $C0
INX
INX
STX $C5
INX
INX
STX $C4
CMP #$04
BEQ LB4F8
LB512 LDA $B2
STA $06
LDA $B3
STA $08
LDA #$00
STA $13
LDA #$FF
STA $15
JSR LACDC
JSR LB7EE
RTS
LB529 LDA fgINPUT
BEQ LB536
LDA KBD
CMP #$A0
BEQ LB542
BNE LB591
LB536 LDX $BD
LDA BUTN0
BMI LB542
LDA BUTN1
BPL LB591
LB542 LDX $B4
BNE LB591
LDA #$00
LDX #$80
LDY #$00
JSR LBF80
LDA #$0B
STA $92
LDX $B2
INX
INX
INX
INX
STX $C6
STX $B5
LDX $B3
DEX
DEX
DEX
DEX
STX $F0
LB565 LDA #$20
STA L6000+$300,X
STA L6000+$301,X
STA L6000+$302,X
STA L6000+$303,X
STA L6000+$304,X
STA L6000+$305,X
STX $B4
STX $08
LDY $C6
DEY
DEY
DEY
DEY
STY $06
LDA #$FF
STA $15
LDA #$04
STA $13
JSR LACDC
RTS
LB591 LDY $B4
BEQ LB59E
JSR LB59F
JSR LB738
JSR LB59F
LB59E RTS
LB59F LDX $B5
LDY $B4
LB5A3 JSR LB792
BEQ LB5FC
BCC LB5BA
LDX $B5
LDY $B4
JSR LB99B
STX $55
STY $54
PLA
PLA
JMP LB153
LB5BA ADC #$01
LB5BC CMP #$04
LB5BE BEQ LB5CD
CMP #$09
BEQ LB5CD
LB5C4 STA $B0
PLA
PLA
LDA $B0
JMP LB5E8
LB5CD PLA
PLA
LDA #$20
JSR LB5E8
LDA #$13
STA $91
LDA #$05
LDY #$00
LDX #$80
JSR LBF80
LDX #$00
LDY #$01
JMP LBA50
LB5E8 LDX $B5
LDY $B4
STA $2F
JSR LB99B
LDA $2F
JSR LB3F4
LB5F6 LDX $B4
DEX
JMP LB764
LB5FC LDX $B5
LDY $B4
JSR LB99B
STX $55
STY $54
LDX $E5
LDY $E6
JSR LB7DC
JSR LB99B
CPX $55
BNE LB64E
CPY $54
BNE LB64E
PLA
PLA
DEC $82
BNE LB624
INC $E8
JMP LB5F6
LB624 LDA #$00
STA $D205
LDA #$13
STA $91
JSR LB5F6
LDA #$03
LDX #$80
LDY #$00
JSR LBF80
LDX #$02
LDY #$00
JSR LBA50
JSR LBBE1
JSR LBF1A
CMP #$10
BCC LB64D
JMP LBB10
LB64D RTS
LB64E LDY $B4
CPY $EB
BCC LB673
LDY $EB
JSR LB7DC
CPY $B4
BCC LB673
LB65D LDX $B5
CPX $EA
BCC LB673
LDX $EA
JSR LB7D6
CPX $B5
BCC LB673
LDA $B3
SBC $EB
JMP LB676
LB673 JMP LB6F7
LB676 PHA
LDA #$00
STA $96
LDA #$13
STA $91
LDA #$03
LDY #$00
LDX #$80
JSR LBF80
PLA
LDX #$09
STX $B0
LDX #$12
CMP #$11
BCC LB6A3
LDX #$06
STX $B0
LDX #$0C
CMP #$21
BCC LB6A3
LDX #$03
STX $B0
LDX #$06
LB6A3 STX $B1
JSR LBD09
PLA
PLA
LDA $EB
STA $F1
LDA $B1
STA $13
STA $CC
LDA $EB
STA $08
STA $CE
LDX $B1
LDY #$00
LB6BE LDA LA930,X
PHA
STX $B1
TYA
CLC
ADC $EB
TAX
PLA
STA L6000+$600,X
LDX $B1
INX
INY
CPY #$06
BNE LB6BE
LDX $EA
STX $CD
STX $C2
STX $06
LDA #$FF
STA $15
JSR LACDC
JSR LBCF7
LB6E7 LDA #$00
STA $EA
STA $EB
LDX $B0
LDY #$00
LB6F1 JSR LBA50
JMP LB5F6
LB6F7 LDY $B4
CPY $F3
BCC LB737
LDY $F3
JSR LB7DC
CPY $B4
BCC LB737
LDX $B5
CPX $F2
BCC LB737
LDX $F2
JSR LB7D6
CPX $B5
BCC LB737
PLA
PLA
LDA #$00
STA $85
STA $95
LDA #$13
STA $91
JSR LBE42
LDA #$03
LDY #$00
LDX #$80
JSR LBF80
LDX #$10
LDY #$00
JSR LBA50
JMP LB5F6
LB737 RTS
LB738 LDX $B4
STX $08
LDY $C6
DEY
DEY
DEY
DEY
DEY
STY $06
LDA #$00
STA $15
LDA #$04
STA $13
JSR LACDC
LDX $B4
DEX
DEX
DEX
DEX
DEX
DEX
CPX #$30
BCC LB764
JSR LB764
STX $B4
JMP LB565
LB764 LDA #$00
STA L6000+$301,X
STA L6000+$302,X
STA L6000+$303,X
STA L6000+$304,X
STA L6000+$305,X
STA L6000+$306,X
STX $08
LDY $C6
DEY
DEY
DEY
DEY
STY $06
LDA #$00
STA $15
LDA #$04
STA $13
JSR LACDC
LDY #$00
STY $B4
RTS
LB792 JSR LB99B
LB795 JSR LB3D8
LDA ($64),Y
STA $2F
BPL LB7A1
SEC
SBC #$80
LB7A1 CLC
ADC #$20
CMP #$60
BCC LB7AB
SEC
SBC #$60
LB7AB PHA
LDA $2F
BPL LB7B7
PLA
CLC
ADC #$80
JMP LB7B8
LB7B7 PLA
LB7B8 CMP #$09
BCC LB7C0
CMP #$20
SEC
RTS
LB7C0 CMP #$20
CLC
RTS
LB7C4 STA $B1
JSR LB792
BCS LB7D1
LDA $B0
AND $B1
STA $B0
LB7D1 LDX $B2
LDY $B3
RTS
LB7D6 TXA
CLC
ADC #$07
TAX
RTS
LB7DC TYA
CLC
ADC #$08
TAY
RTS
LB7E2 TXA
CLC
ADC #$04
TAX
RTS
LB7E8 TYA
CLC
ADC #$05
TAY
RTS
LB7EE JSR LB7D1
JSR LB99B
STX $55
STY $54
LDA #$00
LB7FA TAX
LDA L0600,X
BNE LB814
LDA L0600+$3,X
SEC
SBC #$01
CMP $55
BNE LB814
LDA L0600+$4,X
CMP $54
BNE LB814
JMP LB888
LB814 TXA
CLC
ADC #$10
CMP #$C0
BCC LB7FA
JSR LB7D1
JSR LB99B
JSR LB875
INX
JSR LB875
INY
JSR LB875
INX
INY
JSR LB875
LDA $B2
SEC
SBC $EA
BCS LB83D
EOR #$FF
ADC #$01
LB83D CMP #$07
BCS LB850
LDA $B3
SEC
SBC $EB
BCS LB84C
EOR #$FF
ADC #$01
LB84C CMP #$08
BCC LB888
LB850 LDA $B2
SEC
SBC $C8
BCS LB85B
EOR #$FF
ADC #$01
LB85B CMP #$07
BCS LB86E
LDA $B3
SEC
SBC $C9
BCS LB86A
EOR #$FF
ADC #$01
LB86A CMP #$08
BCC LB888
LB86E LDA #$00
STA $C8
STA $C9
RTS
LB875 CPY #$18
BNE LB87A
DEY
LB87A JSR LB795
CMP #$8A
BCS LB888
JSR LB7D1
JSR LB99B
RTS
LB888 LDA #$00
STA $C8
STA $C9
STA $EF
LDA #$01
STA $8C
PLA
PLA
LDA #$13
STA $91
LDA #$00
STA $A7
STA $96
STA $95
STA $E6
STA $D205
TAX
LB8A8 STA L6000+$300,X
STA L6000+$400,X
STA L6000+$500,X
STA L6000+$600,X
STA L6000+$700,X
DEX
BNE LB8A8
JSR LACB4
LDA $B2
LDX #$04
LB8C1 LDA $B2
STA $CFFF,X
JSR LBF1A
DEX
BNE LB8C1
LDA #$06
STA $B0
LDA #$05
LDX #$02
LDY #$05
JSR LBF80
LB8D9 LDY #$A0
LB8DB LDX #$0F
LB8DD JSR LBAED
STA LABF0,X
DEX
BPL LB8DD
BIT KBDSTROBE
LDA #$07
STA $13
LDA $B2
STA $06
LDA $B3
STA $08
LDA #$FF
STA $15
JSR LACDC
LDA #$00
STA $15
LDA $B2
STA $06
LDA $B3
STA $08
JSR LACDC
DEY
BNE LB8DB
DEC $B0
BNE LB8D9
LDA #$00
LDX #$08
LB916 STA $CFFF,X
DEX
BNE LB916
LB91C STX $B0
LDA L0600,X
BNE LB92B
JSR LB0A2
LDA #$20
JSR LB3F4
LB92B LDA $B0
CLC
ADC #$10
TAX
CPX #$C0
BNE LB91C
LDA #$06
LB937 JSR LB98B
SEC
SBC #$01
BNE LB937
LDA #$00
LDX #$03
LDY #$16
LB945 STX $55
STY $54
JSR LB996
JSR LB795
BCS LB974
CMP #$00
BEQ LB974
JSR LB996
LDA #$00
JSR LB3F4
LDA #$05
LDX #$02
LDY #$02
JSR LBF80
LDX #$00
LDY #$05
LDA #$13
STA $91
JSR LBA50
JSR LB98B
LB974 JSR LB996
DEY
BNE LB945
LDY #$16
INX
CPX #$26
BNE LB945
LDA #$00
STA $8C
JSR LBE42
JMP LA21A
LB98B LDX #$30
LB98D LDY #$00
LB98F DEY
BNE LB98F
DEX
BNE LB98D
RTS
LB996 LDX $55
LDY $54
RTS
LB99B TXA
SEC
SBC #$30
LSR
LSR
TAX
TYA
SEC
SBC #$20
LSR
LSR
LSR
TAY
RTS
LB9AB LDX #$00
LDY #$00 ; ZERO PAGE
STY $D6+1
JSR LB3D8
LDX #$03
LDA #$D8 ; ZERO PAGE
LB9B8 STX $B0
STA $D6
LDY #$01
STY $B1
LB9C0 LDY $B1
LDA ($D6),Y
AND #$F0
LSR
LSR
LSR
LSR
JSR LB9F6
LDA ($D6),Y
AND #$0F
JSR LB9F6
INC $B1
LDY $B1
CPY #$04
BNE LB9C0
LDA $B0
CMP #$25
BEQ LBA08
CMP #$09
BNE LB9EC
LDX #$11
LDA #$E0
BNE LB9B8
LB9EC LDA $BC
BEQ LBA08
LDX #$1F
LDA #$DC
BNE LB9B8
LB9F6 TAX
LDA LA760,X
LDY $B0
STA ($64),Y
LDX #$64
JSR LBE71
INC $B0
LDY $B1
RTS
LBA08 LDY #$00 ; ZERO PAGE
STY $D6+1
JSR LB3D8
LDA #$BE ; OFFSET $BE
LDX #$0A
LBA13 STA $D6
STX $B0
LDA #$00
STA $B1
LBA1B INC $B1
LDA $B1
CMP #$07
BEQ LBA45
LDY #$00
CMP ($D6),Y
LDY $B0
BCC LBA38
LDA #$00
STA ($64),Y
LDX #$64
JSR LBE71
LDA #$00
BEQ LBA41
LBA38 LDA #$5E
STA ($64),Y
LDX #$64
JSR LBE71
LBA41 INC $B0
BNE LBA1B
LBA45 CPY #$0F
BEQ LBA4A
RTS
LBA4A LDX #$18
LDA #$BF
BNE LBA13
LBA50 LDA $BD
BEQ LBA56
LDA #$04
LBA56 CLC
ADC #$D8 ; ZERO PAGE
STA $D6
LDA #$00
STA $B0
STA $D6+1
STY $B1
LDY #$01
LDA ($D6),Y
PHA
SED
LDY #$03
LBA6B CLC
LDA $B1
ADC ($D6),Y
STA ($D6),Y
LBA72 DEY
BMI LBA7E
LDA #$00
ADC ($D6),Y
STA ($D6),Y
JMP LBA72
LBA7E LDA $B0
BNE LBA8A
LDY #$02
STX $B1
STY $B0
BNE LBA6B
LBA8A CLD
LDY #$01
LDA ($D6),Y
AND #$0F
STA $B0
PLA
AND #$0F
CMP $B0
BEQ LBAB5
LDX $BD
LDA $BE,X
CMP #$07
BCS LBAB5
LDA #$11
STA $90
LDA #$01
STA $80
LDA #$00
STA $D201
STA $92
STA $91
INC $BE,X
LBAB5 JSR LB9AB
LDY #$00
LDX $BD
BNE LBAC3
LDA $D8
JMP LBAC5
LBAC3 LDA $DC
LBAC5 BNE LBAEC
LDX $BD
BEQ LBACD
LDX #$04
LBACD LDA $D9,X
CMP #$02
BCC LBAE7
LDY #$01
CMP #$03
BCC LBAE7
LDY #$02
CMP #$06
BCC LBAE7
LDY #$04
CMP #$10
BCC LBAE7
LDY #$08
LBAE7 LDX $BD
TYA
STA $8D,X
LBAEC RTS
LBAED STX $B1
LDA LBF1A
STA $E4
JSR LBF1A
AND LAB60,X
LDX $B1
LBAFC RTS
LBAFD LDA $E6
BNE LBB41
LDA $E7
BEQ LBB09
INC $E7
BNE LBAFC
LBB09 JSR LBF1A
CMP #$FD
BCC LBAFC
LBB10 LDA #$01
STA $82
LDX L0600+$4
CPX #$12
BCS LBAFC
LDA #$30
STA $E6
LBB1F JSR LBF1A
CMP #$23
BCS LBB1F
ASL
ASL
CLC
ADC #$3C
TAX
STA $E5
LDA #$00
STA $E8
STX $C1
STX $C7
TXA
LDX #$00
CMP $B2
BNE LBB3E
INX
LBB3E STX $E8
RTS
LBB41 JSR LBB54
JSR LBB54
LDA $E8
BEQ LBB51
JSR LBB54
JSR LBB54
LBB51 JMP LBBC0
LBB54 INC $E6
LDY #$08
LDX $E6
CPX #$DA
BNE LBB63
PLA
PLA
JMP LBBE1
LBB63 LDA L6000+$505,X
STA L6000+$506,X
DEX
DEY
BNE LBB63
LDX $E6
DEX
STX $08
STX $C9
LDA $C1
SEC
SBC #$04
STA $06
STA $C8
LDA #$00
STA $15
LDA $D1
EOR #$01
STA $D1
BNE LBB8C
LDA #$01
hex 2C
LBB8C LDA #$15
STA $13
JSR LACDC
LDA $C1
SEC
SBC #$04
STA $06
LDX $E6
STX $08
LDA #$FF
STA $15
JSR LACDC
LDX $E6
LDA L6000+$307,X
AND #$7F
STA L6000+$307,X
LDA L6000+$308,X
ORA #$80
STA L6000+$308,X
LDA L6000+$309,X
ORA #$80
STA L6000+$309,X
RTS
LBBC0 JSR LBF1A
CMP #$10
BCC LBBC8
LBBC7 RTS
LBBC8 LDX $E5
LDY $E6
JSR LB792
BNE LBBC7
LDX $E5
LDY $E6
JSR LB99B
CPY #$15
BCS LBBC7
LDA #$00
JMP LB3F4
LBBE1 LDX #$00
LBBE3 LDA L6000+$300,X
AND #$7F
STA L6000+$300,X
LDA #$00
STA L6000+$500,X
DEX
BNE LBBE3
LDA $C1
SEC
SBC #$04
STA $06
STA $C8
LDX $E6
DEX
STX $C9
STX $08
LDA #$01
STA $13
LDA #$00
STA $15
JSR LACDC
LDA #$00
STA $C1
STA $E6
STA $C7
LBC16 LDX #$08
LBC18 LDA LA90F,X
STA L6000+$52F,X
DEX
BNE LBC18
RTS
LBC22 LDA $EF
BEQ LBC4A
DEC $EF
BNE LBC36
LDA $F1
STA $EB
JSR LBD09
LDA #$00
STA $EB
RTS
LBC36 LDA $CD
STA $06
LDA $CE
STA $08
LDA $CC
STA $13
LDA #$FF
STA $15
JSR LACDC
RTS
LBC4A LDA $EB
BNE LBC7E
JSR LBF1A
CMP #$04
BCC LBC56
RTS
LBC56 LDX #$00
STX $ED
INX
STX $EC
LDY #$C0
JSR LBF1A
BPL LBC67
LDY #$38
DEX
LBC67 STX $EE
STY $EA
LDA LBF1A
AND #$0F
CLC
ADC #$B0
STA $EB
JSR LBD55
LDX $EB
JSR LBD2A
RTS
LBC7E LDA $96
BNE LBC86
LDA #$3C
STA $96
LBC86 DEC $E9
BNE LBC8D
JMP LBD00
LBC8D LDX $EB
LDA $ED
BEQ LBC97
DEX
DEX
BNE LBC99
LBC97 INX
INX
LBC99 STX $B0
LDA $EC
BEQ LBCA9
LDA $EE
BEQ LBCA7
DEC $EA
BNE LBCA9
LBCA7 INC $EA
LBCA9 LDX $BD
LDA $8D,X
CMP #$04
BCC LBCBB
LDA $EB
CMP #$B0
BCC LBCBB
LDA #$B0
STA $89
LBCBB LDA $B0
CMP $89
BCC LBD00
CMP $8A
BCS LBD00
LDA $EA
CMP #$34
BCC LBCEB
CMP #$C5
BCS LBCEB
JSR LBD09
LDX $B0
STX $EB
JSR LBD2A
JSR LBD6C
JSR LB795
BEQ LBCFF
BCS LBD00
JSR LBD6C
LDA #$20
JMP LB3F4
LBCEB JSR LBD09
LDA #$00
STA $EB
STA $EF
STA $96
RTS
LBCF7 LDA #$80
STA $EF
LDA #$00
STA $96
LBCFF RTS
LBD00 LDA $ED
EOR #$01
STA $ED
JMP LBD55
LBD09 LDX $EB
LDY #$0E
LDA #$00
LBD0F STA L6000+$600,X
INX
DEY
BNE LBD0F
LDA $EB
STA $08
LDA $C2
STA $06
LDA #$02
STA $13
LDA #$00
STA $15
JSR LACDC
RTS
LBD2A STX $08
LDY #$08
LBD2E LDA LA927,Y
STA L6000+$600,X
INX
DEY
BNE LBD2E
LDX $EA
STX $C2
STX $06
LDA #$FF
STA $15
LDA $D0
EOR #$01
STA $D0
BNE LBD4D
LDA #$02
hex 2C
LBD4D LDA #$14
STA $13
JSR LACDC
RTS
LBD55 JSR LBF1A
LDX #$01
CMP #$40
BCC LBD5F
DEX
LBD5F STX $EC
JSR LBF1A
AND #$3F
TAX
INX
INX
STX $E9
RTS
LBD6C LDX $EA
LDY $EB
INX
INX
JMP LB99B
LBD75 LDA $85
BNE LBDDD
LDX $BD
LDA $9C,X
BEQ LBD8A
JSR LBF1A
CMP #$42
BCC LBD8A
CMP #$44
BCC LBD8B
LBD8A RTS
LBD8B LDA #$01
STA $85
JSR LBF1A
CLC
ADC #$18
CMP #$48
BCC LBD8B
CMP #$79
BCS LBD8B
AND #$F8
STA $F3
JSR LBF1A
BPL LBDC3
LDA #$00
STA $F4
LDA #$C5
STA $F2
LDX $F3
LDY #$08
LBDB2 LDA LA91F,Y
STA L6000+$700,X
INX
DEY
BNE LBDB2
LDA #$05
STA $CF
JMP LBDDD
LBDC3 LDA #$01
STA $F4
LDA #$34
STA $F2
LDX $F3
LDY #$08
LBDCF LDA LA917,Y
STA L6000+$700,X
INX
DEY
BNE LBDCF
LDA #$03
STA $CF
LBDDD LDA $95
BNE LBDE5
LDA #$14
STA $95
LBDE5 LDA $C3
STA $06
LDA $F3
STA $08
LDA #$00
STA $15
JSR LACDC
LDA $F4
BEQ LBDFD
INC $F2
JMP LBDFF
LBDFD DEC $F2
LBDFF LDA $F2
CMP #$34
BCC LBE42
CMP #$C5
BCS LBE42
STA $F2
STA $C3
STA $06
LDA $F3
STA $08
LDA $CF
STA $13
LDA #$FF
STA $15
JSR LACDC
LDY $F3
LDX $F2
JSR LB792
BEQ LBE41
LDA $2F
CMP #$40
BCC LBE41
CMP #$44
BCS LBE41
LDX $F2
LDY $F3
JSR LB99B
LDA $2F
ADC #$C0
ADC #$04
JSR LB3F4
LBE41 RTS
LBE42 LDX $F3
LDY #$08
LBE46 LDA #$00
STA L6000+$700,X
INX
DEY
BNE LBE46
LDX $F3
STX $08
LDA $C3
STA $06
LDA #$03
STA $13
LDA #$00
STA $15
JSR LACDC
LDA #$00
STA $85
STA $F4
STA $F3
STA $F2
STA $95
STA $C3
RTS
LBE71 STY $0F ; save Y
PHA
STX LBE7B+1 ; zero page offset
INX ; +1
STX LBE7F+1 ; zero page offset +1
LBE7B LDA $64
STA $11
LBE7F LDA $64+1
CLC
ADC #>L8B00 ; LOGO
STA $11+1
LDA #$00
STA $09
LDA ($11),Y
STA $06
LDA $11+1
PHA
CLC
ADC #$04 ; 8B+4 = 8F
STA $11+1
LDA ($11),Y
STA $08
PLA
STA $11+1
PLA
PHA
ASL
ROL $09
ASL
ROL $09
ASL
ROL $09
STA LBF08+1
LDA $09
CLC
ADC #>L9000 ; LOGO
STA LBF08+2
PLA
CMP #$40 ; ALL CHARS
BCC LBEED
CMP #$45 ; GREEN CACTUS
BCC LBEE5
CMP #$4A ; PINK CACTUS
BCC LBEDC
CMP #$52 ; CENTIPEDE SPRITES
BCS LBEED
LDA $06
LSR
BCC LBEED
LDA LBF08+1
CLC
ADC #<L1560 ; LOGO
STA LBF08+1
LDA LBF08+2
ADC #>L1560 ; LOGO
STA LBF08+2
BNE LBEED
LBEDC LDA $06
LSR
BCC LBEED
LDA #$4A ; LSR
BNE LBEEF
LBEE5 LDA $06
LSR
BCC LBEED
LDA #$0A ; ASL
DB $2C
LBEED LDA #$EA ; NOP
LBEEF STA LBF0B
LDX #$00
LBEF4 LDY $08
LDA L9B00,Y
STA $02
STA $04
LDA L9BC0,Y
STA $02+1
EOR #$60
STA $04+1
LDY $06
LBF08 LDA $1000,X
LBF0B LSR
STA ($02),Y
STA ($04),Y
INC $08
INX
CPX #$08
BNE LBEF4
LDY $0F ; RESTORE Y
RTS
LBF1A INC $F6
DEC $F7
LDA $F6
ROL
ROL
ROL
ROL
STA $00
LDA $F7
ROR
ROR
ROR
ROR
EOR $00
ADC $F7
ADC $00
BCC LBF36
DEC $F7
LBF36 RTS
LBF37 LDA #$00
STA $C8
STA $C9
LDX #$60
LDA #$00
LBF41 STA $00,X
INX
BNE LBF41
LDX #$0F
LBF48 LDA LBF51,X
STA $70,X
DEX
BPL LBF48
RTS
LBF51 DA L9B00
DA L9BC0
DA L9C80
DA L9DA0
DA L9EC0
DA L9D80
DA L9EA0
DA L9FC0
LBF61 LDA #$00
STA $FA
STA $FB
STA whichDIR
STA $FD
STA $D0
STA $D1
RTS
DB $58
DB $0D
DB $03
DB $AD
DB $00
DB $0D
DB $03
DB $A2
DB $00
DB $0D
DB $03
DB $AC
DB $00
DB $0D
DB $03
DB $B1
LBF80 STA LBF9A
STY LBF99
STX LBF98
LDA #$00
STA LBF9B
SEC
INC LBF99
LDX LBF9A
JMP LBFC7
LBF98 DB $00
LBF99 DB $00
LBF9A DB $00
LBF9B DB $00
LBF9C DB $00
LBF9D DB $00
LBF9E PHP
LDA LBF9B
BEQ LBFBB
DEY
BNE LBFBB
TAY
BMI LBFB5
LDA LBF9A
BEQ LBFBB
DEC LBF9A
TYA
BNE LBFBB
LBFB5 INC LBF9A
AND #$7F
TAY
LBFBB PLP
DEC LBF98
BNE LBFC7
DEC LBF99
BNE LBFC7
RTS
LBFC7 ROL LBF9C
ROL LBF9D
TXA
BEQ LBFD1
DEX
LBFD1 BNE LBFDB
BCC LBFDB
LDA SPKR
LDX LBF9A
LBFDB ROR
ROR
ROR
EOR LBF9D
ASL
ASL
ASL
JMP LBF9E
RTS
DB $00
DB $00
DB $4C
DB $39
DB $41
DB $0D
DB $08
DB $CB
DB $01
DB $4C
DB $42
DB $33
DB $44
DB $38
DB $0D
DB $08
DB $87
DB $01
DB $4C
DB $41
DB $46
DB $34
DB $37
DB $0D
Reference in New Issue View Git Blame Copy Permalink