; fixed QuickROM

; ExAnimation check
assert read2($808A4E) != $C230, "Please, save a level with ExAnimation in Lunar Magic first."

org $808A4E
       REP #$20
       LDA #$8008
       STA $4300
       LDA.w #AZero
       STA $4302
       LDY.b #AZero>>16
       STY $4304
       LDY #$7E
       STY $2183
       autoclean JML QuickClear

; Macros I stole from Alcaro

macro ClearRAM(start, count)
       LDA.w #<start>
       STA $2181
       LDA.w #<count>
       STA $4305
       LDY #$01
       STY $420B
endmacro

freedata
QuickClear:
       SEI
       %ClearRAM($7E0000, $0100)
       %ClearRAM($7E0200, $1E00)
       LDA #$0000
       STA $7F837B
       STA $7FC0C0          ;\
       STA $7FC0C7          ; |
       STA $7FC0CE          ; |
       STA $7FC0D5          ; | restore LM's hijack
       STA $7FC0DC          ; | (i have no idea what these are, maybe manual ExAnimation triggers?)
       STA $7FC0E3          ; |
       STA $7FC0EA          ; |
       STA $7FC0F1          ;/
       SEP #$20
       DEC
       STA $7F837D
       CLI
       JML $808A78

AZero:
       db $00               ; literally.