【正文】 LJMP KEY_4K5: MOV R3,DATA_KEY CJNE R3,49H,K6 LJMP KEY_5K6: MOV R3,DATA_KEY CJNE R3,4AH,K7 LJMP KEY_6K7: MOV R3,DATA_KEY CJNE R3,4BH,K8 LJMP KEY_7K8: MOV R3,DATA_KEY CJNE R3,50H,K9 LJMP KEY_8K9: MOV R3,DATA_KEY CJNE R3,51H,KA LJMP KEY_9KA: MOV R3,DATA_KEY CJNE R3,52H,KB LJMP KEY_OKKB: MOV R3,DATA_KEY CJNE R3,53H,KC LJMP FANHUIKC: MOV R3,DATA_KEY CJNE R3,58H,KD LJMP FANHUIKD: MOV R3,DATA_KEY CJNE R3,59H,KE LJMP FANHUIKE: MOV R3,DATA_KEY CJNE R3,5AH,KF LJMP FANHUIKF: MOV R3,DATA_KEY CJNE R3,5BH,FANHUI LJMP FANHUIFANHUI: MOV FANHUIBIAOZHI,99H POP ACC SETB EX0 RETI KEY_OK: MOV R1,3CH MOV R0,36H MOV R4,06HC1: MOV A,@R1 XRL A,@R0 。比較鍵盤輸入的密碼是否與設(shè)定密碼相同 JNZ C3 INC R0 INC R1 DJNZ R4,C1 JB ,ONLYKEY 。檢測引腳為高電平時代表或關(guān)系，直接開繼電器 MOV JIANCEJIAO,0FFH 。低電平時代表與關(guān)系，置檢測腳 LCALL DISPALY_INSERTCARD 。顯示請插入卡 。 JB ,$ 。否則運行檢測有無卡信號檢測并進(jìn)入對應(yīng)子程序 LJMP HY502BTG1 FANHUITT0: SETB CLR RI CLR TI MOV A,01H MOV SBUF,A POP ACC SETB EX0 RETI ONLYKEY: LCALL DISPLAY4 CLR MOV R5,150LOOPTIME1: MOV A,200 LCALL DELAY_MS DJNZ R5,LOOPTIME1 SETB MOV FANHUIBIAOZHI,99H MOV A,JIANCEJIAO CJNE A,0FFH,FANHUITT0 MOV JIANCEJIAO,00H SETB CLR RI CLR TI MOV A,31H MOV SBUF,A POP ACC SETB EX0 RETI C3: MOV JIANCEJIAO,00H MOV R3,6EORR: CLR 。密碼錯誤鳴音報警 MOV A,200 LCALL DELAY_MS SETB MOV A,200 LCALL DELAY_MS DJNZ R3,EORR LCALL DISPLAY3 MOV BUFF,99H MOV FANHUIBIAOZHI,99H POP ACC SETB EX0 RETI KEY_0: INC DPTR MOV @R1,00H LCALL DISPLAY2 POP ACC SETB EX0 RETI KEY_1: MOV @R1,01H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETI KEY_2: MOV @R1,02H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETI KEY_3: MOV @R1,03H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETI KEY_4: MOV @R1,04H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETIKEY_5: MOV @R1,05H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETI KEY_6: MOV @R1,06H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETIKEY_7: MOV @R1,07H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETIKEY_8: MOV @R1,08H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETIKEY_9: MOV @R1,09H LCALL DISPLAY2 INC DPTR POP ACC SETB EX0 RETI 。**********************************WRITE: PUSH ACC CLR EX0 CLR LOAD MOV R7,08HWRITE_1: RRC A CLR DCLK MOV DIN,C SETB DCLK DJNZ R7,WRITE_1 MOV A,B MOV R7,004HWRITE_2: RRC A CLR DCLK MOV DIN,C SETB DCLK DJNZ R7,WRITE_2 SETB LOAD SETB EX0 POP ACC RET。*********************************INTER: CLR LOAD 。命令開始MOV A,0F7H 。讀鍵值命令,忽略12位命令的低8位,高4位用作結(jié)束標(biāo)志INTER_4: SETB C 。在高位添0以檢測位數(shù)據(jù)結(jié)束 RRC A 。低位在前,高位在后 CLR DCLK MOV DIN,C 。送出一位數(shù)據(jù) SETB DCLK 。產(chǎn)生時鐘上升沿鎖通知CH451輸入位數(shù)據(jù) CJNE A,0FFH,INTER_4 。位數(shù)據(jù)未完繼續(xù),共4位,完成后為0FFH SETB LOAD 。產(chǎn)生加載上升沿通知CH451處理命令數(shù)據(jù) MOV A,0FCH 。該數(shù)據(jù)用以檢測位數(shù)據(jù)結(jié)束INTER_7: MOV C,DOUT 。讀入一位數(shù)據(jù) CLR DCLK 。產(chǎn)生時鐘下升沿通知CH451輸出下一位 RLC A 。數(shù)據(jù)移入ACC,高位在前,低位在后 SETB DCLK JC INTER_7 。位數(shù)據(jù)未完繼續(xù),共7位,完成后才移出0 MOV DATA_KEY,A 。保存鍵值 MOV R1,ZANCUN INC ZANCUN RET 。**********************************3射頻卡辨識部分程序：。****************************************************************射頻卡的子程序 WR_SPI:MOV R4,08H 。射頻卡發(fā)送一個字節(jié) WR_SPI1:CLR SCK RLC A 。A中高位到C MOV SI,C 。發(fā)送1位到SPI MOV SPI_ZANCUN1,A 。保存要發(fā)送的值到SPI_ZANCUN1 MOV A,SPI_ZANCUN2 。恢復(fù)接受數(shù)據(jù) MOV C,SO RLC A 。C值送入A的低位 MOV SPI_ZANCUN2,A 。保存接收的值到SPI_ZANCUN2 MOV A,SPI_ZANCUN1 SETB SCK NOP NOP DJNZ R4,WR_SPI1 RET 。A中數(shù)據(jù)發(fā)送完成，接收的數(shù)據(jù)存在SPI_ZANCUN2 CHK_SPI:CLR NSS 。檢測射頻卡狀態(tài) CLR 。開黃燈 準(zhǔn)備好后關(guān)黃燈 MOV A,0AAH LCALL WR_SPI 。向SPI發(fā)送0AAH命令 MOV A,0FFH LCALL WR_SPI 。向SPI發(fā)送0FFH命令 SETB NSS MOV SPI_ZHUANGTAI,SPI_ZANCUN2。讀狀態(tài) RET WRITE_SPI:CLR NSS 。寫射頻