diff --git a/blk/100 b/blk/100 index d234f82..79ecb65 100644 --- a/blk/100 +++ b/blk/100 @@ -3,14 +3,4 @@ Block editor This is an application to conveniently browse the contents of the disk blocks and edit them. You can load it with "105 LOAD". -Browse mode: If you execute BROWSE, the Forth interpreter is -replaced by browser's loop. Typing "Q" quits the browser. - -In this mode, typing a decimal number followed by space or -return lists the contents of that block. B for previous block, -N for next. - -When not in browse mode, your prompt is a regular Forth prompt -with editor words loaded. - - (cont.) +See doc/ed.txt diff --git a/blk/101 b/blk/101 deleted file mode 100644 index f6e4b9e..0000000 --- a/blk/101 +++ /dev/null @@ -1,16 +0,0 @@ -There are two buffers, IBUF (insert buffer) and FBUF (find -buffer). They are used as a typing target for the actions -described below. They both have a peculiar logic: when typing -is expected to fill a buffer, an empty value means "reuse -previous value". For example, typing "I foo I " inserts -"foofoo". - -T ( n -- ): select line n for editing. -P xxx: put typed IBUF on selected line. -U xxx: insert typed IBUF on selected line. -F xxx: find typed FBUF in block, starting from current - position+1. If not found, don't move. -i xxx: insert typed IBUF at cursor. "i" is to avoid shadowing - core word "I". -Y: Copy n characters after cursor into IBUF, n being length of - FBUF. (cont.) diff --git a/blk/102 b/blk/102 deleted file mode 100644 index e2622bc..0000000 --- a/blk/102 +++ /dev/null @@ -1,2 +0,0 @@ -X ( n -- ): Delete X chars after cursor and place in IBUF. -E: Run X with n = length of FBUF. diff --git a/blk/105 b/blk/105 index 66a36ac..8f090be 100644 --- a/blk/105 +++ b/blk/105 @@ -1,14 +1,2 @@ -'? CASE NOT [IF] 48 49 LOADR+ [THEN] DROP ( B153-154 ) '? FILL NOT [IF] 50 LOAD+ [THEN] DROP ( B155 ) 1 7 LOADR+ -: BROWSE - 0 ACC ! L - BEGIN - KEY CASE - 'Q' OF EXIT ENDOF - 'B' OF B ENDOF - 'N' OF N ENDOF - _NUM - ENDCASE - AGAIN -; diff --git a/blk/152 b/blk/152 index 6835f85..4b648e9 100644 --- a/blk/152 +++ b/blk/152 @@ -1,3 +1,2 @@ -'? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? ) '? FILL NOT [IF] 3 LOAD+ [THEN] DROP '? WIPE NOT [IF] 5 LOAD+ [THEN] DROP diff --git a/blk/153 b/blk/153 deleted file mode 100644 index f8d8952..0000000 --- a/blk/153 +++ /dev/null @@ -1,9 +0,0 @@ -( During a CASE, the stack grows by 1 at each ENDOF so that - we can fill all those ENDOF branching addrs. So that we - know when to stop, we put a 0 on PSP. That's our stopgap. ) -: CASE 0 ; IMMEDIATE -: OF - COMPILE OVER COMPILE = - [COMPILE] IF COMPILE DROP -; IMMEDIATE -: ENDOF [COMPILE] ELSE ; IMMEDIATE diff --git a/blk/154 b/blk/154 deleted file mode 100644 index 5e994a0..0000000 --- a/blk/154 +++ /dev/null @@ -1,9 +0,0 @@ -( At this point, we have something like "0 e1 e2 e3 val". We - want to drop val, and then call THEN as long as we don't - hit 0. ) -: ENDCASE - BEGIN - ?DUP NOT IF EXIT THEN - [COMPILE] THEN - AGAIN -; IMMEDIATE diff --git a/tests/cvm/test_flow.fs b/tests/cvm/test_flow.fs deleted file mode 100644 index 78feb46..0000000 --- a/tests/cvm/test_flow.fs +++ /dev/null @@ -1,15 +0,0 @@ -152 LOAD ( extra ) -: foo - CASE - 'X' OF 42 ENDOF - 0x12 OF 43 ENDOF - 255 OF 44 ENDOF - 1+ - ENDCASE -; - -'X' foo 42 #eq -0x12 foo 43 #eq -255 foo 44 #eq -254 foo 255 #eq -'S S0 #eq