Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/tvaxv2/gtvr09.lis
There are 3 other files named gtvr09.lis in the archive. Click here to see a list.
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   1
                                                                         14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)

                                     0000     1 	.TITLE	GTVR09 - FILE INPUT ROUTINE
                                     0000     2 ;	READ INPUT COMMAND OR FILE NAME FROM INPUT FILE
                                     0000     3 ;
                                     0000     4 ;	IN	R0 = ADDR RAB
                                     0000     5 ;		R1 = ADDR INPUT AREA
                                     0000     6 ;
                                     0000     7 ;	OUT	R0 = LENGTH INPUT, -1 = EOF
                                     0000     8 ;
                                     0000     9 ;	ENTRIES:	GTVR09 = STOP ON ESC,ESC
                                     0000    10 ;			GTVR09R = STOP ON CR OR END OF RECORD
                                     0000    11 ;
                                     0000    12 	INIT	GTVR09
                          0238   30  0002    13 	BSBW	INITR
                       57   50   D0  0005    14 	MOVL	R0,R7
                       56   51   D0  0008    15 	MOVL	R1,R6
              00000293'EF   56   D0  000B    16 	MOVL	R6,WINPA
                       0000'C8   B5  0012    17 	TSTW	WLL(R8)
                                     0016    18 	IF.	*EQ		;NO PREVIOUS INPUT
     0000028D'EF   FFFFFFFF 8F   D0  001B    19 		MOVL	#-1,WOLL
                          01A9   30  0026    20 		BSBW	GETR
                                     0029    21 	ENDIF.
                   0000028D'EF   D4  0029    22 	CLRL	WOLL
               0010'C8   80'8F   93  002F    23 	BITB	#WXTRUNC,WSTAT(R8)
                                     0035    24 	IF.	*ON		;PREVIOUS TOO LONG
               0010'C8   80'8F   8A  003A    25 		BICB2	#WXTRUNC,WSTAT(R8)
                   0000028D'EF   D6  0040    26 		INCL	WOLL
                    86   49 8F   90  0046    27 		MOVB	#^A'I',(R6)+
                                     004A    28 	ENDIF.
    0000'C8   00000291'EF   02   39  004A    29 ME1:	MATCHC	#2,WESC,WLL(R8),@WADDR(R8)
                       0004'D8       0054       
                                     0057    30 	IF.	*EQ		;ESC,ESC FOUND
                  53   0004'C8   C2  005C    31 		SUBL2	WADDR(R8),R3		;INPUT LENGTH
         50   53   0000028D'EF   C1  0061    32 		ADDL3	WOLL,R3,R0
                  50   0800 8F   B1  0069    33 		CMPW	#2048,R0
                                     006E    34 		IF.	*LT		;TOO LONG
              50   0000028D'EF   B0  0073    35 			MOVW	WOLL,R0
              51   00000293'EF   D0  007A    36 			MOVL	WINPA,R1
                          FF7C'  30  0081    37 			BSBW	GWRITR2		;LOG IN BATCH
              66   00000291'EF   B0  0084    38 			MOVW	WESC,(R6)
              50   0000028D'EF   D0  008B    39 			MOVL	WOLL,R0
               0010'C8   80'8F   88  0092    40 			BISB2	#WXTRUNC,WSTAT(R8)
                                 04  0098    41 			RET
                                     0099    42 		ENDIF.
                  0000'C8   53   C2  0099    43 		SUBL2	R3,WLL(R8)
              0000028D'EF   53   C0  009E    44 		ADDL2	R3,WOLL
              0000028D'EF   02   C2  00A5    45 		SUBL2	#2,WOLL		;DO NOT COUNT ESC,ESC
             66   0004'D8   53   28  00AC    46 		MOVC3	R3,@WADDR(R8),(R6)
                  0004'C8   51   D0  00B2    47 		MOVL	R1,WADDR(R8)	;ADVANCE PTR
              50   0000028D'EF   B0  00B7    48 		MOVW	WOLL,R0
              51   00000293'EF   D0  00BE    49 		MOVL	WINPA,R1
                          FF38'  30  00C5    50 		BSBW	GWRITR2		;LOG IN BATCH
              50   0000028D'EF   D0  00C8    51 		MOVL	WOLL,R0		;LENGTH
                                 04  00CF    52 		RET
                                     00D0    53 	ELSE.			;NO MATCH
    50   0000'C8   0000028D'EF   C1  00D3    54 		ADDL3	WOLL,WLL(R8),R0
                  50   07FE 8F   B1  00DD    55 		CMPW	#2046,R0
                                     00E2    56 		IF.	*LT		;TOO LONG
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   2
                                                                         14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)

              50   0000028D'EF   B0  00E7    57 			MOVW	WOLL,R0
              51   00000293'EF   D0  00EE    58 			MOVL	WINPA,R1
                          FF08'  30  00F5    59 			BSBW	GWRITR2		;LOG IN BATCH
              66   00000291'EF   B0  00F8    60 			MOVW	WESC,(R6)
              50   0000028D'EF   D0  00FF    61 			MOVL	WOLL,R0
               0010'C8   80'8F   88  0106    62 			BISB2	#WXTRUNC,WSTAT(R8)
                                 04  010C    63 			RET
                                     010D    64 		ENDIF.
         0000028D'EF   0000'C8   C0  010D    65 		ADDL2	WLL(R8),WOLL
                   0000028D'EF   D6  0116    66 		INCL	WOLL
        66   0004'D8   0000'C8   28  011C    67 		MOVC3	WLL(R8),@WADDR(R8),(R6)
                       56   53   D0  0124    68 		MOVL	R3,R6
                    86   0D'8F   90  0127    69 		MOVB	#CR,(R6)+		;EXTRA CR FOR END OF REC
                          00A4   30  012B    70 		BSBW	GETR		;READ WITH COMMAND EXIT ON EOF
                          FF19   31  012E    71 		BRW	ME1
                                     0131    72 	ENDIF.
                                     0131    73 ;
                                     0131    74 ;
                               03FC  0131    75 	.ENTRY	GTVR09R,^M<R2,R3,R4,R5,R6,R7,R8,R9>
                          0107   30  0133    76 	BSBW	INITR
                       57   50   D0  0136    77 	MOVL	R0,R7
                       56   51   D0  0139    78 	MOVL	R1,R6
              00000293'EF   56   D0  013C    79 	MOVL	R6,WINPA
                       0000'C8   B5  0143    80 	TSTW	WLL(R8)
                                     0147    81 	IF.	*EQ		;NO PREVIOUS INPUT
     0000028D'EF   FFFFFFFF 8F   D0  014C    82 		MOVL	#-1,WOLL
                          0078   30  0157    83 		BSBW	GETR
                                     015A    84 	ENDIF.
                   0000028D'EF   D4  015A    85 	CLRL	WOLL
     0004'D8   0000'C8   0D'8F   3A  0160    86 	LOCC	#CR,WLL(R8),@WADDR(R8)
                                     0169    87 	IF.	*EQ			;NOT FOUND CR
   3C   00   0004'D8   0000'C8   2C  016E    88 		MOVC5	WLL(R8),@WADDR(R8),#0,#60,(R6)
                            66       0177       
                  51   0000'C8   D0  0178    89 		MOVL	WLL(R8),R1
                       0000'C8   D4  017D    90 		CLRL	WLL(R8)
                                     0181    91 	ELSE.			;CR FOUND
                  51   0004'C8   C2  0184    92 		SUBL2	WADDR(R8),R1		;LENGTH
                            51   DD  0189    93 		PUSHL	R1
   66   3C   00   0004'D8   51   2C  018B    94 		MOVC5	R1,@WADDR(R8),#0,#60,(R6)
                            51 8ED0  0193    95 		POPL	R1
                       0000'C8   D4  0196    96 		CLRL	WLL(R8)
                                     019A    97 	ENDIF.
                       3C   51   B1  019A    98 	CMPW	R1,#60
                                     019D    99 	IF.	*LT
              0000028D'EF   51   D0  01A2   100 		MOVL	R1,WOLL
                                     01A9   101 	ELSE.
              0000028D'EF   3C   D0  01AC   102 		MOVL	#60,WOLL
                                     01B3   103 	ENDIF.
              50   0000028D'EF   B0  01B3   104 	MOVW	WOLL,R0
              51   00000293'EF   D0  01BA   105 	MOVL	WINPA,R1
                          FE3C'  30  01C1   106 	BSBW	GWRITR2		;LOG IN BATCH
              50   0000028D'EF   D0  01C4   107 	MOVL	WOLL,R0
                   00000000'EF   B4  01CB   108 	CLRW	GERRN		;CLEAR ERROR
                                 04  01D1   109 	RET
                                     01D2   110 ;
                                     01D2   111 GETR:
                       0000'C8   D4  01D2   112 	CLRL	WLL(R8)
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   3
                                                                         14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)

             0000'C7   000C'D8   D0  01D6   113 	MOVL	@WIADDR(R8),RAB$L_UBF(R7)
             0000'C7   0800 8F   B0  01DD   114 	MOVW	#2048,RAB$W_USZ(R7)
                                     01E4   115 	$GET	RAB=(R7)
                                     01ED   116 	IF.	*ERROR		;EOF OR ERROR
              66   00000291'EF   B0  01F3   117 		MOVW	WESC,(R6)
           00000000'EF   00'8F   93  01FA   118 		BITB	#GXEXEC,GSTAT
                                     0202   119 		IF.	*ON		;	;E COMMAND OUTPUT
              50   0000028D'EF   D0  0207   120 			MOVL	WOLL,R0
                                 04  020E   121 			RET
                                     020F   122 		ENDIF.
           00000000'EF   00'8F   8A  020F   123 		BICB2	#GX2COM,GSTAT2
           00000000'EF   00'8F   88  0217   124 		BISB2	#GXCTLL,GSTAT	;FORCE ^L
              00000000'EF   00   FB  021F   125 		CALLS	#0,GTVR02	;MAKE SCREEN
              50   0000028D'EF   D0  0226   126 		MOVL	WOLL,R0
                                 04  022D   127 		RET
                                     022E   128 	ENDIF.
             0000'C8   0000'C7   B0  022E   129 	MOVW	RAB$W_RSZ(R7),WLL(R8)
             0004'C8   000C'D8   D0  0235   130 	MOVL	@WIADDR(R8),WADDR(R8)
                                 05  023C   131 	RSB
                                     023D   132 ;
                                     023D   133 ;	FIND BASE FOR WORK FIELDS
                                     023D   134 ;
                                     023D   135 INITR:
              58   0000026B'EF   9E  023D   136 	MOVAB	WIPAR1,R8
                       0008'C8   D5  0244   137 	TSTL	WRAB(R8)
                                     0248   138 	IF.	*EQ		;NOT USED
                  0008'C8   50   D0  024D   139 		MOVL	R0,WRAB(R8)
                                 05  0252   140 		RSB
                                     0253   141 	ENDIF.
                  0008'C8   50   D1  0253   142 	CMPL	R0,WRAB(R8)
                                     0258   143 	IF.	*EQ		;SAME
                                 05  025D   144 		RSB
                                     025E   145 	ENDIF.
              58   0000027C'EF   9E  025E   146 	MOVAB	WIPAR2,R8
                  0008'C8   50   D0  0265   147 	MOVL	R0,WRAB(R8)
                                 05  026A   148 	RSB
                           00000000  026B   149 WLL=0
                           00000004  026B   150 WADDR=4
                           00000008  026B   151 WRAB=8
                           0000000C  026B   152 WIADDR=12
                           00000010  026B   153 WSTAT=16
                           00000080  026B   154 WXTRUNC=^X80				;INPUT TOO LONG
                           00000277  026B   155 WIPAR1:	.BLKL	3
                           00000000' 0277   156 	.LONG	GIBUF3A
                           0000027C  027B   157 	.BLKB
                           00000288  027C   158 WIPAR2:	.BLKL	3
                           00000000' 0288   159 	.LONG	GIBUF4A
                           0000028D  028C   160 	.BLKB
                           00000291  028D   161 WOLL:	.BLKL
                              1B 1B  0291   162 WESC:	.BYTE	27,27
                           00000297  0293   163 WINPA:	.BLKL
                           0000000D  0297   164 CR=13
                                     0297   165 	.END
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   4
Symbol table                                                             14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)

