EM78P447自收发光电检测程序

;***********************************************************************
;              自收发光电检测.dt
;***********************************************************************

PORT5    ==        0x05                ;定义端口5,6,7
 PORT6    ==        0x06
 PORT7    ==        0x07
;-----------------------------------------------------------------------
 IOCE     ==        0x0E                ;定义WDT控制寄存器IOCE
;-----------------------------------------------------------------------
 DLY1     ==        12                  ;定义延时置数单元DLY1，DLY2，DLY3,DLY4
 DLY2     ==        13
 DLY3     ==        14
 DLY4     ==        15         
 BUFFER   ==        16                  ;定义暂存器BUFFER，存放当前输出
;-----------------------------------------------------------------------
          ORG       0X00

INIT:    MOV       A,@0X11             ;关闭看门狗功能
          IOW       IOCE
          MOV       A,@0XFF             ;设定PORT5全部为输入
          IOW       PORT5               
          MOV       A,@0X00             ;设定PORT6、PORT7全部为输出
          IOW       PORT6               
          IOW       PORT7               
          MOV       A,@0XFF             ;设置暂存器BUFFER初值，
          MOV       BUFFER,A
          MOV       PORT7,A             ;PORT7输出指示LED全暗
          MOV       A,@0X00
          MOV       PORT6,A             ;PORT6输出低电平，熄灭光电发射管
    
 GDCHECK: MOV       A,@0XFF         ;PORT6输出高电平，点亮光电发射管
          MOV       PORT6,A
          CALL      DL10                ;发射时间维持5ms左右
          MOV       A,PORT5             ;从PORT5读入光电接收管状态
          AND       A,@0B00000111       ;屏蔽高5位，只保留3位
          XOR       A,@0XFF             ;光电接收管状态值反向
          MOV       BUFFER,A            ;送暂存器BUFFER保存
          MOV       A,@0X00             ;PORT6输出低电平，熄灭光电发射管
          MOV       PORT6,A

DISPLAY: MOV       A,BUFFER            ;发光二极管显示光电接收状态值
          MOV       PORT7,A
          CALL      DELAY               ;采样延时
          JMP       GDCHECK             ;继续进行自收发光电信号检测
;-----------------------------------------------------------------------
 DELAY:   MOV       A,@1                ;延时，需要调整
          MOV       DLY3,A              ;1
 DEL:     MOV       A,@10               ;1*(DLY3)
          MOV       DLY2,A              ;1*(DLY3)
 INNER2   MOV       A,@250              ;1*(DLY3)*(DLY2)
          MOV       DLY1,A              ;1*(DLY3)*(DLY2)
 INNER1:  DJZ       DLY1                ;1*(DLY3)*(DLY2)*(DLY1)
          JMP       INNER1              ;1*(DLY3)*(DLY2)*(DLY1)
          DJZ       DLY2                ;1*(DLY3)*(DLY2)
          JMP       INNER2              ;1*(DLY3)*(DLY2)
          DJZ       DLY3                ;1*(DLY3)
          JMP       DEL                 ;1*(DLY3)
          RET                           ;延时返回
;-----------------------------------------------------------------------
 DL10:    MOV       A,2                 ;延时5ms左右，需要调整
          MOV       DLY4,A
 INNER3:  DJZ       DLY4
          JMP       INNER3
          RET        
          EOP