hw01.asm

试做的第一个红外发射器

ORG       0000H
LJMP      MAIN
ORG       0003H
LJMP      TIME0
ORG       000BH
LJMP      ST0
ORG       0013H
LJMP      TIME1
ORG       001BH
LJMP      ST10
ORG       0030H
MAIN: MOV   TMOD,#11H
      MOV   TH0,#0FFH
      MOV   TL0,#0E6H
      MOV   TH1,#0FFH
      MOV   TL1,#0F3H
      MOV   31H,#0
      MOV   41H,#0
      MOV   42H,#0
      MOV   43H,#0FFH
      MOV   51H,#0
      MOV   52H,#0
      MOV   54H,#0
      MOV   55H,#0
      MOV   P0,#0FFH
      MOV   P1,#0FFH
      MOV   P2,#0FFH
      MOV   P3,#0FFH
      SETB  IT0
      SETB  IT1
      SETB  ET0
      SETB  ET1
      SETB  EA
      SETB  EX0
      SETB  EX1
      SETB  TR0
      CLR   TR1
      CLR   EX0
      ;CLR   P1.0
      Mov 0A6H,#01EH ;先送1E
      Mov 0A6H,#0E1H ;后送E1

START0:
      Mov 0A6H,#01EH ;先送1E
      Mov 0A6H,#0E1H ;后送E1
     JB   P3.2,START1
     CLR P0.3
     AJMP START0
START1:
     SETB P0.3
     AJMP START0     
ST0:
    CLR  ET0
    CLR  TR0
    MOV  TH0,#0FFH
    MOV  TL0,#0E6H
    SETB ET0
    SETB TR0
    INC  31H
    MOV  R1,31H
    CJNE R1,#250,ST01
    MOV  31H,#0
    INC  41H
    MOV  R1,41H
    CJNE R1,#4,ST01
    MOV  41H,#0
    ;MOV  R1,43H
    ;CJNE R1,#0,ST0101
    JB   P3.2, ST0101
    INC  54H
ST0101:
    INC  52H
    MOV  R2,52H
    CJNE R2,#2,ST03
    MOV  R2,54H
    CJNE R2,#2,ST0106
ST0104:    
    CLR  P2.0
    AJMP ST0103    
ST0102:
    CJNE R2,#3,ST0105
    AJMP ST0104
ST0105:    
    CJNE R2,#4,ST0106    
    AJMP ST0104
ST0106:
    SETB P2.0
ST0103:
    MOV  52H,#0
    MOV  54H,#0        
    ;INC  42H
    ;MOV  R2,42H
    ;CJNE R2,#2,ST01
    ;MOV  42H,#0
ST03:
    CPL  P0.4    
ST01:    
    JB   P0.4,ST02
    CLR  P1.1
    CLR  P0.5
    RETI
ST02:    
    CPL  P1.1
    CPL  P0.5
    RETI

ST10:    
    CLR  TR1
    MOV  TH1,#0D1H
    MOV  TL1,#020H
    SETB TR1
    MOV  R2,43H
    CJNE R2,#0,ST1002
    INC  54H
ST1002:
    INC  52H
    MOV  R2,52H
    CJNE R2,#6,ST1008
    MOV  R2,54H
    CJNE R2,#2,ST1003
ST1007:
    CLR  P2.0
    AJMP ST1006
ST1003:
    CJNE R2,#3,ST1004
    AJMP ST1007
ST1004:
    CJNE R2,#4,ST1005
    AJMP ST1007
ST1005:
    SETB P2.0
ST1006:
    MOV  52H,#0
    MOV  54H,#0 
    MOV  51H,#0 
    RETI
ST1008:
    INC  51H      
ST1001:
    RETI

TIME0:    
    CPL  P0.7
    ;CLR  EX0
    ;MOV  A,43H
    ;CPL  A
    ;MOV  43H,A
EXIT1:
    ;SETB EX0
    RETI
    
TIME1:    
    CPL  P2.0
    RETI
    END