串行eeprom读出7-2.lst

这个是大学的计算机接口实验课上经常用到的原程序

A51 MACRO ASSEMBLER  串行EEPROM读出7-2                                                    04/14/2005 16:12:41 PAGE     1


MACRO ASSEMBLER A51 V1.10
OBJECT MODULE PLACED IN 串行EEPROM读出7-2.OBJ
ASSEMBLER INVOKED BY: H:\239\A51.EXE 串行EEPROM读出7-2.ASM DB

LOC  OBJ            LINE     SOURCE

                       1     ;实验七（二）：EEPROM的读出
0000                   2            ORG    0000H
0000 803E              3            SJMP   40H
0002 755EA0            4            MOV    5EH,#0A0H
0005 755D09            5            MOV    5DH,#09H
0008 755000            6            MOV    50H,#00H
000B 120010            7            LCALL  WRT
000E 80FE              8            SJMP   $
0010 120050            9     WRT:   LCALL  STA
0013 E55E             10            MOV    A,5EH
0015 120033           11            LCALL  WBIT
0018 120081           12            LCALL  CACK
001B 20D5F2           13            JB     F0,WRT
001E 7850             14            MOV    R0,#50H
0020 AD5D             15            MOV    R5,5DH
0022 E6               16     WRDA:  MOV    A,@R0
0023 120033           17            LCALL  WBIT
0026 120081           18            LCALL  CACK
0029 20D5E4           19            JB     F0,WRT
002C 08               20            INC    R0
002D DDF3             21            DJNZ   R5,WRDA
002F 12005E           22            LCALL  STOP                                   
0032 22               23            RET
0033 7F08             24     WBIT:  MOV    R7,#8
0035 33               25     WAA:   RLC    A
0036 400B             26            JC     WBB
0038 C294             27            CLR    P1.4
003A D292             28            SETB   P1.2
003C 00               29            NOP
003D 00               30            NOP
003E C292             31            CLR    P1.2
0040 DFF3             32            DJNZ   R7,WAA
0042 22               33            RET
0043 D294             34     WBB:   SETB   P1.4
0045 D292             35            SETB   P1.2
0047 00               36            NOP
0048 00               37            NOP
0049 C292             38            CLR    P1.2
004B C294             39            CLR    P1.4
004D DFE6             40            DJNZ   R7,WAA
004F 22               41            RET
0050 D294             42     STA:   SETB   P1.4
0052 D292             43            SETB   P1.2
0054 00               44            NOP
0055 00               45            NOP
0056 00               46            NOP
0057 C294             47            CLR    P1.4
0059 00               48            NOP
005A 00               49            NOP
005B C292             50            CLR    P1.2
005D 22               51            RET
005E C294             52     STOP:  CLR    P1.4
0060 D292             53            SETB   P1.2
0062 00               54            NOP
0063 00               55            NOP
0064 D294             56            SETB   P1.4
0066 00               57            NOP
0067 00               58            NOP
A51 MACRO ASSEMBLER  串行EEPROM读出7-2                                                    04/14/2005 16:12:41 PAGE     2

0068 C292             59            CLR    P1.2
006A 22               60            RET
006B C294             61     MACK:  CLR    P1.4
006D D292             62            SETB   P1.2
006F 00               63            NOP
0070 00               64            NOP
0071 C292             65            CLR    P1.2
0073 D294             66            SETB   P1.4
0075 22               67            RET
0076 D294             68     MNACK: SETB   P1.4
0078 D292             69            SETB   P1.2
007A 00               70            NOP
007B 00               71            NOP
007C C292             72            CLR   P1.2
007E C294             73            CLR   P1.4
0080 22               74            RET
0081 D294             75     CACK:  SETB  P1.4
0083 D292             76            SETB  P1.2
0085 00               77            NOP
0086 A294             78            MOV   C,P1.4
0088 92D5             79            MOV   F0,C
008A C292             80            CLR   P1.2
008C 00               81            NOP
008D 22               82            RET
                      83            END
A51 MACRO ASSEMBLER  串行EEPROM读出7-2                                                    04/14/2005 16:12:41 PAGE     3

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


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

CACK . . . . . . .  C ADDR   0081H   A   
F0 . . . . . . . .  B ADDR   00D0H.5 A   
MACK . . . . . . .  C ADDR   006BH   A   
MNACK. . . . . . .  C ADDR   0076H   A   
P1 . . . . . . . .  D ADDR   0090H   A   
STA. . . . . . . .  C ADDR   0050H   A   
STOP . . . . . . .  C ADDR   005EH   A   
WAA. . . . . . . .  C ADDR   0035H   A   
WBB. . . . . . . .  C ADDR   0043H   A   
WBIT . . . . . . .  C ADDR   0033H   A   
WRDA . . . . . . .  C ADDR   0022H   A   
WRT. . . . . . . .  C ADDR   0010H   A   


REGISTER BANK(S) USED: 0 


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