$$.TMP1        = 00000001               WXTRUNC        = 00000080               
$$.TMP2        = 00000067               
CR             = 0000000D               
EIF.3            00000131 R     02      
EIF.7            0000019A R     02      
EIF.8            000001B3 R     02      
GERRN            ********   X   02      
GETR             000001D2 R     02      
GIBUF3A          ********   X   02      
GIBUF4A          ********   X   02      
GSTAT            ********   X   02      
GSTAT2           ********   X   02      
GTVR02           ********   X   02      
GTVR09           00000000 RG    02      
GTVR09R          00000131 RG    02      
GWRITR2          ********   X   02      
GX2COM           ********   X   02      
GXCTLL           ********   X   02      
GXEXEC           ********   X   02      
IF.1             00000029 R     02      
IF.10            0000020F R     02      
IF.11            00000253 R     02      
IF.12            0000025E R     02      
IF.2             0000004A R     02      
IF.3             000000D3 R     02      
IF.4             00000099 R     02      
IF.5             0000010D R     02      
IF.6             0000015A R     02      
IF.7             00000184 R     02      
IF.8             000001AC R     02      
IF.9             0000022E R     02      
IF_CNT.        = 00000001               
IF_I.          = 00000001               
IF_LAB.        = 0000000C               
IF_LEV.        = 00000000               
IF_MAX.        = 0000000C               
IF_RTC.        = 00000001               
IF_STAT.       = 00000000               
IF_STRT.       = 0000000B               
IF_USE.        = 00000002               
INITR            0000023D R     02      
INITSW.        = 00000002               
ME1              0000004A R     02      
RAB$L_UBF        ********   X   02      
RAB$W_RSZ        ********   X   02      
RAB$W_USZ        ********   X   02      
SYS$GET          ********  GX   02      
WADDR          = 00000004               
WESC             00000291 R     02      
WIADDR         = 0000000C               
WINPA            00000293 R     02      
WIPAR1           0000026B R     02      
WIPAR2           0000027C R     02      
WLL            = 00000000               
WOLL             0000028D R     02      
WRAB           = 00000008               
WSTAT          = 00000010               
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   5
Psect synopsis                                                           14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(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  
GTVR09                          00000297  (  663.)  02 (  2.)  NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT NOVEC QUAD  
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   6
Cross reference                                                          14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)


                                             +------------------------+
                                             ! Symbol Cross Reference !
                                             +------------------------+
