;
;
;                    wrv_data.txt
;
;    
;
;
;  " "   
;
;    
;  
;       
;     max_ptrh:max_ptrl
;     
;
; 1.     data_key=1  
;     
;    
;         
;
; 2.     data_key=0
;     
;     max_ptrh:max_ptrl  
;        
; cnt_erwl
; cnt_erwh -   
; erad_0l
; erad_0h  -    
; erdt_0   -    
;
;   ZIF-  
; combus_7=combus_5=1 combas_3=0  
; combus_4  PAVR
; combus_4=1 
; combus_4=0 /
;
;;      PGX051
;   wrv_data.hex
;
;------------------------------------------------------------
;
;  "    "
;   #cmd_wrv_data (upgm_m0.txt)
;
;
 wrv_data:
     anl P1,#low ~(1<<combas_3)
     orl P1,#(1<<combus_5 || 1<<combus_7)
		      ;  combas_3=0, combus_5=combus_7=1 
		 clr arrey_end ;   arrey_end=0
		 mov dptr,#wr_dump ;    
     ELL_ON
     LLPRINT reinfo ;    
     setb data_key ;   data_key=1
     mov data_t,#cmd_wrv_data ;     R7
     acall pspi_txd ;  
     clr data_key ;  data_key=0
     acall pspi_rxd ;     
     jnb data_key,wrv_on
     ELL_OFF ;   -   
            ;  
     LLPRINT str4 ; "load maximum address of the
	             ; array ROM and repeat command"
    ajmp res_user ;       
 wrv_on:
      movx a,@dptr ;     ACC
			mov data_t,a ;   
			acall pspi_txd ;   
     mov a,max_ptrl ;      
     cjne a,DPL,work_str ;   max_ptrh:max_ptrl
     mov a,max_ptrh ;    pcnth:pcntl
     cjne a,DPH,work_str
     setb arrey_end ;   arrey_end=1
    LLPRINT irdms ;    
    acall pspi_rxd ;
    ajmp norm_end ; norm_end (purity.txt)
			;     
			;      
			;   () 
 work_str:
       inc dptr ;  +1
       sjmp wrv_on ;    
;