1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-02 12:10:54 +11:00

Compare commits

..

No commits in common. "b8ea5156123138db029f659868b908f17a777552" and "f605e2d85c22ec6ac16b59230f132ee54f2400a7" have entirely different histories.

7 changed files with 14 additions and 17 deletions

View File

@ -10,7 +10,7 @@ C! c a -- Store byte c in address a
CURRENT -- a Set a to wordref of last added entry. CURRENT -- a Set a to wordref of last added entry.
CURRENT* -- a A pointer to active CURRENT*. Useful CURRENT* -- a A pointer to active CURRENT*. Useful
when we have multiple active dicts. when we have multiple active dicts.
FILL a n b -- Fill n bytes at addr a with val b.
HERE -- a Push HERE's address HERE -- a Push HERE's address
H@ -- a HERE @ H@ -- a HERE @
(cont.) MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1, going up.

View File

@ -1,2 +0,0 @@
MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1, going up.

View File

@ -5,7 +5,7 @@ LIST n -- Prints the contents of the block n on screen
in the form of 16 lines of 64 columns. in the form of 16 lines of 64 columns.
LOAD n -- Interprets Forth code from block n LOAD n -- Interprets Forth code from block n
LOADR n1 n2 -- Load block range between n1 and n2, inclusive. LOADR n1 n2 -- Load block range between n1 and n2, inclusive.
WIPE -- Empties current block

View File

@ -3,9 +3,9 @@
and ABORT on mismatch. ) and ABORT on mismatch. )
: AT28! ( n a -- ) : AT28! ( n a -- )
2DUP C! 2DUP C!
( as long as writing operation is running, IO/6 will toggle ( as long as writing operation is running, IO/6 will toggle at each
at each read attempt. We know that write is finished when read attempt. We know that write is finished when we read the same
we read the same value twice. ) value twice. )
BEGIN ( n1 a ) BEGIN ( n1 a )
DUP C@ ( n1 a n2 ) DUP C@ ( n1 a n2 )
OVER C@ ( n1 a n2 n3 ) OVER C@ ( n1 a n2 n3 )

15
blk/434
View File

@ -1,4 +1,5 @@
: MOVE ( a1 a2 u -- ) ( a1 a2 u -- )
: MOVE
( u ) 0 DO ( u ) 0 DO
SWAP DUP I + C@ ( a2 a1 x ) SWAP DUP I + C@ ( a2 a1 x )
ROT SWAP OVER I + ( a1 a2 x a2 ) ROT SWAP OVER I + ( a1 a2 x a2 )
@ -6,10 +7,10 @@
LOOP LOOP
2DROP 2DROP
; ;
: FILL ( a n b -- )
SWAP 2 PICK + ( a b a+n ) ROT ( b a+n a ) DO ( b )
DUP I C!
LOOP
;
: DELW 1- 0 SWAP C! ; : DELW 1- 0 SWAP C! ;
: PREV 3 - DUP @ - ;
: PREV
3 - DUP @ ( a o )
- ( a-o )
;

View File

@ -1,4 +1,2 @@
( b1 b2 -- ) ( b1 b2 -- )
: LOADR 1+ SWAP DO I DUP . CRLF LOAD LOOP ; : LOADR 1+ SWAP DO I DUP . CRLF LOAD LOOP ;
: WIPE BLK( 1024 0 FILL BLK!! ;

Binary file not shown.