Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/tvaxv2/gtvr06.lis
There are 3 other files named gtvr06.lis in the archive. Click here to see a list.
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   1
                                                                         14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)

                                     0000     1 	.TITLE	GTVR06 - HANDLING Q-REGISTERS
                                     0000     2 	INIT	GTVR06
                                     0002     3 ;	STRING INTO Q-REG
                                     0002     4 ;	IN	R0 = ADDR STRING DESC (A,L)
                                     0002     5 ;		R1 = QREG NR
                                     0002     6 GTVR06IS::	
                       07C0 8F   BB  0002     7 	PUSHR	#^M<R6,R7,R8,R9,R10>
                          0198   30  0006     8 	BSBW	CHKREG			;CHECK VALIDITY OF Q-REG NUMBER
                            61   D5  0009     9 	TSTL	(R1)			;NUMBER OR NOT FILLED?
                                     000B    10 	IF.	*NE			
                         04 A1   D5  0010    11 		TSTL	4(R1)		;TEST LENGTH
                                     0013    12 		IF.	*LTS		;Q-REG LOCKED
              00000000'EF   1E   B0  0018    13 			MOVW	#30,GERRN
                                 04  001F    14 			RET
                                     0020    15 		ENDIF.
                          0101   30  0020    16 		BSBW	MOVBUF		;NO REMOVE OLD STRING
                                     0023    17 	ENDIF.
