【正文】 DELAY: MOV R2,0FFHDELAY1: DJNZ R2,DELAY1 RET10ms延時程序:DL10MS: MOV R3,14HDL10MS1:LCALL DELAY DJNZ R3,DL10MS1 RET END主程序和中斷程序入口:ORG 0000HLJMP STARTORG 0003HLJMP INTEX0ORG 000BHRETIORG 0013HRETIORG 001BHRETIORG 0023HRETIORG 002BHRETI初始化程序:CLEARMEMIO: CLR A DEC A MOV P0,A MOV P1,A MOV P2,A MOV P3,ACLEARMEM: MOV IE,00H SETB EX0 SETB EA RET。主程序:START: LCALL CLEARMEMIO LCALL LOOPMAIN: JB ,MAIN LCALL DLX CLR LCALL DELAY SETB LJMP MAIN NOP NOP LJMP STAR INTEX0: CLR EX0 JNB ,READ1READOUTT0: SETB EX0 RET1 READ1: CLR A MOV DPH,A MOV DPL,AHARD1: JB ,HARD11 INC DPTR NOP NOP AJMP HARD1HARD11: MOV A,DPH JZ READOUTT0 CLA AREAD11: INC AREAD12: JNB ,READ12 MOV R1,06HREAD13: 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 READOUTT0FUN0: CPL LJMP READOUTTPFUN1: CPL LJMP READOUTTPFUN2: CPL LJMP READOUTTPFUN3: CPL LJMP READOUTTPFUN4: CPL LJMP READOUTTPFUN5: CPL LJMP READOUTTPFUN6: CPL LJMP READOUTTPFUN7: CPL LJMP READOUTTPRET。延時程序:DELAY: MOV R0,OFFHDELAY1: DJNZ R0,DELAY1RET。延時10ms:DL10MS: MOV R1,14HDL10MS1: LCALL DELAY DJNZ R1,DL10MS1RET。調(diào)光延時時間控制:DLX: MOV R2,BDLX1: LCALL DELAY DJNZZ R2,DLX1RET。調(diào)光控制程序:LOOP: MOV A,P1 SUBB A,0FFH JZ LOOP7MOV A,P1 SUBB A,0FEH JZ LOOP6 MOV A,P1 SUBB A,0FDH JZ LOOP5 MOV A,P1 SUBB A,0FCH JZ LOOP4 MOV A,P1 SUBB A,0FBH JZ LOOP3 MOV A,P1 SUBB A,0FAH JZ LOOP2 MOV A,P1 SUBB A,0F9H JZ LOOP1 MOV A,P1 SUBB A,0F8H JZ LOOP0RET。LOOP7: MOV B,01H RETLOOP6: MOV B,02H RETLOOP5: MOV B,04H RETLOOP4: MOV B,06H RETLOOP3: MOV B,08H RETLOOP2: MOV B,0AH RETLOOP1: MOV B,0CH RETLOOP0: MOV B,0DH RET