Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/tvaxv2/tvmain.lis
There are 3 other files named tvmain.lis in the archive. Click here to see a list.
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   1
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                     0000     1 	.TITLE	TVMAIN - TV MAIN PROGRAM
                                     0000     2 ; 25-Mar-82
                                     0000     3 ;	Enhancements:
                                     0000     4 ;		1.	:K command.
                                     0000     5 ;		2.	[n];T command, to translate, either n lines,
                                     0000     6 ;			or whole buffer from lower to uppercase.
                                     0000     7 ;
                                     0000     8 ;	Corrections:
                                     0000     9 ;		1.	Displaying a line, with a length of exactly 80
                                     0000    10 ;			positions, caused sending wrong information
                                     0000    11 ;			to the screen.
                                     0000    12 ;
                                     0000    13 ; 29-Mar-82
                                     0000    14 ;	Corrections:
                                     0000    15 ;		1.	;T is now ;Z.
                                     0000    16 ;		2.	Inserting of a string in one of the Q-registers,
                                     0000    17 ;			interferes into the contents of the other Q-regs.
                                     0000    18 ;
                                     0000    19 ; 1-Apr-82
                                     0000    20 ;	Corrections:
                                     0000    21 ;		1.	@I/XXX/ did not work.
                                     0000    22 ;
                                     0000    23 ; 4-May-82
                                     0000    24 ;	Corrections:
                                     0000    25 ;		1.	While reading input file, don't delete
                                     0000    26 ;			"pagemark/formfeed".
                                     0000    27 ;		2.	Displaying a line of 80 characters, with pointer at
                                     0000    28 ;			end of line, caused errors on screen.
                                     0000    29 ;		3.	Explicit error-messages, when backup file cannot
                                     0000    30 ;			be opened.
                                     0000    31 ;		4.	Initialisation end file buffer.
                                     0000    32 ;
                                     0000    33 ; 3-Jun-82
                                     0000    34 ;	Correction:
                                     0000    35 ;		1.	If "HOLE" is located at end of buffer, it is brought
                                     0000    36 ;			back to 8k, to prevent it from growing too large.
                                     0000    37 ;
                                     0000    38 ; 28-Oct-82
                                     0000    39 ;	Corrections:
                                     0000    40 ;		1.	Initial ;Y of non-existing file, followed by <ESC>,
                                     0000    41 ;			caused dump.
                                     0000    42 ;		2.	;Y with existing buffer, caused display 1 line
                                     0000    43 ;			too high, sometimes.
                                     0000    44 ;		3.	% command sometimes resulted in a dump.
                                     0000    45 ;		4.	n,mX wanted <ESC>, prior to next command.
                                     0000    46 ;
                                     0000    47 ;	Improvements:
                                     0000    48 ;		1.	@S and @R, improved error-messages, if no search
                                     0000    49 ;			argument is specified.
                                     0000    50 ;		2.	S and R commands use, either exact match (default),
                                     0000    51 ;			or upper and lower case match (after ^X).
                                     0000    52 ;		3.	With file-name commands after <ESC>, any character
                                     0000    53 ;			can be specified, only action with ^G or <CR>.
                                     0000    54 ;
                                     0000    55 ; 1-Nov-82
                                     0000    56 ;	Improvements:
                                     0000    57 ;		1.	Calls for OAP statistics.
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   2
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                     0000    58 ;		2.	Better possibilities when running under terminal
                                     0000    59 ;			control, command processor and batch.
                                     0000    60 ;		3.	If input not from terminal, end of command is not seen
                                     0000    61 ;			as end of record, but scanning till 2 * <ESC> will
                                     0000    62 ;			be performed.
                                     0000    63 ;		4.	If running under batch:
                                     0000    64 ;				- no screen output
                                     0000    65 ;				- logging from input
                                     0000    66 ;				- logging of output errors
                                     0000    67 ;		5.	If writing to output file is not correct, the
                                     0000    68 ;			incomplete version will be deleted by TV.
                                     0000    69 ;
                                     0000    70 ; 9-Nov-82
                                     0000    71 ;	Corrections:
                                     0000    72 ;		1.	Initial ;Y command, was written to TVBACK-file
                                     0000    73 ;			without <ESC> <ESC>.
                                     0000    74 ;
                                     0000    75 ; 29-Nov-82
                                     0000    76 ;	Enhancements:
                                     0000    77 ;		1.	;P command.
                                     0000    78 ;		2.	. (octal) values for TV input commands.
                                     0000    79 ;		3.	Don't build screen again with ;X, ;U and ;S.
                                     0000    80 ;		4.	Q-registers can be specified, using lowercase.
                                     0000    81 ;		5.	Don't generate output to screen, if input from
                                     0000    82 ;			command processor.
                                     0000    83 ;
                                     0000    84 ; 23-Dec-82
                                     0000    85 ;	Corrections:
                                     0000    86 ;		1.	;E and input from a file conflicts.
                                     0000    87 ;		2.	0 or -* executing of <>, does not work correctly
                                     0000    88 ;			(always goes one time).
                                     0000    89 ;		3.	Lowercase @i, etc., did not work.
                                     0000    90 ;
                                     0000    91 ; 17-Jan-83
                                     0000    92 ;	Corrections:
                                     0000    93 ;		1.	Test for batch, cmd proc or terminal, did not work
                                     0000    94 ;			with VMS V3, used some other trick.
                                     0000    95 ;
                                     0000    96 ; 3-Feb-83
                                     0000    97 ;	Improvement:
                                     0000    98 ;		1.	Execute FLUSH in GTVR08, after input of min. 15 char.
                                     0000    99 ;			from tv-backup file.
                                     0000   100 ;
                                     0000   101 ; 31-Mar-83
                                     0000   102 ;	Enhancement:
                                     0000   103 ;		1.	;V for translation from uppercase to lowercase.
                                     0000   104 ;
                                     0000   105 ; 7-Oct-83
                                     0000   106 ;	Correction:
                                     0000   107 ;		1.	nA command gives value for next command.
                                     0000   108 ;
                                     0000   109 ;	Enhancements:
                                     0000   110 ;		1.	^G to terminate commands.
                                     0000   111 ;		2.	nMq also implemented.
                                     0000   112 ;		3.	;Y will also read remainder of file, if file too big.
                                     0000   113 ;		4.	Y added = HK + ;Y.
                                     0000   114 ;		5.	;A command replaces spaces by tabs, and deletes
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   3
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                     0000   115 ;			trailing spaces.
                                     0000   116 ;
                                     0000   117 ; 27-Dec-83
                                     0000   118 ;	Correction/Improvement:
                                     0000   119 ;		1.	Routine GEXTHOLR does not work for > 64K.
                                     0000   120 ;		2.	Output to terminal with IO$M_NOFORMAT.
                                     0000   121 ;
                                     0000   122 ; 24-Jan-84
                                     0000   123 ;	Enhancement:
                                     0000   124 ;		1.	TV can also handle VT100
                                     0000   125 ;				- table with terminal dependent char. in TVMAIN
                                     0000   126 ;				- GTVR01 and GTVR02 special moves
                                     0000   127 ;				- only for HP, display of non-printable char.
                                     0000   128 ;
                                     0000   129 ; 7-Feb-84
                                     0000   130 ;	Correction:
                                     0000   131 ;		1.	With ';U' and 'Y' command, HOLE is set back to 8k,
                                     0000   132 ;			by which 'Y and ';Y' can use the whole buffer again.
                                     0000   133 ;
                                     0000   134 ; 29-Feb-84
                                     0000   135 ;	Correction:
                                     0000   136 ;		1.	If HOLE is larger than 64K, shift forward does not
                                     0000   137 ;			work correctly.
                                     0000   138 ;		2.	Special linefunctions ;A ;V and ;V don't stop at end
                                     0000   139 ;			of buffer when number of lines are specified.
                                     0000   140 ;
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   4
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                     0000   142 	.MACRO	MOVSP	P1
                                     0000   143 	MOVL	GTTAB,R1
                                     0000   144 	MOVL	P1*4(R1),R1
                                     0000   145 	MOVC3	(R1),2(R1),(R8)
                                     0000   146 	MOVL	R3,R8
                                     0000   147 	.ENDM
                                     0000   148 	INITG	TVMAIN			;CHANGED GTVM01 INTO TVMAIN
              00000000'EF   00   FB  0002   149 	CALLS	#0,RRPRFB		;OAP INIT
                                     0009   150 	$OPEN	FAB=SIN_FAB
                                     0016   151 	IF.	*ERROR			;BATCH TASK
           00000085'EF   20'8F   88  001C   152 		BISB2	#GX2COM,GSTAT2
                                     0024   153 		$OPEN	FAB=GIN_FAB
                                     0031   154 	ELSE.
                                     0034   155 		$GETDVI_S ,SIN_FAB+FAB$L_STV,,WDLIST
     00000320'EF   20000000'8F   D3  0052   156 		BITL	#TT2$M_DECCRT,WDEVDEP2
                                     005D   157 		IF.	*OFF		;NOT VT100 COMPATIBLE
     0000008E'EF   00000325'EF   9E  0062   158 			MOVAB	GHP2621,GTTAB
           00000085'EF   10'8F   88  006D   159 			BISB2	#GXHP,GSTAT2
                                     0075   160 		ENDIF.
           00000085'EF   40'8F   88  0075   161 		BISB2	#GX2TER,GSTAT2
                                     007D   162 		$OPEN	FAB=GIN_FAB
                                     008A   163 		ON_ERROR	GRERR
              00000206'EF   02   91  0090   164 		CMPB	#02,GIN_FAB+FAB$B_RAT
                                     0097   165 		IF.	*EQ		;COMMAND PROC
           00000085'EF   20'8F   88  009C   166 			BISB2	#GX2COM,GSTAT2
                                     00A4   167 		ENDIF.
                                     00A4   168 	ENDIF.
           00000085'EF   20'8F   93  00A4   169 	BITB	#GX2COM,GSTAT2
                                     00AC   170 	IF.	*ON
                                     00B1   171 		$CONNECT RAB=GIN_RAB
                                     00BE   172 		$CREATE	FAB=GOUT_FAB
                                     00CB   173 		ON_ERROR GRERR
                                     00D1   174 		$CONNECT RAB=GOUT_RAB
                                     00DE   175 	ENDIF.
              51   000007EC'8F   D0  00DE   176 	MOVL	#GBUFS+GBUFS+28,R1
                                     00E5   177 	$EXPREG_S R1,WRET
                                     00F8   178 	ON_ERROR GRERR
              51   00000000'EF   D0  00FE   179 	MOVL	WRET,R1
              00000050'EF   51   D0  0105   180 	MOVL	R1,GOBUFFA
              51   00000800 8F   C0  010C   181 	ADDL2	#2048,R1
              00000048'EF   51   D0  0113   182 	MOVL	R1,GIBUFFA		;2K INPUT BUFFER
              51   00000800 8F   C0  011A   183 	ADDL2	#2048,R1
              00000068'EF   51   D0  0121   184 	MOVL	R1,GEBUFFA		;2K EXEC FILE BUFFER
              51   00000800 8F   C0  0128   185 	ADDL2	#2048,R1
              0000004C'EF   51   D0  012F   186 	MOVL	R1,GIBUF2A		;SECOND 2K INPUT BUFFER
              51   00000800 8F   C0  0136   187 	ADDL2	#2048,R1
              00000058'EF   51   D0  013D   188 	MOVL	R1,GSBUFFA		;SCREEN BUFFER
              51   00000800 8F   C0  0144   189 	ADDL2	#2048,R1
              00000060'EF   51   D0  014B   190 	MOVL	R1,GIBUF3A		;BUFFER FOR GTVR09
              51   00000800 8F   C0  0152   191 	ADDL2	#2048,R1
              00000064'EF   51   D0  0159   192 	MOVL	R1,GIBUF4A		;ANOTHER BUFFER FOR GTVR09
              51   00000800 8F   C0  0160   193 	ADDL2	#2048,R1
              0000005C'EF   51   D0  0167   194 	MOVL	R1,GQBUFFA		;Q-REG BUFFER
              51   0007D000'8F   C0  016E   195 	ADDL2	#GBUFS*512,R1
              0000006C'EF   51   D0  0175   196 	MOVL	R1,GFBUFFA		;2500K FILE BUFFER
                          FE81'  30  017C   197 	BSBW	GTVR08O			;OPEN LOGFILE
              00000000'EF   00   FB  017F   198 	CALLS	#0,GTVR03I		;READ INPUT FILE IF ON COMMAND LINE
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   5
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

              00000000'EF   00   FB  0186   199 L1:	CALLS	#0,GTVR02
                            50   D4  018D   200 	CLRL	R0			;FUNCTION 0
              51   0000004C'EF   D0  018F   201 	MOVL	GIBUF2A,R1		;ADDR INPUT BUFFER
              00000000'EF   00   FB  0196   202 	CALLS	#0,GTVR01		;READ
                            50   B5  019D   203 	TSTW	R0
                                     019F   204 	IF.	*EQ			;NO INPUT
                          FFDF   31  01A4   205 		BRW	L1
                                     01A7   206 	ENDIF.
              52   00000048'EF   D0  01A7   207 	MOVL	GIBUFFA,R2
     00000048'EF   0000004C'EF   D0  01AE   208 	MOVL	GIBUF2A,GIBUFFA		;SWAP BUFFERS
              0000004C'EF   52   D0  01B9   209 	MOVL	R2,GIBUF2A
     00000043'EF   00000041'EF   B0  01C0   210 	MOVW	GI1LL,GI2LL		;SAVE PREVIOUS INPUT LENGTH
              00000041'EF   50   B0  01CB   211 	MOVW	R0,GI1LL
              51   00000048'EF   D0  01D2   212 	MOVL	GIBUFFA,R1		;SET ADDR INPUT
                          FE24'  30  01D9   213 	BSBW	GTVR08WE		;WRITE COMMAND TO LOGFILE
              00000000'EF   00   FB  01DC   214 	CALLS	#0,GTVR04		;PARSE INPUT COMMANDS + EXECUTE
                          FFA0   31  01E3   215 	BRW	L1
                                     01E6   216 GEXIT::					;STOP TV
                          FE17'  30  01E6   217 	BSBW	GTVR08C			;CLOSE LOGFILE
              58   00000050'EF   D0  01E9   218 	MOVL	GOBUFFA,R8
                                     01F0   219 	MOVSP	0
                                     0202   220 	MOVSP	1			;CLEAR
         51   53   00000050'EF   C3  0215   221 	SUBL3	GOBUFFA,R3,R1
                          0034   30  021D   222 	BSBW	GWRITR			;DO IT
           00000085'EF   40'8F   93  0220   223 	BITB	#GX2TER,GSTAT2
                                     0228   224 	IF.	*OFF
                                     022D   225 		$CLOSE	FAB=GOUT_FAB
                                     023A   226 	ENDIF.
                   00000250'EF   DD  023A   227 	PUSHL	L20
              00000000'EF   01   FB  0240   228 	CALLS	#1,RRPRFE		;CLOSE OFF OAP
                                     0247   229 	$EXIT_S
                           00000014  0250   230 L20:	.LONG	20			;TV OAP STATISTICS ACCUMULATION
                                     0254   231 ;
                                     0254   232 ;	OUTPUT ONLY TO THE TERMINAL
                                     0254   233 ;
                                     0254   234 GWRITR::
           00000085'EF   20'8F   93  0254   235 	BITB	#GX2COM,GSTAT2
                                     025C   236 	IF.	*OFF			;ON TERMINAL
                                     0261   237 		$QIOW_S	CHAN=SIN_FAB+FAB$L_STV,FUNC=#IO$_WRITEVBLK+IO$M_NOFORMAT,-
                                     0261   238 			P1=@GOBUFFA,P2=R1
                                     0286   239 		ON_ERROR GRERR
                                     028C   240 	ENDIF.
                                 05  028C   241 	RSB
                                     028D   242 ;
                                     028D   243 ;	OUTPUT IN BATCH
                                     028D   244 ;	IN	R0 = LL
                                     028D   245 ;		R1 = ADDR
                                     028D   246 ;
                                     028D   247 GWRITR2::
           00000085'EF   40'8F   93  028D   248 	BITB	#GX2TER,GSTAT2
                                     0295   249 	IF.	*OFF			;NOT ON TERMINAL
              000002F4'EF   51   D0  029A   250 		MOVL	R1,GOUT_RAB+RAB$L_RBF
              000002EE'EF   50   B0  02A1   251 		MOVW	R0,GOUT_RAB+RAB$W_RSZ
                                     02A8   252 		$PUT	RAB=GOUT_RAB
                                     02B5   253 		ON_ERROR GRERR
                                     02BB   254 	ENDIF.
                                 05  02BB   255 	RSB
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   6
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                     02BC   256 ;
                                     02BC   257 GRERR::	$EXIT_S R0
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   7
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                 00000000   259 	.PSECT	DATAW,NOSHR,WRT,LONG
                           000003E8  0000   260 GBUFS==1000
                           00000008  0000   261 WRET:	.BLKL	2
                  00000010'00000009  0008   262 SYSINPX:	.LONG	9,.+4
         54 55 50 4E 49 24 53 59 53  0010   263 	.ASCII	/SYS$INPUT/
                  00000021'0000000A  0019   264 SYSOUTX:	.LONG	10,.+4
      54 55 50 54 55 4F 24 53 59 53  0021   265 	.ASCII	/SYS$OUTPUT/
                  00000033'0000000A  002B   266 LOGNX:	.LONG	10,LOGNT
                           0000003D  0033   267 LOGNT:	.BLKB	10
                              54 5F  003D   268 WTT:	.ASCII	/_T/
                                     003F   269 ;
                                     003F   270 ;	GLOBAL PARAMETERS
                                     003F   271 ;
                               0000  003F   272 GERRN::	.WORD	0			;ERROR NUMBER
                           00000043  0041   273 GI1LL::	.BLKW				;LENGTH INPUT IN FIRST BUFFER
                           00000045  0043   274 GI2LL::	.BLKW				;LENGTH INPUT IN SECOND BUFFER
                                     0045   275 	.ALIGN	LONG
                           0000004C  0048   276 GIBUFFA:: .BLKL				;TERMINAL INPUT BUFFER ADDR
                           00000050  004C   277 GIBUF2A:: .BLKL				;SECOND TERMINAL INPUT BUFFER
                           00000054  0050   278 GOBUFFA:: .BLKL				;TERMINAL OUTPUT BUFFER ADDR
                           00000000  0054   279 GOPTR::	.LONG	0			;START BYTE NR IN BUFFER FOR OUTPUT
                           0000005C  0058   280 GSBUFFA:: .BLKL				;SCREEN BUFFER ADDR (20*80)
                           00000060  005C   281 GQBUFFA:: .BLKL				;Q-REGISTER BUFFER ADDR
                           00000064  0060   282 GIBUF3A:: .BLKL				;INPUT BUFFER NON TERMINAL INPUT
                           00000068  0064   283 GIBUF4A::	.BLKL
                           0000006C  0068   284 GEBUFFA::	.BLKL			;EXEC FILE BUFFER
                           00000070  006C   285 GFBUFFA:: .BLKL				;FILE BUFFER ADDR
                           00000000  0070   286 GFPTR::	.LONG	0			;CURRENT BUFFER PTR, REL BYTE NR FROM 0
                           00000000  0074   287 GMIDPTR:: .LONG	0			;PTR TO MIDDLE OF LAST DISPLAYED WINDOW
                           00000000  0078   288 GFCNT::	.LONG	0			;NR OF BYTES IN BUFFER
                           00000000  007C   289 GHPTR::	.LONG	0			;START BYTE NR OF HOLE IN BUFFER
                           00002000  0080   290 GHCNT::	.LONG	8192			;NR OF BYTES IN HOLE
                                 80' 0084   291 GSTAT::	.BYTE	GXCTLL
                           00000080  0085   292 GXCTLL==^X80				;^L DONE
                           00000040  0085   293 GXVAL==^X40				;EXPRESSION BEFORE COMMAND PRESENT
                           00000020  0085   294 GXMORE==^X20				;NEXT PAGE TO BE DISPLAYED
                           00000010  0085   295 GXRNG==^X10				;RANGE PRESENT BIT
                           00000008  0085   296 GXIN1==^X08				;ONE BYTE INPUT COMMAND PRESENT
                           00000004  0085   297 GXSRCH1==^X04				; SPECIAL : SEARCH
                           00000002  0085   298 GXEXEC==^X02				;   ;E ACTIVE
                           00000001  0085   299 GXTERM==^X01				;CANCEL COMMAND EXECUTION
                                 00  0085   300 GSTAT2::	.BYTE	0
                           00000080  0086   301 GX2SRC==^X80				;IF ON UPPER/LOWER MATCH
                           00000040  0086   302 GX2TER==^X40				;INPUT FROM TERMINAL
                           00000020  0086   303 GX2COM==^X20				;INPUT FROM @COMMAND
                           00000010  0086   304 GXHP==^X10				;HP-2621 TERMINAL
                           00000000  0086   305 GEXP1::	.LONG	0			;RESULT OF EXPRESSION EVALUATION
                           00000000  008A   306 GEXP2::	.LONG				;RESULT OF EXP EVALUATION
                           0000033D' 008E   307 GTTAB::	.ADDRESS	GVT100		;DEFAULT
                                 18  0092   308 GNONDIS::	.BYTE	24		;NON DISPLAY CHARACTER (BLACK BOX)
                                     0093   309 GSCT::					;SCAN TABLE
                                     0093   310 ;	1 = CR,HT END OF BUFFER  SCAN
                                     0093   311 ;	2 = NUMERIC STRING SCAN
                                     0093   312 ;	4 = DISPLAY ON SCAN
                                     0093   313 ;	8 = ;SPACE SCAN
                                     0093   314 	.REPEAT	32
                                     0093   315 	.BYTE	4			;ALL SPECIAL CHAR
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   8
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                 04  0093   316 	.ENDR
                           000000A0  00B3   317 .=GSCT+13				;CR
                                 04  00A0   318 	.BYTE	4
                           0000009C  00A1   319 .=GSCT+9				;HT
                                 05  009C   320 	.BYTE	5
                           000000C3  009D   321 .=GSCT+^A'0'
                                     00C3   322 	.REPEAT	10
                                     00C3   323 	.BYTE	2
                                 02  00C3   324 	.ENDR				;ASCII  0-9
                           000000DC  00CD   325 .=GSCT+^A'I'
                                 08  00DC   326 	.BYTE	8			;SKIP >
                           000000E5  00DD   327 .=GSCT+^A'R'
                                 08  00E5   328 	.BYTE	8
                           000000E6  00E6   329 .=GSCT+^A'S'
                                 08  00E6   330 	.BYTE	8
                           000000CF  00E7   331 .=GSCT+^A'<'
                                 08  00CF   332 	.BYTE	8
                           000000D1  00D0   333 .=GSCT+^A'>'
                                 08  00D1   334 	.BYTE	8
                           000000CE  00D2   335 .=GSCT+^A';'
                                 08  00CE   336 	.BYTE	8
                           00000113  00CF   337 .=GSCT+128
                                 01  0113   338 	.BYTE	1			;SPECIAL END OF LINE
                           00000192  0114   339 .=GSCT+255
                                 01  0192   340 	.BYTE	1			;END OF BUFFER
                           00000193  0193   341 .=GSCT+256
                          0000 FFFF  0193   342 G64K::	.WORD	-1,0			;64K-1
                           00000080  0197   343 GCRX==128				;END OF LINE
                                     0197   344 	.ALIGN	LONG
                                     0198   345 SIN_FAB:: $FAB	FNM=<TT:>,FOP=UFO
                                     01E8   346 GIN_FAB:: $FAB	FNM=<SYS$INPUT>,FAC=<GET>,MRS=2048
                                     0238   347 GIN_RAB:: $RAB	FAB=GIN_FAB
                                     027C   348 GOUT_FAB:: $FAB	FNM=<SYS$OUTPUT>,FAC=<PUT>,MRS=2048,RFM=VAR,RAT=CR,BLS=2048
                                     02CC   349 GOUT_RAB:: $RAB	FAB=GOUT_FAB
                                     0310   350 	$DVIDEF
                                     0310   351 	$TT2DEF
                          001C 0004  0310   352 WDLIST:	.WORD	4,DVI$_DEVDEPEND2
                           00000320' 0314   353 	.ADDRESS WDEVDEP2
                  00000000 00000000  0318   354 	.LONG	0,0
                           00000324  0320   355 WDEVDEP2:	.BLKL
                           00000325  0324   356 WCHKB:	.BLKB
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page   9
                                                                         14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

                                     0325   358 ;	VIA ADDRESS TABEL PER FUNCTIE EEN ENTRIE HL2,CLN
                                     0325   359 ;
                                     0325   360 ;	FUNCTIE:	0 - HOME
                                     0325   361 ;			1 - CLEAR SCREEN
                                     0325   362 ;			2 - ERASE TO END OF LINE
                                     0325   363 ;			3 - CURSOR RIGHT 1 POS
                                     0325   364 ;			4 - CURSOR UP
                                     0325   365 ;			5 - SCROLL UP
                                     0325   366 ;
