【正文】 KEYX2 EQU KEYX3 EQU KEYY EQU P0 主 程 序 和 中 斷 程 序 入 口 ORG 0000H ORG AJMP START ORG 0003H RETI ORG 000BH RETI ORG 0013H RETI ORG 001BH LJMP INTT1 ORG 0023H RETI ORG 002BH RETI 初 始 化 程 序 CLEARMEMIO: CLR A DEC A MOV P0,A MOV P1,A MOV P2,A MOV P3,A CLR CLEARMEM: MOV SP,70H MOV IE,00H MOV IP,01H MOV TMOD,22H MOV TH1,0F3H MOV TL1,0F3H SETB EA RET 主程序 START: LCALL CLEARMEMIO 。 T1 中斷服務(wù)程序 INTT1: CPL RET1 KEYWORK: MOV KEYY,0FFH CLR KEYX0 CLR KEYX1 CLR KEYX2 CLR KEYX3 MOV A,KEYY MOV B,A CJNE A,0FFH,KEYHIT KEYOUT: RET 。 KEYVAL0: MOV R2,00H LJMP KEYVAL4 。 KEYVAL2: MOV R2,10H LJMP KEYVAL4 。 KEYVAL4: MOV DPTR,KEYVALTAB MOV B,A CLR A MOV R0,A KEYVAL5: MOV A,R0 SUBB A,08H JNC KEYOUT MOV A,R0 MOVC A,A+DPTR INC R0 CJNE A,B,KEYVAL5 DEC R0 MOV A,R0 ADD A,R2 MOV B,A RL A ADD A,B MOV DPTR,KEYFUNTAB JMP A+DPTR KEYFUNTAB: LJMP KEYFUN00 LJMP KEYFUN01 LJMP KEYFUN02 LJMP KEYFUN03 LJMP KEYFUN04 LJMP KEYFUN05 LJMP KEYFUN06 LJMP KEYFUN07 KEYVALTAB DB 0FEH,0FDH,0FBH,0F7H,0EFH,ODFH,0BFH,7FH。 KEYFUN00: MOV A,02H LJMP REMOTE RET 。 KEYFUN02: MOV A,04H LJMP REMOTE RET 。 KEYFUN04: MOV A,06H LJMP REMOTE RET 。 KEYFUN06: MOV A,08H LJMP REMOTE RET 。 編碼發(fā)射程序 REMOTE: MOV R1,A LJMP OUT3 OUT: MOV R0,55H OUT1: SETB ET1 SETB TR1 NOP NOP NOP NOP NOP DJNZ R0,OUT1 MOV R0,32H OUT2: CLR TR1 CLR ET1 CLR NOP NOP NOP NOP NOP DJNZ R0,OUT2 DJNZ R1,OUT LCALL DL500MS RET OUT3: MOV R0,0FFH LJMP OUT1 延時(shí) 513μ S DELAY: MOV R2,0FFH DELAY1: DJNZ R2,DELAY1 RET 10ms 延時(shí)程序 DL10MS: MOV R3,14H DL10MS1: LCALL DELAY DJNZ R3,DL10MS1 RET 。 主程序 START: LCALL CLEARMEMIO LCALL LOOP 。 READ1: CLR A MOV DPH,A MOV DPL,A HARD1: JB ,HARD11 INC DPTR NOP NOP AJMP HARD1 HARD11: MOV A,DPH JZ READOUTT0 CLA A READ11: INC A READ12: JNB ,READ12 MOV R1,06H READ13: JNB ,READ13 DEC A DEC A JZ FUN0 DEC A JZ FUN1 DEC A JZ FUN2 DEC A JZ FUN3 DEC A JZ FUN4 DEC A JZ FUN5 DEC A JZ FUN6 DEC A JZ FUN7 NOP NOP LJMP READOUTT0 。 延時(shí)程序 DELAY: MOV R0,OFFH DELAY1: DJNZ R0,DELAY1 RET。 調(diào)光延時(shí)時(shí)間控制 DLX: MOV R2,B DLX1: LCALL DELAY DJNZZ R2,DLX1 RET。 LOOP7: MOV B,01H RET LOOP6: MOV B,02H RET LOOP5: MOV B,04H RET LOOP4: MOV B,06H RET LOOP3: MOV B,08H RET LOOP2: MOV B,0AH RET LOOP1: MOV B,0CH RET LOOP0: MOV B,0DH RET