Prototype edge debugging
This commit is contained in:
@@ -33,8 +33,6 @@ LoadEdgeRoomHorz:
|
||||
ldy #$00 : jsr ShiftVariablesMainDir
|
||||
lda $a0 : and.b #$F0 : lsr #3 : sta $0603 : inc : sta $0607
|
||||
|
||||
|
||||
lda $aa : asl : tax ; current quad as 0/4
|
||||
lda $04 : and #$40 : bne +
|
||||
lda $603 : sta $00 : stz $01 : bra ++
|
||||
+ lda $607 : sta $00 : lda #$02 : sta $01
|
||||
@@ -71,9 +69,9 @@ LoadEdgeRoomHorz:
|
||||
|
||||
.done sta $ab : sep #$30
|
||||
lda $0e : asl : ora $ac : sta $ac
|
||||
lda $0603, x : sta $e9
|
||||
lda $e9 : and #$01 : asl #2 : tax : lda $0603, x : sta $e9
|
||||
|
||||
lda $04 : and #$80 : lsr #4 : sta $ee ; layer stuff
|
||||
lda $04 : and #$10 : lsr #4 : sta $ee ; layer stuff
|
||||
rts
|
||||
|
||||
LoadEdgeRoomVert:
|
||||
@@ -83,7 +81,6 @@ LoadEdgeRoomVert:
|
||||
ldy #$01 : jsr ShiftVariablesMainDir
|
||||
lda $a0 : and.b #$0f : asl : sta $060b : inc : sta $060f
|
||||
|
||||
lda $a9 : asl #2 : tax ; current quad as 0/4
|
||||
lda $04 : and #$20 : bne +
|
||||
lda $60b : sta $00 : stz $01 : bra ++
|
||||
+ lda $60f : sta $00 : lda #$01 : sta $01
|
||||
@@ -120,7 +117,7 @@ LoadEdgeRoomVert:
|
||||
|
||||
.done sta $ab : sep #$30
|
||||
lda $0e : asl : ora $ac : sta $ac
|
||||
lda $060b, x : sta $e3
|
||||
lda $e3 : and #$01 : asl #2 : tax : lda $060b, x : sta $e3
|
||||
|
||||
lda $04 : and #$10 : lsr #4 : sta $ee ; layer stuff
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user