BPX4SPB (queue_interrupt) example

The following code uses the queue_interrupt to return the last signal delivered to the signal interface routine (SIR). For the callable service, see queue_interrupt (BPX1SPB, BPX4SPB) — Return the last interrupt delivered. AMODE 31 callers use BPX1SPB (queue_interrupt) example.
                                              
         CALL  BPX4SPB,              Queue the signal                  +
               (RETVAL,              Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------