test13.lst

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

文件：TEST13.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  2042        call Delay3      
  26  0009  2042        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  202A               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                
  47  0018  0F00           mov a,0
  48  0019               
  49  0019                 
  50  0019  0092        loopA2: mov pa,a
  51  001A  2036               call Delay2
  52  001B  300A               set c
  53  001C  1B80     R         rrc lampA
  54  001D  0700     R         mov a,lampA
  55  001E  1780     R         sdz cotB
  56  001F  2819               jmp loopA2
  57  0020                             
文件：TEST13.ASM   盛群编译器版本 2.86 页次2

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

 118  004E              end  


        0 Errors