[CustomTag] Cleanup CrumbleFloorTag
This commit is contained in:
scawful
@@ -1,259 +1,274 @@
|
|||||||
org $01CC04 ; holes_1 tag routine
|
org $01CC04 ; holes_1 tag routine
|
||||||
JSL NewTagRoutine
|
JSL CrumbleFloorTag_Main
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
pullpc
|
pullpc
|
||||||
NewTagRoutine:
|
|
||||||
; check under link feet what tile he is standing on
|
; check under link feet what tile he is standing on
|
||||||
; save somewhere in ram last tile we were on so it doesn't turn it back off
|
; save in ram last tile we were on so it doesn't turn back off
|
||||||
; kill room tag
|
; kill room tag
|
||||||
LDA.b $20 : CLC : ADC #$10 : AND.b #$F0
|
CrumbleFloorTag_Main:
|
||||||
STA.w $0224 ; y
|
{
|
||||||
|
LDA.b $20 : CLC : ADC #$10 : AND.b #$F0
|
||||||
|
STA.w $0224 ; y
|
||||||
|
|
||||||
LDA.b $22 : CLC : ADC #$08 : AND.b #$F0
|
LDA.b $22 : CLC : ADC #$08 : AND.b #$F0
|
||||||
STA.w $0225 ; x
|
STA.w $0225 ; x
|
||||||
|
|
||||||
|
|
||||||
LDA.w $0224 : CMP.w $0226 : BNE .differentTile
|
LDA.w $0224 : CMP.w $0226 : BNE .differentTile
|
||||||
LDA.w $0225 : CMP.w $0227 : BNE .differentTile
|
LDA.w $0225 : CMP.w $0227 : BNE .differentTile
|
||||||
JMP .sameTile
|
JMP .sameTile
|
||||||
.differentTile
|
.differentTile
|
||||||
|
|
||||||
; do code here for tile code
|
; do code here for tile code
|
||||||
REP #$30
|
REP #$30
|
||||||
|
|
||||||
LDA.w $022A : AND.w #$01F0 : LSR #$02 : STA.b $00
|
LDA.w $022A : AND.w #$01F0 : LSR #$02 : STA.b $00
|
||||||
LDA.w $0228 : AND.w #$01F0 : ASL #$04 : CLC : ADC.b $00 : STA.b $06
|
LDA.w $0228 : AND.w #$01F0 : ASL #$04
|
||||||
TAX
|
CLC : ADC.b $00 : STA.b $06
|
||||||
|
TAX
|
||||||
|
|
||||||
LDA.l $7E2000, X : CMP.w #$0CCC : BNE +
|
LDA.l $7E2000, X : CMP.w #$0CCC : BNE +
|
||||||
JSR update_pit_tile
|
JSR update_pit_tile
|
||||||
SEP #$30
|
SEP #$30
|
||||||
JSR spawnFallingTile
|
JSR spawnFallingTile
|
||||||
BRA .doneupdate
|
BRA .doneupdate
|
||||||
+
|
+
|
||||||
LDA.l $7E2000, X : CMP.w #$0C62 : BNE +
|
LDA.l $7E2000, X : CMP.w #$0C62 : BNE +
|
||||||
JSR update_crack_tile
|
JSR update_crack_tile
|
||||||
+
|
+
|
||||||
.doneupdate
|
.doneupdate
|
||||||
SEP #$30
|
SEP #$30
|
||||||
|
|
||||||
.sameTile
|
.sameTile
|
||||||
|
|
||||||
LDA.w $0224 : STA.w $0226 : STA.w $0228 ; Last Y
|
LDA.w $0224 : STA.w $0226 : STA.w $0228 ; Last Y
|
||||||
LDA.w $0225 : STA.w $0227 : STA.w $022A ; Last X
|
LDA.w $0225 : STA.w $0227 : STA.w $022A ; Last X
|
||||||
; Last Y with link high byte
|
; Last Y with link high byte
|
||||||
LDA.b $21 : STA.w $0229
|
LDA.b $21 : STA.w $0229
|
||||||
LDA.b $23 : STA.w $022B
|
LDA.b $23 : STA.w $022B
|
||||||
RTL
|
RTL
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
spawnFallingTile:
|
spawnFallingTile:
|
||||||
LDX.b #$1D
|
{
|
||||||
|
LDX.b #$1D
|
||||||
|
|
||||||
.next
|
.next
|
||||||
LDA.l $7FF800,X
|
LDA.l $7FF800,X
|
||||||
BNE .skip
|
BNE .skip
|
||||||
|
|
||||||
LDA.b #$03 ; GARNISH 03
|
LDA.b #$03 ; GARNISH 03
|
||||||
STA.l $7FF800,X
|
STA.l $7FF800,X
|
||||||
|
|
||||||
LDA.w $022A
|
LDA.w $022A
|
||||||
STA.l $7FF83C, X
|
STA.l $7FF83C, X
|
||||||
|
|
||||||
LDA.w $022B
|
LDA.w $022B
|
||||||
STA.l $7FF878,X
|
STA.l $7FF878,X
|
||||||
|
|
||||||
LDA.w $0228
|
LDA.w $0228
|
||||||
CLC
|
CLC
|
||||||
ADC.b #$10
|
ADC.b #$10
|
||||||
STA.l $7FF81E,X
|
STA.l $7FF81E,X
|
||||||
|
|
||||||
LDA.w $0229
|
LDA.w $0229
|
||||||
ADC.b #$00
|
ADC.b #$00
|
||||||
STA.l $7FF85A,X
|
STA.l $7FF85A,X
|
||||||
|
|
||||||
LDA.b #$1F
|
LDA.b #$1F
|
||||||
STA.l $7FF90E,X
|
STA.l $7FF90E,X
|
||||||
|
|
||||||
STA.w $0FB4
|
STA.w $0FB4
|
||||||
|
|
||||||
BRA .exit
|
BRA .exit
|
||||||
|
|
||||||
.skip
|
.skip
|
||||||
DEX
|
DEX
|
||||||
BPL .next
|
BPL .next
|
||||||
|
|
||||||
.exit
|
.exit
|
||||||
RTS
|
RTS
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
update_crack_tile:
|
update_crack_tile:
|
||||||
STZ.b $0E
|
{
|
||||||
REP #$30
|
STZ.b $0E
|
||||||
|
REP #$30
|
||||||
|
|
||||||
JSR replace_crack_pit
|
JSR replace_crack_pit
|
||||||
|
|
||||||
SEP #$30
|
SEP #$30
|
||||||
|
|
||||||
LDA.b #$01
|
|
||||||
STA.b $14
|
|
||||||
REP #$30
|
|
||||||
RTS
|
|
||||||
|
|
||||||
|
LDA.b #$01
|
||||||
|
STA.b $14
|
||||||
|
REP #$30
|
||||||
|
RTS
|
||||||
|
}
|
||||||
|
|
||||||
update_pit_tile:
|
update_pit_tile:
|
||||||
STZ.b $0E
|
{
|
||||||
REP #$30
|
STZ.b $0E
|
||||||
|
REP #$30
|
||||||
|
|
||||||
JSR replace_tile_pit
|
JSR replace_tile_pit
|
||||||
|
|
||||||
SEP #$30
|
SEP #$30
|
||||||
|
|
||||||
LDA.b #$01
|
LDA.b #$01
|
||||||
STA.b $14
|
STA.b $14
|
||||||
REP #$30
|
REP #$30
|
||||||
RTS
|
RTS
|
||||||
|
}
|
||||||
|
|
||||||
replace_crack_pit:
|
replace_crack_pit:
|
||||||
LDX.w $1000
|
{
|
||||||
|
LDX.w $1000
|
||||||
|
|
||||||
LDA.w #$0CCC
|
LDA.w #$0CCC
|
||||||
STA.w $1006,X
|
STA.w $1006,X
|
||||||
|
|
||||||
LDA.w #$0CDC
|
LDA.w #$0CDC
|
||||||
STA.w $100C,X
|
STA.w $100C,X
|
||||||
|
|
||||||
LDA.w #$0CCD
|
LDA.w #$0CCD
|
||||||
STA.w $1012,X
|
STA.w $1012,X
|
||||||
|
|
||||||
LDA.w #$0CDD
|
LDA.w #$0CDD
|
||||||
STA.w $1018,X
|
STA.w $1018,X
|
||||||
|
|
||||||
LDX.b $06
|
LDX.b $06
|
||||||
|
|
||||||
LDA.w #$0CCC
|
LDA.w #$0CCC
|
||||||
STA.l $7E2000, X
|
STA.l $7E2000, X
|
||||||
LDA.w #$0CDC
|
LDA.w #$0CDC
|
||||||
STA.l $7E2080, X
|
STA.l $7E2080, X
|
||||||
LDA.w #$0CCD
|
LDA.w #$0CCD
|
||||||
STA.l $7E2002, X
|
STA.l $7E2002, X
|
||||||
LDA.w #$0CDD
|
LDA.w #$0CDD
|
||||||
STA.l $7E2082, X
|
STA.l $7E2082, X
|
||||||
|
|
||||||
LDA.w #$01E9
|
LDA.w #$01E9
|
||||||
AND.w #$03FF
|
AND.w #$03FF
|
||||||
TAX
|
TAX
|
||||||
|
|
||||||
LDA.l $7EFE00,X
|
LDA.l $7EFE00,X
|
||||||
AND.w #$00FF
|
AND.w #$00FF
|
||||||
STA.b $08
|
STA.b $08
|
||||||
STA.b $09
|
STA.b $09
|
||||||
|
|
||||||
JMP replace_tile_continue
|
JMP replace_tile_continue
|
||||||
|
}
|
||||||
|
|
||||||
replace_tile_pit:
|
replace_tile_pit:
|
||||||
LDX.w $1000
|
{
|
||||||
|
LDX.w $1000
|
||||||
|
|
||||||
LDA.w #$01E9
|
LDA.w #$01E9
|
||||||
STA.w $1006,X
|
STA.w $1006,X
|
||||||
STA.w $100C,X
|
STA.w $100C,X
|
||||||
STA.w $1012,X
|
STA.w $1012,X
|
||||||
STA.w $1018,X
|
STA.w $1018,X
|
||||||
|
|
||||||
LDX.b $06
|
LDX.b $06
|
||||||
|
|
||||||
LDA.w #$01E9
|
LDA.w #$01E9
|
||||||
STA.l $7E2000, X
|
STA.l $7E2000, X
|
||||||
STA.l $7E2080, X
|
STA.l $7E2080, X
|
||||||
STA.l $7E2002, X
|
STA.l $7E2002, X
|
||||||
STA.l $7E2082, X
|
STA.l $7E2082, X
|
||||||
|
|
||||||
TXA
|
TXA
|
||||||
LSR
|
LSR
|
||||||
TAX
|
TAX
|
||||||
LDA.w #$2020
|
LDA.w #$2020
|
||||||
STA.l $7F2000, X
|
STA.l $7F2000, X
|
||||||
STA.l $7F2040, X
|
STA.l $7F2040, X
|
||||||
|
|
||||||
|
|
||||||
LDA.w #$01E9
|
LDA.w #$01E9
|
||||||
AND.w #$03FF
|
AND.w #$03FF
|
||||||
TAX
|
TAX
|
||||||
|
|
||||||
LDA.l $7EFE00,X
|
LDA.l $7EFE00,X
|
||||||
AND.w #$00FF
|
AND.w #$00FF
|
||||||
STA.b $08
|
STA.b $08
|
||||||
STA.b $09
|
STA.b $09
|
||||||
|
|
||||||
JMP replace_tile_continue
|
JMP replace_tile_continue
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
replace_tile_continue:
|
replace_tile_continue:
|
||||||
|
{
|
||||||
|
LDX.w $1000
|
||||||
|
|
||||||
LDX.w $1000
|
LDA.w #$0000
|
||||||
|
JSR draw_one_corner
|
||||||
|
STA.w $1002,X
|
||||||
|
|
||||||
LDA.w #$0000
|
LDA.w #$0080
|
||||||
JSR draw_one_corner
|
JSR draw_one_corner
|
||||||
STA.w $1002,X
|
STA.w $1008,X
|
||||||
|
|
||||||
LDA.w #$0080
|
LDA.w #$0002
|
||||||
JSR draw_one_corner
|
JSR draw_one_corner
|
||||||
STA.w $1008,X
|
STA.w $100E,X
|
||||||
|
|
||||||
LDA.w #$0002
|
LDA.w #$0082
|
||||||
JSR draw_one_corner
|
JSR draw_one_corner
|
||||||
STA.w $100E,X
|
STA.w $1014,X
|
||||||
|
|
||||||
LDA.w #$0082
|
LDA.w #$0100
|
||||||
JSR draw_one_corner
|
STA.w $1004,X
|
||||||
STA.w $1014,X
|
STA.w $100A,X
|
||||||
|
STA.w $1010,X
|
||||||
|
STA.w $1016,X
|
||||||
|
|
||||||
LDA.w #$0100
|
LDA.w #$FFFF
|
||||||
STA.w $1004,X
|
STA.w $101A,X
|
||||||
STA.w $100A,X
|
|
||||||
STA.w $1010,X
|
|
||||||
STA.w $1016,X
|
|
||||||
|
|
||||||
LDA.w #$FFFF
|
TXA
|
||||||
STA.w $101A,X
|
CLC
|
||||||
|
ADC.w #$0018
|
||||||
TXA
|
STA.w $1000
|
||||||
CLC
|
|
||||||
ADC.w #$0018
|
|
||||||
STA.w $1000
|
|
||||||
|
|
||||||
RTS
|
|
||||||
|
|
||||||
|
RTS
|
||||||
|
}
|
||||||
; ---------------------------------------------------------
|
; ---------------------------------------------------------
|
||||||
|
|
||||||
draw_one_corner:
|
draw_one_corner:
|
||||||
CLC
|
{
|
||||||
ADC.b $06
|
CLC
|
||||||
STA.b $0E
|
ADC.b $06
|
||||||
|
STA.b $0E
|
||||||
|
|
||||||
AND.w #$0040
|
AND.w #$0040
|
||||||
|
|
||||||
LSR A
|
LSR A
|
||||||
LSR A
|
LSR A
|
||||||
LSR A
|
LSR A
|
||||||
LSR A
|
LSR A
|
||||||
|
|
||||||
XBA
|
XBA
|
||||||
STA.b $08
|
STA.b $08
|
||||||
|
|
||||||
LDA.b $0E
|
LDA.b $0E
|
||||||
AND.w #$303F
|
AND.w #$303F
|
||||||
LSR A
|
LSR A
|
||||||
ORA.b $08
|
ORA.b $08
|
||||||
STA.b $08
|
STA.b $08
|
||||||
|
|
||||||
LDA.b $0E
|
LDA.b $0E
|
||||||
AND.w #$0F80
|
AND.w #$0F80
|
||||||
LSR A
|
LSR A
|
||||||
LSR A
|
LSR A
|
||||||
ORA.b $08
|
ORA.b $08
|
||||||
XBA
|
XBA
|
||||||
|
|
||||||
RTS
|
RTS
|
||||||
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user