📄 test.lst
字号:
A51 MACRO ASSEMBLER TEST 10/21/2007 13:47:13 PAGE 1
MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN test.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE test.asm SET(SMALL) DEBUG EP
LOC OBJ LINE SOURCE
1 ;使用E1、E2、A0、RST、其中RW接地电平
2 ;调试成功
0091 3 E1 EQU P1.1
0090 4 E2 equ p1.0
0093 5 A0 EQU P1.3
0095 6 RST EQU P1.5
0092 7 RW EQU P1.2
0030 8 x equ 30h ;页地址
0031 9 y equ 31h ;列地址
10 ;RW =>GND
0000 11 ORG 0000H
0000 020100 12 LJMP MAIN
0003 13 ORG 0003H
0003 02019D 14 LJMP LINTO
0100 15 ORG 0100H
0100 00 16 MAIN: NOP
0101 C2AF 17 clr ea
0103 C291 18 CLR E1
0105 C290 19 CLR E2
0107 C292 20 CLR RW
0109 1201A0 21 lcall init ;初始化模块
22
010C 7534FF 23 MOV 34H,#0ffH ;显示所有点
010F 1201D5 24 LCALL DISPLAY_ALL
0112 1202C6 25 lcall dly100
26
0115 753400 27 MOV 34H,#00H ;所有点不显示
0118 1201D5 28 LCALL DISPLAY_ALL
29
011B 79E3 30 MOV R1,#0e3H ;reset
011D 120278 31 LCALL WRI
32
0120 120237 33 lcall plybw ;显示黑白相间块
0123 1202C6 34 lcall DLY100
35
0126 753400 36 MOV 34H,#00H ;清显示
0129 1201D5 37 LCALL DISPLAY_ALL
38
012C 79E3 39 MOV R1,#0e3H ;reset
012E 120278 40 LCALL WRI
41
0131 753100 42 mov 31h,#0
0134 753000 43 mov 30h,#0
44
0137 753002 45 MOV 30H,#2 ;x
013A 753100 46 MOV 31H,#0 ;y
013D 9003C0 47 MOV DPTR,#HZI5 ;为
0140 1201FF 48 LCALL outhz
49
0143 753002 50 MOV 30H,#2
0146 753110 51 MOV 31H,#16
0149 9003E0 52 MOV DPTR,#HZI6 ;您
014C 1201FF 53 LCALL outhz
54
014F 753002 55 MOV 30H,#2 ;x
0152 753120 56 MOV 31H,#32 ;y
0155 900400 57 MOV DPTR,#HZI7 ;服
0158 1201FF 58 LCALL outhz
A51 MACRO ASSEMBLER TEST 10/21/2007 13:47:13 PAGE 2
59
015B 753002 60 MOV 30H,#2
015E 753130 61 MOV 31H,#48
0161 900420 62 MOV DPTR,#HZI8 ;务
0164 1201FF 63 LCALL outhz
64
0167 753000 65 MOV 30H,#0
016A 753100 66 MOV 31H,#0
016D 900340 67 MOV DPTR,#HZI1 ;传
0170 1201FF 68 LCALL outhz
69
0173 753000 70 MOV 30H,#0
0176 753110 71 MOV 31H,#16
0179 900360 72 MOV DPTR,#HZI2 ;诚
017C 1201FF 73 LCALL outhz
74
75
017F 753000 76 MOV 30H,#0
0182 753120 77 MOV 31H,#32
0185 900380 78 MOV DPTR,#HZI3 ;科
0188 1201FF 79 LCALL outhz
80
018B 753000 81 MOV 30H,#0
018E 753130 82 MOV 31H,#48
0191 9003A0 83 MOV DPTR,#HZI4 ;技
0194 1201FF 84 LCALL outhz
85
0197 1202C6 86 LCALL DLY100
019A 020100 87 LJMP MAIN
88
019D 00 89 LINTO: NOP
019E 00 90 NOP
019F 32 91 RETI
92
01A0 C295 93 init: CLR RST ;RESET
01A2 1202B9 94 LCALL DLY50
01A5 1202B9 95 LCALL DLY50
01A8 1202B9 96 LCALL DLY50
01AB 1202B9 97 LCALL DLY50
98
01AE D295 99 setb rst
01B0 79AF 100 MOV R1,#0aFH ;DISPLAY ON
01B2 120278 101 LCALL WRI
102
01B5 79C0 103 MOV R1,#0C0H ;START = 0
01B7 120278 104 LCALL WRI
105
01BA 79A4 106 MOV R1,#0a4H ;driver
01BC 120278 107 LCALL WRI
108
01BF 79A9 109 MOV R1,#0a9h ;duty 32
01C1 120278 110 LCALL WRI
111
01C4 79A0 112 MOV R1,#0a0H ;adc
01C6 120278 113 LCALL WRI
114
01C9 79E3 115 MOV R1,#0e3H ;reset
01CB 120278 116 LCALL WRI
117
118
01CE 753400 119 MOV 34H,#00H
01D1 1201D5 120 LCALL DISPLAY_ALL
01D4 22 121 ret
122
01D5 79E3 123 DISPLAY_ALL: MOV R1,#0e3H ;reset
01D7 120278 124 LCALL WRI
A51 MACRO ASSEMBLER TEST 10/21/2007 13:47:13 PAGE 3
125
01DA 7F04 126 MOV R7,#4 ;DISPLAY DATA= 34H
01DC 7AB8 127 MOV R2,#0B8H
01DE EA 128 LOP1: MOV A,R2
01DF F9 129 MOV R1,A ; X+1
01E0 120278 130 LCALL WRI
01E3 7900 131 MOV R1,#00H ; Y
01E5 120278 132 LCALL WRI
133
01E8 7D3D 134 MOV R5,#61
01EA 79E0 135 MOV R1,#0e0H ;RMW
01EC 120278 136 LCALL WRI
137
01EF A934 138 LOP11: MOV R1,34H
01F1 120292 139 LCALL WRD
01F4 DDF9 140 DJNZ R5,LOP11
141
01F6 79EE 142 MOV R1,#0eeH ;end
01F8 120278 143 LCALL WRI
144
01FB 0A 145 INC R2
01FC DFE0 146 DJNZ R7,LOP1
147
01FE 22 148 ret
149
01FF 79E3 150 outhz: MOV R1,#0e3H ;reset
0201 120278 151 LCALL WRI
152
153 ;30h=x (0-6) 31h=y(0-63-16)
0204 7F02 154 MOV R7,#2
0206 74B8 155 MOV A,#0B8H
0208 2530 156 ADD A,30H ;B8+X
020A F530 157 MOV 30H,A ;A>>30H
020C 158 HZ2: ; MOV A,R2
020C A930 159 MOV R1,30H ; X+1
020E 120278 160 LCALL WRI
161
0211 7400 162 MOV A,#00H ; Y
0213 2531 163 ADD A,31H
164 ; MOV 31H,A ;40+Y
0215 F9 165 MOV R1,A
0216 120278 166 LCALL WRI
167
0219 7D10 168 MOV R5,#16
021B 79E0 169 MOV R1,#0e0H ;RMW
021D 120278 170 LCALL WRI
171
0220 7400 172 HZ1: MOV A,#00H
0222 93 173 MOVC A,@A+DPTR
0223 F9 174 MOV R1,A
0224 120292 175 LCALL WRD
0227 1202AC 176 LCALL DLY10
022A A3 177 INC DPTR
022B DDF3 178 DJNZ R5,HZ1
179
022D 79EE 180 MOV R1,#0eeH ;end
022F 120278 181 LCALL WRI
182
0232 0530 183 INC 30H
0234 DFD6 184 DJNZ R7,HZ2
0236 22 185 RET
186
0237 79E3 187 plybw: MOV R1,#0e3H ;reset
0239 120278 188 LCALL WRI
189
023C 753000 190 mov 30h,#0
A51 MACRO ASSEMBLER TEST 10/21/2007 13:47:13 PAGE 4
023F 753100 191 mov 31h,#0
0242 900440 192 mov dptr,#bw
0245 7F04 193 MOV R7,#4
0247 74B8 194 MOV A,#0B8H
0249 2530 195 ADD A,30H ;B8+X
024B F530 196 MOV 30H,A ;A>>30H
024D A930 197 HZ2bw: MOV R1,30H ; X+1
024F 120278 198 LCALL WRI
199
0252 7400 200 MOV A,#00H ; Y
0254 2531 201 ADD A,31H
202 ;40+Y
0256 F9 203 MOV R1,A
0257 120278 204 LCALL WRI
205
025A 7D3D 206 MOV R5,#61
025C 79E0 207 MOV R1,#0e0H ;RMW
025E 120278 208 LCALL WRI
209
0261 7400 210 HZ1bw: MOV A,#00H
0263 93 211 MOVC A,@A+DPTR
0264 F9 212 MOV R1,A
0265 120292 213 LCALL WRD
0268 1202AC 214 LCALL DLY10
026B A3 215 INC DPTR
026C DDF3 216 DJNZ R5,HZ1bw
217
026E 79EE 218 MOV R1,#0eeH ;end
0270 120278 219 LCALL WRI
220
0273 0530 221 INC 30H
0275 DFD6 222 DJNZ R7,HZ2bw
0277 22 223 RET
224
225
0278 226 WRI: ;写指令子程序
0278 C291 227 CLR E1
228 ;CLR E2
027A C293 229 CLR A0
027C 89A0 230 MOV P2,R1
027E 1202AC 231 LCALL DLY10
0281 D291 232 SETB E1
233 ;setb E2
0283 1202AC 234 LCALL DLY10
0286 C291 235 CLR E1
236 ;CLR E2
0288 1202AC 237 LCALL DLY10
028B 1202AC 238 LCALL DLY10
028E 1202AC 239 LCALL DLY10
0291 22 240 RET
241
0292 242 WRD: ; 写示葑映绦⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -