6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-14 03:31:02 +00:00
Code Issues Projects Releases Wiki Activity

Cleanup for release

Browse Source
This commit is contained in:
David Schmenk 2023-03-19 08:51:17 -07:00
parent 3d1c3e9407
commit 976581b1c1
6 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/toolsrc/ed.pla
View File

@ -1615,7 +1615,7 @@ def cmdmode#0
word cmdptr, line
clrscrn
puts("PLASMA Editor, Version 2.0 BETA\n")
puts("PLASMA Editor, Version 2.0\n")
while not exit
puts(@filename)
cmdptr = gets($BA)

2
src/toolsrc/plasm.pla
View File

@ -508,7 +508,7 @@ include "toolsrc/parse.pla"
//
// Look at command line arguments and compile module
//
puts("PLASMA Compiler, Version 2.0 BETA\n")
puts("PLASMA Compiler, Version 2.0\n")
arg = argNext(argFirst)
if ^arg and ^(arg + 1) == '-'
opt = arg + 2

2
src/vmsrc/apple/cmd.pla
View File

@ -1332,7 +1332,7 @@ def docmds#0
is '/'
repeat
^prefix--
until prefix->[^prefix] == '/'
until ^(prefix + ^prefix) == '/'
if ^prefix > 1
pfxop(prefix, SET_PFX)
fin

2
src/vmsrc/apple/cmdjit.pla
View File

@ -1402,7 +1402,7 @@ def docmds#0
is '/'
repeat
^prefix--
until prefix->[^prefix] == '/'
until ^(prefix + ^prefix) == '/'
if ^prefix > 1
pfxop(prefix, SET_PFX)
fin

3
src/vmsrc/apple/soscmd.pla
View File

@ -181,6 +181,7 @@ def shell#1
//
// Handle commands.
//
getpfx(@prefix))
repeat
if ^cmdptr
when toupper(parsecmd(cmdptr))
@ -211,9 +212,7 @@ def shell#1
volumes
break
is '+'
//cmdsys:modexec(striptrail(cmdptr))
return striptrail(cmdptr)
//cmdsys:syswrite(cmdsys.refcons, @textmode, 3)
break
otherwise
puts("?\n")

3
src/vmsrc/apple/soscmdjit.pla
View File

@ -256,6 +256,7 @@ def shell#1
//
// Handle commands.
//
getpfx(@prefix))
repeat
if ^cmdptr
when toupper(parsecmd(cmdptr))
@ -287,9 +288,7 @@ def shell#1
break
is '+'
*jitcodeptr = jitcbuf
//cmdsys:modexec(striptrail(cmdptr))
return striptrail(cmdptr)
//cmdsys:syswrite(cmdsys.refcons, @textmode, 3)
break
otherwise
puts("?\n")