53   000001EE'EF   00000000'EF   C1  0023    18 	ADDL3	GQBUFFA,LL,R3		;END OF BUFFER
                    56   04 A0   D0  002F    19 	MOVL	4(R0),R6		;LENGTH TO INSERT
         54   000001EE'EF   56   C1  0033    20 	ADDL3	R6,LL,R4
              00000000'8F   54   D1  003B    21 	CMPL	R4,#GBUFS*512		;LENGTH Q-REG BUF EXCEEDED
                                     0042    22 	IF.	*GT
              00000000'EF   13   B0  0047    23 		MOVW	#19,GERRN	;YES
                                 04  004E    24 		RET
                                     004F    25 	ENDIF.
              000001EE'EF   56   C0  004F    26 	ADDL2	R6,LL
                    04 A1   56   D0  0056    27 	MOVL	R6,4(R1)		;SET LL STR IN Q-DESC
                       61   53   D0  005A    28 	MOVL	R3,(R1)			;SET ADDR STR IN Q-DESC
                       51   60   D0  005D    29 	MOVL	(R0),R1
                                     0060    30 MOV1:
              00000000'EF   56   D1  0060    31 	CMPL	R6,G64K			;LENGTH TO BE MOVED >= 64K
                                     0067    32 	IF.	*GT
         63   61   00000000'EF   28  006C    33 		MOVC3	G64K,(R1),(R3)	;YES, MOVE 64K
              56   00000000'EF   C2  0074    34 		SUBL2 	G64K,R6
                          FFE2   31  007B    35 		BRW	MOV1
                                     007E    36 	ENDIF.
                  63   61   56   28  007E    37 	MOVC3	R6,(R1),(R3)
                       07C0 8F   BA  0082    38 	POPR	#^M<R6,R7,R8,R9,R10>
                                 05  0086    39 	RSB
                                     0087    40 ;
                                     0087    41 ;	Q-REG STRING TO CALLER
                                     0087    42 ;	IN	R1 = Q-REG NR
                                     0087    43 ;	OUT	R0 = LL STRING
                                     0087    44 ;		R1 = ADDR STRING
                                     0087    45 GTVR06OS::
                          0117   30  0087    46 	BSBW	CHKREG
                            61   D5  008A    47 	TSTL	(R1)			;Q-REG FILLED WITH STRING?
                                     008C    48 	IF.	*EQ
              00000000'EF   02   B0  0091    49 		MOVW	#2,GERRN 	;NO
                                 04  0098    50 		RET
                                     0099    51 	ENDIF.
                    50   04 A1   D0  0099    52 	MOVL	4(R1),R0		;LL
                                     009D    53 	IF.	*LTS
                       50   50   D2  00A2    54 		MCOML	R0,R0		;FORCE POSITIVE
                                     00A5    55 	ENDIF.
                       51   61   D0  00A5    56 	MOVL	(R1),R1			;ADDR
                                 05  00A8    57 	RSB
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   2
                                                                         14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)

                                     00A9    58 ;
                                     00A9    59 GTVR06OSL::				;AND LOCK IT
                          00F5   30  00A9    60 	BSBW	CHKREG
                            61   D5  00AC    61 	TSTL	(R1)			;Q-REG FILLED WITH STRING?
                                     00AE    62 	IF.	*EQ
              00000000'EF   02   B0  00B3    63 		MOVW	#2,GERRN 	;NO
                                 04  00BA    64 		RET
                                     00BB    65 	ENDIF.
                         04 A1   D5  00BB    66 	TSTL	4(R1)
                                     00BE    67 	IF.	*LTS		;ALREADY LOCKED
              00000000'EF   1E   B0  00C3    68 		MOVW	#30,GERRN
                                 04  00CA    69 		RET
                                     00CB    70 	ENDIF.
                    50   04 A1   D0  00CB    71 	MOVL	4(R1),R0
                 04 A1   04 A1   D2  00CF    72 	MCOML	4(R1),4(R1)		;MAKE NEG LENGTH
                       51   61   D0  00D4    73 	MOVL	(R1),R1			;RET ADDR
                                 05  00D7    74 	RSB
                                     00D8    75 ;
                                     00D8    76 GTVR06OSF::
                          00C6   30  00D8    77 	BSBW	CHKREG			;GET DESC
                 04 A1   04 A1   D2  00DB    78 	MCOML	4(R1),4(R1)		;MAKE LL POS
                                 05  00E0    79 	RSB
                                     00E1    80 ;
                                     00E1    81 ;
                                     00E1    82 ;	NUMERIC VALUE TO Q-REG
                                     00E1    83 ;	IN	R0 = VALUE
                                     00E1    84 ;		R1 = Q-REG NR
                                     00E1    85 GTVR06IN::
                       07C0 8F   BB  00E1    86 	PUSHR	#^M<R6,R7,R8,R9,R10>
                          00B9   30  00E5    87 	BSBW	CHKREG
                            61   D5  00E8    88 	TSTL	(R1)			;Q-REG FILLED WITH STRING
                                     00EA    89 	IF.	*NE
                         04 A1   D5  00EF    90 		TSTL	4(R1)		;TEST LOCKED
                                     00F2    91 		IF.	*LTS
              00000000'EF   1E   B0  00F7    92 			MOVW	#30,GERRN
                                 04  00FE    93 			RET
                                     00FF    94 		ENDIF.
                          0022   30  00FF    95 		BSBW	MOVBUF		;YES, REMOVE IT
                                     0102    96 	ENDIF.
                            61   D4  0102    97 	CLRL	(R1)
                    04 A1   50   D0  0104    98 	MOVL	R0,4(R1)
                       07C0 8F   BA  0108    99 	POPR	#^M<R6,R7,R8,R9,R10>
                                 05  010C   100 	RSB
                                     010D   101 ;
                                     010D   102 ;	Q-REG NUM VALUE TO CALLER
                                     010D   103 ;	IN	R1 = Q-REG NR
                                     010D   104 ;	OUT	R0 = VALUE
                                     010D   105 GTVR06ON::
                          0091   30  010D   106 	BSBW	CHKREG
                            61   D5  0110   107 	TSTL	(R1)			;Q-REG FILLED WITH NUMBER?
                                     0112   108 	IF.	*NE
              00000000'EF   03   B0  0117   109 		MOVW	#3,GERRN	;NO, ERROR
                                 04  011E   110 		RET
                                     011F   111 	ENDIF.
                    50   04 A1   D0  011F   112 	MOVL	4(R1),R0
                                 05  0123   113 	RSB
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   3
                                                                         14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)

                                     0124   115 ;	ROUTINE TO SHIFT END OF BUFFER FORWARDS
                                     0124   116 MOVBUF:
                                     0124   117 ;	IN: (R1)  START ADDR OF STRING TO BE REMOVED
                                     0124   118 ;	    4(R1)   LENGTH OF STRING
                            03   BB  0124   119 	PUSHR	#^M<R0,R1>
                            50   D4  0126   120 	CLRL	R0
              00000048 8F   50   D1  0128   121 MODDES:	CMPL	R0,#72
                                     012F   122 	IF.	*LT			;36 QUAD ENTRIES IN DESCRIPTION BUFFER
                 000001F2'EF40   D5  0134   123 		TSTL	DESBUF[R0]
                                     013B   124 		IF.	*NE		;NOT FILLED OR FILLED WITH NUMBER
            61   000001F2'EF40   D1  0140   125 			CMPL	DESBUF[R0],(R1)
                                     0148   126 			IF.	*GT	;ENTRY IS BEHIND THE TO BE REMOVED ONE
         000001F2'EF40   04 A1   C2  014D   127 				SUBL2	4(R1),DESBUF[R0]
                                     0156   128 			ENDIF.
                                     0156   129 		ENDIF.
                       50   02   C0  0156   130 		ADDL2	#2,R0
                          FFCC   31  0159   131 		BRW	MODDES
                                     015C   132 	ENDIF.
         58   61   00000000'EF   C3  015C   133 	SUBL3	GQBUFFA,(R1),R8
           000001EE'EF   04 A1   C2  0164   134 	SUBL2	4(R1),LL
         59   000001EE'EF   58   C3  016C   135 	SUBL3	R8,LL,R9
                       53   61   D0  0174   136 	MOVL	(R1),R3
               51   04 A1   61   C1  0177   137 	ADDL3	(R1),4(R1),R1
              00000000'EF   59   D1  017C   138 MOVB1:	CMPL	R9,G64K
                                     0183   139 	IF.	*GT			;LENGTH > 64K
         63   61   00000000'EF   28  0188   140 		MOVC3	G64K,(R1),(R3)		;YES MOVE 64K
              59   00000000'EF   C2  0190   141 		SUBL2	G64K,R9
                          FFE2   31  0197   142 		BRW	MOVB1
                                     019A   143 	ENDIF.
                  63   61   59   28  019A   144 	MOVC3	R9,(R1),(R3)
                            03   BA  019E   145 	POPR	#^M<R0,R1>
                                 05  01A0   146 	RSB
                                     01A1   147 CHKREG:
                                     01A1   148 ;	ROUTINE TO CHECK NUMBER OF Q-REG
                                     01A1   149 ;	IN	R1 = QREG NR IN FIRST BYTE (ASCII)
                                     01A1   150 ;	OUT	R1 = ADDR ENTRY IN DESBUF
                                     01A1   151 ;
                            52   D4  01A1   152 	CLRL	R2
                  52   51   30   83  01A3   153 	SUBB3	#48,R1,R2
                                     01A7   154 	IF.	*GES			;CHAR < 0
                       09   52   91  01AC   155 		CMPB	R2,#9		;NO
                                     01AF   156 		IF.	*GTS		;CHAR > 9
                       51   20   8A  01B4   157 			BICB2	#^X20,R1	;FORCE UPPER CASE
               52   51   41 8F   83  01B7   158 			SUBB3	#65,R1,R2	;YES
                                     01BC   159 			IF.	*GES		;CHAR >= A
                       1A   52   91  01C1   160 				CMPB	R2,#26	;YES
                                     01C4   161 				IF.	*LTS		;CHAR <= Z
                       52   0A   80  01C9   162 					ADDB2	#10,R2	;CHAR A<=X<=Z
            51   000001F2'EF42   7E  01CC   163 					MOVAQ	DESBUF[R2],R1
                                 05  01D4   164 					RSB
                                     01D5   165 				ENDIF.
                                     01D5   166 			ENDIF.
              00000000'EF   0A   B0  01D5   167 			MOVW	#10,GERRN
                                 04  01DC   168 			RET
                                     01DD   169 		ENDIF.
            51   000001F2'EF42   7E  01DD   170 		MOVAQ	DESBUF[R2],R1		;CHAR 0<=X<=9
                                 05  01E5   171 		RSB
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   4
                                                                         14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)

                                     01E6   172 	ENDIF.
              00000000'EF   0A   B0  01E6   173 	MOVW	#10,GERRN
                                 04  01ED   174 	RET
                           00000000  01EE   175 LL:	.LONG
                                     01F2   176 ;
                                     01F2   177 ;	ONE ENTRY :
                                     01F2   178 ;		NUMERIC VALUE		AL4 = 0
                                     01F2   179 ;					FL4 = THE VALUE
                                     01F2   180 ;
                                     01F2   181 ;		STRING			AL4 = ADDR STRING
                                     01F2   182 ;					FL4 = LENGTH STRING, NEG IF LOCKED
                                     01F2   183 ;
                           00000312  01F2   184 DESBUF:	.BLKQ	36
                                     0312   185 	.END
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   5
Symbol table                                                             14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)

