*DECK TXTMOV
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQTXT 
    PROC TXTMOV( (BUFFER),(TEXTFWA),TEXTLENGTH);
      BEGIN    # TXTMOV # 
# 
**    TXTMOV     GET TEXT FROM BUFFER TO ARRAY. 
* 
*     PROC TXTMOV( (BUFFER),(TEXTFWA),TEXTLENGTH) 
* 
*     ENTRY      BUFFER = POINTER TO TEXT BUFFER. 
*                TEXTFWA = POINTER TO ARRAY TO RECEIVE TEXT.
* 
*     EXIT       TEXTLENGTH = TEXT LENGTH IN CHARACTERS.
*                TEXT MOVED TO TEXTARRAY. 
* 
*     PROCESS    SEE ENTRY/EXIT.
# 
  
      ITEM BUFFER     U;           # POINTER TO TEXT BUFFER # 
      ITEM TEXTFWA    U;           # BASED ARRAY TO RECEIVE TEXT #
      ITEM TEXTLENGTH U;           # LENGTH OF TEXT IN CHARACTERS # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC MOVEI;                # MOVE WORDS # 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
  
  
        $BEGIN
        NAME("TXTMOV"); 
        $END
  
      P<TXTBUF> = BUFFER; 
      TEXTLENGTH = TXTBUF$USE;
      MOVEI( ( (TXTBUF$USE+9) / 10), LOC(TXTBUF$TXT), TEXTFWA); 
  
      END  # TXTMOV # 
    TERM
