【正文】 MOV 37H，CAJMP D14D51： MOV C， ；萬位和標志位→荷重信號緩沖器 MOV 48H，C MOV C， MOV 4FH，C AJMP D14ND5： MOV A，R2 ；判斷是否讀出千位 JNB ,ND4 JNB 02H，D41 ；判斷是否采樣零信號 ANL A， 0FH ；千位→零信號緩沖器 SWAP A MOV 25H，AAJMP D14D41： ANL A，0FH SWAP A MOV 28H， A AJMP D14ND4： JNB ， ND3 ；判斷是否讀出百位 JNB 02H，D31 ；判斷是否采樣零信號 MOV R1， 25H ；百位→零信號緩沖器 ANL A，0FH XCHP A，@R1 AJMP D14D31： MOV R1， 28H ANL A，0FH XCHD A，@R1 AJMP D14ND3： JNB ， ND2 ；判斷是否讀出十位 JNB 02H， D21 ；判斷是否采樣信號 ANL A， 0FH ；十位→零信號緩沖器 SWAP A MOV 24H， A AJMP D14D21： ANL A， 0FH SWAP A MOV 24H，A AJMP D14ND2： JNB 02H，D11 ；判斷是否采樣零信號 ANL A，0FH ；個位→零信號緩沖器 MOV R，24H XCHD A，@R1 CLR 02H MOV DPTR，0DFF3H ；啟動A/D轉(zhuǎn)換 MOV A， 30H MOVX @DPTR， AADS1：SETB NOP NOP CLR AJMP D14 D11： ANL A，0FH MOV R1，27H XCHD A，@R1 MOV 2AH，24H ； 采樣數(shù)據(jù)送處理緩沖器 MOV 2BH，25H MOV 2CH，26HMOV 2DH，27HMOV 2EH，28H MOV 2FH，29H SETB 03H ；置一次A/D采樣結(jié)束標志D14： POP PSW ；恢復(fù)現(xiàn)場 POP DPL POP DPH POP ACCRETI4 定時器T0中斷程序PIT0： PUSH PSW ；保護現(xiàn)場 PUSH ACC PUSH DPH PUSH DPL JNB 00H， T01 ；允許采樣否？ DJNZ 10H， T02 ；采樣周期計數(shù)器減1，不為1轉(zhuǎn)T02 DJNZ 11H，T02 MOV 10H，0A0H ；恢復(fù)采樣周期計數(shù)器初值MOV 11H， 0FHSETB 0FHCLR 0DHCLR MOV DPTR， 0DFF3H ； 對零點采樣MOV A， 00H MOVX @DPTR， ASETB 04HSETB 04HT02： JB 01H， T05 T01 SETB NOP CLR T05：CLR DJNZ 16H， T06 ；調(diào)試用脈沖周期計數(shù)器減1CPL ；MOV 16H，17HT06： POP DPL ；恢復(fù)現(xiàn)場POP DPHPOP ACCPOP PSWERTI5數(shù)碼管顯示子程序 ORG 2000HSDIAPLAY：MOV A，20H ；20H中數(shù)送A ANL A，0F0H ；截取高4位 MOV P1，A ；送1MC14495 MOV A，20H ；20H中數(shù)送A SWAP A ；低4位送高4位 ANL A，0F0H ；去掉低4位 INC A ；A1A0指向2MC14495 MOV P1，A ；送2MC14495 MOV A，21H ；21H中數(shù)送A ANL A，0F0H ；截取高4位 ADD A，02H ；A1A0指向3MC14495 MOV P1，A ；送3MC14495 MOV A，21H ；21H中數(shù)送A SWAP A ；低4位送高4位 ANL A，0F0H ；去掉低4位 ADD A，03 ；A1A0指向4MC14495 MOV P1，A ；送4MC14495 RET END 6 步進電機控制程序ORG 2100H PUSH ACC ；保護現(xiàn)場 MOV R4，N ；步進馬達步進數(shù)送R4 CLR C ；Cy清零 ORL C， ；轉(zhuǎn)向標志狀態(tài)送Cy JC ROTE ；若為反轉(zhuǎn)，則轉(zhuǎn)ROTE MOV R0，20H ；正轉(zhuǎn)模型始址送R0 AJMP NEXT ； 轉(zhuǎn)入NEXT ROTE：MOV R0，27H ；反轉(zhuǎn)模型始址送R0 NEXT：MOV A，@R0 ；輸出控制模型的值 MOV P1，A ；輸出控制脈沖 ACALL DELAY ；延時（形成脈寬） INC R0 ；準備下個模型指針 MOV A，00H ；判斷送完一遍模型值 ORL A，@R0 JZ TPL ；若模型結(jié)束，則TPL LOOP：DJNZ R4，NEXT ；若步進數(shù)未走完，則NEXT POP ACC ；恢復(fù)現(xiàn)場 RET ：返回TPL：MOV A，R0 CLR C SUBB A，06H MOV R0，A ；恢復(fù)模型始址AJMP LOOP ；判斷步進馬達步數(shù)走完？ DELAY：MOV R2，M1 ；延時 DELAY1：MOV R2，M2 DELAY2：DEC A JNZ DELAY2 DJNZ R2，DELAY1 RET