INTERP  =       $03D0
LCRDEN  =       $C080
LCWTEN  =       $C081
ROMEN   =       $C082
LCRWEN  =       $C083
LCBNK2  =       $00
LCBNK1  =       $08
JITCOMP =       $03E2
JITCODE =       $03E4
!SOURCE "vmsrc/plvmzp.inc"
;*
;* MOVE CMD DOWN TO $0C00-$1C00
;*
        LDA     #<_CMDBEGIN
        STA     SRCL
        LDA     #>_CMDBEGIN
        STA     SRCH
        LDY     #$00
        STY     DSTL
        LDX     #$0C
        STX     DSTH
        LDX     #$11
-       LDA     (SRC),Y
        STA     (DST),Y
        INY
        BNE     -
        INC     SRCH
        INC     DSTH
        DEX                 ; STOP WHEN DST=$1C00 REACHED
        BNE     -
;
; INIT VM ENVIRONMENT STACK POINTERS
;
        STY     $01FF
        STY     JITCODE     ; INIT JIT CODE TO $AF00
        STY     JITCOMP
        STY     JITCOMP+1
        LDA     #$AF
        STA     JITCODE+1
        STY     PPL
        STY     IFPL        ; INIT FRAME POINTER = $A800 (4K FOR JIT CODE 768 BYTES SYM)
        LDA     #$A8        ; FRAME POINTER BELOW JIT CODE AND SYM TABLE
        STA     PPH
        STA     IFPH
        LDX     #$FE        ; INIT STACK POINTER (YES, $FE. SEE GETS)
        TXS
        LDX     #ESTKSZ/2   ; INIT EVAL STACK INDEX
        JMP     $0C00
_CMDBEGIN   =   *
!PSEUDOPC   $0C00 {
!SOURCE "vmsrc/apple/cmdjit.a"
_CMDEND     =   *
}
