📄 1820.lst
字号:
A51 MACRO ASSEMBLER 1820 05/06/2007 16:01:17 PAGE 1
MACRO ASSEMBLER A51 V8.00
OBJECT MODULE PLACED IN 1820.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE 1820.asm SET(SMALL) DEBUG EP
LOC OBJ LINE SOURCE
0050 1 HH EQU 50H
0051 2 MM EQU 51H
0052 3 LL EQU 52H
0093 4 RS EQU P1.3
0094 5 R_W EQU P1.4
0095 6 E EQU P1.5
7
0000 8 ORG 0000H
0000 758159 9 MOV SP,#59H
0003 C295 10 CLR E
0005 1200DA 11 LCALL INI
0008 7980 12 MAIN: MOV R1,#80H
000A 1200AB 13 LCALL BF
000D 1200BE 14 LCALL WI
0010 7A54 15 MOV R2,#54H
0012 1200AB 16 LCALL BF
0015 1200CC 17 LCALL WD
0018 7A45 18 MOV R2,#45H
001A 1200AB 19 LCALL BF
001D 1200CC 20 LCALL WD
0020 7A4D 21 MOV R2,#4DH
0022 1200AB 22 LCALL BF
0025 1200CC 23 LCALL WD
0028 7A50 24 MOV R2,#50H
002A 1200AB 25 LCALL BF
002D 1200CC 26 LCALL WD
0030 7A45 27 MOV R2,#45H
0032 1200AB 28 LCALL BF
0035 1200CC 29 LCALL WD
0038 7A52 30 MOV R2,#52H
003A 1200AB 31 LCALL BF
003D 1200CC 32 LCALL WD
0040 7A3A 33 MOV R2,#3AH
0042 1200AB 34 LCALL BF
0045 1200CC 35 LCALL WD
36
0048 7987 37 MOV R1,#87H
004A 1200AB 38 LCALL BF
004D 1200BE 39 LCALL WI
0050 1200FB 40 LCALL GETTEMPER
41
0053 E550 42 MOV A,HH
0055 2420 43 ADD A,#32
0057 FA 44 MOV R2,A
0058 1200AB 45 LCALL BF
005B 1200CC 46 LCALL WD
005E E551 47 MOV A,MM
0060 2430 48 ADD A,#48
0062 FA 49 MOV R2,A
0063 1200AB 50 LCALL BF
0066 1200CC 51 LCALL WD
0069 E552 52 MOV A,LL
006B 2430 53 ADD A,#48
006D FA 54 MOV R2,A
006E 1200AB 55 LCALL BF
0071 1200CC 56 LCALL WD
57
0074 7A2E 58 MOV R2,#2EH
A51 MACRO ASSEMBLER 1820 05/06/2007 16:01:17 PAGE 2
0076 1200AB 59 LCALL BF
0079 1200CC 60 LCALL WD
007C AA26 61 MOV R2,26H
007E 1200AB 62 LCALL BF
0081 1200CC 63 LCALL WD
0084 AA25 64 MOV R2,25H
0086 1200AB 65 LCALL BF
0089 1200CC 66 LCALL WD
67
008C 7ADF 68 MOV R2,#0DFH
008E 1200AB 69 LCALL BF
0091 1200CC 70 LCALL WD
0094 7A43 71 MOV R2,#43H
0096 1200AB 72 LCALL BF
0099 1200CC 73 LCALL WD
009C 7D8F 74 MOV R5,#8FH
009E 7EBF 75 MOV R6,#0BFH
00A0 7F01 76 MOV R7,#1H
00A2 DDFE 77 DELA: DJNZ R5,DELA
00A4 DEFC 78 DJNZ R6,DELA
00A6 DFFA 79 DJNZ R7,DELA
00A8 020008 80 LJMP MAIN
81
00AB 75B0FF 82 BF: MOV P3,#0FFH
00AE C293 83 CLR RS
00B0 D294 84 SETB R_W
00B2 D295 85 SETB E
00B4 00 86 NOP
00B5 00 87 NOP
00B6 E5B0 88 MOV A,P3
00B8 C295 89 CLR E
00BA 20E7EE 90 JB ACC.7,BF
00BD 22 91 RET
92
00BE 93 WI:
00BE C294 94 CLR R_W
00C0 C293 95 CLR RS
00C2 D295 96 SETB E
00C4 00 97 NOP
00C5 00 98 NOP
00C6 E9 99 MOV A,R1
00C7 F5B0 100 MOV P3,A
00C9 C295 101 CLR E
00CB 22 102 RET
103
00CC D293 104 WD:SETB RS
00CE C294 105 CLR R_W
00D0 D295 106 SETB E
00D2 00 107 NOP
00D3 00 108 NOP
00D4 EA 109 MOV A,R2
00D5 F5B0 110 MOV P3,A
00D7 C295 111 CLR E
00D9 22 112 RET
113
00DA 1200AB 114 INI: LCALL BF
00DD 7938 115 MOV R1,#38H
00DF 1200BE 116 LCALL WI
00E2 1200AB 117 LCALL BF
00E5 7901 118 MOV R1,#01H
00E7 1200BE 119 LCALL WI
00EA 1200AB 120 LCALL BF
00ED 7906 121 MOV R1,#06H
00EF 1200BE 122 LCALL WI
00F2 1200AB 123 LCALL BF
00F5 790C 124 MOV R1,#0CH
A51 MACRO ASSEMBLER 1820 05/06/2007 16:01:17 PAGE 3
00F7 1200BE 125 LCALL WI
00FA 22 126 RET
127
00FB 128 GETTEMPER:
00FB D2A2 129 SETB P2.2
00FD 120183 130 LCALL INIT1820
0100 74CC 131 MOV A,#0CCH
0102 1201A8 132 LCALL WRITE1820
0105 7444 133 MOV A,#44H
0107 1201A8 134 LCALL WRITE1820
135
010A 7DFF 136 MOV R5,#0FFH
010C 7E6F 137 MOV R6,#6FH
010E 7F06 138 MOV R7,#06H
0110 DDFE 139 AA: DJNZ R5,AA
0112 DEFC 140 DJNZ R6,AA
0114 DFFA 141 DJNZ R7,AA
142
0116 120183 143 LCALL INIT1820
0119 74CC 144 MOV A,#0CCH
011B 1201A8 145 LCALL WRITE1820
011E 74BE 146 MOV A,#0BEH
0120 1201A8 147 LCALL WRITE1820
0123 1201C0 148 LCALL READ1820
149
150
0126 A24B 151 MOV C,4BH
0128 7400 152 MOV A,#00H
012A 33 153 RLC A
012B A24A 154 MOV C,4AH
012D 33 155 RLC A
012E A249 156 MOV C,49H
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -