Org     0000h
        Ljmp    Start

cw		Bit		p3.5;
ptt		Bit		p3.7;
 
;----------------------------------------
Start:
		Setb		ptt
		Clr		cw
                Nop
                Nop

		Call            dath;    D
                Call            dit
                Call            dit
               Call            Del_125
               Call            Del_125
                Call            dit ;    E
                
                Call            Del_1
                

                Call            dit;     R
                Call            dath
                Call            dit 
               Call            Del_125
               Call            Del_125
                Call            dit;     R
                Call            dath
                Call            dit                             
               Call            Del_125
               Call            Del_125
                Call            dit;     3
                Call            dit
                Call            dit
                Call            dath
                Call            dath
               Call            Del_125
               Call            Del_125
                Call            dit;     W
                Call            dath 
                Call            dath 
               Call            Del_125
               Call            Del_125
                Call            dit;     A
                Call            dath 
        
                Call            Del_1s
               

                Call            dath;    B
                Call            dit
                Call            dit
                Call            dit
               Call            Del_125
               Call            Del_125 
                Call            dit;     E
               Call            Del_125
               Call            Del_125
                Call            dit;     A
                Call            dath 
               Call            Del_125
               Call            Del_125 
                Call            dath;    C
                Call            dit 
                Call            dath    
                Call            dit
               Call            Del_125
               Call            Del_125 
                Call            dath;    O 
                Call            dath  
                Call            dath
               Call            Del_125
               Call            Del_125
                Call            dath;    N
                Call            dit
        
                Call            Del_1s
		                 
 
                Call            dit;      L
                Call            dath
                Call            dit
                Call            dit
               Call            Del_125
               Call            Del_125  
                Call            dath;     O 
                Call            dath   
                Call            dath
               Call            Del_125
               Call            Del_125  
                Call            dath;     C
                Call            dit 
                Call            dath    
                Call            dit
 
             
                Call            Del_1

                Call            dath;     K
                Call            dit 
                Call            dath 
               Call            Del_125
               Call            Del_125    
                Call            dath;     O 
                Call            dath   
                Call            dath 
               Call            Del_125
               Call            Del_125 
                Call            dath;     8 
                Call            dath   
                Call            dath 
                Call            dit 
                Call            dit 
               Call            Del_125
               Call            Del_125 
                Call            dit;      1
                Call            dath      
                Call            dath   
                Call            dath
                Call            dath
               Call            Del_125
               Call            Del_125 
                Call            dath;     C
                Call            dit 
                Call            dath    
                Call            dit
               Call            Del_125
               Call            Del_125 
                Call            dit;      R
                Call            dath
                Call            dit 

                Nop
                
		Clr             ptt


                Mov        	R1,#60 
Loop:

		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S
		Call		Del_1S;10 секунд


		Djnz		R1,Loop

		Jmp		Start

;-------------------------
;Подпрограммы
;-------------------------
Del_1S:
;Задержка 1 секунда при частоте 12MHz
		Call		Del_1
		Call		Del_1
		Ret
;-------------------------
Del_1:
;Задержка 0.5 секунды при частоте 12MHz
		Mov		Dptr,#0
del2:		Inc		Dptr
		Nop
		Nop
		Nop
		Mov		A,Dpl
		Cjne		A,#0c7h,del2
		Mov		A,Dph
		Cjne		A,#0f3h,del2
		Nop
		Nop
		Nop
		Nop
		Ret	
;-------------------------
Del_125:
;Задержка 0.125 секунды при частоте 12MHz
		Mov		Dptr,#0
del125:		Inc		Dptr
		Mov		A,Dpl
		Cjne		A,#80h,del125
		Mov		A,Dph
		Cjne		A,#020h,del125
		Nop
		Nop
		Nop
		Nop
		Ret	
;-------------------------
dath: ; Тире с паузой в начале
                Call            Del_125
                Setb            cw
                Call            Del_125
                Call            Del_125
                Call            Del_125
           
                Clr             cw
ret 
;-------------------------
dit: ; Точка с паузой в начале
                Call            Del_125
                Setb            cw
                Call            Del_125
                
                Clr             cw
ret
;------------------------- 
End