【正文】 取段碼表首地址 MOVC A,A+DPTR 。顯示百位 CJNE A,00H,NPL1 。顯示個位 MOV DPTR,LEDTAB MOVC A,A+DPTR MOV DPTR,LEDL MOVX DPTR,A MOV A,SHIWEI 。送顯示 LJMP OUTT0 。查表 MOV DPTR,LEDL 。顯示個位 MOV DPTR,LEDTAB 。判斷十位是否為零 MOV DPTR,LEDM MOV A,0 。判斷百位是否為零 MOV DPTR,LEDH MOV A,0 。啟動T0定時 JB SETING,FPLAY 。停止T0定時 MOV TH0,9EH 。=============================TT0: PUSH PSW 。定時器0中斷服務(wù)程序（顯示）。=============================DELAY: MOV R6,10DLP1: MOV R7,250DLP2: NOP NOP DJNZ R7,DLP2 DJNZ R6,DLP1 RET。延時子程序(20ms)。中斷返回。置確認(rèn)狀態(tài)標(biāo)志 SJMP INTOUTINTOUT: POP ACC 。置左移位狀態(tài)標(biāo)志 SJMP INTOUTRGTKEY: SETB RGTING 。置加1狀態(tài)標(biāo)志 SJMP INTOUTSUBKEY: SETB SUBING 。置設(shè)置狀態(tài)標(biāo)志 SJMP INTOUT 。按下“確認(rèn)鍵”，則轉(zhuǎn) SJMP INTOUT 。按下“左移位鍵”，則轉(zhuǎn) JNB ,RGTKEY 。按下“加1鍵”，則 JNB ,SUBKEY 。誤讀則退出中斷INTLP: JNB ,SETKEY 。讀P1口前置1 MOV P1,A MOV A,P1 CJNE A,0FFH,INTLP 。保護現(xiàn)場 PUSH DPH PUSH DPL PUSH ACC LCALL WATCHDOG LCALL DELAY 。外部中斷0中斷服務(wù)程序（鍵盤）。=============================I2C_RECEIVE8BIT: MOV B,08H CLR A SETB SDAI2C_RECEIVE8IT_A: SETB SCL NOP NOP MOV C,SDA RLC A CLR SCL DJNZ B,I2C_RECEIVE8IT_A RET。使用寄存器：A，B 和 Cy。=============================。入口參數(shù)：A中為發(fā)送的數(shù)據(jù)。發(fā)送八位數(shù)據(jù)。==========================I2C_ACk: SETB SDA SETB SCL NOP NOP JB SDA,I2C_ACK0 CLR C SJMP I2C_ACK_ENDI2C_ACK0: SETB CI2C_ACK_END: CLR SCL RET。使用寄存器：Cy。==========================。發(fā)送結(jié)束信號。==========================I2C_START: SETB SCL SETB SDA NOP NOP CLR SDA NOP NOP CLR SCL RET。==========================。=========================================I2C_READ: LCALL I2C_START MOV A,10100000B LCALL I2C_SEND8BIT LCALL I2C_ACK JC I2C_READ 。=========================================。==============================================I2C_WRITE: LCALL I2C_START MOV A,10100000B LCALL I2C_SEND8BIT LCALL I2C_ACK JC I2C_WRITE 。==============================================。指向下一個24C01單元 MOV A,R1 DJNZ R3,LOOP1 。寫入數(shù)據(jù) INC R1 。傳送寫入的地址 MOV I2CData,A 。寫入單元的起始地址 MOV R3,3 。沒有讀完則轉(zhuǎn)移 RET WRDATA: MOV R1,30H 。指向下一個內(nèi)部RAM單元 INC R2 。讀出數(shù)據(jù) MOV R1,A 。讀出數(shù)據(jù)的個數(shù)（3個字節(jié)）LOOP: MOV Address,R2 。讀出數(shù)據(jù)寫入內(nèi)部RAM的起始地址 MOV R2,0 。24C01存儲器I2C總線讀寫程序。2字節(jié) MOV A,R1 MOV R6,A MOV A,R7 MOV R3,A CLR ASC10: MOV R1,A INC R1 DJNZ R3,SC10 MOV A,R7 MOV R3,ASC13: LCALL SC11 MOV A,R0 ANL A,0F0H SWAP A LCALL SC12 LCALL SC11 MOV A,R0 ANL A,0FH LCALL SC12 DEC R0 DJNZ R3,SC13 MOV A,HEXH XCH A,HEXL MOV HEXH,A RETSC11: MOV A,R7 MOV R4,A MOV A,R6 MOV R1,A CLR C MOV R2,00HSC14: MOV A,R1 MOV B,0AH PUSH PSW MUL AB POP PSW ADDC A,R2 MOV R1,A MOV R2,B INC R1 DJNZ R4,SC14 RETSC12: MOV R5,A MOV A,R6 MOV R1,A MOV A,R7 MOV R4,A MOV A,R5 ADD A,R1 MOV R1,A INC R1 DEC R4 MOV A,R4 JNZ SC15 LJMP SC16SC15: MOV A,R1 ADDC A,00H MOV R1,A INC R1 DJNZ R4,SC15SC16: RET。輸出: 十六進(jìn)制數(shù)存在27H，28H（低位在28H）。使用內(nèi)存單元: 24H28H。BCD碼轉(zhuǎn)換十六進(jìn)制數(shù)子程序（2字節(jié)）。送數(shù)據(jù)至DA芯片 RET。查表DAOUT: MOV DPTR,DAC 。取出轉(zhuǎn)換好的數(shù)據(jù) MOV DPTR,DATAB 。選擇3區(qū)工作寄存器 SETB RS1 MOV BCDH,00H LCALL BCDHEX 。合并數(shù)據(jù) MOV BCDL,A 。取十位數(shù)據(jù) SWAP A 。判斷百位是否為1，否則轉(zhuǎn) MOV A,0FFH 。使用寄存器：A,DPTR,3區(qū)工作寄存器。=============================。設(shè)置值超量程則百位清0 CLR ENTING 。開總中斷 LJMP OUTSET 。調(diào)用寫AT24C01子程序 CLR RS0 。選擇3區(qū)工作寄存器 SETB RS1 LCALL DACVT 。清確認(rèn)鍵標(biāo)志 CLR EA 。判斷個位是否為0,不為0則轉(zhuǎn) CLR SETING 。判斷百位是否為1,不為1則轉(zhuǎn) MOV A,SHIWEI CJNE A,0,MENTL2 。選擇0區(qū)工作寄存器 CLR RS1 SETB EA 。調(diào)用D/A轉(zhuǎn)換子程序 LCALL WRDATA 。關(guān)總中斷 SETB RS0 。清設(shè)置狀態(tài)標(biāo)志 CLR ENTING 。取百位的數(shù)據(jù) CJNE A,0,MENTL1 。到,則賦百位地址 CLR RGTING LJMP OUTSETMRGTL: INC R0 。左移一位 CLR LFTING LJMP OUTSETMRGT: CJNE R0,GEWEI,MRGTL 。判斷是否到百位,沒到則轉(zhuǎn) MOV R0,GEWEI 。減1 MOV R0,A 。判斷是否到0,沒到則轉(zhuǎn) MOV R0,9 。加1 MOV R0,A 。清標(biāo)志 LJMP OUTSET 。判斷是否到9,沒到則轉(zhuǎn) MOV R0,0 。確認(rèn)標(biāo)志位為1則轉(zhuǎn) LJMP MAINLP 。左移位標(biāo)志位為1則轉(zhuǎn) JB RGTING,MRGT 。加1標(biāo)志位為1則轉(zhuǎn) JB SUBING,MSUB 。輸出:30H(百位),31H(十位),32H(個位)。鍵盤處理子程序。主程序循環(huán)。設(shè)置標(biāo)志位為1則轉(zhuǎn)鍵盤處理子程序 CLR ADDING ?；謴?fù)0區(qū)工作寄存器 CLR RS1 SETB EA 。選擇3區(qū)工作寄存器 SETB RS1 LCALL DACVT 。判斷EEPROM是否為出廠狀態(tài) CJNE A,0FFH,NEXT MOV BAIWEI,00H MOV SHIWEI,00H MOV GEWEI,00HNEXT: CLR EA ?；謴?fù)0區(qū)工作寄存器 CLR RS1 SETB EA 。選擇3區(qū)工作寄存器 SETB RS1 LCALL RDDATA 。送閃爍定時中斷次數(shù) CLR EA 。狀態(tài)標(biāo)志清零 CLR ADDING CLR SUBING CLR LFTING CLR RGTING CLR ENTING CLR FLASH MOV R0,32H 。設(shè)置T0定時初值為50ms MOV TL0,58H SETB TR0 。開總中斷 MOV TMOD,11H 。允許T0中斷 SETB PT0 。允許INT0中斷 SETB IT0 。定時器0中斷入口地址 LJMP TT0 ORG 0030HMAIN: MOV SP,60H 。主程序入口地址 LJMP MAIN ORG 0003H 。主程序。個位地址。百位地址SHIWEI EQU 31H 。十六進(jìn)制數(shù)高位HEXL EQU 28H 。BCD碼高位BCDL EQU 25H 。十位數(shù)碼管地址LEDH EQU 9800H 。D/A芯片地址LEDL EQU 8800H 。確認(rèn)狀態(tài)標(biāo)志FLASH BIT 16H 。左移位狀態(tài)標(biāo)志RGTING BIT 14H 。加1狀態(tài)標(biāo)志SUBING BIT 12H 。寫入AT24C01的數(shù)據(jù)（1字節(jié)） SETING BIT 10H 。EEPROM時鐘線Address EQU 08H 。=============================SDA BIT 。=============================。數(shù)控直流恒流源主控程序。參考文獻(xiàn)［1］ 王幸之，鐘愛琴，王雷,王閃．AT89系列單片機原理與接口技術(shù)［M］．北京：北京航空航天大學(xué)出版社．2004,5［2］ 李剛民，曹巧媛，曹琳琳，陳忠平．單片機原理及實用技術(shù)［M］．北京：高等教育出版社．2005,4［3］ 張迎新．單片微型計算機原理應(yīng)用及接口技術(shù)［M］．北京：國防工業(yè)出版社．2004,1［4］ 孫傳友，孫曉斌，漢澤西，張欣．測控系統(tǒng)原理與設(shè)計［M］．北京：北京航空航天大學(xué)出版社．2002,9［5］ 汪道輝．單片機系統(tǒng)設(shè)計與實踐［M］．北京：電子工業(yè)出版社．2006,5［6］ 謝宜仁，謝煒，謝東辰．單片機實用技術(shù)問答［M］．北京：人民郵電出版社．2003,2［7］ 梅笙，李瑋．基于AT89C52的數(shù)控直流電流源設(shè)計［J］．常州工程職業(yè)技術(shù)學(xué)院學(xué)報，2006(1):2026［8］ 趙建玉，王新江，李聰．智能電流源的設(shè)計［J］．山東建材學(xué)