SYMBOL          VALUE        DEFINITION      REFERENCES... 
------          -----        ----------      ------------- 
$$.TMP1        =00000001     115    (1)      115    (1)    
$$.TMP2        =00000067     115    (1)      115    (1)    
CR             =0000000D     164    (1)    #-69     (1)    #-86     (1)    
EIF.3           00000131-R   72     (1)    #-53     (1)    
EIF.7           0000019A-R   97     (1)    #-91     (1)    
EIF.8           000001B3-R   103    (1)    #-101    (1)    
GERRN           00000000-XR                #-108    (1)    
GETR            000001D2-R   111    (1)    #-20     (1)    #-70     (1)    #-83     (1)    
GIBUF3A         00000000-XR                  156    (1)    
GIBUF4A         00000000-XR                  159    (1)    
GSTAT           00000000-XR                #-118    (1)    #-124    (1)    
GSTAT2          00000000-XR                #-123    (1)    
GTVR02          00000000-XR                  125    (1)    
GTVR09          00000000-R   12     (1)    
GTVR09R         00000131-R   75     (1)    
GWRITR2         00000000-XR                #-106    (1)    #-37     (1)    #-50     (1)    #-59     (1)    
GX2COM          00000000-XR                #-123    (1)    
GXCTLL          00000000-XR                #-124    (1)    
GXEXEC          00000000-XR                #-118    (1)    
IF.1            00000029-R   21     (1)    #-18     (1)    
IF.10           0000020F-R   122    (1)    #-119    (1)    
IF.11           00000253-R   141    (1)    #-138    (1)    
IF.12           0000025E-R   145    (1)    #-143    (1)    
IF.2            0000004A-R   28     (1)    #-24     (1)    
IF.3            000000D3-R   53     (1)    #-30     (1)    
IF.4            00000099-R   42     (1)    #-34     (1)    
IF.5            0000010D-R   64     (1)    #-56     (1)    
IF.6            0000015A-R   84     (1)    #-81     (1)    
IF.7            00000184-R   91     (1)    #-87     (1)    
IF.8            000001AC-R   101    (1)    #-99     (1)    
IF.9            0000022E-R   128    (1)    #-116    (1)    
IF_CNT.        =00000001     143    (1)      101    (1)      103    (1)      116    (1)      119    (1)      122    (1)    
                                             128    (1)      138    (1)      141    (1)      143    (1)      145    (1)    
                                             18     (1)      21     (1)      24     (1)      28     (1)      30     (1)    
                                             34     (1)      42     (1)      53     (1)      56     (1)      64     (1)    
                                             72     (1)      81     (1)      84     (1)      87     (1)      91     (1)    
                                             97     (1)      99     (1)    
