coffee.lst

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

文件：COFFEE.ASM   盛群编译器版本 2.86 页次1


   1  0000              #include ht48r05A-1.inc


   2  0000              data .section 'data'
   3  0000              ;----------初始化
   4  0000  00          count1 db ?
   5  0001  00          count2 db ?
   6  0002  00          count3 db ?
   7  0003  00          cotA db ?
   8  0004  00          cotB db ?
   9  0005  00          cotC db ?
  10  0006  00          lampA db ?
  11  0007  00          lampB db ?
  12  0008  00          lampC db ?
  13  0009              ;----------程序段,端口初始化
  14  0000              code .section at 0 'code'
  15  0000                   org 00h
  16  0000  2801             jmp start
  17  0001              start:
  18  0001  0F00             mov a,0
  19  0002  0093             mov pac,a
  20  0003  0095             mov pbc,a
  21  0004  0097             mov pcc,a
  22  0005  0092             mov pa,a
  23  0006  0094             mov pb,a
  24  0007  0096             mov pc,a
  25  0008              ;----------开机保护
  26  0008  1F96        set pc
  27  0009  204C        call Delay3      
  28  000A  204C        call Delay3
  29  000B              
  30  000B              
  31  000B              
  32  000B                     we:
  33  000B              ;--------------咖啡，边框
  34  000B  3392                 set pa.7
  35  000C  2040                call Delay2
  36  000D  3312           		 set pa.6
  37  000E  2040                call Delay2
  38  000F              ;--------------杯体，眼睛
  39  000F  3114                set pb.2
  40  0010  2038                call Delay1
  41  0011  3094                set pb.1        
  42  0012  2040        		call Delay2
  43  0013              ;--------------浓香
  44  0013  3012        		set pa.0
  45  0014  2038                call Delay1
  46  0015  3092                set pa.1
  47  0016  2038         		call Delay1
  48  0017  3112        		set pa.2
  49  0018  2038        		call Delay1
  50  0019  3192                set pa.3
  51  001A  2038        		call Delay1
  52  001B  3212                set pa.4
  53  001C  2038                call Delay1
  54  001D  3292        		set pa.5
  55  001E  2038        		call Delay1
  56  001F              ;------------整体的闪动	
  57  001F  1F12        		clr pa
文件：COFFEE.ASM   盛群编译器版本 2.86 页次2

  58  0020  1F14        		clr pb
  59  0021  2040                call Delay2
  60  0022  1F92                set pa
  61  0023  1F94                set pb
  62  0024  2040                call Delay2
  63  0025  1F12           		clr pa
  64  0026  1F14        		clr pb
  65  0027                    ;--------二次
  66  0027  2040        		call Delay2
  67  0028  1F92                set pa
  68  0029  1F94                set pb
  69  002A  2040                call Delay2
  70  002B  2040                call Delay2
  71  002C  1F12           		clr pa
  72  002D  1F14        		clr pb
  73  002E                     ;--------三次
  74  002E  2040                call Delay2
  75  002F  1F92                set pa
  76  0030  1F94                set pb
  77  0031  204C                call Delay3
  78  0032  2040        		call Delay2
  79  0033  1F12           		clr pa
  80  0034  1F14        		clr pb 
  81  0035  204C        		call Delay3
  82  0036  2040        		call Delay2    
  83  0037  280B        jmp we
  84  0038              ;-----------Delay延迟子程序
  85  0038              Delay1 proc       
  86  0038  0FFF               mov a,0ffh
  87  0039  0080     R         mov count1,a
  88  003A  0080     R         mov count2,a
  89  003B                  d1:
  90  003B  1780     R         sdz count2
  91  003C  283B               jmp d1
  92  003D  1780     R         sdz count1
  93  003E  283B               jmp d1
  94  003F  0003               ret
  95  0040              Delay1 endp
  96  0040              ;----------Delay2
  97  0040              Delay2 proc
  98  0040  0F02               mov a,002h
  99  0041  0080     R         mov count1,a
 100  0042  0FFF               mov a,0ffh
 101  0043  0080     R         mov count2,a
 102  0044  0080     R         mov count3,a
 103  0045                  d2:
 104  0045  1780     R         sdz count3
 105  0046  2845               jmp d2
 106  0047  1780     R         sdz count2
 107  0048  2845               jmp d2
 108  0049  1780     R         sdz count1
 109  004A  2845               jmp d2
 110  004B  0003               ret
 111  004C              Delay2 endp
 112  004C              ;----------Delay3
 113  004C              Delay3 proc
 114  004C  0F0A               mov a,00ah
 115  004D  0080     R         mov count1,a
 116  004E  0FFF               mov a,0ffh
 117  004F  0080     R         mov count2,a
文件：COFFEE.ASM   盛群编译器版本 2.86 页次3

 118  0050  0080     R         mov count3,a
 119  0051                  d3:
 120  0051  1780     R         sdz count3
 121  0052  2851               jmp d3
 122  0053  1780     R         sdz count2
 123  0054  2851               jmp d3
 124  0055  1780     R         sdz count1
 125  0056  2851               jmp d3
 126  0057  0003               ret
 127  0058              Delay3 endp
 128  0058              end  


        0 Errors