*DECK GMOVAS
          IDENT  GMOVAS 
          TITLE  GMOVAS - MOVE AS IS PROCESSOR
          MACHINE  ANY,I
          SST 
          COMMENT  MOVE AS IS PROCESSOR 
          SPACE  4
**        GMOVAS - MOVE AS IS PROCESSOR 
* 
* MOVASIS LINK   CGMOVAS
*         REGB = DNAT POINTER TO SOURCE ITEM
*         REGC = DNAT POINTER TO DESTINATION ITEM 
* 
*         CALLZ  MOVASIS
* 
*         GENERATES CODE TO PERFORM THE INDICATED MOVE "AS IS"
*         I.E. AN ALPHANUMERIC MOVE 
          SPACE  4
*         COMDECKS
          EJECT 
 GMOVAS   MODULE
  
*         LINKAGE FROM CALLING ROUTINES IN OTHER MODULES
  
 MOVASIS  KNIL   CGMOVAS
  
*      LINKAGE TO CALLED ROUTINES IN OTHER MODULES
  
 MOVER    LINK   CGMOVE 
  
************************************************************************
*                                                                      *
*      MOVASIS - MOVE SOURCE "AS IS" TO RECEIVING FIELD.              * 
*                 SETS THE TYPE OF THE SOURCE TO GROUP AND CALLS GMOVE *
*                 TO GENERATE CODE TO DO THE MOVE                      *
*                                                                      *
************************************************************************
  
 MOVASIS  EGO    1
          NOTE   MOVASIS
          MOVEZ  (TYPEOF,REGB),T1 
          MOVEZ  GROUP,(TYPEOF,REGB)
          PUSH   T1 
          CALLZ  MOVER
          POP    T1 
          MOVEZ  T1,(TYPEOF,REGB) 
          RETURN
          END 
