coffee.asm

来自「冷光源 产品的控制器 HT48R系列和HT48E系列」· 汇编 代码 · 共 130 行

#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
;----------开机保护
set pc
call Delay3      
call Delay3



       we:
;--------------咖啡，边框
         set pa.7
        call Delay2
   		 set pa.6
        call Delay2
;--------------杯体，眼睛
        set pb.2
        call Delay1
        set pb.1        
		call Delay2
;--------------浓香
		set pa.0
        call Delay1
        set pa.1
 		call Delay1
		set pa.2
		call Delay1
        set pa.3
		call Delay1
        set pa.4
        call Delay1
		set pa.5
		call Delay1
;------------整体的闪动	
		clr pa
		clr pb
        call Delay2
        set pa
        set pb
        call Delay2
   		clr pa
		clr pb
      ;--------二次
		call Delay2
        set pa
        set pb
        call Delay2
        call Delay2
   		clr pa
		clr pb
       ;--------三次
        call Delay2
        set pa
        set pb
        call Delay3
		call Delay2
   		clr pa
		clr pb 
		call Delay3
		call Delay2    
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