CHKREG           000001A1 R     02      
DESBUF           000001F2 R     02      
G64K             ********   X   02      
GBUFS            ********   X   02      
GERRN            ********   X   02      
GQBUFFA          ********   X   02      
GTVR06           00000000 RG    02      
GTVR06IN         000000E1 RG    02      
GTVR06IS         00000002 RG    02      
GTVR06ON         0000010D RG    02      
GTVR06OS         00000087 RG    02      
GTVR06OSF        000000D8 RG    02      
GTVR06OSL        000000A9 RG    02      
IF.1             00000023 R     02      
IF.10            000000FF R     02      
IF.11            0000011F R     02      
IF.12            0000015C R     02      
IF.13            00000156 R     02      
IF.14            00000156 R     02      
IF.15            0000019A R     02      
IF.16            000001E6 R     02      
IF.17            000001DD R     02      
IF.18            000001D5 R     02      
IF.19            000001D5 R     02      
IF.2             00000020 R     02      
IF.3             0000004F R     02      
IF.4             0000007E R     02      
IF.5             00000099 R     02      
IF.6             000000A5 R     02      
IF.7             000000BB R     02      
IF.8             000000CB R     02      
IF.9             00000102 R     02      
IF_CNT.        = 00000004               
IF_I.          = 00000001               
IF_LAB.        = 00000010               
IF_LEV.        = 00000000               
IF_MAX.        = 00000013               
IF_RTC.        = 00000001               
IF_STAT.       = 00000000               
IF_STRT.       = 0000000F               
IF_USE.        = 0000001E               
INITSW.        = 00000002               
LL               000001EE R     02      
MODDES           00000128 R     02      
MOV1             00000060 R     02      
MOVB1            0000017C R     02      
MOVBUF           00000124 R     02      

                                                +----------------+
                                                ! 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  