00000361'0000035D'00000359'00000355' 0325   367 GHP2621:	.ADDRESS	HP0,HP1,HP2,HP3,HP4,HP5
                  00000369'00000365' 0335       
0000037C'00000377'00000372'0000036D' 033D   368 GVT100:	.ADDRESS	VT0,VT1,VT2,VT3,VT4,VT5
                  00000386'00000381' 034D       
                               0002  0355   369 HP0:	.WORD	2
                              48 1B  0357   370 	.BYTE	27,^A'H'
                               0002  0359   371 HP1:	.WORD	2
                              4A 1B  035B   372 	.BYTE	27,^A'J'
                               0002  035D   373 HP2:	.WORD	2
                              4B 1B  035F   374 	.BYTE	27,^A'K'
                               0002  0361   375 HP3:	.WORD	2
                              43 1B  0363   376 	.BYTE	27,^A'C'
                               0002  0365   377 HP4:	.WORD	2
                              41 1B  0367   378 	.BYTE	27,^A'A'
                               0002  0369   379 HP5:	.WORD	2
                              54 1B  036B   380 	.BYTE	27,^A'T'
                                     036D   381 ;
                                     036D   382 ;
                               0003  036D   383 VT0:	.WORD	3
                           48 5B 1B  036F   384 	.BYTE	27,^A'[',^A'H'
                               0003  0372   385 VT1:	.WORD	3
                           4A 5B 1B  0374   386 	.BYTE	27,^A'[',^A'J'
                               0003  0377   387 VT2:	.WORD	3
                           4B 5B 1B  0379   388 	.BYTE	27,^A'[',^A'K'
                               0003  037C   389 VT3:	.WORD	3
                           43 5B 1B  037E   390 	.BYTE	27,^A'[',^A'C'
                               0003  0381   391 VT4:	.WORD	3
                           41 5B 1B  0383   392 	.BYTE	27,^A'[',^A'A'
                               0003  0386   393 VT5:	.WORD	3
                           41 5B 1B  0388   394 	.BYTE	27,^A'[',^A'A'
                                     038B   395 	.END	TVMAIN			;CHANGED GTVM01 INTO TVMAIN
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  10
Symbol table                                                             14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

