; ---------------------------------------- ; Digital Clock Ver2.00 / NZ80Z3 (Z80Mode) ; Copyright (c) ger531 (23 July 2012.) ; http://www.geocities.jp/ger531/ND80Z3/index.htm ; ---------------------------------------- ; 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