GTVR06                          00000312  (  786.)  02 (  2.)  NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT NOVEC QUAD  
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   6
Cross reference                                                          14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)


                                             +------------------------+
                                             ! Symbol Cross Reference !
                                             +------------------------+
SYMBOL          VALUE        DEFINITION      REFERENCES... 
------          -----        ----------      ------------- 
CHKREG          000001A1-R   147    (1)    #-106    (1)    #-46     (1)    #-60     (1)    #-77     (1)    #-8      (1)    
                                           #-87     (1)    
DESBUF          000001F2-R   184    (1)    #-123    (1)    #-125    (1)    #-127    (1)      163    (1)      170    (1)    
G64K            00000000-XR                #-138    (1)    #-140    (1)    #-141    (1)    #-31     (1)    #-33     (1)    
                                           #-34     (1)    
GBUFS           00000000-XR                #-21     (1)    
GERRN           00000000-XR                #-109    (1)    #-13     (1)    #-167    (1)    #-173    (1)    #-23     (1)    
                                           #-49     (1)    #-63     (1)    #-68     (1)    #-92     (1)    
GQBUFFA         00000000-XR                #-133    (1)    #-18     (1)    
GTVR06          00000000-R   2      (1)    
GTVR06IN        000000E1-R   85     (1)    
GTVR06IS        00000002-R   6      (1)    
GTVR06ON        0000010D-R   105    (1)    
GTVR06OS        00000087-R   45     (1)    
GTVR06OSF       000000D8-R   76     (1)    
GTVR06OSL       000000A9-R   59     (1)    
IF.1            00000023-R   17     (1)    #-10     (1)    
IF.10           000000FF-R   94     (1)    #-91     (1)    
IF.11           0000011F-R   111    (1)    #-108    (1)    
IF.12           0000015C-R   132    (1)    #-122    (1)    
IF.13           00000156-R   129    (1)    #-124    (1)    
IF.14           00000156-R   128    (1)    #-126    (1)    
IF.15           0000019A-R   143    (1)    #-139    (1)    
IF.16           000001E6-R   172    (1)    #-154    (1)    
IF.17           000001DD-R   169    (1)    #-156    (1)    
IF.18           000001D5-R   166    (1)    #-159    (1)    
IF.19           000001D5-R   165    (1)    #-161    (1)    
IF.2            00000020-R   15     (1)    #-12     (1)    
IF.3            0000004F-R   25     (1)    #-22     (1)    
IF.4            0000007E-R   36     (1)    #-32     (1)    
IF.5            00000099-R   51     (1)    #-48     (1)    
IF.6            000000A5-R   55     (1)    #-53     (1)    
IF.7            000000BB-R   65     (1)    #-62     (1)    
IF.8            000000CB-R   70     (1)    #-67     (1)    
IF.9            00000102-R   96     (1)    #-89     (1)    
IF_CNT.        =00000004     161    (1)      10     (1)      108    (1)      111    (1)      12     (1)      122    (1)    
                                             124    (1)      126    (1)      128    (1)      129    (1)      132    (1)    
                                             139    (1)      143    (1)      15     (1)      154    (1)      156    (1)    
                                             159    (1)      161    (1)      165    (1)      166    (1)      169    (1)    
                                             17     (1)      172    (1)      22     (1)      25     (1)      32     (1)    
                                             36     (1)      48     (1)      51     (1)      53     (1)      55     (1)    
                                             62     (1)      65     (1)      67     (1)      70     (1)      89     (1)    
                                             91     (1)      94     (1)      96     (1)    
