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. )