no1.lst

适用与MCS-51系列单片机的维根26转RS232驱动程序(汇编语言).

A51 MACRO ASSEMBLER  NO1                                                                  10/20/2005 17:04:25 PAGE     1


MACRO ASSEMBLER A51 V7.04a
OBJECT MODULE PLACED IN NO1.OBJ
ASSEMBLER INVOKED BY: C:\Program Files\Keil\C51\BIN\A51.EXE NO1.ASM SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

                       1     ;------------------------------------------------------------
                       2     ;------------------------------------------------------------
                       3     ;               Wiegand  to  Rs232  
                       4     ;                    V0.1c
                       5     ;                    zhongwh
                       6     ;               Copyright 2003-2005 
                       7     ;               Email: [e-mail]
                       8     ;               mtel : 13708004895
                       9     ;               2005-9-22 15:38:52
                      10     ; Compiled with Keil uVision2 for the 8051 series
                      11     ;-------------------------------------------------------------
                      12     ;-------------------------------------------------------------
                      13     ;               Target : at89c2051
                      14     ;               Crystal: 11.0592Mhz                                     
                      15     ;-------------------------------------------------------------
                      16     ;-------------------------------------------------------------
                      17     
                      18            
  0090                19     WD0     BIT     P1.0        
  0091                20     WD1     BIT     P1.1        
  0050                21     ERR     EQU     50H
  0051                22     TEMP0   EQU     51H
  0052                23     TEMP1   EQU     52H
  0053                24     OK_DATA1 EQU    53H
  0054                25     OK_DATA2 EQU    54H
  0055                26     OK_DATA3 EQU    55H
  0056                27     OK_DATA4 EQU    56H
  0057                28     OK_DATA5 EQU    57H
  0058                29     OK_DATA6 EQU    58H
  0060                30     DSD     EQU     60H
                      31     ;-------------------------------------------------------------
                      32     
0000                  33             ORG  0000H 
0000 0130             34             AJMP MAIN 
                      35     ;
0003                  36             ORG  0003H
0003 32               37             RETI            ;int0
                      38     ;
000B                  39             ORG  000BH      ;timer 0
000B 32               40             RETI
                      41     ;
0013                  42             ORG  0013H      ;int1
0013 32               43             RETI
                      44     ;
001B                  45             ORG  001BH      ;timer 1
001B 32               46             RETI
                      47     ;
0023                  48             ORG  0023H      ;com
0023 32               49             RETI
                      50     ;-----------------------------------
                      51     ;-----------------------------------
0030                  52             ORG 0030H 
0030                  53     MAIN:     
0030 758130           54             MOV SP,#30H 
0033 3106             55             CALL INIT_RS232COM 
0035 D299             56             SETB    TI
0037 312A             57             CALL    DELAY
                      58             
A51 MACRO ASSEMBLER  NO1                                                                  10/20/2005 17:04:25 PAGE     2

0039                  59     LOOP: 
0039 755000           60             MOV     ERR,#00H
003C 114B             61             CALL    READ_DATA
003E 11E7             62             CALL    JS_CRC
0040 E550             63             MOV     A,ERR
0042 B401F4           64             CJNE    A,#01H,LOOP
0045 117D             65             CALL    JS_DATA_H_L     ;H-->L
0047 3118             66             CALL    SENDBYTE
0049 80EE             67             JMP     LOOP      
                      68     
                      69     ;------------------------------------------
004B                  70     READ_DATA:
004B 00               71             NOP
004C 00               72             NOP
004D 7860             73             MOV     R0,#DSD
004F 1156             74     LOP5:   CALL    R_MC1
0051 E8               75             MOV     A,R0
0052 B47AFA           76             CJNE    A,#7AH,LOP5
0055 22               77             RET
                      78     
                      79             
                      80     ;------------------------------------------
                      81     ;------------------------------------------
                      82     
0056 30901A           83     R_MC1:  JNB     WD0,LOP1                                                                   
                                 
0059 E551             84             MOV     A,TEMP0  
005B B45A06           85             CJNE    A,#5AH,LOP4
005E 7600             86             MOV     @R0,#00H
0060 08               87             INC     R0
0061 755100           88             MOV     TEMP0,#00H      
0064 309111           89     LOP4:   JNB     WD1,LOP2
0067 E552             90             MOV     A,TEMP1
0069 B45A06           91             CJNE    A,#5AH,LOP3
006C 7601             92             MOV     @R0,#01H
006E 08               93             INC     R0
006F 755200           94             MOV     TEMP1,#00H
0072 22               95     LOP3:   RET
0073 75515A           96     LOP1:   MOV     TEMP0,#5AH
0076 80DE             97             JMP     R_MC1
0078 75525A           98     LOP2:   MOV     TEMP1,#5AH 
007B 80D9             99             JMP     R_MC1
                     100     ;------------------------------------------
                     101     ;------------------------------------------
007D                 102     JS_DATA_H_L:
007D 7860            103             MOV     R0,#DSD
007F 08              104             INC     R0
0080 E6              105             MOV     A,@R0
0081 75F080          106             MOV     B,#80H
0084 A4              107             MUL     AB
0085 F553            108             MOV     OK_DATA1,A      ;7
                     109             ;
0087 08              110             INC     R0
0088 E6              111             MOV     A,@R0
0089 75F040          112             MOV     B,#40H
008C A4              113             MUL     AB
008D F5F0            114             MOV     B,A
008F E553            115             MOV     A,OK_DATA1
0091 25F0            116             ADD     A,B
0093 F553            117             MOV     OK_DATA1,A      ;6
                     118             ;
0095 08              119             INC     R0
0096 E6              120             MOV     A,@R0
0097 75F020          121             MOV     B,#20H
009A A4              122             MUL     AB
009B F5F0            123             MOV     B,A
A51 MACRO ASSEMBLER  NO1                                                                  10/20/2005 17:04:25 PAGE     3

009D E553            124             MOV     A,OK_DATA1
009F 25F0            125             ADD     A,B
00A1 F553            126             MOV     OK_DATA1,A      ;5
                     127             ;
00A3 08              128             INC     R0
00A4 E6              129             MOV     A,@R0
00A5 75F010          130             MOV     B,#10H
00A8 A4              131             MUL     AB
00A9 F5F0            132             MOV     B,A
00AB E553            133             MOV     A,OK_DATA1
00AD 25F0            134             ADD     A,B
00AF F553            135             MOV     OK_DATA1,A      ;4
                     136             ;
00B1 08              137             INC     R0
00B2 E6              138             MOV     A,@R0
00B3 75F008          139             MOV     B,#8H
00B6 A4              140             MUL     AB