You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- : RAM+ [ RAMSTART LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;
- : HERE 0x04 RAM+ ;
- : 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+ ! ( C<* override ) (infl)
- LIT< (main) FIND DROP EXECUTE
- ;
- 1 25 LOADR+ ( xcomp core low )
|