?? 4.2.asm
字號:
;************************;
;八路模擬數(shù)據(jù)采集顯示電路;
; 2001.10.08編 ;
;************************;
;
;70H-77H存放采樣值，78H-7BH存放顯示數(shù)據(jù)，依次為個位、十位、百位、通道標(biāo)志
;
;*************************************
;* *
;* 主程序和中斷程序入口 *
;* *
;*************************************
ORG 0000H ;程序執(zhí)行開始地址
LJMP START ;跳至START執(zhí)行
;
;*************************************
;* *
;* 初始化程序中的各變量 *
;* *
;*************************************
CLEARMEMIO: CLR A ;
MOV P2,A ;P2口置0
MOV R0,#70H ;內(nèi)存循環(huán)清0（70H-7BH）
MOV R2,#0CH ;
LOOPMEM: MOV @R0,A ;
INC R0 ;
DJNZ R2,LOOPMEM ;
MOV A,#0FFH ;
MOV P0,A ;P0、P1、P3端口置1
MOV P1,A ;
MOV P3,A ;
RET ;子程序返回
;
;*************************************
;* *
;* 主 程 序 *
;* *
;*************************************
START: LCALL CLEARMEMIO ;初始化
MAIN: LCALL DISPLAY ;顯示數(shù)據(jù)一次
LCALL TEST ;測量一次;
call display
AJMP MAIN ;返回MAIN循環(huán)
NOP ;PC值出錯處理
NOP ;空操作
NOP ;空操作
LJMP START ;重新復(fù)位起動
;
DISPLAY: MOV R3,#08H ;8路信號循環(huán)顯示控制
MOV R0,#70H ;顯示數(shù)據(jù)初址（70H-77H）
MOV 7BH,#00H ;顯示通道路數(shù)（0-7）
DISLOOP1: MOV R2,#0FFH ;每路顯示時間控制 4MS*255
call bao
DISLOOP2: call bcd
LCALL DISP ;調(diào)四位LED顯示程序
DJNZ R2,DISLOOP2 ;每路顯示時間控制
INC R0 ;顯示下一路
INC 7BH ;通道顯示數(shù)值加1
DJNZ R3,DISLOOP1 ;8路顯示未完轉(zhuǎn)DISLOOP1再循環(huán)
RET ;8路顯示完子程序結(jié)束
;
bao: clr c
mov a,@r0
cjne a,#40,bb
bb: jc out0
clr p3.5
clr p3.6
mov r4,#200
do: call dl10ms
call bcd
call disp
djnz r4,do
ret
out0: ;setb p3.5
;setb p3.6
ret
bcd : MOV A,@R0 ;顯示數(shù)據(jù)轉(zhuǎn)為三位十進(jìn)制BCD碼存入
MOV B,#100 ;7AH、79H、78H顯示單元內(nèi)
DIV AB ;顯示數(shù)據(jù)除100
MOV 7AH,A ;商入7AH
MOV A,#10 ;A放入數(shù)10
XCH A,B ;余數(shù)與數(shù)10交換
DIV AB ;余數(shù)除10
MOV 79H,A ;商入79H
MOV 78H,B ;余數(shù)入78H
ret
; LED共陽顯示子程序，顯示內(nèi)容在78H-7BH，數(shù)據(jù)在P1輸出，列掃描在P3.0-P3.3口
DISP: MOV R1,#78H ;賦顯示數(shù)據(jù)單元首址
MOV R5,#0FEH ;掃描字
PLAY: MOV P1,#0FFH ;關(guān)顯示
MOV A,R5 ;取掃描字
ANL P3,A ;開顯示
MOV A,@R1 ;取顯示數(shù)據(jù)
MOV DPTR,#TAB ;取段碼表首址
MOVC A,@A+DPTR ;查顯示數(shù)據(jù)對應(yīng)段碼
MOV P1,A ;段碼放入P1口
LCALL DL1MS ;顯示1MS
INC R1 ;指向下一地址
MOV A,P3 ;取P3口掃描字
JNB ACC.3,ENDOUT ;四位顯示完轉(zhuǎn)ENDOUT結(jié)束
RL A ;掃描字循環(huán)左移
MOV R5,A ;掃描字放入R5暫存
anl a, #0ffh ;掃描字放入R5暫存
mov P3,a ;顯示暫停
AJMP PLAY
mov a,#0ffh ;轉(zhuǎn)PLAY循環(huán)
ENDOUT: anl P3,a ;顯示結(jié)束，端口置1
MOV P1,#0FFH ;
RET ;子程序返回
;
;LED數(shù)碼顯示管用共陽段碼表，分別對應(yīng)0-9，最后一個是"熄滅符"
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
;
; 1MS延時子程序，LED顯示用
DL1MS: MOV R6,#14H ;
DL1: MOV R7,#19H
DL2: DJNZ R7,DL2
DJNZ R6,DL1
RET
dl10ms: mov r2,#0ah
dl10msloop: call dl1ms
djnz r2,dl10msloop
ret
;
;模數(shù)轉(zhuǎn)換測量子程序
TEST: CLR A ;清累加器A
MOV P2,A ;清P2口
MOV R0,#70H ;轉(zhuǎn)換值存放首址
MOV R7,#08H ;轉(zhuǎn)換8次控制
LCALL TESTART ;啟動測試
WAIT: JB P3.7,MOVD ;等A/D轉(zhuǎn)換結(jié)束信號后轉(zhuǎn)MOVD
AJMP WAIT ;P3.7為0等待
;
TESTART: SETB P2.3 ;鎖存測試通道地址
NOP ; 延時2微秒
NOP ;
CLR P2.3 ;測試通道地址鎖存完畢
SETB P2.4 ; 啟動測試，發(fā)開始脈沖
NOP ; 延時2微秒
NOP ;
CLR P2.4 ; 發(fā)啟動脈沖完畢
NOP ;延時4微秒
NOP ;
NOP ;
NOP ;
RET ;子程序調(diào)用結(jié)束
;
; 取A/D轉(zhuǎn)換數(shù)據(jù)至70H-77H內(nèi)存單元
MOVD: SETB P2.5 ;8090輸出允許
MOV A,P0 ;將A/D轉(zhuǎn)換值移入A
mov b,#5
div ab
MOV @R0,A ;放入內(nèi)存單元
CLR P2.5 ;關(guān)閉8090輸出
INC R0 ;內(nèi)存地址加1
MOV A,P2 ;通道地址移入A
INC A ;通道地址加1
MOV P2,A ; 通道地址送8090
CLR C ;清進(jìn)位標(biāo)志
CJNE A,#08H,TESTCON ; 通道地址不等于8轉(zhuǎn)TESTCONT再測試
JC TESTCON ; 通道地址小于8轉(zhuǎn)TESTCONT再測試
CLR A ; 大于或等于8，A/D轉(zhuǎn)換結(jié)束，恢復(fù)端口
MOV P2,A ; P2口置0
MOV A,#0FFH ;
MOV P0,A ; P0口置1
MOV P1,A ; P1口置1
MOV P3,A ; P3口置1
RET ; 取A/D轉(zhuǎn)換數(shù)據(jù)結(jié)束
TESTCON: LCALL TESTART ; 再發(fā)測試啟動脈沖
LJMP WAIT ; 跳至WAIT等待A/D轉(zhuǎn)換結(jié)束信號
;
END ; 程序結(jié)束
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -