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