.include hardware.inc
.EXTERNAL _Hour;
.EXTERNAL _Min;
.EXTERNAL _Sec;
.EXTERNAL _Day;
.EXTERNAL _Mon;
.EXTERNAL _Year;
.EXTERNAL _Funcflag;
.EXTERNAL _Worked;           //鍵值處理標(biāo)志
.EXTERNAL _Keydown;            //按鍵標(biāo)志
.EXTERNAL _Funcflag;         //進(jìn)位判斷標(biāo)志
.EXTERNAL _Keycode;         //鍵值保存標(biāo)量
.EXTERNAL _stopflag;          //半秒標(biāo)志位，1表示已經(jīng)有一次半秒響應(yīng)
.EXTERNAL _Flag;
.EXTERNAL _Function;

.PUBLIC _SystemInit
.code
_SystemInit:
     r1=0x07ff;           //IOB初始化
     [P_IOB_Dir]=r1;
     [P_IOB_Attrib]=r1;
     [P_IOB_Data]=r1;
     
     R1 = 0x000f;         //IOA初始化
     [P_IOA_Attrib] = R1;    
     [P_IOA_Dir] = R1;
     r1=0x00f0;
     [P_IOA_Data] = R1;
     
     int off 
     r1=0x0088;          //開IRQ5的2HZ.IRQ3的中斷
     [P_INT_Ctrl]=r1;
     IRQ ON;
     RETI;
.text     
.public _IRQ3

_IRQ3:
      push r1,r4 to [sp]
      
      r1 = 0x0100
      TEST r1,[P_INT_Ctrl];
      jnz _IRQ3_EXT1
      
      r2 = 0x0200
      TEST r1,[P_INT_Ctrl];
      jnz _IRQ3_EXT2

      r1=0x0080;     
      [P_INT_Clear]=r1;
      r1=1
      [_Keydown]=r1;
      POP R1,R4 FROM [SP];
      RETI;

_IRQ3_EXT1: 
 	  [P_INT_Clear]=r1;
     POP R1,R5 FROM [SP];
     reti;

_IRQ3_EXT2:
	[P_INT_Clear]=r1;
     POP R1,R5 FROM [SP];
     reti;

.PUBLIC _IRQ5
_IRQ5:
     PUSH R1,R5 TO [SP]     //現(xiàn)場保護(hù)
     
     R1=0x0001;              //清看門狗
     [P_Watchdog_Clear]=R1;
     
     R1=0x0004;              //屏蔽4HZ中斷
     TEST r1,[P_INT_Ctrl];
     JNZ L_IRQ5_2HZ;
     
L_IRQ5_4HZ:    
     R1=0x0008;               //清中斷
     [P_INT_Clear]=R1;
     R1=[_Flag];
     CMP R1,3
     JNE Half_Sec;
     R2=0;
     
     [_Flag]=R2;
     R1=[_Sec];
     R1+=1; 
     [_Sec]=r1
     call _Function
     POP R1,R5 FROM [SP];
     RETI; 
     
L_IRQ5_2HZ:
     [P_INT_Clear]=r1;
     POP R1,R5 FROM [SP];
     RETI;
       
Half_Sec:              //不滿1秒
     r1+=1; 
     [_Flag]=R1;
     r2=0
     [_Funcflag]=r2
     POP R1,R5 FROM [SP];
     RETI; 

.PUBLIC _Key_scan
.code
_Key_scan:
  
F_Key_Scan_A4: 
    r4=0x0000;  	    
    R2=0x000e;                        //掃描第一行
	[P_IOA_Data] = R2 ; 
	R1 = 0x00f0;    	   
    R1& =[P_IOA_Data];
	CMP R1,0x00f0;                    //是否該行有鍵按下
    JNZ   L_make_sure;  	        
F_Key_Scan_A5:
    R2=0x000d;                        //掃描第二行
	[P_IOA_Data] = R2;
	R1 = 0x00f0;	    	   
    R1& =[P_IOA_Data];
	CMP R1,0x00f0;                   //是否該行有鍵按下
    JNZ   L_make_sure;   
F_Key_Scan_A6:           
    R2=0x000b;                       //掃描第三行
	[P_IOA_Data] = R2;
	R1 = 0x00f0;	    	   
    R1& =[P_IOA_Data]; 
	CMP R1,0x00f0;                   //是否該行有鍵按下
    JNZ   L_make_sure;   
F_Key_Scan_A7:
	R2=0x0007;                       //掃描第四行
	[P_IOA_Data] = R2;
	R1 = 0x00f0;	    	   
    R1& =[P_IOA_Data];
	CMP R1,0x00f0;                  //是否該行有鍵按下
    JnZ  L_make_sure;
    RETF
    
L_make_sure:                          // 去抖
     r3=r1;
     [P_IOA_Data] = R2;
     R1 = 0x00f0;	    	   
     R1& =[P_IOA_Data];
     cmp r1,r3;
     jne F_Key_Scan_A4
    r4+=1;
     cmp r4,250;
    jne  L_make_sure;
     r4=0x0000; 
     r1=r1|r2 ;
     [_Keycode]=r1
     r1=0x00f0
     [P_IOA_Data]=r1
     r1=0
     [_Keydown]=r1
     RETF