fix bug with move-to-col

This commit is contained in:
~d6 2023-02-02 22:18:58 -05:00
parent 95e9b30810
commit 9287631556
1 changed files with 2 additions and 2 deletions

View File

@ -434,7 +434,7 @@
@end-arg ( c^ -> )
;on-read .Console/vect DEO2
( DUP debug-csi )
( DUP debug-csi )
DUP LIT "d EQU ?exec-move-row ( move cursor to row )
DUP LIT "h EQU ?exec-set-mode ( enable line wrap )
DUP LIT "l EQU ?exec-reset-mode ( disable line wrap )
@ -568,7 +568,7 @@
@exec-move-col ( c^ -> )
POP
.cur-y LDZ2 ( row )
#0001 read-arg-2 dec-floor ( col )
#0001 read-arg-1 dec-floor ( col )
goto BRK
@exec-move ( c^ -> )