$$.TAB                         = 000002CC R     03        FAB$B_ORG                        0000001D                 
$$.TABEND                      = 00000310 R     03        FAB$B_RAT                        0000001E                 
$$.TMP                         = 00000000                 FAB$B_RFM                        0000001F                 
$$.TMP1                        = 00000001                 FAB$B_RTV                        0000001C                 
$$.TMP2                        = 000000EF                 FAB$B_SHR                        00000017                 
$$.TMPX                        = 0000000C R     05        FAB$C_BID                      = 00000003                 
$$.TMPX1                       = 0000000A                 FAB$C_BLN                        00000050                 
$$T1                           = 00000001                 FAB$C_FIX                      = 00000001                 
DVI$C_ACP_F11V1                = 00000001                 FAB$C_HSH                      = 00000030                 
DVI$C_ACP_F11V2                = 00000002                 FAB$C_IDX                      = 00000020                 
DVI$C_ACP_JNL                  = 00000006                 FAB$C_MAXRFM                   = 00000006                 
DVI$C_ACP_MTA                  = 00000003                 FAB$C_REL                      = 00000010                 
DVI$C_ACP_NET                  = 00000004                 FAB$C_RFM_DFLT                 = 00000002                 
DVI$C_ACP_REM                  = 00000005                 FAB$C_SEQ                      = 00000000                 
DVI$C_SECONDARY                = 00000001                 FAB$C_STM                      = 00000004                 
DVI$_ACPPID                    = 00000040                 FAB$C_STMCR                    = 00000006                 
DVI$_ACPTYPE                   = 00000042                 FAB$C_STMLF                    = 00000005                 
DVI$_CLUSTER                   = 0000003A                 FAB$C_UDF                      = 00000000                 
DVI$_CYLINDERS                 = 00000028                 FAB$C_VAR                      = 00000002                 
DVI$_DEVBUFSIZ                 = 00000008                 FAB$C_VFC                      = 00000003                 
DVI$_DEVCHAR                   = 00000002                 FAB$K_BLN                        00000050                 
DVI$_DEVCLASS                  = 00000004                 FAB$L_ALQ                        00000010                 
DVI$_DEVDEPEND                 = 0000000A                 FAB$L_CTX                        00000018                 
DVI$_DEVDEPEND2                = 0000001C                 FAB$L_DEV                        00000040                 
DVI$_DEVNAM                    = 00000020                 FAB$L_DNA                        00000030                 
DVI$_DEVTYPE                   = 00000006                 FAB$L_FNA                        0000002C                 
DVI$_ERRCNT                    = 00000014                 FAB$L_FOP                        00000004                 
DVI$_FREEBLOCKS                = 0000002A                 FAB$L_JNL                        00000020                 
DVI$_LOGVOLNAM                 = 0000002C                 FAB$L_MRN                        00000038                 
DVI$_MAXBLOCK                  = 0000001A                 FAB$L_NAM                        00000028                 
DVI$_MAXFILES                  = 0000003C                 FAB$L_SDC                        00000044                 
DVI$_MOUNTCNT                  = 00000038                 FAB$L_STS                        00000008                 
DVI$_NEXTDEVNAM                = 00000034                 FAB$L_STV                        0000000C                 
DVI$_OPCNT                     = 00000016                 FAB$L_XAB                        00000024                 
DVI$_OWNUIC                    = 00000010                 FAB$M_BIO                      = 00000020                 
DVI$_PID                       = 0000000E                 FAB$M_BLK                      = 00000008                 
DVI$_RECSIZ                    = 00000018                 FAB$M_BRO                      = 00000040                 
DVI$_REFCNT                    = 0000001E                 FAB$M_CBT                      = 00200000                 
DVI$_ROOTDEVNAM                = 00000032                 FAB$M_CIF                      = 02000000                 
DVI$_SECTORS                   = 00000024                 FAB$M_CR                       = 00000002                 
DVI$_SERIALNUM                 = 0000003E                 FAB$M_CTG                      = 00100000                 
DVI$_TRACKS                    = 00000026                 FAB$M_DEL                      = 00000004                 
DVI$_TRANSCNT                  = 00000036                 FAB$M_DFW                      = 00000020                 
DVI$_UNIT                      = 0000000C                 FAB$M_DLT                      = 00008000                 
DVI$_VOLCOUNT                  = 00000030                 FAB$M_DMO                      = 00001000                 
DVI$_VOLNAM                    = 00000022                 FAB$M_ESC                      = 08000000                 
DVI$_VOLNUMBER                 = 0000002E                 FAB$M_EXE                      = 00000080                 
DVI$_VPROT                     = 00000012                 FAB$M_FTN                      = 00000001                 
EIF.1                            000000A4 R     02        FAB$M_GET                      = 00000002                 
FAB$B_BID                        00000000                 FAB$M_INP                      = 00080000                 
FAB$B_BKS                        0000003E                 FAB$M_JNL                      = 00400000                 
FAB$B_BLN                        00000001                 FAB$M_KFO                      = 40000000                 
FAB$B_DNS                        00000035                 FAB$M_MSE                      = 00000010                 
FAB$B_DSBMSK                     0000004A                 FAB$M_MXV                      = 00000002                 
FAB$B_FAC                        00000016                 FAB$M_NAM                      = 01000000                 
FAB$B_FNS                        00000034                 FAB$M_NEF                      = 00000400                 
FAB$B_FSZ                        0000003F                 FAB$M_NFS                      = 00010000                 
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  11
Symbol table                                                             14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

