Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	TITLE	VETXXX
;
;This is the VET-ROUTINE entry point and must reflect the real name
;of the VET-ROUTINE - i.e. the 'XXX' must be replaced by a 3 digit
;number, e.g. VET011.
;
	ENTRY	VETXXX
	SEARCH	TFRCAL
VETXXX:
;
;The arguments are pointed to by AC16 which contains the address
;of the argument block. The format of this block is as follows,
;offsets are defined in TFRCAL.
;
;	+----------------------------------+
;	|  Pointer to user data            |	V.DATA
;	+----------------------------------+
;	|  Error code                      |	V.ERCD
;	+----------------------------------+
;	|  Pointer to error message        |	V.ERMS
;	+----------------------------------+
;	|  Pointer to field name           |	V.FNAM
;	+----------------------------------+
;
;
;To obtain a byte pointer to the user data, error message, or
;field name, use the following method,
;
	MOVEI	1,@V.DATA(16)		;POINT TO USER DATA
	HRLI	1,(POINT 7,0)
;
;The error code may be on of the following values. These are defined
;in TFRCAL.
;
;	VE.RWT =  1	Rewrite the field on the screen
;	VE.AOK =  0	Normal return
;	VE.RWM = -1	Rewrite field and issue message
;	VE.MSG = -2	Issue message only
;	VE.RRD = -3	Issue message and reread field
;	VE.EXT = -4	Issue message and force exit (end ind = 8)
;
;The error code may be set by the following method.
;
	HRROI	1,VE.MSG		;SET THE ERROR STATUS
	MOVEM	1,@V.ERCD(16)
;
;
;
	POPJ	17,

	END