智能台灯的单片机的设计

delight

源程序：       ORG  0000H     AJMP     MAIN     ORG  0003H     AJMP DET1          ;远探测器     ORG  0013H     AJMP DET0          ;近探测器 ORG  0050HMAIN:    MOV      P0,  #00000001B    ;置初始值DET0，DET1可重复触发，灯灭     MOV  TMOD,    #00000010B    ;方式2，8位自动重装计数器     MOV TCON,    #00010000B    ;开启计数器T0     MOV  IE,  #10000111B    ;开启所有中断     SJMP $;灯慢慢变亮DET1:    MOV  P0,  #00000001B     CALL TIME0              ;灯亮度延时10ms     MOV  P0,  #00000011B     CALL TIME0     MOV  P0,  #00000101B     CALL TIME0     MOV  P0,  #00000111B     CALL TIME0     MOV  P0,  #00001001B     CALL TIME0     MOV  P0,  #00001011B     CALL TIME0     MOV  P0,  #00001101B     CALL TIME0     MOV  P0,  #00001111B     CALL TIME1     RETI;灯慢慢熄灭DET0:    CALL TIME1              ;延时1分钟     MOV  TCON,    A     ANL  A,   #1     JZ   LOOP     MOV  P0,  #00001111B              CALL TIME0     MOV  P0,  #00001101B     CALL TIME0         MOV  P0,  #00001011B     CALL TIME0     MOV  P0,  #00001001B     CALL TIME0     MOV  P0,  #00000111B     CALL TIME0     MOV  P0,  #00000101B     CALL TIME0     MOV  P0,  #00000011B     CALL TIME0     MOV  P0,  #00000001B     RETILOOP:    ret;延时10msTIME0:   SETB TR0     MOV  R0,  #250     MOV  R1,  #20D_1: DJNZ R0,  D_1     MOV  R0,  #250     DJNZ R1,  D_1     CLR  TR0     RET;延时1分钟TIME1:   SETB TR0     MOV  R0,  #250     MOV  R1,  #200     MOV  R2,  #60D_2 :    DJNZ R0,  D_2     MOV  R1,  #200     DJNZ R1,  D_2     MOV  R2,  #60     DJNZ R2,  D_2     CLR  TR0     RET END

cc1586

整理一下再传嘛，乱了一点啦

popsy-52031

原帖由delight于2008-05-23 14:52发表:
源程序：       ORG  0000H     AJMP     MAIN     ORG  0003H     AJMP DET1          ;远探测器     ORG  0013H     AJMP DET0          ;近探测器 ORG  0050HMAIN:    MOV      P0,  #00000001B    ;置初始值DET0，DET1可重复触发，灯灭     MOV  TMOD,    #00000010B    ;方式2，8位自动重装计数器     MOV TCON,    #00010000B    ;开启计数器T0     MOV  IE,  #10000111B    ;开启所有中断     SJMP $;灯慢慢变亮DET1:    MOV  P0,  #00000001B     CALL TIME0              ;灯亮度延时10ms     MOV  P0,  #00000011B     CALL TIME0     MOV  P0,  #00000101B     CALL TIME0     MOV  P0,  #00000111B     CALL TIME0     MOV  P0,  #00001001B     CALL TIME0     MOV  P0,  #00001011B     CALL TIME0     MOV  P0,  #00001101B     CALL TIME0     MOV  P0,  #00001111B     CALL TIME1     RETI;灯慢慢熄灭DET0:    CALL TIME1              ;延时1分钟     MOV  TCON,    A     ANL  A,   #1     JZ   LOOP     MOV  P0,  #00001111B              CALL TIME0     MOV  P0,  #00001101B     CALL TIME0         MOV  P0,  #00001011B     CALL TIME0     MOV  P0,  #00001001B     CALL TIME0     MOV  P0,  #00000111B     CALL TIME0     MOV  P0,  #00000101B     CALL TIME0     MOV  P0,  #00000011B     CALL TIME0     MOV  P0,  #00000001B     RETILOOP:    ret;延时10msTIME0:   SETB TR0     MOV  R0,  #250     MOV  R1,  #20D_1: DJNZ R0,  D_1     MOV  R0,  #250     DJNZ R1,  D_1     CLR  TR0     RET;延时1分钟TIME1:   SETB TR0     MOV  R0,  #250     MOV  R1,  #200     MOV  R2,  #60D_2 :    DJNZ R0,  D_2     MOV  R1,  #200     DJNZ R1,  D_2     MOV  R2,  #60     DJNZ R2,  D_2     CLR  TR0     RET END

晕，看不下去啊

微笑哥哥

晕啊！

li197838

li197838