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

Some comments and naming clarifciation around C64 include's freadline

Browse Source
This commit is contained in:
Philip Zembrod 2022-01-06 20:22:31 +01:00
parent 1db5aedfc0
commit b0c4023a54
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
6502/C64/src/vf-cbm-file.fth
View File

@ -14,14 +14,17 @@
create fload-dev 8 , create fload-dev 8 ,
create fload-2nd f , create fload-2nd f ,
| : eol? ( c -- f ) | : eolf? ( c -- f )
\ f=-1: not yet eol; store c and continue
\ f=0: eol but not yet eof; return line and flag continue
\ f=1: not eol but eof; store c, return line and flag eof
dup 0= swap #cr = or IF 0 exit THEN dup 0= swap #cr = or IF 0 exit THEN
i/o-status? IF 1 exit THEN -1 ; i/o-status? IF 1 exit THEN -1 ;
| : freadline ( -- eof ) | : freadline ( -- eof )
fload-dev @ fload-2nd @ busin fload-dev @ fload-2nd @ busin
tib /tib bounds tib /tib bounds
DO bus@ dup eol? under DO bus@ dup eolf? under
IF I c! ELSE drop THEN IF I c! ELSE drop THEN
dup 0< dup 0<
IF drop ELSE I + tib - #tib ! UNLOOP IF drop ELSE I + tib - #tib ! UNLOOP
@ -29,7 +32,7 @@
LOOP /tib #tib ! LOOP /tib #tib !
." warning: line exceeds max " /tib . ." warning: line exceeds max " /tib .
cr ." extra chars ignored" cr cr ." extra chars ignored" cr
BEGIN bus@ eol? 1+ UNTIL BEGIN bus@ eolf? 1+ UNTIL
i/o-status? busoff ; i/o-status? busoff ;