BPX1SSU (sigsuspend) example

The following code replaces the invoker's current mask to block signals 1 through 16 and suspend until a signal is delivered. For the callable service, see sigsuspend (BPX1SSU, BPX4SSU) — Change the signal mask and suspend the thread until a signal is delivered. AMODE 64 callers use BPX4SSU (sigsuspend) example.
                                              
         MVC   WAITMASK(8),=XL8'FFFF000000000000'  Blocks 1 thru 16     
         SPACE ,                                                        
         CALL  BPX1SSU,              Wait for a signal                 +
               (WAITMASK,            Input: Wait mask, XL8             +
               RETVAL,               Return value: -1 or not returned  +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------