*COMDECK /GETDKEC/                                                            SE
 ENEW$SQ  BSS       0                                                    SEPT2
* FIND OUT IF THERE IS ENOUGH LEFT IN THE BLOCK TO BE A RECORD.          V2TMP-B
          ON.RM     PAE,=XAMAC$SQ                                        SEPT2
          F.RM      BLP,B2
          ZR        B2,=XAMAC$SQ   IF DONT KNOW WHERE END OF BLOCK IS 
          SB2       B2-B3          BLP-OUT
          PL        B2,RMENL
          F.RM      BFS,B2,+B2     ADD BFS IF NEEDED
 RMENL    BSS       0 
          SX7       B2
          LX7       3 
          SX2       B2
          IX1       X7+X2 
          IX2       X1+X2          *10
          F.RM      MNR 
          IX2       X1-X2          MNR-10*(BLP-B3)
          SX1       -10 
          IX2       X2-X1 
          NG        X2,=XAMAC$SQ   FREQUENT SHORT CUT 
        SB5      X2-10
          F.RM      EBC,B5,+B5
          F.RM      BCC,B5,+B5
          GT        B5,B0,NWBL$SQ 
          F.RM      MNR 
          NZ        X1,=XAMAC$SQ
          SB5       B5+B1 
          LT        B5,B0,=XAMAC$SQ 
*     IF REST OF BLOCK < MNR, SKIP OVER PADDING.                         V2TMP-B
 NWBL$SQ  BSS       0 
          F.RM      BL,B2 
          NZ        B2,NOTSTRT
          F.RM      BCC,X2
          NZ        X2,NOTSTRT
          F.RM      BLP,B3
          ZR        B3,ZBLP                                              V2TMP-B
          SET.RM    GEN,143B       FIRST RECORD IN BLOCK IS TOO SHORT 
          EQ        =XAMAC$SQ                                            SEPT2
          SPACE     1 
 NOTSTRT  F.RM      BLP,B3
          NZ        B3,NEWBLOCK 
 ZBLP     BSS       0                                                    V2TMP-B
          RCL.RM    A0,AUTO 
          F.RM      IN,B3 
          SET.RM    BLP,B3
 NEWBLOCK BSS       0 
          F.RM      BT,X2,-#ET# 
          ZR        X2,=XANBL$SQ   IF NOT BT=E
          F.RM      RB,X2,-1                                             V2TMP-B
          SET.RM    KRN,X2                                               V2TMP-B
          EQ        =XANBL$SQ                                            SEPT2
* END /GETDKEC/ 
