ii equ r0      ;  ds 1
; //S-????????????, Aa-???????? 
  S equ r1       ;S+1 =r2
 Aa equ r3  
  

Cseg at 0  ;?????????? ??????? Code
//S=0; Aa=5,S=5, ii=0;
 Clr a
Mov r1,a        ;r1=S     
Mov ii,a        
Mov r2,04     ;r2=S+1
;S= (S&1)? (S+Aa)>>1 : S>>1;

cikl: 
    clr c
    mov a,r2   ;S+1   
    jnb ACC.0,  nula
    mov a,S
    add a,Aa
    mov S,a

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