FAB$M_NIL                      = 00000020                 FAB$V_PPF                      = 00000012                 
FAB$M_OFP                      = 20000000                 FAB$V_PPF_IND                  = 0000000E                 
FAB$M_POS                      = 00000100                 FAB$V_PPF_RAT                  = 00000006                 
FAB$M_PPF                      = 00040000                 FAB$V_PRN                      = 00000002                 
FAB$M_PPF_IND                  = 00004000                 FAB$V_PUT                      = 00000000                 
FAB$M_PPF_RAT                  = 00003FC0                 FAB$V_RCK                      = 00000017                 
FAB$M_PRN                      = 00000004                 FAB$V_RWC                      = 0000000B                 
FAB$M_PUT                      = 00000001                 FAB$V_RWO                      = 00000007                 
FAB$M_RCK                      = 00800000                 FAB$V_SCF                      = 0000000E                 
FAB$M_RWC                      = 00000800                 FAB$V_SHRDEL                   = 00000002                 
FAB$M_RWO                      = 00000080                 FAB$V_SHRGET                   = 00000001                 
FAB$M_SCF                      = 00004000                 FAB$V_SHRPUT                   = 00000000                 
FAB$M_SHRDEL                   = 00000004                 FAB$V_SHRUPD                   = 00000003                 
FAB$M_SHRGET                   = 00000002                 FAB$V_SPL                      = 0000000D                 
FAB$M_SHRPUT                   = 00000001                 FAB$V_SQO                      = 00000006                 
FAB$M_SHRUPD                   = 00000008                 FAB$V_SUP                      = 00000002                 
FAB$M_SPL                      = 00002000                 FAB$V_TEF                      = 0000001C                 
FAB$M_SQO                      = 00000040                 FAB$V_TMD                      = 00000004                 
FAB$M_SUP                      = 00000004                 FAB$V_TMP                      = 00000003                 
FAB$M_TEF                      = 10000000                 FAB$V_TRN                      = 00000004                 
FAB$M_TMD                      = 00000010                 FAB$V_UFM                      = 0000001A                 
FAB$M_TMP                      = 00000008                 FAB$V_UFO                      = 00000011                 
FAB$M_TRN                      = 00000010                 FAB$V_UPD                      = 00000003                 
FAB$M_UFM                      = 04000000                 FAB$V_UPI                      = 00000006                 
FAB$M_UFO                      = 00020000                 FAB$V_WCK                      = 00000009                 
FAB$M_UPD                      = 00000008                 FAB$W_BLS                        0000003C                 
FAB$M_UPI                      = 00000040                 FAB$W_DEQ                        00000014                 
FAB$M_WCK                      = 00000200                 FAB$W_GBC                        00000048                 
FAB$S_ORG                      = 00000004                 FAB$W_IFI                        00000002                 
FAB$S_PPF_RAT                  = 00000008                 FAB$W_MRS                        00000036                 
FAB$V_BIO                      = 00000005                 G64K                             00000193 RG    03        
FAB$V_BLK                      = 00000003                 GBUFS                          = 000003E8  G              
FAB$V_BRO                      = 00000006                 GCRX                           = 00000080  G              
FAB$V_CBT                      = 00000015                 GEBUFFA                          00000068 RG    03        
FAB$V_CIF                      = 00000019                 GERRN                            0000003F RG    03        
FAB$V_CR                       = 00000001                 GEXIT                            000001E6 RG    02        
FAB$V_CTG                      = 00000014                 GEXP1                            00000086 RG    03        
FAB$V_DEL                      = 00000002                 GEXP2                            0000008A RG    03        
FAB$V_DFW                      = 00000005                 GFBUFFA                          0000006C RG    03        
FAB$V_DLT                      = 0000000F                 GFCNT                            00000078 RG    03        
FAB$V_DMO                      = 0000000C                 GFPTR                            00000070 RG    03        
FAB$V_ESC                      = 0000001B                 GHCNT                            00000080 RG    03        
FAB$V_EXE                      = 00000007                 GHP2621                          00000325 R     03        
FAB$V_FTN                      = 00000000                 GHPTR                            0000007C RG    03        
FAB$V_GET                      = 00000001                 GI1LL                            00000041 RG    03        
FAB$V_INP                      = 00000013                 GI2LL                            00000043 RG    03        
FAB$V_JNL                      = 00000016                 GIBUF2A                          0000004C RG    03        
FAB$V_KFO                      = 0000001E                 GIBUF3A                          00000060 RG    03        
FAB$V_MSE                      = 00000004                 GIBUF4A                          00000064 RG    03        
FAB$V_MXV                      = 00000001                 GIBUFFA                          00000048 RG    03        
FAB$V_NAM                      = 00000018                 GIN_FAB                          000001E8 RG    03        
FAB$V_NEF                      = 0000000A                 GIN_RAB                          00000238 RG    03        
FAB$V_NFS                      = 00000010                 GMIDPTR                          00000074 RG    03        
FAB$V_NIL                      = 00000005                 GNONDIS                          00000092 RG    03        
FAB$V_OFP                      = 0000001D                 GOBUFFA                          00000050 RG    03        
FAB$V_ORG                      = 00000004                 GOPTR                            00000054 RG    03        
FAB$V_POS                      = 00000008                 GOUT_FAB                         0000027C RG    03        
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  12
Symbol table                                                             14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

GOUT_RAB                         000002CC RG    03        L20                              00000250 R     02        
GQBUFFA                          0000005C RG    03        LOGNT                            00000033 R     03        
GRERR                            000002BC RG    02        LOGNX                            0000002B R     03        
GSBUFFA                          00000058 RG    03        RAB$B_BID                        00000000                 
GSCT                             00000093 RG    03        RAB$B_BLN                        00000001                 
GSTAT                            00000084 RG    03        RAB$B_KRF                        00000035                 
GSTAT2                           00000085 RG    03        RAB$B_KSZ                        00000034                 
GTTAB                            0000008E RG    03        RAB$B_MBC                        00000037                 
GTVR01                           ********   X   02        RAB$B_MBF                        00000036                 
GTVR02                           ********   X   02        RAB$B_PSZ                        00000034                 
GTVR03I                          ********   X   02        AB$B_RAC                        0000001E                 
GTVR04                           ********   X   02        RAB$B_ROP1                       00000005                 
GTVR08C                          ********   X   02        RAB$B_ROP2                       00000006                 
GTVR08O                          ********   X   02        RAB$B_ROP3          es.
         A  full  discussion  of  this  is found in a chapter entitled
         'MASTER FILES'.

     5.  Determine Necessary Software for Vax
         Determine Necessary Software for Vax

              We compiled a list of all software we thought  would  be
         applicable  for  our  Vax  environment.   Not  all  of it was
         immediatley necessary but we  thought  it  would  be  a  good
OVERVIEW OF PROJECT PLAN                                      Page 1-3
OVERVIEW OF PROJECT PLAN


         investment  for  the  future.   A  seperate  chapter has been
         devoted to this subject.

     6.  Evaluation of 1032 vs DATATRIEVE
         Evaluation of 1032 vs DATATRIEVE

              In migrating our application systems from a Decsystem-10
         to a Vax-11/780, we are faced with the problem of reproducing
         the functionality that our users both  required  and  enjoyed
         with their previous systems.  This includes machine interface
         in  terms  of  user-friendly  screens  and   data   retrieval
         capabilities.   Corporate Purchasing utilized 1022 to a great
         extent on the  DECsystem-10.   Comparable  functionality  was
         available   through   two  products  on  the  VB$L_DCT                        00000038                 
GXMORE                         = 00000020  G              RAB$L_FAB                        0000003C                 
GXRNG                          = 00000010  G              RAB$L_KBF                        00000030                 
GXSRCH1                        = 00000004  G              RAB$L_PBF                        00000030                 
GXTERM                         = 00000001  G              RAB$L_RBF                        00000028                 
GXVAL                          = 00000040  G              RAB$L_RFA0                       00000010                 
HP0                              00000355 R     03        RAB$L_RHB                        0000002C                 
HP1                              00000359 R     03        RAB$L_ROP                        00000004                 
HP2                              0000035D R     03        RAB$L_STS                        00000008                 
HP3                              00000361 R     03        RAB$L_STV                        0000000C                 
HP4                              00000365 R     03        RAB$L_UBF                        00000024                 
HP5                              00000369 R     03        RAB$M_ASY                      = 00000001                 
IF.1                             00000034 R     02        RAB$M_BIO                      = 00000800                 
IF.2                             00000075 R     02        RAB$M_CCO                      = 80000000                 
IF.3                             000000A4 R     02        RAB$M_CVT                      = 04000000                 
IF.4                             000000DE R     02        RAB$M_EOF                      = 00000100                 
IF.5                             000001A7 R     02        RAB$M_FDL                      = 00000040                 
IF.6                             0000023A R     02        RAB$M_HSH                      = 00000080                 
IF.7                             0000028C R     02        RAB$M_KGE                      = 00200000                 
IF.8                             000002BB R     02        RAB$M_KGT                      = 00400000                 
IF_CNT.                        = 00000001                 RAB$M_LIM                      = 00004000                 
IF_I.                          = 00000001                 RAB$M_LOA                      = 00002000                 
IF_LAB.                        = 00000008                 RAB$M_LOC                      = 00010000                 
IF_LEV.                        = 00000000                 RAB$M_MAS                      = 00000020                 
IF_MAX.                        = 00000008                 RAB$M_NLK                      = 00100000                 
IF_RTC.                        = 00000001                 RAB$M_NXR                      = 00800000                 
IF_STAT.                       = 00000000                 RAB$M_PMT                      = 40000000                 
IF_STRT.                       = 00000007                 RAB$M_PPF_IND                  = 00004000                 
IF_USE.                        = 00000002                 RAB$M_PPF_RAT                  = 00003FC0                 
INITSW.                        = 00000002                 RAB$M_PTA                      = 20000000                 
IO$M_NOFORMAT                    ********   X   02        RAB$M_RAH                      = 00000200                 
IO$_WRITEVBLK                    ********   X   02        RAB$M_REA                      = 00000004                 
L1                               00000186 R     02        RAB$M_RLK                      = 00080000                 
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  13
Symbol table                                                             14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

