This commit is contained in:
~d6 2022-03-11 00:48:52 -05:00
parent ed20ad7865
commit 80a4731d72
1 changed files with 14 additions and 4 deletions

View File

@ -521,13 +521,23 @@
@term-erase-all ( -> )
ansi LIT '2 emit LIT 'J emit JMP2r
@offset-for-cur-row
.buffer/offset LDZ2 ( offset )
#0000 ;cur-rel-row JSR2 SUB2 STH2 ( offset [-k] )
&loop STH2r ORA ,&next JCN
POP2r JMP2r
&next LDAk #0a NEQ JMP INC2r
INC2 ,&loop JMP
@draw-cursor ( -> )
;cur-w-col JSR2 .term/lmargin LDZ2 ADD2
DUP2 .term/cols LDZ2 LTH2 ,&ok JCN
( TODO: handle long line here )
.term/cols LDZ2 LTH2 ,&ok JCN
( we have a long line )
( ;offset-for-cur-row JSR2 )
&ok
;cur-rel-row JSR2
;term-move-cursor JMP2
;cur-w-col JSR2 .term/lmargin LDZ2 ADD2
;cur-rel-row JSR2
;term-move-cursor JMP2
@draw-statusbar ( -> )
#0000 .term/rows LDZ2 ;term-move-cursor JSR2