.TITLE   lcmemm
;
;     being an emulation of the LCM routines on the 7600.
;
lcmrd::  .WORD  ^m<r2,r3,r4,r5>
      ashl  #2,@12(ap),r0
      ashl  #2,@4(ap),r1
      movc3 r0,(r1),@8(ap)
      ret
lcmwt::  .WORD ^m<r2,r3,r4,r5>
      ashl  #2,@12(ap),r0
      ashl  #2,@4(ap),r1
      movc3 r0,@8(ap),(r1)
      ret
      .END