IF_I.          =00000001     145    (1)      101    (1)      103    (1)      122    (1)      128    (1)      141    (1)    
                                             145    (1)      21     (1)      28     (1)      42     (1)      53     (1)    
                                             64     (1)      72     (1)      84     (1)      91     (1)      97     (1)    
IF_LAB.        =0000000C     145    (1)    
IF_LEV.        =00000000     145    (1)      103    (1)      116    (1)      119    (1)      122    (1)      128    (1)    
                                             138    (1)      141    (1)      143    (1)      145    (1)      18     (1)    
                                             21     (1)      24     (1)      28     (1)      30     (1)      34     (1)    
                                             42     (1)      56     (1)      64     (1)      72     (1)      81     (1)    
                                             84     (1)      87     (1)      97     (1)      99     (1)    
IF_MAX.        =0000000C     143    (1)      116    (1)      119    (1)      138    (1)      143    (1)      18     (1)    
                                             24     (1)      30     (1)      34     (1)      56     (1)      81     (1)    
                                             87     (1)      99     (1)    
IF_RTC.        =00000001     143    (1)    
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   7
Cross reference                                                          14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)

IF_STAT.       =00000000     145    (1)      101    (1)      103    (1)      116    (1)      119    (1)      122    (1)    
                                             128    (1)      138    (1)      141    (1)      143    (1)      145    (1)    
                                             18     (1)      21     (1)      24     (1)      28     (1)      30     (1)    
                                             34     (1)      42     (1)      53     (1)      56     (1)      64     (1)    
                                             72     (1)      81     (1)      84     (1)      87     (1)      91     (1)    
                                             97     (1)      99     (1)    
