A2osX/ProDOS.203/ProDOS.S.TCLK.txt

NEW
  AUTO 3,1
* object code = tclock_0
* Thunderclock driver
* hard coded for slot 1

* $2F00-2F7C moved to $D742

ofsT			.EQ	*-tclk_in	offset to Thunderclock org

tclock_0		ldx clkslt		clock slot = $C1.
				lda clkmode,x				save current mode
				pha
				lda #$A3					 send numeric mode byte to Thunderclock
				jsr	wttcp
clkslt			.EQ	*-ofsT+2		points to $C1.

TCLK.clkslt		jsr	rdtcp			read month, day of week, day of month
				clc		and time into input buffer.
				ldx #$04			index for 5 values.
				ldy	#$0C					read minutes 1st, month last.
.1				lda	inbuf,y				 convert values to binary.
				and	#$07					no value > 5 decimal.
				sta	pcl			'tens' place value
				asl	 multiply by 10
				asl
				adc pcl
				asl 
				adc inbuf+1,y		add to ascii 'ones' place
				sec		and subtract out the ascii
				sbc #$B0
				sta	pcl,x				   save converted value.
				dey		index to next lowest value
				dey
				dey
				dex		are there more values?
				bpl .1	if yes.
				tay		contains month
				lsr
				ror
				ror
				ror							high bit of month held in carry
				ora A1L
				sta p8date				   save low value of date.
				php						save high bit of month.
				and #$1F					 isolate day.
				adc	tdays-1,y			   (y = month)
				bcc	.2			branch if not Sept 13 thru 30th
				adc	#$03					adj for mod 7 when day > 256
.2				sec
.3				sbc	#$07
				bcs	.3				loop until < 0.
				adc	#$07					make it in the range of 0-6.
				sbc pch					  the delta provides years offset.
				bcs .4					branch if positive
				adc #$07					 else make it positive again.
.4				tay		
				lda yradj,y				  look up year
				plp		and combine it with hi bit of month
				rol
				sta p8date+1				 P8 date
				lda A1L+1			hour
				sta p8time+1				 P8 time
				lda A2L			minute
				sta p8time
				pla		restore previous mode.
				ldx clkslt			clock slot = $C1
				sta clkmode,x
H2F69			rts

* this table contains entries for the cumulative # of days in a year,
* one entry for each month. the values are modulo 256.

tdays			.EQ	*-ofsT
				.DA #$00			January
				.DA #$1F			February
				.DA #$3B			March
				.DA #$5A			April
				.DA #$78			May
				.DA #$97			June
				.DA #$B5			July
				.DA #$D3			August
				.DA #$F2			September
				.DA #$14			October (MOD 256)
				.DA #$33			November
				.DA #$51			December

* the following table is used to look up the current year, based on
* the current month, day and day of week. The 1st entry corresponds
* to the year in which January 1st falls on a Monday. The 2nd entry
* is the year which January 1st is Sunday, and so on backwards thru
* the days of the week.

yradj			.EQ	*-ofsT
				.DA #$60			Monday
				.DA #$5F			Sunday
				.DA #$5E			Saturday
				.DA #$5D			Friday
				.DA #$62			Thursday
				.DA #$61			Wednesday
				.DA #$60			Tuesday
tclk_end		.EQ	*		 		end of obj tclock_0.
				.HS 000000		 	pad
*--------------------------------------
MAN
SAVE USR/SRC/PRODOS.203/PRODOS.S.TCLK
LOAD USR/SRC/PRODOS.203/PRODOS.S
ASM