izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 22:58:06 +11:00
Code Issues Releases Wiki Activity

core: define H@ a bit sooner

Browse Source
This commit is contained in:
Virgil Dupras 2020-05-15 22:59:38 -04:00
parent bd38d80f9c
commit 863540f7c6
5 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
blk/353
View File

@ -3,10 +3,8 @@
: HERE 0x04 RAM+ ; : HERE 0x04 RAM+ ;
: CURRENT* 0x51 RAM+ ; : CURRENT* 0x51 RAM+ ;
: CURRENT CURRENT* @ ; : CURRENT CURRENT* @ ;
: H@ HERE @ ;
( w -- a f ) : FIND ( w -- a f ) CURRENT @ SWAP _find ;
: FIND CURRENT @ SWAP _find ;
: QUIT : QUIT
(resRS) (resRS)
0 0x08 RAM+ ! ( 08 == C<* override ) 0 0x08 RAM+ ! ( 08 == C<* override )

4
blk/364
View File

@ -4,8 +4,8 @@
DUP NOT IF DROP 0x0c RAM+ @ THEN ( 0c == C<* ) DUP NOT IF DROP 0x0c RAM+ @ THEN ( 0c == C<* )
EXECUTE EXECUTE
; ;
: , HERE @ ! HERE @ 2+ HERE ! ; : , H@ ! H@ 2+ HERE ! ;
: C, HERE @ C! HERE @ 1+ HERE ! ; : C, H@ C! H@ 1+ HERE ! ;
: BIT@ ( bit addr -- f ) C@ SWAP RSHIFT 0x01 AND ; : BIT@ ( bit addr -- f ) C@ SWAP RSHIFT 0x01 AND ;
: BIT! ( f bit addr -- ) : BIT! ( f bit addr -- )
SWAP 0x01 SWAP LSHIFT ROT ( addr mask f ) SWAP 0x01 SWAP LSHIFT ROT ( addr mask f )

11
blk/368
View File

@ -1,11 +1,10 @@
: [entry] : [entry] ( w -- )
HERE @ ( w h ) H@ SWAP SCPY ( h )
SWAP SCPY ( h ) H@ SWAP - ( sz )
HERE @ SWAP - ( sz )
( write prev value ) ( write prev value )
HERE @ CURRENT @ - , H@ CURRENT @ - ,
C, ( write size ) C, ( write size )
HERE @ CURRENT ! H@ CURRENT !
; ;
: (entry) WORD [entry] ; : (entry) WORD [entry] ;

1
blk/369
View File

@ -1,7 +1,6 @@
( Words here until the end of the low part, unlike words ( Words here until the end of the low part, unlike words
preceeding them, aren't immediately needed for boot. But its preceeding them, aren't immediately needed for boot. But its
better to have as many words as possible in the xcomp part. ) better to have as many words as possible in the xcomp part. )
: H@ HERE @ ;
: IMMEDIATE : IMMEDIATE
CURRENT @ 1- CURRENT @ 1-
DUP C@ 128 OR SWAP C! ; DUP C@ 128 OR SWAP C! ;

BIN
emul/forth.bin
View File

Binary file not shown.