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