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