VE: properly initialize variables

This fixes weird glitches I had on trs80. It's *always* a matter of
RAM initialization. By now, I should know...

blk/103

@@ -1,4 +1,4 @@
-VARIABLE ACC
+CREATE ACC 0 ,
 : _LIST ." Block " DUP . NL LIST ;
 : _NUM
     ACC @ SWAP _pdacc

blk/104

@@ -1,7 +1,7 @@
 ( Cursor position in buffer. EDPOS/64 is line number )
-VARIABLE EDPOS
+CREATE EDPOS 0 ,
-CREATE IBUF 64 ALLOT
+CREATE IBUF 64 ALLOT0
-CREATE FBUF 64 ALLOT
+CREATE FBUF 64 ALLOT0
 : _cpos BLK( + ;
 : _lpos 64 * _cpos ;
 : _pln ( lineno -- )

blk/105

@@ -6,7 +6,9 @@
 ( user-facing lines are 1-based )
 : T 1- DUP 64 * EDPOS ! _pln ;
 : P IBUF _type IBUF EDPOS @ _cpos 64 MOVE BLK!! ;
-: _mvln+ ( ln -- move ln 1 line further )
+: _mvln+ ( ln -- move ln 1 line down )
     DUP 14 > IF DROP EXIT THEN
-    _lpos DUP 64 + 64 MOVE
+    _lpos DUP 64 + 64 MOVE ;
-;
+: _mvln- ( ln -- move ln 1 line up )
+    DUP 14 > IF DROP 15 _lpos _zbuf
+    ELSE 1+ _lpos DUP 64 - 64 MOVE THEN ;

blk/122

@@ -8,9 +8,9 @@ Block Editor (B100). Refer to documentation there.
 
 'o' inserts a blank line after the cursor. 'O', before.
 
-'f' puts the contents of your previous cursor movement into the
+'D' deletes "modifier" lines at the cursor.
-find buffer. If that movement was a forward movement, it brings
+
-the cursor back where it was. This allows for an efficient
+
-combination of movements and 'E'. For example, if you want to
+
-delete the next word, you type 'w', then 'f', then check your
+
-"F" buffer to be sure, then press 'E'.                  (cont.)
+                                                        (cont.)

blk/123

@@ -1,3 +1,10 @@
+'f' puts the contents of your previous cursor movement into the
+find buffer. If that movement was a forward movement, it brings
+the cursor back where it was. This allows for an efficient
+combination of movements and 'E'. For example, if you want to
+delete the next word, you type 'w', then 'f', then check your
+"F" buffer to be sure, then press 'E'.
+
 'X' deletes "modifier" characters following cursor.
 
 'R' goes into replace mode at current cursor position.

blk/130

@@ -8,5 +8,7 @@
         EDPOS @ _cpos C! 1 EDPOS +! BLK!! 0
     THEN UNTIL mode! SPC contents ;
 : $O EDPOS @ 0x3c0 ( 15 * 64 ) >= IF EXIT THEN
-    _U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf contents ;
+    _U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf BLK!! contents ;
 : $o EDPOS @ 64 < IF EXIT THEN EDPOS @ 64 + EDPOS ! $O ;
+: $D acc@ 0 DO 16 EDPOS @ 64 / DO i _mvln- LOOP LOOP
+    BLK!! contents ;

blk/131

@@ -3,14 +3,12 @@
     DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
     UPPER 'Q' = ;
 : bufp ( buf -- )
-    DUP 64 + SWAP DO
+    DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
-        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 ! 0 PREVPOS ! contents
+    clrscr 0acc 0 PREVPOS ! contents
     BEGIN status bufs setpos KEY handle UNTIL
     0 0x08 RAM+ ! 19 aty ;

blk/155

@@ -2,3 +2,4 @@
     SWAP 2 PICK + ( a b a+n ) ROT ( b a+n a ) DO ( b )
         DUP I C!
     LOOP DROP ;
+: ALLOT0 ( n -- ) H@ OVER 0 FILL ALLOT ;

blk/493

@@ -1,16 +1,16 @@
 CODE (key)
     A 0x01 LDrn, ( @KEY )
     0x28 RSTn,
-    L A LDrr, H 0 LDrn,
+    PUSHA,
-    HL PUSHqq,
 ;CODE
 CODE (emit)
-    BC POPqq, ( c == @DSP arg )
+    BC POPqq, ( c == @DSP arg ) chkPS,
-    chkPS,
     A 0x02 LDrn, ( @DSP )
     0x28 RSTn,
 ;CODE
-CODE BYE
+CODE AT-XY
-    HL 0 LDddnn,
+    DE POPqq, H E LDrr, ( Y )
-    A 0x16 LDrn, ( @EXIT )
+    DE POPqq, L E LDrr, ( X ) chkPS,
+    A 0x0f LDrn, ( @VDCTL ) B 3 LDrn, ( setcur )
     0x28 RSTn,
+;CODE

blk/494

@@ -1,3 +1,8 @@
+: LINES 24 ; : COLS 80 ;
+CODE BYE
+    HL 0 LDddnn,
+    A 0x16 LDrn, ( @EXIT )
+    0x28 RSTn,
 CODE @DCSTAT ( drv -- f )
     BC POPqq,
     chkPS,

recipes/trs80/README.md

@@ -212,69 +212,12 @@ session on the other, type a few characters, and try `pingpong` again.
 
 ## Saving to disk
 
-If everything went well, you could run Collapse OS with `g3000<return>`. You
+If everything went well, you could run Collapse OS with `g3000<return>`.
-would get a usable Collapse OS prompt. But don't do that just yet. That
+But instead of doing that, why not save it to disk?
-executable bootstraps itself from code and it takes a while to do that every
-time you launch it. You don't want that right? Let's save a compiled version of
-it to disk.
 
-Turn off the debugger (which can mess up some things) and save your sent
+    dump cos/cmd:1 (start=x'5000',end=x'7000',tra='5000')
-content as-is by following the instructions you had for the `RECV` program.
-This way, if you mess up a step below, you can quickly start over. Now you can
-launch Collapse OS. Then, we need to:
 
-* Reclaim wasted memory
+And there we go! A Collapse OS launchable from floppy!
-* Create hook entry
-* Update LATEST
-* Write down initialization code
-* Write memory to floppy
-
-### Reclaim wasted memory
-
-During initialization, `RDLN$` allocated memory in `HERE` for its input buffer.
-If you don't reclaim that space, that will be dead space in your binary.
-
-You can reclaim that space with `FORGET _` which will rewind to before we
-defined our initialization routine (see xcomp.fs).
-
-However, that is not enough. If you only do that, there will be a conflict
-between the rdln input buffer and your `HERE` space! So we need to go put that
-input buffer somewhere else first. Therefore, your commands will be:
-
-    500 ALLOT RDLN$ FORGET _
-
-### Create hook entry
-
-That one is easy:
-
-    (entry) _
-
-### Update LATEST
-
-At this point, both `HERE` and `CURRENT` point to your future `LATEST`.
-
-    H@ 0x08 BIN+ !
-
-Done.
-
-### Write down initialization code
-
-You'll do something similar to what we do in xcomp, except you'll have to add
-"HERE rewinding" code because by default, `HERE` starts at RAMSTART+0x80. So:
-
-    ," CURRENT @ HERE ! (ok) RDLN$ "
-
-As soon as `RDLN$` is called, the `C<` pointer changes and gives control to
-keyboard, giving us our full forth interpreter.
-
-### Write memory to floppy
-
-What you currently have in memory is gold. You want that on floppy. First, run
-`H@ .X` to know your upper bound (and `0 BIN+ .X` to know your lower one, but
-you're already supposed to know that one). Then, run `BYE` to return to TRSDOS
-(the TRSDOS driver overrides `BYE` so that it calls the proper SVC instead of
-just halting). Then, you can dump memory to floppy as you already did for
-`RECV`.
 
 ## Sending blkfs to floppy
 
@@ -294,7 +237,12 @@ prompt:
     ' *CL< 0x55 RAM+ !
 
 See B80 for details about those RAM offsets. Your serial link now has the
-prompt. Now, you can use `/tools/blkup` to send a disk's contents. First, 
+prompt. You will also have to make your newlines CRLF. The TRS-80 wants CR
+only, but serial communications (and `blkup`) expect CRLF:
+
+    ' CRLF 0x0a RAM+ !
+
+Now, you can use `/tools/blkup` to send a disk's contents. First, 
 extract the first 100 blocks from blkfs:
 
     dd if=emul/blkfs bs=1024 count=100 > d1
@@ -312,6 +260,14 @@ Making blkfs span multiple disk is a bit problematic with regards to absolute
 block references in the code. You'll need to work a bit to design your very
 own Collapse OS floppy set. See Usage guide (B3) for details.
 
+## Coming back to keyboard
+
+Once you're done, you will want to go back to local control:
+
+    ' CR 0x0a RAM+ !
+    0 0x55 RAM+ !
+    0 0x53 RAM+ !
+
 ## Self-hosting
 
 As it is, your installment of Collapse OS is self-hosting using instructions