Write hex routines

These routines are called from the command handlers to display data.

0537   729A             ;  WRITE ADR FROM TMP0 STORES
0538   729A             ;
0539   729A A2 01       WROA   LDX #1
0540   729C D0 0A              BNE WROA1
0541   729E A2 05       WROA4  LDX #5
0542   72A0 D0 06              BNE WROA1
0543   72A2 A2 07       WROA6  LDX #7
0544   72A4 D0 02              BNE WROA1
0545   72A6 A2 09       WRPC   LDX #9
0546   72A8 B5 ED       WROA1  LDA TMP0-1,X
0547   72AA 48                 PHA
0548   72AB B5 EE              LDA TMP0,X
0549   72AD 20 B1 72           JSR WROB
0550   72B0 68                 PLA

[/code]
0551 72B1 ;
0552 72B1 ; WRITE BYTE – A = BYTE
0553 72B1 ; UNPACK BYTE DATA INTO TWO ASCII CHARS: A=BYTE; X,A=CHARS
0554 72B1 ;
0555 72B1 48 WROB PHA
0556 72B2 4A LSR A
0557 72B3 4A LSR A
0558 72B4 4A LSR A
0559 72B5 4A LSR A
0560 72B6 20 58 73 JSR ASCII ; CONVERT TO ASCII
0561 72B9 AA TAX
0562 72BA 68 PLA
0563 72BB 29 0F AND #$0F
0564 72BD 20 58 73 JSR ASCII
[/code]

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