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