2020-04-23 12:42:41 -04:00
|
|
|
IFNZ, ( buffer full? )
|
|
|
|
( no, continue )
|
2020-06-27 22:01:56 -04:00
|
|
|
DE ADDHLd, ( restore ACIAW> )
|
2020-04-23 12:42:41 -04:00
|
|
|
( buffer not full, let's write )
|
2020-06-27 22:01:56 -04:00
|
|
|
ACIA_IO INAi,
|
2020-04-23 12:42:41 -04:00
|
|
|
(HL) A LDrr,
|
|
|
|
( advance W> )
|
2020-06-27 22:01:56 -04:00
|
|
|
HL INCd,
|
2020-06-28 17:30:01 -04:00
|
|
|
ACIAW> LD(n)HL,
|
2020-08-14 21:41:34 -04:00
|
|
|
DE ACIA) LDd(n),
|
2020-06-27 22:01:56 -04:00
|
|
|
DE SUBHLd,
|
2020-04-23 12:42:41 -04:00
|
|
|
|
|
|
|
|
|
|
|
( cont. )
|