;--------------------------------------------------------------------------
      .title error_handlers - misc error handling routines
;
; Routines:
;     ERROR_HANDLER 		-- to print messages, but suppress traceback
;                                  also called GENERIC_ERROR_HANDLER.
;     NULL_ERROR_HANDLER 	-- to suppress everything
; arguments:
;     p1 = sigargs vector	-- see manuals for details
;     p2 = mechargs vector
;

error_handler::
      .entry generic_error_handler, ^m<>
      clrl   -(sp)			; call sys$putmsg with the error
      clrl   -(sp)         		; vector we recieve.
      clrl   -(sp)
      pushal @4(ap)
      subl2  #2, @4(ap)
      calls  #4, g^sys$putmsg
      addl2  #2, @4(ap)
      movl   #1, r0
      ret

;---------------

      .entry null_error_handler, ^m<>
      movl #1, r0
      ret

;---------------
      .end