collapseos/blk/583

15 lines
487 B
Plaintext
Raw Normal View History

(entry) ~ACIA ( Set RST 38 jump ) PC ORG @ 0x39 + !
AF PUSH, HL PUSH, DE PUSH,
( Read our character from ACIA into our BUFIDX )
ACIA_CTL INAi,
0x01 ANDi, ( is ACIA rcv buf full? )
IFNZ,
( correct interrupt cause )
( +2 == ACIAW> )
ACIA_MEM 2+ LDHL(n),
( is it == to ACIAR>? )
( +0 == ACIAR> )
DE ACIA_MEM LDdd(n),
( carry cleared from ANDi above )
DE SBCHLd, ( cont. )