[ハード] TK-80 デジタル時計 外部クロック版

ND80Z3 Z80モード用デジタル時計。外部クロック版。
9000番地に左桁の時、9001番地に右桁の時、9002番地に左桁の分、9003番地に右桁の分をセット。
21:50:00 なら 9000番地に02、9001番地に01、9002番地に05、9003番地に00をセット。
セット後8000番地からスタート。

CN2コネクタのBポートの一つに1Hzを供給して下さい。1Hz回路の1つのケーブルはND80Z3の -　に接続するのも忘れないで下さい。表示もされません。
矩形波であればデューティー比は適当でも平気です。
桁上げ時、動作がおかしいとフラグを立てて無理矢理直しているので自分でもよく解らなくなっています。

別回部から1Hzを入れている様子 6時51分32秒。

メモリ上のデータ書き換えて桁上がりの試験中

; START ADDRESS
ORG	$8000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;LED 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LED1=$FFFE	;SEC RIGHT
LED2=$FFFD	;SEC LEFT
LED3=$FFFC	;MIN RIGHT
LED4=$FFFB	;MIN LEFT
LED5=$FFFA	;HOUR RIGHT
LED6=$FFF9	;HOUR LEFT

TM5M=$02DD

SECR=$9004 	;SEC(R) 
SECL=$9005 	;SEC(L) 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MINR=$9003	;MIN(R)  / DATASET Ex 00 To 09
MINL=$9002	;MIN(L)  / Ex 00 To 5

HOURR=$9001	;HOUR(R)  / Ex 00 To 09
HOURL=$9000	;HOUR(L)  / Ex 00 To 05

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;FLG
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
FLG1=$9006;	SECL
FLG2=$9007;	MINR
FLG3=$9008;	SECL

FLG4=$9009 ;	MINL
FLG5=$900A ;	MINR
FLG6=$900B;	SECL

FLG7=$900C	;HOURR 
FLG8=$900D	;MINL
FLG9=$900E	;MINR
FLG10=$900F	;SECL

