;; 9-mul2.txt,  oca 9-mul2.txt,  oce 9-mul2,  R (OpenCasl) /usr/share/doc/opencasl
MTES START
     LAD GR1,#0002
     LAD GR2,#000B
     CALL MMM2
     RET
MMM2 PUSH 0,GR3
     PUSH 0,GR4
     LAD GR4,8
     LD  GR3,GR1
     LAD GR1,0
LP1  PUSH 0,GR2
     AND GR2,=#0001
     JZE LP2
     ADDL GR1,GR3
LP2  POP  GR2
     SLL  GR3,1
     SRL  GR2,1
     SUBL GR4,=1
     JNZ  LP1
     POP GR4
     POP GR3
     RET
     END