RLXCreditsWarpHelper-J.asm

lorom

org $008F8A

JSR StatusBar
NOP

org $00FF30
StatusBar:
			LDX #$20
			LDY #$30
StatusBarLoop:
			LDA MemWatch-2,x
			STA $00
			LDA MemWatch-1,x
			STA $01
			LDA [$00]
			AND #$0F
			STA $0EF8,y
			LDA [$00]
			LSR A
			LSR A
			LSR A
			LSR A
			STA $0EF7,y
			LDA #$FC
			STA $0EF6,y
			DEX
			DEX
			DEY
			DEY
			DEY
			BNE StatusBarLoop
SpitPos:
			LDA #$FC
			STA $0F2C
			STA $0F2D
			STA $0F2E
			STA $0F2F
			LDX #$0A
SpriteLoop:
			DEX
			BPL Continue
			RTS
Continue:
			LDA $9E,X
			CMP #$05
			BNE SpriteLoop
			LDA $14C8,X
			CMP #$07
			BNE SpriteLoop
			LDA $D1
			LDY $76
			ADC FacingOffset,y
			PHA
			AND #$0F
			STA $0F2E
			PLA
			LSR A
			LSR A
			LSR A
			LSR A
			STA $0F2D
			RTS

FacingOffset:
			DB	$ED, $11
MemWatch:
			DW $182A
			DW $1829
			DW $0300
			DW $02F4
			DW $00E4
			DW $00E5
			DW $00E6
			DW $00E7
			DW $00E8
			DW $00E9
			DW $1A06
			DW $421A
			DW $421B
			DW $421C
			DW $421D
			DW $0017