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

Compare commits

..

No commits in common. "afc2327770704a6fa79ec3d894952d74cb0770f0" and "ffdc58739a531e3dee7611b8bc25daaec159c938" have entirely different histories.

13 changed files with 30 additions and 43 deletions

10
blk/392
View File

@ -4,12 +4,4 @@ and other defining words. So, in other words, when compiling
icore, ":" doesn't means what you think it means, go look in
B260.
This is loaded in two "low" and "high" parts. The low part is
the biggest chunk and has the most definitions. The high part
is the "sensitive" chunk and contains "LITN", ":" and ";"
definitions which, once defined, kind of make any more defs
impossible.
The gap between these 2 parts is the ideal place to put device
driver code. Load the low part with "393 LOAD", the high part
with "415 LOAD"
To load, run "393 LOAD".

View File

@ -12,4 +12,4 @@
0 0x08 RAM+ ! ( 08 == C<* override )
LIT< INTERPRET (find) DROP EXECUTE
;
1 19 LOADR+
1 20 LOADR+

22
blk/412
View File

@ -1,8 +1,14 @@
: H@ HERE @ ;
: IMMEDIATE
CURRENT @ 1-
DUP C@ 128 OR SWAP C!
;
: +! SWAP OVER @ + SWAP ! ;
: -^ SWAP - ;
: ALLOT HERE +! ;
( LITN has to be defined after the last immediate usage of
it to avoid bootstrapping issues )
: LITN 32 , , ( 32 == NUMBER ) ;
: IMMED? 1- C@ 0x80 AND ;
( ';' can't have its name right away because, when created, it
is not an IMMEDIATE yet and will not be treated properly by
xcomp. )
: _
['] EXIT ,
R> DROP ( exit : )
; IMMEDIATE

View File

View File

@ -1 +0,0 @@
1 2 LOADR+

14
blk/416
View File

@ -1,14 +0,0 @@
( LITN has to be defined after the last immediate usage of
it to avoid bootstrapping issues )
: LITN 32 , , ( 32 == NUMBER ) ;
: IMMED? 1- C@ 0x80 AND ;
( ';' can't have its name right away because, when created, it
is not an IMMEDIATE yet and will not be treated properly by
xcomp. )
: _
['] EXIT ,
R> DROP ( exit : )
; IMMEDIATE

View File

@ -1,3 +1,8 @@
: H@ HERE @ ;
: IMMEDIATE
CURRENT @ 1-
DUP C@ 128 OR SWAP C!
;
: [ INTERPRET ; IMMEDIATE
: ] R> DROP ;
: LITS 34 , SCPY ;

View File

@ -1,3 +1,7 @@
: +! SWAP OVER @ + SWAP ! ;
: -^ SWAP - ;
: ALLOT HERE +! ;
: IF ( -- a | a: br cell addr )
COMPILE (?br)
H@ ( push a )

Binary file not shown.

View File

@ -10,14 +10,12 @@
CURRENT @ XCURRENT !
282 LOAD ( boot.z80 )
393 LOAD ( icore low )
: (emit) 0 PC! ;
: (key) 0 PC@ ;
415 LOAD ( icore high )
393 LOAD ( icore )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
," CURRENT @ HERE ! "
," : (emit) 0 PC! ; : (key) 0 PC@ ; "
422 459 XPACKR
," ' (key) 12 RAM+ ! "
ORG @ 256 /MOD 2 PC! 2 PC!

View File

@ -18,8 +18,7 @@ CURRENT @ XCURRENT !
282 LOAD ( boot.z80 )
352 LOAD ( acia.z80 )
372 LOAD ( sdc.z80 )
393 LOAD ( icore low )
415 LOAD ( icore high )
393 LOAD ( icore )
(entry) _
( Update LATEST )
PC ORG @ 8 + !

View File

@ -13,8 +13,7 @@ CURRENT @ XCURRENT !
282 LOAD ( boot.z80 )
555 LOAD ( ti.z80 )
393 LOAD ( icore low )
415 LOAD ( icore high )
393 LOAD ( icore )
(entry) ~FNT CPFNT3x5
(entry) _
( Update LATEST )

View File

@ -12,8 +12,7 @@ CURRENT @ XCURRENT !
0x3000 BIN( !
282 LOAD ( boot.z80 )
492 LOAD ( trs80.z80 )
393 LOAD ( icore low )
415 LOAD ( icore high )
393 LOAD ( icore )
(entry) _
( Update LATEST )
PC ORG @ 8 + !