;license:MIT
;(c) 2022 by qkumba

!cpu 6502
!to "build/DEMO/SPARE.CHANGE#060200",plain
*=$200

         !source "src/constants.a"   ; no code in these
         !source "src/macros.a"

         +READ_RAM2_WRITE_RAM2
         jsr   EnableAccelerator
         +LOAD_FILE_KEEP_DIR spare_change, spare_change_dir_e-spare_change_dir_b
         lda   #>(callback - 1)
         sta   $277A
         lda   #<(callback - 1)
         sta   $277D
         jmp   $2700     ; decompress

callback
         lda   #$4C
         sta   $182F
         jsr   $2000
         lda   #$44
         sta   $7A34
         ldx   #3-1
-        lda   patch,x
         sta   $7F6F,x
         sta   $8E1C,x
         dex
         bpl   -
         +DISABLE_ACCEL
         jmp   $1832

patch    !byte $4C,$00,$01

spare_change
         !byte spare_change_e-spare_change_b
spare_change_b
spare_change_dir_b
         !text "X/SPARE.CHANGE"
spare_change_dir_e
         !text "/SPARE.CHANGE"
spare_change_e

!if * > $3F0 {
  !error "code is too large, ends at ", *
}