📄 12232.lst
字号:
A51 MACRO ASSEMBLER 12232 09/09/2008 19:13:16 PAGE 1
MACRO ASSEMBLER A51 V8.00d
OBJECT MODULE PLACED IN .\12232.obj
ASSEMBLER INVOKED BY: D:\KEIL\C51\BIN\KA51.EXE F:\LAB\12232显示驱动\12232.ASM SET(SMALL) DEBUG PRINT(.\12232.lst) OBJECT
(.\12232.obj) EP
LOC OBJ LINE SOURCE
0092 1 E1 EQU P1.2
0091 2 E2 equ p1.1
0090 3 A0 EQU P1.0
0093 4 RST EQU P1.3
0030 5 x equ 30h ;页地址
0031 6 y equ 31h ;列地址
7 ;RW =>GND
8
0000 9 ORG 0000H
0000 020100 10 LJMP MAIN
11
0003 12 ORG 0003H
0003 020163 13 LJMP LINTO
14
0100 15 ORG 0100H
16
0100 00 17 MAIN: NOP
0101 C2AF 18 clr ea
0103 C292 19 CLR E1
0105 C291 20 CLR E2
0107 120166 21 lcall init ;初始化模块
22
23 ;/*
24 ;MOV 34H,#0ffH ;显示所有点
25 ;LCALL DISPLAY_ALL
26 ;lcall dly100
27 ;
28 ;MOV 34H,#00H ;所有点不显示
29 ;LCALL DISPLAY_ALL
30 ;
31 ;MOV R1,#0e3H ;reset
32 ;LCALL WRI
33 ;
34 ;lcall plybw ;显示黑白相间块
35 ;lcall DLY100
36 ;
37 ;MOV 34H,#00H ;清显示
38 ;LCALL DISPLAY_ALL
39 ;*/
40
41
42
010A 79E3 43 MOV R1,#0e3H ;reset
010C 12023E 44 LCALL WRI
45
010F 753100 46 mov 31h,#0
0112 753000 47 mov 30h,#0
48
0115 753002 49 MOV 30H,#2 ;x
0118 753108 50 MOV 31H,#8 ;y
011B 900400 51 MOV DPTR,#HZI7 ;您
011E 1201C5 52 LCALL outhz
53
0121 753002 54 MOV 30H,#2
0124 753128 55 MOV 31H,#40
0127 900420 56 MOV DPTR,#HZI8 ;好
012A 1201C5 57 LCALL outhz
A51 MACRO ASSEMBLER 12232 09/09/2008 19:13:16 PAGE 2
58
012D 753000 59 MOV 30H,#0
0130 753100 60 MOV 31H,#0
0133 900340 61 MOV DPTR,#HZI1 ;盛
0136 1201C5 62 LCALL outhz
63
0139 753000 64 MOV 30H,#0
013C 753110 65 MOV 31H,#16
013F 900360 66 MOV DPTR,#HZI2 ;宝
0142 1201C5 67 LCALL outhz
68
69
0145 753000 70 MOV 30H,#0
0148 753120 71 MOV 31H,#32
014B 9003C0 72 MOV DPTR,#HZI5 ;公
014E 1201C5 73 LCALL outhz
74
0151 753000 75 MOV 30H,#0
0154 753130 76 MOV 31H,#48
0157 9003E0 77 MOV DPTR,#HZI6 ;司
015A 1201C5 78 LCALL outhz
79
015D 120298 80 LCALL DLY100
0160 020100 81 LJMP MAIN
82
0163 00 83 LINTO: NOP
0164 00 84 NOP
0165 32 85 RETI
86
0166 C293 87 init: CLR RST ;RESET
0168 12028B 88 LCALL DLY50
016B 12028B 89 LCALL DLY50
016E 12028B 90 LCALL DLY50
0171 12028B 91 LCALL DLY50
92
0174 D293 93 setb rst
0176 79AF 94 MOV R1,#0aFH ;DISPLAY ON
0178 12023E 95 LCALL WRI
96
017B 79C0 97 MOV R1,#0C0H ;START = 0
017D 12023E 98 LCALL WRI
99
0180 79A4 100 MOV R1,#0a4H ;driver
0182 12023E 101 LCALL WRI
102
0185 79A9 103 MOV R1,#0a9h ;duty 32
0187 12023E 104 LCALL WRI
105
018A 79A0 106 MOV R1,#0a0H ;adc
018C 12023E 107 LCALL WRI
108
018F 79E3 109 MOV R1,#0e3H ;reset
0191 12023E 110 LCALL WRI
111
112
0194 753400 113 MOV 34H,#00H
0197 12019B 114 LCALL DISPLAY_ALL
019A 22 115 ret
116
019B 79E3 117 DISPLAY_ALL: MOV R1,#0e3H ;reset
019D 12023E 118 LCALL WRI
119
01A0 7F04 120 MOV R7,#4 ;DISPLAY DATA= 34H
01A2 7AB8 121 MOV R2,#0B8H
01A4 EA 122 LOP1: MOV A,R2
01A5 F9 123 MOV R1,A ; X+1
A51 MACRO ASSEMBLER 12232 09/09/2008 19:13:16 PAGE 3
01A6 12023E 124 LCALL WRI
01A9 7900 125 MOV R1,#00H ; Y
01AB 12023E 126 LCALL WRI
127
01AE 7D3D 128 MOV R5,#61
01B0 79E0 129 MOV R1,#0e0H ;RMW
01B2 12023E 130 LCALL WRI
131
01B5 A934 132 LOP11: MOV R1,34H
01B7 12025E 133 LCALL WRD
01BA DDF9 134 DJNZ R5,LOP11
135
01BC 79EE 136 MOV R1,#0eeH ;end
01BE 12023E 137 LCALL WRI
138
01C1 0A 139 INC R2
01C2 DFE0 140 DJNZ R7,LOP1
141
01C4 22 142 ret
143
144
01C5 79E3 145 outhz: MOV R1,#0e3H ;reset
01C7 12023E 146 LCALL WRI
147
148 ;30h=x (0-6) 31h=y(0-63-16)
01CA 7F02 149 MOV R7,#2
01CC 74B8 150 MOV A,#0B8H
01CE 2530 151 ADD A,30H ;B8+X
01D0 F530 152 MOV 30H,A ;A>>30H
01D2 153 HZ2: ; MOV A,R2
01D2 A930 154 MOV R1,30H ; X+1
01D4 12023E 155 LCALL WRI
156
01D7 7400 157 MOV A,#00H ; Y
01D9 2531 158 ADD A,31H
159 ; MOV 31H,A ;40+Y
01DB F9 160 MOV R1,A
01DC 12023E 161 LCALL WRI
162
01DF 7D10 163 MOV R5,#16
01E1 79E0 164 MOV R1,#0e0H ;RMW
01E3 12023E 165 LCALL WRI
166
01E6 7400 167 HZ1: MOV A,#00H
01E8 93 168 MOVC A,@A+DPTR
01E9 F9 169 MOV R1,A
01EA 12025E 170 LCALL WRD
01ED 12027E 171 LCALL DLY10
01F0 A3 172 INC DPTR
01F1 DDF3 173 DJNZ R5,HZ1
174
01F3 79EE 175 MOV R1,#0eeH ;end
01F5 12023E 176 LCALL WRI
177
178
01F8 0530 179 INC 30H
01FA DFD6 180 DJNZ R7,HZ2
01FC 22 181 RET
182
01FD 79E3 183 plybw: MOV R1,#0e3H ;reset
01FF 12023E 184 LCALL WRI
185
0202 753000 186 mov 30h,#0
0205 753100 187 mov 31h,#0
0208 900440 188 mov dptr,#bw
020B 7F04 189 MOV R7,#4
A51 MACRO ASSEMBLER 12232 09/09/2008 19:13:16 PAGE 4
020D 74B8 190 MOV A,#0B8H
020F 2530 191 ADD A,30H ;B8+X
0211 F530 192 MOV 30H,A ;A>>30H
0213 A930 193 HZ2bw: MOV R1,30H ; X+1
0215 12023E 194 LCALL WRI
195
0218 7400 196 MOV A,#00H ; Y
021A 2531 197 ADD A,31H
198 ;40+Y
021C F9 199 MOV R1,A
021D 12023E 200 LCALL WRI
201
202
0220 7D3D 203 MOV R5,#61
0222 79E0 204 MOV R1,#0e0H ;RMW
0224 12023E 205 LCALL WRI
206
0227 7400 207 HZ1bw: MOV A,#00H
0229 93 208 MOVC A,@A+DPTR
022A F9 209 MOV R1,A
022B 12025E 210 LCALL WRD
022E 12027E 211 LCALL DLY10
0231 A3 212 INC DPTR
0232 DDF3 213 DJNZ R5,HZ1bw
214
0234 79EE 215 MOV R1,#0eeH ;end
0236 12023E 216 LCALL WRI
217
0239 0530 218 INC 30H
023B DFD6 219 DJNZ R7,HZ2bw
023D 22 220 RET
221
222
023E 223 WRI: ;写指令子程序
023E C292 224 CLR E1
0240 C291 225 CLR E2
0242 C290 226 CLR A0
0244 8980 227 MOV P0,R1
0246 12027E 228 LCALL DLY10
0249 D292 229 SETB E1
024B D291 230 setb E2
024D 12027E 231 LCALL DLY10
0250 C292 232 CLR E1
0252 C291 233 CLR E2
0254 12027E 234 LCALL DLY10
0257 12027E 235 LCALL DLY10
025A 12027E 236 LCALL DLY10
025D 22 237 RET
238
025E 239 WRD: ; 写数据子程序
025E C292 240 CLR E1
0260 C291 241 CLR E2
0262 D290 242 SETB A0
0264 8980 243 MOV P0,R1
0266 12027E 244 LCALL DLY10
0269 D292 245 SETB E1
026B D291 246 setb E2
026D 12027E 247 LCALL DLY10
0270 C292 248 CLR E1
0272 C291 249 CLR E2
0274 12027E 250 LCALL DLY10
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -