;@xkas
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Castlevania HoD type dashing by SMS
; Based on:
;
; LR Hook - Version 1.1
; By Smallhacker
; 
; Disables L/R and prepares them to be used for other stuff
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;CHANGE THIS ADDRESS TO A FREE SECTION OF THE ROM!
!freeSpace = $090200

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

macro RATS_start(id)
db "STAR"
dw RATS_Endcode<id>-RATS_Startcode<id> 
dw RATS_Endcode<id>-RATS_Startcode<id>^#$FFFF 
RATS_Startcode<id>: 
endmacro

macro RATS_end(id)
RATS_Endcode<id>: 
endmacro

lorom
header

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

!Posefront = $durp
!Poseback = $hurp
!Timer = $derp

;Disable L/R scrolling
org $00CDF6
    BRA lrSkip
    
org $00CE49
lrSkip:

;Hijack the status bar routine
org $008F49
	JSL NewRoutine

org !freeSpace
%RATS_start(0)

NewRoutine:
    LDA $18
    AND #$20
    BNE buttonL
    LDA $18
    AND #$10
    BEQ Return
    LDA $17
    AND #$20
    BNE Return
    
    LDA $77
    AND #$04
    BEQ Return

    LDA $15
    AND #$F0
    STA $15
    LDA $76
    BNE BackR
    LDA #$32
    STA $13E0
    LDA #$2A
    STA $7B 
    BRA Wall
    BackR:
    LDA #$0D
    STA $13E0
    LDA #$2A
    STA $7B 
    BRA Wall
    BRA Return

buttonL:
    LDA $17
    AND #$10
    BNE Return
        
    LDA $77
    AND #$04
    BEQ Return
    
    LDA $15
    AND #$F0
    STA $15
    LDA $76
    BNE BackL
    LDA #$0D
    STA $13E0
    LDA #$D5
    STA $7B
    BRA Wall
    BackL:
    LDA #$32
    STA $13E0
    LDA #$D5
    STA $7B
    BRA Wall
    BRA Return

Wall:
    LDA $77
    AND #$03
    BEQ Return
    STZ $7B

Return:
	LDA $0DBE
	INC A 
    RTL

%RATS_end(0)