*DECK GETDDT
          IDENT     GET$DT
          COMMENT   CRM SQ GET D AND T RECORD PROCESSOR 
          LIST      C,F,X 
*#
*1CD  GET$DT
*0D   PURPOSE 
*0        PERFORM RECORD-TYPE-DEPENDENT PROCESSING ON D-TYPE AND T-TYPE 
*         RECORDS FOR *GET$SQ*. 
*0D   CALL
*                   SB3       OUT 
*                   SX2       NUMBER-OF-AVAILABLE CHARACTERS
*           EITHER  EQ        =XGET$D   (WHEN RT=D) 
*               OR  EQ        =XGET$T   (WHEN RT=T) 
*0D   PARAMETERS
*0        A0        FIT ADDRESS.
*         B1        1.
*         B3        CIRCULAR BUFFER OUT POINTER.
*         X2        NUMBER OF CHARACTERS IN BUFFER. 
*0D   ACTION
*         SET UP PARAMETERS FOR *MOVE$RM* AND BRANCH THERE TO MOVE DATA 
*         FROM BUFFER TO USER WSA FOR *GET$SQ*.  UPON 
*         RETURN, CHECK TO SEE IF THE MINIMUM RECORD LENGTH (MNR) 
*         CHARACTERS WERE AVAILABLE. IF NOT, BRANCH TO THE ADDRESS
*         GTMR$SQ IN GET$SQ TO GET MORE CHARACTERS. 
*         WHEN *MNR* CHARACTERS ARE MOVED, THE BASE (MNR) PORTION OF
*         THE RECORD HAS BEEN MOVED AND IT IS TIME TO GET THE LENGTH
*         OF THE REST OF THE RECORD.
*0        NEXT FETCH THE RECORD LENGTH FIELD (RT=D) OR TRAILER COUNT
*         FIELD (RT=T) AND LENGTH OF TRAILER PORTION (RT=T) TO CALCULATE
*         RECORD LENGTH FOR *MOVE$RM* TO MOVE THE REMAINDER OF THE
*         RECORD.  AFTER CALCULATION, BRANCH TO *AMAC$SQ* TO PROCESS
*         THE REST OF THE RECORD.  A PORTION OF *GET$UF* WILL BE USED 
*         TO DO THE TRANSFER. 
*0        IF LESS THAN *MNR* CHARACTERS ARE IN THE RECORD, BRANCH TO
*         *ERR$RM* TO OUTPUT ERROR MESSAGE 167B (RL OUTSIDE MNR-MRL). 
*0D   REGISTERS USED
*0        A1345,B234567,X1234567
*0D   OTHER CODE
*0        PROGRAMS- GET$UF, GET$SQ, ERR$RM, MOVE$RM 
*         MACROS-   F.RM, SET.RM, INC.RM, ON.RM, OFF.RM, DEC.RM 
*#
          SST 
          B1=1
          ENTRY     GET$D,GET$T 
 BLANKS   DATA      10H 
 TENTH    CON       0.1P48+1
* CALL /GETDDT/               /GETDDT/ *COMDECK /GETDDT/
*CALL /GETDDT/
          END 
