mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 04:20: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 )
|
||||
'? FILL NOT [IF] 53 LOAD+ [THEN] DROP ( B154 )
|
||||
50 LOAD+ ( B152, extras )
|
||||
1 7 LOADR+
|
||||
|
||||
: BROWSE
|
||||
0 ACC ! L
|
||||
BEGIN
|
||||
|
7
blk/150
7
blk/150
@ -1,6 +1,6 @@
|
||||
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
|
||||
disk blocks access running. The goal here is to minimize the
|
||||
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).
|
||||
|
||||
Some programs need them, so they will automatically LOAD them.
|
||||
Because more than one program can use the same extra words,
|
||||
conditional loaders are recommended. If you want to load all
|
||||
words do "152 LOAD" which conditionally loads all extra words.
|
||||
To that end, the loader is conditional: it aborts if extra
|
||||
words are already present. Load with "152 LOAD".
|
||||
|
7
blk/152
7
blk/152
@ -1,4 +1,3 @@
|
||||
'? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? )
|
||||
'? FILL NOT [IF] 3 LOAD+ [THEN] DROP
|
||||
'? EMPTY NOT [IF] 4 LOAD+ [THEN] DROP
|
||||
'? WIPE NOT [IF] 5 LOAD+ [THEN] DROP
|
||||
'? CASE NOT [IF]
|
||||
1 5 LOADR+
|
||||
[THEN] DROP ( from '? )
|
||||
|
1
blk/291
1
blk/291
@ -2,6 +2,7 @@ PC ORG @ 4 + ! ( find )
|
||||
( Find the entry corresponding to word name where (HL) points
|
||||
to in dictionary having its tip at DE and sets DE to point
|
||||
to that entry. Z if found, NZ if not. )
|
||||
BC PUSHqq,
|
||||
HL PUSHqq,
|
||||
( First, figure out string len )
|
||||
A (HL) LDrr, A ORr,
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user