XST$BINARY - ASCII-to-Binary Co 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 1 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 0 1 MODULE SBIN ( IDENT = 'X00.06' %TITLE 'XST$BINARY - ASCII-to-Binary Conversion' 0 2 %BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) ) 0 3 %BLISS36( ,ENTRY( XST$BINARY ),OTS='' ) 0 4 ) = 0 5 BEGIN 1 6 1 7 ! 1 8 ! COPYRIGHT (c) 1980 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 implements the $STR_BINARY function. 1 33 ! 1 34 ! ENVIRONMENT: User mode - multiple host operating/file systems 1 35 ! 1 36 ! AUTHOR: Ward Clark, CREATION DATE: 21 February 1980 1 37 ! 1 38 !-- SBIN XST$BINARY - ASCII-to-Binary Co 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 2 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 1 40 ! 1 41 ! TABLE OF CONTENTS: 1 42 ! 1 43 1 44 FORWARD ROUTINE 1 45 XST$BINARY, ! ASCII-to-binary conversion function 1 46 ASCII_TO_BINARY; ! Actual ASCII-to-binary conversion routine 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 1 57 $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 58 1 59 ! 1 60 ! MACROS: 1 61 ! 1 62 1 63 ! 1 64 ! EQUATED SYMBOLS: 1 65 ! 1 66 1 67 LITERAL 1 68 yes = 1, ! Used to turn an indicator on 1 69 no = 0; ! Used to turn an indicator off 1 70 1 71 ! 1 72 ! PSECT DECLARATIONS: 1 73 ! 1 74 1 75 $XPO_PSECTS ! Declare XPORT PSECT names and attributes 1 76 1 77 ! 1 78 ! OWN STORAGE: 1 79 ! 1 80 1 81 ! 1 82 ! EXTERNAL REFERENCES: 1 83 ! SBIN XST$BINARY - ASCII String to Bi 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 3 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 1 85 %TITLE 'XST$BINARY - ASCII String to Binary Value Conversion' 1 86 1 87 GLOBAL ROUTINE XST$BINARY( options, string, result, low_limit, high_limit, success_action, failure_action ) = 1 88 1 89 !++ 1 90 ! 1 91 ! FUNCTIONAL DESCRIPTION: 1 92 ! 1 93 ! This routine implements the $STR_BINARY function. 1 94 ! 1 95 ! FORMAL PARAMETERS: 1 96 ! 1 97 ! options - string processing options 1 98 ! string - address of the source string descriptor 1 99 ! result - address of the result deposit area 1 100 ! low_limit - integer conversion lower limit 1 101 ! high_limit - integer conversion high limit 1 102 ! success_action - address of a success action routine 1 103 ! failure_action - address of a failure action routine 1 104 ! 1 105 ! IMPLICIT INPUTS: 1 106 ! 1 107 ! None 1 108 ! 1 109 ! IMPLICIT OUTPUTS: 1 110 ! 1 111 ! None 1 112 ! 1 113 ! COMPLETION CODES: (secondary passed to action routine only) 1 114 ! 1 115 ! STR$_NORMAL - successful conversion 1 116 ! 1 117 ! STR$_BAD_REQ - invalid request 1 118 ! secondary = XPO$_BAD_ADDR - RESULT= does not point to a BLISS fullword 1 119 ! STR$_BAD_SOURCE - invalid source string 1 120 ! secondary = STR$_BAD_CHAR - invalid character 1 121 ! STR$_OUT_RANGE - integer value is out of range 1 122 ! failure completion code from $STR_VALIDATE 1 123 ! failure completion code from ASCII_TO_BINARY 1 124 ! STR$_NO_SUPPORT - requested conversion function is not yet supported 1 125 ! 1 126 ! SIDE EFFECTS: 1 127 ! 1 128 ! None 1 129 ! 1 130 !-- 1 131 1 132 BEGIN 2 133 2 134 MAP 2 135 options : $STR_OPTIONS, 2 136 string : REF $STR_DESCRIPTOR(); 2 137 2 138 LOCAL 2 139 scan_desc : $STR_DESCRIPTOR( CLASS = BOUNDED ); 2 140 2 141 ! SBIN XST$BINARY - ASCII String to Bi 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 4 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 2 142 ! Initialization 2 143 ! 2 144 2 145 $STR_MAIN_BEGIN( BINARY ) ! Beginning of MAIN_BLOCK code block 3 146 3 147 $STR_VALIDATE( .string, BAD_SOURCE ); ! Validate the source string. 3 148 3 149 %IF %BLISS(BLISS16) %THEN U 3 150 IF .result ! Verify that the result area starts on a word boundary. U 3 151 THEN U 3 152 $STR_QUIT( BAD_REQ, (XPO$_BAD_ADDR) ); U 3 153 %FI 3 154 3 155 %IF %BLISS(BLISS32) %THEN 3 156 IF .result AND %X'03' ! Verify that the result area is at a longword boundary. 3 157 THEN 3 158 $STR_QUIT( BAD_REQ, (XPO$_BAD_ADDR) ); 3 159 %FI 3 160 3 161 $STR_DESC_INIT( DESCRIPTOR = scan_desc, ! Setup a local bounded string descriptor to be used P 3 162 CLASS = BOUNDED, ! in scanning the ASCII source string. P 3 163 STRING = .string ); 3 164 3 165 ! 3 166 ! Select appropriate processing based on the type of conversion requested. 3 167 ! 3 168 3 169 CASE .options[STR$V_FUNCTION] FROM 0 TO STR$K_DAY OF 3 170 SET SBIN XST$BINARY - Integer Conversion 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 5 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 3 172 %TITLE 'XST$BINARY - Integer Conversion' 3 173 3 174 !+ 3 175 ! 3 176 ! Integer Conversion 3 177 ! 3 178 !- 3 179 3 180 [ STR$K_BASE2, STR$K_BASE8, STR$K_BASE10, STR$K_BASE16, STR$K_DFLT_FUNC ] : 3 181 3 182 BEGIN 4 183 LOCAL 4 184 binary_value, ! Local binary work area 4 185 negate_value, ! Indicates whether to negate the final binary value. 4 186 delimiter, ! Sub-sting delimiter 4 187 base; ! Integer conversion base 4 188 4 189 negate_value = no; ! Initially assume a positive value. 4 190 4 191 ! 4 192 ! Process the character which precede the actual integer string. 4 193 ! 4 194 4 195 $STR_SCAN( REMAINDER = scan_desc, ! Skip past any leading spaces. P 4 196 SPAN = ' ', P 4 197 SUBSTRING = scan_desc, P 4 198 DELIMITER = delimiter ); 4 199 4 200 SELECT .delimiter OF ! Use the delimiter character to select additional processin 4 200 g. 4 201 SET 4 202 [ %C'-' ] : ! Minus sign: 4 203 negate_value = yes; ! Indicate final result must be negated. 4 204 4 205 [ %C'-', %C'+' ] : ! Minus sign or plus sign: 4 206 BEGIN 5 207 scan_desc[STR$H_LENGTH] = ! Include the sign in the current substring. 5 208 .scan_desc[STR$H_LENGTH] + 1; 5 209 5 210 $STR_SCAN( REMAINDER = scan_desc, ! Skip past spaces between the sign and the number. P 5 211 SPAN = ' ', P 5 212 SUBSTRING = scan_desc ); 5 213 END; 4 214 TES; 4 215 4 216 ! 4 217 ! Convert the integer string to a binary value. 4 218 ! 4 219 4 220 base = ( CASE .options[STR$V_FUNCTION] ! Calculate a base value. 5 221 FROM STR$K_DFLT_FUNC TO STR$K_BASE16 OF 5 222 SET 5 223 [ STR$K_DFLT_FUNC ] : 10; 5 224 [ STR$K_BASE2 ] : 2; 5 225 [ STR$K_BASE8 ] : 8; 5 226 [ STR$K_BASE10 ] : 10; 5 227 [ STR$K_BASE16 ] : 16; SBIN XST$BINARY - Integer Conversion 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 6 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 5 228 TES ); 4 229 4 230 $XPO_IF_NOT( ASCII_TO_BINARY( .base, ! Convert from ASCII to binary. P 4 231 scan_desc, P 4 232 binary_value, P 4 233 delimiter ) ) 6 234 THEN 5 235 $STR_QUIT( BAD_SOURCE, (.$XPO_STATUS) ); 4 236 4 237 ! 4 238 ! Make sure the binary value is within the limits specified by the user. 4 239 ! 4 240 4 241 IF .negate_value ! Negate the binary value if necessary: 4 242 THEN 4 243 BEGIN 5 244 IF .binary_value LSS 0 ! Make sure that the value is not too large 5 245 THEN ! to convert to a negative value. 5 246 $STR_QUIT( BAD_SOURCE, OUT_RANGE ); 5 247 binary_value = -.binary_value; ! Make the final value negative. 5 248 END; 4 249 4 250 IF (.low_limit NEQ 0 OR .high_limit NEQ 0) AND ! If range checking has been requested 4 251 ( .binary_value LSS .low_limit OR ! and the final value is too small 5 252 .binary_value GTR .high_limit ) ! or too large, 5 253 THEN ! 4 254 $STR_QUIT( BAD_SOURCE, OUT_RANGE ); ! return error codes to the caller. 4 255 4 256 ! 4 257 ! Allow spaces after the integer string. 4 258 ! 4 259 4 260 IF $STR_SCAN( REMAINDER = scan_desc, ! Skip past any trailing spaces. P 4 261 SPAN = ' ', P 4 262 SUBSTRING = scan_desc ) 5 263 NEQ STR$_END_STRING ! Make sure that the end of the string has been reached. 4 264 THEN 4 265 $STR_QUIT( BAD_SOURCE, BAD_CHAR ); 4 266 4 267 ! 4 268 ! Return the final binary integer value to the caller. 4 269 ! 4 270 4 271 IF .result NEQ 0 ! If a result value address was provided, 4 272 THEN ! 4 273 .result = .binary_value; ! return the final value to the caller. 4 274 4 275 $STR_QUIT( NORMAL ); ! Jump to return a success code to the caller. 4 276 4 277 END; SBIN XST$BINARY - Date/Time Conversi 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 7 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 3 279 %TITLE 'XST$BINARY - Date/Time Conversion' 3 280 3 281 !+ 3 282 ! 3 283 ! Date/Time Conversion 3 284 ! 3 285 !- 3 286 3 287 [ STR$K_DATE, STR$K_TIME, STR$K_DAY ] : 3 288 3 289 $STR_QUIT( NO_SUPPORT ); 3 290 3 291 TES; SBIN XST$BINARY - Routine Terminatio 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 8 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 3 293 %TITLE 'XST$BINARY - Routine Termination' 3 294 3 295 !+ 3 296 ! 3 297 ! XST$BINARY Common Routine Termination 3 298 ! 3 299 !- 3 300 3 301 $STR_MAIN_END; ! End of MAIL_BLOCK code block 2 302 2 303 ! 2 304 ! Call an appropriate action routine. 2 305 ! 2 306 2 307 $STR_ACTION_RTN( .options[STR$V_FUNCTION], .string, .result ); 2 308 2 309 ! 2 310 ! Free a temporary string used in this conversion function. 2 311 ! 2 312 2 313 IF NOT .options[STR$V_NO_FREE_T] ! Unless this is an internal XPORT call, 2 314 THEN ! 2 315 $STR_FREE_TEMP( .string ); ! free the source string if it is a temporary string. 2 316 2 317 ! 2 318 ! Return the final completion code to the caller. 2 319 ! 2 320 2 321 RETURN .primary_code 2 322 2 323 END; SBIN ASCII_TO_BINARY - Integer Conve 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 9 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 1 325 %TITLE 'ASCII_TO_BINARY - Integer Conversion Routine' 1 326 1 327 ROUTINE ASCII_TO_BINARY( base, substring, value_addr, delimiter_addr ) = 1 328 1 329 !++ 1 330 ! 1 331 ! FUNCTIONAL DESCRIPTION: 1 332 ! 1 333 ! This routine converts an integer ASCII string into its corresponding binary value. 1 334 ! 1 335 ! FORMAL PARAMETERS: 1 336 ! 1 337 ! base - conversion base 1 338 ! substring - address of a substring descriptor (BOUNDED) 1 339 ! value_addr - address of the binary value result 1 340 ! delimiter_addr - address the integer string delimiter result 1 341 ! 1 342 ! IMPLICIT INPUTS: 1 343 ! 1 344 ! None 1 345 ! 1 346 ! IMPLICIT OUTPUTS: 1 347 ! 1 348 ! The substring descriptor is updated to describe the integer string. 1 349 ! 1 350 ! COMPLETION CODES: 1 351 ! 1 352 ! STR$_NORMAL - ASCII-to-binary conversion was successful 1 353 ! 1 354 ! STR$_BAD_CHAR - integer string begins with an invalid character 1 355 ! STR$_NULL_STRNG - null integer string specified 1 356 ! STR$_OUT_RANGE - integer value is larger than a BLISS fullword 1 357 ! 1 358 ! SIDE EFFECTS: 1 359 ! 1 360 ! None 1 361 ! 1 362 !-- 1 363 1 364 BEGIN 2 365 2 366 MAP 2 367 substring : REF $STR_DESCRIPTOR( CLASS = BOUNDED ); 2 368 2 369 BIND 2 370 value = .value_addr, 2 371 delimiter = .delimiter_addr; 2 372 2 373 LOCAL 2 374 possible_chars, ! Number of possible integer characters 2 375 pointer, ! Local integer string pointer 2 376 digit, ! Single digit of the integer string 2 377 status; ! Temporary routine completion code 2 378 2 379 %IF %BLISS(BLISS36) %THEN U 2 380 BUILTIN U 2 381 LSH; ! BLISS-36 logical shift function SBIN ASCII_TO_BINARY - Integer Conve 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 10 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 U 2 382 %FI 2 383 2 384 ! 2 385 ! Find the end of the integer string. 2 386 ! 2 387 2 388 IF .base EQL 16 ! If this a hexidecimal conversion, 2 389 THEN ! 2 390 possible_chars = 16 + 6 ! there are 22 possible different digits. 2 391 ELSE 2 392 possible_chars = .base; ! Otherwise, there are only "base" possible characters. 2 393 2 394 status = $STR_SCAN( REMAINDER = .substring, ! Span the integer substring. P 2 395 SPAN = ( .possible_chars, CH$PTR( UPLIT('0123456789abcdefABCDEF') ) ), P 2 396 DELIMITER = delimiter, P 2 397 SUBSTRING = .substring ); 2 398 2 399 IF .substring[STR$H_LENGTH] EQL 0 ! If a null string was found, 2 400 THEN ! return an appropriate error code. 2 401 IF .status EQL STR$_END_STRING 2 402 THEN 2 403 RETURN STR$_NULL_STRNG 2 404 ELSE 2 405 RETURN STR$_BAD_CHAR; 2 406 2 407 ! 2 408 ! Convert the integer string one character at a time. 2 409 ! 2 410 2 411 pointer = .substring[STR$A_POINTER]; ! Point to the first character of the integer string. 2 412 2 413 value = 0; ! Start out with a zero value. 2 414 2 415 INCR counter FROM 1 TO .substring[STR$H_LENGTH] DO ! Loop to end of the integer string. 2 416 BEGIN 3 417 digit = CH$RCHAR_A( pointer ); ! Pickup a digit and advance the local pointer. 3 418 3 419 IF .digit LEQ %C'9' ! Convert the character to a binary value. 3 420 THEN 3 421 digit = .digit - %C'0' 3 422 ELSE 3 423 digit = (.digit AND %X'4F') - %C'A' + 10; 3 424 3 425 IF .value GTRU ! Make sure the following calculation will not overflow. 3 426 ( ( (-1 - .digit) ^ -1 ) AND %BLISS16( %X'7FFF' ) 4 427 %BLISS32( %X'7FFFFFFF' ) ! This expression is an unsigned version of 4 428 %BLISS36( %X'7FFFFFFFF' ) ) / ! (-1 - .digit) / .base ....................................................1 %BLS32-I-TEXT, (1) Numeric literal overflow 3 429 ( .base / 2 ) 4 430 THEN 3 431 RETURN STR$_OUT_RANGE; 3 432 3 433 %IF %BLISS(BLISS36) %THEN ! Calculate a new intermediate value. U 3 434 value = LSH( .value * (.base/2), 1 ) + .digit; U 3 435 %ELSE SBIN ASCII_TO_BINARY - Integer Conve 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 11 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 3 436 value = .value * .base + .digit; 3 437 %FI 3 438 END; 2 439 2 440 ! 2 441 ! Return to the caller. 2 442 ! 2 443 2 444 RETURN STR$_NORMAL 2 445 2 446 END; 1 447 END 1 448 ELUDOM SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 12 X00.06 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 .psect _XPO$CODE, CON, LCL, SHR, EXE, NOWRT, NOVEC .proc XST$BINARY .align 32 .global XST$BINARY XST$BINARY: // 000087 { .mii 002C03D896C0 0000 alloc r91 = rspfs, 7, 54, 7, 0 000188001680 0001 mov r90 = br0 0119F8CA0300 0002 adds r12 = -48, r12 } { .mmi 010800101700 0010 mov r92 = r1 012000002640 0011 mov r25 = 1 // 000147 0000B2101740 0012 sxt4 r93 = STRING ;; // r93 = r33 } { .mfb 010800000A00 0020 mov SECONDARY_CODE = r0 // r40 = r0 // 000145 000008000000 0021 nop.f 0 00A000001000 0022 br.call.sptk.many br0 = XST$VALIDATE // 000147 } { .mib 010805C00040 0030 mov r1 = r92 00A0308001C0 0031 tbit.z pr7, pr6 = $STR$STATUS, 0 // pr7, pr6 = r8, 0 008600006006 0032 (pr6) br.cond.dpnt.few L$21 ;; } { .mlx 010800800A00 0040 mov SECONDARY_CODE = $STR$STATUS // r40 = r8 800000000000 0041 movl PRIMARY_CODE = 2402378 // r41 = 2402378 0195025294 } { .mfb 000008000000 0050 nop.m 0 000008000000 0051 nop.f 0 008000094000 0052 br.sptk.few L$23 ;; } 0060 L$21: { .mib 000008000000 0060 nop.m 0 00A042200240 0061 tbit.z pr9, pr8 = RESULT, 0 // pr9, pr8 = r34, 0 // 000156 008600008009 0062 (pr9) br.cond.dpnt.few L$25 } { .mlx 000008000000 0070 nop.m 0 800000000000 0071 movl PRIMARY_CODE = 2402370 // r41 = 2402370 // 000158 0195025094 } { .mlx 000008000000 0080 nop.m 0 000000000000 0081 movl SECONDARY_CODE = 2138114 // r40 = 2138114 0194004094 } { .mfb 000008000000 0090 nop.m 0 000008000000 0091 nop.f 0 00800008C000 0092 br.sptk.few L$23 ;; } 00A0 L$25: // 000163 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 13 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 { .mii 010800C50AC0 00A0 adds r43 = 40, r12 0000B2100A80 00A1 sxt4 r42 = STRING // r42 = r33 010800C54B40 00A2 adds r45 = 42, r12 } { .mmi 010800C56BC0 00B0 adds r47 = 43, r12 012000006B80 00B1 mov r46 = 3 010800C58C80 00B2 adds r50 = 44, r12 ;; } { .mii 008C42B00000 00C0 st2 [r43] = r0 010800C64D00 00C1 adds r52 = 50, r12 010802A04A80 00C2 adds r42 = 2, r42 ;; } { .mib 010800C60D40 00D0 adds r53 = 48, r12 00A43A000C00 00D1 extr.u r48 = OPTIONS, 0, 8 // r48 = r32, 0, 8 // 000169 004000000000 00D2 nop.b 0 ;; } { .mii 00A002A04B00 00E0 ld1 r44 = [r42], 2 // 000163 0119FB0F6CC0 00E1 adds r51 = -5, r48 ;; // 000169 01AC53304000 00E2 cmp4.ltu pr0, pr10 = 2, r51 } { .mmi 008C02D58000 00F0 st1 [r45] = r44 // 000163 008C02F5C000 00F1 st1 [r47] = r46 000008000000 00F2 nop.i 0 } { .mmi 00B08AAF8C40 0100 ld4 r49 = [r42], -4 ;; 008C83262000 0101 st4 [r50] = r49 000008000000 0102 nop.i 0 } { .mmi 008042A00A80 0110 ld2 r42 = [r42] 008C43400000 0111 st2 [r52] = r0 000008000000 0112 nop.i 0 ;; } { .mfb 008C43554000 0120 st2 [r53] = r42 000008000000 0121 nop.f 0 00860007800A 0122 (pr10) br.cond.dpnt.few L$28 // 000169 } { .mii 012000100E80 0130 add r58 = @ltoff(@fptr(STR$FAILURE)), // 000198 r1 012000100D80 0131 add r54 = @ltoff($STR$PATTERN), r1 010800C20E40 0132 adds r57 = 16, r12 } { .mmi 010800C50DC0 0140 adds r55 = 40, r12 01200000E640 0141 mov r25 = 7 0000B0001880 0142 sxt4 r98 = r0 ;; } { .mii SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 14 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 0080C3A00E80 0150 ld8 r58 = STR$FAILURE // r58 = [r58] 0000B3901840 0151 sxt4 r97 = r57 0000B3701800 0152 sxt4 r96 = r55 ;; } { .mii 0080C3600D80 0160 ld8 r54 = $STR$PATTERN // r54 = [r54] 0000B3701780 0161 sxt4 r94 = r55 0000B3A018C0 0162 sxt4 r99 = r58 ;; } { .mib 012410005740 0170 addl r93 = 16642, r0 0000B36017C0 0171 sxt4 r95 = r54 00A000001000 0172 br.call.sptk.many br0 = XST$SCAN } { .mib 010805C00040 0180 mov r1 = r92 00A0308001C0 0181 tbit.z pr7, pr6 = r8, 0 008600006007 0182 (pr7) br.cond.dpnt.few L$31 } { .mii 010800C20EC0 0190 adds r59 = 16, r12 010800C30F00 0191 adds r60 = 24, r12 000008000000 0192 nop.i 0 ;; } { .mmi 008083B00EC0 01A0 ld4 r59 = [r59] ;; 008C83C76000 01A1 st4 [r60] = r59 000008000000 01A2 nop.i 0 } 01B0 L$31: { .mii 010800C30F40 01B0 adds r61 = 24, r12 // 000200 010800000F80 01B1 mov NEGATE_VALUE = r0 // r62 = r0 // 000203 000008000000 01B2 nop.i 0 ;; } { .mmi 008083D00F40 01C0 ld4 r61 = [r61] ;; // 000200 01CC03D5A300 01C1 cmp4.eq pr12, pr0 = 45, r61 01CC4BD56280 01C2 cmp4.eq pr10, pr9 = 43, r61 ;; } { .mii 01CC03D5A200 01D0 cmp4.eq pr8, pr0 = 45, r61 01C24800000C 01D1 (pr12) cmp.eq.or.andcm pr0, pr9 = r0, r0 ;; 010800002F88 01D2 (pr8) adds NEGATE_VALUE = 1, r0 // r62 = 1, r0 // 000203 } { .mfb 000008000000 01E0 nop.m 0 000008000000 01E1 nop.f 0 008600010009 01E2 (pr9) br.cond.dpnt.few L$32 // 000200 } { .mii 0120001010C0 01F0 add r67 = @ltoff(@fptr(STR$FAILURE)), // 000212 r1 010800C50FC0 01F1 adds r63 = 40, r12 // 000208 010800C51040 01F2 adds r65 = 40, r12 // 000207 } { .mmi SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 15 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 010803611000 0200 adds r64 = 8, r54 // 000212 01200000E640 0201 mov r25 = 7 0000B0001880 0202 sxt4 r98 = r0 ;; } { .mii 0080C43010C0 0210 ld8 r67 = STR$FAILURE // r67 = [r67] 0000B0001840 0211 sxt4 r97 = r0 0000B3701800 0212 sxt4 r96 = r55 ;; } { .mii 008043F00FC0 0220 ld2 r63 = [r63] // 000208 0000B40017C0 0221 sxt4 r95 = r64 // 000212 0000B43018C0 0222 sxt4 r99 = r67 ;; } { .mii 000008000000 0230 nop.m 0 0000B3701780 0231 sxt4 r94 = r55 010803F02FC0 0232 adds r63 = 1, r63 ;; // 000208 } { .mmb 012410005740 0240 addl r93 = 16642, r0 // 000212 008C4417E000 0241 st2 [r65] = r63 // 000207 00A000001000 0242 br.call.sptk.many br0 = XST$SCAN // 000212 } { .mfi 010805C00040 0250 mov r1 = r92 000008000000 0251 nop.f 0 000008000000 0252 nop.i 0 } 0260 L$32: // 000200 { .mii 012000021180 0260 mov r70 = 16 // 000220 012000015140 0261 mov r69 = 10 01CC33008000 0262 cmp4.eq pr0, pr6 = 4, r48 ;; } { .mii 012000015200 0270 mov r72 = 10 01CC3B006000 0271 cmp4.eq pr0, pr7 = 3, r48 010804501186 0272 (pr6) mov r70 = r69 } { .mmi 012000011280 0280 mov r74 = 8 01CC43004000 0281 cmp4.eq pr0, pr8 = 2, r48 010800C41340 0282 adds r77 = 32, r12 ;; // 000233 } { .mii 010804601207 0290 (pr7) mov r72 = r70 // 000220 012000005300 0291 mov r76 = 2 01CC4B002000 0292 cmp4.eq pr0, pr9 = 1, r48 ;; } { .mii 010804801288 02A0 (pr8) mov r74 = r72 0000B4D017C0 02A1 sxt4 r95 = r77 // 000233 010800C31340 02A2 adds r77 = 24, r12 ;; } { .mii 010800C50DC0 02B0 adds r55 = 40, r12 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 16 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 010804A01309 02B1 (pr9) mov r76 = r74 // 000220 0000B4D01800 02B2 sxt4 r96 = r77 ;; // 000233 } { .mii 000008000000 02C0 nop.m 0 0000B3701780 02C1 sxt4 r94 = r55 0000B4C01740 02C2 sxt4 r93 = r76 } { .mfb 000008000000 02D0 nop.m 0 000008000000 02D1 nop.f 0 00A000001000 02D2 br.call.sptk.many br0 = ASCII_TO_BINARY } { .mib 000008000000 02E0 nop.m 0 00A0308001C0 02E1 tbit.z pr7, pr6 = $XPO$STATUS, 0 // pr7, pr6 = r8, 0 008600006006 02E2 (pr6) br.cond.dpnt.few L$34 } { .mlx 010800800A00 02F0 mov SECONDARY_CODE = $XPO$STATUS // r40 = r8 // 000235 800000000000 02F1 movl PRIMARY_CODE = 2402378 // r41 = 2402378 0195025294 } { .mfb 000008000000 0300 nop.m 0 000008000000 0301 nop.f 0 00800003E000 0302 br.sptk.few L$23 ;; } 0310 L$34: // 000233 { .mib 000008000000 0310 nop.m 0 00A043E00240 0311 tbit.z pr9, pr8 = NEGATE_VALUE, 0 // pr9, pr8 = r62, 0 // 000241 008600010009 0312 (pr9) br.cond.dpnt.few L$37 } { .mmi 010800C41380 0320 adds r78 = 32, r12 ;; // 000244 008084E01380 0321 ld4 r78 = [r78] 000008000000 0322 nop.i 0 ;; } { .mfb 01845809C000 0330 cmp4.lt pr0, pr11 = r78, r0 000008000000 0331 nop.f 0 00860000800B 0332 (pr11) br.cond.dpnt.few L$39 } { .mlx 000008000000 0340 nop.m 0 800000000000 0341 movl PRIMARY_CODE = 2402378 // r41 = 2402378 // 000246 0195025294 } { .mlx 000008000000 0350 nop.m 0 000000000000 0351 movl SECONDARY_CODE = 2402458 // r40 = 2402458 0195124694 } { .mfb 000008000000 0360 nop.m 0 000008000000 0361 nop.f 0 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 17 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 008000032000 0362 br.sptk.few L$23 ;; } 0370 L$39: // 000244 { .mii 010800C413C0 0370 adds r79 = 32, r12 // 000247 01002CE01380 0371 sub r78 = r0, r78 000008000000 0372 nop.i 0 ;; } { .mfi 008C84F9C000 0380 st4 [r79] = r78 000008000000 0381 nop.f 0 000008000000 0382 nop.i 0 } 0390 L$37: // 000241 { .mii 010800C41400 0390 adds r80 = 32, r12 // 000251 010072447440 0391 or r81 = LOW_LIMIT, HIGH_LIMIT ;; // r81 = r35, r36 // 000250 01C4351001C0 0392 cmp4.eq pr7, pr6 = r0, r81 } { .mmi 008085001400 03A0 ld4 r80 = [r80] ;; // 000251 018405048380 03A1 cmp4.lt pr14, pr0 = HIGH_LIMIT, r80 // pr14, pr0 = r36, r80 // 000252 01846A3A0300 03A2 cmp4.lt pr12, pr13 = r80, LOW_LIMIT ;; // pr12, pr13 = r80, r35 // 000251 } { .mmi 01C26800000E 03B0 (pr14) cmp.eq.or.andcm pr0, pr13 = r0, r0 ;; 01C2300001CD 03B1 (pr13) cmp.eq.or.andcm pr7, pr6 = r0, r0 // 000250 000008000000 03B2 nop.i 0 } { .bbb 008600002006 03C0 (pr6) br.cond.dpnt.few L$40 004000000000 03C1 nop.b 0 008600008007 03C2 (pr7) br.cond.dpnt.few L$41 } 03D0 L$40: { .mlx 000008000000 03D0 nop.m 0 800000000000 03D1 movl PRIMARY_CODE = 2402378 // r41 = 2402378 // 000254 0195025294 } { .mlx 000008000000 03E0 nop.m 0 000000000000 03E1 movl SECONDARY_CODE = 2402458 // r40 = 2402458 0195124694 } { .mfb 000008000000 03F0 nop.m 0 000008000000 03F1 nop.f 0 008000020000 03F2 br.sptk.few L$23 ;; } 0400 L$41: // 000262 { .mii 0120001014C0 0400 add r83 = @ltoff(@fptr(STR$FAILURE)), r1 010803620D80 0401 adds r54 = 16, r54 000008000000 0402 nop.i 0 } SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 18 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 { .mlx 01200000E640 0410 mov r25 = 7 000000000000 0411 movl r84 = 2394113 ;; // 000263 019102406A } { .mii 0080C53014C0 0420 ld8 r83 = STR$FAILURE // r83 = [r83] // 000262 0000B0001880 0421 sxt4 r98 = r0 0000B0001840 0422 sxt4 r97 = r0 } { .mii 012410005740 0430 addl r93 = 16642, r0 0000B3701800 0431 sxt4 r96 = r55 0000B36017C0 0432 sxt4 r95 = r54 ;; } { .mii 000008000000 0440 nop.m 0 0000B53018C0 0441 sxt4 r99 = r83 0000B3701780 0442 sxt4 r94 = r55 } { .mfb 000008000000 0450 nop.m 0 000008000000 0451 nop.f 0 00A000001000 0452 br.call.sptk.many br0 = XST$SCAN } { .mib 01C4054101C0 0460 cmp4.eq pr7, pr0 = r8, r84 // 000263 010805C00040 0461 mov r1 = r92 // 000262 008600008007 0462 (pr7) br.cond.dpnt.few L$43 // 000260 } { .mlx 000008000000 0470 nop.m 0 800000000000 0471 movl PRIMARY_CODE = 2402378 // r41 = 2402378 // 000265 0195025294 } { .mlx 000008000000 0480 nop.m 0 000000000000 0481 movl SECONDARY_CODE = 2402306 // r40 = 2402306 0195024094 } { .mfb 000008000000 0490 nop.m 0 000008000000 0491 nop.f 0 00800000C000 0492 br.sptk.few L$23 ;; } 04A0 L$43: // 000260 { .mfb 01C402200240 04A0 cmp4.eq pr9, pr0 = r0, RESULT // pr9, pr0 = r0, r34 // 000271 000008000000 04A1 nop.f 0 008600006009 04A2 (pr9) br.cond.dpnt.few L$45 } { .mib 000008000000 04B0 nop.m 0 0000B2201540 04B1 sxt4 r85 = RESULT // r85 = r34 // 000273 004000000000 04B2 nop.b 0 ;; } { .mfi SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 19 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 008C855A0000 04C0 st4 [r85] = r80 000008000000 04C1 nop.f 0 000008000000 04C2 nop.i 0 } 04D0 L$45: // 000271 { .mfb 012000002A40 04D0 mov PRIMARY_CODE = 1 // r41 = 1 // 000275 000008000000 04D1 nop.f 0 008000004000 04D2 br.sptk.few L$23 ;; } 04E0 L$28: // 000169 { .mlx 000008000000 04E0 nop.m 0 800000000000 04E1 movl PRIMARY_CODE = 2402434 // r41 = 2402434 // 000289 0195124094 } 04F0 L$23: // 000307 { .mmi 010802601580 04F0 mov r86 = FAILURE_ACTION ;; // r86 = r38 000008000000 04F1 nop.m 0 00A052900000 04F2 tbit.z pr0, pr10 = PRIMARY_CODE, 0 ;; // pr0, pr10 = r41, 0 } { .mmi 01080250158A 0500 (pr10) mov r86 = SUCCESS_ACTION ;; // r86 = r37 01C405600300 0501 cmp4.eq pr12, pr0 = r0, $STR$ACTION // pr12, pr0 = r0, r86 000008000000 0502 nop.i 0 } { .mfb 000008000000 0510 nop.m 0 000008000000 0511 nop.f 0 00860001000C 0512 (pr12) br.cond.dpnt.few L$47 } { .mii 01200000C640 0520 mov r25 = 6 0000B5601580 0521 sxt4 r86 = $STR$ACTION // r86 = r86 0000B2201880 0522 sxt4 r98 = RESULT // r98 = r34 } { .mii 012000005740 0530 mov r93 = 2 00A43A0015C0 0531 extr.u r87 = OPTIONS, 0, 8 // r87 = r32, 0, 8 0000B2101840 0532 sxt4 r97 = STRING ;; // r97 = r33 } { .mii 010805611580 0540 adds r86 = 8, r86 0000B5701800 0541 sxt4 r96 = r87 0000B28017C0 0542 sxt4 r95 = SECONDARY_CODE ;; // r95 = r40 } { .mib 00B0CD6F0040 0550 ld8 r1 = [r86], -8 0000B2901780 0551 sxt4 r94 = PRIMARY_CODE // r94 = r41 004000000000 0552 nop.b 0 ;; } { .mmi 0080C5601580 0560 ld8 r86 = [r86] ;; 000008000000 0561 nop.m 0 000E001AC180 0562 mov br6 = r86 } SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 20 X00.06 XST$BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 { .mfb 000008000000 0570 nop.m 0 000008000000 0571 nop.f 0 00210000C000 0572 br.call.sptk.few br0 = br6 } { .mii 010800800A40 0580 mov PRIMARY_CODE = r8 // r41 = r8 010805C00040 0581 mov r1 = r92 000008000000 0582 nop.i 0 } 0590 L$47: { .mii 000008000000 0590 nop.m 0 00A402038800 0591 extr.u r32 = OPTIONS, 14, 1 ;; // r32 = r32, 14, 1 // 000313 00A0320001C0 0592 tbit.z pr7, pr6 = r32, 0 } { .mfb 000008000000 05A0 nop.m 0 000008000000 05A1 nop.f 0 008600006006 05A2 (pr6) br.cond.dpnt.few L$48 } { .mib 012000002640 05B0 mov r25 = 1 // 000315 0000B2101740 05B1 sxt4 r93 = STRING // r93 = r33 00A000001000 05B2 br.call.sptk.many br0 = XST$FREE_TEMP ;; } { .mfi 010805C00040 05C0 mov r1 = r92 000008000000 05C1 nop.f 0 000008000000 05C2 nop.i 0 } 05D0 L$48: // 000313 { .mii 000008000000 05D0 nop.m 0 0000B2900200 05D1 sxt4 r8 = PRIMARY_CODE // r8 = r41 // 000321 0001540B6000 05D2 mov.i rspfs = r91 ;; } { .mib 010800C60300 05E0 adds r12 = 48, r12 000E001B4000 05E1 mov br0 = r90 000108001100 05E2 br.ret.sptk.many br0 ;; } .endp XST$BINARY Routine Size: 1520 bytes, Routine Base: _XPO$CODE + 0000 .proc ASCII_TO_BINARY .align 32 ASCII_TO_BINARY: // 000327 { .mii 002C0071C940 05F0 alloc r37 = rspfs, 4, 3, 7, 0 01200002C200 05F1 mov r8 = 22 // 000392 01CC32020000 05F2 cmp4.eq pr0, pr6 = 16, BASE // pr0, pr6 = 16, r32 // 000388 } { .mmi 0119F8CE0300 0600 adds r12 = -16, r12 // 000327 01201001C0C0 0601 mov r3 = 270 // 000397 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 21 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 01200000E640 0602 mov r25 = 7 ;; } { .mii 010800C20240 0610 adds r9 = 16, r12 010802000206 0611 (pr6) mov r8 = BASE // r8 = r32 // 000392 000188000900 0612 mov r36 = br0 ;; // 000327 } { .mii 008C40910000 0620 st2 [r9] = r8 // 000397 012000100240 0621 add r9 = @ltoff(P.AAG), r1 010800C24200 0622 adds r8 = 18, r12 ;; } { .mii 010800100980 0630 mov r38 = r1 // 000327 0000B0000B00 0631 sxt4 r44 = r0 // 000397 0000B2100A80 0632 sxt4 r42 = SUBSTRING // r42 = r33 } { .mmi 0124100049C0 0640 addl r39 = 16642, r0 0080C0900240 0641 ld8 r9 = P.AAG // r9 = [r9] 0000B2100A00 0642 sxt4 r40 = SUBSTRING // r40 = r33 } { .mii 008C40806000 0650 st2 [r8] = r3 010800C280C0 0651 adds r3 = 20, r12 010800C20200 0652 adds r8 = 16, r12 ;; } { .mii 000008000000 0660 nop.m 0 0000B23008C0 0661 sxt4 r35 = DELIMITER_ADDR // r35 = r35 // 000371 0000B0800A40 0662 sxt4 r41 = r8 // 000397 } { .mmi 008C80312000 0670 st4 [r3] = r9 012000100240 0671 add r9 = @ltoff(@fptr(STR$FAILURE)), r1 010800C300C0 0672 adds r3 = 24, r12 ;; } { .mii 000008000000 0680 nop.m 0 0000B0300AC0 0681 sxt4 r43 = r3 0000B2200880 0682 sxt4 r34 = VALUE_ADDR // r34 = r34 // 000370 } { .mmi 0080C0900240 0690 ld8 r9 = STR$FAILURE ;; // r9 = [r9] // 000397 000008000000 0691 nop.m 0 0000B0900B40 0692 sxt4 r45 = r9 } { .mfb 000008000000 06A0 nop.m 0 000008000000 06A1 nop.f 0 00A000001000 06A2 br.call.sptk.many br0 = XST$SCAN } { .mib 010802600040 06B0 mov r1 = r38 00A0308001C0 06B1 tbit.z pr7, pr6 = $STR$STATUS, 0 // pr7, pr6 = r8, 0 008600006007 06B2 (pr7) br.cond.dpnt.few L$3 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 22 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 } { .mmi 010800C300C0 06C0 adds r3 = 24, r12 ;; 0080803000C0 06C1 ld4 r3 = [r3] 000008000000 06C2 nop.i 0 ;; } { .mfi 008C82306000 06D0 st4 [r35] = r3 000008000000 06D1 nop.f 0 000008000000 06D2 nop.i 0 } 06E0 L$3: { .mib 000008000000 06E0 nop.m 0 0000B2100840 06E1 sxt4 r33 = SUBSTRING // r33 = r33 // 000399 004000000000 06E2 nop.b 0 ;; } { .mmi 008042100240 06F0 ld2 r9 = [r33] ;; 01C440900000 06F1 cmp4.eq pr0, pr8 = r0, r9 000008000000 06F2 nop.i 0 } { .mfb 000008000000 0700 nop.m 0 000008000000 0701 nop.f 0 00860000C008 0702 (pr8) br.cond.dpnt.few L$4 } { .mlx 000008000000 0710 nop.m 0 800000000000 0711 movl r17 = 2402450 // 000401 0195124488 } { .mlx 000008000000 0720 nop.m 0 000000000000 0721 movl r10 = 2394113 ;; 0191024045 } { .mlx 01C400A10280 0730 cmp4.eq pr10, pr0 = $STR$STATUS, r10 // pr10, pr0 = r8, r10 000000000000 0731 movl r8 = 2402306 ;; 0195024084 } { .mmi 01080110020A 0740 (pr10) mov r8 = r17 ;; 000008000000 0741 nop.m 0 0000B0800200 0742 sxt4 r8 = r8 // 000405 } { .mfb 000008000000 0750 nop.m 0 000008000000 0751 nop.f 0 0080000E4000 0752 br.sptk.few L$6 ;; } 0760 L$4: // 000399 { .mii 010802108840 0760 adds r33 = 4, r33 // 000411 012000002500 0761 mov COUNTER = 1 // r20 = 1 // 000415 000008000000 0762 nop.i 0 ;; SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 23 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 } { .mmi 00B08A1F8480 0770 ld4 POINTER = [r33], -4 // r18 = [r33], -4 // 000411 008C82200000 0771 st4 [r34] = r0 // 000413 000008000000 0772 nop.i 0 ;; } { .mmi 0080421004C0 0780 ld2 r19 = [r33] ;; // 000415 018C59300000 0781 cmp4.lt pr0, pr11 = 0, r19 000008000000 0782 nop.i 0 } { .mfb 000008000000 0790 nop.m 0 000008000000 0791 nop.f 0 0086000DA00B 0792 (pr11) br.cond.dpnt.few L$9 } { .mii 010800000540 07A0 mov r21 = r0 // 000429 018400040340 07A1 cmp4.lt pr13, pr0 = BASE, r0 // pr13, pr0 = r32, r0 0119F93FE580 07A2 adds r22 = -1, r19 ;; // 000415 } { .mii 01080000254D 07B0 (pr13) adds r21 = 1, r0 // 000429 018439600000 07B1 cmp4.lt pr0, pr7 = r0, r22 // 000415 0184716263C0 07B2 cmp4.lt pr15, pr14 = r19, r22 ;; } { .mii 010001540540 07C0 add r21 = BASE, r21 // r21 = r32, r21 // 000429 01C2700003C7 07C1 (pr7) cmp.eq.or.andcm pr15, pr14 = r0, r0 // 000415 000008000000 07C2 nop.i 0 } { .mlx 000008000000 07D0 nop.m 0 8000000001FF 07D1 movl r23 = 2147483647 ;; // 000426 019FFFDFCB } { .mii 000008000000 07E0 nop.m 0 0000B1500540 07E1 sxt4 r21 = r21 ;; // 000429 00A5F1506540 07E2 shr r21 = r21, 1 } { .bbb 00860000200E 07F0 (pr14) br.cond.dpnt.few L$13 // 000415 004000000000 07F1 nop.b 0 00860008600F 07F2 (pr15) br.cond.dpnt.few L$18 ;; } 0800 L$13: { .mii 010801404500 0800 adds r20 = 2, r20 00A4F9202480 0801 extr r18 = POINTER, 0, 32 // r18 = r18, 0, 32 // 000417 0000B1500780 0802 sxt4 r30 = r21 ;; // 000428 } { .mmi 01C001E00240 0810 cmp.eq pr9, pr0 = r0, r30 008001200600 0811 ld1 DIGIT = [r18] // r24 = [r18] // 000417 000008000000 0812 nop.i 0 ;; } SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 24 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 { .mii 01016189E640 0820 and r25 = 79, DIGIT // r25 = 79, r24 // 000423 0119F98A0680 0821 adds r26 = -48, DIGIT // r26 = -48, r24 // 000421 018C41872000 0822 cmp4.lt pr0, pr8 = 57, DIGIT ;; // pr0, pr8 = 57, r24 // 000419 } { .mmi 0119F99926C0 0830 adds r27 = -55, r25 ;; // 000423 010801A006C8 0831 (pr8) mov r27 = r26 000008000000 0832 nop.i 0 ;; } { .mmi 011129BFE700 0840 sub r28 = -1, DIGIT ;; // r28 = -1, r27 // 000426 000008000000 0841 nop.m 0 0000B1C00700 0842 sxt4 r28 = r28 ;; } { .mii 000008000000 0850 nop.m 0 00A5F1C06700 0851 shr r28 = r28, 1 ;; 010061738440 0852 and r17 = r28, r23 ;; } { .mii 000008000000 0860 nop.m 0 0000B1100740 0861 sxt4 r29 = r17 // 000428 0119F80FC440 0862 adds r17 = -2, r0 } { .mfb 000008000000 0870 nop.m 0 000008000000 0871 nop.f 0 004000000000 0872 nop.b 0 ;; } { .mmi 001000000049 0880 (pr9) break.m 1048577 00C70803C1C0 0881 setf.sig f7 = r30 0120000029C0 0882 mov r39 = 1 ;; // 000417 } { .mmi 00C70803A180 0890 setf.sig f6 = r29 // 000428 008082200440 0891 ld4 r17 = [r34] // 000425 010002724480 0892 add POINTER = r18, r39 ;; // r18 = r18, r39 // 000417 } { .mfi 000008000000 08A0 nop.m 0 0000E000E240 08A1 fcvt.xf f9 = f7 // 000428 000008000000 08A2 nop.i 0 } { .mfi 000008000000 08B0 nop.m 0 0000E000C200 08B1 fcvt.xf f8 = f6 000008000000 08B2 nop.i 0 ;; } { .mfi 000008000000 08C0 nop.m 0 000648910280 08C1 frcpa.s1 f10, pr9 = f8, f9 000008000000 08C2 nop.i 0 ;; } { .mfi 000008000000 08D0 nop.m 0 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 25 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 018448A021C9 08D1 (pr9) fnma.s1 f7 = f10, f9, f1 000008000000 08D2 nop.i 0 ;; } { .mfi 000008000000 08E0 nop.m 0 010438A142C9 08E1 (pr9) fma.s1 f11 = f10, f7, f10 000008000000 08E2 nop.i 0 } { .mfi 000008000000 08F0 nop.m 0 010438700189 08F1 (pr9) fma.s1 f6 = f7, f7, f0 000008000000 08F2 nop.i 0 ;; } { .mfi 000008000000 0900 nop.m 0 0104508001C9 0901 (pr9) fma.s1 f7 = f8, f10, f0 000008000000 0902 nop.i 0 ;; } { .mfi 000008000000 0910 nop.m 0 010430B16289 0911 (pr9) fma.s1 f10 = f11, f6, f11 000008000000 0912 nop.i 0 ;; } { .mfi 000008000000 0920 nop.m 0 0184389102C9 0921 (pr9) fnma.s1 f11 = f9, f7, f8 000008000000 0922 nop.i 0 } { .mfi 000008000000 0930 nop.m 0 018448A02189 0931 (pr9) fnma.s1 f6 = f10, f9, f1 000008000000 0932 nop.i 0 ;; } { .mfi 000008000000 0940 nop.m 0 010430A14289 0941 (pr9) fma.s1 f10 = f10, f6, f10 000008000000 0942 nop.i 0 ;; } { .mfi 000008000000 0950 nop.m 0 010450B0E1C9 0951 (pr9) fma.s1 f7 = f11, f10, f7 000008000000 0952 nop.i 0 } { .mfi 000008000000 0960 nop.m 0 018450902189 0961 (pr9) fnma.s1 f6 = f9, f10, f1 000008000000 0962 nop.i 0 ;; } { .mfi 000008000000 0970 nop.m 0 010430A142C9 0971 (pr9) fma.s1 f11 = f10, f6, f10 000008000000 0972 nop.i 0 } { .mfi 000008000000 0980 nop.m 0 018438910189 0981 (pr9) fnma.s1 f6 = f9, f7, f8 000008000000 0982 nop.i 0 ;; SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 26 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 } { .mfi 000008000000 0990 nop.m 0 010430B0E289 0991 (pr9) fma.s1 f10 = f11, f6, f7 000008000000 0992 nop.i 0 ;; } { .mfi 000008000000 09A0 nop.m 0 0004D00141C0 09A1 fcvt.fx.trunc.s1 f7 = f10 000008000000 09A2 nop.i 0 ;; } { .mmi 00870800E7C0 09B0 getf.sig r31 = f7 ;; 01A40113E2C0 09B1 cmp4.ltu pr11, pr0 = r31, r17 // 000425 000008000000 09B2 nop.i 0 } { .mfb 000008000000 09C0 nop.m 0 000008000000 09C1 nop.f 0 00860009000B 09C2 (pr11) br.cond.dpnt.few L$15 } { .mmi 008082200A00 09D0 ld4 r40 = [r34] // 000436 00C708040380 09D1 setf.sig f14 = BASE // f14 = r32 00A4F9202480 09D2 extr r18 = POINTER, 0, 32 ;; // r18 = r18, 0, 32 // 000417 } { .mib 000008000000 09E0 nop.m 0 0000B1500240 09E1 sxt4 r9 = r21 // 000428 004000000000 09E2 nop.b 0 ;; } { .mii 00C708050340 09F0 setf.sig f13 = r40 // 000436 01C000900340 09F1 cmp.eq pr13, pr0 = r0, r9 // 000428 000008000000 09F2 nop.i 0 ;; } { .mfi 000008000000 0A00 nop.m 0 01D070D00300 0A01 xma.l f12 = f13, f14, f0 // 000436 000008000000 0A02 nop.i 0 ;; } { .mmi 008708018A00 0A10 getf.sig r40 = f12 ;; 010001B506C0 0A11 add r27 = r40, DIGIT // r27 = r40, r27 000008000000 0A12 nop.i 0 ;; } { .mmi 008C82236000 0A20 st4 [r34] = r27 00900124EA80 0A21 ld1 DIGIT = [r18], r39 // r42 = [r18], r39 // 000417 000008000000 0A22 nop.i 0 ;; } { .mii 010162A9EAC0 0A30 and r43 = 79, DIGIT // r43 = 79, r42 // 000423 0119FAAA0B00 0A31 adds r44 = -48, DIGIT // r44 = -48, r42 // 000421 018C62A72000 0A32 cmp4.lt pr0, pr12 = 57, DIGIT ;; // pr0, pr12 = 57, r42 // 000419 } { .mmi SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 27 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 0119FAB92B40 0A40 adds r45 = -55, r43 ;; // 000423 010802C00B4C 0A41 (pr12) mov r45 = r44 000008000000 0A42 nop.i 0 ;; } { .mmi 01112ADFE0C0 0A50 sub r3 = -1, DIGIT ;; // r3 = -1, r45 // 000426 000008000000 0A51 nop.m 0 0000B03000C0 0A52 sxt4 r3 = r3 ;; } { .mii 000008000000 0A60 nop.m 0 00A5F03060C0 0A61 shr r3 = r3, 1 ;; 010061706440 0A62 and r17 = r3, r23 ;; } { .mii 000008000000 0A70 nop.m 0 0000B11008C0 0A71 sxt4 r35 = r17 // 000428 0119F80FC440 0A72 adds r17 = -2, r0 } { .mfb 000008000000 0A80 nop.m 0 000008000000 0A81 nop.f 0 004000000000 0A82 nop.b 0 ;; } { .mmi 00100000004D 0A90 (pr13) break.m 1048577 00C708012800 0A91 setf.sig f32 = r9 000008000000 0A92 nop.i 0 ;; } { .mfi 00C7080463C0 0AA0 setf.sig f15 = r35 0000E0040880 0AA1 fcvt.xf f34 = f32 000008000000 0AA2 nop.i 0 ;; } { .mfi 000008000000 0AB0 nop.m 0 0000E001E840 0AB1 fcvt.xf f33 = f15 000008000000 0AB2 nop.i 0 ;; } { .mfi 000008000000 0AC0 nop.m 0 00066A2428C0 0AC1 frcpa.s1 f35, pr13 = f33, f34 000008000000 0AC2 nop.i 0 ;; } { .mfi 000008000000 0AD0 nop.m 0 01851230280D 0AD1 (pr13) fnma.s1 f32 = f35, f34, f1 000008000000 0AD2 nop.i 0 ;; } { .mfi 000008000000 0AE0 nop.m 0 01050234690D 0AE1 (pr13) fma.s1 f36 = f35, f32, f35 000008000000 0AE2 nop.i 0 } { .mfi 000008000000 0AF0 nop.m 0 0105020003CD 0AF1 (pr13) fma.s1 f15 = f32, f32, f0 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 28 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 000008000000 0AF2 nop.i 0 ;; } { .mfi 000008000000 0B00 nop.m 0 01051A10080D 0B01 (pr13) fma.s1 f32 = f33, f35, f0 000008000000 0B02 nop.i 0 ;; } { .mfi 000008000000 0B10 nop.m 0 01047A4488CD 0B11 (pr13) fma.s1 f35 = f36, f15, f36 000008000000 0B12 nop.i 0 ;; } { .mfi 000008000000 0B20 nop.m 0 01850224290D 0B21 (pr13) fnma.s1 f36 = f34, f32, f33 000008000000 0B22 nop.i 0 } { .mfi 000008000000 0B30 nop.m 0 0185123023CD 0B31 (pr13) fnma.s1 f15 = f35, f34, f1 000008000000 0B32 nop.i 0 ;; } { .mfi 000008000000 0B40 nop.m 0 01047A3468CD 0B41 (pr13) fma.s1 f35 = f35, f15, f35 000008000000 0B42 nop.i 0 ;; } { .mfi 000008000000 0B50 nop.m 0 01051A44080D 0B51 (pr13) fma.s1 f32 = f36, f35, f32 000008000000 0B52 nop.i 0 } { .mfi 000008000000 0B60 nop.m 0 01851A2023CD 0B61 (pr13) fnma.s1 f15 = f34, f35, f1 000008000000 0B62 nop.i 0 ;; } { .mfi 000008000000 0B70 nop.m 0 01047A34690D 0B71 (pr13) fma.s1 f36 = f35, f15, f35 000008000000 0B72 nop.i 0 } { .mfi 000008000000 0B80 nop.m 0 0185022423CD 0B81 (pr13) fnma.s1 f15 = f34, f32, f33 000008000000 0B82 nop.i 0 ;; } { .mfi 000008000000 0B90 nop.m 0 01047A4408CD 0B91 (pr13) fma.s1 f35 = f36, f15, f32 000008000000 0B92 nop.i 0 ;; } { .mfi 000008000000 0BA0 nop.m 0 0004D0046800 0BA1 fcvt.fx.trunc.s1 f32 = f35 000008000000 0BA2 nop.i 0 ;; } SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 29 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 { .mmi 008708040280 0BB0 getf.sig r10 = f32 ;; 01A401B141C0 0BB1 cmp4.ltu pr7, pr0 = r10, r27 // 000425 000008000000 0BB2 nop.i 0 } { .mfb 000008000000 0BC0 nop.m 0 000008000000 0BC1 nop.f 0 008600050007 0BC2 (pr7) br.cond.dpnt.few L$15 } { .mmi 00C7080409C0 0BD0 setf.sig f39 = BASE // f39 = r32 // 000436 00C708036980 0BD1 setf.sig f38 = r27 01847142C000 0BD2 cmp4.lt pr0, pr14 = r22, COUNTER ;; // pr0, pr14 = r22, r20 // 000415 } { .mfi 000008000000 0BE0 nop.m 0 01D13A600940 0BE1 xma.l f37 = f38, f39, f0 // 000436 000008000000 0BE2 nop.i 0 ;; } { .mmi 00870804A6C0 0BF0 getf.sig r27 = f37 ;; 010002D366C0 0BF1 add r27 = r27, DIGIT // r27 = r27, r45 000008000000 0BF2 nop.i 0 ;; } { .mfb 008C82236000 0C00 st4 [r34] = r27 000008000000 0C01 nop.f 0 0095FFF8000E 0C02 (pr14) br.cond.dptk.few L$13 // 000415 } { .mfb 018401426240 0C10 cmp4.lt pr9, pr0 = r19, COUNTER // pr9, pr0 = r19, r20 000008000000 0C11 nop.f 0 00860004A009 0C12 (pr9) br.cond.dpnt.few L$9 ;; } 0C20 L$18: { .mii 010801402500 0C20 adds r20 = 1, r20 00A4F9202480 0C21 extr r18 = POINTER, 0, 32 // r18 = r18, 0, 32 // 000417 0000B1500740 0C22 sxt4 r29 = r21 ;; // 000428 } { .mmi 01C001D002C0 0C30 cmp.eq pr11, pr0 = r0, r29 008001200200 0C31 ld1 DIGIT = [r18] // r8 = [r18] // 000417 000008000000 0C32 nop.i 0 ;; } { .mii 01016089E840 0C40 and r33 = 79, DIGIT // r33 = 79, r8 // 000423 0119F88A0600 0C41 adds r24 = -48, DIGIT // r24 = -48, r8 // 000421 018C50872000 0C42 cmp4.lt pr0, pr10 = 57, DIGIT ;; // pr0, pr10 = 57, r8 // 000419 } { .mmi 0119FA192840 0C50 adds r33 = -55, r33 ;; // 000423 010802100640 0C51 mov r25 = r33 000008000000 0C52 nop.i 0 ;; } { .mmi SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 30 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 01080180064A 0C60 (pr10) mov r25 = r24 ;; 0111299FE680 0C61 sub r26 = -1, DIGIT // r26 = -1, r25 // 000426 000008000000 0C62 nop.i 0 ;; } { .mii 000008000000 0C70 nop.m 0 0000B1A00680 0C71 sxt4 r26 = r26 ;; 00A5F1A06680 0C72 shr r26 = r26, 1 ;; } { .mmi 010061734440 0C80 and r17 = r26, r23 ;; 000008000000 0C81 nop.m 0 0000B1100700 0C82 sxt4 r28 = r17 // 000428 } { .mfi 0119F80FC440 0C90 adds r17 = -2, r0 000008000000 0C91 nop.f 0 000008000000 0C92 nop.i 0 ;; } { .mmi 00100000004B 0CA0 (pr11) break.m 1048577 00C70803AA40 0CA1 setf.sig f41 = r29 0120000027C0 0CA2 mov r31 = 1 ;; // 000417 } { .mmi 00C708038A00 0CB0 setf.sig f40 = r28 // 000428 008082200440 0CB1 ld4 r17 = [r34] // 000425 010001F24480 0CB2 add POINTER = r18, r31 ;; // r18 = r18, r31 // 000417 } { .mfi 000008000000 0CC0 nop.m 0 0000E0052AC0 0CC1 fcvt.xf f43 = f41 // 000428 000008000000 0CC2 nop.i 0 } { .mfi 000008000000 0CD0 nop.m 0 0000E0050A80 0CD1 fcvt.xf f42 = f40 000008000000 0CD2 nop.i 0 ;; } { .mfi 000008000000 0CE0 nop.m 0 00065AB54B00 0CE1 frcpa.s1 f44, pr11 = f42, f43 000008000000 0CE2 nop.i 0 ;; } { .mfi 000008000000 0CF0 nop.m 0 01855AC02A4B 0CF1 (pr11) fnma.s1 f41 = f44, f43, f1 000008000000 0CF2 nop.i 0 ;; } { .mfi 000008000000 0D00 nop.m 0 01054AC58B4B 0D01 (pr11) fma.s1 f45 = f44, f41, f44 000008000000 0D02 nop.i 0 } { .mfi 000008000000 0D10 nop.m 0 01054A900A0B 0D11 (pr11) fma.s1 f40 = f41, f41, f0 SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 31 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 000008000000 0D12 nop.i 0 ;; } { .mfi 000008000000 0D20 nop.m 0 010562A00A4B 0D21 (pr11) fma.s1 f41 = f42, f44, f0 000008000000 0D22 nop.i 0 ;; } { .mfi 000008000000 0D30 nop.m 0 010542D5AB0B 0D31 (pr11) fma.s1 f44 = f45, f40, f45 000008000000 0D32 nop.i 0 ;; } { .mfi 000008000000 0D40 nop.m 0 01854AB54B4B 0D41 (pr11) fnma.s1 f45 = f43, f41, f42 000008000000 0D42 nop.i 0 } { .mfi 000008000000 0D50 nop.m 0 01855AC02A0B 0D51 (pr11) fnma.s1 f40 = f44, f43, f1 000008000000 0D52 nop.i 0 ;; } { .mfi 000008000000 0D60 nop.m 0 010542C58B0B 0D61 (pr11) fma.s1 f44 = f44, f40, f44 000008000000 0D62 nop.i 0 ;; } { .mfi 000008000000 0D70 nop.m 0 010562D52A4B 0D71 (pr11) fma.s1 f41 = f45, f44, f41 000008000000 0D72 nop.i 0 } { .mfi 000008000000 0D80 nop.m 0 018562B02A0B 0D81 (pr11) fnma.s1 f40 = f43, f44, f1 000008000000 0D82 nop.i 0 ;; } { .mfi 000008000000 0D90 nop.m 0 010542C58B4B 0D91 (pr11) fma.s1 f45 = f44, f40, f44 000008000000 0D92 nop.i 0 } { .mfi 000008000000 0DA0 nop.m 0 01854AB54A0B 0DA1 (pr11) fnma.s1 f40 = f43, f41, f42 000008000000 0DA2 nop.i 0 ;; } { .mfi 000008000000 0DB0 nop.m 0 010542D52B0B 0DB1 (pr11) fma.s1 f44 = f45, f40, f41 000008000000 0DB2 nop.i 0 ;; } { .mfi 000008000000 0DC0 nop.m 0 0004D0058A40 0DC1 fcvt.fx.trunc.s1 f41 = f44 000008000000 0DC2 nop.i 0 ;; } SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 32 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 { .mmi 008708052780 0DD0 getf.sig r30 = f41 ;; 01A40113C340 0DD1 cmp4.ltu pr13, pr0 = r30, r17 // 000425 000008000000 0DD2 nop.i 0 } { .mfb 000008000000 0DE0 nop.m 0 000008000000 0DE1 nop.f 0 00860000C00D 0DE2 (pr13) br.cond.dpnt.few L$15 } { .mmi 008082200A00 0DF0 ld4 r40 = [r34] // 000436 00C708040C00 0DF1 setf.sig f48 = BASE // f48 = r32 018431426000 0DF2 cmp4.lt pr0, pr6 = r19, COUNTER ;; // pr0, pr6 = r19, r20 // 000415 } { .mfi 00C708050BC0 0E00 setf.sig f47 = r40 // 000436 000008000000 0E01 nop.f 0 000008000000 0E02 nop.i 0 ;; } { .mfi 000008000000 0E10 nop.m 0 01D182F00B80 0E11 xma.l f46 = f47, f48, f0 000008000000 0E12 nop.i 0 ;; } { .mmi 00870805CA00 0E20 getf.sig r40 = f46 ;; 010001950640 0E21 add r25 = r40, DIGIT // r25 = r40, r25 000008000000 0E22 nop.i 0 ;; } { .mbb 008C82232000 0E30 st4 [r34] = r25 0095FFFBE006 0E31 (pr6) br.cond.dptk.few L$18 // 000415 008000006000 0E32 br.sptk.few L$9 ;; } 0E40 L$15: // 000425 { .mlx 000008000000 0E40 nop.m 0 000000000000 0E41 movl r8 = 2402458 // 000431 0195124684 } { .mfb 000008000000 0E50 nop.m 0 000008000000 0E51 nop.f 0 008000004000 0E52 br.sptk.few L$6 ;; } 0E60 L$9: // 000415 { .mfi 012000002200 0E60 mov r8 = 1 // 000444 000008000000 0E61 nop.f 0 000008000000 0E62 nop.i 0 } 0E70 L$6: { .mii 000008000000 0E70 nop.m 0 00015404A000 0E71 mov.i rspfs = r37 010800C20300 0E72 adds r12 = 16, r12 ;; SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 33 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 } { .mib 000008000000 0E80 nop.m 0 000E00148000 0E81 mov br0 = r36 000108001100 0E82 br.ret.sptk.many br0 ;; } .endp ASCII_TO_BINARY Routine Size: 2208 bytes, Routine Base: _XPO$CODE + 05F0 .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC .lcomm $STR$PATTERN, 8, 8 .lcomm $STR$PATTERN, 8, 8 .lcomm $STR$PATTERN, 8, 8 .lcomm P.AAA, 1, 1 .lcomm fill$$1, 3, 4 .lcomm P.AAB, 1, 1 .lcomm fill$$2, 3, 4 .lcomm P.AAC, 1, 1 .lcomm fill$$3, 3, 4 .lcomm P.AAG, 24, 16 .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC $STR$PATTERN: 0001 0000 data2 0x1 // data2 1 0E 0002 data1 0xE // data1 14 01 0003 data1 0x1 // data1 1 00000000 0004 data4 P.AAA $STR$PATTERN: 0001 0008 data2 0x1 // data2 1 0E 000A data1 0xE // data1 14 01 000B data1 0x1 // data1 1 00000000 000C data4 P.AAB $STR$PATTERN: 0001 0010 data2 0x1 // data2 1 0E 0012 data1 0xE // data1 14 01 0013 data1 0x1 // data1 1 00000000 0014 data4 P.AAC .psect _XPO$PLIT, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC P.AAA: 20 0000 data1 0x20 // data1 32 P.AAB: 20 0004 data1 0x20 // data1 32 P.AAC: 20 0008 data1 0x20 // data1 32 P.AAG: 33323130 000C string "0123456789abcdefABCDEF\X00\X00" 37363534 0010 62613938 0014 66656463 0018 44434241 001C 00004645 0020 .section .data .type XST$VALIDATE, @function .global XST$VALIDATE .section .data .type STR$FAILURE, @function SBIN Machine Code Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 34 X00.06 ASCII_TO_BINARY 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 .global STR$FAILURE .section .data .type XST$SCAN, @function .global XST$SCAN .section .data .type STR$FAILURE, @function .global STR$FAILURE .section .data .type XST$SCAN, @function .global XST$SCAN .section .data .type STR$FAILURE, @function .global STR$FAILURE .section .data .type XST$SCAN, @function .global XST$SCAN .section .data .type XST$FREE_TEMP, @function .global XST$FREE_TEMP .section .data .type STR$FAILURE, @function .global STR$FAILURE .section .data .type XST$SCAN, @function .global XST$SCAN ; Library Statistics ; ; -------- Symbols -------- Pages ; File Total Loaded Percent Mapped ; ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14 ; 590 85 14 270 ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPOSYS.L32;14 ; 91 20 21 27 Source Listing 4-FEB-2004 11:01:59 BLISS-32I T1.1-053 Page 35 Source Listing 19-MAR-2002 10:11:36 [LASTOVICA.XPORT.VMSGEN]SBIN.BLI;1 COMMAND LINE: BLISSSBIN/LIST/DEBUG