; ---------------------------------------- ; Digital Clock Ver1.00 / NZ80Z3 (Z80Mode) ; Copyright (c) ger531 (23 July 2012.) ; http://hns2000.iza-yoi.net/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) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; DEFAULT CLOCK SET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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 03 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; LED CLEAR ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CALL CLR ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; DEFAULT SEC DATA (TEST) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; LD HL,SECL ;Ex 00 -> 05 LD (HL),05 LD HL,SECR ;Ex 00 -> 09 LD (HL),06 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAIN: CALL TM1S ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;HOUR L (0 To 2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAIN2: 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,S6 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; S6: LD HL,SECL LD A,(HL) SUB 06 JP NZ,SECROUT LD HL,SECL LD (HL),00 LD HL,LED2 LD (HL),3F ;6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SECROUT:LD HL,SECR LD A,(HL) SUB 00 JP NZ,T1 LD HL,LED1 LD (HL),BF ;0. LD HL,SECR INC (HL) 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) JP MAIN ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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),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 JP MAIN2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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 LD HL,HOURR INC (HL) LD HL,MINL LD (HL),FF LD HL,FLG4 LD (HL),00 LD HL,FLG5 LD (HL),00 LD HL,FLG6 LD (HL),00 JP MAIN2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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,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 TM1S: NOP CALL TM05 TM05: CALL TM025 TM025: PUSH DE LD E,36;=50 TM025_2:PUSH DE CALL TM5M POP DE DEC E JP NZ,TM025_2 POP DE RET ;END