VolksForth/8080/CPM/tests/log2file.fb

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ log2file loadscreen                                phz 01jun23                                                                  1 3 +thru                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \ 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 ;                                                                                         \ 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? ;                                                                                                                                                                                                                \ logopen                                            phz 01jul23                                                                  : logopen  ( -- )                                                   logfile filenamelen + 1+ fcb\nam erase                          logfile killfile                                                logfile createfile                                              alsologtofile ;                                                                                                             : logclose  ( -- )                                                  cr display  logflush  logfile closefile ;