lf8.lst

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

文件：LF8.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  2043        call Delay3      
  26  0009  2043        call Delay3
  27  000A              
  28  000A              
  29  000A              
  30  000A              we:
  31  000A  0F08             mov a,8
  32  000B  0080     R       mov cotA,a
  33  000C  0F09             mov a,9
  34  000D  0080     R       mov cotB,a
  35  000E  0F80             mov a,10000000b
  36  000F  0080     R       mov lampA,a
  37  0010              ;-------PA7→0Light-Delay1闪亮
  38  0010  0700     R       mov a,lampA
  39  0011  0092        loopA1: mov pa,a
  40  0012  202B               call Delay1
  41  0013  340A               clr c
  42  0014  1B80     R         rrc lampA
  43  0015  0700     R         mov a,lampA
  44  0016  1780     R         sdz cotA
  45  0017  2811               jmp loopA1
  46  0018  0FFF           mov a,0ffh
  47  0019  0094           mov  pb,a 
  48  001A  2037           call delay2
  49  001B  0F00           mov a,0
  50  001C  0094           mov pb,a
  51  001D                 
  52  001D  0092        loopA2: mov pa,a
  53  001E  2037               call Delay2
  54  001F  300A               set c
  55  0020  1B80     R         rrc lampA
  56  0021  0700     R         mov a,lampA
  57  0022  1780     R         sdz cotB
文件：LF8.ASM      盛群编译器版本 2.86 页次2

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



        0 Errors