【正文】 調顯示子程序 LCALL DLAY1。 調延遲子程序，延遲1sK4: MOV DPTR,0DFFFH MOV 62H,75HH MOV A,62H MOVX @DPTR,A MOV 59H,0H MOV 5AH,3HK5: MOV DPTR,0DFFFH MOV 62H,2FH MOV A,62H MOVX @DPTR, A MOV 59H,0H MOV 5AH,7H LCALL DISPLAY。 調顯示子程序 LCALL DLAY1。 調延遲子程序，延遲1s ADC: MOV R1,52H。 置數(shù)據區(qū)首地址 MOV DPTR,0BFF8H。 =0,且指向通道0 MOV R7,02H。 置通道數(shù)LOOP: MOVX @DPTR,A。 啟動A/D轉換 MOV R6,0AH。 軟件延時，等待轉換結束DLAY: NOP NOP NOP DJNZ R6,DLAY MOVX A,@DPTR。 讀取轉換結果 MOV @R1,A。 轉儲 INC DPTR。 指向下一個通道 INC R1。 修改數(shù)據區(qū)指針 DJNZ R7,LOOP RETDISPLAY1: MOVX A,@R1。 讀A/D轉換數(shù)據 CALL ADC1。 將電流值變成BCD碼 CALL ADC2。 將電壓值變成BCD碼 MOV R1,05H RETDISPLAY: MOV R0,54H。 置緩沖器指針初值 MOV R3,01H MOV A,R3 LD0:MOV DPTR,7F01H。 掃描模式→8155 PA口 MOVX @DPTR,A INC DPTR MOV A,@R0。 取顯示數(shù)據 ADD A,0DH。 加偏移量 MOVC A,@A+PC。 查表取段數(shù)據DIR1: MOVX @DPTR,A。 段數(shù)據→8155 PB口 ACALL DL11。 延時1ms INC R0 MOV A,R3 ANL A,40H JZ LD1 MOV R3,A RL A MOV R3,A AJMP LD0LD1: RETDUAN: DB 3FH,06H,5BH,4FH,66H,6DH DB 7DH,07H,7FH,6FHDL11: MOV R7,02H。 延時子程序DL: MOV R6,0FFHDL6: DJNZ R6,DL6 DJNZ R7,DL RETADC1: MOV A,52H CALL BCD。 將A/D轉換數(shù)據變成BCD碼 RETBCD: MOV A, 52H。 電流值送A MOV B,10。 除以10 DIV AB MOV 55H, B。 個數(shù)位放在55中 MOV 54H,A。 十位數(shù)放在54H中ADC2: MOV A,53H CALL BCD2。 將電壓值轉換成BCD碼 RETBCD2: MOV A,53H。 電壓值送A MOV B,10。 除以10 DIV AB MOV 58H,B。 小數(shù)位放在58H MOV B,10。 除以10 DIV AB MOV 57H,B。 位數(shù)放在57H MOV 56H,A。 十位數(shù)放在56H RETDLAY1: MOV R3,0AH。 延遲1s子程序DLAY2: MOV R5,5AH LCALL DL11 DJNZ R5,DLAY2 DJNZ R3,DLAY1 INT0: MOV A,7F03H XRL A, 04H。 是否“OK”鍵按下？ JNZ UP。 不是則執(zhí)行“UP”子程序 MOV DPTR,0DFFFH。 是則DA地址送寄存器 MOV A,53H。 設定電壓值輸出 LOOP2: LCALL ADC。 調用ADC MOV A,53H SUBB A,14H。 當前電壓值是否小于涓流電壓值 JC K5。 是則執(zhí)行“K6”子程序 MOV A,53H SUBB A,1CH。 當前電壓值是否小于浮充電壓值 JC K7。 是則執(zhí)行“K7”子程序 MOV A,52H SUBB A,07H。 當前電流值是否小于7A JC INT0 LJMP MAIN LCALL DISPLAYUP: MOV A,7F03H。 置8155PC口地址 XRL A, 01H。 是否UP鍵按下 JZ DOWN。 不是則轉DOWN子程序 DEC 62H。 是則D/A輸出數(shù)字信號減一 INC 59HMOV A,59H。 PWM輸出個位數(shù)送ASUBB A,09H JC INT0 MOV A,59H MOV A,0H INC 5AH LCALL INT0DOWN: INC 62H DEC 59H MOV A,59H SUBB A,0EH JNC INT0 DEC 5AH MOV 59H,09H LCALL INT0K6: MOV A,52H SUBB A,06H。 當前電流值是否小于6A JC K6。 是則轉移 LJMP MAIN。 不是則返回主程序 K7: MOV A,52H SUBB A,32H。 當前電流值是否小于50H JC K7。 是則轉移 LJMP MAIN。 不是則返回主程序 LJMP L