基于單片機的生產(chǎn)線糖果計數(shù)與包裝控制-資料下載頁
2025-06-27 19:55本頁面
【正文】 JB ,ADD2 。等于個位所表示的最大數(shù)則轉(zhuǎn) RET 。返回主程序ADD2: CLR 。個位的進位清零 DEC R0 。顯示十位數(shù) MOV A, @R0 ADD A,01H 。十位加1 DA A 。BCD碼調(diào)整 JB ,ADD3 。不等于十位所表示的最大數(shù)則跳轉(zhuǎn) RET 。返回主程序ADD3: CLR 。十位的進位清零 DEC R0 。顯示百位數(shù) MOV A,@R0 ADD A,01H 。百位加1 DA A 。BCD碼調(diào)整 JB ,ADD4 。不等于百位所表示的最大數(shù)則轉(zhuǎn)移 RETADD4: CLR 。清百位進位 MOV R0,00H RET。產(chǎn)品數(shù)比較子程序：PORTCOMP: MOV R0,PARTS 。計數(shù)值地址 MOV R1,LED1 。百位數(shù)送R1 MOV R2,03H 。比較3次COMP1: MOV A,@R0 MOV BUFF,@R1 。保存給定值 CJNE A,BUFF,COMP2 。兩者不相同則跳轉(zhuǎn) INC R0 。產(chǎn)品數(shù)十位 INC R1 。給定值十位 DJNZ R2,COMP1 SETB 08H 。產(chǎn)品標志單元 RETCOMP3: CLR 08H 。清產(chǎn)品標志單元 RETCOMP2: JNC COMP3 。判斷有無進位標志 LJMP ALARM 。有進位則報警。產(chǎn)品加1子程序： BOXADD1: MOV R0,BOX3 MOV A,@R0 ADD A,01H 。包裝箱個位加1 DA A 。BCD碼調(diào)整 JB 3CH,ADD5 。不大于個位顯示最大值則跳轉(zhuǎn) RETADD5: CLR 14H DEC R0 。十位數(shù)加1 MOV A, @R0 ADD A,00H DA A 。BCD碼調(diào)整 JB 34H,ADD6 RETADD6: CLR 2CH 。清百位進位 DEC R0 。百位比較 MOV A,@R0 ADD A,00H DA A 。BCD碼調(diào)整 JB 2CH,ADD7 RETADD7: CLR 2CH 。清進位標志 MOV R0,00H RET。包裝箱數(shù)比較子程序：BOXCOMP: MOV R0,PARTS MOV R1,LED1 。百位數(shù)送R1 CJNE R2,03H,COMP4 。比較3次COMP4: MOV A,@R0 MOV BUFF,@R1 CJNE A,BUFF,COMP5 INC R0 。給定值十位數(shù) INC R1 。包裝箱十位數(shù) DJNZ R2,COMP4 SETB 09H 。包裝箱計數(shù)單元置1 RETCOMP6: CLR 09H 。清包裝箱計數(shù)單元 RETCOMP5: JNC COMP6 LJMP ALARM 。超過給定值，則報警。報警處理子程序：ALARM: SETB 02H 。報警標志單元置1 CLR 00H 。停電機1 CLR 01H 。停電機2 CLR 03H 。清正常運行標志單元 MOV A,20H 。將標志單元存入A中 MOV DPTR,7FF2H MOVX @DPTR,A 。將標志單元送入8255A的C口 LJMP MAIN。延時子程序：DELAY : MOV R7,02H 。延時1MS DL1: MOV R6,0FFH 。沒有則繼續(xù)延時 DL2: DJNZ R6,DL1 DJNZ R7,DELAY RET 。返回主程序E
法律信息相關(guān)推薦
鄂ICP備17016276號-1