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