IF_STRT.       =0000000B     143    (1)      101    (1)      103    (1)      122    (1)      128    (1)      141    (1)    
                                             145    (1)      21     (1)      28     (1)      42     (1)      53     (1)    
                                             64     (1)      72     (1)      84     (1)      91     (1)      97     (1)    
IF_USE.        =00000002     145    (1)      101    (1)      103    (1)      122    (1)      128    (1)      141    (1)    
                                             145    (1)      21     (1)      28     (1)      42     (1)      53     (1)    
                                             64     (1)      72     (1)      84     (1)      91     (1)      97     (1)    
INITR           0000023D-R   135    (1)    #-13     (1)    #-76     (1)    
INITSW.        =00000002     18     (1)      116    (1)      119    (1)      138    (1)      143    (1)      18     (1)    
                                             24     (1)      30     (1)      34     (1)      56     (1)      81     (1)    
                                             87     (1)      99     (1)    
ME1             0000004A-R   29     (1)    #-71     (1)    
RAB$L_UBF       00000000-XR                #-113    (1)    
RAB$W_RSZ       00000000-XR                #-129    (1)    
RAB$W_USZ       00000000-XR                #-114    (1)    
SYS$GET         00000000-XR                  115    (1)    
WADDR          =00000004     150    (1)    #-130    (1)      29     (1)    #-31     (1)      46     (1)    #-47     (1)    
                                             67     (1)      86     (1)      88     (1)    #-92     (1)      94     (1)    
WESC            00000291-R   162    (1)    #-117    (1)      29     (1)    #-38     (1)    #-60     (1)    
WIADDR         =0000000C     152    (1)    #-113    (1)    #-130    (1)    
WINPA           00000293-R   163    (1)    #-105    (1)    #-16     (1)    #-36     (1)    #-49     (1)    #-58     (1)    
                                           #-79     (1)    
WIPAR1          0000026B-R   155    (1)      136    (1)    
WIPAR2          0000027C-R   158    (1)      146    (1)    
WLL            =00000000     149    (1)    #-112    (1)    #-129    (1)    #-17     (1)    #-29     (1)    #-43     (1)    
                                           #-54     (1)    #-65     (1)    #-67     (1)    #-80     (1)    #-86     (1)    
                                           #-88     (1)    #-89     (1)    #-90     (1)    #-96     (1)    