IF_I.          =00000001     172    (1)      111    (1)      128    (1)      129    (1)      132    (1)      143    (1)    
                                             15     (1)      165    (1)      166    (1)      169    (1)      17     (1)    
                                             172    (1)      25     (1)      36     (1)      51     (1)      55     (1)    
                                             65     (1)      70     (1)      94     (1)      96     (1)    
IF_LAB.        =00000010     172    (1)    
IF_LEV.        =00000000     172    (1)      10     (1)      108    (1)      111    (1)      12     (1)      122    (1)    
                                             124    (1)      126    (1)      128    (1)      129    (1)      132    (1)    
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   7
Cross reference                                                          14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)

                                             139    (1)      143    (1)      15     (1)      154    (1)      156    (1)    
                                             159    (1)      161    (1)      165    (1)      166    (1)      169    (1)    
                                             17     (1)      172    (1)      22     (1)      25     (1)      32     (1)    
                                             36     (1)      48     (1)      51     (1)      53     (1)      55     (1)    
                                             62     (1)      65     (1)      67     (1)      70     (1)      89     (1)    
                                             91     (1)      94     (1)      96     (1)    
IF_MAX.        =00000013     161    (1)      10     (1)      108    (1)      12     (1)      122    (1)      124    (1)    
                                             126    (1)      139    (1)      154    (1)      156    (1)      159    (1)    
                                             161    (1)      22     (1)      32     (1)      48     (1)      53     (1)    
                                             62     (1)      67     (1)      89     (1)      91     (1)    
IF_RTC.        =00000001     161    (1)    
IF_STAT.       =00000000     172    (1)      10     (1)      108    (1)      111    (1)      12     (1)      122    (1)    
                                             124    (1)      126    (1)      128    (1)      129    (1)      132    (1)    
                                             139    (1)      143    (1)      15     (1)      154    (1)      156    (1)    
                                             159    (1)      161    (1)      165    (1)      166    (1)      169    (1)    
                                             17     (1)      172    (1)      22     (1)      25     (1)      32     (1)    
                                             36     (1)      48     (1)      51     (1)      53     (1)      55     (1)    
                                             62     (1)      65     (1)      67     (1)      70     (1)      89     (1)    
                                             91     (1)      94     (1)      96     (1)    
IF_STRT.       =0000000F     154    (1)      111    (1)      128    (1)      129    (1)      132    (1)      143    (1)    
                                             15     (1)      165    (1)      166    (1)      169    (1)      17     (1)    
                                             172    (1)      25     (1)      36     (1)      51     (1)      55     (1)    
                                             65     (1)      70     (1)      94     (1)      96     (1)    
IF_USE.        =0000001E     172    (1)      111    (1)      128    (1)      129    (1)      132    (1)      143    (1)    
                                             15     (1)      165    (1)      166    (1)      169    (1)      17     (1)    
                                             172    (1)      25     (1)      36     (1)      51     (1)      55     (1)    
                                             65     (1)      70     (1)      94     (1)      96     (1)    
INITSW.        =00000002     10     (1)      10     (1)      108    (1)      12     (1)      122    (1)      124    (1)    
                                             126    (1)      139    (1)      154    (1)      156    (1)      159    (1)    
                                             161    (1)      22     (1)      32     (1)      48     (1)      53     (1)    
                                             62     (1)      67     (1)      89     (1)      91     (1)    
