【正文】 RETI ORG 001BH RETI ORG 0023H RETI ORG 002BH RETI初始化程序: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 LOOP。MAIN: 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 READOUTT0。FUN0: 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 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。END32