There are 3 other files named errorm.mar in the archive. Click here to see a list.
.TITLE ERRORM Error message reporting tool
; This routine simplifies the reporting of errors
; by taking a single argument (the error number) and
; using $PUTMSG to deliver it to the user. No checking
; of any kind is done and the routine is re-entrant.
; Allocate the storage on the stack for the message
; vector. Since this will be a singularly stupid routine,
; the message vector will always be 8 bytes (flags=0,
; arg count=1, and message number as supplied).
SOBGTR R0,HAVEARGS ; FAO arguments supplied