*COMDECK CALLPP                                                              000120 
 CALLPP   DATA   0                                                      000130
 LOOP1    SA1    1           WAIT FOR RA+1 TO CLEAR                     000140
          NZ     X1,LOOP1                                               000150
          SA6    1                 PUT IN RA+1 REQUEST                  000160
          SA1    66B               CHECK FOR XJ                         000170
          PL     X1,NOXJ           JUMP IF XJ DOES NOT EXIST            000180
          XJ                       OR DO XJ                             000190
 NOXJ     SA1    1                 GET RA+1                             000200
          NZ     X1,NOXJ           WAIT FOR CLEAR                       000210
          EQ     CALLPP                                                 000220
