              <<< VAXAXP::NOTES$:[NOTES$LIBRARY]VMSNOTES.NOTE;1 >>>
               -< VAX and Alpha VMS - Digital Internal Use Only >-
================================================================================
Note 44.13   Alpha 4100 equivilant to 2100 memory error check in DCL    13 of 14
CSC64::BLAYLOCK "If at first you doubt,doubt again." 41 lines  15-JAN-1997 17:49
                         -< get it from memory maybe? >-
--------------------------------------------------------------------------------
        .title get_memerrs
;
; $ macro get_memerrs
; $ if f$getsyi("arch_name") .eqs. "VAX"
; $ then
; $     link get_memerrs + sys$system:sys.stb/selective
; $ else
; $     link /sysexe get_memerrs
; $ endif
;
        .psect  data, rd, wrt

symbol:
        .ascid  /EXE$GL_MEMERRS/
table_type:
        .long   2
ctrstr:
        .ascid  /!UL/
outbuf:
        .blkb   20
bufsiz = . - outbuf

outbufd:
        .word   bufsiz
        .word   0
        .address outbuf

        .psect  code, exe, rd, nowrt
        .entry  code, ^m<>
        movl    g^exe$gl_memerrs, r1
        $fao_s  ctrstr = ctrstr, -
                outlen = outbufd, -
                outbuf = outbufd, -
                p1 = r1
        blbc    r0, end
        pushab  table_type
        pushab  outbufd
        pushab  symbol
        calls   #3, g^lib$set_symbol
end:    ret
        .end    code
