.title   errmes
;
;     This routine prints the message associated with a given
;     error code.
;     It is an equivalent of the previous FORTRAN routine
;     of the same name. The advantage of this implimentation is
;     that it is re-entrant and hence callable from an AST.
;
      .list meb
errmes::
      .word    ^m<r2>
      clrl     -(sp)
      pushl    @4(ap)
      pushl    #1
      moval    (sp),r2
      $putmsg_s   msgvec=(r2)
      blbc     r0,baderr
      ret
baderr:
      $exit_s  code=#ss$_abort
      .end