mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 03:20:56 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
327 B
Plaintext
17 lines
327 B
Plaintext
( 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. )
|
|
|
|
|
|
|
|
|
|
|
|
|