;license:MIT
;(c) 2021-2022 by Frank M., qkumba

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

    !source "src/macros.a"

         lda   $7fe
         pha
         +ENABLE_ACCEL
         pla
         sta   $7fe       ; overwritten by GS acceleration

         lda   #$60
         sta   $6020
         jsr   $6002      ; decompress

         lda   #$30       ; fix sound on //gs
         sta   $1A35      ; enemy destruct
         sta   $1D9E      ; player destruct
         sta   $1C36      ; bonus ship
         sta   $1CCB      ; kill bonus ship

         lda   #$D8       ; move location from $3F2 to $3D8
         sta   $1113      ; (program uses reset vector for storage)
         sta   $1245
         sta   $4A2C
         sta   $4A34
         sta   $4A41
         sta   $5A9C
         sta   $5AA4
         sta   $5AB1
         sta   $5A9C

         lda   #$D9       ; move location from $3F3 to $3D9
         sta   $1FA0
         sta   $4A31
         sta   $4F4D
         sta   $5AA1

         lda   #$DA       ; move location from $3F4 to $3DA
         sta   $11AF
         sta   $1824
         sta   $19DF
         sta   $1DE8
         sta   $1E5A

         +READ_RAM2_NO_WRITE
         lda   MachineStatus
         and   #CHEATS_ENABLED
         beq   +
         lda   #$A5
         sta   $1997      ; patch - don't increase lives
         sta   $1E33      ; patch - don't decrease lives
+
         lda   $7fe
         pha
         jsr   DisableAccelerator
         +READ_ROM_NO_WRITE
         pla
         sta   $7fe       ; overwritten by GS acceleration
         jmp   $5F00

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