MTES START
     LAD GR1,#0001
     LAD GR2,#FFFE
     CALL MMM
     RET
MMM  CPA GR2,=#0000
     JNZ NZERO
     LAD GR1,#0000
     RET
NZERO LD GR4,GR2
     AND GR4,=#8000
     JZE  MMM1
     LAD GR5,#0000 ;; GR2 is negative. Change the sign of GR2
     SUBA GR5,GR2
     LD GR2,GR5
     LAD GR5,#0000 ;; change the sign of a=GR1
     SUBA GR5,GR1 
     LD GR1,GR5
MMM1 LD  GR3,GR1   ; GR2 is positive
     LAD  GR1,0
LP1  ADDA GR1,GR3
     SUBL GR2,=1
     JNZ LP1
     RET
     END