Google
 

Trailing-Edge - PDP-10 Archives - tops20tools_v6_9-jan-86_dumper - tools/tvaxv2/tvlink.com
There are 7 other files named tvlink.com in the archive. Click here to see a list.
$ VERIFY = F$VERIFY(0)
$!
$! TVLINK.COM
$!	TVLINK.COM is the COM-file, to create TV.EXE, using the modules
$!	present in TV.OLB.
$!
$! Author: Jan Postmus, Digital SWS, Utrecht, The netherlands.
$!
$! Calling TVLINK.COM
$!	Normally TVLINK.COM is called from TV.COM, the main procedure
$!	to build TV. It can also be used individually, to perform
$!	the link step only.
$!	No parameters need to be specified, when TVLINK is called.
$!	Internal parameters are set-up in TV.COM
$!
$! Error-handling
$!	Depending whether this procedure is called from the main
$!	procedure, or run individually, the error is passed through.
$!	Using exit-code for individual. Error saved in error-code,
$!	and using exit-code = 101, in case step is called from
$!	main build procedure.
$!
$! Termination
$!	Using CTRL-Y, the procedure can be terminated by the user.
$!	This occurrence is reported by exit-code = 103, in case
$!	this step is called from the main procedure.
$!
$ ON CONTROL_Y THEN GOTO TVLINK_FATAL
$ SET NOON
$!
$ TVLINK_10:
$!
$! Test whether this file runs individually or from TV.COM.
$!
$ IF "''LST_PAR'" .NES. "" THEN GOTO TVLINK_20
$!
$! Running individually, set necessary parameters locally.
$!
$ TVLINK_IND = "Y"
$ LST_PAR = "LIST/CROSS"
$ MAP_PAR = "MAP/CROSS"
$!
$! Parameters are set-up.
$!
$ TVLINK_20:
$!
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT " ** Linkage of TV started."
$!
$ LINK /EXECUTABLE=TV /'MAP_PAR' TV/INCLUDE=TVMAIN/LIBRARY
$!
$ IF $STATUS THEN GOTO TVLINK_30
$!
$! Error detected during LINK-execution, save error-code.
$!
$ ERROR_CODE == $STATUS
$ GOTO TVLINK_ERROR
$!
$ TVLINK_30:
$!
$ WRITE SYS$OUTPUT " ** Linkage of TV finished."
$!
$ TVLINK_END:
$!
$! Normal (correct) end of procedure/step.
$!
$ EXIT_CODE = 1
$ GOTO TVLINK_LAST
$!
$ TVLINK_ERROR:
$!
$ EXIT_CODE = 101
$ IF "''TVLINK_IND'" .NES. "Y" THEN GOTO TVLINK_LAST
$!
$! Procedure/step is run individually, exit-code = error-code.
$!
$ EXIT_CODE = ERROR_CODE
$ DELETE /SYMBOL /GLOBAL ERROR_CODE
$ GOTO TVLINK_LAST
$!
$ TVLINK_FATAL:
$!
$! Procedure/step terminated by ^Y.
$!
$ EXIT_CODE = 103
$ GOTO TVLINK_LAST
$!
$ TVLINK_LAST:
$!
$! Restore verify-mode
$!
$ IF VERIFY .EQ. 1 THEN SET VERIFY
$!
$ EXIT EXIT_CODE