Write hex routines

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

0673   7358 18          ASCII  CLC
0674   7359 69 06              ADC #6
0675   735B 69 F0              ADC #$F0
0676   735D 90 02              BCC ASC1
0677   735F 69 06              ADC #$06
0678   7361             ;
0679   7361 69 3A       ASC1   ADC #$3A
0680   7363 48                 PHA           ; TEST FOR LETTER B IN ADR DURING WBNPF
0681   7364 C9 42              CMP #'B'
0682   7366 D0 0A              BNE ASCX
0683   7368 A5 FD              LDA SAVX
0684   736A C9 07              CMP #NCMDS
0685   736C D0 04              BNE ASCX      ; NOT WB CMD
0686   736E 68                 PLA
0687   736F A9 20              LDA #' '      ; FOR WB, BLANK 0'S IN ADR
0688   7371 48                 PHA
0689   7372 68          ASCX   PLA
0690   7373 60                 RTS
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
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
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