RAB$M_RNE                      = 01000000                 SYS$GETDVI                       ********  GX   02        
RAB$M_RNF                      = 08000000                 SYS$OPEN                         ********  GX   02        
RAB$M_RRL                      = 00000008                 SYS$PUT                          ********  GX   02        
RAB$M_TMO                      = 02000000                 SYS$QIOW                         ********  GX   02        
RAB$M_TPT                      = 00000002                 SYSINPX                          00000008 R     03        
RAB$M_UIF                      = 00000010                 SYSOUTX                          00000019 R     03        
RAB$M_ULK                      = 00040000                 TT2$M_ALTYPEAHD                = 00000080                 
RAB$M_WAT                      = 00020000                 TT2$M_ANSICRT                  = 01000000                 
RAB$M_WBH                      = 00000400                 TT2$M_AUTOBAUD                 = 00000002                 
RAB$S_PPF_RAT                  = 00000008                 TT2$M_AVO                      = 08000000                 
RAB$S_RFA                      = 00000006                 TT2$M_BLOCK                    = 04000000                 
RAB$V_ASY                      = 00000000                 TT2$M_BRDCSTMBX                = 00000010                 
RAB$V_BIO                      = 0000000B                 TT2$M_DCL_CTRLC                = 00000400                 
RAB$V_CCO                      = 0000001F                 TT2$M_DCL_MAILBX               = 00000200                 
RAB$V_CVT                      = 0000001A                 TT2$M_DCL_OUTBND               = 00000800                 
RAB$V_EOF                      = 00000008                 TT2$M_DECCRT                   = 20000000                 
RAB$V_FDL                      = 00000006                 TT2$M_DMA                      = 00000040                 
RAB$V_HSH                      = 00000007                 TT2$M_EDIT                     = 10000000                 
RAB$V_KGE                      = 00000015                 TT2$M_HANGUP                   = 00000004                 
RAB$V_KGT                      = 00000016                 TT2$M_LOCALECHO                = 00000001                 
RAB$V_LIM                      = 0000000E                 TT2$M_MODHANGUP                = 00000008                 
RAB$V_LOA                      = 0000000D                 TT2$M_REGIS                    = 02000000                 
RAB$V_LOC                      = 00000010                 TT2$M_SETSPEED                 = 00000100                 
RAB$V_MAS                      = 00000005                 TT2$M_XON                      = 00000020                 
RAB$V_NLK                      = 00000014                 TT2$V_ALTYPEAHD                = 00000007                 
RAB$V_NXR                      = 00000017                 TT2$V_ANSICRT                  = 00000018                 
RAB$V_PMT                      = 0000001E                 TT2$V_AUTOBAUD                 = 00000001                 
RAB$V_PPF_IND                  = 0000000E                 TT2$V_AVO                      = 0000001B                 
RAB$V_PPF_RAT                  = 00000006                 TT2$V_BLOCK                    = 0000001A                 
RAB$V_PTA                      = 0000001D                 TT2$V_BRDCSTMBX                = 00000004                 
RAB$V_RAH                      = 00000009                 TT2$V_DCL_CTRLC                = 0000000A                 
RAB$V_REA                      = 00000002                 TT2$V_DCL_MAILBX               = 00000009                 
RAB$V_RLK                      = 00000013                 TT2$V_DCL_OUTBND               = 0000000B                 
RAB$V_RNE                      = 00000018                 TT2$V_DECCRT                   = 0000001D                 
RAB$V_RNF                      = 0000001B                 TT2$V_DMA                      = 00000006                 
RAB$V_RRL                      = 00000003                 TT2$V_EDIT                     = 0000001C                 
RAB$V_TMO                      = 00000019                 TT2$V_HANGUP                   = 00000002                 
RAB$V_TPT                      = 00000001                 TT2$V_LOCALECHO                = 00000000                 
RAB$V_UIF                      = 00000004                 TT2$V_MODHANGUP                = 00000003                 
RAB$V_ULK                      = 00000012                 TT2$V_REGIS                    = 00000019                 
RAB$V_WAT                      = 00000011                 TT2$V_SETSPEED                 = 00000008                 
RAB$V_WBH                      = 0000000A                 TT2$V_XON                      = 00000005                 
RAB$W_ISI                        00000002                 TVMAIN                           00000000 RG    02        
RAB$W_RFA                        00000010                 VT0                              0000036D R     03        
RAB$W_RFA4                       00000014                 VT1                              00000372 R     03        
RAB$W_RSZ                        00000022                 VT2                              00000377 R     03        
RAB$W_STV0                       0000000C                 VT3                              0000037C R     03        
RAB$W_STV2                       0000000E                 VT4                              00000381 R     03        
RAB$W_USZ                        00000020                 VT5                              00000386 R     03        
RRPRFB                           ********   X   02        WCHKB                            00000324 R     03        
RRPRFE                           ********   X   02        WDEVDEP2                         00000320 R     03        
SIN_FAB                          00000198 RG    03        WDLIST                           00000310 R     03        
SYS$CLOSE                        ********  GX   02        WRET                             00000000 R     03        
SYS$CONNECT                      ********  GX   02        WTT                              0000003D R     03        
SYS$CREATE                       ********  GX   02        
SYS$EXIT                         ********  GX   02        
SYS$EXPREG                       ********  GX   02        
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  14
Psect synopsis                                                           14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)


                                                +----------------+
                                                ! Psect synopsis !
                                                +----------------+
PSECT name                      Allocation          PSECT No.  Attributes     
----------                      ----------          ---------  ----------     
.  ABS  .                       00000000  (    0.)  00 (  0.)  NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT NOVEC BYTE  
. BLANK .                       00000000  (    0.)  01 (  1.)  NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT NOVEC BYTE  
TVMAIN                          000002C5  (  709.)  02 (  2.)  NOPIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT NOVEC QUAD  
DATAW                           0000038B  (  907.)  03 (  3.)  NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT NOVEC LONG  
$ABS$                           00000050  (   80.)  04 (  4.)  NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT NOVEC BYTE  
$RMSNAM                         00000016  (   22.)  05 (  5.)  NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT NOVEC BYTE  
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  15
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)


                                             +------------------------+
                                             ! Symbol Cross Reference !
                                             +------------------------+
SYMBOL                          VALUE        DEFINITION      REFERENCES... 
------                          -----        ----------      ------------- 
$$.TAB                         =000002CC-R   349    (1)      345    (1)      346    (1)      347    (1)      348    (1)    
                                                             349    (1)    
$$.TABEND                      =00000310-R   349    (1)      345    (1)      346    (1)      347    (1)      348    (1)    
                                                             349    (1)    
$$.TMP                         =00000000     349    (1)      345    (1)      346    (1)      347    (1)      348    (1)    
                                                             349    (1)    
$$.TMP1                        =00000001     252    (1)      150    (1)      153    (1)      162    (1)      171    (1)    
                                                             172    (1)      174    (1)      225    (1)      252    (1)    
$$.TMP2                        =000000EF     252    (1)      150    (1)      153    (1)      162    (1)      171    (1)    
                                                             172    (1)      174    (1)      225    (1)      252    (1)    
$$.TMPX                        =0000000C-R   348    (1)      345    (1)      346    (1)      348    (1)    
$$.TMPX1                       =0000000A     348    (1)      345    (1)      346    (1)      348    (1)    
$$T1                           =00000001     238    (1)      155    (1)      238    (1)    
DVI$C_ACP_F11V1                =00000001     350    (1)    
DVI$C_ACP_F11V2                =00000002     350    (1)    
DVI$C_ACP_JNL                  =00000006     350    (1)    
DVI$C_ACP_MTA                  =00000003     350    (1)    
DVI$C_ACP_NET                  =00000004     350    (1)    
DVI$C_ACP_REM                  =00000005     350    (1)    
DVI$C_SECONDARY                =00000001     350    (1)    
DVI$_ACPPID                    =00000040     350    (1)    
DVI$_ACPTYPE                   =00000042     350    (1)    
DVI$_CLUSTER                   =0000003A     350    (1)    
DVI$_CYLINDERS                 =00000028     350    (1)    
DVI$_DEVBUFSIZ                 =00000008     350    (1)    
DVI$_DEVCHAR                   =00000002     350    (1)    
DVI$_DEVCLASS                  =00000004     350    (1)    
DVI$_DEVDEPEND                 =0000000A     350    (1)    
DVI$_DEVDEPEND2                =0000001C     350    (1)      352    (1)    
DVI$_DEVNAM                    =00000020     350    (1)    
DVI$_DEVTYPE                   =00000006     350    (1)    
DVI$_ERRCNT                    =00000014     350    (1)    
DVI$_FREEBLOCKS                =0000002A     350    (1)    
DVI$_LOGVOLNAM                 =0000002C     350    (1)    
DVI$_MAXBLOCK                  =0000001A     350    (1)    
DVI$_MAXFILES                  =0000003C     350    (1)    
DVI$_MOUNTCNT                  =00000038     350    (1)    
DVI$_NEXTDEVNAM                =00000034     350    (1)    
DVI$_OPCNT                     =00000016     350    (1)    
DVI$_OWNUIC                    =00000010     350    (1)    
DVI$_PID                       =0000000E     350    (1)    
DVI$_RECSIZ                    =00000018     350    (1)    
DVI$_REFCNT                    =0000001E     350    (1)    
DVI$_ROOTDEVNAM                =00000032     350    (1)    
DVI$_SECTORS                   =00000024     350    (1)    
DVI$_SERIALNUM                 =0000003E     350    (1)    
DVI$_TRACKS                    =00000026     350    (1)    
DVI$_TRANSCNT                  =00000036     350    (1)    
DVI$_UNIT                      =0000000C     350    (1)    
DVI$_VOLCOUNT                  =00000030     350    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  16
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

