;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