cocalola.asm

冷光源 产品的控制器 HT48R系列和HT48E系列

#include ht48r05A-1.inc
data .section 'data'
;----------初始化
count1 db ?
count2 db ?
count3 db ?
cotA db ?
cotB db ?
cotC db ?
lampA db ?
lampB db ?
lampC db ?
;----------程序段,端口初始化
code .section at 0 'code'
     org 00h
     jmp start
start:
     mov a,0
     mov pac,a
     mov pbc,a
     mov pcc,a
     mov pa,a
     mov pb,a
     mov pc,a
;----------开机保护
call Delay3      
call Delay3
       we:
;--------------------------一
		set pa.2
		call Delay2
		set pa.1
		call Delay1
        set pa.0
       	call Delay3
        clr pa.0
   		clr pa.1
;-------------------------二 
	mov a,3
    mov cotA,a
     we1: 
       call Delay2
        set pa.1
        call Delay2
        set pa.0
        call Delay2
        clr pa.0
   		clr pa.1    
        call Delay2
     sdz cotA         	
     jmp we1 
;--------------------------三
      mov a,3
      mov cotB,a 
     we2: 
       call Delay2
        set pa
        call Delay2
        clr pa
        call Delay2
        sdz cotB
     jmp we2 
jmp we
;-----------Delay延迟子程序
Delay1 proc       
       mov a,0ffh
       mov count1,a
       mov count2,a
    d1:
       sdz count2
       jmp d1
       sdz count1
       jmp d1
       ret
Delay1 endp
;----------Delay2
Delay2 proc
       mov a,002h
       mov count1,a
       mov a,0ffh
       mov count2,a
       mov count3,a
    d2:
       sdz count3
       jmp d2
       sdz count2
       jmp d2
       sdz count1
       jmp d2
       ret
Delay2 endp
;----------Delay3
Delay3 proc
       mov a,00ah
       mov count1,a
       mov a,0ffh
       mov count2,a
       mov count3,a
    d3:
       sdz count3
       jmp d3
       sdz count2
       jmp d3
       sdz count1
       jmp d3
       ret
Delay3 endp
end