Closed jkotlinski closed 1 year ago
My best guess?
loop LDA $90 ; get STATUS flags
BNE .eof ; either EOF or error
JSR $FFA5 ; call IECIN (get byte from IEC bus)
JSR $FFD2 ; call CHROUT (print byte to screen)
JMP .loop ; next byte
.eof JSR $FFAB ; call UNTLK <--------=
JMP $FFCC ; CLRCHN <----------=
in _errorchread
That does not seem to help.
It completes the save?
When compiling Durexforth initially, the final line in base.fs (
".( ok!) cr"
) does not execute.It works again when commenting out the
saveb
call insave-pack
.