MTES START
     LAD GR1,#0002
     LAD GR2,#0003
     CALL MMM
     RET
MMM  PUSH 0,GR3
     LD  GR3,GR1
     LAD  GR1,0
LP1  ADDL GR1,GR3
     SUBL GR2,=1
     JNZ LP1
     POP GR3
     RET
     END