【正文】 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 延時 513μ S DELAY: MOV R2,0FFH DELAY1: DJNZ R2,DELAY1 RET 10ms延時程序 DL10MS: MOV R3,14H DL10MS1: LCALL DELAY DJNZ R3,DL10MS1 RET 。 END 主程序和中斷程序入口 ORG 0000H LJMP START ORG 0003H LJMP INTEX0 36 ORG 000BH RETI ORG 0013H 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,A CLEARMEM: 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 ,READ1 READOUTT0: SETB EX0 RET1 。 READ1: CLR A MOV DPH,A MOV DPL,A HARD1: JB ,HARD11 37 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 。 FUN0: CPL LJMP READOUTTP FUN1: CPL LJMP READOUTTP FUN2: CPL LJMP READOUTTP FUN3: CPL LJMP READOUTTP 38 FUN4: CPL LJMP READOUTTP FUN5: CPL LJMP READOUTTP FUN6: CPL LJMP READOUTTP FUN7: CPL LJMP READOUTTP RET。 延時程序 DELAY: MOV R0,OFFH DELAY1: DJNZ R0,DELAY1 RET。 延時 10ms DL10MS: MOV R1,14H DL10MS1: LCALL DELAY DJNZ R1,DL10MS1 RET。 調(diào)光延時時間控制 DLX: MOV R2,B DLX1: LCALL DELAY DJNZZ R2,DLX1 RET。 調(diào)光控制程序 LOOP: MOV A,P1 SUBB A,0FFH JZ LOOP7 MOV A,P1 SUBB A,0FEH JZ LOOP6 39 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 LOOP0 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 40 RET LOOP1: MOV B,0CH RET LOOP0: MOV B,0DH RET 。 END