test13.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:
     mov a,8
     mov cotA,a
     mov a,9
     mov cotB,a
     mov a,10000000b
     mov lampA,a
;-------PA7→0Light-Delay1闪亮
     mov a,lampA
loopA1: mov pa,a
       call Delay1
       clr c
       rrc lampA
       mov a,lampA
       sdz cotA
       jmp loopA1
  
   mov a,0
 
   
loopA2: mov pa,a
       call Delay2
       set c
       rrc lampA
       mov a,lampA
       sdz cotB
       jmp loopA2
               
;------------------端口关闭
       set pb
       set pc
      call delay3
   
       mov a,0
       mov pa,a
       mov pb,a
       mov pc,a       
       call Delay2       
       call Delay3
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