Added erase

This commit is contained in:
neauoire 2021-03-08 12:35:30 -08:00
parent 2ce3f60cdc
commit 2afeee9ed5
1 changed files with 19 additions and 8 deletions

View File

@ -63,24 +63,35 @@ BRK
( keys )
,no-keys ~dev/key #00 EQU JMP? POP2
,keys-end ~dev/key #00 EQU JMP? POP2
,no-backspace ~dev/key #08 NEQ JMP? POP2
( erase )
~position.x #0001 SUB2 =position.x ,select JSR
~document.eof #0001 SUB2 =document.eof
~selection.from =j ( start -> end )
@erase-loop
~j #0001 ADD2 LDR ~j STR
( incr ) ~j #0001 ADD2 =j
,erase-loop ~j ~document.eof LTH2 JMP? POP2
( release ) #00 =dev/key
,redraw JSR
,keys-end JMP
@no-backspace
( insert )
~document.eof #0001 ADD2 =document.eof
~document.eof =j ( end -> start )
@insert-loop
~j #0001 SUB2 LDR ~j STR
( decr ) ~j #0001 SUB2 =j
,insert-loop ~j ~selection.from GTH2 JMP? POP2
~dev/key ~selection.from STR
~position.x #0001 ADD2 =position.x ,select JSR
( release ) #00 =dev/key
,redraw JSR
@no-keys
@keys-end
( mouse )