<<< 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