WOLL            0000028D-R   161    (1)    #-100    (1)    #-102    (1)    #-104    (1)    #-107    (1)    #-120    (1)    
                                           #-126    (1)    #-19     (1)    #-22     (1)    #-26     (1)    #-32     (1)    
                                           #-35     (1)    #-39     (1)    #-44     (1)    #-45     (1)    #-48     (1)    
                                           #-51     (1)    #-54     (1)    #-57     (1)    #-61     (1)    #-65     (1)    
                                           #-66     (1)    #-82     (1)    #-85     (1)    
WRAB           =00000008     151    (1)    #-137    (1)    #-139    (1)    #-142    (1)    #-147    (1)    
WSTAT          =00000010     153    (1)    #-23     (1)    #-25     (1)    #-40     (1)    #-62     (1)    
WXTRUNC        =00000080     154    (1)    #-23     (1)    #-25     (1)    #-40     (1)    #-62     (1)    
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   8
Cross reference                                                          14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)


                                             +------------------------+
                                             ! Macros Cross Reference !
                                             +------------------------+
MACRO             SIZE          DEFINITION       REFERENCES... 
-----             ----          ----------       ------------- 
$GET              1             115    (1)       115    (1)    
$RMSCALL          2             115    (1)       115    (1)    
BLAB.             1             53     (1)       101    (1)       53     (1)       91     (1)    
ELSE.             1             53     (1)       101    (1)       53     (1)       91     (1)    
ENDIF.            1             21     (1)       103    (1)       122    (1)       128    (1)       141    (1)       145    (1)    
                                                 21     (1)       28     (1)       42     (1)       64     (1)       72     (1)    
                                                 84     (1)       97     (1)    
IF.               1             18     (1)       116    (1)       119    (1)       138    (1)       143    (1)       18     (1)    
                                                 24     (1)       30     (1)       34     (1)       56     (1)       81     (1)    
                                                 87     (1)       99     (1)    
IFC.              4             18     (1)       116    (1)       119    (1)       138    (1)       143    (1)       18     (1)    
                                                 24     (1)       30     (1)       34     (1)       56     (1)       81     (1)    
                                                 87     (1)       99     (1)    
IFL.              1             18     (1)       119    (1)       138    (1)       143    (1)       18     (1)       24     (1)    
                                                 30     (1)       34     (1)       56     (1)       81     (1)       87     (1)    
                                                 99     (1)    
IFL2.             1             116    (1)       116    (1)    
INIT              1             12     (1)       12     (1)    
LAB.              1             21     (1)       101    (1)       103    (1)       122    (1)       128    (1)       141    (1)    
                                                 145    (1)       21     (1)       28     (1)       42     (1)       53     (1)    
                                                 64     (1)       72     (1)       84     (1)       91     (1)       97     (1)    
LOCAT.            1             21     (1)       101    (1)       103    (1)       122    (1)       128    (1)       141    (1)    
                                                 145    (1)       21     (1)       28     (1)       42     (1)       53     (1)    
                                                 64     (1)       72     (1)       84     (1)       91     (1)       97     (1)    

                                             +------------------------+
                                             ! Performance indicators !
                                             +------------------------+
Phase                    Page faults    CPU Time       Elapsed Time   
-----                    -----------    --------       ------------   
Initialization                   18     00:00:00.07    00:00:00.28
Command processing               17     00:00:00.32    00:00:01.01
Pass 1                          170     00:00:06.09    00:00:10.96
Symbol table sort                 0     00:00:00.07    00:00:00.12
Pass 2                           50     00:00:01.15    00:00:02.45
Symbol table output               5     00:00:00.09    00:00:00.20
Psect synopsis output             2     00:00:00.04    00:00:00.13
Cross-reference output           26     00:00:00.85    00:00:01.45
Assembler run totals            289     00:00:08.71    00:00:16.63

The working set limit was 678 pages.
14735 bytes (29 pages) of virtual memory were used to buffer the intermediate code.
There were 10 pages of symbol table space allocated to hold 58 non-local and 12 local symbols.
165 source lines were read in Pass 1, producing 19 object records in Pass 2.
16 pages of virtual memory were used to define 12 macros.
GTVR09                          - FILE INPUT ROUTINE                     26-OCT-1984 16:27:30  VAX-11 Macro V03-00         Page   9
VAX-11 Macro Run Statistics                                              14-AUG-1984 16:42:11  DUA5:[INTTOOLS.TVAXV2]GTVR09.MAR;1(1)


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

194 GETS were required to define 12 macros.

There were no errors, warnings or information messages.

/OBJECT GTVR09/LIST/CROSS+TV/LIBRARY