mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 10:30:55 +11:00
Compare commits
No commits in common. "be66d7b4a256fb54e341437d8e91410bc46231d2" and "feb0411530b7e2241129741c76b2d91c423ae34f" have entirely different histories.
be66d7b4a2
...
feb0411530
4
blk/101
4
blk/101
@ -2,8 +2,8 @@ T ( n -- ): select line n for editing.
|
|||||||
P xxx: put typed line on selected line.
|
P xxx: put typed line on selected line.
|
||||||
U xxx: insert typed line on selected line.
|
U xxx: insert typed line on selected line.
|
||||||
F xxx: find typed string in block.
|
F xxx: find typed string in block.
|
||||||
I xxx: insert typed string at cursor.
|
I xxx: insert typed string at cursor
|
||||||
E: Delete previously found string.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
2
blk/102
2
blk/102
@ -1,5 +1,5 @@
|
|||||||
50 LOAD+ ( B152, extras )
|
50 LOAD+ ( B152, extras )
|
||||||
1 7 LOADR+
|
1 6 LOADR+
|
||||||
|
|
||||||
: BROWSE
|
: BROWSE
|
||||||
0 ACC ! L
|
0 ACC ! L
|
||||||
|
2
blk/107
2
blk/107
@ -7,6 +7,6 @@
|
|||||||
OVER BLK) = OR ( a1 a2 f1|f2 )
|
OVER BLK) = OR ( a1 a2 f1|f2 )
|
||||||
UNTIL
|
UNTIL
|
||||||
DUP BLK) < IF BLK( - FBUF + -^ EDPOS ! THEN
|
DUP BLK) < IF BLK( - FBUF + -^ EDPOS ! THEN
|
||||||
EDPOS @ 64 / _pln DROP
|
EDPOS @ 64 / _pln
|
||||||
;
|
;
|
||||||
|
|
||||||
|
10
blk/108
10
blk/108
@ -1,9 +1,9 @@
|
|||||||
: _blen ( buf -- length of str in buf )
|
: _ilen ( length of str in IBUF )
|
||||||
DUP BEGIN C@+ EOL? UNTIL -^ 1- ;
|
IBUF BEGIN C@+ EOL? UNTIL IBUF - 1- ;
|
||||||
: _rbufsz ( size of linebuf to the right of curpos )
|
|
||||||
EDPOS @ 64 MOD 63 -^ ;
|
|
||||||
: _I
|
: _I
|
||||||
IBUF _type _rbufsz IBUF _blen 2DUP > IF
|
IBUF _type EDPOS @ 64 MOD ( cno )
|
||||||
|
63 -^ _ilen ( rbuffsize ilen )
|
||||||
|
2DUP > IF
|
||||||
SWAP OVER - ( ilen chars-to-move )
|
SWAP OVER - ( ilen chars-to-move )
|
||||||
SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
|
SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
|
||||||
3 PICK MOVE- ( ctm ilen )
|
3 PICK MOVE- ( ctm ilen )
|
||||||
|
Loading…
Reference in New Issue
Block a user