DVI$_VOLNAM                    =00000022     350    (1)    
DVI$_VOLNUMBER                 =0000002E     350    (1)    
DVI$_VPROT                     =00000012     350    (1)    
EIF.1                           000000A4-R   168    (1)    #-154    (1)    
FAB$B_BID                       00000000     345    (1)    
FAB$B_BKS                       0000003E     345    (1)    
FAB$B_BLN                       00000001     345    (1)    
FAB$B_DNS                       00000035     345    (1)    
FAB$B_DSBMSK                    0000004A     345    (1)    
FAB$B_FAC                       00000016     345    (1)    
FAB$B_FNS                       00000034     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$B_FSZ                       0000003F     345    (1)    
FAB$B_ORG                       0000001D     345    (1)    
FAB$B_RAT                       0000001E     345    (1)    #-164    (1)    
FAB$B_RFM                       0000001F     345    (1)    
FAB$B_RTV                       0000001C     345    (1)    
FAB$B_SHR                       00000017     345    (1)    
FAB$C_BID                      =00000003     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$C_BLN                       00000050     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$C_FIX                      =00000001     345    (1)    
FAB$C_HSH                      =00000030     345    (1)    
FAB$C_IDX                      =00000020     345    (1)    
FAB$C_MAXRFM                   =00000006     345    (1)    
FAB$C_REL                      =00000010     345    (1)    
FAB$C_RFM_DFLT                 =00000002     345    (1)    
FAB$C_SEQ                      =00000000     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$C_STM                      =00000004     345    (1)    
FAB$C_STMCR                    =00000006     345    (1)    
FAB$C_STMLF                    =00000005     345    (1)    
FAB$C_UDF                      =00000000     345    (1)    
FAB$C_VAR                      =00000002     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$C_VFC                      =00000003     345    (1)    
FAB$K_BLN                       00000050     345    (1)    
FAB$L_ALQ                       00000010     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$L_CTX                       00000018     345    (1)    
FAB$L_DEV                       00000040     345    (1)    
FAB$L_DNA                       00000030     345    (1)    
FAB$L_FNA                       0000002C     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$L_FOP                       00000004     345    (1)      345    (1)      346    (1)      348    (1)    
FAB$L_JNL                       00000020     345    (1)    
FAB$L_MRN                       00000038     345    (1)    
FAB$L_NAM                       00000028     345    (1)    
FAB$L_SDC                       00000044     345    (1)    
FAB$L_STS                       00000008     345    (1)    
FAB$L_STV                       0000000C     345    (1)    #-155    (1)    #-238    (1)    
FAB$L_XAB                       00000024     345    (1)    
FAB$M_BIO                      =00000020     345    (1)    
FAB$M_BLK                      =00000008     345    (1)    
FAB$M_BRO                      =00000040     345    (1)    
FAB$M_CBT                      =00200000     345    (1)    
FAB$M_CIF                      =02000000     345    (1)    
FAB$M_CR                       =00000002     345    (1)    
FAB$M_CTG                      =00100000     345    (1)    
FAB$M_DEL                      =00000004     345    (1)    
FAB$M_DFW                      =00000020     345    (1)    
FAB$M_DLT                      =00008000     345    (1)    
FAB$M_DMO                      =00001000     345    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  17
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

FAB$M_ESC                      =08000000     345    (1)    
FAB$M_EXE                      =00000080     345    (1)    
FAB$M_FTN                      =00000001     345    (1)    
FAB$M_GET                      =00000002     345    (1)    
FAB$M_INP                      =00080000     345    (1)    
FAB$M_JNL                      =00400000     345    (1)    
FAB$M_KFO                      =40000000     345    (1)    
FAB$M_MSE                      =00000010     345    (1)    
FAB$M_MXV                      =00000002     345    (1)    
FAB$M_NAM                      =01000000     345    (1)    
FAB$M_NEF                      =00000400     345    (1)    
FAB$M_NFS                      =00010000     345    (1)    
FAB$M_NIL                      =00000020     345    (1)    
FAB$M_OFP                      =20000000     345    (1)    
FAB$M_POS                      =00000100     345    (1)    
FAB$M_PPF                      =00040000     345    (1)    
FAB$M_PPF_IND                  =00004000     345    (1)    
FAB$M_PPF_RAT                  =00003FC0     345    (1)    
FAB$M_PRN                      =00000004     345    (1)    
FAB$M_PUT                      =00000001     345    (1)    
FAB$M_RCK                      =00800000     345    (1)    
FAB$M_RWC                      =00000800     345    (1)    
FAB$M_RWO                      =00000080     345    (1)    
FAB$M_SCF                      =00004000     345    (1)    
FAB$M_SHRDEL                   =00000004     345    (1)    
FAB$M_SHRGET                   =00000002     345    (1)    
FAB$M_SHRPUT                   =00000001     345    (1)    
FAB$M_SHRUPD                   =00000008     345    (1)    
FAB$M_SPL                      =00002000     345    (1)    
FAB$M_SQO                      =00000040     345    (1)    
FAB$M_SUP                      =00000004     345    (1)    
FAB$M_TEF                      =10000000     345    (1)    
FAB$M_TMD                      =00000010     345    (1)    
FAB$M_TMP                      =00000008     345    (1)    
FAB$M_TRN                      =00000010     345    (1)    
FAB$M_UFM                      =04000000     345    (1)    
FAB$M_UFO                      =00020000     345    (1)    
FAB$M_UPD                      =00000008     345    (1)    
FAB$M_UPI                      =00000040     345    (1)    
FAB$M_WCK                      =00000200     345    (1)    
FAB$S_ORG                      =00000004     345    (1)    
FAB$S_PPF_RAT                  =00000008     345    (1)    
FAB$V_BIO                      =00000005     345    (1)    
FAB$V_BLK                      =00000003     345    (1)    
FAB$V_BRO                      =00000006     345    (1)    
FAB$V_CBT                      =00000015     345    (1)    
FAB$V_CIF                      =00000019     345    (1)    
FAB$V_CR                       =00000001     345    (1)      348    (1)    
FAB$V_CTG                      =00000014     345    (1)    
FAB$V_DEL                      =00000002     345    (1)    
FAB$V_DFW                      =00000005     345    (1)    
FAB$V_DLT                      =0000000F     345    (1)    
FAB$V_DMO                      =0000000C     345    (1)    
FAB$V_ESC                      =0000001B     345    (1)    
FAB$V_EXE                      =00000007     345    (1)    
FAB$V_FTN                      =00000000     345    (1)    
FAB$V_GET                      =00000001     345    (1)      346    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  18
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

FAB$V_INP                      =00000013     345    (1)    
FAB$V_JNL                      =00000016     345    (1)    
FAB$V_KFO                      =0000001E     345    (1)    
FAB$V_MSE                      =00000004     345    (1)    
FAB$V_MXV                      =00000001     345    (1)    
FAB$V_NAM                      =00000018     345    (1)    
FAB$V_NEF                      =0000000A     345    (1)    
FAB$V_NFS                      =00000010     345    (1)    
FAB$V_NIL                      =00000005     345    (1)    
FAB$V_OFP                      =0000001D     345    (1)    
FAB$V_ORG                      =00000004     345    (1)    
FAB$V_POS                      =00000008     345    (1)    
FAB$V_PPF                      =00000012     345    (1)    
FAB$V_PPF_IND                  =0000000E     345    (1)    
FAB$V_PPF_RAT                  =00000006     345    (1)    
FAB$V_PRN                      =00000002     345    (1)    
FAB$V_PUT                      =00000000     345    (1)      348    (1)    
FAB$V_RCK                      =00000017     345    (1)    
FAB$V_RWC                      =0000000B     345    (1)    
FAB$V_RWO                      =00000007     345    (1)    
FAB$V_SCF                      =0000000E     345    (1)    
FAB$V_SHRDEL                   =00000002     345    (1)    
FAB$V_SHRGET                   =00000001     345    (1)    
FAB$V_SHRPUT                   =00000000     345    (1)    
FAB$V_SHRUPD                   =00000003     345    (1)    
FAB$V_SPL                      =0000000D     345    (1)    
FAB$V_SQO                      =00000006     345    (1)    
FAB$V_SUP                      =00000002     345    (1)    
FAB$V_TEF                      =0000001C     345    (1)    
FAB$V_TMD                      =00000004     345    (1)    
FAB$V_TMP                      =00000003     345    (1)    
FAB$V_TRN                      =00000004     345    (1)    
FAB$V_UFM                      =0000001A     345    (1)    
FAB$V_UFO                      =00000011     345    (1)      345    (1)    
FAB$V_UPD                      =00000003     345    (1)    
FAB$V_UPI                      =00000006     345    (1)    
FAB$V_WCK                      =00000009     345    (1)    
FAB$W_BLS                       0000003C     345    (1)    
FAB$W_DEQ                       00000014     345    (1)    
FAB$W_GBC                       00000048     345    (1)    
FAB$W_IFI                       00000002     345    (1)    
FAB$W_MRS                       00000036     345    (1)    
G64K                            00000193-R   342    (1)    
GBUFS                          =000003E8     260    (1)    #-176    (1)    #-195    (1)    
GCRX                           =00000080     343    (1)    
GEBUFFA                         00000068-R   284    (1)    #-184    (1)    
GERRN                           0000003F-R   272    (1)    
GEXIT                           000001E6-R   216    (1)    
GEXP1                           00000086-R   305    (1)    
GEXP2                           0000008A-R   306    (1)    
GFBUFFA                         0000006C-R   285    (1)    #-196    (1)    
GFCNT                           00000078-R   288    (1)    
GFPTR                           00000070-R   286    (1)    
GHCNT                           00000080-R   290    (1)    
GHP2621                         00000325-R   367    (1)      158    (1)    
GHPTR                           0000007C-R   289    (1)    
GI1LL                           00000041-R   273    (1)    #-210    (1)    #-211    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  19
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

GI2LL                           00000043-R   274    (1)    #-210    (1)    
GIBUF2A                         0000004C-R   277    (1)    #-186    (1)    #-201    (1)    #-208    (1)    #-209    (1)    
GIBUF3A                         00000060-R   282    (1)    #-190    (1)    
GIBUF4A                         00000064-R   283    (1)    #-192    (1)    
GIBUFFA                         00000048-R   276    (1)    #-182    (1)    #-207    (1)    #-208    (1)    #-212    (1)    
GIN_FAB                         000001E8-R   346    (1)      153    (1)      162    (1)    #-164    (1)      347    (1)    
GIN_RAB                         00000238-R   347    (1)      171    (1)    
GMIDPTR                         00000074-R   287    (1)    
GNONDIS                         00000092-R   308    (1)    
GOBUFFA                         00000050-R   278    (1)    #-180    (1)    #-218    (1)    #-221    (1)      238    (1)    
GOPTR                           00000054-R   279    (1)    
GOUT_FAB                        0000027C-R   348    (1)      172    (1)      225    (1)      349    (1)    
GOUT_RAB                        000002CC-R   349    (1)      174    (1)    #-250    (1)    #-251    (1)      252    (1)    
GQBUFFA                         0000005C-R   281    (1)    #-194    (1)    
GRERR                           000002BC-R   257    (1)    #-163    (1)    #-173    (1)    #-178    (1)    #-239    (1)    
                                                           #-253    (1)    
