4cade/src/demo/agent.u.s.a.a

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

!cpu 6502
!to "res/DEMO/AGENT.U.S.A",plain
*=$300

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

         +LOAD_XSINGLE title

         lda   #$60
         sta   $36D3
         jsr   $366D      ; decompress

         ldx   #5
-        lda   $100,x
         sta   $300,x
         dex
         bpl   -
         sec
         rol   $3F3       ; point to $300 instead
         jsr   $FB6F

         lda   #$EA
         sta   $15DD
         sta   $15DD+1
         sta   $15DD+2    ; disable button press on main menu

         lda   #$4C
         sta   $0A06
         sta   $1605
         inx
         stx   $0A06+1
         stx   $1605+1
         inx
         stx   $0A06+2
         stx   $1605+2    ; set exits

         lda   #$D0
         sta   $AC64      ; disable sound

         jmp   $837

title    !byte x_e-x_b
x_b      !text "AGENT.U.S.A"
x_e

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