2020-05-15 05:13:16 +10:00
|
|
|
(entry) ~ACIA ( Set RST 38 jump ) PC ORG @ 0x39 + !
|
2020-06-28 12:01:56 +10:00
|
|
|
AF PUSH, HL PUSH, DE PUSH,
|
2020-04-24 02:42:41 +10:00
|
|
|
( Read our character from ACIA into our BUFIDX )
|
2020-06-28 12:01:56 +10:00
|
|
|
ACIA_CTL INAi,
|
|
|
|
0x01 ANDi, ( is ACIA rcv buf full? )
|
2020-04-24 02:42:41 +10:00
|
|
|
IFNZ,
|
|
|
|
( correct interrupt cause )
|
2020-06-29 07:30:01 +10:00
|
|
|
ACIAW> LDHL(n),
|
2020-04-24 02:42:41 +10:00
|
|
|
( is it == to ACIAR>? )
|
|
|
|
( +0 == ACIAR> )
|
2020-06-29 07:30:01 +10:00
|
|
|
DE ACIAR> LDdd(n),
|
2020-06-28 12:01:56 +10:00
|
|
|
( carry cleared from ANDi above )
|
|
|
|
DE SBCHLd, ( cont. )
|