mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +00:00
96 lines
1.3 KiB
Forth
96 lines
1.3 KiB
Forth
|
|
\ *** Block No. 0, Hexblock 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
\ *** Block No. 1, Hexblock 1
|
|
|
|
\ log2file loadscreen phz 01jun23
|
|
|
|
1 3 +thru
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
\ *** Block No. 2, Hexblock 2
|
|
|
|
\ logfile phz 01jul23
|
|
|
|
Dos also Forth definitions
|
|
|
|
$18 constant fcb\nam
|
|
create logfile ," LOGFILE TXT" fcb\nam allot 1 logfile c!
|
|
create logdma b/rec allot
|
|
variable logoffset 0 logoffset !
|
|
|
|
: logflush logdma dma! logfile write-seq ;
|
|
|
|
: logc! ( c -- )
|
|
logoffset @ dup >r logdma + c! r> 1+
|
|
dup logoffset ! b/rec =
|
|
IF logflush 0 logoffset ! THEN ;
|
|
|
|
|
|
\ *** Block No. 3, Hexblock 3
|
|
|
|
\ log-emit log-type log-cr alsologtofile pphz 01jul23
|
|
|
|
: log-emit ( char -- )
|
|
dup (emit logc! ;
|
|
|
|
: log-type ( addr count -- )
|
|
2dup (type 0 ?DO count logc! LOOP drop ;
|
|
|
|
: log-cr ( -- )
|
|
(cr #cr logc! #lf logc! ;
|
|
|
|
Output: alsologtofile
|
|
log-emit log-cr log-type (del (page (at (at? ;
|
|
|
|
|
|
|
|
|
|
\ *** Block No. 4, Hexblock 4
|
|
|
|
\ logopen phz 01jul23
|
|
|
|
: logopen ( -- )
|
|
logfile filenamelen + 1+ fcb\nam erase
|
|
logfile killfile
|
|
logfile createfile
|
|
alsologtofile ;
|
|
|
|
: logclose ( -- )
|
|
cr display &26 logc! logflush logfile closefile ;
|
|
|
|
|
|
|
|
|
|
|
|
|