35 lines
260 B
Plaintext
35 lines
260 B
Plaintext
/ ROM IS ONE PAGE AT 7400 - 7577
|
|
|
|
*7400
|
|
/ test uart
|
|
START,
|
|
CLA CMA
|
|
|
|
TAD KMSG
|
|
DCA 10
|
|
|
|
TAD KLEN
|
|
DCA 7
|
|
|
|
LOOP,
|
|
CLA
|
|
TAD I 10
|
|
TLS
|
|
TSF
|
|
JMP .-1
|
|
|
|
ISZ 7
|
|
JMP LOOP
|
|
|
|
DONE,
|
|
/ JMP DONE
|
|
JMP START
|
|
|
|
|
|
KMSG, MSG
|
|
KLEN, -12
|
|
|
|
MSG, 215;212;"H;"E;"L;"L;"O;"!;215;212
|
|
|
|
|