1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 23:08:05 +11:00
collapseos/blk/584

17 lines
462 B
Plaintext
Raw Normal View History

IFNZ, ( buffer full? )
( no, continue )
DE ADDHLd, ( restore ACIAW> )
( buffer not full, let's write )
ACIA_IO INAi,
(HL) A LDrr,
( advance W> )
HL INCd,
( +2 == ACIAW> )
ACIA_MEM 2+ LD(n)HL,
( +6 == ACIA) )
DE ACIA_MEM 6 + LDdd(n),
DE SUBHLd,
( cont. )