diff --git a/PLASMA-SYS2.PO b/PLASMA-SYS2.PO index 9d3049a..d81c825 100755 Binary files a/PLASMA-SYS2.PO and b/PLASMA-SYS2.PO differ diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla index 28125ba..cd33088 100755 --- a/src/vmsrc/apple/cmd.pla +++ b/src/vmsrc/apple/cmd.pla @@ -1328,6 +1328,7 @@ end // Command line processor // def docmds#0 + strcpy(getlnbuf, @cmdln) while 1 if ^getlnbuf strcpy(@cmdln, getlnbuf) @@ -1406,7 +1407,7 @@ syscmdln = @cmdln // autorun = open(@autorun) if autorun - ^getlnbuf = read(autorun, getlnbuf + 1, 128) + cmdln = read(autorun, @cmdln+1, 81) close(0) else // diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla index 1c347f2..c3af10c 100755 --- a/src/vmsrc/apple/cmdjit.pla +++ b/src/vmsrc/apple/cmdjit.pla @@ -1399,6 +1399,7 @@ def docmds#0 loadmod(jitmod) // Cannot do this in init code - it will overwrite it! xheap = $0400 // Reset heap to point at low memory xheaptop = $A000 // Top below JITC + strcpy(getlnbuf, @cmdln) while 1 if ^getlnbuf strcpy(@cmdln, getlnbuf) @@ -1477,7 +1478,7 @@ syscmdln = @cmdln // autorun = open(@autorun) if autorun - ^getlnbuf = read(autorun, getlnbuf + 1, 128) + cmdln = read(autorun, @cmdln+1, 81) close(0) else // diff --git a/src/vmsrc/apple/cmdjitstub.s b/src/vmsrc/apple/cmdjitstub.s index 4f8957a..6205272 100644 --- a/src/vmsrc/apple/cmdjitstub.s +++ b/src/vmsrc/apple/cmdjitstub.s @@ -8,10 +8,16 @@ LCBNK1 = $08 JITCOMP = $03E2 JITCODE = $03E4 !SOURCE "vmsrc/plvmzp.inc" + JMP CMDMOVE +_CMDBEGIN = * +!PSEUDOPC $1000 { +!SOURCE "vmsrc/apple/cmdjit.a" +_CMDEND = * +} ;* ;* MOVE CMD DOWN TO $1000-$2000 ;* - LDA #<_CMDBEGIN +CMDMOVE LDA #<_CMDBEGIN STA SRCL LDA #>_CMDBEGIN STA SRCH @@ -19,6 +25,7 @@ JITCODE = $03E4 STY DSTL LDX #$10 STX DSTH + INX - LDA (SRC),Y STA (DST),Y INY @@ -44,8 +51,3 @@ JITCODE = $03E4 TXS LDX #ESTKSZ/2 ; INIT EVAL STACK INDEX JMP $1000 -_CMDBEGIN = * -!PSEUDOPC $1000 { -!SOURCE "vmsrc/apple/cmdjit.a" -_CMDEND = * -}