1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-15 04:08:06 +11:00
collapseos/blk/386

12 lines
244 B
Plaintext
Raw Permalink Normal View History

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