text1.lst

该程序主要用于胶纸机的长短剪切

A51 MACRO ASSEMBLER  TEXT1                                                                07/02/2008 13:56:07 PAGE     1


MACRO ASSEMBLER A51 V8.00d
OBJECT MODULE PLACED IN Text1.OBJ
ASSEMBLER INVOKED BY: D:\聂斌辉软件\Kel\C51\BIN\A51.EXE Text1.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

                       1     ;双倍  P1.3
                       2     ;长转  P1.4
                       3     ;马达     P1.1
                       4     ;电磁铁   P1.2
0000                   5             org   00h
0000 0102              6             ajmp  start
0002 7590FF            7     start:  mov   p1,#0ffh
0005 758905            8             mov   tmod,#00000101b
0008 7400              9                     mov   a,#00h
000A F530             10                     mov   30h,a
000C 7BF7             11     l1:     mov   r3,#0f7h
000E 7900             12             mov   r1,#00h
0010 EB               13     l2:     mov   a,r3
0011 F5A0             14             mov   p2,a
0013 E5A0             15                     mov   a,p2
0015 FC               16                     mov   r4,a
0016 D3               17                     setb  c
0017 7D04             18                     mov   r5,#04h
0019 33               19     l3:     rlc   a
001A 500E             20             jnc   keyin
001C 09               21                     inc   r1
001D DDFA             22                     djnz  r5,l3
001F EB               23                     mov   a,r3
0020 D3               24                     setb  c
0021 13               25                     rrc   a
0022 FB               26                     mov   r3,a
0023 40EB             27                     jc    l2
0025 309455           28                     jnb   p1.4,end1
0028 80E2             29                     jmp   l1
002A 118E             30     keyin:  call  delay
002C E5A0             31     d4:     mov   a,p2
002E 6C               32             xrl   a,r4
002F 60FB             33                     jz    d4
0031 E9               34                     mov   a,r1
0032 9000C4           35                     mov   dptr,#table
0035 93               36                     movc  a,@a+dptr
0036 F522             37                     mov   22h,a
0038 603D             38                     jz    end0
003A 64FF             39                     xrl   a,#0ffh
003C 60CE             40                     jz    l1
003E 1522             41                     dec   22h
0040 E522             42                     mov   a,22h
0042 23               43                     rl    a
0043 9000A4           44                     mov   dptr,#table1
0046 93               45                     movc  a,@a+dptr
0047 F58C             46                     mov   th0,a
0049 F521             47                     mov   21h,a
004B E522             48                     mov   a,22h
004D 23               49                     rl    a
004E 04               50                     inc   a
004F 93               51                     movc  a,@a+dptr
0050 F58A             52                     mov   tl0,a
0052 F520             53                     mov   20h,a
0054 B292             54                     cpl   p1.2
0056 1197             55                     call  delay1
0058 D28C             56                     setb   tr0
005A B291             57                     cpl   p1.1
005C E530             58     loop:   mov   a,30h
A51 MACRO ASSEMBLER  TEXT1                                                                07/02/2008 13:56:07 PAGE     2

005E 108D02           59     loop1:  jbc   tf0,loop2
0061 80FB             60             jmp   loop1
0063 B40008           61     loop2:  cjne  a,#00h,del
0066 C28C             62             clr   tr0
0068 B291             63                     cpl   p1.1
006A B292             64                     cpl   p1.2
006C 809E             65                     jmp   l1
006E 85208A           66     del:    mov   tl0,20h
0071 85218C           67             mov   th0,21h
0074 14               68                     dec   a
0075 80E7             69                     jmp   loop1
0077 7401             70     end0:   mov   a,#1h
0079 F530             71             mov   30h,a
007B 808F             72                     jmp   l1
007D 118E             73     end1:   call  delay
007F B291             74             cpl   p1.1
0081 B292             75                     cpl   p1.2
0083 3094FD           76                     jnb   p1.4,$
0086 118E             77                     call  delay
0088 B291             78                     cpl   p1.1
008A B292             79                     cpl   p1.2
008C 010C             80                     jmp   l1
008E 7F3C             81     delay:  mov   r7,#60
0090 7EF8             82     d1:     mov   r6,#248
0092 DEFE             83             djnz  r6,$
0094 DFFA             84                 djnz  r7,d1
0096 22               85                 ret
0097 7D14             86     delay1: mov  r5,#20
0099 7C14             87     d2:     mov  r4,#20
009B 7BF8             88     d3:     mov  r3,#248
009D DBFE             89             djnz r3,$
009F DCFA             90                     djnz r4,d3
00A1 DDF6             91                     djnz r5,d2
00A3 22               92                     ret
00A4 FFE2             93     table1: dw   65506,65476,65446,65416
00A6 FFC4                    
00A8 FFA6                    
00AA FF88                    
00AC FF6A             94             dw   65386,65356,65326,65296
00AE FF4C                    
00B0 FF2E                    
00B2 FF10                    
00B4 FEF2             95                     dw   65266,65236,65206,65176
00B6 FED4                    
00B8 FEB6                    
00BA FE98                    
00BC FE7A             96                     dw   65146,65116,65086,65056
00BE FE5C                    
00C0 FE3E                    
00C2 FE20                    
00C4 00010203         97     table:  db   00h,01h,02h,03h
00C8 04050607         98             db   04h,05h,06h,07h
00CC 08090A0B         99                     db   08h,09h,0ah,0bh 
00D0 0C0D0EFF        100                     db   0ch,0dh,0eh,0ffh
                     101                     end
A51 MACRO ASSEMBLER  TEXT1                                                                07/02/2008 13:56:07 PAGE     3

SYMBOL TABLE LISTING
------ ----- -------


N A M E             T Y P E  V A L U E   ATTRIBUTES

D1 . . . . . . . .  C ADDR   0090H   A   
D2 . . . . . . . .  C ADDR   0099H   A   
D3 . . . . . . . .  C ADDR   009BH   A   
D4 . . . . . . . .  C ADDR   002CH   A   
DEL. . . . . . . .  C ADDR   006EH   A   
DELAY. . . . . . .  C ADDR   008EH   A   
DELAY1 . . . . . .  C ADDR   0097H   A   
END0 . . . . . . .  C ADDR   0077H   A   
END1 . . . . . . .  C ADDR   007DH   A   
KEYIN. . . . . . .  C ADDR   002AH   A   
L1 . . . . . . . .  C ADDR   000CH   A   
L2 . . . . . . . .  C ADDR   0010H   A   
L3 . . . . . . . .  C ADDR   0019H   A   
LOOP . . . . . . .  C ADDR   005CH   A   
LOOP1. . . . . . .  C ADDR   005EH   A   
LOOP2. . . . . . .  C ADDR   0063H   A   
P1 . . . . . . . .  D ADDR   0090H   A   
P2 . . . . . . . .  D ADDR   00A0H   A   
START. . . . . . .  C ADDR   0002H   A   
TABLE. . . . . . .  C ADDR   00C4H   A   
TABLE1 . . . . . .  C ADDR   00A4H   A   
TF0. . . . . . . .  B ADDR   0088H.5 A   
TH0. . . . . . . .  D ADDR   008CH   A   
TL0. . . . . . . .  D ADDR   008AH   A   
TMOD . . . . . . .  D ADDR   0089H   A   
TR0. . . . . . . .  B ADDR   0088H.4 A   


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE.  0 WARNING(S), 0 ERROR(S)