From 8999c3286f3c57c976c58f5cdea278ef196982e3 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Sun, 7 Jan 2024 14:13:08 -0800 Subject: [PATCH] Auto SRC plasma.4th at PLFORTH startup --- images/apple/PLFORTH.PO | Bin 143360 -> 143360 bytes src/toolsrc/plforth.pla | 7 ++++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO index 980ed0294c058b363489013cdfb9814d279a7d69..80f5dc06dbac53429eed92837ba2c0bf8acb5baa 100755 GIT binary patch delta 891 zcmZ8fOH30{6utNHT82(LR6bS=Hk~w3AWBfdPd8dgktQRpWk`r7Y7-WO6eUPBk|@+v zB{43biA{6`i&6Z6od_FT8Qi)w8Z=FGfEHzWrI7 z`tGYKZ?+6YBUc9_&8;K-s`Y^GTenv>#S|GPgYv$~u!^j0 zX->wp3iM75h`Jd4O^K&e+rZQiV~ebcJU;vU#Y@Vqp|*#aH8W!i7qA-ZK6bZ<10l6L z$1WY^aX^3q=0qv!y@>DGtJk@nnuQrk;fuTvsme0461XJ>|)b!}r4h!}3N zh}Hy2{h@<#L^@YBl_)ufT)RZJie}BqgoOEKk QOW2K>0j6;x*2yaV0n$9t761SM delta 667 zcmY+B-%C?r7{}k|@tig0&e?FYny%p(+cd-^EouZAsc5X6vx1;sOQ9O6%gwA+y4epR z>0+IW1KsJxOKGL<&~{^&_CFK^i@J?2f-P{J)4Po=ec^d|-tUL+!^`(cngmmr0B7gti0XZ#DDxVHi;_i+XAE2KqzkF_N_I(0J=iynyF3Ps05 z9o?}T0;4}*DbPfl5UC#!47>7fzHu+iL32$Fg)2@dsc z&q{qufXqNys%5;w@>qqXQ%F_dGMAwd+{8b4rf=lGQ~gGGGPi4|Pxf7bPZW{MjDhE^UzYBxJCBMi|kQeu)LXvHfWQ7ZKt~n zRq87+YLmy9Q1dR-=xPCmsSb7Wu|^cLq7|?4@`4SgS$xgZ&h~$i?Yxe!2B&4U5CBpm X>S+*=GZ+Ptu_A3npyxqH9oX;>3pA?H diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla index a0535f1..adc7664 100644 --- a/src/toolsrc/plforth.pla +++ b/src/toolsrc/plforth.pla @@ -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