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