         PROC  &P,0                                                     EBD00010
EBDBAR   NAME                                                           EBD00020
*********************************************************************** EBD00030
*                                                                     * EBD00040
*                        BLOCK/DEBLOCK ROUTINE                        * EBD00050
*                                                                     * EBD00060
*********************************************************************** EBD00070
E2$RBDBX DC    F'0'                          SAVE AREA FOR R3           EBD00080
E2$RBDB  EQU   *                                                        EBD00090
         ST    R3,E2$RBDBX                   SAVE R3                    EBD00100
         SR    R12,R12                       CLEAR R12                  EBD00110
         SR    R3,R3                         CLEAR R3                   EBD00120
         MVC   E2$RBDB2,E2$RX4M2             BLOCK/DEBLOCK TO WORK      EBD00130
         AI    E2$RBDB1,X'01'                INCREMENT BLOCK/DEBLOCK    EBD00140
         MVC   E2$RX4M2,E2$RBDB2             RESET BLOCK/DEBLOCK        EBD00150
         NI    E2$RBDB2,X'03'                RESET OTHER BITS           EBD00160
         IC    R3,E2$RBDB2                   BLOCK/DEBLOCK TO R3        EBD00170
E2$RBDBL EQU   *                                                        EBD00180
         BCT   R3,E2$RBDBA                   DECREMENT R3 BY ONE        EBD00190
         A     R12,E2$RX4BF                  SAT BUFFER ADDRESS         EBD00200
         L     R3,E2$RBDBX                   RESET R3                   EBD00210
         BR    R3                            EXIT                       EBD00220
E2$RBDBA EQU   *                                                        EBD00230
         LA    R12,80(,R12)                  INCREMENT R12 BY 80        EBD00240
         B     E2$RBDBL                      TO TOP OF LOOP             EBD00250
E2$RBDB1 DC    XL1'00'                       BLOCK/DEBLOCK WORK 1       EBD00260
E2$RBDB2 DC    XL1'00'                       BLOCK/DEBLOCK WORK 2       EBD00270
         END                                                            EBD00280