; HOUR 23:XX:XX -> 00:00:00 CHK
FLG11=$9010	;HOURL
FLG12=$9011	;HOURR
TMP=$9400
TMP2=$9401

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; LED CLEAR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	CALL CLR

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; DEFAULT SEC DATA 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LD HL,SECR ;Ex 00 -> 09
	LD (HL),01

	LD HL,SECL ;Ex 00 -> 05
	LD (HL),00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; FLG CLEAR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LD HL,FLG1
	LD (HL),00

	LD HL,FLG2
	LD (HL),00

	LD HL,FLG3
	LD (HL),00

	LD HL,FLG4
	LD (HL),00

	LD HL,FLG5
	LD (HL),00

	LD HL,FLG6
	LD (HL),00

	LD HL,FLG7
	LD (HL),00

	LD HL,FLG8
	LD (HL),00

	LD HL,FLG9
	LD (HL),00

	LD HL,FLG10
	LD (HL),00

	LD HL,FLG11
	LD (HL),00

	LD HL,FLG12
	LD (HL),00

	LD HL,TMP
	LD (HL),00
	LD HL,TMP2
	LD (HL),00

	LD A,82 ; BPORT INPUT MODE
	OUT (83),A

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MAIN:	;CALL TM1S

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;HOUR L (0 To 2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MAIN2:	IN A,(81) ; BPORT -> A

	SUB FF; 02
	JP NZ,CNTUPCHK	

	LD HL,TMP
	LD (HL),00

	JP MAIN2


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CNTUPCHK:;
	LD HL,TMP
	LD A,(HL)
	SUB 00
	JP NZ,MAIN2
	
UP:	LD HL,TMP2
	LD (HL),01

	LD HL,TMP
	LD (HL),01

	;JP MAIN2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DF:	LD HL,FLG11
	LD (HL),00

	LD HL,HOURL
	LD A,(HL)
	SUB 00
	JP NZ,NN1

	LD HL,LED6
	LD (HL),3F 	;0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NN1:	LD HL,HOURL
	LD A,(HL)
	SUB 01
	JP NZ,NN2

	LD HL,LED6
	LD (HL),06 	;1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NN2:	LD HL,HOURL
	LD A,(HL)
	SUB 02
	JP NZ,HH0

	LD HL,LED6
	LD (HL),5B 	;2

	LD HL,FLG11
	LD (HL),01

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;HOUR R (0 To 9)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH0:	LD HL,FLG12
	LD (HL),00

	LD HL,FLG7
	LD (HL),00

	LD HL,HOURR
	LD A,(HL)
	SUB 00
	JP NZ,HH1

	LD HL,LED5
	LD (HL),BF 	;0.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH1:	LD HL,HOURR
	LD A,(HL)
	SUB 01
	JP NZ,HH2

	LD HL,LED5
	LD (HL),86	;1.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH2:	LD HL,HOURR
	LD A,(HL)
	SUB 02
	JP NZ,HH3

	LD HL,LED5
	LD (HL),DB	;2.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH3:	LD HL,HOURR
	LD A,(HL)
	SUB 03
	JP NZ,HH4

	LD HL,LED5
	LD (HL),CF 	;3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH4:	LD HL,HOURR
	LD A,(HL)
	SUB 04
	JP NZ,HH5

	LD HL,LED5
	LD (HL),E6 	;4.

	LD HL,FLG12
	LD (HL),01

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH5:	LD HL,HOURR
	LD A,(HL)
	SUB 05
	JP NZ,HH6

	LD HL,LED5
	LD (HL),ED 	;5.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH6:	LD HL,HOURR
	LD A,(HL)
	SUB 06
	JP NZ,HH7

	LD HL,LED5
	LD (HL),FD 	;6.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH7:	LD HL,HOURR
	LD A,(HL)
	SUB 07
	JP NZ,HH8

	LD HL,LED5
	LD (HL),A7	;7.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH8:	LD HL,HOURR
	LD A,(HL)
	SUB 08
	JP NZ,HH9

	LD HL,LED5
	LD (HL),FF 	;8.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HH9:	LD HL,HOURR
	LD A,(HL)
	SUB 09
	JP NZ,MM0

	LD HL,LED5
	LD (HL),EF 	;9.

	LD HL,FLG7
	LD (HL),01

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;MIN L ( 0 To 5)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MM0:	LD HL,FLG4
	LD (HL),00

	LD HL,FLG8
	LD (HL),00

	LD HL,MINL
	LD A,(HL)
	SUB 00
	JP NZ,MM1

	LD HL,LED4
	LD (HL),3F 	;0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MM1:	LD HL,MINL
	LD A,(HL)
	SUB 01
	JP NZ,MM2

	LD HL,LED4
	LD (HL),06 	;1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MM2:	LD HL,MINL
	LD A,(HL)
	SUB 02
	JP NZ,MM3

	LD HL,LED4
	LD (HL),5B 	;2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MM3:	LD HL,MINL
	LD A,(HL)
	SUB 03
	JP NZ,MM4

	LD HL,LED4
	LD (HL),4F 	;3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MM4:	LD HL,MINL
	LD A,(HL)
	SUB 04
	JP NZ,MM5

	LD HL,LED4
	LD (HL),66 	;4

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MM5:	LD HL,MINL
	LD A,(HL)
	SUB 05
	JP NZ,M0

	LD HL,LED4
	LD (HL),6D 	;5

	;;;;;
	LD HL,FLG4
	LD (HL),01

	LD HL,FLG8
	LD (HL),01
	;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;MIN R ( 0 To 9)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M0:	LD HL,FLG5
	LD (HL),00

	LD HL,FLG2
	LD (HL),00

	LD HL,FLG9
	LD (HL),00
	
	LD HL,MINR
	LD A,(HL)
	SUB 00
	JP NZ,M1

	LD HL,LED3
	LD (HL),BF 	;0.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M1:	LD HL,MINR
	LD A,(HL)
	SUB 01
	JP NZ,M2

	LD HL,LED3
	LD (HL),86 	;1.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M2:	LD HL,MINR
	LD A,(HL)
	SUB 02
	JP NZ,M3

	LD HL,LED3
	LD (HL),DB 	;2.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M3:	LD HL,MINR
	LD A,(HL)
	SUB 03
	JP NZ,M4

	LD HL,LED3
	LD (HL),CF 	;3.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M4:	LD HL,MINR
	LD A,(HL)
	SUB 04
	JP NZ,M5

	LD HL,LED3
	LD (HL),E6 	;4.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M5:	LD HL,MINR
	LD A,(HL)
	SUB 05
	JP NZ,M6

	LD HL,LED3
	LD (HL),ED 	;5.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M6:	LD HL,MINR
	LD A,(HL)
	SUB 06
	JP NZ,M7

	LD HL,LED3
	LD (HL),FD 	;6.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M7:	LD HL,MINR
	LD A,(HL)
	SUB 07
	JP NZ,M8

	LD HL,LED3
	LD (HL),A7 	;7.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M8:	LD HL,MINR
	LD A,(HL)
	SUB 08
	JP NZ,M9

	LD HL,LED3
	LD (HL),FF 	;8.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
M9:	LD HL,MINR
	LD A,(HL)
	SUB 09
	JP NZ,S0

	LD HL,LED3
	LD (HL),EF	;9.

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LD HL,FLG2
	LD (HL),01

	LD HL,FLG5
	LD (HL),01

	LD HL,FLG9
	LD (HL),01
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;SEC L ( 0 To 5)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	
S0:	LD HL,FLG1
	LD (HL),00

	LD HL,FLG3
	LD (HL),00

	LD HL,FLG6
	LD (HL),00

	LD HL,FLG10
	LD (HL),00

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	LD HL,SECL
	LD A,(HL)
	SUB 00
	JP NZ,S1

	LD HL,LED2
	LD (HL),3F	 ;0
	;JP S2


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
S1:	LD HL,SECL
	LD A,(HL)
	SUB 01
	JP NZ,S2

	LD HL,LED2
	LD (HL),06 	;1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
S2:	LD HL,SECL
	LD A,(HL)
	SUB 02
	JP NZ,S3

	LD HL,LED2
	LD (HL),5B 	;2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
S3:	LD HL,SECL
	LD A,(HL)
	SUB 03
	JP NZ,S4

	LD HL,LED2
	LD (HL),4F 	;3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
S4:	LD HL,SECL
	LD A,(HL)
	SUB 04
	JP NZ,S5

	LD HL,LED2
	LD (HL),66	;4

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
S5:	LD HL,SECL
	LD A,(HL)
	SUB 05
	JP NZ,SECROUT

	LD HL,LED2
	LD (HL),6D 	;5
	
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LD HL,FLG1
	LD (HL),01

	LD HL,FLG3
	LD (HL),01

	LD HL,FLG6
	LD (HL),01

	LD HL,FLG10
	LD (HL),01
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SECROUT:LD HL,SECR
	LD A,(HL)
	SUB 00
	JP NZ,T1

	LD HL,LED1
	LD (HL),BF 	;0.

	LD HL,SECR
	INC (HL)
	;HALT
	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;SEC R (0 To 9)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T1:	LD HL,SECR
	LD A,(HL)
	SUB 01
	JP NZ,T2

	LD HL,LED1
	LD (HL),86 	;1.

	LD HL,SECR
	INC (HL)

	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T2:	LD HL,SECR
	LD A,(HL)
	SUB 02
	JP NZ,T3

	LD HL,LED1
	LD (HL),DB 	;2.

	LD HL,SECR
	INC (HL)
	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T3:	LD HL,SECR
	LD A,(HL)
	SUB 03
	JP NZ,T4

	LD HL,LED1
	LD (HL),CF 	;3.

	LD HL,SECR
	INC (HL)

	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T4:	LD HL,SECR
	LD A,(HL)
	SUB 04
	JP NZ,T5

	LD HL,LED1
	LD (HL),E6 	;4.

	LD HL,SECR
	INC (HL)

	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T5:	LD HL,SECR
	LD A,(HL)
	SUB 05
	JP NZ,T6

	LD HL,LED1
	LD (HL),ED 	;5.

	LD HL,SECR
	INC (HL)

	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T6:	LD HL,SECR
	LD A,(HL)
	SUB 06
	JP NZ,T7

	LD HL,LED1
	LD (HL),FD 	;6.

	LD HL,SECR
	INC (HL)

	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T7:	LD HL,SECR
	LD A,(HL)
	SUB 07
	JP NZ,T8

	LD HL,LED1
	LD (HL),A7 	;7.

	LD HL,SECR
	INC (HL)

	JP MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T8:	LD HL,SECR
	LD A,(HL)
	SUB 08
	JP NZ,T9

	LD HL,LED1
	LD (HL),FF 	;8.

	LD HL,SECR
	INC (HL)

	JP MAIN


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
T9:	LD HL,SECR
	LD A,(HL)
	SUB 09
	JP NZ,T0

	LD HL,LED1
	LD (HL),EF 	;9.

	LD HL,SECR
	INC (HL)

	LD HL,FLG4
	LD A,(HL)
	SUB 01
	JP NZ,T0

	LD HL,FLG8
	LD A,(HL)
	SUB 01
	JP NZ,T0

	LD HL,FLG2
	LD A,(HL)
	SUB 01
	JP NZ,T0

	LD HL,FLG5
	LD A,(HL)
	SUB 01
	JP NZ,T0

	LD HL,FLG9
	LD A,(HL)
	SUB 01
	JP NZ,T0

	LD HL,FLG10
	LD A,(HL)
	SUB 01
	JP NZ,T0

	;HALT
	LD HL,SECR
	LD (HL),00

	LD HL,SECL
	LD (HL),00

	LD HL,MINR
	LD (HL),00

	LD HL,MINL
	LD (HL),00

	LD HL,HOURR
	INC (HL)
	
	LD HL,HOURL
	LD A,(HL)
	SUB 02
	JP NZ,T0

	LD HL,HOURR
	LD A,(HL)
	SUB 04
	JP NZ,T0
	
	LD HL,HOURR
	LD (HL),00
	LD HL,HOURL
	LD (HL),00

T0:	; CHK HOURR
	LD HL,FLG11
	LD A,(HL)
	SUB 01
	JP NZ,HS

	LD HL,FLG12
	LD A,(HL)
	SUB 01
	JP NZ,HS	

	LD HL,HOURR
	LD (HL),00

	LD HL,HOURL
	LD (HL),00

	LD HL,FLG11
	LD (HL),00

	LD HL,FLG12
	LD (HL),00


HS:	LD HL,FLG7
	LD A,(HL)
	SUB 01
	JP NZ,TF1

	LD HL,FLG8
	LD A,(HL)
	SUB 01
	JP NZ,TF1	

	LD HL,FLG9
	LD A,(HL)
	SUB 01
	JP NZ,TF1

	LD HL,FLG10
	LD A,(HL)
	SUB 01
	JP NZ,TF1	

	LD HL,HOURL
	INC (HL)
	
	LD HL,HOURR
	LD (HL),00 ;FF

	LD HL,FLG7
	LD (HL),00

	LD HL,FLG8
	LD (HL),00

	LD HL,FLG9
	LD (HL),00

	LD HL,FLG10
	LD (HL),00

TF1:	LD HL,FLG4 ; HOUR R UP CHK
	LD A,(HL)	
	SUB 01
	JP NZ,TF2
	
	LD HL,FLG5
	LD A,(HL)	
	SUB 01
	JP NZ,TF2

	LD HL,FLG6
	LD A,(HL)	
	SUB 01
	JP NZ,TF2

RA1:	LD HL,MINL
	LD (HL),FF

	LD HL,FLG4
	LD (HL),00

	LD HL,FLG5
	LD (HL),00

	LD HL,FLG6
	LD (HL),00

TF2:	LD HL,LED1
	;LD (HL),3F ;0

	LD HL,SECR
	LD (HL),00

	LD HL,SECL
	INC (HL)

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LD HL,FLG1
	LD A,(HL)
	SUB 01
	JP NZ,MAIN2

	LD HL,MINR
	INC (HL)
	
	LD HL,SECL
	LD (HL),00

	LD HL,FLG1
	LD (HL),00

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LD HL,FLG2
	LD A,(HL)
	SUB 01
	JP NZ,MAIN2

	LD HL,FLG3
	LD A,(HL)
	SUB 01
	JP NZ,MAIN2

	LD HL,MINL
	INC (HL)
	
	LD HL,MINR
	LD (HL),00

	LD HL,FLG2
	LD (HL),00

	LD HL,FLG3
	LD (HL),00
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	

	JP MAIN2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CLR:	LD HL,$FFF8
	LD BC,$0800
CLR2:	LD (HL),00
	INC HL
	DJNZ *CLR2
	RET


;END