*DECK GETDW 
          IDENT     GET$W 
          COMMENT   CRM SQ GET W-RECORD PROCESSOR 
          LIST      C,F,X 
*#
*1CD  GET$W 
*0D   PURPOSE 
*0        PERFORM RECORD-TYPE-DEPENDENT PROCESSING ON W-TYPE RECORDS
*         FOR GET$SQ
*0D   CALL
*                   SB3       OUT 
*                   SX2       NUMBER-OF-AVAILABLE-CHARACTERS
*                   EQ        =XGET$W 
*0D   PARAMETERS
*         A0        FIT ADDRESS.
*         B1        1.
*         B3        CIRCULAR BUFFER OUT POINTER.
*         X2        NUMBER OF CHARACTERS IN BUFFER. 
*0D   ACTION
*0        IF THE CURRENT RECORD DOES NOT END ON A WORD BOUNDARY,
*         DECREMENT AVAILABLE CHARACTERS BY REMAINING CHARACTERS (BCC). 
*         IF AVAILABLE CHARACTERS IS NOW ZERO, GO GET MORE DATA AND 
*         RETURN TO THIS POINT IN *GET$SQ*. 
*         NEXT, PROCESS THE W-CONTROL WORD.  BRANCH TO *DXIT$SQ* (ENTRY 
*         POINT IN *GET$SQ*) TO PROCESS USER END-OF-DATA EXIT IF CONTROL
*         WORD INDICATES END-OF-SECTION OR END-OF-PARTITION.
*         IF THIS IS A DELETED RECORD, GO GET MORE DATA AND THEN RETURN 
*         TO *GET$W*. 
*         CALCULATE RECORD LENGTH (RRL) FROM W-CONTROL WORD AND STORE IN
*         FIT. IF THE RECORD LENGTH IS ZERO AND THIS RECORD IS NOT A
*         W-CONTINUATION PIECE (*CRF* = 0), RETURN TO *GXIT$SQ* (THE
*         EXIT-FROM-*GET$SQ* PART OF *GET$SQ*). IF THE RECORD LENGTH IS 
*         ZERO AND THIS IS A PIECE OF A W-CONTINUATION RECORD 
*         (CRF* " 0), BRANCH TO *AMAC$SQ* (IN *GET$SQ*) TO PROCESS THE
*         NEXT PIECE OF THE RECORD.  OTHERWISE, BRANCH TO *RMU$SQ*
*         (ENTRY POINT IN *GET$UF*) AFTER GETTING MORE DATA (IF AVAIL-
*         ABLE CHARACTERS IS ZERO). 
*0D   REGISTERS USED
*0        A3,B356,X123467 
*0D   OTHER CODE
*0        PROGRAMS- GET$UF,GET$SQ,ERR$RM
*         MACROS-   F.RM,SET.RM,ON.RM,INC.RM
*#
          SST 
          B1=1
* CALL /GETDW/
*CALL /GETDW/ 
          END 
