collapseos/blk/358

0x20 CONSTANT ACIABUFSZ

( Points to ACIA buf )
: ACIA( [ ACIA_MEM 4 + LITN ] ;
( Points to ACIA buf end )
: ACIA) [ ACIA_MEM 6 + LITN ] ;
( Read buf pointer. Pre-inc )
: ACIAR> [ ACIA_MEM LITN ] ;
( Write buf pointer. Post-inc )
: ACIAW> [ ACIA_MEM 2 + LITN ] ;
( This means that if W> == R>, buffer is full.
  If R>+1 == W>, buffer is empty. )
recipe/rc2014: use core libs from blkfs 2020-04-27 03:57:44 +10:00			`0x20 CONSTANT ACIABUFSZ`

			`( Points to ACIA buf )`
			`: ACIA( [ ACIA_MEM 4 + LITN ] ;`
			`( Points to ACIA buf end )`
			`: ACIA) [ ACIA_MEM 6 + LITN ] ;`
			`( Read buf pointer. Pre-inc )`
			`: ACIAR> [ ACIA_MEM LITN ] ;`
			`( Write buf pointer. Post-inc )`
			`: ACIAW> [ ACIA_MEM 2 + LITN ] ;`
			`( This means that if W> == R>, buffer is full.`
			`If R>+1 == W>, buffer is empty. )`