12864_chs.lst
来自「买板子时赠的实验例子」· LST 代码 · 共 1,186 行 · 第 1/5 页
LST
1,186 行
224 ;==============================================
225 ;显示点阵子程序
226 ;==============================================
0234 227 LAT_DISP:
0234 753502 228 MOV COUNT3,#02H
0237 753080 229 MOV LCD_X,#80H
023A 230 LAT_DISP1:
023A 753180 231 MOV LCD_Y,#80H
023D C2D5 232 CLR F0
023F 753420 233 MOV COUNT2,#20H
0242 234 LAT_DISP2:
0242 753310 235 MOV COUNT1,#10H
0245 120273 236 LCALL WR_ZB
0248 237 LAT_DISP3:
0248 20D505 238 JB F0,LAT_DISP32
024B 853736 239 MOV LCD_DATA,LCD_DATA1
024E 4153 240 AJMP LAT_DISP31
0250 241 LAT_DISP32:
0250 853836 242 MOV LCD_DATA,LCD_DATA2
0253 243 LAT_DISP31:
0253 E536 244 MOV A,LCD_DATA
0255 1202CE 245 LCALL SEND_D
0258 D533F8 246 DJNZ COUNT1,LAT_DISP31
025B 0531 247 INC LCD_Y
025D B2D5 248 CPL F0
025F D534E0 249 DJNZ COUNT2,LAT_DISP2
0262 753088 250 MOV LCD_X,#88H
0265 D535D2 251 DJNZ COUNT3,LAT_DISP1
252
0268 7436 253 MOV A,#36H
026A 1202DE 254 LCALL SEND_I
026D 7430 255 MOV A,#30H
026F 1202DE 256 LCALL SEND_I
A51 MACRO ASSEMBLER 12864_CHS 03/29/2005 16:03:58 PAGE 5
0272 22 257 RET
258 ;---------------------------------------------
0273 259 WR_ZB:
0273 7434 260 MOV A,#34H
0275 1202DE 261 LCALL SEND_I
0278 E531 262 MOV A,LCD_Y
027A 1202DE 263 LCALL SEND_I
027D E530 264 MOV A,LCD_X
027F 1202DE 265 LCALL SEND_I
0282 7430 266 MOV A,#30H
0284 1202DE 267 LCALL SEND_I
0287 22 268 RET
269
270 ;===============================================
0288 271 FLASH:
0288 7408 272 MOV A,#08H ;关闭显示
028A 1202DE 273 LCALL SEND_I
028D 120336 274 LCALL DELAY5
0290 740C 275 MOV A,#0CH ;开显示,关光标,不闪烁
0292 1202DE 276 LCALL SEND_I
0295 120336 277 LCALL DELAY5
0298 7408 278 MOV A,#08H ;关闭显示
029A 1202DE 279 LCALL SEND_I
029D 120336 280 LCALL DELAY5
02A0 740C 281 MOV A,#0CH ;开显示,关光标,不闪烁
02A2 1202DE 282 LCALL SEND_I
02A5 120336 283 LCALL DELAY5
02A8 7408 284 MOV A,#08H ;关闭显示
02AA 1202DE 285 LCALL SEND_I
02AD 120336 286 LCALL DELAY5
02B0 22 287 RET
288 ;==================================================
289 ;清屏
290 ;==================================================
02B1 291 CLEAR_P:
02B1 7401 292 MOV A,#01H ;清屏
02B3 1202DE 293 LCALL SEND_I
02B6 7434 294 MOV A,#34H
02B8 1202DE 295 LCALL SEND_I
02BB 7430 296 MOV A,#30H
02BD 1202DE 297 LCALL SEND_I
02C0 22 298 RET
299 ;==================================================
300 ;查表取数据送显示
301 ;==================================================
02C1 302 QUSHU:
02C1 E4 303 CLR A
02C2 93 304 MOVC A,@A+DPTR ;查表取数据
02C3 1202CE 305 LCALL SEND_D ;送显示
02C6 A3 306 INC DPTR
02C7 12032D 307 LCALL DELAY4 ;延时80ms,
02CA D532F4 308 DJNZ COUNT,QUSHU
02CD 22 309 RET
310
311 ;===============================================
312 ;写数据子程序
313 ;RS=1,RW=0,E=高脉冲,D0-D7=数据
314 ;===============================================
02CE 315 SEND_D:
02CE 1202FF 316 LCALL CHK_BUSY ;写数据子程序
02D1 D2A0 317 SETB RS
02D3 C2A1 318 CLR RW
02D5 F580 319 MOV P0,A
02D7 D2A2 320 SETB E
02D9 00 321 NOP
02DA 00 322 NOP
A51 MACRO ASSEMBLER 12864_CHS 03/29/2005 16:03:58 PAGE 6
02DB C2A2 323 CLR E
02DD 22 324 RET
325 ;===============================================
326 ;写指令子程序
327 ;RS=0,RW=0,E=高脉冲,D0-D7=指令码
328 ;===============================================
02DE 329 SEND_I:
02DE 1202FF 330 LCALL CHK_BUSY
02E1 C2A0 331 CLR RS
02E3 C2A1 332 CLR RW
02E5 F580 333 MOV P0,A
02E7 D2A2 334 SETB E
02E9 00 335 NOP
02EA 00 336 NOP
02EB C2A2 337 CLR E
02ED 22 338 RET
339 ;================================================
340 ;读数据子程序
341 ;RS=1,RW=1,E=H,D0-D7=数据
342 ;================================================
02EE 343 READ_D:
02EE 1202FF 344 LCALL CHK_BUSY ;读数据子程序
02F1 D2A0 345 SETB RS
02F3 D2A1 346 SETB RW
02F5 D2A2 347 SETB E
02F7 00 348 NOP
02F8 E580 349 MOV A,P0
02FA C2A2 350 CLR E
02FC F539 351 MOV STORE,A
02FE 22 352 RET
353 ;================================================
354 ;;测忙碌子程序
355 ;RS=0,RW=1,E=H,D0-D7=状态字
356 ;================================================
02FF 357 CHK_BUSY:
02FF 7580FF 358 MOV P0,#0FFH ;测忙碌子程序
0302 C2A0 359 CLR RS
0304 D2A1 360 SETB RW
0306 D2A2 361 SETB E
0308 2087FD 362 JB P0.7,$
030B C2A2 363 CLR E
030D 22 364 RET
365 ;================================================
366 ;延时子程序
367 ;================================================
030E 368 DELAY3:
030E 7D16 369 MOV R5,#16H
0310 7EFF 370 DEL31: MOV R6,#0FFH
0312 7FFF 371 DEL32: MOV R7,#0FFH
0314 DFFE 372 DEL33: DJNZ R7,DEL33
0316 DEFA 373 DJNZ R6,DEL32
0318 DDF6 374 DJNZ R5,DEL31
031A 22 375 RET
376
031B 377 DELAY2:
031B 7E0C 378 MOV R6,#0CH
031D 7F18 379 DEL21: MOV R7,#18H
031F DFFE 380 DEL22: DJNZ R7,DEL22
0321 DEFA 381 DJNZ R6,DEL21
0323 22 382 RET
383
0324 384 DELAY1:
0324 7E06 385 MOV R6,#06H
0326 7F08 386 DEL11: MOV R7,#08H
0328 DFFE 387 DEL12: DJNZ R7,DEL12
032A DEFA 388 DJNZ R6,DEL11
A51 MACRO ASSEMBLER 12864_CHS 03/29/2005 16:03:58 PAGE 7
032C 22 389 RET
390
032D 391 DELAY4:
032D 7EC8 392 MOV R6,#200
032F 7FC8 393 DEL41: MOV R7,#200
0331 DFFE 394 DEL42: DJNZ R7,DEL42
0333 DEFA 395 DJNZ R6,DEL41
0335 22 396 RET
397
0336 398 DELAY5:
0336 7D05 399 MOV R5,#05H
0338 7EFF 400 DEL51: MOV R6,#0FFH
033A 7FFF 401 DEL52: MOV R7,#0FFH
033C DFFE 402 DEL53: DJNZ R7,DEL53
033E DEFA 403 DJNZ R6,DEL52
0340 DDF6 404 DJNZ R5,DEL51
0342 22 405 RET
406 ;***********************************************
0343 407 TAB1:
0343 20202020 408 TAB1A: DB ' 伟纳电子 ' ;显示在第一行
0347 CEB0C4C9
034B B5E7D7D3
034F 20202020
0353 B5A5C6AC 409 TAB1C: DB '单片机学习开发板' ;显示在第三行
0357 BBFAD1A7
035B CFB0BFAA
035F B7A2B0E5
0363 20575757 410 TAB1B: DB ' WWW.WILLAR.COM ' ;显示在第二行
0367 2E57494C
036B 4C41522E
036F 434F4D20
0373 54454C3A 411 TAB1D: DB 'TEL:0663-6888048' ;显示在第四行
0377 30363633
037B 2D363838
037F 38303438
412
413
0383 414 TAB3:
0383 20202020 415 DB ' ME300B ' ;显示在第一行
0387 204D4533
038B 30304220
038F 20202020
0393 C6ACBBFA 416 DB '片机知识最佳选择' ;显示在第三行
0397 D6AACAB6
039B D7EEBCD1
039F D1A1D4F1
03A3 CAC7C4FA 417 DB '是您学习和掌握单' ;显示在第二行
03A7 D1A7CFB0
03AB BACDD5C6
03AF CED5B5A5
03B3 A3ADA3AD 418 DB '－－欢迎使用－－' ;显示在第四行
03B7 BBB6D3AD
03BB CAB9D3C3
03BF A3ADA3AD
419
420 ;==================================================================================
03C3 421 TU_TAB1: ;伟纳电子图片
03C3 FFFFFFFF 422 DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
03C7 FFFFFFFF
03CB FFFFFFFF
03CF FFFFFFFF
03D3 80000000 423 DB 080H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,001H
03D7 00000000
03DB 00000000
03DF 00000001
03E3 80000000 424 DB 080H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,000H,001H
A51 MACRO ASSEMBLER 12864_CHS 03/29/2005 16:03:58 PAGE 8
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?