;call with 8 bit A, returns time in binary form in 16bit A ;--------------------------------------------------------- ConvertTime: LDA $0F32 ;get tens count STA $4202 LDA #10 STA $4203 LDA $0F33 ;ones count plus... CLC ;carry need only be cleared one time ADC $4216 ;...tens count LDY $0F31 ;hundreds count STY $4202 LDY #100 STY $4203 REP #$20 AND.w #$00FF ;get rubbish out of high byte ADC $4216 RTS