Use SYSVARS instead of RAM+ in core switches defs

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

View File

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

View File

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