mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 18:08:05 +11:00
17 lines
467 B
Plaintext
17 lines
467 B
Plaintext
IFNZ, ( buffer full? )
|
|
( no, continue )
|
|
DE ADDHLss, ( restore ACIAW> )
|
|
( buffer not full, let's write )
|
|
ACIA_IO INAn,
|
|
(HL) A LDrr,
|
|
( advance W> )
|
|
HL INCss,
|
|
( +2 == ACIAW> )
|
|
ACIA_MEM 2+ LD(nn)HL,
|
|
( +6 == ACIA) )
|
|
DE ACIA_MEM 6 + LDdd(nn),
|
|
DE SUBHLss,
|
|
|
|
|
|
( cont. )
|