440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
15 lines
487 B
Plaintext
15 lines
487 B
Plaintext
(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. )
|