
 1000  *SAVE S.HEX TO DEC
 1010  T      LDX #0
 1020  .1     TXA
 1030         JSR $FDDA
 1040         LDA #"-"
 1050         JSR $FDED
 1060         TXA
 1070  *--------------------------------
 1080         SED
 1090         CLC
 1110         ADC #0
 1120         CLD
 1130  *--------------------------------
 1140         JSR $FDDA
 1150         LDA #"-"
 1160         JSR $FDED
 1170         TXA
 1180  *--------------------------------
 1190         SED
 1200         CLC
 1210         ADC #$90
 1220         ADC #$40
 1230         CLD
 1240  *--------------------------------
 1250         JSR $FDDA
 1260         LDA #"-"
 1270         JSR $FDED
 1280         TXA
 1290  *--------------------------------
 1300         CMP #10
 1310         BCC .2
 1320         ADC #6
 1330  .2     ADC #$30
 1340  *--------------------------------
 1350         JSR $FDDA
 1360  *--------------------------------
 1370         JSR $FD8E
 1380         INX
 1390         CPX #16
 1400         BCC .1
 1410         RTS

