mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 02:20:55 +11:00
Compare commits
2 Commits
d8a6456206
...
f53f91558b
Author | SHA1 | Date | |
---|---|---|---|
|
f53f91558b | ||
|
c26c454cbf |
4
blk/102
4
blk/102
@ -1,6 +1,6 @@
|
||||
50 LOAD+ ( B152, extras )
|
||||
'? CASE NOT [IF] 51 52 LOADR+ [THEN] DROP ( B152-153 )
|
||||
'? FILL NOT [IF] 53 LOAD+ [THEN] DROP ( B154 )
|
||||
1 7 LOADR+
|
||||
|
||||
: BROWSE
|
||||
0 ACC ! L
|
||||
BEGIN
|
||||
|
7
blk/150
7
blk/150
@ -1,6 +1,6 @@
|
||||
Extra words
|
||||
|
||||
The Core words (B420) section contains the absolute minimum
|
||||
The Core words (B350) 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,5 +10,6 @@ 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.
|
||||
To that end, the loader is conditional: it aborts if extra
|
||||
words are already present. Load with "152 LOAD".
|
||||
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.
|
||||
|
7
blk/152
7
blk/152
@ -1,3 +1,4 @@
|
||||
'? CASE NOT [IF]
|
||||
1 5 LOADR+
|
||||
[THEN] DROP ( from '? )
|
||||
'? 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
|
||||
|
1
blk/291
1
blk/291
@ -2,7 +2,6 @@ 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