Primo listato :
XOB 16
SASI 0
10
EXOB
TEXT 10 "UART:9600,8,N,1;"
"MODE:MC0;"
"DIAG:F1000,R1000;"
COB 0
0
ACC E
JR H OUTRS
STH F 1000 ;
F 1000 è l'indirizzo di RSBY.
;
Se F 1000=H allora c'è un carattere valido
JR L FINE
SRXD 0 ;
Seleziona la COM1
R
2 ;
Dato sul registro R 2
BITO 8
R
129
O
48
JPD FINE
OUTRS: LD R 10
129
BITO 8
R 129
O 48
FINE:
ECOB