;license:MIT
;(c) 2020 by qkumba/Frank M.

!cpu 6502
!to "build/PRELAUNCH/ZAXXON",plain
*=$106

    !source "src/prelaunch/common.a"

         +READ_RAM2_NO_WRITE
         lda   MachineStatus
         pha
         lda   MockingboardStuff
         pha
         lda   #$60
         sta   $41C6
         jsr   $4000      ; decompress
         pla
         beq   @skip_mb
         pha
         jsr   $D15B      ; decompress Mockingboard code
         tax
         pla
         ora   #$C0
-        ldy   $70B, x
         cpy   #$C4
         bne   +
         sta   $70B, x
+        inx
         bne   -
         sta   $81D
         inc   $BF87

@skip_mb
         pla
         and   #CHEATS_ENABLED
         beq   +
         ldy   #$bd
         sty   $1a40
         sty   $1a61
+        +READ_RAM2_WRITE_RAM2

         +LC_REBOOT
         +READ_RAM2_WRITE_RAM2
         ldy   #0
         jmp   $41D0

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