izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:38:05 +11:00
Code Issues Releases Wiki Activity

VE: Add X

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-05 14:01:39 -04:00
parent 6212a08866
commit 9d4e9ef08d
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
blk/109
View File

@ -1,9 +1,9 @@
: E
FBUF _blen EDPOS @ _cpos 2DUP + ( l a1 a1+l )
: X ( len -- , delete len chars after curpos )
EDPOS @ _cpos 2DUP + ( l a1 a1+l )
SWAP _rbufsz MOVE ( l )
( get to next line - l )
DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( l a )
SWAP 0 FILL
EDPOS @ 64 / _pln
;
EDPOS @ 64 / _pln ;
: E FBUF _blen X ;

2
blk/122
View File

@ -5,6 +5,8 @@
'I', 'F' and 'E' invoke the corresponding command from the
Block Editor (B100). Refer to documentation there.
'X' deletes "modifier" characters following cursor.
'R' goes into replace mode at current cursor position.
Following keystrokes replace current character and advance
cursor. Press return to return to normal mode.

1
blk/127
View File

@ -9,6 +9,7 @@
: $I mode! 'I' EMIT 3 1 AT-XY _I contents mode! SPC ;
: $F mode! 'F' EMIT 3 2 AT-XY _F setpos mode! SPC ;
: $E E contents ;
: $X acc@ X contents ;
: $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
: $H 0acc EDPOS @ 0x3c0 AND EDPOS ! ;
: $L 0acc EDPOS @ 0x3f OR EDPOS ! ;