alttpr-gwaa-kiwi/alttpr-python
1
0
Fork 0
Code Issues Pull Requests Packages Releases Activity

Prototype edge debugging

Browse Source
This commit is contained in:
aerinon
2020-03-07 22:15:27 -07:00
parent 268975263e
commit d3696a2752
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
asm/edges.asm
View File

@@ -33,8 +33,6 @@ LoadEdgeRoomHorz:
ldy #$00 : jsr ShiftVariablesMainDir ldy #$00 : jsr ShiftVariablesMainDir
lda $a0 : and.b #$F0 : lsr #3 : sta $0603 : inc : sta $0607 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 $04 : and #$40 : bne +
lda $603 : sta $00 : stz $01 : bra ++ lda $603 : sta $00 : stz $01 : bra ++
+ lda $607 : sta $00 : lda #$02 : sta $01 + lda $607 : sta $00 : lda #$02 : sta $01
@@ -71,9 +69,9 @@ LoadEdgeRoomHorz:
.done sta $ab : sep #$30 .done sta $ab : sep #$30
lda $0e : asl : ora $ac : sta $ac 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 rts
LoadEdgeRoomVert: LoadEdgeRoomVert:
@@ -83,7 +81,6 @@ LoadEdgeRoomVert:
ldy #$01 : jsr ShiftVariablesMainDir ldy #$01 : jsr ShiftVariablesMainDir
lda $a0 : and.b #$0f : asl : sta $060b : inc : sta $060f 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 $04 : and #$20 : bne +
lda $60b : sta $00 : stz $01 : bra ++ lda $60b : sta $00 : stz $01 : bra ++
+ lda $60f : sta $00 : lda #$01 : sta $01 + lda $60f : sta $00 : lda #$01 : sta $01
@@ -120,7 +117,7 @@ LoadEdgeRoomVert:
.done sta $ab : sep #$30 .done sta $ab : sep #$30
lda $0e : asl : ora $ac : sta $ac 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 lda $04 : and #$10 : lsr #4 : sta $ee ; layer stuff
rts rts