collapseos/blk/584

15 lines
393 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,
ACIAW> LD(n)HL,
DE ACIA) LDdd(n),
DE SUBHLd,
( cont. )