📄 3.lst
字号:
页 1
01-29-03
01:09:32
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
; *************************
; * 电子屏字符显示器 *
; * "电子设计" *
; * 2001.10.23 *
; *************************
; 四个显示字符数据表放在50H-6FH单元内，字符用8*8点阵，R4（30H）用于
; 控制显示静止字的时间，R5（31H）静止字显示跳转地址步距，B内放显示首址
;
;************;
;中断入口程序;
;************;
;
ORG 0000H ;程序执行开始地址
0000 020050 LJMP START ;跳至START执行
ORG 0003H ;外中断0中断入口地址
0003 32 RETI ;中断返回（不开中断）
ORG 000BH ;定时器T0中断入口地址
000B 32 RETI ;中断返回（不开中断）
ORG 0013H ;外中断1中断入口地址
0013 32 RETI ;中断返回（不开中断）
ORG 001BH ;定时器T1中断入口地址
001B 32 RETI ;中断返回（不开中断）
ORG 0023H ;串行口中断入口地址
0023 32 RETI ;中断返回（不开中断）
ORG 002BH ;定时器T2中断入口地址
002B 32 RETI ;中断返回（不开中断）
;
;初始化程序
002C 74FF CLEARMEN: MOV A,#0FFH ;四端口置1
002E F590 MOV P1,A ;
0030 F5A0 MOV P2,A ;
0032 F5B0 MOV P3,A ;
0034 F580 MOV P0,A ;
0036 900153 MOV DPTR,#TAB ;取"电子设计"字符表首址值
0039 E4 CLR A ;
003A F521 MOV 21H,A ;21H-24H内存单元清0
003C F522 MOV 22H,A ;
003E F523 MOV 23H,A ;
0040 F524 MOV 24H,A ;
0042 FB MOV R3,A ;R3寄存器清0
0043 7950 MOV R1,#50H ;设字符表移入内存单元首址
0045 7A20 MOV R2,#20H ;设查表次数（32次）
0047 93 CLLOOP: MOVC A,@A+DPTR ;查表将"电子设计"字符数据移入内存单元
0048 F7 MOV @R1,A ;
0049 EB MOV A,R3 ;
004A 04 INC A ;
004B FB MOV R3,A ;
004C 09 INC R1 ;
C:\MY DOCUMENTS\2003.02.12书稿\配套光盘源程序\实例３\3.ASM
页 2
01-29-03
01:09:32
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
004D DAF8 DJNZ R2,CLLOOP ;查表32次，不到转CLLOOP再查
004F 22 RET ;子程序返回
;
;主体程序
0050 752000 START: MOV 20H,#00H ;20H内存单元清0
0053 D200 SETB 00H ;20H.0位置1
0055 12002C START1: LCALL CLEARMEN ;调用上电初始化子程序
0058 20003C JB 00H,FUN0 ;20H.0位为1，执行FUN0
005B 200142 JB 01H,FUN1 ;20H.1位为1，执行FUN1
005E 200248 JB 02H,FUN2 ;20H.2位为1，执行FUN2
0061 0155 AJMP START1 ;跳回START1循环
;
;键扫描子程序
0063 7590FF KEYWORK: MOV P1,#0FFH ;置输入状态
0066 309007 JNB P1.0,KEY1 ;P1.0为0（键按下）转KEY1
0069 309111 JNB P1.1,KEY2 ;P1.1为0（键按下）转KEY2
006C 30921B JNB P1.2,KEY3 ;P1.2为0（键按下）转KEY3
006F 22 KEYRET: RET ;无键按下，子程序返回
;按键1功能处理
0070 12014B KEY1: LCALL DL10MS ;延时10MS削抖动
0073 2090F9 JB P1.0,KEYRET ;是干扰转KEYRET结束
0076 D200 SETB 00H ;置逐字显示方式标志（20H.0=1）
0078 C201 CLR 01H ;
007A C202 CLR 02H ;
007C 22 RET ;子程序返回
; 按键2功能处理
007D 12014B KEY2: LCALL DL10MS ;
0080 2091EC JB P1.1,KEYRET ;
0083 D201 SETB 01H ;置上移显示方式标志（20H.1=1）
0085 C200 CLR 00H ;
0087 C202 CLR 02H ;
0089 22 RET ;
; 按键3功能处理
008A 12014B KEY3: LCALL DL10MS ;
008D 2092DF JB P1.2,KEYRET ;
0090 D202 SETB 02H ;置左移显示方式标志（20H.2=1）
0092 C201 CLR 01H ;
0094 C200 CLR 00H ;
0096 22 RET
;
;逐字显示功能程序
0097 753080 FUN0: MOV 30H,#80H ;1帧显示时间控制（约1秒）
009A 753108 MOV 31H,#08H ;换帧跳转步距为8
009D 0200AC LJMP DISP1 ;转显示子程序DISP1
; 上移显示功能程序
00A0 75300A FUN1: MOV 30H,#0AH ;1帧显示时间控制（约80毫秒）
00A3 753101 MOV 31H,#01H ;换帧跳转步距为1
00A6 0200AC LJMP DISP1 ;转显示子程序DISP1
C:\MY DOCUMENTS\2003.02.12书稿\配套光盘源程序\实例３\3.ASM
页 3
01-29-03
01:09:32
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
;左移显示功能程序
00A9 0200E1 FUN2: LJMP DISP2 ;
;
;显示控制程序
00AC 75F050 DISP1: MOV B,#50H ;显示数据首址
00AF AC30 MOV R4,30H ;放入1帧显示时间控制数据
00B1 AD31 MOV R5,31H ;放入跳转步距控制数据
00B3 1200C6 LOOP: LCALL DISPLAY ;调用显示子程序一次
00B6 DCFB DJNZ R4,LOOP ;1帧显示时间未到再转LOOP循环
00B8 AC30 MOV R4,30H ;1帧显示时间到，重装初值
00BA E5F0 MOV A,B ;
00BC B46802 CJNE A,#68H,CONT ;不是末地址转CONT
00BF 0155 AJMP START1 ;是末地址，一次显示结束跳回START1
00C1 2D CONT: ADD A,R5 ;次帧扫描首址调整
00C2 F5F0 MOV B,A ;
00C4 01B3 AJMP LOOP ;转LOOP进行次帧扫描
;
;显示子程序，字符数据从P0口输出，扫描控制字从P2口输出，显示1帧约需8MS
00C6 74FF DISPLAY: MOV A,#0FFH ;
00C8 F580 MOV P0,A ;关显示数据
00CA F5A0 MOV P2,A ;关扫描
00CC 7EFE MOV R6,#0FEH ;赋扫描字
00CE A8F0 MOV R0,B ;赋显示数据首地址
00D0 7F08 MOV R7,#08H ;一次扫描8行
00D2 E6 DISLOOP: MOV A,@R0 ;取显示数据
00D3 F580 MOV P0,A ;放入P0口
00D5 8EA0 MOV P2,R6 ;扫描输出（显示某一行）
00D7 12013E LCALL DL1MS ;亮1毫秒
00DA 08 INC R0 ;指向下一行数据地址
00DB EE MOV A,R6 ;扫描字移入A
00DC 23 RL A ;循环左移一位
00DD FE MOV R6,A ;放回R6
00DE DFF2 DJNZ R7,DISLOOP ;8行扫描未完转DISLOOP继续
00E0 22 RET ;8行扫描结束
;
;左移显示控制程序
00E1 7D20 DISP2: MOV R5,#32 ; 左移32次
00E3 1200F1 DISP22: LCALL DISPP ;调用左移显示控制子程序
00E6 1200FC LCALL MOVH ;调用高位移出处理子程序MOVH
00E9 120117 LCALL MOVH1 ;调用高位移出处理子程序MOVH1
00EC DDF5 DJNZ R5,DISP22 ;左移显示32次控制
00EE 020055 LJMP START1 ;跳回主程序
;
; 左移显示控制子程序
00F1 75F050 DISPP: MOV B,#50H ;第一显示字符首址
00F4 7C25 MOV R4,#25H ;1帧显示时间控制
00F6 1200C6 DISPP1: LCALL DISPLAY ;调用显示子程序一次
00F9 DCFB DJNZ R4,DISPP1 ;1帧显示时间不到转DISPP再循环
C:\MY DOCUMENTS\2003.02.12书稿\配套光盘源程序\实例３\3.ASM
页 4
01-29-03
01:09:32
伟福汇编器 V5.00 Copyright (c) 1989, 2001 by CHY
地址 机器码 源程序
00FB 22 RET
;
; 高位移出处理子程序。将"电子设计"四个字符数据的最高位移出至21H-24H单元内
00FC 7921 MOVH: MOV R1,#21H ;最高位移出存放单元首址
00FE 7850 MOV R0,#50H ;"电子设计"字符数据首址
0100 7A08 MOV R2,#08H ;每"字"移8次
0102 E6 MOV1: MOV A,@R0 ;取"电子设计"字符数据
0103 C3 CLR C ;清进位C
0104 33 RLC A ;带进位循左移
0105 F6 MOV @R0,A ;放回原单元
0106 E7 MOV A,@R1 ;存放单元数据入A
0107 13 RRC A ;带进位循右移
0108 F7 MOV @R1,A ;放回存放单元
0109 08 INC R0 ;字符数据地址加1
010A DAF6 DJNZ R2,MOV1 ;移8次未完转MOV1再移
010C 7A08 MOV R2,#08H ;8次移完赋初值
010E 09 INC R1 ;存放单元地址加1
010F E9 MOV A,R1 ;判断地址是否小于25H
0110 9425 SUBB A,#25H ;
0112 6002 JZ OUT ;等于25H退出
0114 2102 AJMP MOV1 ;小于25H转MOV1继续
0116 22 OUT: RET ;子程序结束
;
;高位移出处理子程序。
0117 E521 MOVH1: MOV A,21H ;21H与22H、23H、24H单元数据循交换
0119 C524 XCH A,24H ;21H与24H全交换
011B C523 XCH A,23H ;23H与24H全交换
011D C522 XCH A,22H ;23H与22H全交换
011F F521 MOV 21H,A ;22H与21H全交换
0121 7921 MOV R1,#21H ;以下是重新组成显示字符数据表程序
0123 7850 MOV R0,#50H ;将21H-24H的各位分别移入50H-6FH的低位
0125 7A08 MOV R2,#08H ;移位次数
0127 E6 MOV2: MOV A,@R0 ;取字符数据
0128 03 RR A ;右移
0129 F6 MOV @R0,A ;放回原单元
012A E7 MOV A,@R1 ;取原移出最高位存放单元数
012B C3 CLR C ;清C
012C 13 RRC A ;带进位循环右移
012D F7 MOV @R1,A ;放回原单元
012E E6 MOV A,@R0 ;取字符数据
012F 33 RLC A ;带进位循环左移
0130 F6 MOV @R0,A ;放回字符数据
0131 08 INC R0 ;字符数据地址加1
0132 DAF3 DJNZ R2,MOV2 ;8次未完转MOV2再继续
0134 7A08 MOV R2,#08H ;8次完赋初值
0136 09 INC R1 ;原移出最高位存放单元地址加1
0137 E9 MOV A,R1 ;判断地址是否小于25H
0138 9425 SUBB A,#25H ;
C:\MY DOCUMENTS\2003.02.12书稿\配套光盘源程序\实例３\3.ASM
页 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -