collapseos/forth/blk.fs

92 lines
1.8 KiB
Forth
Raw Normal View History

2020-04-14 09:05:43 -04:00
( I/O blocks )
: BLKMEM+ 0x57 RAM+ @ + ;
( n -- Fetches block n and write it to BLK( )
: BLK@* 0 BLKMEM+ ;
( n -- Write back BLK( to storage at block n )
: BLK!* 2 BLKMEM+ ;
( Current blk pointer in ( )
: BLK> 4 BLKMEM+ ;
( Whether buffer is dirty )
: BLKDTY 6 BLKMEM+ ;
: BLK( 8 BLKMEM+ ;
2020-04-14 09:05:43 -04:00
: BLK$
H@ 0x57 RAM+ !
( 1024 for the block, 8 for variables )
1032 ALLOT
2020-04-14 18:15:07 -04:00
( LOAD detects end of block with ASCII EOT. This is why
we write it there. EOT == 0x04 )
4 C,
0 BLKDTY !
2020-04-14 09:05:43 -04:00
-1 BLK> !
;
( -- )
: BLK!
BLK> @ BLK!* @ EXECUTE
0 BLKDTY !
;
( n -- )
2020-04-14 09:05:43 -04:00
: BLK@
DUP BLK> @ = IF DROP EXIT THEN
BLKDTY @ IF BLK! THEN
2020-04-14 09:05:43 -04:00
DUP BLK> ! BLK@* @ EXECUTE
;
: BLK!! 1 BLKDTY ! ;
2020-04-14 09:05:43 -04:00
: .2 DUP 10 < IF SPC THEN . ;
: LIST
BLK@
16 0 DO
I 1+ .2 SPC
2020-04-14 09:05:43 -04:00
64 I * BLK( + (print)
CRLF
LOOP
;
2020-04-14 18:15:07 -04:00
: _
(boot<)
DUP 4 = IF
( We drop our char, but also "a" from WORD: it won't
have the opportunity to balance PSP because we're
EXIT!ing. )
2DROP
2020-04-14 18:15:07 -04:00
( We're finished interpreting )
2020-04-14 21:04:07 -04:00
EXIT!
2020-04-14 18:15:07 -04:00
THEN
;
: LOAD
2020-04-14 21:04:07 -04:00
( save BLK>, CINPTR and boot< ptr to RSP )
BLK> @ >R
0x0c RAM+ @ >R
0x2e RAM+ @ >R
2020-04-14 18:15:07 -04:00
BLK@
2020-04-14 21:04:07 -04:00
( Point to beginning of BLK )
2020-04-14 18:15:07 -04:00
BLK( 0x2e RAM+ !
( 0c == CINPTR )
['] _ 0x0c RAM+ !
2020-04-14 21:04:07 -04:00
INTERPRET
R> 0x2e RAM+ !
( Before we restore CINPTR, are we restoring it to "_"?
if yes, it means we're in a nested LOAD which means we
should also load back the saved BLK>. Otherwise, we can
ignore the BLK> from RSP. )
I 0x0c RAM+ @ = IF
( nested load )
R> DROP ( CINPTR )
R> BLK@
ELSE
( not nested )
R> 0x0c RAM+ !
R> DROP ( BLK> )
THEN
2020-04-14 18:15:07 -04:00
;
2020-04-22 21:19:12 -04:00
( b1 b2 -- )
: LOADR 1+ SWAP DO I DUP . CRLF LOAD LOOP ;