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

Use SYSVARS instead of RAM+ in core switches defs

Browse Source 
RAM+ is the host's setup! Use SYSVARS instead, which is the guest's
value.
This commit is contained in:
Virgil Dupras 2020-10-28 15:47:49 -04:00
parent adea75e50a
commit d3ec0e3a6c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/381
View File

@ -4,7 +4,7 @@
: (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ; : (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ; : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ; : CRLF CR LF ; : SPC 32 EMIT ;
0x0a RAM+ :** NL SYSVARS 0x0a + :** NL
: (uflw) LIT" stack underflow" ERR ; : (uflw) LIT" stack underflow" ERR ;
XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !
: (oflw) LIT" stack overflow" ERR ; : (oflw) LIT" stack overflow" ERR ;

4
blk/394
View File

@ -3,8 +3,8 @@
: LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ; : LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;
: LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ; : LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;
( Now, adev stuff ) ( Now, adev stuff )
0x3e RAM+ :** A@ SYSVARS 0x3e + :** A@
0x40 RAM+ :** A! SYSVARS 0x40 + :** A!
( src dst u -- ) ( src dst u -- )
: AMOVE : AMOVE