【文章內(nèi)容簡介】 DEC R1 INC R7 DJNZ R6, L1 START: ORL P2, 0FFH MOV R4, 06 MOV R0, 36H CLEAR: MOV @R0, 00H INC R0 DJNZ R4, CLEAR L2: MOV R3, 0F7H MOV R1, 0 L3: MOV A, R3 MOV P1, A MOV A, P1 MOV R4, A CLR C CPL C MOV R5, 04H L4: RLC A JNC KEYIN INC R1 DJNZ R5, L4 CALL DISP MOV A, R3 CLR C CPL C RRC A MOV R3, A JC L3 JMP L2 鍵盤掃描與識別程序 KEYIN: MOV A, R1 XRL A, 0EH JZ X4 MOV A, R1 MOV A, 0FH JZ X3 MOV R7, 10 永城職業(yè)學(xué)院畢業(yè)論文 15 D1: MOV R6, 248 DJNZ R6, $ DJNZ R7, D1 D2: MOV A, P1 XRL A,R4 JZ D2 MOV A, R1 MOV DPTR, TABLE MOVC A, @A+DPTR MOV R7, A XRL A, 0AH JZ SET0 MOV A, R7 XRL A, 0BH JZ START MOV A, R7 XRL A, 0CH JZ L2 MOV A, R7 XRL A, 0DH JZ L2 MOV A, R7 XCH A, 36H XCH A, 37H XCH A, 38H XCH A, 39H XCH A, 3AH XCH A, 3BH CALL DISP JMP L2 X3: JMP DISP2 X4: JMP COMP 數(shù)碼顯示電路 DISP: MOV R0, 3BH DISP1: MOV A, @R0 ADD A, 50H MOV P0, A CALL DELAY DEC R0 MOV A, @R0 ADD A, 40H 永城職業(yè)學(xué)院畢業(yè)論文 16 MOV P0, A CALL DELAY DEC R0 MOV A, @R0 ADD A, 30H MOV P0, A CALL DELAY DEC R0 MOV A, @R0 ADD A, 20H MOV P0, A CALL DELAY DEC R0 MOV A, @R0 ADD A, 10H MOV P0, A CALL DELAY DEC R0 MOV A, @R0 ADD A, 00H MOV P0, A CALL DELAY RET DISP2: MOV R0, 35H CALL DISP1 MOV A, P1 XRL A,R4 JZ DISP2 CALL DELAY JMP START 掉電存儲子程序 O9346: SETB CS SETB DI SETB CLK CALL DELAY1 CLR CLK CALL DELAY2 MOV DPTR, JPTBL46 JMP @A+DPTR JPTBL46: AJMP SREAD AJMP SWRITE AJMP SEWEN 永城職業(yè)學(xué)院畢業(yè)論文 17 AJMP SEWDS SREAD: MOV A, ADR46 ADD A, 80H CALL SDT46 CALL RDT46 MOV 3CH, A CALL RDT46 MOV 3DH, A JMP EX9346 SWRITE: MOV A, ADR46 ADD A, 40H CALL SDT46 MOV A, 3CH CALL SDT46 MOV A, 3DH CALL SDT46 JMP EX9346 SEWEN: MOV A, 30H CALL SDT46 JMP EX9346 SEWDS: CLR A CALL SDT46 EX9346: CLR CS RET SDT46: MOV 22H, 8 SD1: RLC A MOV DI, C CALL DELAY1 CLR CLK CALL DELAY2 DJNZ 22H, SD1 RET RDT46: MOV 22H, 8 RD1: SETB CLK CALL DELAY1 CLR CLK CALL DELAY2 MOV C, DO RLC A DJNZ 22H, RD1 RET 永城職業(yè)學(xué)院畢業(yè)論文 18 設(shè)定密碼程序 SET0: MOV R2, 06H MOV RO, 36H MOV R1, 30H E1: MOV A, @R0 XCH A, @R1 INC R0 INC R1 DJNZ R2, E1 JB FLG0, E3 MOV ADR46, 00 MOV A, EWEN CALL TO9346 MOV 3CH, 01H MOV 3DH, 00H MOV A, WRITE CALL TO9346 MOV A, EWDS CALL TO9346 E3: MOV R0, 35H MOV ADR46, 01H MOV R2, 03 E4: MOV A, EWEN CALL TO9346 MOV 3CH, @R0 DEC R0 MOV 3DH, @R0 MOV A, WRITE CALL TO9346 MOV A, EWDS CALL TO9346 DEC R0 INC ADR46 DJNZ R2, E4 CALL DELAY E2: JMP START 密碼比較程序 COMP: MOV R1, 3BH MOV R0, 35H MOV R2, 06H 永城職業(yè)學(xué)院畢業(yè)論文 19 C1: MOV A, @R1 MOV A, @R0 JNZ C3 DEC R1 DEC R0 DJNZ R2, C1 MOV A, 0FEH MOV P2, A MOV R2, 200 C2: MOV R6, 248 DJNZ R6, $ DJNZ R2, C2 C3: JMP START 延時子程序 DELAY: MOV R7, 06 D3: MOV R6, 248 DJNZ R6, $ DJNZ R7, D3 RET DELAY1: MOV R7, 0FH DJNZ R7, $ RET DELAY2: MOV R7, 8FH DJNZ R7, $ RET 顯示子程序 TABLE: DB 01H, 02H, 03H, 0CH DB 04H, 05H, 06H, 0DH DB 07H, 08H, 09H, 0EH