temp-1.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 delay2
we:
     mov a,5
     mov cotA,a
     mov a,3
     mov cotB,a
     mov a,10000000b
     mov lampA,a
;-------PA7→3-Light-Delay1闪亮
     mov a,lampA
loopA1: mov pa,a
       call Delay1
       set c
       rrc lampA
       mov a,lampA
       sdz cotA
       jmp loopA1
;-------PA2→0-Light-Delay2渐亮    
     call Delay1
     mov a,lampA
loopA2: mov pa,a
       call Delay2
       set c
       rrc lampA
       mov a,lampA
       sdz cotB
       jmp loopA2
;-------PB2→1-Light-Delay2&Delay3       
       mov a,00000100b
       mov pb,a
;------------渐亮与长亮间隔
       call Delay2
       call Delay3
       mov a,00000110b
       mov pb,a
;---------------全亮时间
       call Delay3
       call Delay2        
;------------------端口关闭
       mov a,0
       mov pa,a
       mov pc,a       
;---余晖消除时序
       mov a,1
       mov pb,a
       call delay2
;--------------
       mov a,0
       mov pa,a
       mov pb,a
       mov pc,a       
       call Delay2       
       call Delay1
jmp we
;-----------Delay延迟子程序
Delay1 proc
       mov a,002h
       mov count1,a
       mov a,001111111b
       mov count2,a
       mov count3,a
    d1:
       sdz count3
       jmp 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