BPX1SPM (sigprocmask) example

The following code changes the signal mask to block signals 1 through 16. For the callable service, see sigprocmask (BPX1SPM, BPX4SPM) — Examine or change a process's signal mask. For the data structure, see BPXYSIGH — Signal constants. AMODE 64 callers use BPX4SPM (sigprocmask) example.
                                              
         LA    R15,=XL8'FFFF000000000000'  Block signals 1 thru 16      
         ST    R15,NEWMASKA          New mask address                   
         LA    R15,OLDMASK           Old signal mask                    
         ST    R15,OLDMASKA          Old mask address                   
         SPACE ,                                                        
         CALL  BPX1SPM,              Examine or change signal mask     +
               (=A(SIG_BLOCK#),      Input: How parameter BPXYSIGH     +
               NEWMASKA,             Input: 0, ->CL8                   +
               OLDMASKA,             Input: 0 | ->returned mask        +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------