?? sun.asm
字號:
；*********************************************
； 用89C52制作太陽電池數顯充放電控制器原程序
；
；**********************************************
；
；70H內存單元存放采樣值，78H-7AH存放顯示的BCD碼數據，
；自然就依次為個位、十位和百位，模數轉換器是ADC0809
；*************************************
；* *
；* 主程序和中斷程序入口 *
；* *
；*************************************
ORG 0000H ；程序執行開始地址
LJMP START ；跳至START執行
NOP ；軟件陷阱
NOP ；
LJMP ERR ；
ORG 0003H ；外中斷0中斷入口地址
RETI ；中斷返回（不開中斷）
NOP；
NOP；
LJMP ERR；
ORG 000BH ；定時器T0中斷入口地址
LJMP ERR ；
NOP；
NOP；
LJMP ERR；
ORG 0013H ；外中斷1中斷入口地址
RETI ；中斷返回（不開中斷）
NOP；
NOP；
LJMP ERR；
ORG 001BH ；定時器T1中斷入口地址
RETI ；中斷返回（不開中斷）
NOP；
NOP；
LJMP ERR；
ORG 0023H ；串行口中斷入口地址
RETI ；中斷返回（不開中斷）
NOP；
NOP；
LJMP ERR；
ORG 002BH ；定時器T2中斷入口地址
RETI ；中斷返回（不開中斷）
NOP；
NOP；
LJMP ERR；
；
；*************************************
；* *
；* 初始化程序中的各變量 *
；* *
；*************************************
CLEARMEMIO： CLR A ；累加器A清零
MOV P2,A ；P2口置0
MOV 70H,A ；70H單元內存清0
MOV A,#0FFH ；累加器A置1
MOV P0,A ；P0、P1、P3端口置1
MOV P1,A ；
MOV P3,A ；
RET ；子程序返回
NOP；
NOP；
LJMP ERR；
；
；*************************************
；* *
；* 主 程 序 *
；* *
；*************************************
START： MOV SP,#60H；
MOV PSW,#00H；
MOV SCON,#00H；
MOV TMOD,#01H；
SETB ET0；
SETB PT0；
MOV TL0,#0FBH；
MOV TH0,#0FFH；
SETB TR0；
SETB ET0；
LCALL CLEARMEMIO ；初始化
MAIN： LCALL DISPLAY ；顯示數據一次
LCALL TEST ；測量一次
LCALL ATT ；
LCALL AQQ ；
NOP ；
NOP ；
LCALL WATCH_DOG ；
AJMP MAIN ；返回MAIN循環
NOP ；PC值出錯處理
NOP ；空操作
NOP ；空操作
LJMP START ；重新復位起動
NOP；
NOP；
LJMP ERR；
WATCH_DOG： MOV TL0,#0FBH；
MOV TH0,#0FFH；
SETB TR0；
RET；
NOP；
NOP；
LJMP ERR；
；
；**********************************************
；將顯示數據轉換成十進制BCD碼，并調顯示子程序 *
；**********************************************
DISPLAY： MOV R0,#70H ；顯示數據初址（70H-77H）
MOV A,@R0 ；顯示數據轉為三位十進制BCD碼存入
MOV B,#100 ；7AH、79H、78H顯示單元內
DIV AB ；顯示數據除100
MOV 7AH,A ；商入7AH
MOV A,#10 ；A放入數10
XCH A,B ；余數與數10交換
DIV AB ；余數除10
MOV 79H,A ；商入79H
MOV 78H,B ；余數入78H
MOV R2,#0FFH ；
DISLOOP2： LCALL DISP ；調四位LED顯示程序
DJNZ R2,DISLOOP2 ；
RET ；
NOP；
NOP；
LJMP ERR；
;*************************************************************************
; LED共陽顯示子程序，顯示內容在78H-7BH，數據在P1輸出，列掃描在P3.0-P3.3口*
;*************************************************************************
DISP： MOV R1,#78H ；賦顯示數據單元首址
MOV R5,#0FEH ；掃描字
PLAY： MOV P1,#0FFH ；關顯示
MOV A,R5 ；取掃描字
ANL P3,A ；開顯示
MOV A,@R1 ；取顯示數據
MOV DPTR,#TAB ；取段碼表首址
MOVC A,@A+DPTR ；查顯示數據對應段碼
MOV P1,A ；段碼放入P1口
CLR P1.7 ；開小數點
LCALL DL1MS ；顯示1MS
INC R1 ；指向下一地址
MOV A,P3 ；取P3口掃描字
JNB ACC.2,ENDOUT ；三位顯示完轉ENDOUT結束
RL A ；掃描字循環左移
MOV R5,A ；掃描字放入R5暫存,
MOV P3,#0FFH ；顯示暫停
SETB P3.0 ；
SETB P3.1 ；
SETB P3.2 ；
SETB P3.7 ；
AJMP PLAY ；轉PLAY循環,
MOV P3,#0FFH ；顯示結束，端口置1
ENDOUT： SETB P3.0 ；
SETB P3.1 ；
SETB P3.2 ；
SETB P3.7 ；
MOV P1,#0FFH ；
RET ；子程序返回
NOP；
NOP；
LJMP ERR；
；
；***********************************************************
；LED數碼顯示管用共陽段碼表，分別對應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；
NOP；
NOP；
LJMP ERR；
；
；*********************
；*模數轉換測量子程序 *
；*********************
TEST： CLR A ；累加器A清零
MOV P2,A ；清P2口
MOV R0,#70H ；轉換值存放首址
LCALL TESTART ；啟動測試
WAIT： JB P3.7,MOVD ；P3.7=1則轉MOVD處執行，等A/D轉換結束信號后轉MOVD
AJMP WAIT ；P3.7為0等待
NOP；
NOP；
LJMP ERR；
；
；****************
；測試啟動子程序 *
；****************
TESTART： SETB P2.3 ；鎖存測試通道地址
NOP ； 延時2微秒
NOP ；
CLR P2.3 ；測試通道地址鎖存完畢
SETB P2.4 ；啟動測試，發開始脈沖
NOP ； 延時2微秒
NOP ；
CLR P2.4 ；發啟動脈沖完畢
NOP ；延時4微秒
NOP ；
NOP ；
NOP ；
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -