cocalola.lst

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

文件：COCALOLA.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  203C        call Delay3      
  27  0009  203C        call Delay3
  28  000A                     we:
  29  000A              ;--------------------------一
  30  000A  3112        		set pa.2
  31  000B  2030        		call Delay2
  32  000C  3092        		set pa.1
  33  000D  2028        		call Delay1
  34  000E  3012                set pa.0
  35  000F  203C               	call Delay3
  36  0010  3412                clr pa.0
  37  0011  3492           		clr pa.1
  38  0012              ;-------------------------二 
  39  0012  0F03        	mov a,3
  40  0013  0080     R      mov cotA,a
  41  0014                   we1: 
  42  0014  2030               call Delay2
  43  0015  3092                set pa.1
  44  0016  2030                call Delay2
  45  0017  3012                set pa.0
  46  0018  2030                call Delay2
  47  0019  3412                clr pa.0
  48  001A  3492           		clr pa.1    
  49  001B  2030                call Delay2
  50  001C  1780     R       sdz cotA         	
  51  001D  2814             jmp we1 
  52  001E              ;--------------------------三
  53  001E  0F03              mov a,3
  54  001F  0080     R        mov cotB,a 
  55  0020                   we2: 
  56  0020  2030               call Delay2
  57  0021  1F92                set pa
文件：COCALOLA.ASM 盛群编译器版本 2.86 页次2

  58  0022  2030                call Delay2
  59  0023  1F12                clr pa
  60  0024  2030                call Delay2
  61  0025  1780     R          sdz cotB
  62  0026  2820             jmp we2 
  63  0027  280A        jmp we
  64  0028              ;-----------Delay延迟子程序
  65  0028              Delay1 proc       
  66  0028  0FFF               mov a,0ffh
  67  0029  0080     R         mov count1,a
  68  002A  0080     R         mov count2,a
  69  002B                  d1:
  70  002B  1780     R         sdz count2
  71  002C  282B               jmp d1
  72  002D  1780     R         sdz count1
  73  002E  282B               jmp d1
  74  002F  0003               ret
  75  0030              Delay1 endp
  76  0030              ;----------Delay2
  77  0030              Delay2 proc
  78  0030  0F02               mov a,002h
  79  0031  0080     R         mov count1,a
  80  0032  0FFF               mov a,0ffh
  81  0033  0080     R         mov count2,a
  82  0034  0080     R         mov count3,a
  83  0035                  d2:
  84  0035  1780     R         sdz count3
  85  0036  2835               jmp d2
  86  0037  1780     R         sdz count2
  87  0038  2835               jmp d2
  88  0039  1780     R         sdz count1
  89  003A  2835               jmp d2
  90  003B  0003               ret
  91  003C              Delay2 endp
  92  003C              ;----------Delay3
  93  003C              Delay3 proc
  94  003C  0F0A               mov a,00ah
  95  003D  0080     R         mov count1,a
  96  003E  0FFF               mov a,0ffh
  97  003F  0080     R         mov count2,a
  98  0040  0080     R         mov count3,a
  99  0041                  d3:
 100  0041  1780     R         sdz count3
 101  0042  2841               jmp d3
 102  0043  1780     R         sdz count2
 103  0044  2841               jmp d3
 104  0045  1780     R         sdz count1
 105  0046  2841               jmp d3
 106  0047  0003               ret
 107  0048              Delay3 endp
 108  0048              end  


        0 Errors