LL              000001EE-R   175    (1)    #-134    (1)    #-135    (1)    #-18     (1)    #-20     (1)    #-26     (1)    
MODDES          00000128-R   121    (1)    #-131    (1)    
MOV1            00000060-R   30     (1)    #-35     (1)    
MOVB1           0000017C-R   138    (1)    #-142    (1)    
MOVBUF          00000124-R   116    (1)    #-16     (1)    #-95     (1)    
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   8
Cross reference                                                          14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)


                                             +------------------------+
                                             ! Macros Cross Reference !
                                             +------------------------+
MACRO             SIZE          DEFINITION       REFERENCES... 
-----             ----          ----------       ------------- 
ENDIF.            1             15     (1)       111    (1)       128    (1)       129    (1)       132    (1)       143    (1)    
                                                 15     (1)       165    (1)       166    (1)       169    (1)       17     (1)    
                                                 172    (1)       25     (1)       36     (1)       51     (1)       55     (1)    
                                                 65     (1)       70     (1)       94     (1)       96     (1)    
IF.               1             10     (1)       10     (1)       108    (1)       12     (1)       122    (1)       124    (1)    
                                                 126    (1)       139    (1)       154    (1)       156    (1)       159    (1)    
                                                 161    (1)       22     (1)       32     (1)       48     (1)       53     (1)    
                                                 62     (1)       67     (1)       89     (1)       91     (1)    
IFC.              4             10     (1)       10     (1)       108    (1)       12     (1)       122    (1)       124    (1)    
                                                 126    (1)       139    (1)       154    (1)       156    (1)       159    (1)    
                                                 161    (1)       22     (1)       32     (1)       48     (1)       53     (1)    
                                                 62     (1)       67     (1)       89     (1)       91     (1)    
IFL.              1             10     (1)       10     (1)       108    (1)       12     (1)       122    (1)       124    (1)    
                                                 126    (1)       139    (1)       154    (1)       156    (1)       159    (1)    
                                                 161    (1)       22     (1)       32     (1)       48     (1)       53     (1)    
                                                 62     (1)       67     (1)       89     (1)       91     (1)    
INIT              1             2      (1)       2      (1)    
LAB.              1             15     (1)       111    (1)       128    (1)       129    (1)       132    (1)       143    (1)    
                                                 15     (1)       165    (1)       166    (1)       169    (1)       17     (1)    
                                                 172    (1)       25     (1)       36     (1)       51     (1)       55     (1)    
                                                 65     (1)       70     (1)       94     (1)       96     (1)    
LOCAT.            1             15     (1)       111    (1)       128    (1)       129    (1)       132    (1)       143    (1)    
                                                 15     (1)       165    (1)       166    (1)       169    (1)       17     (1)    
                                                 172    (1)       25     (1)       36     (1)       51     (1)       55     (1)    
                                                 65     (1)       70     (1)       94     (1)       96     (1)    

                                             +------------------------+
                                             ! Performance indicators !
                                             +------------------------+
Phase                    Page faults    CPU Time       Elapsed Time   
-----                    -----------    --------       ------------   
Initialization                   20     00:00:00.07    00:00:00.35
Command processing               16     00:00:00.34    00:00:01.61
Pass 1                          165     00:00:07.49    00:00:12.67
Symbol table sort                 0     00:00:00.07    00:00:00.18
Pass 2                           52     00:00:01.45    00:00:02.18
Symbol table output               4     00:00:00.08    00:00:00.10
Psect synopsis output             2     00:00:00.03    00:00:00.03
Cross-reference output           26     00:00:00.79    00:00:01.79
Assembler run totals            286     00:00:10.35    00:00:18.93

The working set limit was 678 pages.
19061 bytes (38 pages) of virtual memory were used to buffer the intermediate code.
There were 10 pages of symbol table space allocated to hold 47 non-local and 19 local symbols.
185 source lines were read in Pass 1, producing 16 object records in Pass 2.
10 pages of virtual memory were used to define 7 macros.
GTVR06                          - HANDLING Q-REGISTERS                   26-OCT-1984 16:26:12  VAX-11 Macro V03-00         Page   9
VAX-11 Macro Run Statistics                                              14-AUG-1984 16:40:40  DUA5:[INTTOOLS.TVAXV2]GTVR06.MAR;1(1)


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

130 GETS were required to define 7 macros.

There were no errors, warnings or information messages.

/OBJECT GTVR06/LIST/CROSS+TV/LIBRARY