*COMDECK MOVE 
          IDENT  MOVE 
          ENTRY  MOVE 
          SYSCOM B1 
          TITLE  MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS. 
          COMMENT MOVE BLOCK OF CENTRAL MEMORY WORDS. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 MOVE     SPACE  4,10 
***       MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS, DIRECT ADDRESSING. 
* 
*         CALL MOVE (COUNT,FROM,TO) 
* 
*         ENTRY  (COUNT) = COUNT OF WORDS TO MOVE.
*                (FROM) = FIRST WORD OF THE *FROM* BLOCK. 
*                (TO) = FIRST WORD OF THE *TO* BLOCK. 
* 
*         MOVE(COUNT,FROM,TO);  (*SYMPL* CALL)
* 
*         ENTRY  COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
*                       MOVE. 
*                FROM, AN ARRAY TO MOVE FROM. 
*                TO, AN ARRAY TO MOVE TO. 
* 
*         USES   X - 1, 2, 3. 
*                A - 1, 2, 3. 
*                B - 1. 
* 
*         MACROS MOVE.
  
  
 MOVE     SUBR               ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SA2    A1+B1       (X2) = FROM FWA
          SA3    A2+B1       (X3) = TO FWA
          SA1    X1          (X1) = COUNT 
          SX2    X2 
          SX3    X3          CLEAR UPPER BITS 
          SX1    X1 
          MOVE   X1,X2,X3    MOVE DATA
          EQ     MOVEX       RETURN 
  
          END 
