wencheng.dt

来自「emc单片机中断程序。主要是为了大家的方便」· DT 代码 · 共 85 行

           R1         EQU     0X01  
           R3         EQU     0X03
           R4         EQU     0X04   
           TIMES      EQU     0X2F
           ZANCUN1    EQU     0X2E
           ZANCUN2    EQU     0X2D
           ZANCUN3    EQU     0X2C
           ZANPAN     ==0X2A
           RF == 0X0F
           IOCF == 0X0F
                  
           ORG   0000
           JMP   MAIN
           ORG   0001
           JMP   ZD
     MAIN:   
           CALL   CSHUA
           CALL   ZDCSHUA
           BS    0x06,2     ;灯亮 
           ENI
     MAIN1:
           NOP
           JMP    MAIN1       
           
        ZD: DISI
            MOV 0X1F,A
            SWAPA 0X4
            MOV 0X3F-1,A
            SWAPA 0X3
            MOV 0X3E-1,A
            
            
            JBC   ZANPAN,0
            JMP   DADA1
            BS    0x06,2     ;灯亮
            BS    ZANPAN,0
            JMP   DADA2
            
     DADA1: BC    0X06,2     ;灯灭  
            BC    ZANPAN,0 
            
     DADA2: BC RF,0
            SWAPA 0X3E-1
            MOV 0X3,A
            SWAPA 0X3F-1
            MOV 0X4,A
            SWAP 0X1F
            SWAPA 0X1F 
            RETI
      
     CSHUA: 
           MOV       A,@00000000B        
	       IOW       5
           MOV       A,@11111000B
	       IOW       6
		   MOV       A,@11110010B
	       IOW       7 
           BC	     5,0	    ;灭音频
           BC	     5,1	    ;灭音频
           BC	     5,2	    ;灭音频
           BC	     5,3	    ;灭音频
           BC	     5,4	    ;灭音频
           BC        6,0		;灭音频电源
           BC	     6,1		;灭无线
		   BC	     6,2		;灭红灯
		   BC	     7,3		;灭红外2电源
           MOV       A,@0X00		  
		   MOV       ZANPAN,A
		  
		   RET
  
  
   ZDCSHUA:
            MOV     A,@1
            MOV     R1,A;给初值
            MOV     A,@00000001B  
            IOW     IOCF
            MOV     A,@00000001B    ;允许定时器中断 
            MOV     RF,A
            MOV     A,@00000111B
            CONTW
            RET
           
            EOP