Google
 

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