6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-07 16:29:48 +00:00
Code Issues Projects Releases Wiki Activity

Move TIB-capable line comment \ into core code.

Browse Source
This commit is contained in:
Philip Zembrod 2022-03-17 23:02:31 +01:00
parent 41cecebbfa
commit 432048b844
2 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
8086/msdos/src/vf86core.fth
View File

@ -997,7 +997,8 @@ swap ]? C >in #) add
: ( Ascii ) parse 2drop ; immediate
: .( Ascii ) parse type ; immediate
: \ >in @ negate c/l mod >in +! ; immediate
: \ blk @ IF >in @ negate c/l mod >in +!
ELSE #tib @ >in ! THEN ; immediate
: \\ b/blk >in ! ; immediate
: have ( <name> -- f ) name find nip 0<> ; immediate
: \needs have 0=exit [compile] \ ;

19
8086/msdos/src/vf86file.fth
View File

@ -87,22 +87,3 @@
: (stashquit stash[ stash> ! (quit ;
: stashrestore ['] (stashquit IS 'quit ;
' stashrestore IS 'restart
\ *** Block No. 7, Hexblock 7
\ \ phz 25feb22
: \ blk @ IF >in @ negate c/l mod >in +!
ELSE #tib @ >in ! THEN ; immediate
\ : \needs have 0=exit
\ blk @ IF >in @ negate c/l mod >in +!
\ ELSE #tib @ >in ! THEN ;