1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-02 06:20:55 +11:00

Compare commits

..

No commits in common. "f53f91558b43025fcdd15ba6c998f9d5b4708aa8" and "d8a6456206f767ee1e673e5fc16e4c64e4e2facf" have entirely different histories.

6 changed files with 10 additions and 10 deletions

View File

@ -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

View File

@ -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".

View File

@ -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 '? )

View File

@ -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,

View File

@ -3,4 +3,5 @@
A INCr,
L2 FSET ( end )
HL POPqq,
BC POPqq,
RET,

Binary file not shown.