|
|
@@ -1,13 +1,14 @@ |
|
|
|
: RAM+ [ RAMSTART LITN ] + ; |
|
|
|
: BIN+ [ BIN( @ LITN ] + ; |
|
|
|
: RAM+ [ RAMSTART LITN ] + ; : BIN+ [ BIN( @ LITN ] + ; |
|
|
|
: HERE 0x04 RAM+ ; |
|
|
|
: CURRENT* 0x51 RAM+ ; |
|
|
|
: CURRENT CURRENT* @ ; |
|
|
|
: CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ; |
|
|
|
: H@ HERE @ ; |
|
|
|
: FIND ( w -- a f ) CURRENT @ SWAP _find ; |
|
|
|
: IN> 0x30 RAM+ ; ( current position in INBUF ) |
|
|
|
: IN( 0x32 RAM+ @ ; ( points to INBUF ) |
|
|
|
: IN) 0x40 ( buffer size ) IN( + ; ( INBUF's end ) |
|
|
|
: (infl) 0 IN( DUP IN> ! ! ; ( flush input buffer ) |
|
|
|
: QUIT |
|
|
|
(resRS) |
|
|
|
0 0x08 RAM+ ! ( 08 == C<* override ) |
|
|
|
(resRS) 0 0x08 RAM+ ! ( C<* override ) (infl) |
|
|
|
LIT< (main) FIND DROP EXECUTE |
|
|
|
; |
|
|
|
1 25 LOADR+ ( xcomp core low ) |