*DECK NS$CAT
          IDENT  NS$CAT 
          ENTRY  NS$CAT 
          TITLE  CATLIST CALL TO GET USER CATALOG 
 NS$CAT   BSSZ   1
          SB1    1                 SET IN=OUT=FIRST 
          SA2    X1+B1
          MX0    42 
          BX7    -X0*X2 
          SA7    A2+B1
          SA7    A7+B1
 
          CATLIST X1
          EQ     NS$CAT 
          END