?? 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 + -