6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-11 11:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Add proper initialization of stash> after abort/error/restart.

Browse Source
This commit is contained in:
Philip Zembrod 2022-01-16 00:29:52 +01:00
parent c612a61455
commit 5dc52454a6
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
8086/msdos/src/include.fb
View File

File diff suppressed because one or more lines are too long

12
8086/msdos/src/include.fth
View File

@ -77,9 +77,9 @@
\ *** Block No. 4, Hexblock 4
\ save/restoretib phz 15jan22
\ save/restoretib phz 16jan22
100 constant /stash
$50 constant /stash
create stash[ /stash allot here constant ]stash
variable stash> stash[ stash> !
@ -96,7 +96,7 @@
\ *** Block No. 5, Hexblock 5
\ interpret-via-tib include phz 15jan22
\ interpret-via-tib include phz 16jan22
: interpret-via-tib
BEGIN freadline >r .status >in off interpret
@ -107,8 +107,8 @@
probe-for-fb isfile@ freset IF 1 load close exit THEN
savetib >r interpret-via-tib close r> restoretib ;
: (stashquit stash[ stash> ! (quit ;
: stashrestore ['] (stashquit IS 'quit ;
' stashrestore IS 'restart