' PicStic-2 Clock Test - Requires Micromint PicStic-2 with JRC6355
'
'       B15     Year            00 - 99
'       B16     Month           01 - 12
'       B17     Day of Month    01 - 31
'       B18     Day of Week     01 - 07
'       B19     Hours           00 - 23
'       B20     Minutes         00 - 59
'       B21     Seconds         00 - 59
'
' Note : All values are stored in BCD. Print as Hex to Display.

Symbol  SO = 0                                  ' Serial Output Channel

	B19 = $23 : B20 = $58 : B21 = $50       ' Set Clock
	B18 = $07
	B16 = $12 : B17 = $31 : B15 = $99

	Call ClockSet

Loop:   Call ClockGet                           ' Read Clock
	B13 = "/" :     B14 = B16 : Gosub P2    ' Print Date & Time
			B14 = B17 : Gosub P02
	B13 = " " :     B14 = B15 : Gosub P02
	B13 = ":" :     B14 = B19 : Gosub P2
			B14 = B20 : Gosub P02
	B13 = 13 :      B14 = B21 : Gosub P02
	Pause 250                               ' Visual Delay
	Goto Loop                               ' Continue Forever

P2:     If B14 >= 10 Then P02 : B12 = " " : Gosub PC : Goto P1
P02:    B12 = B14 / 16 + "0" : Gosub PC
P1:     B12 = B14 & $0F + "0" : Gosub PC
	B12 = B13
PC:     Serout SO,N2400,(B12)
	Return