mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-30 18:31:21 +00:00
315 lines
5.7 KiB
ArmAsm
315 lines
5.7 KiB
ArmAsm
*
|
|
* Bubble Bobble
|
|
*
|
|
* (c) 1988, Taito
|
|
* (s) 2020, Antoine Vignau
|
|
*
|
|
|
|
mx %11
|
|
org $9800
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
CYAREG EQU $C036
|
|
TXTSET EQU $C051
|
|
|
|
*-------------------------------
|
|
|
|
L9800 JSR L98C5
|
|
LDA #$00
|
|
STA $F1
|
|
LDA #$01
|
|
STA $F2
|
|
L980B LDA #$00
|
|
STA $F0
|
|
L980F LDA $F0
|
|
STA $0A05
|
|
LDA $F2
|
|
STA $0A04
|
|
LDA #$00
|
|
STA $0A08
|
|
LDA #$0C
|
|
CLC
|
|
ADC $F1
|
|
STA $0A09
|
|
JSR L9841
|
|
INC $F1
|
|
LDA $F1
|
|
CMP #$8B
|
|
BEQ L983E
|
|
INC $F0
|
|
LDA $F0
|
|
CMP #$10
|
|
BNE L980F
|
|
INC $F2
|
|
JMP L980B
|
|
L983E JMP $6000 ; play game
|
|
|
|
L9841 LDA #$01
|
|
STA $0A00
|
|
STA $0A02
|
|
STA $0A0C
|
|
STA $0A10
|
|
STA $0B01
|
|
LDA #$60
|
|
STA $0A01
|
|
STA $0A0F
|
|
LDA #$00
|
|
STA $0A03
|
|
STA $0A0B
|
|
STA $0A0E
|
|
STA $0B00
|
|
STA $0A06
|
|
LDA #$0B
|
|
STA $0A07
|
|
LDA #$D8
|
|
STA $0B02
|
|
LDA #$EF
|
|
STA $0B03
|
|
LDY #$00
|
|
LDA #$0A
|
|
JSR $B7B5
|
|
LDA #$00
|
|
STA $48
|
|
RTS
|
|
|
|
L9886 LDA #$01
|
|
STA $0A00
|
|
STA $0A02
|
|
STA $0A10
|
|
STA $0B01
|
|
LDA #$60
|
|
STA $0A01
|
|
STA $0A0F
|
|
LDA #$00
|
|
STA $0A0C
|
|
STA $0B00
|
|
STA $0A06
|
|
STA $0A0E
|
|
LDA #$0B
|
|
STA $0A07
|
|
LDA #$D8
|
|
STA $0B02
|
|
LDA #$EF
|
|
STA $0B03
|
|
LDY #$00
|
|
LDA #$0A
|
|
JSR $B7B5
|
|
LDA #$00
|
|
STA $48
|
|
RTS
|
|
|
|
L98C5 LDA CYAREG ; IIgs slow
|
|
AND #$7F
|
|
STA CYAREG
|
|
LDA #$00
|
|
STA L994C
|
|
JSR L98EE ; call protection
|
|
LDA L994D
|
|
BEQ L98DD
|
|
JMP L9C1A ; copy, reboot
|
|
L98DD RTS ; original, return
|
|
|
|
L98DE ASC "0123456789ABCDEF"
|
|
|
|
L98EE LDA #$21 ; go to T21
|
|
STA $0A04
|
|
JSR L9886
|
|
LDA #$00
|
|
STA L994E
|
|
STA L994D
|
|
LDY #$0F
|
|
L9900 STA L994F,Y
|
|
DEY
|
|
BPL L9900
|
|
JSR L990A
|
|
RTS
|
|
|
|
L990A JSR L9960
|
|
INC L994D
|
|
LDA #$19
|
|
STA L99D0
|
|
STA L99DE
|
|
JSR L996E
|
|
BCS L994A
|
|
LDA L9B1A+$5B
|
|
CMP #$99
|
|
BNE L994A
|
|
LDA #$59
|
|
STA L99D0
|
|
STA L99DE
|
|
JSR L996E
|
|
LDX #$00
|
|
LDY #$0F
|
|
L9933 LDA L9B1A+$5B,Y
|
|
BEQ L9939
|
|
INX
|
|
L9939 DEY
|
|
BPL L9933
|
|
INC L994F,X
|
|
CPX #$03
|
|
BCC L994A
|
|
DEC L994D
|
|
INC L994E
|
|
RTS
|
|
L994A RTS
|
|
|
|
DB $00
|
|
L994C DB $00
|
|
L994D DB $00
|
|
L994E DB $00
|
|
L994F 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
|
|
|
|
L9960 LDA #$00
|
|
LDY #$00
|
|
L9964 STA L9A1A,Y
|
|
STA L9B1A,Y
|
|
INY
|
|
BNE L9964
|
|
RTS
|
|
|
|
L996E LDX #$60
|
|
CMP $C08E,X
|
|
LDA #$C0
|
|
STA L99F4
|
|
STA L99F5
|
|
L997B INC L99F4
|
|
BNE L9988
|
|
INC L99F5
|
|
BNE L9988
|
|
JMP L99EC
|
|
|
|
L9988 LDA $C08C,X
|
|
BPL L9988
|
|
CMP #$D5
|
|
BNE L997B
|
|
L9991 LDA $C08C,X
|
|
BPL L9991
|
|
CMP #$AA
|
|
BNE L997B
|
|
L999A LDA $C08C,X
|
|
BPL L999A
|
|
CMP #$96
|
|
BNE L997B
|
|
JSR L9A05
|
|
JSR L9A05
|
|
CMP #$21
|
|
STA L994C
|
|
BNE L997B
|
|
JSR L9A05
|
|
CMP #$0F
|
|
BNE L997B
|
|
L99B7 LDA $C08C,X
|
|
BPL L99B7
|
|
L99BC CMP #$D5
|
|
BNE L99B7
|
|
L99C0 LDA $C08C,X
|
|
BPL L99C0
|
|
CMP #$AA
|
|
BNE L99BC
|
|
LDY #$00
|
|
L99CB LDA $C08C,X
|
|
BPL L99CB
|
|
L99D0 ORA L9A1A,Y
|
|
STA L9A1A,Y
|
|
INY
|
|
BNE L99CB
|
|
L99D9 LDA $C08C,X
|
|
BPL L99D9
|
|
L99DE ORA L9B1A,Y
|
|
STA L9B1A,Y
|
|
INY
|
|
BNE L99D9
|
|
JSR L99FF
|
|
CLC
|
|
RTS
|
|
|
|
L99EC JSR L9960
|
|
JSR L99FF
|
|
SEC
|
|
RTS
|
|
|
|
L99F4 DB $00
|
|
L99F5 DB $00
|
|
|
|
LDY #$01
|
|
LDA ($F0),Y
|
|
TAX
|
|
CMP $C089,X
|
|
RTS
|
|
|
|
L99FF LDX #$60
|
|
CMP $C088,X
|
|
RTS
|
|
|
|
L9A05 LDA $C08C,X
|
|
BPL L9A05
|
|
SEC
|
|
ROL
|
|
STA L9A14+1
|
|
L9A0F LDA $C08C,X
|
|
BPL L9A0F
|
|
L9A14 AND #$00
|
|
STA L9A14+1
|
|
RTS
|
|
|
|
L9A1A DS $100
|
|
L9B1A DS $100
|
|
|
|
L9C1A LDA TXTSET ; reset, please, I have a copy
|
|
LDA L994C
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
TAX
|
|
LDA L98DE,X
|
|
STA $0400
|
|
LDA L994C
|
|
AND #$0F
|
|
TAX
|
|
LDA L98DE,X
|
|
STA $0401
|
|
LDA #$A0
|
|
STA $0402
|
|
LDA #$3B
|
|
LDX #$00
|
|
STX $50
|
|
LDX #$02
|
|
STX $51
|
|
LDY #$00
|
|
L9C48 LDA #$A0
|
|
STA ($50),Y
|
|
INC $50
|
|
BNE L9C52
|
|
INC $51
|
|
L9C52 LDX $51
|
|
CPX #$9C
|
|
BCC L9C48
|
|
L9C58 CMP #$13
|
|
BEQ L9C5E
|
|
BNE L9C58
|
|
L9C5E CMP $52
|
|
BNE L9C58
|
|
DS $9E
|
|
DS $100
|
|
DS $100
|
|
DS $100
|