mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 08:30:55 +11:00
Compare commits
No commits in common. "f53f91558b43025fcdd15ba6c998f9d5b4708aa8" and "d8a6456206f767ee1e673e5fc16e4c64e4e2facf" have entirely different histories.
f53f91558b
...
d8a6456206
4
blk/102
4
blk/102
@ -1,6 +1,6 @@
|
|||||||
'? CASE NOT [IF] 51 52 LOADR+ [THEN] DROP ( B152-153 )
|
50 LOAD+ ( B152, extras )
|
||||||
'? FILL NOT [IF] 53 LOAD+ [THEN] DROP ( B154 )
|
|
||||||
1 7 LOADR+
|
1 7 LOADR+
|
||||||
|
|
||||||
: BROWSE
|
: BROWSE
|
||||||
0 ACC ! L
|
0 ACC ! L
|
||||||
BEGIN
|
BEGIN
|
||||||
|
7
blk/150
7
blk/150
@ -1,6 +1,6 @@
|
|||||||
Extra words
|
Extra words
|
||||||
|
|
||||||
The Core words (B350) section contains the absolute minimum
|
The Core words (B420) section contains the absolute minimum
|
||||||
needed to get a usable Forth interpreter with input buffer and
|
needed to get a usable Forth interpreter with input buffer and
|
||||||
disk blocks access running. The goal here is to minimize the
|
disk blocks access running. The goal here is to minimize the
|
||||||
binary size of a minimum Collapse OS install.
|
binary size of a minimum Collapse OS install.
|
||||||
@ -10,6 +10,5 @@ are generally useful. They are so useful that they are part
|
|||||||
of the Dictionary (B30).
|
of the Dictionary (B30).
|
||||||
|
|
||||||
Some programs need them, so they will automatically LOAD them.
|
Some programs need them, so they will automatically LOAD them.
|
||||||
Because more than one program can use the same extra words,
|
To that end, the loader is conditional: it aborts if extra
|
||||||
conditional loaders are recommended. If you want to load all
|
words are already present. Load with "152 LOAD".
|
||||||
words do "152 LOAD" which conditionally loads all extra words.
|
|
||||||
|
7
blk/152
7
blk/152
@ -1,4 +1,3 @@
|
|||||||
'? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? )
|
'? CASE NOT [IF]
|
||||||
'? FILL NOT [IF] 3 LOAD+ [THEN] DROP
|
1 5 LOADR+
|
||||||
'? EMPTY NOT [IF] 4 LOAD+ [THEN] DROP
|
[THEN] DROP ( from '? )
|
||||||
'? WIPE NOT [IF] 5 LOAD+ [THEN] DROP
|
|
||||||
|
1
blk/291
1
blk/291
@ -2,6 +2,7 @@ PC ORG @ 4 + ! ( find )
|
|||||||
( Find the entry corresponding to word name where (HL) points
|
( Find the entry corresponding to word name where (HL) points
|
||||||
to in dictionary having its tip at DE and sets DE to point
|
to in dictionary having its tip at DE and sets DE to point
|
||||||
to that entry. Z if found, NZ if not. )
|
to that entry. Z if found, NZ if not. )
|
||||||
|
BC PUSHqq,
|
||||||
HL PUSHqq,
|
HL PUSHqq,
|
||||||
( First, figure out string len )
|
( First, figure out string len )
|
||||||
A (HL) LDrr, A ORr,
|
A (HL) LDrr, A ORr,
|
||||||
|
1
blk/296
1
blk/296
@ -3,4 +3,5 @@
|
|||||||
A INCr,
|
A INCr,
|
||||||
L2 FSET ( end )
|
L2 FSET ( end )
|
||||||
HL POPqq,
|
HL POPqq,
|
||||||
|
BC POPqq,
|
||||||
RET,
|
RET,
|
||||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user