GSBUFFA                         00000058-R   280    (1)    #-188    (1)    
GSCT                            00000093-R   309    (1)      317    (1)      319    (1)      321    (1)      325    (1)    
                                                             327    (1)      329    (1)      331    (1)      333    (1)    
                                                             335    (1)      337    (1)      339    (1)      341    (1)    
GSTAT                           00000084-R   291    (1)    
GSTAT2                          00000085-R   300    (1)    #-152    (1)    #-159    (1)    #-161    (1)    #-166    (1)    
                                                           #-169    (1)    #-223    (1)    #-235    (1)    #-248    (1)    
GTTAB                           0000008E-R   307    (1)    #-158    (1)    #-219    (1)    #-220    (1)    
GTVR01                          00000000-XR                  202    (1)    
GTVR02                          00000000-XR                  199    (1)    
GTVR03I                         00000000-XR                  198    (1)    
GTVR04                          00000000-XR                  214    (1)    
GTVR08C                         00000000-XR                #-217    (1)    
GTVR08O                         00000000-XR                #-197    (1)    
GTVR08WE                        00000000-XR                #-213    (1)    
GVT100                          0000033D-R   368    (1)      307    (1)    
GWRITR                          00000254-R   234    (1)    #-222    (1)    
GWRITR2                         0000028D-R   247    (1)    
GX2COM                         =00000020     303    (1)    #-152    (1)    #-166    (1)    #-169    (1)    #-235    (1)    
GX2SRC                         =00000080     301    (1)    
GX2TER                         =00000040     302    (1)    #-161    (1)    #-223    (1)    #-248    (1)    
GXCTLL                         =00000080     292    (1)      291    (1)    
GXEXEC                         =00000002     298    (1)    
GXHP                           =00000010     304    (1)    #-159    (1)    
GXIN1                          =00000008     296    (1)    
GXMORE                         =00000020     294    (1)    
GXRNG                          =00000010     295    (1)    
GXSRCH1                        =00000004     297    (1)    
GXTERM                         =00000001     299    (1)    
GXVAL                          =00000040     293    (1)    
HP0                             00000355-R   369    (1)      367    (1)    
HP1                             00000359-R   371    (1)      367    (1)    
HP2                             0000035D-R   373    (1)      367    (1)    
HP3                             00000361-R   375    (1)      367    (1)    
HP4                             00000365-R   377    (1)      367    (1)    
HP5                             00000369-R   379    (1)      367    (1)    
IF.1                            00000034-R   154    (1)    #-151    (1)    
IF.2                            00000075-R   160    (1)    #-157    (1)    
IF.3                            000000A4-R   167    (1)    #-165    (1)    
IF.4                            000000DE-R   175    (1)    #-170    (1)    
IF.5                            000001A7-R   206    (1)    #-204    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  20
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

IF.6                            0000023A-R   226    (1)    #-224    (1)    
IF.7                            0000028C-R   240    (1)    #-236    (1)    
IF.8                            000002BB-R   254    (1)    #-249    (1)    
IF_CNT.                        =00000001     249    (1)      151    (1)      154    (1)      157    (1)      160    (1)    
                                                             165    (1)      167    (1)      168    (1)      170    (1)    
                                                             175    (1)      204    (1)      206    (1)      224    (1)    
                                                             226    (1)      236    (1)      240    (1)      249    (1)    
                                                             254    (1)    
IF_I.                          =00000001     254    (1)      154    (1)      160    (1)      167    (1)      168    (1)    
                                                             175    (1)      206    (1)      226    (1)      240    (1)    
                                                             254    (1)    
IF_LAB.                        =00000008     254    (1)    
IF_LEV.                        =00000000     254    (1)      151    (1)      157    (1)      160    (1)      165    (1)    
                                                             167    (1)      168    (1)      170    (1)      175    (1)    
                                                             204    (1)      206    (1)      224    (1)      226    (1)    
                                                             236    (1)      240    (1)      249    (1)      254    (1)    
IF_MAX.                        =00000008     249    (1)      151    (1)      157    (1)      165    (1)      170    (1)    
                                                             204    (1)      224    (1)      236    (1)      249    (1)    
IF_RTC.                        =00000001     249    (1)    
IF_STAT.                       =00000000     254    (1)      151    (1)      154    (1)      157    (1)      160    (1)    
                                                             165    (1)      167    (1)      168    (1)      170    (1)    
                                                             175    (1)      204    (1)      206    (1)      224    (1)    
                                                             226    (1)      236    (1)      240    (1)      249    (1)    
                                                             254    (1)    
IF_STRT.                       =00000007     249    (1)      154    (1)      160    (1)      167    (1)      168    (1)    
                                                             175    (1)      206    (1)      226    (1)      240    (1)    
                                                             254    (1)    
IF_USE.                        =00000002     254    (1)      154    (1)      160    (1)      167    (1)      168    (1)    
                                                             175    (1)      206    (1)      226    (1)      240    (1)    
                                                             254    (1)    
INITSW.                        =00000002     151    (1)      151    (1)      157    (1)      165    (1)      170    (1)    
                                                             204    (1)      224    (1)      236    (1)      249    (1)    
IO$M_NOFORMAT                   00000000-XR                #-238    (1)    
IO$_WRITEVBLK                   00000000-XR                #-238    (1)    
L1                              00000186-R   199    (1)    #-205    (1)    #-215    (1)    
L20                             00000250-R   230    (1)    #-227    (1)    
LOGNT                           00000033-R   267    (1)      266    (1)    
LOGNX                           0000002B-R   266    (1)    
RAB$B_BID                       00000000     347    (1)    
RAB$B_BLN                       00000001     347    (1)    
RAB$B_KRF                       00000035     347    (1)    
RAB$B_KSZ                       00000034     347    (1)    
RAB$B_MBC                       00000037     347    (1)    
RAB$B_MBF                       00000036     347    (1)    
RAB$B_PSZ                       00000034     347    (1)    
RAB$B_RAC                       0000001E     347    (1)      347    (1)      349    (1)    
RAB$B_ROP1                      00000005     347    (1)    
RAB$B_ROP2                      00000006     347    (1)    
RAB$B_ROP3                      00000007     347    (1)    
RAB$B_TMO                       0000001F     347    (1)    
RAB$C_BID                      =00000001     347    (1)      347    (1)      349    (1)    
RAB$C_BLN                       00000044     347    (1)      347    (1)      349    (1)    
RAB$C_KEY                      =00000001     347    (1)    
RAB$C_RFA                      =00000002     347    (1)    
RAB$C_SEQ                      =00000000     347    (1)      347    (1)      349    (1)    
RAB$C_STM                      =00000003     347    (1)    
RAB$K_BLN                       00000044     347    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  21
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

RAB$L_BKT                       00000038     347    (1)    
RAB$L_CTX                       00000018     347    (1)      347    (1)      349    (1)    
RAB$L_DCT                       00000038     347    (1)    
RAB$L_FAB                       0000003C     347    (1)    
RAB$L_KBF                       00000030     347    (1)    
RAB$L_PBF                       00000030     347    (1)    
RAB$L_RBF                       00000028     347    (1)    #-250    (1)    
RAB$L_RFA0                      00000010     347    (1)    
RAB$L_RHB                       0000002C     347    (1)    
RAB$L_ROP                       00000004     347    (1)      347    (1)      349    (1)    
RAB$L_STS                       00000008     347    (1)    
RAB$L_STV                       0000000C     347    (1)    
RAB$L_UBF                       00000024     347    (1)    
RAB$M_ASY                      =00000001     347    (1)    
RAB$M_BIO                      =00000800     347    (1)    
RAB$M_CCO                      =80000000     347    (1)    
RAB$M_CVT                      =04000000     347    (1)    
RAB$M_EOF                      =00000100     347    (1)    
RAB$M_FDL                      =00000040     347    (1)    
RAB$M_HSH                      =00000080     347    (1)    
RAB$M_KGE                      =00200000     347    (1)    
RAB$M_KGT                      =00400000     347    (1)    
RAB$M_LIM                      =00004000     347    (1)    
RAB$M_LOA                      =00002000     347    (1)    
RAB$M_LOC                      =00010000     347    (1)    
RAB$M_MAS                      =00000020     347    (1)    
RAB$M_NLK                      =00100000     347    (1)    
RAB$M_NXR                      =00800000     347    (1)    
RAB$M_PMT                      =40000000     347    (1)    
RAB$M_PPF_IND                  =00004000     347    (1)    
RAB$M_PPF_RAT                  =00003FC0     347    (1)    
RAB$M_PTA                      =20000000     347    (1)    
RAB$M_RAH                      =00000200     347    (1)    
RAB$M_REA                      =00000004     347    (1)    
RAB$M_RLK                      =00080000     347    (1)    
RAB$M_RNE                      =01000000     347    (1)    
RAB$M_RNF                      =08000000     347    (1)    
RAB$M_RRL                      =00000008     347    (1)    
RAB$M_TMO                      =02000000     347    (1)    
RAB$M_TPT                      =00000002     347    (1)    
RAB$M_UIF                      =00000010     347    (1)    
RAB$M_ULK                      =00040000     347    (1)    
RAB$M_WAT                      =00020000     347    (1)    
RAB$M_WBH                      =00000400     347    (1)    
RAB$S_PPF_RAT                  =00000008     347    (1)    
RAB$S_RFA                      =00000006     347    (1)    
RAB$V_ASY                      =00000000     347    (1)    
RAB$V_BIO                      =0000000B     347    (1)    
RAB$V_CCO                      =0000001F     347    (1)    
RAB$V_CVT                      =0000001A     347    (1)    
RAB$V_EOF                      =00000008     347    (1)    
RAB$V_FDL                      =00000006     347    (1)    
RAB$V_HSH                      =00000007     347    (1)    
RAB$V_KGE                      =00000015     347    (1)    
RAB$V_KGT                      =00000016     347    (1)    
RAB$V_LIM                      =0000000E     347    (1)    
RAB$V_LOA                      =0000000D     347    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  22
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

