mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:18:05 +11:00
4af93d53e3
Also, add insert and find buffers to the header, making it 3 lines high. Also, fix the "I" overshadowing word which wasn't operating on the proper RSP level. Also, fix I which didn't mark the block as dirty.
14 lines
382 B
Plaintext
14 lines
382 B
Plaintext
: bufp ( buf -- )
|
|
DUP 64 + SWAP DO
|
|
i C@ DUP 0x20 < IF DROP 0x20 THEN EMIT
|
|
LOOP ;
|
|
: bufs
|
|
1 aty ." I: " IBUF bufp
|
|
2 aty ." F: " FBUF bufp ;
|
|
: c<over KEY DUP EMIT DUP 0x0a = IF DROP 0x0d THEN ;
|
|
: VE ['] c<over 0x08 ( C< override ) RAM+ !
|
|
clrscr 0acc 0 EDPOS ! modeM contents
|
|
BEGIN status bufs setpos KEY MODE @ EXECUTE UNTIL
|
|
0 0x08 RAM+ ! 19 aty ;
|
|
|