;license:MIT
;(c) 2021 by Frank M.

!cpu 6502
!to "res/DEMO/PLASMANIA",plain
*=$200

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

         +READ_RAM2_WRITE_RAM2
         +LOAD_FILE_AT title, $00

         lda   #>(callback-1)
         sta   $84E
         lda   #<(callback-1)
         sta   $851
         lda   #$60
         sta   $853       ; skip loading PLASMANIA.SND
         jmp   $800

callback
         lda   #$2C
         sta   $7352      ; silence voice

         lda   #$4C
         sta   $609C
         sta   $6139
         sta   $614C
         sta   $65B7
         sta   $8C31
         sta   $8C5B
         lda   #0
         sta   $609C+1
         sta   $6139+1
         sta   $614C+1
         sta   $65B7+1
         sta   $8C31+1
         sta   $8C5B+1
         sta   $87BE
         sta   $87CC
         sta   $8AEE
         sta   $8B89
         sta   $8B91
         sta   $8C21       ; disable sound
         lda   #1
         sta   $609C+2
         sta   $6139+2
         sta   $614C+2
         sta   $65B7+2
         sta   $8C31+2
         sta   $8C5B+2     ; set exits

         jmp   $6000

title    !byte x_e-x_b
x_b      !text "X/PLASMANIA/PLASMANIA"
x_e

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