*DECK CTLDPTL 
          IDENT     CTL$PTL 
          TITLE     CTL$PTL - GETP$RM AND PUTP$RM.
          COMMENT   CRM CONTROLLER - PARTIAL GET/PUT. 
          SST 
          B1=1
 GETP$RM  SPACE     4,8 
 GETP$RM  ENTRY$    ,,NOLOAD
          SX0       B5
          SET.RM    GPS,X0,7,1,718  SKIP (ALWAYS PRESENT) 
          SET.RM    PRD,1,7,1      PARTIAL
          SB5       =XRM$P4G       STORES DX,RL,WSA 
          F.RM      FOJG,B3,+=XRM$G1  EXIT PARAMS TO ROUTINE
          EQ        PARTIAL 
 PUTP$RM  SPACE     4,8 
 PUTP$RM  ENTRY$    ,,NOLOAD
          SX0       B5
          SET.RM    TRM,X0,7,1,717  TERM (ALWAYS PRESENT) 
          SET.RM    PPT,1,7,1      PARTIAL
          F.RM      FOJP,B3,+=XRM$P1  EXIT PARAMS TO ROUTINE
          SB5       =XRM$PAR4      STORES EX,RL,WSA 
  
 PARTIAL  ENTRY$    ,NOENTRY
          SA4       B6-B1          CALLING SEQ WORD 
          LX4       32             PTL BIT
          NG        X4,PAR.PTL     IF SPECIFIED 
          F.RM      PTL,X6         IF NOT, USE LAST PTL 
 PAR.PTL  SET.RM    RPTL,X6,7,1,716 
          SET.RM    PTL,0,7,1      PTL WILL COUNT UP TO RPTL
          F.RM      FP,B4          STORE RL IF AT START OF RECORD 
          LX4       1 
          ON.RM     FNF,=XRM$FAT
          JP        B5             RM$PAR4 OR RM$P4G
  
*     IF SKIP IS BAD ISSUE ERROR MESSAGE. 
*     (TERM TRIES TO STORE EX FIRST; SEE =XRM$EREX).
 BIG.718  SX6       717B
          EQ        =XERR$RM
          END 
