【文章內容簡介】 單元初值為1 START: ACALL DELAY ；調用延時程序 MOV P2,01H 。寫指令01H,清屏 LCALL ENABLE MOV P2,38H 。寫指令38H,設定LCD為16*2顯示，5*7點陣，8位數(shù)據接口 LCALL ENABLE MOV P2,0FH 。寫指令0FH,顯示ON,光標ON,閃爍ON LCALL ENABLE MOV P2,06H 。寫指令06H,光標輸入方式增量移位 LCALL ENABLE MOV P2,80H 。第一行起始字符地址 LCALL ENABLE MOV DPTR,TABLE 。顯示字符表頭地址 LCALL DISP 。顯示第一行數(shù)據 RET 。返回 ENABLE: CLR RS 。寫指令子程序 CLR RW CLR E LCALL DELAY SETB E RETDISP: MOV R4,6 。準備顯示一行6個字符LOOP1: MOV A,00H 。投幣數(shù)送A MOV R1,MONEY L1: ADD A,06H ；設置偏移量為6 DJNZ R1,L1 MOVC A,@A+DPTR 。查表取得要顯示的數(shù)據 LCALL DISPF 。寫入一個數(shù)據 INC DPTR 。數(shù)據表指針加1,準備取下一個數(shù)據 DJNZ R4,LOOP1 。一行沒有顯示完就繼續(xù) JMP INSERTDISPF: MOV P2,A 。寫1字節(jié)數(shù)據到顯示端口 SETB RS 。寫數(shù)據時序(請參照1602LCD使用說明書) CLR RW CLR E LCALL DELAY SETB E RETTABLE: DB 0 YUAN DB 0 YUAN DB 1 YUAN DB 2 YUAN DB 3 YUAN DB 4 YUAN DB 5 YUAN DB 6 YUAN DB 7 YUAN DB 8 YUAN DB 9 YUAN DB 10YUAN DB 11YUAN DB 12YUAN DB 13YUAN DB 14YUAN DB 15YUAN＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 投幣口程序 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊INSERT:MOV A,P3 。投幣口檢測 CPL A JBC ,S1 。P3口有鍵按下轉S1 LCALL KEY MOV A,R5 CJNE A,0FFH,CHECK 。貨物選擇鍵盤有鍵按下轉CHECK程序 AJMP INSERT S1: LCALL D10MS 。延時消抖 MOV A,P3 CPL A JBC ,S2 S2: MOV R1,MONEY INC R1 MOV MONEY,R1WAIT1: MOV A,P3 CPL A JBC ,WAIT1 投幣開關未松開繼續(xù)等待，否則返回START AJMP START ；返回＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 鍵盤程序 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊KEY: MOV A,P1 ；讀P1口 CPL A JNZ KEY2 。A不等零說明有鍵按下轉KEY2 MOV R5,0FFH RETKEY2: LCALL D10MS 。延時消抖 MOV A,P1 CPL A JNZ KEY3 MOV R5,0FFH RETKEY3: JNB ,K1 MOV R5,00H LCALL WAIT RETK1: JNB ,K2 MOV R5,01H LCALL WAIT RET K2: JNB ,K3 MOV R5,02H LCALL WAIT RET K3: JNB ,K4 MOV R5,03H LCALL WAIT RET K4: JNB ,K5 MOV R5,04H LCALL WAIT RET K5: JNB ,K6 MOV R5,05H LCALL WAIT RET K6: MOV R5,06H LCALL WAIT RETWAIT: MOV A,P1 CPL A JNZ WAIT RET＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 貨物選擇程序 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊CHECK: MOV A,R5 MOV R6,A MOV A,MONEY DEC A 。因為之前給MONEY的初值是1，所以計算投幣總數(shù)時應該減去1 MOV B,A ；將投幣總數(shù)送入B MOV A,R6 CJNE A,00H,NEXTB 。判斷是否按下鍵39。039。 LJMP TWOYUANNEXTB: CJNE A,01H,NEXTC 。判斷是否按下鍵39。139。 LJMP THREEYUANNEXTC: CJNE A,02H,NEXTD1 。判斷是否按下鍵39。239。 LJMP FOURYUANNEXTD1: MOV A,B 。按其他鍵時退幣 LCALL OUTMONEY JMP MAINTWOYUAN: MOV A,B 。將投入的貨幣累加數(shù)存入寄存器B CJNE A,02H,NEXTE1 。判斷投入的貨幣數(shù)是否為2元錢 MOV R0,01H 。選擇的貨物數(shù)為1個LOOPE1: LCALL KEY 。等待是否有鍵按下 MOV A,R5 CJNE A,0FFH,PRESS2 SJMP LOOPE1PRESS2: CJNE A,05H,NEXTE2 。按下確定鍵,所選貨物掉出 LCALL OUTGOODS JMP MAIN 。 返回,等待下一次投幣NEXTE2: CJNE A,06H,BACKE1 。按下取消鍵 MOV A,B 。退還全部的錢 LCALL OUTMONEY JMP MAIN 。 返回,等待下一次投幣BACKE1: JMP LOOPE1 。選擇其他鍵時返回，等到有鍵按下NEXTE1: JNC NEXTE3 。投入的貨幣數(shù)小于所選擇商品的預設價格 LCALL OUTMONEY 。錢全部退還 JMP MAIN 。 返回,等待下一次投幣NEXTE3: LCALL KEY 。等待是否有鍵按下 MOV A,R5 CJNE A,0FFH,PRESS3 SJMP NEXTE3 PRESS3: CJNE A,03H,NEXTE4 。選擇一次性購買2個貨物 MOV A,B CJNE A,04H,NEXTE5 。判斷投入的貨幣數(shù)是否為4元 MOV R0,02H 。將選擇的貨物數(shù)量值存入R0LOOPE2: LCALL KEY 。等待是否有鍵按下 MOV A,R5 CJNE A,0FFH,PRESS4 SJMP LOOPE2 PRESS4: CJNE A,05H,NEXTE6 。按下確定鍵,所選貨物掉出 LCALL OUTGOODS JMP MAIN 。 返回,等待下一次投幣NEXTE6: CJNE A,06H,BACKE2 MOV A,B 。退還全部的錢 LCALL OUTMONEY JMP MAIN 。 返回,等待下一次投幣BACKE2: JMP LOOPE2 。選擇其他鍵時返回,等到有鍵按下NEXTE5: JNC NEXTE7 。投入的貨幣數(shù)小于所選貨物的預設價格 LCALL OUTMONEY 。錢全部退還 JMP MAIN 。 返回,等待下一次投幣NEXTE7: LCALL KEY 。等待是否有鍵按下 MOV A,R5 CJNE A,0FFH,PRESS5 SJMP NEXTE7 PRESS5: CJNE A,05H,NEXTE8 。按下確定鍵,所選貨物掉出 MOV A,B SUBB A,04H MOV R0,02H 。將選擇的貨物數(shù)量值存入R0 LCALL OUTMONEY 。找錢 LCALL OUTGOODS 。所選貨物掉出 JMP MAIN 。 返回,等待下一次投幣NEXTE8: CJNE A,06H,BACKE3 MOV A,B 。退還全部的錢 LCALL OUTMONEY JMP MAIN 。 返回,等待下一次投幣BACKE3: JMP NEXTE7 。選擇其他鍵時返回，等到有鍵按NEXTE4: CJNE A,04H,NEXTE9 。選擇一次性購買3個貨物 MOV A,B CJNE A,06H,NEXTE10