1
来自「RM51单片机实验板配套实验例程库」· 代码 · 共 1,240 行 · 第 1/4 页
TXT
1,240 行
030E DCF2 DJNZ R4,DD4
0310 22 RET
;
;*****************************16*8点阵的字符代码表**********************************
0311 303132
0314 333435
0317 363738
031A 393A3B
031D 3C3D3E
0320 20 TABLE1: DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H,3AH,3BH,3CH,3DH,3EH,20H
; 0 1 2 3 4 5 6 7 8 9 : ; < = > "不显"
;**********************************自造字符地址表***********************************
;
;******************"这里是16*16点阵的汉字代码表"************************************
0321 D5E3BD
0324 ADBAA3
0327 D1F3D1
032A A7D4BA
032D A1AA20
0330 2020 CHINESE: DB "浙江海洋学院— "
0332 B5A5C6
0335 ACBBFA
0338 CAB5D1
033B E9CAD2
033E 202020
D:\C03电本教学实验资料\超声波报警示范程序(新)\5.ASM
页 12
11-27-05
16:01:21
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
0341 2020 CHINESE1: DB "单片机实验室 "
0343 433033
0346 20B5E7
0349 B1BE28
034C 322920
034F B0E020
0352 2020 CHINESE3: DB "C03 电本(2) 班 "
0354 C2A5C8
0357 BBC3E7
035A C9E8BC
035D C6D6C6
0360 D7F720
0363 2020 CHINESE4: DB "楼然苗设计制作 "
0365 BEE0C0
0368 EB3A20
036B 202020
036E 20C0E5
0371 C3D720
0374 2020 CHINESE2: DB "距离: 厘米 "
0376 B1A8BE
0379 AF3A20
037C 202020
037F 20C0E5
0382 C3D720
0385 202020 CHINESE6: DB "报警: 厘米 "
0388 BEAFB8
038B E62120
038E BEE0C0
0391 EBCCAB
0394 BDFC20
0397 202020 CHINESE7: DB "警告! 距离太近 "
039A B3ACC9
039D F9B2A8
03A0 B2E2BE
03A3 E0C6F7
03A6 2D4A20
03A9 2020 CHINESE8: DB "超声波测距器-J " ; 近报警状态
03AB B3ACC9
03AE F9B2A8
03B1 B2E2BE
03B4 E0C6F7
03B7 2D5920
03BA 2020 CHINESE9: DB "超声波测距器-Y " ; 远报警状态
03BC BEAFB8
03BF E62120
03C2 BEE0C0
03C5 EBCCAB
03C8 D4B620
D:\C03电本教学实验资料\超声波报警示范程序(新)\5.ASM
页 13
11-27-05
16:01:21
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
03CB 202020 CHINESE10:DB "警告! 距离太远 "
;;;;;;;;;;;;;;;;;;;;;;
03CE C0E0 BAOJ: PUSH ACC
03D0 C0D0 PUSH PSW
03D2 E560 MOV A,60H
03D4 B5403A CJNE A,40H,BAO1
03D7 C3 CLR C
03D8 E561 MOV A,61H
03DA B54134 CJNE A,41H,BAO1
03DD C3 CLR C
03DE E562 MOV A,62H
03E0 B5422E CJNE A,42H,BAO1
03E3 C3 CLR C
03E4 E563 MOV A,63H
03E6 B54328 CJNE A,43H,BAO1
BAOJING:
03E9 C294 CLR LAMPBLAK
03EB C2B3 CLR LED1
; CLR BELL
03ED 7480 MOV A,#80H ;第一行左第一个字开始
03EF 120246 LCALL WRITE_COM
03F2 900388 MOV DPTR,#CHINESE7 ;警告! 距离太近
03F5 1202EF LCALL WRITE_HZ
03F8 D0D0 POP PSW
03FA D0E0 POP ACC
03FC 22 RET
03FD D294 BBAO: SETB LAMPBLAK
03FF D2B3 SETB LED1
; SETB BELL
0401 7480 MOV A,#80H ;第一行左第一个字开始
0403 120246 LCALL WRITE_COM
0406 90039A MOV DPTR,#CHINESE8 ;超声波测距器--
0409 1202EF LCALL WRITE_HZ
040C D0D0 POP PSW
040E D0E0 POP ACC
0410 22 RET
;
0411 40EA BAO1: JC BBAO
0413 0203E9 LJMP BAOJING
;
0416 C0E0 YBAOJ: PUSH ACC
0418 C0D0 PUSH PSW
041A E560 MOV A,60H
041C B5403A CJNE A,40H,BAO11
041F C3 CLR C
0420 E561 MOV A,61H
0422 B54134 CJNE A,41H,BAO11
0425 C3 CLR C
D:\C03电本教学实验资料\超声波报警示范程序(新)\5.ASM
页 14
11-27-05
16:01:21
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
0426 E562 MOV A,62H
0428 B5422E CJNE A,42H,BAO11
042B C3 CLR C
042C E563 MOV A,63H
042E B54328 CJNE A,43H,BAO11
BAOJING1:
0431 C294 CLR LAMPBLAK
0433 C2B3 CLR LED1
; CLR BELL
0435 7480 MOV A,#80H ;第一行左第一个字开始
0437 120246 LCALL WRITE_COM
043A 9003BC MOV DPTR,#CHINESE10 ;警告! 距离太远
043D 1202EF LCALL WRITE_HZ
0440 D0D0 POP PSW
0442 D0E0 POP ACC
0444 22 RET
0445 D294 BBAO1: SETB LAMPBLAK
0447 D2B3 SETB LED1
; SETB BELL
0449 7480 MOV A,#80H ;第一行左第一个字开始
044B 120246 LCALL WRITE_COM
044E 9003AB MOV DPTR,#CHINESE9 ;超声波测距器-Y
0451 1202EF LCALL WRITE_HZ
0454 D0D0 POP PSW
0456 D0E0 POP ACC
0458 22 RET
;
0459 40D6 BAO11: JC BAOJING1
045B 020445 LJMP BBAO1
;以下为报警距离设定程序
045E C2AF SAFESET: CLR EA
0460 C28C CLR TR0
0462 7490 MOV A,#90H ;第二行左第一个字开始
0464 120246 LCALL WRITE_COM
0467 900376 MOV DPTR,#CHINESE6 ;显示报警:
046A 1202EF LCALL WRITE_HZ
046D C294 CLR LAMPBLAK
046F 854050 MOV 50H,40H
0472 854151 MOV 51H,41H
0475 854252 MOV 52H,42H
0478 854353 MOV 53H,43H
047B 856040 MOV 40H,60H
047E 856141 MOV 41H,61H
0481 856242 MOV 42H,62H
0484 856343 MOV 43H,63H
0487 1201AE LCALL DATAUP
048A 30A6FD SAFESET1: JNB KEY0,SAFESET1
D:\C03电本教学实验资料\超声波报警示范程序(新)\5.ASM
页 15
11-27-05
16:01:21
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
048D 1201AE SAFESET10: LCALL DATAUP
0490 30A609 JNB KEY0,SAFESET2
0493 30A709 JNB KEY1,SAFEADD1
0496 30B210 JNB KEY2,SAFESUBB1
0499 02048D LJMP SAFESET10
049C 0204B3 SAFESET2: LJMP SAFESET20
049F AF43 SAFEADD1: MOV R7,43H
04A1 120561 LCALL ADD1
04A4 F543 MOV 43H,A
04A6 02048D LJMP SAFESET10
04A9 AF43 SAFESUBB1: MOV R7,43H
04AB 120575 LCALL SUBB1
04AE F543 MOV 43H,A
04B0 02048D LJMP SAFESET10
04B3 C282 SAFESET20: CLR BELL
04B5 30A6FB JNB KEY0,SAFESET20
04B8 D282 SETB BELL
04BA 1201AE LCALL DATAUP
04BD 30A609 JNB KEY0,SAFESET3
04C0 30A709 JNB KEY1,SAFEADD2
04C3 30B210 JNB KEY2,SAFESUBB2
04C6 0204B3 LJMP SAFESET20
04C9 0204E0 SAFESET3: LJMP SAFESET30
04CC AF42 SAFEADD2: MOV R7,42H
04CE 120561 LCALL ADD1
04D1 F542 MOV 42H,A
04D3 0204B3 LJMP SAFESET20
04D6 AF42 SAFESUBB2: MOV R7,42H
04D8 120575 LCALL SUBB1
04DB F542 MOV 42H,A
04DD 0204B3 LJMP SAFESET20
04E0 30A6FD SAFESET30: JNB KEY0,SAFESET30
04E3 1201AE LCALL DATAUP
04E6 30A609 JNB KEY0,SAFESET4
04E9 30A709 JNB KEY1,SAFEADD3
04EC 30B210 JNB KEY2,SAFESUBB3
04EF 0204E0 LJMP SAFESET30
04F2 020509 SAFESET4: LJMP SAFESET40
04F5 AF41 SAFEADD3: MOV R7,41H
04F7 120561 LCALL ADD1
04FA F541 MOV 41H,A
04FC 0204E0 LJMP SAFESET30
04FF AF41 SAFESUBB3: MOV R7,41H
0501 120575 LCALL SUBB1
0504 F541 MOV 41H,A
0506 0204E0 LJMP SAFESET30
D:\C03电本教学实验资料\超声波报警示范程序(新)\5.ASM
页 16
11-27-05
16:01:21
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
0509 30A6FD SAFESET40: JNB KEY0,SAFESET40
050C 1201AE LCALL DATAUP
050F 30A609 JNB KEY0,SAFESET5
0512 30A709 JNB KEY1,SAFEADD4
0515 30B210 JNB KEY2,SAFESUBB4
0518 020509 LJMP SAFESET40
051B 020532 SAFESET5: LJMP SAFESET50
051E AF40 SAFEADD4: MOV R7,40H
0520 120561 LCALL ADD1
0523 F540 MOV 40H,A
0525 020509 LJMP SAFESET40
0528 AF40 SAFESUBB4: MOV R7,40H
052A 120575 LCALL SUBB1
052D F540 MOV 40H,A
052F 020509 LJMP SAFESET40
0532 30A6FD SAFESET50: JNB KEY0,SAFESET50
0535 854060 MOV 60H,40H
0538 854161 MOV 61H,41H
053B 854262 MOV 62H,42H
053E 854363 MOV 63H,43H
0541 855040 MOV 40H,50H
0544 855141 MOV 41H,51H
0547 855242 MOV 42H,52H
054A 855343 MOV 43H,53H
054D 7490 MOV A,#90H ;第二行左第一个字开始
054F 120246 LCALL WRITE_COM
0552 900365 MOV DPTR,#CHINESE2 ;WORD 16*16点阵TEST
0555 1202EF LCALL WRITE_HZ
0558 D294 SETB LAMPBLAK
055A D2AF SETB EA
055C D28C SETB TR0
055E 02006A LJMP START1
0561 EF ADD1: MOV A,R7
0562 2401 ADD A,#01H
ADD20:
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?