Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_Alpha_31-jul-86
-
mtharg.mac
There are 7 other files named mtharg.mac in the archive. Click here to see a list.
SEARCH MTHPRM
TV MTHARG ARG LIST FOR USER TRAP CALLS, 2(4000)
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1983, 1986
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
COMMENT \
***** Begin Revision History *****
4000 JLC 1-Jul-83
New module for allowing user fixups for library warnings.
Note: The presence of this module does not imply that
the $LERR calls have been modified to implement
user fixups!
***** End Revision History *****
\
ENTRY %LARGL,%LECN,%LPC,%LIEN,%LERTP,%LUFXD,%LFIXD
SEGMENT CODE
-%LAEND+%LARGL,,0
%LARGL: IFIW TP%INT,%LECN
IFIW TP%INT,%LPC
IFIW TP%INT,%LIEN
IFIW TP%INT,%LERTP
IFIW TP%UDF,%LUFXD
IFIW TP%UDF,%LFIXD
%LAEND=.
SEGMENT DATA
%LECN: BLOCK 1 ;ERROR CLASS NUMBER
%LPC: BLOCK 1 ;PC
%LIEN: BLOCK 1 ;INDIVIDUAL ERROR NUMBER
%LERTP: BLOCK 1 ;TYPE CODE FOR RESULT
%LUFXD: BLOCK 4 ;UNFIXED RESULT
%LFIXD: BLOCK 4 ;FIXED-UP RESULT
END