XST$CMP String Comparison Funct 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 1 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 0 1 MODULE STRCMP ( IDENT = 'X00.04' %TITLE 'XST$CMP String Comparison Function' 0 2 %BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) ) 0 3 %BLISS36( ,ENTRY( XST$CMP ),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_COMPARE function. 1 33 ! 1 34 ! ENVIRONMENT: User mode - multiple host operating/file systems 1 35 ! 1 36 ! AUTHOR: Ward Clark, CREATION DATE: 15-Feb-80 1 37 ! 1 38 !-- STRCMP XST$CMP String Comparison Funct 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 2 X00.04 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 1 40 ! 1 41 ! TABLE OF CONTENTS: 1 42 ! 1 43 1 44 FORWARD ROUTINE 1 45 XST$CMP; ! String comparison routine 1 46 1 47 ! 1 48 ! INCLUDE FILES: 1 49 ! 1 50 1 51 LIBRARY 'XPORT' ; ! Public XPORT control block and macro definitions 1 53 LIBRARY 'XPOSYS' ; ! Internal XPORT macro definitions 1 55 1 56 $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 57 1 58 ! 1 59 ! MACROS: 1 60 ! 1 61 1 62 ! 1 63 ! EQUATED SYMBOLS: 1 64 ! 1 65 1 66 ! 1 67 ! PSECT DECLARATIONS: 1 68 ! 1 69 1 70 $XPO_PSECTS ! Declare XPORT PSECT names and attributes 1 71 1 72 ! 1 73 ! OWN STORAGE: 1 74 ! 1 75 1 76 OWN 1 77 function_text : $STR_DESCRIPTOR( STRING = ' compared to ' ); 1 78 1 79 ! 1 80 ! EXTERNAL REFERENCES: 1 81 ! STRCMP XST$CMP String Comparison Funct 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 3 X00.04 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 1 83 GLOBAL ROUTINE XST$CMP( options, string1, string2, fill, success_action, failure_action ) = 1 84 1 85 !++ 1 86 ! 1 87 ! FUNCTIONAL DESCRIPTION: 1 88 ! 1 89 ! This routine implements the $STR_COMPARE function. 1 90 ! 1 91 ! FORMAL PARAMETERS: 1 92 ! 1 93 ! options - string handling options 1 94 ! string1 - address of a string descriptor 1 95 ! string2 - address of a string descriptor 1 96 ! fill - optional fill character 1 97 ! success_action - address of a success action routine 1 98 ! failure_action - address of a failure action routine 1 99 ! 1 100 ! IMPLICIT INPUTS: 1 101 ! 1 102 ! None 1 103 ! 1 104 ! IMPLICIT OUTPUTS: 1 105 ! 1 106 ! None 1 107 ! 1 108 ! COMPLETION CODES: (secondary passed to action routine only) 1 109 ! 1 110 ! completion code from CH$COMPARE function ( -1, 0, 1 ) or equivalent 1 111 ! 1 112 ! STR$_BAD_STRNG1 - invalid primary string 1 113 ! secondary = failure completion code from $STR_VALIDATE 1 114 ! STR$_BAD_STRNG2 - invalid secondary string 1 115 ! secondary = failure completion code from $STR_VALIDATE 1 116 ! 1 117 ! SIDE EFFECTS: 1 118 ! 1 119 ! None 1 120 ! 1 121 !-- 1 122 1 123 BEGIN 2 124 2 125 MAP 2 126 options : $STR_OPTIONS, 2 127 string1 : REF $STR_DESCRIPTOR(), 2 128 string2 : REF $STR_DESCRIPTOR(); 2 129 2 130 MACRO 2 131 length1 = string1[STR$H_LENGTH] %, 2 132 pointer1 = string1[STR$A_POINTER] %, 2 133 length2 = string2[STR$H_LENGTH] %, 2 134 pointer2 = string2[STR$A_POINTER] %; 2 135 2 136 ! 2 137 ! Initialization 2 138 ! 2 139 STRCMP XST$CMP String Comparison Funct 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 4 X00.04 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 2 140 $STR_MAIN_BEGIN( COMPARE ) 3 141 3 142 $STR_VALIDATE( .string1, BAD_STRNG1 ); ! Validate the two input string descriptors. 3 143 $STR_VALIDATE( .string2, BAD_STRNG2 ); 3 144 3 145 ! 3 146 ! Perform a normal comparison if a fill character was specified or the strings are the same length. 3 147 ! 3 148 3 149 IF .fill NEQ -1 OR .length1 EQL .length2 3 150 THEN 3 151 $STR_QUIT(( CH$COMPARE( .length1, .pointer1, .length2, .pointer2, .fill ) )); 3 152 3 153 ! 3 154 ! Perform special comparison processing if no fill character was specified. 3 155 ! 3 156 3 157 IF .length1 LSS .length2 3 158 THEN 3 159 IF CH$LEQ( .length1, .pointer1, .length1, .pointer2, 0 ) 3 160 THEN 3 161 $STR_QUIT( (-1) ) 4 162 ELSE 3 163 $STR_QUIT( (1) ) 4 164 ELSE 3 165 IF CH$LSS( .length2, .pointer1, .length2, .pointer2, 0 ) 3 166 THEN 3 167 $STR_QUIT( (-1) ) 4 168 ELSE 3 169 $STR_QUIT( (1) ); 3 170 3 171 $STR_MAIN_END; 2 172 2 173 ! 2 174 ! Call an appropriate action routine. 2 175 ! 2 176 2 177 $STR_ACTION_RTN( function_text, .string1, .string2 ); 2 178 2 179 ! 2 180 ! Free any temporary XPORT strings input to this comparison function. 2 181 ! 2 182 2 183 IF NOT .options[STR$V_NO_FREE_T] ! Unless this is an internal XPORT call, 2 184 THEN ! 2 185 BEGIN ! 3 186 $STR_FREE_TEMP( .string1 ); ! free any temporary input strings. 3 187 $STR_FREE_TEMP( .string2 ); 3 188 END; 2 189 2 190 ! 2 191 ! Return the final completion code to the caller. 2 192 ! 2 193 2 194 RETURN .primary_code 2 195 2 196 END; STRCMP XST$CMP String Comparison Funct 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 5 X00.04 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 1 197 END 1 198 ELUDOM STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 6 X00.04 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 .psect _XPO$CODE, CON, LCL, SHR, EXE, NOWRT, NOVEC .proc XST$CMP .align 32 .global XST$CMP XST$CMP: // 000083 { .mii 002C0285D140 0000 alloc r69 = rspfs, 6, 34, 6, 0 0108001011C0 0001 mov r71 = r1 000188001100 0002 mov r68 = br0 } { .mii 012000002640 0010 mov r25 = 1 // 000142 0000B2101200 0011 sxt4 r72 = STRING1 // r72 = r33 010800000A00 0012 mov SECONDARY_CODE = r0 ;; // r40 = r0 // 000140 } { .mib 000008000000 0020 nop.m 0 000198001180 0021 mov r70 = pr // 000083 00A000001000 0022 br.call.sptk.many br0 = XST$VALIDATE // 000142 } { .mib 010804700040 0030 mov r1 = r71 00A0308001C0 0031 tbit.z pr7, pr6 = $STR$STATUS, 0 // pr7, pr6 = r8, 0 008600006006 0032 (pr6) br.cond.dpnt.few L$2 } { .mlx 010800800A00 0040 mov SECONDARY_CODE = $STR$STATUS // r40 = r8 800000000000 0041 movl PRIMARY_CODE = 2402386 // r41 = 2402386 0195025494 } { .mfb 000008000000 0050 nop.m 0 000008000000 0051 nop.f 0 008000052000 0052 br.sptk.few L$4 ;; } 0060 L$2: // 000143 { .mib 012000002640 0060 mov r25 = 1 0000B2201200 0061 sxt4 r72 = STRING2 // r72 = r34 00A000001000 0062 br.call.sptk.many br0 = XST$VALIDATE } { .mib 010804700040 0070 mov r1 = r71 00A0308001C0 0071 tbit.z pr7, pr6 = $STR$STATUS, 0 // pr7, pr6 = r8, 0 008600006006 0072 (pr6) br.cond.dpnt.few L$5 } { .mlx 010800800A00 0080 mov SECONDARY_CODE = $STR$STATUS // r40 = r8 800000000000 0081 movl PRIMARY_CODE = 2402394 // r41 = 2402394 0195025694 } { .mfb 000008000000 0090 nop.m 0 000008000000 0091 nop.f 0 00800004A000 0092 br.sptk.few L$4 ;; } 00A0 L$5: STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 7 X00.04 XST$CMP 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 { .mfb 01DC423FE000 00A0 cmp4.eq pr0, pr8 = -1, FILL // pr0, pr8 = -1, r35 // 000149 000008000000 00A1 nop.f 0 008600008008 00A2 (pr8) br.cond.dpnt.few L$13 } { .mii 000008000000 00B0 nop.m 0 0000B2200AC0 00B1 sxt4 r43 = STRING2 // r43 = r34 0000B2100A80 00B2 sxt4 r42 = STRING1 ;; // r42 = r33 } { .mmi 008042B00AC0 00C0 ld2 r43 = [r43] 008042A00A80 00C1 ld2 r42 = [r42] 000008000000 00C2 nop.i 0 ;; } { .mfb 01C45AB54000 00D0 cmp4.eq pr0, pr11 = r42, r43 000008000000 00D1 nop.f 0 00860002200B 00D2 (pr11) br.cond.dpnt.few L$14 } 00E0 L$13: { .mii 0120080FEC00 00E0 mov r48 = 255 // 000151 0000B2200B40 00E1 sxt4 r45 = STRING2 // r45 = r34 0000B2100B00 00E2 sxt4 r44 = STRING1 ;; // r44 = r33 } { .mii 000008000000 00F0 nop.m 0 0000923008C0 00F1 zxt4 r35 = FILL // r35 = r35 010802D08B40 00F2 adds r45 = 4, r45 ;; } { .mii 010802C08B00 0100 adds r44 = 4, r44 010063047300 0101 and r76 = r35, r48 000008000000 0102 nop.i 0 ;; } { .mmi 00B08ADF8BC0 0110 ld4 r47 = [r45], -4 00B08ACF8B80 0111 ld4 r46 = [r44], -4 010804C00C40 0112 mov r49 = r76 ;; } { .mmi 008042D012C0 0120 ld2 r75 = [r45] 008042C01240 0121 ld2 r73 = [r44] 0000B2F00BC0 0122 sxt4 r47 = r47 ;; } { .mii 000008000000 0130 nop.m 0 0000B2E00B80 0131 sxt4 r46 = r46 010802F01280 0132 mov r74 = r47 ;; } { .mii 010802E01200 0140 mov r72 = r46 010804900CC0 0141 mov r51 = r73 010804B00C80 0142 mov r50 = r75 } { .mfb STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 8 X00.04 XST$CMP 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 000008000000 0150 nop.m 0 000008000000 0151 nop.f 0 00A000001000 0152 br.call.sptk.many br0 = OTS$STRCMP_LSSP } { .mib 01C000010180 0160 cmp.eq pr6, pr0 = r8, r0 010804700040 0161 mov r1 = r71 008600004006 0162 (pr6) br.cond.dpnt.few L$18 } { .mfb 0119F80FEA40 0170 adds r41 = -1, r0 000008000000 0171 nop.f 0 00800002E000 0172 br.sptk.few L$4 ;; } 0180 L$18: { .mii 010803101300 0180 mov r76 = r49 0108032012C0 0181 mov r75 = r50 010802F01280 0182 mov r74 = r47 } { .mmi 010803301240 0190 mov r73 = r51 010802E01200 0191 mov r72 = r46 010800000D00 0192 mov r52 = r0 } { .mfb 000008000000 01A0 nop.m 0 000008000000 01A1 nop.f 0 00A000001000 01A2 br.call.sptk.many br0 = OTS$STRCMP_LEQP } { .mii 010178802200 01B0 xor r8 = 1, r8 010804700040 01B1 mov r1 = r71 ;; 01C010010000 01B2 cmp.eq pr0, pr2 = r8, r0 ;; } { .mmi 010800002D02 01C0 (pr2) adds r52 = 1, r0 ;; 010803400A40 01C1 mov PRIMARY_CODE = r52 // r41 = r52 000008000000 01C2 nop.i 0 } { .mfb 000008000000 01D0 nop.m 0 000008000000 01D1 nop.f 0 008000022000 01D2 br.sptk.few L$4 ;; } 01E0 L$14: // 000149 { .mii 000008000000 01E0 nop.m 0 0000B2200D80 01E1 sxt4 r54 = STRING2 // r54 = r34 // 000157 0000B2100D40 01E2 sxt4 r53 = STRING1 ;; // r53 = r33 } { .mmi 008043600E00 01F0 ld2 r56 = [r54] 008043501240 01F1 ld2 r73 = [r53] 000008000000 01F2 nop.i 0 ;; } { .mfb STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 9 X00.04 XST$CMP 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 01843B892000 0200 cmp4.lt pr0, pr7 = r73, r56 000008000000 0201 nop.f 0 00860000E007 0202 (pr7) br.cond.dpnt.few L$21 } { .mii 010803608E80 0210 adds r58 = 4, r54 // 000159 010803508E40 0211 adds r57 = 4, r53 012000002F40 0212 mov r61 = 1 // 000161 } { .mmi 0119F80FEF00 0220 adds r60 = -1, r0 ;; 008083A00D80 0221 ld4 r54 = [r58] // 000159 000008000000 0222 nop.i 0 ;; } { .mii 008083900D40 0230 ld4 r53 = [r57] 0000B3601280 0231 sxt4 r74 = r54 ;; 0000B3501200 0232 sxt4 r72 = r53 } { .mfb 000008000000 0240 nop.m 0 000008000000 0241 nop.f 0 00A000001000 0242 br.call.sptk.many br0 = OTS$STRCMP_LEQS } { .mii 01C010010000 0250 cmp.eq pr0, pr2 = r8, r0 010804700040 0251 mov r1 = r71 ;; 010803C00F42 0252 (pr2) mov r61 = r60 ;; // 000161 } { .mfb 010803D00A40 0260 mov PRIMARY_CODE = r61 // r41 = r61 000008000000 0261 nop.f 0 008000010000 0262 br.sptk.few L$4 ;; } 0270 L$21: // 000157 { .mii 010803508D40 0270 adds r53 = 4, r53 010803608D80 0271 adds r54 = 4, r54 010803801240 0272 mov r73 = r56 // 000165 } { .mib 012000003000 0280 mov r64 = 1 // 000167 0119F80FEFC0 0281 adds r63 = -1, r0 004000000000 0282 nop.b 0 ;; } { .mmi 008083500D40 0290 ld4 r53 = [r53] // 000165 008083600D80 0291 ld4 r54 = [r54] 000008000000 0292 nop.i 0 ;; } { .mii 000008000000 02A0 nop.m 0 0000B3501200 02A1 sxt4 r72 = r53 0000B3601280 02A2 sxt4 r74 = r54 } { .mfb 000008000000 02B0 nop.m 0 STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 10 X00.04 XST$CMP 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 000008000000 02B1 nop.f 0 00A000001000 02B2 br.call.sptk.many br0 = OTS$STRCMP_LSSS } { .mii 01C010010000 02C0 cmp.eq pr0, pr2 = r8, r0 010804700040 02C1 mov r1 = r71 ;; 010803F01002 02C2 (pr2) mov r64 = r63 ;; // 000167 } { .mfi 010804000A40 02D0 mov PRIMARY_CODE = r64 // r41 = r64 000008000000 02D1 nop.f 0 000008000000 02D2 nop.i 0 ;; } 02E0 L$4: // 000177 { .mii 01C400052180 02E0 cmp4.eq pr6, pr0 = PRIMARY_CODE, r0 // pr6, pr0 = r41, r0 00A042900240 02E1 tbit.z pr9, pr8 = PRIMARY_CODE, 0 ;; // pr9, pr8 = r41, 0 01C248000206 02E2 (pr6) cmp.eq.or.andcm pr8, pr9 = r0, r0 ;; } { .mmi 010802501049 02F0 (pr9) mov r65 = FAILURE_ACTION ;; // r65 = r37 010802401048 02F1 (pr8) mov r65 = SUCCESS_ACTION // r65 = r36 000008000000 02F2 nop.i 0 ;; } { .mfb 01C4041002C0 0300 cmp4.eq pr11, pr0 = r0, $STR$ACTION // pr11, pr0 = r0, r65 000008000000 0301 nop.f 0 00860001000B 0302 (pr11) br.cond.dpnt.few L$23 } { .mii 01200000C640 0310 mov r25 = 6 0000B2801280 0311 sxt4 r74 = SECONDARY_CODE // r74 = r40 0000B4101040 0312 sxt4 r65 = $STR$ACTION // r65 = r65 } { .mii 012000100A00 0320 add r40 = @ltoff(FUNCTION_TEXT), r1 0000B2201340 0321 sxt4 r77 = STRING2 // r77 = r34 0000B2101300 0322 sxt4 r76 = STRING1 ;; // r76 = r33 } { .mii 0080C2800A00 0330 ld8 r40 = FUNCTION_TEXT // r40 = [r40] 012000003200 0331 mov r72 = 1 010804111040 0332 adds r65 = 8, r65 ;; } { .mii 000008000000 0340 nop.m 0 0000B2901240 0341 sxt4 r73 = PRIMARY_CODE // r73 = r41 0000B28012C0 0342 sxt4 r75 = r40 } { .mmi 00B0CC1F0040 0350 ld8 r1 = [r65], -8 ;; 0080C4101040 0351 ld8 r65 = [r65] 000008000000 0352 nop.i 0 ;; } { .mib 000008000000 0360 nop.m 0 000E00182180 0361 mov br6 = r65 STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 11 X00.04 XST$CMP 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 00210000C000 0362 br.call.sptk.few br0 = br6 } { .mii 010800800A40 0370 mov PRIMARY_CODE = r8 // r41 = r8 010804700040 0371 mov r1 = r71 000008000000 0372 nop.i 0 } 0380 L$23: { .mii 000008000000 0380 nop.m 0 00A402038800 0381 extr.u r32 = OPTIONS, 14, 1 ;; // r32 = r32, 14, 1 // 000183 00A012000180 0382 tbit.z pr6, pr2 = r32, 0 } { .mfb 000008000000 0390 nop.m 0 000008000000 0391 nop.f 0 00860000C002 0392 (pr2) br.cond.dpnt.few L$24 } { .mib 012000002640 03A0 mov r25 = 1 // 000186 0000B2101200 03A1 sxt4 r72 = STRING1 // r72 = r33 00A000001000 03A2 br.call.sptk.many br0 = XST$FREE_TEMP ;; } { .mii 012000002640 03B0 mov r25 = 1 // 000187 0000B2201200 03B1 sxt4 r72 = STRING2 // r72 = r34 010804700040 03B2 mov r1 = r71 // 000186 } { .mfb 000008000000 03C0 nop.m 0 000008000000 03C1 nop.f 0 004000000000 03C2 nop.b 0 ;; } { .mfb 000008000000 03D0 nop.m 0 000008000000 03D1 nop.f 0 00A000001000 03D2 br.call.sptk.many br0 = XST$FREE_TEMP // 000187 } { .mfi 010804700040 03E0 mov r1 = r71 000008000000 03E1 nop.f 0 000008000000 03E2 nop.i 0 } 03F0 L$24: // 000183 { .mii 000008000000 03F0 nop.m 0 00160008C7C0 03F1 mov pr = r70, -65474 // 000194 0000B2900200 03F2 sxt4 r8 = PRIMARY_CODE ;; // r8 = r41 } { .mii 000008000000 0400 nop.m 0 00015408A000 0401 mov.i rspfs = r69 000E00188000 0402 mov br0 = r68 ;; } { .mfb 000008000000 0410 nop.m 0 000008000000 0411 nop.f 0 STRCMP Machine Code Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 12 X00.04 XST$CMP 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 000108001100 0412 br.ret.sptk.many br0 ;; } .endp XST$CMP Routine Size: 1056 bytes, Routine Base: _XPO$CODE + 0000 .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC .lcomm FUNCTION_TEXT, 8, 8 .lcomm P.AAA, 13, 16 .psect _XPO$DATA, CON, LCL, NOSHR, NOEXE, WRT, NOVEC FUNCTION_TEXT: 000D 0000 data2 0xD // data2 13 0E 0002 data1 0xE // data1 14 01 0003 data1 0x1 // data1 1 00000000 0004 data4 P.AAA .psect _XPO$PLIT, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC P.AAA: 6D6F6320 0000 string " compared to " 65726170 0004 6F742064 0008 20 000C .section .data .type XST$VALIDATE, @function .global XST$VALIDATE .section .data .type XST$VALIDATE, @function .global XST$VALIDATE .section .data .type OTS$STRCMP_LSSP, @function .global OTS$STRCMP_LSSP .section .data .type OTS$STRCMP_LEQP, @function .global OTS$STRCMP_LEQP .section .data .type OTS$STRCMP_LEQS, @function .global OTS$STRCMP_LEQS .section .data .type OTS$STRCMP_LSSS, @function .global OTS$STRCMP_LSSS .section .data .type XST$FREE_TEMP, @function .global XST$FREE_TEMP .section .data .type XST$FREE_TEMP, @function .global XST$FREE_TEMP ; Library Statistics ; ; -------- Symbols -------- Pages ; File Total Loaded Percent Mapped ; ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14 ; 590 44 7 270 ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPOSYS.L32;14 ; 91 17 18 27 Source Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 13 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 Source Listing 4-FEB-2004 11:02:03 BLISS-32I T1.1-053 Page 14 Source Listing 19-MAR-2002 10:11:50 [LASTOVICA.XPORT.VMSGEN]STRCMP.BLI;1 COMMAND LINE: BLISSSTRCMP/LIST/DEBUG