update floor puzzle formatting
This commit is contained in:
@@ -8,9 +8,9 @@ org $01CC00 ; holes_0 tag routine
|
||||
JSL NewTagRoutine
|
||||
RTS
|
||||
|
||||
; org $3A8000
|
||||
pullpc
|
||||
NewTagRoutine:
|
||||
{
|
||||
; 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
|
||||
; kill room tag
|
||||
@@ -20,7 +20,6 @@ STA.w $0224 ; y
|
||||
LDA.b $22 : CLC : ADC #$08 : AND.b #$F0
|
||||
STA.w $0225 ; x
|
||||
|
||||
|
||||
LDA.w $0224 : CMP.w $0226 : BNE .differentTile
|
||||
LDA.w $0225 : CMP.w $0227 : BNE .differentTile
|
||||
JMP .sameTile
|
||||
@@ -55,13 +54,12 @@ SEP #$30
|
||||
LDA.w $0224 : STA.w $0226 ; Last Y
|
||||
LDA.w $0225 : STA.w $0227 ; Last X
|
||||
|
||||
|
||||
|
||||
RTL
|
||||
|
||||
}
|
||||
|
||||
|
||||
update_empty_tile:
|
||||
{
|
||||
STZ.b $0E
|
||||
REP #$30
|
||||
|
||||
@@ -73,9 +71,10 @@ LDA.b #$01
|
||||
STA.b $14
|
||||
REP #$30
|
||||
RTS
|
||||
|
||||
}
|
||||
|
||||
update_star_tile:
|
||||
{
|
||||
STZ.b $0E
|
||||
REP #$30
|
||||
|
||||
@@ -87,8 +86,10 @@ LDA.b #$01
|
||||
STA.b $14
|
||||
REP #$30
|
||||
RTS
|
||||
}
|
||||
|
||||
update_red_star_tile:
|
||||
{
|
||||
STZ.b $0E
|
||||
REP #$30
|
||||
|
||||
@@ -100,9 +101,10 @@ LDA.b #$01
|
||||
STA.b $14
|
||||
REP #$30
|
||||
RTS
|
||||
|
||||
}
|
||||
|
||||
replace_red_tile_star:
|
||||
{
|
||||
LDX.w $1000
|
||||
|
||||
LDA.w #$19EE
|
||||
@@ -133,10 +135,11 @@ STA.b $08
|
||||
STA.b $09
|
||||
|
||||
JMP replace_tile_continue
|
||||
|
||||
}
|
||||
|
||||
|
||||
replace_tile_star:
|
||||
{
|
||||
LDX.w $1000
|
||||
|
||||
LDA.w #$0DEE
|
||||
@@ -167,9 +170,10 @@ STA.b $08
|
||||
STA.b $09
|
||||
|
||||
JMP replace_tile_continue
|
||||
|
||||
}
|
||||
|
||||
replace_tile_empty:
|
||||
{
|
||||
LDX.w $1000
|
||||
|
||||
LDA.w #$0DED
|
||||
@@ -233,10 +237,12 @@ ADC.w #$0018
|
||||
STA.w $1000
|
||||
|
||||
RTS
|
||||
}
|
||||
|
||||
;---------------------------------------------------------------------------------------------------
|
||||
; ---------------------------------------------------------
|
||||
|
||||
draw_one_corner:
|
||||
{
|
||||
CLC
|
||||
ADC.b $06
|
||||
STA.b $0E
|
||||
@@ -265,11 +271,10 @@ ORA.b $08
|
||||
XBA
|
||||
|
||||
RTS
|
||||
|
||||
}
|
||||
|
||||
SearchForEmptyStar:
|
||||
|
||||
|
||||
{
|
||||
LDX.w #$1FFE
|
||||
|
||||
--
|
||||
@@ -285,6 +290,7 @@ STZ.w $0690
|
||||
LDA.b #$05 : STA.b $11
|
||||
LDA.b #$25 : STA $012F
|
||||
STZ.b $AE ; kill room tag!
|
||||
LDA.b #$01 : STA $0466
|
||||
+
|
||||
BRA +
|
||||
.foundEmptyTile
|
||||
@@ -297,11 +303,10 @@ LDA.b #$05 : STA.b $11
|
||||
+
|
||||
|
||||
RTS
|
||||
|
||||
}
|
||||
|
||||
SearchToRedStar:
|
||||
|
||||
|
||||
{
|
||||
LDX.w #$1FFE
|
||||
|
||||
--
|
||||
@@ -320,5 +325,6 @@ STX.b $06
|
||||
JSR update_red_star_tile
|
||||
PLX
|
||||
BRA --
|
||||
}
|
||||
|
||||
pushpc
|
||||
Reference in New Issue
Block a user