【正文】 MAIN 。跳轉(zhuǎn)到主程序 ORG 0003H 。外部中斷0入口地址 SETB EA 。開中斷MAIN: MOU SP， 30H 。調(diào)試主程序 MOU 51H， 00H MOU 50H， 00H LCALL DL2 。延時 LCALL PRMKSDK: NOP ；判D子程序 LCALL KEY MOU DPTR，0BFFFH 。指向命令口 MOU A，90H 。寫顯示器命令 INC DPTR MOU A， 60H MOU DPTR， LIST MOUC A ， @A+DPTR 。查顯示段碼 CLR C CJNE A，44H，KEY 。判斷轉(zhuǎn)移是D則到D子程序非D則返回等待D ；為D子程序用來設(shè)置閾值SDYZ: MOU DPTR，0BFFFH 。指向命令口 MOU A，90H 。寫顯示器命令 MOU R0，50H 。緩沖器指針R0置初值 MOU R1，04H 。長度指針R1置初值 LCALL KEY LCALL SFSZK 。調(diào)用判斷是否為數(shù)字鍵子程序 SFSZK: INC DPTR MOU A， 60H MOU DPTR， LIST MOUC A ， @A+DPTR 。查顯示段碼 MOU 50H， A 。判斷是否為數(shù)字鍵按下 CLR C SUBB A， 30H JC NOSHU0 MOU A， 50H CLR C SUBB A， 3AH JNC NOSHU0 LCALL DIR0 RETDIR0: MOU DPTR， 0BFFFH 。指向命令口 MOU A ， 90H 。寫顯示RAM地址0，地址自動加1方式 INC DPTR MOU R1， 04H 。長度指針RL置初值 MOU R0， 50H 。50H為顯示緩沖區(qū)首地址DRL: MOU A ， @R0 。取顯示數(shù)據(jù) MOU DPTR， LIST MOUC A ， @A+DPTR 。查顯示數(shù) MOU @R0，A 。數(shù)送入顯示緩沖器 INC R0 。緩沖器指針R0加L DJNZ R1， DRL 。長度指針減1為0?不為0跳轉(zhuǎn) MOU A，10H 。鍵盤/顯示器工作方式(右端送入) MOUX @DPTR，A 。命令送入 MOU R0，50H 。指向緩沖器首址 MOU R1，04H 。長度指針置初值 MOU DPTR， 0BEFFH MOU A，@R0 MOUX @DPTR， A 。寫8279顯示RAM INC R0 NOP DJNZ R1，LOOP ；都顯示完了？ RET NOSHU0: CJNE 60H，46H，NOSHU1 LCALL SDYZ RETNOSHU1: CJNE 60H，41H，NOSHU2 ........NOSHU2: CJNE 60H，42H，NOSHU3 ........NOSHU3: CJNE 60H，43H，NOSHU4 ........NOSHU4: CJNE 60H，45H，....... LCALL PRMK 。8279初始化 RET KEY: MOU DPTR， 0BFFFH 。讀8279狀態(tài) MOUX A ， @DPTR ANL A， 07 JNZ KLD 。有鍵閉合時轉(zhuǎn)KDL LCALL PRMK 。8279初始化 RET KLD: MOU A，40H 。讀FIFO RAM命令 MOU DPTR，0BFFFH 。指向命令口地址 MOUX @DPTR，A 。命令送入 MOU DPTR，0BEFFH 。指向數(shù)據(jù)口 MOUX A，@DPTR 。讀入鍵值 ANL A ， 0FH MOU 60H ， A RET DL2: MOU R6， 200 。延時DL1: LCALL DL DJNZ R6， DL1 RETDL: MOU R7， 0FFH DJNZ R7， $ RET PMRK: MOU DPTR， 0BFFFH 。8279命令口 MOU A ， 00H 。模式字 MOUX @DPTR， A 。寫模式字 MOU A ， 34H 。34H為分頻數(shù)20 MOUX @DPTR， A 。CLK信號分頻 RETLIST: DB 30H，31H，32H，41H 。數(shù)據(jù)表 DB 33H，34H，35H，42H DB 36H，37H，38H，43H DB 45H，39H，46H，44HRETE BIT 。使能信號線RW BIT 。讀/寫信號線RS BIT 。數(shù)據(jù)/指令信號線CS1 BIT 。左半屏控制信號線。空間分配COM EQU 20H 。指令專用寄存器DAT EQU 21H 。數(shù)據(jù)專用寄存器CODES EQU 22H 。字在表格中的位置專用寄存器YE EQU 23H 。字所在的頁專用寄存器LIE EQU 24H 。字所在的列專用寄存器ALL_YE EQU 25H 。圖形的總頁數(shù)專用寄存器ALL_LIE EQU 26H 。圖形的總列數(shù)專用寄存器CS EQU 27H 。左右半屏控制專用寄存器，為0時在左半屏，為1時在右半屏HANG EQU 28H。ORG 1000HLCALL INITLCALL CLEARMOU CODES，0MOU YE，0MOU 27H，0MOU LIE，32LCALL WRITE_HANZIMOU YE，0MOU LIE，48MOU CODES，1LCALL WRITE_HANZIMOU 27H，1MOU YE，0MOU LIE，0MOU CODES，2LCALL WRITE_HANZI MOU YE，0MOU LIE，16MOU CODES，3LCALL WRITE_HANZIMOU 27H，0MOU YE，2MOU LIE，16MOU CODES，4LCALL WRITE_HANZIMOU YE，2MOU LIE，32MOU CODES，5LCALL WRITE_HANZIMOU YE，2MOU LIE，48MOU CODES，6LCALL WRITE_HANZIMOU 27H，1MOU YE，2MOU LIE，0MOU CODES，7LCALL WRITE_HANZIMOU YE，2MOU LIE，16MOU CODES，8LCALL WRITE_HANZIMOU YE，2MOU LIE，32MOU CODES，9LCALL WRITE_HANZIMOU 27H，0MOU YE，4MOU LIE，32MOU CODES，10LCALL WRITE_HANZIMOU YE，4MOU LIE，48MOU CODES，11LCALL WRITE_HANZIMOU 27H，1MOU YE，4MOU LIE，0MOU CODES，12LCALL WRITE_HANZIMOU YE，4MOU LIE，16MOU CODES，13LCALL WRITE_HANZID1:MOU COM，0C0HZHUAN:CLR CS1LCALL WRITE_COMSETB CS1LCALL WRITE_COMINC COMMOU A，COMLCALL DELAYCJNE A，0，ZHUANSJMP D1SJMP $WRITE_COM:LCALL BUSYCLR RSCLR RWMOU P0，COMSETB ECLR ERET。寫數(shù)據(jù)程序WRITE_DAT:LCALL BUSYSETB RSCLR RWMOU P0，DATSETB ECLR ERET。讀數(shù)據(jù)程序READ_DAT:LCALL BUSYSETB RSSETB RWMOU P0，0FFHSETB ECLR EMOU DAT，P0RET。判斷忙子程序BUSY:CLR RSSETB RWBUSY1:MOU P0，0FFHSETB EMOU A，P0CLR EJB ，BUSY1RET。寫一個16*16字子程序WRITE_HANZI:MOU A，27HCJNE A，0，C0SCLR CS1LJMP WH3C0S:SETB CS1WH3:MOU R1，2MOU DPTR，TAB1MOU A，CODESMOU B，32MUL ABADD A，DPLMOU DPL，AMOU A，BADDC A，DPHMOU DPH，AWH2:MOU R0，16MOU A，0B8HADD A，YEMOU COM，ALCALL WRITE_COMMOU A，40HADD A，LIEMOU COM，ALCALL WRITE_COMWH1:CLR AMOUC A，@A+DPTRMOU DAT，ALCALL WRITE_DATINC DPTRDJNZ R0，WH1INC YEDJNZ R1，WH2RETCLEAR:。左清屏SETB CS1MOU R2，2CLEAR3:MOU R3，0B8HMOU R0，8CLEAR2:MOU R1，64MOU COM，R3LCALL WRITE_COMMOU COM，40HLCALL WRITE_COMCLEAR1:MOU DAT，0LCALL WRITE_DATDJNZ R1，CLEAR1INC R3DJNZ R0，CLEAR2DJNZ R2，CLEAR0RETCLEAR0:CLR CS1。右清屏LJMP CLEAR3INIT:MOU COM，0C0H。設(shè)置起始行為第一行CLR CS1LCALL WRITE_COMSETB CS1LCALL WRITE_COMMOU COM，3FH。開屏CLR CS1LCALL WRITE_COMSETB CS1LCALL WRITE_COMRETDELAY: MOU R4，5 D