;
;    hass1_r.txt  ;    
;
;		  1 
;
;
;
	hass_wan:
		ser zetec;   
		tst hass00
		brbc 1,pt00
		cbr zetec,1<<0
	 pt00:
		tst hass01
		brbc 1,pt01
		cbr zetec,1<<1
	 pt01:
		tst hass02
		brbc 1,pt02
		cbr zetec,1<<2
	 pt02:
		tst hass03
		brbc 1,pt03
		cbr zetec,1<<3
	 pt03:
		tst hass04
		brbc 1,pt04
		cbr zetec,1<<4
	 pt04:
		tst hass05
		brbc 1,pt05
		cbr zetec,1<<5
	 pt05:
		tst hass06
		brbc 1,pt06
		cbr zetec,1<<6
	 pt06:
		tst hass07
		brbc 1,pt07
		cbr zetec,1<<7
	 pt07:
		tst zetec
		brbc 1,pt08
		ser tmp_c
		mov hass00,tmp_c
		mov hass01,tmp_c
		mov hass02,tmp_c
		mov hass03,tmp_c
		mov hass04,tmp_c
		mov hass05,tmp_c
		mov hass06,tmp_c
		mov hass07,tmp_c
	pt08:
		clr tmp_d;  
		clr tmp_b
		mov tmp_c,hass07;  hass07  tmp_c
		and tmp_c,mashas;   
		sbrc hass07,0;  hass07,0=0, 
		mov tmp_d,mashas;    1
		eor tmp_c,tmp_d;     0
		brbs sreg_z,pt09
		ldi tmp_b,3
	pt09:
		ror tmp_b
		ror word_hs
		ror tmp_b
		ror hass00
		ror hass01
		ror hass02
		ror hass03
		ror hass04
		ror hass05
		ror hass06
		ror hass07
		ret
