grid: fix PSP leak on newline

This commit is contained in:
Virgil Dupras 2020-11-17 11:19:37 -05:00
parent 57fd14b0b3
commit 30da1bd75b

2
blk.fs
View File

@ -2230,7 +2230,7 @@ Load range: B402-B403
DUP 0x0d = IF DROP _lf EXIT THEN
DUP 0x20 < IF DROP EXIT THEN
XYPOS @ CELL!
XYPOS @ 1+ DUP COLS MOD IF XYPOS! ELSE _lf THEN ;
XYPOS @ 1+ DUP COLS MOD IF XYPOS! ELSE DROP _lf THEN ;
: GRID$ 0 XYPOS ! 0 XYMODE C! ;
( ----- 410 )
PS/2 keyboard subsystem