6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-10 10:30:58 +00:00
Code Issues Projects Releases Wiki Activity

Auto SRC plasma.4th at PLFORTH startup

Browse Source
This commit is contained in:
David Schmenk 2024-01-07 14:13:08 -08:00
parent bb4e0ee773
commit 8999c3286f
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

7
src/toolsrc/plforth.pla
View File

@ -1994,12 +1994,13 @@ if cmdsys:sysver < $0201
puts("PLASMA >= 2.01 required\n")
return
fin
_estkl = ^(@syscall + 1) // Hack to fill in parameter stack locations
_estkh = ^(@syscall + 3)
_estkl = ^(@syscall + 1) // Hack to fill in parameter stack locations
_estkh = ^(@syscall + 3)
fileio:iobufalloc(4) // Allocate a bunch of file buffers
startheap = heapmark
coldstart
inptr = argNext(argFirst)
_src_("plasma.4th")
inptr = argNext(argFirst)
if not except(@exit)
if ^inptr; inptr++; _srcstr_; fin
interpret