collapseos/blk/453

64 CONSTANT INBUFSZ
: RDLNMEM+ 0x57 RAM+ @ + ;
( current position in INBUF )
: IN> 0 RDLNMEM+ ;
( points to INBUF )
: IN( 2 RDLNMEM+ ;
( points to INBUF's end )
: IN) INBUFSZ 2+ RDLNMEM+ ;

( flush input buffer )
( set IN> to IN( and set IN> @ to null )
: (infl) 0 IN( DUP IN> ! ! ;
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`64 CONSTANT INBUFSZ`
Add layer of indirection to EMIT This would allow things like temporary giving control to the CL line on the TRS-80. For example... A very far fetched example. Not at all the only raison d'etre* of the layer... 2020-05-02 10:05:15 +10:00			`: RDLNMEM+ 0x57 RAM+ @ + ;`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`( current position in INBUF )`
			`: IN> 0 RDLNMEM+ ;`
			`( points to INBUF )`
			`: IN( 2 RDLNMEM+ ;`
			`( points to INBUF's end )`
			`: IN) INBUFSZ 2+ RDLNMEM+ ;`

			`( flush input buffer )`
			`( set IN> to IN( and set IN> @ to null )`
			`: (infl) 0 IN( DUP IN> ! ! ;`