temp-1

冷光源 产品的控制器 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 o '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
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 Delay1
       set c
       rrc lampA
       mov a,lampA
       sdz cotB
       jmp loopA2
;-------PB2→1-Light-Delay2&Delay3
       call Delay2
       mov a,00000100b
       mov pb,a
       call Delay3
       mov a,00000110b
       mov pb,a
       call Delay3
jmp we
;-----------Delay延迟子程序
Delay1 proc
       mov a,0ffh
       mov count1,a
       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,0ffh
       mov count1,a
       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,009h
       mov count1,a
       mov count2,a
       mov count3,a
    d3:
       sdz count3
       jmp d3
       sdz count2
       jmp d3
       sdz count1
       jmp d3
       ret
Delay2 endp
end