【正文】 P2,A MOV P3,ACLEARMEM: MOV IE,00H SETB EX0 SETB EA RET主程序START: LCALL CLEARMEMIO LCALL LOOPMAIN: JB ,MAIN LCALL DLX CLR 24 LCALL DELAY SETB LJMP MAIN NOP NOP LJMP STAR INTEX0: CLR EX0 JNB ,READ1READOUTT0: SETB EX0 RET1READ1: 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 NOP25 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。延時 10msDL10MS: MOV R1,14HDL10MS1: LCALL DELAY DJNZ R1,DL10MS1RET。調(diào)光延時時間控制DLX: MOV R2,BDLX1: LCALL DELAY26 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,01H27 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 RETEND