6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-12 14:29:54 +00:00
Code Issues Projects Releases Wiki Activity

Fix ?EXEC definition self referencing

Browse Source
This commit is contained in:
David Schmenk 2024-01-25 15:15:14 -08:00
parent f3ac3035ba
commit 8d92e854ae
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLASMA-2.1-INST.po
View File

Binary file not shown.

BIN
images/apple/PLASMA2.2mg
View File

Binary file not shown.

12
src/scripts/hdinstall2.4th
View File

@ -1,19 +1,24 @@
SRC" plasma.4th"
SRC" conio.4th"
0 VARIABLE RESUMEXT
0 VARIABLE EXECXT
: RESUME> ; ( PLACE HOLDER TO RESUME EXECUTION )
' RESUME> RESUMEXT !
: ?EXEC ( F -- )
NOT IF ( SKIP CODE IN BETWEEN ?EXEC AND RESUME> )
1 >R
BEGIN
BL WORD FIND IF
CASE
' RESUME> OF
RESUMEXT @ OF
R> 1- ?DUP 0= IF ( EXIT IF FINAL RESUME> )
DROP EXIT
THEN
>R
ENDOF
' ?EXEC OF ( CHECK FOR NESTED ?EXEC )
EXECXT @ OF ( CHECK FOR NESTED ?EXEC )
R> 1+ >R
ENDOF
ENDCASE
@ -23,6 +28,7 @@ SRC" conio.4th"
AGAIN
THEN
;
' ?EXEC EXECXT !
: STRING CREATE 256 ALLOT DOES> ; ( JUST ALLOCATE THE BIGGEST STRING POSSIBLE )
@ -102,7 +108,7 @@ CONFIRM" Copy build tools?"
RESUME>
FILELIST " AUTORUN HDINSTALL.4TH"
FILELIST " AUTORUN HDINSTALL.4TH" STRCPY
" DEL" SWAP LOADMOD
0 0 40 24 VIEWPORT