2020-05-13 09:28:32 -04:00
|
|
|
( current position in INBUF )
|
2020-05-14 14:26:56 -04:00
|
|
|
: IN> 0x30 RAM+ ;
|
2020-05-13 09:28:32 -04:00
|
|
|
( points to INBUF )
|
2020-05-14 14:26:56 -04:00
|
|
|
: IN( 0x32 RAM+ @ ;
|
2020-05-13 09:28:32 -04:00
|
|
|
( points to INBUF's end )
|
2020-05-14 14:26:56 -04:00
|
|
|
: IN) 0x40 ( buffer size ) IN( + ;
|
2020-05-13 09:02:44 -04:00
|
|
|
|
2020-05-13 09:28:32 -04:00
|
|
|
( flush input buffer )
|
|
|
|
|
( set IN> to IN( and set IN> @ to null )
|
|
|
|
|
: (infl) 0 IN( DUP IN> ! ! ;
|
2020-05-13 09:02:44 -04:00
|
|
|
|
