0104   0000             CRDLY  =227  $E3         ;DELAY FOR CR IN BIT-TIMES

0162   701E A0 01              LDY #1            ; SET TO MEASURE 2 BITS
0163   7020 84 E3              STY CRDLY         ;INIT OR DELAY TIME PARAMETER

0565   72C0             ;
0566   72C0             ;  WRITE 2 CHARS - X,A = CHARS
0567   72C0             ;
0568   72C0 48          WRTWO  PHA
0569   72C1 8A                 TXA
0570   72C2 20 C6 72           JSR WRT
0571   72C5 68                 PLA
0572   72C6             ;
0573   72C6             ;  WRITE SERIAL OUTPUT
0574   72C6             ;  A = CHAR TO BE OUTPUT
0575   72C6             ;
0576   72C6 20 1D 73    WRT    JSR DLY2
 ...


0528   728A A2 0D       CRLF   LDX #$0D
0529   728C A9 0A              LDA #$0A
0530   728E 20 C0 72           JSR WRTWO
0531   7291 A6 E3              LDX CRDLY         ;BIT-TIME COUNT FOR DELAY
0532   7293 20 1D 73    CR1    JSR DLY2          ;DELAY OF ONE BIT-TIME
0533   7296 CA                 DEX
0534   7297 D0 FA              BNE CR1
0535   7299 60                 RTS