diff --git a/src/vmsrc/apple/cmdjitstub.s b/src/vmsrc/apple/cmdjitstub.s index ab4e8f9..8e926dd 100644 --- a/src/vmsrc/apple/cmdjitstub.s +++ b/src/vmsrc/apple/cmdjitstub.s @@ -1,55 +1,55 @@ -INTERP = $03D0 -LCRDEN = $C080 -LCWTEN = $C081 +INTERP = $03D0 +LCRDEN = $C080 +LCWTEN = $C081 ROMEN = $C082 -LCRWEN = $C083 -LCBNK2 = $00 -LCBNK1 = $08 -JITCOMP = $03E2 -JITCODE = $03E4 - !SOURCE "vmsrc/plvmzp.inc" +LCRWEN = $C083 +LCBNK2 = $00 +LCBNK1 = $08 +JITCOMP = $03E2 +JITCODE = $03E4 +!SOURCE "vmsrc/plvmzp.inc" ;* ;* MOVE CMD DOWN TO $1000-$2000 ;* - LDA #<_CMDBEGIN - STA SRCL - LDA #>_CMDBEGIN - STA SRCH - LDY #$00 - STY DSTL - LDX #$10 - STX DSTH -- LDA (SRC),Y - STA (DST),Y - INY - BNE - - INC SRCH - INC DSTH - DEX ; STOP WHEN DST=$2000 REACHED - BNE - - LDA #<_CMDEND - STA SRCL - LDA #>_CMDEND - STA SRCH + LDA #<_CMDBEGIN + STA SRCL + LDA #>_CMDBEGIN + STA SRCH + LDY #$00 + STY DSTL + LDX #$10 + STX DSTH +- LDA (SRC),Y + STA (DST),Y + INY + BNE - + INC SRCH + INC DSTH + DEX ; STOP WHEN DST=$2000 REACHED + BNE - + LDA #<_CMDEND + STA SRCL + LDA #>_CMDEND + STA SRCH ; ; INIT VM ENVIRONMENT STACK POINTERS ; - STY PPL - STY IFPL ; INIT FRAME POINTER - STY JITCOMP - STY JITCOMP+1 - STY JITCODE - LDA #$B0 - STA PPH - STA IFPH - STA JITCODE+1 - LDX #$FE ; INIT STACK POINTER (YES, $FE. SEE GETS) - TXS - LDX #ESTKSZ/2 ; INIT EVAL STACK INDEX + STY JITCOMP + STY JITCOMP+1 + STY PPL + STY IFPL ; INIT FRAME POINTER + STY JITCODE + LDA #$AF + STA PPH + STA IFPH + STA JITCODE+1 + LDX #$FE ; INIT STACK POINTER (YES, $FE. SEE GETS) + TXS + LDX #ESTKSZ/2 ; INIT EVAL STACK INDEX - JMP $1000 -_CMDBEGIN = * - !PSEUDOPC $1000 { - !SOURCE "vmsrc/apple/cmdjit.a" -_CMDEND = * + JMP $1000 +_CMDBEGIN = * +!PSEUDOPC $1000 { +!SOURCE "vmsrc/apple/cmdjit.a" +_CMDEND = * } diff --git a/src/vmsrc/apple/plvmjit02.s b/src/vmsrc/apple/plvmjit02.s index cf16ce5..979ef67 100755 --- a/src/vmsrc/apple/plvmjit02.s +++ b/src/vmsrc/apple/plvmjit02.s @@ -339,7 +339,7 @@ CMDENTRY = * STA $01FF ; CLEAR CMDLINE BUFF STA PPL ; INIT FRAME POINTER STA IFPL - LDA #$B0 ; FRAME POINTER AT $B000, BELOW JIT BUFFER + LDA #$AF ; FRAME POINTER AT $AF00, BELOW JIT BUFFER STA PPH STA IFPH LDX #$FE ; INIT STACK POINTER (YES, $FE. SEE GETS)