1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 05:58:06 +11:00
collapseos/blk/586

17 lines
327 B
Plaintext
Raw Normal View History

2020-05-12 11:52:44 +10:00
( 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. )