temp-1.lst

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

文件：TEMP-1.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  204E           call delay3
  27  0009  2042           call delay2
  28  000A              we:
  29  000A  0F05             mov a,5
  30  000B  0080     R       mov cotA,a
  31  000C  0F03             mov a,3
  32  000D  0080     R       mov cotB,a
  33  000E  0F80             mov a,10000000b
  34  000F  0080     R       mov lampA,a
  35  0010              ;-------PA7→3-Light-Delay1闪亮
  36  0010  0700     R       mov a,lampA
  37  0011  0092        loopA1: mov pa,a
  38  0012  2036               call Delay1
  39  0013  300A               set c
  40  0014  1B80     R         rrc lampA
  41  0015  0700     R         mov a,lampA
  42  0016  1780     R         sdz cotA
  43  0017  2811               jmp loopA1
  44  0018              ;-------PA2→0-Light-Delay2渐亮    
  45  0018  2036             call Delay1
  46  0019  0700     R       mov a,lampA
  47  001A  0092        loopA2: mov pa,a
  48  001B  2042               call Delay2
  49  001C  300A               set c
  50  001D  1B80     R         rrc lampA
  51  001E  0700     R         mov a,lampA
  52  001F  1780     R         sdz cotB
  53  0020  281A               jmp loopA2
  54  0021              ;-------PB2→1-Light-Delay2&Delay3       
  55  0021  0F04               mov a,00000100b
  56  0022  0094               mov pb,a
  57  0023              ;------------渐亮与长亮间隔
文件：TEMP-1.ASM   盛群编译器版本 2.86 页次2

  58  0023  2042               call Delay2
  59  0024  204E               call Delay3
  60  0025  0F06               mov a,00000110b
  61  0026  0094               mov pb,a
  62  0027              ;---------------全亮时间
  63  0027  204E               call Delay3
  64  0028  2042               call Delay2        
  65  0029              ;------------------端口关闭
  66  0029  0F00               mov a,0
  67  002A  0092               mov pa,a
  68  002B  0096               mov pc,a       
  69  002C              ;---余晖消除时序
  70  002C  0F01               mov a,1
  71  002D  0094               mov pb,a
  72  002E  2042               call delay2
  73  002F              ;--------------
  74  002F  0F00               mov a,0
  75  0030  0092               mov pa,a
  76  0031  0094               mov pb,a
  77  0032  0096               mov pc,a       
  78  0033  2042               call Delay2       
  79  0034  2036               call Delay1
  80  0035  280A        jmp we
  81  0036              ;-----------Delay延迟子程序
  82  0036              Delay1 proc
  83  0036  0F02               mov a,002h
  84  0037  0080     R         mov count1,a
  85  0038  0F7F               mov a,001111111b
  86  0039  0080     R         mov count2,a
  87  003A  0080     R         mov count3,a
  88  003B                  d1:
  89  003B  1780     R         sdz count3
  90  003C  283B               jmp d1
  91  003D  1780     R         sdz count2
  92  003E  283B               jmp d1
  93  003F  1780     R         sdz count1
  94  0040  283B               jmp d1
  95  0041  0003               ret
  96  0042              Delay1 endp
  97  0042              ;----------Delay2
  98  0042              Delay2 proc
  99  0042  0F02               mov a,002h
 100  0043  0080     R         mov count1,a
 101  0044  0FFF               mov a,0ffh
 102  0045  0080     R         mov count2,a
 103  0046  0080     R         mov count3,a
 104  0047                  d2:
 105  0047  1780     R         sdz count3
 106  0048  2847               jmp d2
 107  0049  1780     R         sdz count2
 108  004A  2847               jmp d2
 109  004B  1780     R         sdz count1
 110  004C  2847               jmp d2
 111  004D  0003               ret
 112  004E              Delay2 endp
 113  004E              ;----------Delay3
 114  004E              Delay3 proc
 115  004E  0F0A               mov a,00ah
 116  004F  0080     R         mov count1,a
 117  0050  0FFF               mov a,0ffh
文件：TEMP-1.ASM   盛群编译器版本 2.86 页次3

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


        0 Errors