RAB$V_LOC                      =00000010     347    (1)    
RAB$V_MAS                      =00000005     347    (1)    
RAB$V_NLK                      =00000014     347    (1)    
RAB$V_NXR                      =00000017     347    (1)    
RAB$V_PMT                      =0000001E     347    (1)    
RAB$V_PPF_IND                  =0000000E     347    (1)    
RAB$V_PPF_RAT                  =00000006     347    (1)    
RAB$V_PTA                      =0000001D     347    (1)    
RAB$V_RAH                      =00000009     347    (1)    
RAB$V_REA                      =00000002     347    (1)    
RAB$V_RLK                      =00000013     347    (1)    
RAB$V_RNE                      =00000018     347    (1)    
RAB$V_RNF                      =0000001B     347    (1)    
RAB$V_RRL                      =00000003     347    (1)    
RAB$V_TMO                      =00000019     347    (1)    
RAB$V_TPT                      =00000001     347    (1)    
RAB$V_UIF                      =00000004     347    (1)    
RAB$V_ULK                      =00000012     347    (1)    
RAB$V_WAT                      =00000011     347    (1)    
RAB$V_WBH                      =0000000A     347    (1)    
RAB$W_ISI                       00000002     347    (1)    
RAB$W_RFA                       00000010     347    (1)    
RAB$W_RFA4                      00000014     347    (1)    
RAB$W_RSZ                       00000022     347    (1)    #-251    (1)    
RAB$W_STV0                      0000000C     347    (1)    
RAB$W_STV2                      0000000E     347    (1)    
RAB$W_USZ                       00000020     347    (1)    
RRPRFB                          00000000-XR                  149    (1)    
RRPRFE                          00000000-XR                  228    (1)    
SIN_FAB                         00000198-R   345    (1)      150    (1)    #-155    (1)    #-238    (1)    
SYS$CLOSE                       00000000-XR                  225    (1)    
SYS$CONNECT                     00000000-XR                  171    (1)      174    (1)    
SYS$CREATE                      00000000-XR                  172    (1)    
SYS$EXIT                        00000000-XR                  229    (1)      257    (1)    
SYS$EXPREG                      00000000-XR                  177    (1)    
SYS$GETDVI                      00000000-XR                  155    (1)    
SYS$OPEN                        00000000-XR                  150    (1)      153    (1)      162    (1)    
SYS$PUT                         00000000-XR                  252    (1)    
SYS$QIOW                        00000000-XR                  238    (1)    
SYSINPX                         00000008-R   262    (1)    
SYSOUTX                         00000019-R   264    (1)    
TT2$M_ALTYPEAHD                =00000080     351    (1)    
TT2$M_ANSICRT                  =01000000     351    (1)    
TT2$M_AUTOBAUD                 =00000002     351    (1)    
TT2$M_AVO                      =08000000     351    (1)    
TT2$M_BLOCK                    =04000000     351    (1)    
TT2$M_BRDCSTMBX                =00000010     351    (1)    
TT2$M_DCL_CTRLC                =00000400     351    (1)    
TT2$M_DCL_MAILBX               =00000200     351    (1)    
TT2$M_DCL_OUTBND               =00000800     351    (1)    
TT2$M_DECCRT                   =20000000     351    (1)    #-156    (1)    
TT2$M_DMA                      =00000040     351    (1)    
TT2$M_EDIT                     =10000000     351    (1)    
TT2$M_HANGUP                   =00000004     351    (1)    
TT2$M_LOCALECHO                =00000001     351    (1)    
TT2$M_MODHANGUP                =00000008     351    (1)    
TT2$M_REGIS                    =02000000     351    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  23
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)

TT2$M_SETSPEED                 =00000100     351    (1)    
TT2$M_XON                      =00000020     351    (1)    
TT2$V_ALTYPEAHD                =00000007     351    (1)    
TT2$V_ANSICRT                  =00000018     351    (1)    
TT2$V_AUTOBAUD                 =00000001     351    (1)    
TT2$V_AVO                      =0000001B     351    (1)    
TT2$V_BLOCK                    =0000001A     351    (1)    
TT2$V_BRDCSTMBX                =00000004     351    (1)    
TT2$V_DCL_CTRLC                =0000000A     351    (1)    
TT2$V_DCL_MAILBX               =00000009     351    (1)    
TT2$V_DCL_OUTBND               =0000000B     351    (1)    
TT2$V_DECCRT                   =0000001D     351    (1)    
TT2$V_DMA                      =00000006     351    (1)    
TT2$V_EDIT                     =0000001C     351    (1)    
TT2$V_HANGUP                   =00000002     351    (1)    
TT2$V_LOCALECHO                =00000000     351    (1)    
TT2$V_MODHANGUP                =00000003     351    (1)    
TT2$V_REGIS                    =00000019     351    (1)    
TT2$V_SETSPEED                 =00000008     351    (1)    
TT2$V_XON                      =00000005     351    (1)    
TVMAIN                          00000000-R   148    (1)    
VT0                             0000036D-R   383    (1)      368    (1)    
VT1                             00000372-R   385    (1)      368    (1)    
VT2                             00000377-R   387    (1)      368    (1)    
VT3                             0000037C-R   389    (1)      368    (1)    
VT4                             00000381-R   391    (1)      368    (1)    
VT5                             00000386-R   393    (1)      368    (1)    
WCHKB                           00000324-R   356    (1)    
WDEVDEP2                        00000320-R   355    (1)    #-156    (1)      353    (1)    
WDLIST                          00000310-R   352    (1)      155    (1)    
WRET                            00000000-R   261    (1)      177    (1)    #-179    (1)    
WTT                             0000003D-R   268    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  24
Cross reference                                                          14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)


                                             +------------------------+
                                             ! Macros Cross Reference !
                                             +------------------------+
MACRO             SIZE          DEFINITION       REFERENCES... 
-----             ----          ----------       ------------- 
$$R_TABINIT       1             345    (1)       345    (1)       346    (1)       347    (1)       348    (1)       349    (1)    
$$R_VBFSET        1             345    (1)       345    (1)       346    (1)       347    (1)       348    (1)       349    (1)    
$CLOSE            1             225    (1)       225    (1)    
$CONNECT          1             171    (1)       171    (1)       174    (1)    
$CREATE           1             172    (1)       172    (1)    
$DEF              1             351    (1)       345    (1)       347    (1)    
$DEFEND           1             345    (1)       345    (1)       347    (1)       350    (1)       351    (1)    
$DEFINI           1             345    (1)       345    (1)       347    (1)       350    (1)       351    (1)    
$DVIDEF           1             350    (1)       350    (1)    
$EQU              1             351    (1)       345    (1)       347    (1)       350    (1)       351    (1)    
$EXIT_S           1             229    (1)       229    (1)       257    (1)    
$EXPREG_S         1             177    (1)       177    (1)    
$FAB              4             345    (1)       345    (1)       346    (1)       348    (1)    
$FABDEF           1             345    (1)       345    (1)       346    (1)       348    (1)    
$GBLINI           2             345    (1)       345    (1)       347    (1)       350    (1)       351    (1)    
$GETDVI_S         1             155    (1)       155    (1)    
$OPEN             1             150    (1)       150    (1)       153    (1)       162    (1)    
$PUSHADR          1             155    (1)       155    (1)       177    (1)       238    (1)    
$PUSHTWO          1             238    (1)       238    (1)    
$PUT              1             252    (1)       252    (1)    
$QIOPUSH          1             155    (1)       155    (1)       238    (1)    
$QIOW_S           1             237    (1)       237    (1)    
$RAB              2             347    (1)       347    (1)       349    (1)    
$RABDEF           1             347    (1)       347    (1)       349    (1)    
$RMSCALL          2             150    (1)       150    (1)       153    (1)       162    (1)       171    (1)       172    (1)    
                                                 174    (1)       225    (1)       252    (1)    
$TT2DEF           1             351    (1)       351    (1)    
$VIELD1           1             351    (1)    
BLAB.             1             154    (1)       154    (1)    
ELSE.             1             154    (1)       154    (1)    
ENDIF.            1             160    (1)       160    (1)       167    (1)       168    (1)       175    (1)       206    (1)    
                                                 226    (1)       240    (1)       254    (1)    
IF.               1             151    (1)       151    (1)       157    (1)       165    (1)       170    (1)       204    (1)    
                                                 224    (1)       236    (1)       249    (1)    
IFC.              4             151    (1)       151    (1)       157    (1)       165    (1)       170    (1)       204    (1)    
                                                 224    (1)       236    (1)       249    (1)    
IFL.              1             157    (1)       157    (1)       165    (1)       170    (1)       204    (1)       224    (1)    
                                                 236    (1)       249    (1)    
IFL2.             1             151    (1)       151    (1)    
INITG             1             148    (1)       148    (1)    
LAB.              1             154    (1)       154    (1)       160    (1)       167    (1)       168    (1)       175    (1)    
                                                 206    (1)       226    (1)       240    (1)       254    (1)    
LOCAT.            1             154    (1)       154    (1)       160    (1)       167    (1)       168    (1)       175    (1)    
                                                 206    (1)       226    (1)       240    (1)       254    (1)    
MOVSP             1             142    (1)       219    (1)       220    (1)    
ON_ERROR          1             163    (1)       163    (1)       173    (1)       178    (1)       239    (1)       253    (1)    
TVMAIN                          - TV MAIN PROGRAM                        26-OCT-1984 16:28:08  VAX-11 Macro V03-00         Page  25
VAX-11 Macro Run Statistics                                              14-AUG-1984 16:58:01  DUA5:[INTTOOLS.TVAXV2]TVMAIN.MAR;2(1)


                                             +------------------------+
                                             ! Performance indicators !
                                             +------------------------+
Phase                    Page faults    CPU Time       Elapsed Time   
-----                    -----------    --------       ------------   
Initialization                   18     00:00:00.09    00:00:00.32
Command processing               16     00:00:00.34    00:00:01.15
Pass 1                          316     00:00:17.01    00:00:30.38
Symbol table sort                 0     00:00:00.90    00:00:01.15
Pass 2                           90     00:00:02.98    00:00:04.93
Symbol table output              55     00:00:00.54    00:00:00.91
Psect synopsis output             2     00:00:00.06    00:00:00.10
Cross-reference output           89     00:00:03.08    00:00:04.80
Assembler run totals            587     00:00:25.00    00:00:43.76

The working set limit was 978 pages.
40414 bytes (79 pages) of virtual memory were used to buffer the intermediate code.
There were 30 pages of symbol table space allocated to hold 453 non-local and 13 local symbols.
395 source lines were read in Pass 1, producing 26 object records in Pass 2.
61 pages of virtual memory were used to define 39 macros.

                                            +--------------------------+
                                            ! Macro library statistics !
                                            +--------------------------+
Macro library name                           Macros defined      
------------------                           --------------      
DUA5:[INTTOOLS.TVAXV2]TV.MLB;2                         11        
SYS$SYSROOT:[SYSLIB]STARLET.MLB;1                      24        
TOTALS (all libraries)                                 35        

839 GETS were required to define 35 macros.

There were no errors, warnings or information messages.

/OBJECT TVMAIN/LIST/CROSS+TV/LIBRARY