
 1000  *SAVE S.QUICK DEC-HEX
 1010  *--------------------------------
 1020  T      LDA #0
 1030         STA 0
 1040  .1     LDA 0
 1050         JSR DEC.HEX.2
 1060         JSR $FDDA
 1070         LDA #" "
 1080         JSR $FDED
 1090         JSR $FDED
 1100         SED
 1110         CLC
 1120         LDA 0
 1130         ADC #1
 1140         STA 0
 1150         CLD
 1160         CMP #0
 1170         BNE .1
 1180         RTS
 1190  *--------------------------------
 1200  DEC.HEX
 1210         PHA          SAVE BYTE
 1220         LSR
 1230         LSR
 1240         LSR
 1250         LSR
 1260         TAX          HI NYBBLE TO X
 1270         PLA          GET ORIG BYTE
 1280         CLC
 1290         ADC TBL,X
 1300         RTS
 1310  *--------------------------------
 1320  TBL    .DA #0-0,#10-$10,#20-$20,#30-$30
 1330         .DA #40-$40,#50-$50,#60-$60
 1340         .DA #70-$70,#80-$80,#90-$90
 1350  *--------------------------------
 1360  LOW    .EQ 1
 1370  HIGH   .EQ 2
 1380  *--------------------------------
 1390  DEC.HEX.2
 1400         PHA
 1410         AND #$0F     SAVE LOW NYBBLE
 1420         STA LOW
 1430         PLA
 1440         AND #$F0     GET HIGH NYBBLE
 1450         STA HIGH
 1460         LSR          /2
 1470         LSR          /4
 1480         ADC HIGH     /4*5
 1490         LSR          /8*5 = *10/16
 1500         ADC LOW      + LOW NYBBLE
 1510         RTS
 1520  *--------------------------------

