*DECK MOVE
          IDENT  MOVE 
          TITLE  MOVE - MOVE WORDS. 
          ENTRY  MOVE 
          SYSCOM B1 
          SPACE  4,10 
**        MOVE - MOVE WORDS.
* 
*         MOVE(COUNT,LOC(FROM),LOC(TO) )
  
  
 MOVE     SUBR
          SB1    1
          SA2    A1+B1
          SA3    A2+B1
          SA1    X1          (X1) = COUNT 
          SA2    X2          (X2) = LOC(FROM) 
          SA3    X3          (X3) = LOC(TO) 
          MOVE   X1,X2,X3 
          EQ     MOVE        RETURN 
  
          END 
