PBUSY        V01L02                    1130 PLAN (1130-CX-25X) 08/30/71        *
// ASM                                                                  PBY00020
*XREF                                                                   PBY00040
*LIST                                                                   PBY00060
*MACLIB PMAC1                                                           PBY00080
                          ENT     PBUSY                                 PBY00100
                          DATE    PBUSY                                 PBY00120
                          HDNG    PBUSY - QUIESCE I/O                   PBY00140
                    *PLAN SYSTEM I/O SUBROUTINES                        PBY00160
                    PBUSY DC      *-*       ENTER                       PBY00180
                          MDX  L  MIO,0     TEST BUSY WORD FOR ZERO     PBY00200
                          MDX  X  -3        IF BUSY, GO TEST AGAIN      PBY00220
                          BSC  I  PBUSY     EXIT WHEN ALL I/O DONE      PBY00240
                    MIO   EQU     /32                                   PBY00260
                          END                                           PBY00280
// DUP                                                                  PBY00300
*DUMP       WS  CD  PBUSY                                               PBY00320
*DELETE             PBUSY                                               PBY00340
*STORE      WS  UA  PBUSY                                               PBY00360