;     UC r,i=1;WH(r+=r+c/i%2,i+=i);RT r;
;---- Variable 'c' assigned to Register 'R7' ----
;---- Variable 'i' assigned to Register 'R6' ----

0000 7E01              MOV     R6,#01H
0002         ?C0028:
0002 EF                MOV     A,R7
0003 8EF0              MOV     B,R6
0005 84                DIV     AB
0006 5401              ANL     A,#01H
0008 2500        R     ADD     A,r
000A 2500        R     ADD     A,r
000C F500        R     MOV     r,A
000E EE                MOV     A,R6
000F 2E                ADD     A,R6
0010 FE                MOV     R6,A
0011 70EF              JNZ     ?C0028
0013 AF00        R     MOV     R7,r
0015 22                RET