collapseos/blk/386

( current position in INBUF )
: IN> 0x30 RAM+ ;
( points to INBUF )
: IN( 0x32 RAM+ @ ;
( points to INBUF's end )
: IN) 0x40 ( buffer size ) IN( + ;

( flush input buffer )
( set IN> to IN( and set IN> @ to null )
: (infl) 0 IN( DUP IN> ! ! ;
Move core's readln to xcomp core (high) 2020-05-13 23:28:32 +10:00			`( current position in INBUF )`
Make rdln use system RAM 2020-05-15 04:26:56 +10:00			`: IN> 0x30 RAM+ ;`
Move core's readln to xcomp core (high) 2020-05-13 23:28:32 +10:00			`( points to INBUF )`
Make rdln use system RAM 2020-05-15 04:26:56 +10:00			`: IN( 0x32 RAM+ @ ;`
Move core's readln to xcomp core (high) 2020-05-13 23:28:32 +10:00			`( points to INBUF's end )`
Make rdln use system RAM 2020-05-15 04:26:56 +10:00			`: IN) 0x40 ( buffer size ) IN( + ;`
Move core's fmt to xcomp core (high) 2020-05-13 23:02:44 +10:00
Move core's readln to xcomp core (high) 2020-05-13 23:28:32 +10:00			`( flush input buffer )`
			`( set IN> to IN( and set IN> @ to null )`
			`: (infl) 0 IN( DUP IN> ! ! ;`
Move core's fmt to xcomp core (high) 2020-05-13 23:02:44 +10:00