;license:MIT
;(c) 2020, 2022 by qkumba

!cpu 6502
!to "build/PRELAUNCH.INDEXED/RADWARRIOR",plain
*=$106

    !source "src/macros.a"

         +RESET_VECTOR $FAA6
         +GET_MACHINE_STATUS
         and   #CHEATS_ENABLED
         beq   +
         ldx   #callback_e-callback_b
-        lda   callback_b,x
         sta   callback,x
         dex
         bpl   -
         lda   #<callback
         sta   $4077
         lda   #>callback
         sta   $4078
+        jmp   $3FD7

callback_b !pseudopc $240 {
callback
         lda   #$4C
         sta   $400E
         jsr   $3FF8
         lda   #$a5
         sta   $D587      ; patch - don't decrease lives
         sta   $EFA9      ; patch - don't decrease lives
+        jmp   $4011
}
callback_e

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