XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 1 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0 1 MODULE XDUMPF ( IDENT = 'V1.2-10' %TITLE 'XPO$DUMP_FIELD - XPORT Control Block Dumper' 0 2 %BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) ) 0 3 %BLISS36( ,ENTRY( XPO$DUMP_FIELD ),OTS='' ) 0 4 ) = 0 5 BEGIN 1 6 1 7 ! 1 8 ! COPYRIGHT (c) 1983 BY 1 9 ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 1 10 ! 1 11 ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 1 12 ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 1 13 ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 1 14 ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 1 15 ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 1 16 ! TRANSFERRED. 1 17 ! 1 18 ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 1 19 ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 1 20 ! CORPORATION. 1 21 ! 1 22 ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 1 23 ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 1 24 ! 1 25 1 26 !++ 1 27 ! 1 28 ! FACILITY: BLISS Library 1 29 ! 1 30 ! ABSTRACT: 1 31 ! 1 32 ! This module dumps the contents of a single control block field 1 33 ! to the user's terminal. 1 34 ! 1 35 ! ENVIRONMENT: User mode - multiple host operating/file systems 1 36 ! 1 37 ! AUTHOR: Ward Clark, CREATION DATE: 29 May 1979 1 38 ! 1 39 !-- XDUMPF XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 2 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 1 41 ! 1 42 ! TABLE OF CONTENTS: 1 43 ! 1 44 1 45 FORWARD ROUTINE 1 46 XPO$DUMP_FIELD : NOVALUE; ! Control block field dumper 1 47 1 48 ! 1 49 ! INCLUDE FILES: 1 50 ! 1 51 1 52 LIBRARY 'XPORT' ; ! Public XPORT control block and macro definitions 1 54 LIBRARY 'XPOSYS' ; ! Internal XPORT macro definitions 1 56 UNDECLARE $xpo$internal; ! Cause XPORT temporary strings to be freed 1 57 1 58 $XPO_SYS_TEST( $ALL ) ; %PRINT: This module was compiled for any VAX-11 system ; %PRINT: XPORT V1.3-51 XPOSYS V1.3-16 XPO$K_VERSION = 1 XPO$K_LEVEL = 3 1 59 1 60 ! 1 61 ! MACROS: 1 62 ! 1 63 1 64 MACRO 1 65 add_text( string_info ) = M 1 66 %EXPAND $STR_APPEND( STRING = string_info, P 1 67 TARGET = message, P 1 68 FAILURE = 0 ) %; 1 69 1 70 ! 1 71 ! EQUATED SYMBOLS: 1 72 ! 1 73 1 74 ! 1 75 ! PSECT DECLARATIONS: 1 76 ! 1 77 1 78 $XPO_PSECTS ! Declare XPORT PSECT names and attributes 1 79 1 80 ! 1 81 ! OWN STORAGE: 1 82 ! 1 83 1 84 OWN 1 85 message : ! Message descriptor 1 86 $STR_DESCRIPTOR( CLASS=DYNAMIC_BOUNDED ), 1 87 1 88 message_iob : $XPO_IOB(), 1 89 1 90 apostrophe : $STR_DESCRIPTOR( STRING = '''' ); 1 91 1 92 ! 1 93 ! EXTERNAL REFERENCES: 1 94 ! XDUMPF XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 3 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 1 96 GLOBAL ROUTINE XPO$DUMP_FIELD ( field_name, field_type, field_value ) : NOVALUE = 1 97 1 98 !++ 1 99 ! 1 100 ! FUNCTIONAL DESCRIPTION: 1 101 ! 1 102 ! This routine displays the content of a single control block field. 1 103 ! 1 104 ! FORMAL PARAMETERS: 1 105 ! 1 106 ! field_name - address of field name descriptor 1 107 ! field_type - field type code 1 108 ! field_value - value associated with the field (type-dependent) 1 109 ! 1 110 ! IMPLICIT INPUTS: 1 111 ! 1 112 ! None 1 113 ! 1 114 ! IMPLICIT OUTPUTS: 1 115 ! 1 116 ! None 1 117 ! 1 118 ! ROUTINE VALUE: 1 119 ! 1 120 ! None 1 121 ! 1 122 ! SIDE EFFECTS: 1 123 ! 1 124 ! None 1 125 ! 1 126 !-- 1 127 1 128 BEGIN 2 129 2 130 BIND 2 131 descriptor = .field_value : $STR_DESCRIPTOR( CLASS = BOUNDED ); 2 132 2 133 LOCAL 2 134 data_type, ! Local field data type code 2 135 value; ! Local field value 2 136 2 137 $LITERAL ! Internal data types: 2 138 binary_desc = -$DISTINCT, ! binary data descriptor 2 139 ref_binary_desc = -$DISTINCT, ! REF binary data descriptor 2 140 invalid_desc = -$DISTINCT, ! invalid descriptor 2 141 ref_invalid_desc = -$DISTINCT; ! REF invalid descriptor 2 142 2 143 ! 2 144 ! Open the message output IOB if necessary. 2 145 ! 2 146 2 147 IF NOT .message_iob[IOB$V_OPEN] ! If the message IOB has not been opened, 2 148 THEN ! 2 149 BEGIN ! 3 150 $XPO_OPEN( IOB = message_iob, ! open the message file for output P 3 151 FILE_SPEC = $XPO_OUTPUT, ! P 3 152 OPTIONS = OUTPUT, ! XDUMPF XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 4 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 P 3 153 FAILURE = 0 ); ! 3 154 ! 3 155 $STR_DESC_INIT( DESCRIPTOR = message, ! and then initialize the message descriptor. P 3 156 CLASS = DYNAMIC_BOUNDED ); 3 157 END; 2 158 2 159 ! 2 160 ! Setup the local field data type code and field value. 2 161 ! 2 162 2 163 data_type = .field_type; ! Start out with the field type code. 2 164 2 165 value = .field_value; ! Setup the default field value. 2 166 2 167 SELECTONE .data_type OF ! Possibly select an alternate internal data type. 2 168 SET 2 169 2 170 [ XPO$K_DESCRIPTO ] : 2 171 IF .descriptor[STR$B_DTYPE] EQL XPO$K_DTYPE_BU 2 172 THEN 2 173 data_type = binary_desc 2 174 ELSE 2 175 IF NOT $STR_VALIDATE( descriptor ) 3 176 THEN 2 177 data_type = invalid_desc; 2 178 2 179 [ XPO$K_REF_DESCR ] : 2 180 IF descriptor EQL 0 2 181 THEN 2 182 data_type = XPO$K_ADDRESS 2 183 ELSE 2 184 IF .descriptor[STR$B_DTYPE] EQL XPO$K_DTYPE_BU 2 185 THEN 2 186 data_type = ref_binary_desc 2 187 ELSE 2 188 IF NOT $STR_VALIDATE( descriptor ) 3 189 THEN 2 190 data_type = ref_invalid_desc; 2 191 TES; 2 192 2 193 2 194 ! 2 195 ! Each line begins with the name of the field. 2 196 ! 2 197 2 198 $STR_COPY( STRING = .field_name, TARGET = message, FAILURE = 0 ); 2 199 2 200 ! 2 201 ! Use the field data type to select appropriate message segments. 2 202 ! 2 203 2 204 SELECT .data_type OF 2 205 SET 2 206 2 207 [ XPO$K_BYTE, XPO$K_BYTES, 2 208 XPO$K_INTEGER, 2 209 XPO$K_ADDRESS, XPO$K_POINTER, XDUMPF XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 5 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 2 210 binary_desc, invalid_desc ] : 2 211 2 212 add_text( ' = ' ); 2 213 2 214 [ XPO$K_SUB_BLOCK, XPO$K_STRING ] : 2 215 2 216 add_text( ' begins at ' ); 2 217 2 218 [ XPO$K_BIT ] : 2 219 2 220 IF .value 2 221 THEN 2 222 add_text( ' = on' ) 3 223 ELSE 2 224 add_text( ' = off' ); 2 225 2 226 [ XPO$K_BITS ] : 2 227 2 228 BEGIN 3 229 add_text( ' = %B''' ); 3 230 add_text( $STR_ASCII(.value,BASE2) ); 3 231 add_text( apostrophe ); 3 232 END; 2 233 2 234 [ XPO$K_DESCRIPTO ] : 2 235 2 236 add_text( ' = ''' ); 2 237 2 238 [ XPO$K_REF_DESCR ] : 2 239 2 240 add_text( ' = REF ''' ); 2 241 2 242 [ XPO$K_DESCRIPTO, XPO$K_REF_DESCR ] : 2 243 2 244 BEGIN 3 245 IF .descriptor[STR$B_DTYPE] EQL STR$K_DTYPE_XXX 3 246 THEN 3 247 add_text( '[invalid string]' ) 4 248 ELSE 3 249 add_text( (.descriptor[STR$H_LENGTH], .descriptor[STR$A_POINTER]) ); 3 250 add_text( apostrophe ); 3 251 END; 2 252 2 253 [ ref_binary_desc, ref_invalid_desc ] : 2 254 2 255 add_text( ' = REF ' ); 2 256 2 257 [ binary_desc, ref_binary_desc ] : 2 258 2 259 BEGIN 3 260 add_text( $STR_ASCII(.descriptor[STR$H_LENGTH]) ); 3 261 add_text( ' units at ' ); 3 262 3 263 value = .descriptor[STR$A_POINTER]; ! Have the message point to the data 3 264 ! rather than to the descriptor. 3 265 END; 2 266 XDUMPF XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 6 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 2 267 [ invalid_desc, ref_invalid_desc ] : 2 268 2 269 add_text( '[invalid descriptor] at ' ); 2 270 2 271 [ XPO$K_INTEGER ] : 2 272 2 273 add_text( $STR_ASCII(.value) ); 2 274 2 275 [ XPO$K_BYTE, XPO$K_BYTES, 2 276 %BLISS16( XPO$K_ADDRESS %QUOTE , ) 2 277 %BLISS32( XPO$K_ADDRESS %QUOTE , ) 2 278 XPO$K_POINTER, 2 279 XPO$K_SUB_BLOCK, XPO$K_STRING, 2 280 binary_desc, ref_binary_desc, 2 281 invalid_desc, ref_invalid_desc ] : 2 282 2 283 BEGIN 3 284 %IF %BLISS(BLISS32) %THEN 3 285 add_text( '%X''' ); 3 286 add_text( $STR_ASCII(.value,BASE16) ); 3 287 %ELSE U 3 288 add_text( '%O''' ); U 3 289 add_text( $STR_ASCII(.value,BASE8) ); U 3 290 %FI 3 291 add_text( apostrophe ); 3 292 END; 2 293 2 294 [ XPO$K_ADDRESS ] : 2 295 2 296 BEGIN 3 297 %IF %BLISS(BLISS36) %THEN U 3 298 add_text( '%O''' ); U 3 299 add_text( $STR_ASCII(.value,BASE8,LENGTH=6) ); U 3 300 %FI 3 301 add_text( ' (address)' ); 3 302 END; 2 303 2 304 [ XPO$K_POINTER ] : 2 305 2 306 add_text( ' (pointer)' ); 2 307 2 308 [ XPO$K_DESCRIPTO, XPO$K_REF_DESCR, binary_desc, ref_binary_desc ] : 2 309 2 310 BEGIN 3 311 add_text( ', CLASS = ' ); 3 312 3 313 SELECTONE .descriptor[STR$B_CLASS] OF 3 314 SET 3 315 3 316 [ STR$K_CLASS_Z ] : 3 317 3 318 add_text( 'undefined' ); 3 319 3 320 [ STR$K_CLASS_F ] : 3 321 3 322 add_text( 'FIXED' ); 3 323 XDUMPF XPO$DUMP_FIELD - XPORT Control 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 7 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 3 324 [ STR$K_CLASS_D ] : 3 325 3 326 add_text( 'DYNAMIC' ); 3 327 3 328 [ STR$K_CLASS_B ] : 3 329 3 330 BEGIN 4 331 add_text( 'BOUNDED' ); 4 332 add_text( ', maximum length = ' ); 4 333 add_text( $STR_ASCII(.descriptor[STR$H_MAXLEN]) ); 4 334 END; 3 335 3 336 [ STR$K_CLASS_DB ] : 3 337 3 338 BEGIN 4 339 add_text( 'DYNAMIC_BOUNDED', TARGET = message, FAILURE =0 ); 4 340 add_text( ', maximum length = ' ); 4 341 add_text( $STR_ASCII(.descriptor[STR$H_MAXLEN]) ); 4 342 END; 3 343 3 344 [ OTHERWISE ] : 3 345 3 346 add_text( '[invalid class]' ); 3 347 3 348 TES; 3 349 END; 2 350 TES; 2 351 2 352 ! 2 353 ! Output a completed message. 2 354 ! 2 355 2 356 $XPO_PUT( IOB = message_iob, STRING = message ); 2 357 2 358 2 359 ! 2 360 ! Return to the caller. 2 361 ! 2 362 2 363 RETURN 2 364 2 365 END; 1 366 END 1 367 ELUDOM XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 8 V1.2-10 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 .psect _XPO$CODE, CON, LCL, SHR, EXE, NOWRT, NOVEC .proc XPO$DUMP_FIELD .align 32 .global XPO$DUMP_FIELD XPO$DUMP_FIELD: // 000096 { .mii 002C04BA1A00 0000 alloc r104 = rspfs, 3, 72, 5, 0 012000100A00 0001 add r40 = @ltoff(MESSAGE_IOB), r1 // 000147 010800101A80 0002 mov r106 = r1 // 000096 } { .mii 0119F8CE0300 0010 adds r12 = -16, r12 0001880019C0 0011 mov r103 = br0 0000B2200A40 0012 sxt4 r41 = FIELD_VALUE ;; // r41 = r34 // 000131 } { .mii 0080C2800A00 0020 ld8 r40 = MESSAGE_IOB // r40 = [r40] // 000147 000198001A40 0021 mov r105 = pr ;; // 000096 010802860A00 0022 adds r40 = 48, r40 ;; // 000147 } { .mmi 00B08A8A00C0 0030 ld4 r3 = [r40], -48 ;; 000008000000 0031 nop.m 0 00A4003400C0 0032 extr.u r3 = r3, 16, 1 ;; } { .mib 000008000000 0040 nop.m 0 00A0303001C0 0041 tbit.z pr7, pr6 = r3, 0 008600016006 0042 (pr6) br.cond.dpnt.few L$2 } { .mii 010802858A00 0050 adds r40 = 44, r40 // 000153 012000800240 0051 addl r9 = 131072, r0 012000002440 0052 mov r17 = 1 ;; } { .mii 008082800200 0060 ld4 r8 = [r40] 01080A8A0280 0061 adds r10 = 208, r40 000008000000 0062 nop.i 0 } { .mlx 012000006640 0070 mov r25 = 3 01FFFFFFFEF8 0071 movl r42 = -1106378752 // 000156 01A0070015 } { .mii 000008000000 0080 nop.m 0 0000B0001B40 0081 sxt4 r109 = r0 // 000153 0000B0001B00 0082 sxt4 r108 = r0 ;; } { .mmi 010070910200 0090 or r8 = r8, r9 ;; 008C82810000 0091 st4 [r40] = r8 000008000000 0092 nop.i 0 } { .mmi 00BC0A823600 00A0 st1 [r40] = r17, -40 ;; XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 9 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 00BC8A815F00 00A1 st4 [r40] = r10, -4 000008000000 00A2 nop.i 0 ;; } { .mib 000008000000 00B0 nop.m 0 0000B2801AC0 00B1 sxt4 r107 = r40 00A000001000 00B2 br.call.sptk.many br0 = XPO$OPEN } { .mii 0119FA8E8A00 00C0 adds r40 = -12, r40 // 000156 010806A00040 00C1 mov r1 = r106 // 000153 000008000000 00C2 nop.i 0 ;; } { .mmi 00AC82854200 00D0 st4 [r40] = r42, 8 ;; // 000156 00BC8A801F00 00D1 st4 [r40] = r0, -4 000008000000 00D2 nop.i 0 ;; } { .mmi 00AC82800200 00E0 st4 [r40] = r0, 8 ;; 000008000000 00E1 nop.m 0 000008000000 00E2 nop.i 0 } 00F0 L$2: // 000147 { .mii 01CC32112000 00F0 cmp4.eq pr0, pr6 = 9, FIELD_TYPE // pr0, pr6 = 9, r33 // 000167 010802200BC0 00F1 mov VALUE = FIELD_VALUE // r47 = r34 // 000165 010802100B80 00F2 mov DATA_TYPE = FIELD_TYPE // r46 = r33 // 000163 } { .mfb 000008000000 0100 nop.m 0 000008000000 0101 nop.f 0 008600010006 0102 (pr6) br.cond.dpnt.few L$6 // 000167 } { .mmi 010802904A40 0110 adds r41 = 2, r41 ;; // 000171 00B00A9FCC00 0111 ld1 r48 = [r41], -2 000008000000 0112 nop.i 0 ;; } { .mfb 01CC43004000 0120 cmp4.eq pr0, pr8 = 2, r48 000008000000 0121 nop.f 0 008600004008 0122 (pr8) br.cond.dpnt.few L$10 } { .mfb 0119F80FEB80 0130 adds DATA_TYPE = -1, r0 // r46 = -1, r0 // 000173 000008000000 0131 nop.f 0 00800001E000 0132 br.sptk.few L$12 ;; // 000171 } 0140 L$10: // 000175 { .mii 012000002640 0140 mov r25 = 1 0000B2901AC0 0141 sxt4 r107 = r41 0119F80FAC80 0142 adds r50 = -3, r0 // 000177 } { .mfb 000008000000 0150 nop.m 0 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 10 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 000008000000 0151 nop.f 0 00A000001000 0152 br.call.sptk.many br0 = XST$VALIDATE // 000175 } { .mii 010806A00040 0160 mov r1 = r106 00A030800000 0161 tbit.z pr0, pr6 = r8, 0 ;; 010802100C86 0162 (pr6) mov r50 = FIELD_TYPE ;; // r50 = r33 // 000177 } { .mfb 010803200B80 0170 mov DATA_TYPE = r50 // r46 = r50 000008000000 0171 nop.f 0 008000016000 0172 br.sptk.few L$12 ;; // 000175 } 0180 L$6: // 000167 { .mfb 01CC3A114000 0180 cmp4.eq pr0, pr7 = 10, FIELD_TYPE // pr0, pr7 = 10, r33 000008000000 0181 nop.f 0 008600014007 0182 (pr7) br.cond.dpnt.few L$12 } { .mfb 01C44A900000 0190 cmp4.eq pr0, pr9 = r0, r41 // 000180 000008000000 0191 nop.f 0 008600004009 0192 (pr9) br.cond.dpnt.few L$16 } { .mfb 012000008B80 01A0 mov DATA_TYPE = 4 // r46 = 4 // 000182 000008000000 01A1 nop.f 0 008000010000 01A2 br.sptk.few L$12 ;; // 000180 } 01B0 L$16: { .mmi 010802904A40 01B0 adds r41 = 2, r41 ;; // 000184 00B00A9FCCC0 01B1 ld1 r51 = [r41], -2 000008000000 01B2 nop.i 0 ;; } { .mfb 01CC5B304000 01C0 cmp4.eq pr0, pr11 = 2, r51 000008000000 01C1 nop.f 0 00860000400B 01C2 (pr11) br.cond.dpnt.few L$20 } { .mfb 0119F80FCB80 01D0 adds DATA_TYPE = -2, r0 // r46 = -2, r0 // 000186 000008000000 01D1 nop.f 0 00800000A000 01D2 br.sptk.few L$12 ;; // 000184 } 01E0 L$20: // 000188 { .mii 012000002640 01E0 mov r25 = 1 0000B2901AC0 01E1 sxt4 r107 = r41 0119F80F8D40 01E2 adds r53 = -4, r0 // 000190 } { .mfb 000008000000 01F0 nop.m 0 000008000000 01F1 nop.f 0 00A000001000 01F2 br.call.sptk.many br0 = XST$VALIDATE // 000188 } { .mii XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 11 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 010806A00040 0200 mov r1 = r106 00A030800000 0201 tbit.z pr0, pr6 = r8, 0 ;; 010802100D46 0202 (pr6) mov r53 = FIELD_TYPE ;; // r53 = r33 // 000190 } { .mfi 010803500B80 0210 mov DATA_TYPE = r53 // r46 = r53 000008000000 0211 nop.f 0 000008000000 0212 nop.i 0 } 0220 L$12: // 000198 { .mii 0119FA8E8D80 0220 adds r54 = -12, r40 01200000A640 0221 mov r25 = 5 0000B0001BC0 0222 sxt4 r111 = r0 ;; } { .mii 000008000000 0230 nop.m 0 0000B0001B80 0231 sxt4 r110 = r0 0000B3601B40 0232 sxt4 r109 = r54 } { .mii 000008000000 0240 nop.m 0 0000B2001B00 0241 sxt4 r108 = FIELD_NAME // r108 = r32 0000B0001AC0 0242 sxt4 r107 = r0 } { .mfb 000008000000 0250 nop.m 0 000008000000 0251 nop.f 0 00A000001000 0252 br.call.sptk.many br0 = XST$COPY } { .mii 01DC02EFE240 0260 cmp4.eq pr9, pr0 = -1, DATA_TYPE // pr9, pr0 = -1, r46 // 000204 01DC32EFA1C0 0261 cmp4.eq pr7, pr6 = -3, DATA_TYPE // pr7, pr6 = -3, r46 0119FAEFEDC0 0262 adds r55 = -1, DATA_TYPE // r55 = -1, r46 } { .mmi 010806A00040 0270 mov r1 = r106 ;; // 000198 01AC53708000 0271 cmp4.ltu pr0, pr10 = 4, r55 // 000204 01C2300001C9 0272 (pr9) cmp.eq.or.andcm pr7, pr6 = r0, r0 ;; } { .mbb 01C2300001CA 0280 (pr10) cmp.eq.or.andcm pr7, pr6 = r0, r0 008600002007 0281 (pr7) br.cond.dpnt.few L$22 00860000C006 0282 (pr6) br.cond.dpnt.few L$23 } 0290 L$22: // 000212 { .mii 012000100E00 0290 add r56 = @ltoff($STR$STRING), r1 0119FA8E8D80 0291 adds r54 = -12, r40 01200000A640 0292 mov r25 = 5 ;; } { .mii 0080C3800E00 02A0 ld8 r56 = $STR$STRING // r56 = [r56] 0000B0001BC0 02A1 sxt4 r111 = r0 0000B0001B80 02A2 sxt4 r110 = r0 } { .mii XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 12 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 000008000000 02B0 nop.m 0 0000B3601B40 02B1 sxt4 r109 = r54 0000B0001AC0 02B2 sxt4 r107 = r0 ;; } { .mib 000008000000 02C0 nop.m 0 0000B3801B00 02C1 sxt4 r108 = r56 00A000001000 02C2 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 02D0 mov r1 = r106 000008000000 02D1 nop.f 0 000008000000 02D2 nop.i 0 } 02E0 L$23: // 000204 { .mii 01CC42E16240 02E0 cmp4.eq pr9, pr8 = 11, DATA_TYPE // pr9, pr8 = 11, r46 01CC32E101C0 02E1 cmp4.eq pr7, pr6 = 8, DATA_TYPE ;; // pr7, pr6 = 8, r46 01C2300001C9 02E2 (pr9) cmp.eq.or.andcm pr7, pr6 = r0, r0 ;; } { .mib 01C000001087 02F0 (pr7) cmp.eq.unc pr2, pr0 = r0, r0 01C000001286 02F1 (pr6) cmp.eq.unc pr10, pr0 = r0, r0 00860000C00A 02F2 (pr10) br.cond.dpnt.few L$24 } { .mii 012000100E40 0300 add r57 = @ltoff($STR$STRING), r1 // 000216 0119FA8E8D80 0301 adds r54 = -12, r40 01200000A640 0302 mov r25 = 5 ;; } { .mii 0080C3900E40 0310 ld8 r57 = $STR$STRING // r57 = [r57] 0000B0001BC0 0311 sxt4 r111 = r0 0000B0001B80 0312 sxt4 r110 = r0 } { .mii 000008000000 0320 nop.m 0 0000B3601B40 0321 sxt4 r109 = r54 0000B0001AC0 0322 sxt4 r107 = r0 ;; } { .mib 000008000000 0330 nop.m 0 0000B3901B00 0331 sxt4 r108 = r57 00A000001000 0332 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0340 mov r1 = r106 000008000000 0341 nop.f 0 000008000000 0342 nop.i 0 } 0350 L$24: // 000204 { .mfb 01CC32E0C000 0350 cmp4.eq pr0, pr6 = 6, DATA_TYPE // pr0, pr6 = 6, r46 000008000000 0351 nop.f 0 008600018006 0352 (pr6) br.cond.dpnt.few L$28 } { .mib XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 13 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 000008000000 0360 nop.m 0 00A042200240 0361 tbit.z pr9, pr8 = FIELD_VALUE, 0 // pr9, pr8 = r34, 0 // 000220 00860000C009 0362 (pr9) br.cond.dpnt.few L$31 ;; } { .mii 012000100E80 0370 add r58 = @ltoff($STR$STRING), r1 // 000222 0119FA8E8D80 0371 adds r54 = -12, r40 01200000A640 0372 mov r25 = 5 ;; } { .mii 0080C3A00E80 0380 ld8 r58 = $STR$STRING // r58 = [r58] 0000B0001BC0 0381 sxt4 r111 = r0 0000B0001B80 0382 sxt4 r110 = r0 } { .mii 000008000000 0390 nop.m 0 0000B3601B40 0391 sxt4 r109 = r54 0000B0001AC0 0392 sxt4 r107 = r0 ;; } { .mib 000008000000 03A0 nop.m 0 0000B3A01B00 03A1 sxt4 r108 = r58 00A000001000 03A2 br.call.sptk.many br0 = XST$APPEND } { .mfb 000008000000 03B0 nop.m 0 000008000000 03B1 nop.f 0 00800000A000 03B2 br.sptk.few L$89 ;; } 03C0 L$31: // 000224 { .mii 012000100EC0 03C0 add r59 = @ltoff($STR$STRING), r1 0119FA8E8D80 03C1 adds r54 = -12, r40 01200000A640 03C2 mov r25 = 5 ;; } { .mii 0080C3B00EC0 03D0 ld8 r59 = $STR$STRING // r59 = [r59] 0000B0001BC0 03D1 sxt4 r111 = r0 0000B0001B80 03D2 sxt4 r110 = r0 } { .mii 000008000000 03E0 nop.m 0 0000B3601B40 03E1 sxt4 r109 = r54 0000B0001AC0 03E2 sxt4 r107 = r0 ;; } { .mib 000008000000 03F0 nop.m 0 0000B3B01B00 03F1 sxt4 r108 = r59 00A000001000 03F2 br.call.sptk.many br0 = XST$APPEND } 0400 L$89: { .mfi 010806A00040 0400 mov r1 = r106 000008000000 0401 nop.f 0 000008000000 0402 nop.i 0 } 0410 L$28: // 000204 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 14 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 { .mfb 01CC32E0E000 0410 cmp4.eq pr0, pr6 = 7, DATA_TYPE // pr0, pr6 = 7, r46 000008000000 0411 nop.f 0 008600020006 0412 (pr6) br.cond.dpnt.few L$34 ;; } { .mii 012000100F00 0420 add r60 = @ltoff($STR$STRING), r1 // 000229 0119FA8E8D80 0421 adds r54 = -12, r40 01200000A640 0422 mov r25 = 5 } { .mii 01080A8E8F40 0430 adds r61 = 244, r40 // 000231 0000B0001BC0 0431 sxt4 r111 = r0 // 000229 0000B0001B80 0432 sxt4 r110 = r0 ;; } { .mii 0080C3C00F00 0440 ld8 r60 = $STR$STRING // r60 = [r60] 0000B3601B40 0441 sxt4 r109 = r54 0000B0001AC0 0442 sxt4 r107 = r0 ;; } { .mib 0119FA8E8D80 0450 adds r54 = -12, r40 // 000230 0000B3C01B00 0451 sxt4 r108 = r60 // 000229 00A000001000 0452 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 012000006640 0460 mov r25 = 3 // 000230 0000B0001B40 0461 sxt4 r109 = r0 0000B2201B00 0462 sxt4 r108 = FIELD_VALUE // r108 = r34 } { .mib 012060003AC0 0470 mov r107 = 1537 010806A00040 0471 mov r1 = r106 // 000229 004000000000 0472 nop.b 0 ;; } { .mfb 000008000000 0480 nop.m 0 000008000000 0481 nop.f 0 00A000001000 0482 br.call.sptk.many br0 = XST$ASCII // 000230 } { .mii 01200000A640 0490 mov r25 = 5 0000B3601B40 0491 sxt4 r109 = r54 0119FA8E8D80 0492 adds r54 = -12, r40 // 000231 } { .mii 010806A00040 04A0 mov r1 = r106 // 000230 0000B0001BC0 04A1 sxt4 r111 = r0 0000B0001B80 04A2 sxt4 r110 = r0 ;; } { .mii 000008000000 04B0 nop.m 0 0000B0801B00 04B1 sxt4 r108 = r8 0000B0001AC0 04B2 sxt4 r107 = r0 } { .mfb 000008000000 04C0 nop.m 0 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 15 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 000008000000 04C1 nop.f 0 00A000001000 04C2 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 01200000A640 04D0 mov r25 = 5 // 000231 0000B0001BC0 04D1 sxt4 r111 = r0 0000B0001B80 04D2 sxt4 r110 = r0 } { .mii 010806A00040 04E0 mov r1 = r106 // 000230 0000B3601B40 04E1 sxt4 r109 = r54 // 000231 0000B3D01B00 04E2 sxt4 r108 = r61 ;; } { .mib 000008000000 04F0 nop.m 0 0000B0001AC0 04F1 sxt4 r107 = r0 00A000001000 04F2 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0500 mov r1 = r106 000008000000 0501 nop.f 0 000008000000 0502 nop.i 0 } 0510 L$34: // 000204 { .mfb 01CC32E12000 0510 cmp4.eq pr0, pr6 = 9, DATA_TYPE // pr0, pr6 = 9, r46 000008000000 0511 nop.f 0 00860000C006 0512 (pr6) br.cond.dpnt.few L$38 ;; } { .mii 012000100F80 0520 add r62 = @ltoff($STR$STRING), r1 // 000236 0119FA8E8D80 0521 adds r54 = -12, r40 01200000A640 0522 mov r25 = 5 ;; } { .mii 0080C3E00F80 0530 ld8 r62 = $STR$STRING // r62 = [r62] 0000B0001BC0 0531 sxt4 r111 = r0 0000B0001B80 0532 sxt4 r110 = r0 } { .mii 000008000000 0540 nop.m 0 0000B3601B40 0541 sxt4 r109 = r54 0000B0001AC0 0542 sxt4 r107 = r0 ;; } { .mib 000008000000 0550 nop.m 0 0000B3E01B00 0551 sxt4 r108 = r62 00A000001000 0552 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0560 mov r1 = r106 000008000000 0561 nop.f 0 000008000000 0562 nop.i 0 } 0570 L$38: // 000204 { .mfb 01CC32E14000 0570 cmp4.eq pr0, pr6 = 10, DATA_TYPE // pr0, pr6 = 10, r46 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 16 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 000008000000 0571 nop.f 0 00860000C006 0572 (pr6) br.cond.dpnt.few L$42 ;; } { .mii 012000100FC0 0580 add r63 = @ltoff($STR$STRING), r1 // 000240 0119FA8E8D80 0581 adds r54 = -12, r40 01200000A640 0582 mov r25 = 5 ;; } { .mii 0080C3F00FC0 0590 ld8 r63 = $STR$STRING // r63 = [r63] 0000B0001BC0 0591 sxt4 r111 = r0 0000B0001B80 0592 sxt4 r110 = r0 } { .mii 000008000000 05A0 nop.m 0 0000B3601B40 05A1 sxt4 r109 = r54 0000B0001AC0 05A2 sxt4 r107 = r0 ;; } { .mib 000008000000 05B0 nop.m 0 0000B3F01B00 05B1 sxt4 r108 = r63 00A000001000 05B2 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 05C0 mov r1 = r106 000008000000 05C1 nop.f 0 000008000000 05C2 nop.i 0 } 05D0 L$42: // 000204 { .mmi 0119FAEEF000 05D0 adds r64 = -9, DATA_TYPE ;; // r64 = -9, r46 01AC340021C0 05D1 cmp4.ltu pr7, pr6 = 1, r64 000008000000 05D2 nop.i 0 ;; } { .mib 01C000001207 05E0 (pr7) cmp.eq.unc pr8, pr0 = r0, r0 01C0000010C6 05E1 (pr6) cmp.eq.unc pr3, pr0 = r0, r0 008600004003 05E2 (pr3) br.cond.dpnt.few L$44 } { .mfb 000008000000 05F0 nop.m 0 000008000000 05F1 nop.f 0 008600028008 05F2 (pr8) br.cond.dpnt.few L$45 } 0600 L$44: { .mmi 010802904A40 0600 adds r41 = 2, r41 ;; // 000245 00B00A9FD040 0601 ld1 r65 = [r41], -2 000008000000 0602 nop.i 0 ;; } { .mfb 01C44C100000 0610 cmp4.eq pr0, pr9 = r0, r65 000008000000 0611 nop.f 0 00860000C009 0612 (pr9) br.cond.dpnt.few L$46 } { .mii 012000101080 0620 add r66 = @ltoff($STR$STRING), r1 // 000247 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 17 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0119FA8E8D80 0621 adds r54 = -12, r40 01200000A640 0622 mov r25 = 5 ;; } { .mii 0080C4201080 0630 ld8 r66 = $STR$STRING // r66 = [r66] 0000B0001BC0 0631 sxt4 r111 = r0 0000B0001B80 0632 sxt4 r110 = r0 } { .mii 000008000000 0640 nop.m 0 0000B3601B40 0641 sxt4 r109 = r54 0000B0001AC0 0642 sxt4 r107 = r0 ;; } { .mib 000008000000 0650 nop.m 0 0000B4201B00 0651 sxt4 r108 = r66 00A000001000 0652 br.call.sptk.many br0 = XST$APPEND } { .mfb 000008000000 0660 nop.m 0 000008000000 0661 nop.f 0 008000010000 0662 br.sptk.few L$90 ;; } 0670 L$46: // 000249 { .mii 00A0429090C0 0670 ld2 r67 = [r41], 4 010800C21100 0671 adds r68 = 16, r12 010800C25180 0672 adds r70 = 18, r12 } { .mmi 01201001D140 0680 mov r69 = 270 010800C291C0 0681 adds r71 = 20, r12 010800C21200 0682 adds r72 = 16, r12 ;; } { .mii 0119FA8E8D80 0690 adds r54 = -12, r40 01200000A640 0691 mov r25 = 5 0000B0001BC0 0692 sxt4 r111 = r0 } { .mmi 008C44486000 06A0 st2 [r68] = r67 008C4468A000 06A1 st2 [r70] = r69 0000B0001B80 06A2 sxt4 r110 = r0 ;; } { .mii 00B08A9F9140 06B0 ld4 r69 = [r41], -4 0000B3601B40 06B1 sxt4 r109 = r54 0000B4801B00 06B2 sxt4 r108 = r72 ;; } { .mib 000008000000 06C0 nop.m 0 0000B0001AC0 06C1 sxt4 r107 = r0 004000000000 06C2 nop.b 0 } { .mfb 008C8478A000 06D0 st4 [r71] = r69 000008000000 06D1 nop.f 0 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 18 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 00A000001000 06D2 br.call.sptk.many br0 = XST$APPEND } 06E0 L$90: { .mii 0119FA8E8D80 06E0 adds r54 = -12, r40 // 000250 01080A8E9240 06E1 adds r73 = 244, r40 01200000A640 06E2 mov r25 = 5 } { .mii 010806A00040 06F0 mov r1 = r106 // 000249 0000B0001BC0 06F1 sxt4 r111 = r0 // 000250 0000B0001B80 06F2 sxt4 r110 = r0 ;; } { .mii 000008000000 0700 nop.m 0 0000B3601B40 0701 sxt4 r109 = r54 0000B4901B00 0702 sxt4 r108 = r73 } { .mib 000008000000 0710 nop.m 0 0000B0001AC0 0711 sxt4 r107 = r0 00A000001000 0712 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0720 mov r1 = r106 000008000000 0721 nop.f 0 000008000000 0722 nop.i 0 } 0730 L$45: // 000204 { .mii 01DC02EFC240 0730 cmp4.eq pr9, pr0 = -2, DATA_TYPE // pr9, pr0 = -2, r46 01DC32EF81C0 0731 cmp4.eq pr7, pr6 = -4, DATA_TYPE ;; // pr7, pr6 = -4, r46 01C230000009 0732 (pr9) cmp.eq.or.andcm pr0, pr6 = r0, r0 } { .mfb 000008000000 0740 nop.m 0 000008000000 0741 nop.f 0 00860000C006 0742 (pr6) br.cond.dpnt.few L$49 } { .mii 012000101280 0750 add r74 = @ltoff($STR$STRING), r1 // 000255 0119FA8E8D80 0751 adds r54 = -12, r40 01200000A640 0752 mov r25 = 5 ;; } { .mii 0080C4A01280 0760 ld8 r74 = $STR$STRING // r74 = [r74] 0000B0001BC0 0761 sxt4 r111 = r0 0000B0001B80 0762 sxt4 r110 = r0 } { .mii 000008000000 0770 nop.m 0 0000B3601B40 0771 sxt4 r109 = r54 0000B0001AC0 0772 sxt4 r107 = r0 ;; } { .mib 000008000000 0780 nop.m 0 0000B4A01B00 0781 sxt4 r108 = r74 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 19 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 00A000001000 0782 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0790 mov r1 = r106 000008000000 0791 nop.f 0 000008000000 0792 nop.i 0 } 07A0 L$49: // 000204 { .mii 012000005300 07A0 mov r76 = 2 010802E052C0 07A1 adds r75 = 2, DATA_TYPE ;; // r75 = 2, r46 01A43CC96180 07A2 cmp4.ltu pr6, pr7 = r75, r76 ;; } { .mib 01C000001147 07B0 (pr7) cmp.eq.unc pr5, pr0 = r0, r0 01C000001106 07B1 (pr6) cmp.eq.unc pr4, pr0 = r0, r0 008600004004 07B2 (pr4) br.cond.dpnt.few L$51 } { .mfb 000008000000 07C0 nop.m 0 000008000000 07C1 nop.f 0 008600018005 07C2 (pr5) br.cond.dpnt.few L$52 } 07D0 L$51: // 000260 { .mii 00A042909340 07D0 ld2 r77 = [r41], 4 0119FA8E8D80 07D1 adds r54 = -12, r40 012000006640 07D2 mov r25 = 3 } { .mii 012090007AC0 07E0 mov r107 = 2307 0000B0001B40 07E1 sxt4 r109 = r0 ;; 0000B4D01B00 07E2 sxt4 r108 = r77 } { .mfb 000008000000 07F0 nop.m 0 000008000000 07F1 nop.f 0 00A000001000 07F2 br.call.sptk.many br0 = XST$ASCII ;; } { .mii 01200000A640 0800 mov r25 = 5 0000B0001BC0 0801 sxt4 r111 = r0 0000B0001B80 0802 sxt4 r110 = r0 } { .mii 010806A00040 0810 mov r1 = r106 0000B3601B40 0811 sxt4 r109 = r54 0000B0801B00 0812 sxt4 r108 = r8 ;; } { .mib 0119FA8E8D80 0820 adds r54 = -12, r40 // 000261 0000B0001AC0 0821 sxt4 r107 = r0 // 000260 00A000001000 0822 br.call.sptk.many br0 = XST$APPEND } { .mii 010806A00040 0830 mov r1 = r106 01200000A640 0831 mov r25 = 5 // 000261 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 20 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0000B0001BC0 0832 sxt4 r111 = r0 ;; } { .mii 012000101380 0840 add r78 = @ltoff($STR$STRING), r1 0000B0001B80 0841 sxt4 r110 = r0 0000B3601B40 0842 sxt4 r109 = r54 ;; } { .mii 0080C4E01380 0850 ld8 r78 = $STR$STRING // r78 = [r78] 0000B0001AC0 0851 sxt4 r107 = r0 ;; 0000B4E01B00 0852 sxt4 r108 = r78 } { .mfb 000008000000 0860 nop.m 0 000008000000 0861 nop.f 0 00A000001000 0862 br.call.sptk.many br0 = XST$APPEND } { .mii 00B08A9F8BC0 0870 ld4 VALUE = [r41], -4 // r47 = [r41], -4 // 000263 010806A00040 0871 mov r1 = r106 ;; // 000261 000008000000 0872 nop.i 0 } 0880 L$52: // 000204 { .mmi 010802E09400 0880 adds r80 = 4, DATA_TYPE ;; // r80 = 4, r46 01AC050021C0 0881 cmp4.ltu pr7, pr0 = 1, r80 000008000000 0882 nop.i 0 } { .mfb 000008000000 0890 nop.m 0 000008000000 0891 nop.f 0 00860000C007 0892 (pr7) br.cond.dpnt.few L$56 } { .mii 012000101440 08A0 add r81 = @ltoff($STR$STRING), r1 // 000269 0119FA8E8D80 08A1 adds r54 = -12, r40 01200000A640 08A2 mov r25 = 5 ;; } { .mii 0080C5101440 08B0 ld8 r81 = $STR$STRING // r81 = [r81] 0000B0001BC0 08B1 sxt4 r111 = r0 0000B0001B80 08B2 sxt4 r110 = r0 } { .mii 000008000000 08C0 nop.m 0 0000B3601B40 08C1 sxt4 r109 = r54 0000B0001AC0 08C2 sxt4 r107 = r0 ;; } { .mib 000008000000 08D0 nop.m 0 0000B5101B00 08D1 sxt4 r108 = r81 00A000001000 08D2 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 08E0 mov r1 = r106 000008000000 08E1 nop.f 0 000008000000 08E2 nop.i 0 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 21 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 } 08F0 L$56: // 000204 { .mfb 01CC32E06000 08F0 cmp4.eq pr0, pr6 = 3, DATA_TYPE // pr0, pr6 = 3, r46 000008000000 08F1 nop.f 0 00860000E006 08F2 (pr6) br.cond.dpnt.few L$59 ;; } { .mii 0119FA8E8D80 0900 adds r54 = -12, r40 // 000273 012000006640 0901 mov r25 = 3 0000B0001B40 0902 sxt4 r109 = r0 } { .mib 012090007AC0 0910 mov r107 = 2307 0000B2F01B00 0911 sxt4 r108 = VALUE // r108 = r47 00A000001000 0912 br.call.sptk.many br0 = XST$ASCII ;; } { .mii 01200000A640 0920 mov r25 = 5 0000B0001BC0 0921 sxt4 r111 = r0 0000B0001B80 0922 sxt4 r110 = r0 } { .mii 010806A00040 0930 mov r1 = r106 0000B3601B40 0931 sxt4 r109 = r54 0000B0801B00 0932 sxt4 r108 = r8 ;; } { .mib 000008000000 0940 nop.m 0 0000B0001AC0 0941 sxt4 r107 = r0 00A000001000 0942 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0950 mov r1 = r106 000008000000 0951 nop.f 0 000008000000 0952 nop.i 0 } 0960 L$59: // 000204 { .mii 0120000094C0 0960 mov r83 = 4 0119FAEF9480 0961 adds r82 = -4, DATA_TYPE // r82 = -4, r46 01AC43702000 0962 cmp4.ltu pr0, pr8 = 1, r55 ;; } { .mii 01AC5D202280 0970 cmp4.ltu pr10, pr11 = 1, r82 01A43D3A0180 0971 cmp4.ltu pr6, pr7 = r80, r83 ;; 01C2000002C2 0972 (pr2) cmp.eq.or.andcm pr11, pr0 = r0, r0 } { .mmi 01C238000188 0980 (pr8) cmp.eq.or.andcm pr6, pr7 = r0, r0 ;; 01C23800000B 0981 (pr11) cmp.eq.or.andcm pr0, pr7 = r0, r0 000008000000 0982 nop.i 0 } { .mfb 000008000000 0990 nop.m 0 000008000000 0991 nop.f 0 008600020007 0992 (pr7) br.cond.dpnt.few L$61 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 22 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 } { .mii 012000101500 09A0 add r84 = @ltoff($STR$STRING), r1 // 000285 0119FA8E8D80 09A1 adds r54 = -12, r40 01200000A640 09A2 mov r25 = 5 } { .mii 01080A8E9540 09B0 adds r85 = 244, r40 // 000291 0000B0001BC0 09B1 sxt4 r111 = r0 // 000285 0000B0001B80 09B2 sxt4 r110 = r0 ;; } { .mii 0080C5401500 09C0 ld8 r84 = $STR$STRING // r84 = [r84] 0000B3601B40 09C1 sxt4 r109 = r54 0000B0001AC0 09C2 sxt4 r107 = r0 ;; } { .mib 0119FA8E8D80 09D0 adds r54 = -12, r40 // 000286 0000B5401B00 09D1 sxt4 r108 = r84 // 000285 00A000001000 09D2 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 012000006640 09E0 mov r25 = 3 // 000286 0000B0001B40 09E1 sxt4 r109 = r0 0000B2F01B00 09E2 sxt4 r108 = VALUE // r108 = r47 } { .mib 012060009AC0 09F0 mov r107 = 1540 010806A00040 09F1 mov r1 = r106 // 000285 004000000000 09F2 nop.b 0 ;; } { .mfb 000008000000 0A00 nop.m 0 000008000000 0A01 nop.f 0 00A000001000 0A02 br.call.sptk.many br0 = XST$ASCII // 000286 } { .mii 01200000A640 0A10 mov r25 = 5 0000B3601B40 0A11 sxt4 r109 = r54 0119FA8E8D80 0A12 adds r54 = -12, r40 // 000291 } { .mii 010806A00040 0A20 mov r1 = r106 // 000286 0000B0001BC0 0A21 sxt4 r111 = r0 0000B0001B80 0A22 sxt4 r110 = r0 ;; } { .mii 000008000000 0A30 nop.m 0 0000B0801B00 0A31 sxt4 r108 = r8 0000B0001AC0 0A32 sxt4 r107 = r0 } { .mfb 000008000000 0A40 nop.m 0 000008000000 0A41 nop.f 0 00A000001000 0A42 br.call.sptk.many br0 = XST$APPEND ;; } { .mii XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 23 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 01200000A640 0A50 mov r25 = 5 // 000291 0000B0001BC0 0A51 sxt4 r111 = r0 0000B0001B80 0A52 sxt4 r110 = r0 } { .mii 010806A00040 0A60 mov r1 = r106 // 000286 0000B3601B40 0A61 sxt4 r109 = r54 // 000291 0000B5501B00 0A62 sxt4 r108 = r85 ;; } { .mib 000008000000 0A70 nop.m 0 0000B0001AC0 0A71 sxt4 r107 = r0 00A000001000 0A72 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0A80 mov r1 = r106 000008000000 0A81 nop.f 0 000008000000 0A82 nop.i 0 } 0A90 L$61: // 000204 { .mfb 01CC12E08000 0A90 cmp4.eq pr0, pr2 = 4, DATA_TYPE // pr0, pr2 = 4, r46 000008000000 0A91 nop.f 0 00860000C002 0A92 (pr2) br.cond.dpnt.few L$65 ;; } { .mii 012000101580 0AA0 add r86 = @ltoff($STR$STRING), r1 // 000301 0119FA8E8D80 0AA1 adds r54 = -12, r40 01200000A640 0AA2 mov r25 = 5 ;; } { .mii 0080C5601580 0AB0 ld8 r86 = $STR$STRING // r86 = [r86] 0000B0001BC0 0AB1 sxt4 r111 = r0 0000B0001B80 0AB2 sxt4 r110 = r0 } { .mii 000008000000 0AC0 nop.m 0 0000B3601B40 0AC1 sxt4 r109 = r54 0000B0001AC0 0AC2 sxt4 r107 = r0 ;; } { .mib 000008000000 0AD0 nop.m 0 0000B5601B00 0AD1 sxt4 r108 = r86 00A000001000 0AD2 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0AE0 mov r1 = r106 000008000000 0AE1 nop.f 0 000008000000 0AE2 nop.i 0 } 0AF0 L$65: // 000204 { .mfb 01CC12E0A000 0AF0 cmp4.eq pr0, pr2 = 5, DATA_TYPE // pr0, pr2 = 5, r46 000008000000 0AF1 nop.f 0 00860000C002 0AF2 (pr2) br.cond.dpnt.few L$69 ;; } { .mii XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 24 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0120001015C0 0B00 add r87 = @ltoff($STR$STRING), r1 // 000306 0119FA8E8D80 0B01 adds r54 = -12, r40 01200000A640 0B02 mov r25 = 5 ;; } { .mii 0080C57015C0 0B10 ld8 r87 = $STR$STRING // r87 = [r87] 0000B0001BC0 0B11 sxt4 r111 = r0 0000B0001B80 0B12 sxt4 r110 = r0 } { .mii 000008000000 0B20 nop.m 0 0000B3601B40 0B21 sxt4 r109 = r54 0000B0001AC0 0B22 sxt4 r107 = r0 ;; } { .mib 000008000000 0B30 nop.m 0 0000B5701B00 0B31 sxt4 r108 = r87 00A000001000 0B32 br.call.sptk.many br0 = XST$APPEND } { .mfi 010806A00040 0B40 mov r1 = r106 000008000000 0B41 nop.f 0 000008000000 0B42 nop.i 0 } 0B50 L$69: // 000204 { .mbb 01C228000103 0B50 (pr3) cmp.eq.or.andcm pr4, pr5 = r0, r0 008600002004 0B51 (pr4) br.cond.dpnt.few L$71 00860007C005 0B52 (pr5) br.cond.dpnt.few L$72 ;; } 0B60 L$71: // 000311 { .mii 012000101600 0B60 add r88 = @ltoff($STR$STRING), r1 0119FA8E8D80 0B61 adds r54 = -12, r40 01200000A640 0B62 mov r25 = 5 ;; } { .mii 0080C5801600 0B70 ld8 r88 = $STR$STRING // r88 = [r88] 0000B0001BC0 0B71 sxt4 r111 = r0 0000B0001B80 0B72 sxt4 r110 = r0 } { .mii 000008000000 0B80 nop.m 0 0000B3601B40 0B81 sxt4 r109 = r54 0000B0001AC0 0B82 sxt4 r107 = r0 ;; } { .mib 000008000000 0B90 nop.m 0 0000B5801B00 0B91 sxt4 r108 = r88 00A000001000 0B92 br.call.sptk.many br0 = XST$APPEND } { .mii 010802906A40 0BA0 adds r41 = 3, r41 // 000313 010806A00040 0BA1 mov r1 = r106 // 000311 000008000000 0BA2 nop.i 0 ;; } { .mmi XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 25 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 00B00A9FB640 0BB0 ld1 r89 = [r41], -3 ;; // 000313 01C415900000 0BB1 cmp4.eq pr0, pr2 = r0, r89 000008000000 0BB2 nop.i 0 } { .mfb 000008000000 0BC0 nop.m 0 000008000000 0BC1 nop.f 0 00860000C002 0BC2 (pr2) br.cond.dpnt.few L$73 } { .mii 0119FA8E8D80 0BD0 adds r54 = -12, r40 // 000318 010805811680 0BD1 adds r90 = 8, r88 01200000A640 0BD2 mov r25 = 5 } { .mii 000008000000 0BE0 nop.m 0 0000B0001BC0 0BE1 sxt4 r111 = r0 0000B0001B80 0BE2 sxt4 r110 = r0 ;; } { .mii 000008000000 0BF0 nop.m 0 0000B3601B40 0BF1 sxt4 r109 = r54 0000B5A01B00 0BF2 sxt4 r108 = r90 } { .mib 000008000000 0C00 nop.m 0 0000B0001AC0 0C01 sxt4 r107 = r0 00A000001000 0C02 br.call.sptk.many br0 = XST$APPEND } { .mfb 000008000000 0C10 nop.m 0 000008000000 0C11 nop.f 0 008000062000 0C12 br.sptk.few L$91 ;; } 0C20 L$73: // 000313 { .mfb 01CC25902000 0C20 cmp4.eq pr0, pr4 = 1, r89 000008000000 0C21 nop.f 0 00860000C004 0C22 (pr4) br.cond.dpnt.few L$77 } { .mii 0119FA8E8D80 0C30 adds r54 = -12, r40 // 000322 0108058216C0 0C31 adds r91 = 16, r88 01200000A640 0C32 mov r25 = 5 } { .mii 000008000000 0C40 nop.m 0 0000B0001BC0 0C41 sxt4 r111 = r0 0000B0001B80 0C42 sxt4 r110 = r0 ;; } { .mii 000008000000 0C50 nop.m 0 0000B3601B40 0C51 sxt4 r109 = r54 0000B5B01B00 0C52 sxt4 r108 = r91 } { .mib 000008000000 0C60 nop.m 0 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 26 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0000B0001AC0 0C61 sxt4 r107 = r0 00A000001000 0C62 br.call.sptk.many br0 = XST$APPEND } { .mfb 000008000000 0C70 nop.m 0 000008000000 0C71 nop.f 0 008000056000 0C72 br.sptk.few L$91 ;; } 0C80 L$77: // 000313 { .mfb 01CC15904000 0C80 cmp4.eq pr0, pr2 = 2, r89 000008000000 0C81 nop.f 0 00860000C002 0C82 (pr2) br.cond.dpnt.few L$81 } { .mii 0119FA8E8D80 0C90 adds r54 = -12, r40 // 000326 010805831700 0C91 adds r92 = 24, r88 01200000A640 0C92 mov r25 = 5 } { .mii 000008000000 0CA0 nop.m 0 0000B0001BC0 0CA1 sxt4 r111 = r0 0000B0001B80 0CA2 sxt4 r110 = r0 ;; } { .mii 000008000000 0CB0 nop.m 0 0000B3601B40 0CB1 sxt4 r109 = r54 0000B5C01B00 0CB2 sxt4 r108 = r92 } { .mib 000008000000 0CC0 nop.m 0 0000B0001AC0 0CC1 sxt4 r107 = r0 00A000001000 0CC2 br.call.sptk.many br0 = XST$APPEND } { .mfb 000008000000 0CD0 nop.m 0 000008000000 0CD1 nop.f 0 00800004A000 0CD2 br.sptk.few L$91 ;; } 0CE0 L$81: // 000313 { .mfb 01CC25906000 0CE0 cmp4.eq pr0, pr4 = 3, r89 000008000000 0CE1 nop.f 0 008600020004 0CE2 (pr4) br.cond.dpnt.few L$85 } { .mii 0119FA8E8D80 0CF0 adds r54 = -12, r40 // 000331 010805841740 0CF1 adds r93 = 32, r88 010805851780 0CF2 adds r94 = 40, r88 // 000332 } { .mii 01200000A640 0D00 mov r25 = 5 // 000331 0000B0001BC0 0D01 sxt4 r111 = r0 0000B0001B80 0D02 sxt4 r110 = r0 ;; } { .mii 0108029117C0 0D10 adds r95 = 8, r41 // 000333 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 27 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0000B3601B40 0D11 sxt4 r109 = r54 // 000331 0119FA8E8D80 0D12 adds r54 = -12, r40 // 000332 } { .mii 000008000000 0D20 nop.m 0 0000B5D01B00 0D21 sxt4 r108 = r93 // 000331 0000B0001AC0 0D22 sxt4 r107 = r0 } { .mfb 000008000000 0D30 nop.m 0 000008000000 0D31 nop.f 0 00A000001000 0D32 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 01200000A640 0D40 mov r25 = 5 // 000332 0000B0001BC0 0D41 sxt4 r111 = r0 0000B0001B80 0D42 sxt4 r110 = r0 } { .mii 010806A00040 0D50 mov r1 = r106 // 000331 0000B3601B40 0D51 sxt4 r109 = r54 // 000332 0000B5E01B00 0D52 sxt4 r108 = r94 ;; } { .mib 0119FA8E8D80 0D60 adds r54 = -12, r40 // 000333 0000B0001AC0 0D61 sxt4 r107 = r0 // 000332 00A000001000 0D62 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 008045F00A40 0D70 ld2 r41 = [r95] // 000333 012000006640 0D71 mov r25 = 3 0000B0001B40 0D72 sxt4 r109 = r0 } { .mii 012090007AC0 0D80 mov r107 = 2307 010806A00040 0D81 mov r1 = r106 ;; // 000332 0000B2901B00 0D82 sxt4 r108 = r41 // 000333 } { .mfb 000008000000 0D90 nop.m 0 000008000000 0D91 nop.f 0 00A000001000 0D92 br.call.sptk.many br0 = XST$ASCII ;; } { .mii 01200000A640 0DA0 mov r25 = 5 0000B0001BC0 0DA1 sxt4 r111 = r0 0000B0001B80 0DA2 sxt4 r110 = r0 } { .mii 010806A00040 0DB0 mov r1 = r106 0000B3601B40 0DB1 sxt4 r109 = r54 0000B0801B00 0DB2 sxt4 r108 = r8 ;; } { .mib 000008000000 0DC0 nop.m 0 0000B0001AC0 0DC1 sxt4 r107 = r0 00A000001000 0DC2 br.call.sptk.many br0 = XST$APPEND XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 28 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 } { .mfb 000008000000 0DD0 nop.m 0 000008000000 0DD1 nop.f 0 00800002A000 0DD2 br.sptk.few L$91 ;; } 0DE0 L$85: // 000313 { .mii 01200807D800 0DE0 mov r96 = 190 010802910A40 0DE1 adds r41 = 8, r41 ;; 01C4160B2000 0DE2 cmp4.eq pr0, pr2 = r89, r96 } { .mfb 000008000000 0DF0 nop.m 0 000008000000 0DF1 nop.f 0 00860001E002 0DF2 (pr2) br.cond.dpnt.few L$87 } { .mii 0119FA8E8D80 0E00 adds r54 = -12, r40 // 000339 010805861840 0E01 adds r97 = 48, r88 010805871880 0E02 adds r98 = 56, r88 // 000340 } { .mii 01200000A640 0E10 mov r25 = 5 // 000339 0000B0001BC0 0E11 sxt4 r111 = r0 0000B0001B80 0E12 sxt4 r110 = r0 ;; } { .mii 000008000000 0E20 nop.m 0 0000B3601B40 0E21 sxt4 r109 = r54 0000B6101B00 0E22 sxt4 r108 = r97 } { .mib 0119FA8E8D80 0E30 adds r54 = -12, r40 // 000340 0000B0001AC0 0E31 sxt4 r107 = r0 // 000339 00A000001000 0E32 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 01200000A640 0E40 mov r25 = 5 // 000340 0000B0001BC0 0E41 sxt4 r111 = r0 0000B0001B80 0E42 sxt4 r110 = r0 } { .mii 010806A00040 0E50 mov r1 = r106 // 000339 0000B3601B40 0E51 sxt4 r109 = r54 // 000340 0000B6201B00 0E52 sxt4 r108 = r98 ;; } { .mib 0119FA8E8D80 0E60 adds r54 = -12, r40 // 000341 0000B0001AC0 0E61 sxt4 r107 = r0 // 000340 00A000001000 0E62 br.call.sptk.many br0 = XST$APPEND ;; } { .mii 008042900A40 0E70 ld2 r41 = [r41] // 000341 012000006640 0E71 mov r25 = 3 0000B0001B40 0E72 sxt4 r109 = r0 } XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 29 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 { .mii 012090007AC0 0E80 mov r107 = 2307 010806A00040 0E81 mov r1 = r106 ;; // 000340 0000B2901B00 0E82 sxt4 r108 = r41 // 000341 } { .mfb 000008000000 0E90 nop.m 0 000008000000 0E91 nop.f 0 00A000001000 0E92 br.call.sptk.many br0 = XST$ASCII ;; } { .mii 01200000A640 0EA0 mov r25 = 5 0000B0001BC0 0EA1 sxt4 r111 = r0 0000B0001B80 0EA2 sxt4 r110 = r0 } { .mii 010806A00040 0EB0 mov r1 = r106 0000B3601B40 0EB1 sxt4 r109 = r54 0000B0801B00 0EB2 sxt4 r108 = r8 ;; } { .mib 000008000000 0EC0 nop.m 0 0000B0001AC0 0EC1 sxt4 r107 = r0 00A000001000 0EC2 br.call.sptk.many br0 = XST$APPEND } { .mfb 000008000000 0ED0 nop.m 0 000008000000 0ED1 nop.f 0 00800000A000 0ED2 br.sptk.few L$91 ;; } 0EE0 L$87: // 000346 { .mii 0119FA8E8D80 0EE0 adds r54 = -12, r40 010805881600 0EE1 adds r88 = 64, r88 01200000A640 0EE2 mov r25 = 5 } { .mii 000008000000 0EF0 nop.m 0 0000B0001BC0 0EF1 sxt4 r111 = r0 0000B0001B80 0EF2 sxt4 r110 = r0 ;; } { .mii 000008000000 0F00 nop.m 0 0000B3601B40 0F01 sxt4 r109 = r54 0000B5801B00 0F02 sxt4 r108 = r88 } { .mib 000008000000 0F10 nop.m 0 0000B0001AC0 0F11 sxt4 r107 = r0 00A000001000 0F12 br.call.sptk.many br0 = XST$APPEND } 0F20 L$91: { .mfi 010806A00040 0F20 mov r1 = r106 000008000000 0F21 nop.f 0 000008000000 0F22 nop.i 0 } XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 30 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 0F30 L$72: // 000356 { .mii 01200000F8C0 0F30 mov r99 = 7 0119FA8E8D80 0F31 adds r54 = -12, r40 012000006640 0F32 mov r25 = 3 ;; } { .mii 012000101980 0F40 add r102 = @ltoff(@fptr(XPO$FAILURE)), r1 010802858A00 0F41 adds r40 = 44, r40 0000B0001B00 0F42 sxt4 r108 = r0 ;; } { .mmi 0080C6601980 0F50 ld8 r102 = XPO$FAILURE // r102 = [r102] 00AC028C6600 0F51 st1 [r40] = r99, 24 000008000000 0F52 nop.i 0 ;; } { .mii 00BC8A86CF00 0F60 st4 [r40] = r54, -68 0000B6601B40 0F61 sxt4 r109 = r102 ;; 0000B2801AC0 0F62 sxt4 r107 = r40 } { .mfb 000008000000 0F70 nop.m 0 000008000000 0F71 nop.f 0 00A000001000 0F72 br.call.sptk.many br0 = XPO$PUT ;; } { .mii 010806A00040 0F80 mov r1 = r106 0016000D27C0 0F81 mov pr = r105, -65474 // 000363 0001540D0000 0F82 mov.i rspfs = r104 ;; } { .mib 010800C20300 0F90 adds r12 = 16, r12 000E001CE000 0F91 mov br0 = r103 000108001100 0F92 br.ret.sptk.many br0 ;; } .endp XPO$DUMP_FIELD Routine Size: 4000 bytes, Routine Base: _XPO$CODE + 0000 .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC .lcomm $IOB$OUTPUT, 12, 16 .lcomm IOB$, 244, 16 .lcomm $STR$STRING, 8, 8 .lcomm $IOB$FILE_SPEC, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 31 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm $STR$STRING, 8, 8 .lcomm P.AAA, 1, 1 .lcomm fill$$1, 3, 4 .lcomm P.AAB, 10, 16 .lcomm fill$$2, 2, 2 .lcomm P.AAC, 3, 4 .lcomm fill$$3, 1, 1 .lcomm P.AAD, 11, 16 .lcomm fill$$4, 1, 1 .lcomm P.AAE, 5, 8 .lcomm fill$$5, 3, 4 .lcomm P.AAF, 6, 8 .lcomm fill$$6, 2, 2 .lcomm P.AAG, 6, 8 .lcomm fill$$7, 2, 2 .lcomm P.AAH, 4, 4 .lcomm P.AAI, 8, 8 .lcomm P.AAJ, 16, 16 .lcomm P.AAK, 7, 8 .lcomm fill$$8, 1, 1 .lcomm P.AAL, 10, 16 .lcomm fill$$9, 2, 2 .lcomm P.AAM, 24, 16 .lcomm P.AAN, 3, 4 .lcomm fill$$10, 1, 1 .lcomm P.AAO, 10, 16 .lcomm fill$$11, 2, 2 .lcomm P.AAP, 10, 16 .lcomm fill$$12, 2, 2 .lcomm P.AAQ, 10, 16 .lcomm fill$$13, 2, 2 .lcomm P.AAR, 9, 16 .lcomm fill$$14, 3, 4 .lcomm P.AAS, 5, 8 .lcomm fill$$15, 3, 4 .lcomm P.AAT, 7, 8 .lcomm fill$$16, 1, 1 .lcomm P.AAU, 7, 8 .lcomm fill$$17, 1, 1 .lcomm P.AAV, 19, 16 .lcomm fill$$18, 1, 1 .lcomm P.AAW, 15, 16 .lcomm fill$$19, 1, 1 .lcomm P.AAX, 19, 16 .lcomm fill$$20, 1, 1 .lcomm P.AAY, 15, 16 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 32 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC APOSTROPHE: 0001 0100 data2 0x1 // data2 1 0E 0102 data1 0xE // data1 14 01 0103 data1 0x1 // data1 1 00000000 0104 data4 P.AAA $IOB$FILE_SPEC: 000A 0108 data2 0xA // data2 10 0E 010A data1 0xE // data1 14 01 010B data1 0x1 // data1 1 00000000 010C data4 P.AAB $STR$STRING: 0003 0110 data2 0x3 // data2 3 0E 0112 data1 0xE // data1 14 01 0113 data1 0x1 // data1 1 00000000 0114 data4 P.AAC $STR$STRING: 000B 0118 data2 0xB // data2 11 0E 011A data1 0xE // data1 14 01 011B data1 0x1 // data1 1 00000000 011C data4 P.AAD $STR$STRING: 0005 0120 data2 0x5 // data2 5 0E 0122 data1 0xE // data1 14 01 0123 data1 0x1 // data1 1 00000000 0124 data4 P.AAE $STR$STRING: 0006 0128 data2 0x6 // data2 6 0E 012A data1 0xE // data1 14 01 012B data1 0x1 // data1 1 00000000 012C data4 P.AAF $STR$STRING: 0006 0130 data2 0x6 // data2 6 0E 0132 data1 0xE // data1 14 01 0133 data1 0x1 // data1 1 00000000 0134 data4 P.AAG $STR$STRING: 0004 0138 data2 0x4 // data2 4 0E 013A data1 0xE // data1 14 01 013B data1 0x1 // data1 1 00000000 013C data4 P.AAH $STR$STRING: 0008 0140 data2 0x8 // data2 8 0E 0142 data1 0xE // data1 14 01 0143 data1 0x1 // data1 1 00000000 0144 data4 P.AAI $STR$STRING: 0010 0148 data2 0x10 // data2 16 0E 014A data1 0xE // data1 14 01 014B data1 0x1 // data1 1 00000000 014C data4 P.AAJ $STR$STRING: 0007 0150 data2 0x7 // data2 7 0E 0152 data1 0xE // data1 14 01 0153 data1 0x1 // data1 1 00000000 0154 data4 P.AAK $STR$STRING: XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 33 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 000A 0158 data2 0xA // data2 10 0E 015A data1 0xE // data1 14 01 015B data1 0x1 // data1 1 00000000 015C data4 P.AAL $STR$STRING: 0018 0160 data2 0x18 // data2 24 0E 0162 data1 0xE // data1 14 01 0163 data1 0x1 // data1 1 00000000 0164 data4 P.AAM $STR$STRING: 0003 0168 data2 0x3 // data2 3 0E 016A data1 0xE // data1 14 01 016B data1 0x1 // data1 1 00000000 016C data4 P.AAN $STR$STRING: 000A 0170 data2 0xA // data2 10 0E 0172 data1 0xE // data1 14 01 0173 data1 0x1 // data1 1 00000000 0174 data4 P.AAO $STR$STRING: 000A 0178 data2 0xA // data2 10 0E 017A data1 0xE // data1 14 01 017B data1 0x1 // data1 1 00000000 017C data4 P.AAP $STR$STRING: 000A 0180 data2 0xA // data2 10 0E 0182 data1 0xE // data1 14 01 0183 data1 0x1 // data1 1 00000000 0184 data4 P.AAQ $STR$STRING: 0009 0188 data2 0x9 // data2 9 0E 018A data1 0xE // data1 14 01 018B data1 0x1 // data1 1 00000000 018C data4 P.AAR $STR$STRING: 0005 0190 data2 0x5 // data2 5 0E 0192 data1 0xE // data1 14 01 0193 data1 0x1 // data1 1 00000000 0194 data4 P.AAS $STR$STRING: 0007 0198 data2 0x7 // data2 7 0E 019A data1 0xE // data1 14 01 019B data1 0x1 // data1 1 00000000 019C data4 P.AAT $STR$STRING: 0007 01A0 data2 0x7 // data2 7 0E 01A2 data1 0xE // data1 14 01 01A3 data1 0x1 // data1 1 00000000 01A4 data4 P.AAU $STR$STRING: 0013 01A8 data2 0x13 // data2 19 0E 01AA data1 0xE // data1 14 01 01AB data1 0x1 // data1 1 00000000 01AC data4 P.AAV $STR$STRING: 000F 01B0 data2 0xF // data2 15 0E 01B2 data1 0xE // data1 14 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 34 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 01 01B3 data1 0x1 // data1 1 00000000 01B4 data4 P.AAW $STR$STRING: 0013 01B8 data2 0x13 // data2 19 0E 01BA data1 0xE // data1 14 01 01BB data1 0x1 // data1 1 00000000 01BC data4 P.AAX $STR$STRING: 000F 01C0 data2 0xF // data2 15 0E 01C2 data1 0xE // data1 14 01 01C3 data1 0x1 // data1 1 00000000 01C4 data4 P.AAY .psect _XPO$PLIT, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC P.AAA: 27 0000 data1 0x27 // data1 39 P.AAB: 24535953 0004 string "SYS$OUTPUT" 5054554F 0008 5455 000C P.AAC: 203D09 0010 string "\X09= " P.AAD: 67656209 0014 string "\X09begins at " 20736E69 0018 207461 001C P.AAE: 6F203D09 0020 string "\X09= on" 6E 0024 P.AAF: 6F203D09 0028 string "\X09= off" 6666 002C P.AAG: 25203D09 0030 string "\X09= %B'" 2742 0034 P.AAH: 27203D09 0038 data4 0x27203D09 // data4 656424201 P.AAI: 52203D09 003C string "\X09= REF '" 27204645 0040 P.AAJ: 766E695B 0044 string "[invalid string]" 64696C61 0048 72747320 004C 5D676E69 0050 P.AAK: 52203D20 0054 string " = REF " 204645 0058 P.AAL: XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 35 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 696E7520 005C string " units at " 61207374 0060 2074 0064 P.AAM: 766E695B 0068 string "[invalid descriptor] at " 64696C61 006C 73656420 0070 70697263 0074 5D726F74 0078 20746120 007C P.AAN: 275825 0080 string "%X'" P.AAO: 64612820 0084 string " (address)" 73657264 0088 2973 008C P.AAP: 6F702820 0090 string " (pointer)" 65746E69 0094 2972 0098 P.AAQ: 4C43202C 009C string ", CLASS = " 20535341 00A0 203D 00A4 P.AAR: 65646E75 00A8 string "undefined" 656E6966 00AC 64 00B0 P.AAS: 45584946 00B4 string "FIXED" 44 00B8 P.AAT: 414E5944 00BC string "DYNAMIC" 43494D 00C0 P.AAU: 4E554F42 00C4 string "BOUNDED" 444544 00C8 P.AAV: 616D202C 00CC string ", maximum length = " 756D6978 00D0 656C206D 00D4 6874676E 00D8 203D20 00DC P.AAW: 414E5944 00E0 string "DYNAMIC_BOUNDED" 5F43494D 00E4 XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 36 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 4E554F42 00E8 444544 00EC P.AAX: 616D202C 00F0 string ", maximum length = " 756D6978 00F4 656C206D 00F8 6874676E 00FC 203D20 0100 P.AAY: 766E695B 0104 string "[invalid class]" 64696C61 0108 616C6320 010C 5D7373 0110 .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data .type XST$VALIDATE, @function .global XST$VALIDATE .section .data .type XST$VALIDATE, @function .global XST$VALIDATE .section .data .type XST$COPY, @function .global XST$COPY .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$ASCII, @function .global XST$ASCII .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 37 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$ASCII, @function .global XST$ASCII .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$ASCII, @function .global XST$ASCII .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$ASCII, @function .global XST$ASCII .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function XDUMPF Machine Code Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 38 V1.2-10 XPO$DUMP_FIELD 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$ASCII, @function .global XST$ASCII .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$ASCII, @function .global XST$ASCII .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XST$APPEND, @function .global XST$APPEND .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$PUT, @function .global XPO$PUT ; Library Statistics ; ; -------- Symbols -------- Pages ; File Total Loaded Percent Mapped ; ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14 ; 590 165 27 270 ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPOSYS.L32;14 ; 91 13 14 27 Source Listing 4-FEB-2004 11:01:44 BLISS-32I T1.1-053 Page 39 Source Listing 19-MAR-2002 10:12:09 [LASTOVICA.XPORT.VMSGEN]XDUMPF.BLI;1 COMMAND LINE: BLISSXDUMPF/LIST/DEBUG