Dseg at 0    ;?????????? ??????? ??????
  S: ds 2
 Aa: ds 1  
Bb: ds 1
  ii equ r1            
Cseg at 0  ;?????????? ??????? Code
//S=0; Aa=5,S=5, ii=0;
 Clr a
Mov S,a  
Mov ii,a  ;r0
Mov S+1,Bb  
;S= (S&1)? (S+Aa)>>1 : S>>1;
cikl: 
      ; (S&1)?
    clr c
    mov a,S+1    
    jb  ACC.0,  nula
    ; (S+Aa)
     mov a,S
     add a,Aa
     mov S,a

  nula:    ;S>>1
     mov a,S
     rrc a
     mov S,a  
     mov a,S+1 
     rrc a
     mov S+1,a
 ; for(i=0;i<8;i++)
    Inc ii  
    Mov a,ii    
	cjne ii,#8,cikl
    Nop
  End