*DECK GETDEK
          IDENT     GET$EK
          COMMENT   CRM SQ GET K/E BLOCK PROCESSOR
          LIST      C,F,X 
*#
*1CD  GET$KE
*0D   PURPOSE 
*0        PERFORM K AND E BLOCK-TYPE-DEPENDENT PROCESSING FOR GET$SQ
*0D   CALL
*0                  SB3       CIRCULAR-BUFFER-OUT-POINTER 
*                   EQ        GET$K 
*                   EQ        GET$E 
*0D   PARAMETERS
*0        A0        FIT ADDRESS.
*         B1        1.
*         B3        CIRCULAR BUFFER OUT POINTER.
*0D   ACTION
*0        BT=K                                                           PBTRSDO
*                IF THIS IS NOT THE BEGINNING OF A RECORD, BRANCH TO
*                *AMAC$SQ* IN *GET$SQ*. 
*                IF THIS IS THE BEGINNING OF A RECORD AND BLOCK, BRANCH  PBTRSDO
*                TO NEW-BLOCK PROCESSING UNDER BT=E; OTHERWISE DECREMENT PBTRSDO
*                REMAINING-RECORDS-IN-THIS-BLOCK COUNTER (KRN) AND       PBTRSDO
*                BRANCH TO THE NEW-RECORD PROCESSING UNDER BT=E.         PBTRSDO
*0        BT=E                                                           PBTRSDO
*                IF THIS IS NOT THE BEGINNING OF A RECORD BRANCH TO 
*                *AMAC$SQ* IN *GET$SQ*. 
*              NEW-RECORD PROCESSING.                                    PBTRSDO
*                NEXT, BRANCH TO *AMAC$SQ* IF THERE ARE AT LEAST *MNR*    PBTRSD
*                CHARACTERS IN THE BUFFER (10*(BLP-OUT)).                PBTRSDO
*              NEW-BLOCK PROCESSING.                                     PBTRSDO
*                IF NOT THE BEGINNING OF THE FILE AND IT IS THE FIRST    PBTRSDO
*                RECORD IN A BLOCK, SET THE GET ERROR NUMBER FIELD       PBTRSDO
*                (*GEN*) TO INDICATE INSUFFICIENT DATA AND BRANCH TO     PBTRSDO
*                *AMAC$SQ*.                                               PBTRSD
*                IF NOT A NEW BLOCK, RECALL THE FILE AND SET THE BLOCK   PBTRSDO
*                POINTER (BLP) TO THE CIRCULAR BUFFER IN POINTER.        PBTRSDO
*                INITIALIZE THE RUNNING K/E-BLOCK RECORD COUNTER (KRN)   PBTRSDO
*                TO RB-1.                                                PBTRSDO
*                SINCE K AND E BLOCKS ARE NOT SUPPORTED ON SCOPE DEVICES
*                INCREMENT *OUT* BY 1 TO GET PAST THE S/L CONTROL WORD. 
*                BRANCH TO *NWBL$SQ*.                                      PBTRS
*0D   REGISTERS USED
*0        A1,B235,X1237 
*0D   OTHER CODE
*0        PROGRAMS- GET$SQ
*         MACROS-   ON.RM,F.RM,SET.RM,RCL.RM
*#
          SST                                                            SEPT2
          B1=1                                                           SEPT2
 36B      IS.IN     0 
* CALL /GETDKE/               /GETDKE/ *COMDECK /GETDKE/
*CALL /GETDKE/                                                             SEPT2
* CALL /GETDKEC/               /GETDKEC/*COMDECK /GETDKEC/
*CALL /GETDKEC/                                                            SEPT2
          END                                                            V2TMP-B
