.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)
      movzbl   (ap),r1     ; r1 has counter of # of args
loop: movl     (ap)[r1],r2 ; r2 has addr of an arg (in reverse order)
      pushl    (r2)        ; store arg on stack in reverse order
      sobgtr   r1,loop  ; decrement ptr and loop till no more left
;     pushl    (ap)     ; save arg count.
;     moval    (sp),r2
;     $putmsg_s   msgvec=(r2)
;     blbc     r0,baderr
      bicl2    #7,(sp)
      calls    (ap),lib$signal
      movzbl   #1,r0
      ret
;baderr:
;      $exit_s  code=#ss$_abort
      .end