XPORT Stream I/O Test 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 1 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 0 1 MODULE XTESTS ( IDENT = 'X00.08', %TITLE 'XPORT Stream I/O Test' 0 2 MAIN = TEST_STREAM ! Entry point of main program 0 3 %BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) ) 0 4 ) = 0 5 BEGIN 1 6 1 7 ! 1 8 ! COPYRIGHT (c) 1979 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 demonstrates the use of XPORT stream I/O functions. 1 33 ! 1 34 ! ENVIRONMENT: User Mode 1 35 ! 1 36 ! AUTHOR: Ward Clark, CREATION DATE: 16 January 1979 1 37 ! 1 38 !-- XTESTS XPORT Stream I/O Test 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 2 X00.08 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 1 40 ! 1 41 ! TABLE OF CONTENTS: 1 42 ! 1 43 1 44 FORWARD ROUTINE 1 45 TEST_STREAM; ! Principal testing routine 1 46 1 47 ! 1 48 ! INCLUDE FILES: 1 49 ! 1 50 LIBRARY 'XPORT' ; ! XPORT control block and macro definitions 1 52 1 53 ! 1 54 ! MACROS: 1 55 ! 1 56 1 57 MACRO 1 58 SKIP( literal_string ) = ! Prefix a literal string with a line-feed M 1 59 %STRING( %CHAR(lf), literal_string ) %; 1 60 1 61 ! 1 62 ! EQUATED SYMBOLS: 1 63 ! 1 64 1 65 LITERAL 1 66 lf = %O'12'; ! ASCII line feed character 1 67 1 68 ! 1 69 ! OWN STORAGE: 1 70 ! 1 71 1 72 OWN 1 73 tty_input : $XPO_IOB(), ! IOB for input from terminal 1 74 1 75 tty_output : $XPO_IOB(), ! IOB for output to terminal 1 76 1 77 input_file : $XPO_IOB(), ! IOB for input file 1 78 1 79 output_file : $XPO_IOB(); ! IOB for output file 1 80 1 81 ! 1 82 ! EXTERNAL REFERENCES: 1 83 ! XTESTS XPORT Stream I/O Test 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 3 X00.08 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 1 85 GLOBAL ROUTINE TEST_STREAM = 1 86 1 87 !++ 1 88 ! 1 89 ! FUNCTIONAL DESCRIPTION: 1 90 ! 1 91 ! This module explicitly tests the following XPORT stream I/O functions: 1 92 ! 1 93 ! * open terminal/file for input and output 1 94 ! * get from terminal/file 1 95 ! * put to terminal/file 1 96 ! 1 97 ! These I/O functions indirectly test the following XPORT functions: 1 98 ! 1 99 ! * default failure action routine 1 100 ! * dynamic memory allocation ($XPO_GET_MEM) 1 101 ! * dynamic memory deallocation ($XPO_FREE_MEM) 1 102 ! * message routine ($XPO_PUT_MSG) 1 103 ! * BLISS transportable string package 1 104 ! 1 105 ! FORMAL PARAMETERS: 1 106 ! 1 107 ! None 1 108 ! 1 109 ! IMPLICIT INPUTS: 1 110 ! 1 111 ! None 1 112 ! 1 113 ! IMPLICIT OUTPUTS: 1 114 ! 1 115 ! None 1 116 ! 1 117 ! COMPLETION CODES: 1 118 ! 1 119 ! XPO$_NORMAL - successful completion 1 120 ! 1 121 ! SIDE EFFECTS: 1 122 ! 1 123 ! None 1 124 ! 1 125 !-- 1 126 1 127 BEGIN 2 128 2 129 LOCAL 2 130 status; ! XPORT I/O completion code 2 131 2 132 %IF %VARIANT NEQ 0 %THEN U 2 133 ! U 2 134 ! Initialize the IOBs. U 2 135 ! U 2 136 U 2 137 $XPO_IOB_INIT( IOB = tty_input ); U 2 138 $XPO_IOB_INIT( IOB = tty_output ); U 2 139 $XPO_IOB_INIT( IOB = input_file ); U 2 140 $XPO_IOB_INIT( IOB = output_file ); U 2 141 %FI XTESTS XPORT Stream I/O Test 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 4 X00.08 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 2 142 2 143 ! 2 144 ! Open the user's terminal for output and send the user a greeting message. 2 145 ! 2 146 2 147 $XPO_OPEN( IOB = tty_output, ! Open the user's terminal: P 2 148 FILE_SPEC = $XPO_OUTPUT, ! standard output file P 2 149 OPTIONS = OUTPUT ); ! open for output 2 150 2 151 $XPO_PUT( IOB = tty_output, ! Send the user a greeting message. P 2 152 STRING = skip('XPORT Stream I/O Test') ); 2 153 2 154 ! 2 155 ! Open the user's terminal for input. 2 156 ! 2 157 2 158 $XPO_OPEN( IOB = tty_input, ! Open the user's terminal: P 2 159 FILE_SPEC = $XPO_INPUT, ! standard input file P 2 160 OPTIONS = INPUT ); ! open for input 2 161 2 162 ! 2 163 ! Request the name of the file to be copied and open that file. 2 164 ! 2 165 2 166 WHILE 1 DO ! Keep asking until an input file can be opened. 2 167 BEGIN 3 168 IF NOT $XPO_GET( IOB = tty_input, ! Read a file name from the terminal. P 3 169 PROMPT = skip('Input file name? ') ) 4 170 THEN ! If terminal end-of-file (^Z) is reached, 3 171 RETURN XPO$_NORMAL; ! terminate program execution. 3 172 3 173 IF .tty_input[IOB$H_STRING] EQL 0 ! If no input file name was specified, 3 174 THEN ! 3 175 status = $XPO_OPEN( IOB = input_file, ! open the user's terminal as the input file: P 3 176 FILE_SPEC = $XPO_INPUT, ! standard input file P 3 177 OPTIONS = (STREAM,INPUT), ! open for stream input P 3 178 FAILURE = XPO$IO_FAILURE ) ! non-terminating I/O failure action routine 4 179 ELSE 3 180 status = $XPO_OPEN( IOB = input_file, ! Otherwise, open the specified input file: P 3 181 FILE_SPEC = ! input file-spec descriptor P 3 182 tty_input[IOB$T_STRING], ! P 3 183 OPTIONS = (STREAM,INPUT), ! open for stream input P 3 184 FAILURE = XPO$IO_FAILURE ); ! non-terminating I/O failure action routine 3 185 3 186 IF .status THEN EXITLOOP; ! If the input file was successfully opened, 3 187 ! exit the file open loop. 3 188 END; 2 189 2 190 ! 2 191 ! Request the name of the output file and open that file. 2 192 ! 2 193 2 194 WHILE 1 DO ! Keep asking until an output file can be opened. 2 195 BEGIN 3 196 IF NOT $XPO_GET( IOB = tty_input, ! Read a file name from the terminal. P 3 197 PROMPT = skip('Output file name? ') ) 4 198 THEN ! If terminal end-of-file (^Z) is reached, XTESTS XPORT Stream I/O Test 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 5 X00.08 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 3 199 RETURN XPO$_NORMAL; ! terminate program execution. 3 200 3 201 IF .tty_input[IOB$H_STRING] EQL 0 ! If no output file name was specified, 3 202 THEN ! 3 203 status = $XPO_OPEN( IOB = output_file, ! open the user's terminal as the output file: P 3 204 FILE_SPEC = $XPO_OUTPUT, ! standard output file P 3 205 OPTIONS = (STREAM,OUTPUT), ! open for stream output P 3 206 FAILURE = XPO$IO_FAILURE ) ! non-terminating I/O failure action routine 4 207 ELSE 3 208 status = $XPO_OPEN( IOB = output_file, ! Otherwise, open the specified output file: P 3 209 FILE_SPEC = ! output file-spec descriptor P 3 210 tty_input[IOB$T_STRING], ! P 3 211 OPTIONS = (STREAM,OUTPUT), ! open for stream output P 3 212 FAILURE = XPO$IO_FAILURE ); ! non-terminating I/O failure action routine 3 213 3 214 IF .status THEN EXITLOOP; ! If the output file was successfully opened, 3 215 ! exit the file open loop. 3 216 END; 2 217 2 218 ! 2 219 ! Copy the input file to the output file 5 characters at a time. 2 220 ! 2 221 2 222 WHILE $XPO_GET( IOB = input_file, ! Read characters until end-of-file is reached. P 2 223 CHARACTERS = 5 ) DO 2 224 2 225 $XPO_PUT( IOB = output_file, ! Write a record into the output file: P 2 226 STRING = input_file[IOB$T_STRING] ); ! input record descriptor 2 227 2 228 ! 2 229 ! Close the input and output files. 2 230 ! 2 231 2 232 $XPO_CLOSE( IOB = input_file ); ! Close the input file. 2 233 2 234 $XPO_CLOSE( IOB = output_file ); ! Close the output file. 2 235 2 236 ! 2 237 ! Send the user a completion message. 2 238 ! 2 239 2 240 $XPO_PUT( IOB = tty_output, ! Send the user a blank line followed by a message. P 2 241 STRING = skip('XPORT Stream I/O Test Complete') ); 2 242 2 243 ! 2 244 ! Close the terminal input and output files. 2 245 ! 2 246 2 247 $XPO_CLOSE( IOB = tty_input ); ! Close the terminal input file. 2 248 2 249 $XPO_CLOSE( IOB = tty_output ); ! Close the terminal output file. 2 250 2 251 ! 2 252 ! Terminate XPORT I/O testing. 2 253 ! 2 254 2 255 RETURN XPO$_NORMAL; ! Exit with a normal completion code. XTESTS XPORT Stream I/O Test 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 6 X00.08 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 2 256 END; 1 257 END 1 258 ELUDOM XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 7 X00.08 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC .proc TEST_STREAM .align 32 .global TEST_STREAM TEST_STREAM: // 000085 { .mii 002C05DC1EC0 0000 alloc r123 = rspfs, 0, 93, 3, 0 012000100A00 0001 add r40 = @ltoff(TTY_OUTPUT), r1 // 000149 012000100AC0 0002 add r43 = @ltoff($IOB$FILE_SPEC), r1 } { .mmi 0120001002C0 0010 add r11 = @ltoff(@fptr(XPO$FAILURE)), r1 012000800A40 0011 addl r41 = 131072, r0 012000002A80 0012 mov r42 = 1 ;; } { .mii 0080C0B002C0 0020 ld8 r11 = XPO$FAILURE // r11 = [r11] 012000006640 0021 mov r25 = 3 000188001E80 0022 mov r122 = br0 // 000085 } { .mmi 0080C2800A00 0030 ld8 r40 = TTY_OUTPUT // r40 = [r40] // 000149 0080C2B00AC0 0031 ld8 r43 = $IOB$FILE_SPEC // r43 = [r43] 010800101F00 0032 mov r124 = r1 ;; // 000085 } { .mii 01200000EB40 0040 mov r45 = 7 // 000152 0000B0B01FC0 0041 sxt4 r127 = r11 // 000149 0000B0001F80 0042 sxt4 r126 = r0 } { .mmi 012000400C80 0050 addl r50 = 65536, r0 // 000160 01200000D040 0051 mov r65 = 6 // 000169 012000005000 0052 mov r64 = 2 // 000184 } { .mmi 010802858A00 0060 adds r40 = 44, r40 ;; // 000149 0080828000C0 0061 ld4 r3 = [r40] 000008000000 0062 nop.i 0 ;; } { .mmi 0100729060C0 0070 or r3 = r3, r41 ;; 008C82806000 0071 st4 [r40] = r3 000008000000 0072 nop.i 0 } { .mmi 00BC0A855600 0080 st1 [r40] = r42, -40 ;; 00BC8A857F00 0081 st4 [r40] = r43, -4 010802B10B00 0082 adds r44 = 8, r43 ;; // 000152 } { .mib 010802B20CC0 0090 adds r51 = 16, r43 // 000160 0000B2801F40 0091 sxt4 r125 = r40 // 000149 00A000001000 0092 br.call.sptk.many br0 = XPO$OPEN } { .mii XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 8 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 010807C00040 00A0 mov r1 = r124 010802858A00 00A1 adds r40 = 44, r40 // 000152 012000006640 00A2 mov r25 = 3 ;; } { .mib 012000100C00 00B0 add r48 = @ltoff(@fptr(XPO$FAILURE)), r1 0000B0001F80 00B1 sxt4 r126 = r0 004000000000 00B2 nop.b 0 ;; } { .mmi 00AC0285A600 00C0 st1 [r40] = r45, 24 0080C3000C00 00C1 ld8 r48 = XPO$FAILURE // r48 = [r48] 000008000000 00C2 nop.i 0 ;; } { .mii 00BC8A858F00 00D0 st4 [r40] = r44, -68 0000B3001FC0 00D1 sxt4 r127 = r48 ;; 0000B2801F40 00D2 sxt4 r125 = r40 } { .mib 0119F2870C40 00E0 adds r49 = -200, r40 // 000160 0119F2870D40 00E1 adds r53 = -200, r40 00A000001000 00E2 br.call.sptk.many br0 = XPO$PUT ;; // 000152 } { .mmi 010807C00040 00F0 mov r1 = r124 008083100C40 00F1 ld4 r49 = [r49] // 000160 0119F2870D80 00F2 adds r54 = -200, r40 ;; } { .mii 012000100E00 0100 add r56 = @ltoff(@fptr(XPO$FAILURE)), r1 0119F2820DC0 0101 adds r55 = -240, r40 0119F2818D00 0102 adds r52 = -244, r40 } { .mmi 012000006640 0110 mov r25 = 3 010073262C40 0111 or r49 = r49, r50 0000B0001F80 0112 sxt4 r126 = r0 ;; } { .mii 0080C3800E00 0120 ld8 r56 = XPO$FAILURE // r56 = [r56] 0000B3401F40 0121 sxt4 r125 = r52 0119F2880E40 0122 adds r57 = -192, r40 ;; // 000184 } { .mmi 008C83562000 0130 st4 [r53] = r49 // 000160 008C03654000 0131 st1 [r54] = r42 0000B3801FC0 0132 sxt4 r127 = r56 } { .mfb 008C83766000 0140 st4 [r55] = r51 000008000000 0141 nop.f 0 00A000001000 0142 br.call.sptk.many br0 = XPO$OPEN } { .mmi XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 9 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 010807C00040 0150 mov r1 = r124 ;; 012000100F80 0151 add r62 = @ltoff(@fptr(XPO$FAILURE)), // 000169 r1 012000100F00 0152 add r60 = @ltoff(@fptr(XPO$IO_FAILURE)), // 000178 r1 } { .mmi 012000100E80 0160 add r58 = @ltoff(@fptr(XPO$IO_FAILURE)), // 000184 r1 ;; 0080C3A00EC0 0161 ld8 r59 = XPO$IO_FAILURE // r59 = [r58] 000008000000 0162 nop.i 0 } { .mmi 0080C3E00FC0 0170 ld8 r63 = XPO$FAILURE // r63 = [r62] // 000169 0080C3C00F40 0171 ld8 r61 = XPO$IO_FAILURE // r61 = [r60] // 000178 000008000000 0172 nop.i 0 ;; } 0180 L$2: // 000169 { .mmi 0119F2861080 0180 adds r66 = -208, r40 ;; 0080842010C0 0181 ld4 r67 = [r66] 000008000000 0182 nop.i 0 ;; } { .mfb 01C4043001C0 0190 cmp4.eq pr7, pr0 = r0, r67 000008000000 0191 nop.f 0 008600006007 0192 (pr7) br.cond.dpnt.few L$4 } { .mib 012000002640 01A0 mov r25 = 1 0000B4301F40 01A1 sxt4 r125 = r67 00A000001000 01A2 br.call.sptk.many br0 = XST$FREE_TEMP } { .mfi 010807C00040 01B0 mov r1 = r124 000008000000 01B1 nop.f 0 000008000000 01B2 nop.i 0 } 01C0 L$4: { .mii 0119F2871140 01C0 adds r69 = -200, r40 0119F2861180 01C1 adds r70 = -208, r40 0119F2818D00 01C2 adds r52 = -244, r40 ;; } { .mii 008C04582000 01D0 st1 [r69] = r65 010802B31100 01D1 adds r68 = 24, r43 012000006640 01D2 mov r25 = 3 ;; } { .mii 008C84688000 01E0 st4 [r70] = r68 0000B3F01FC0 01E1 sxt4 r127 = r63 0000B0001F80 01E2 sxt4 r126 = r0 } { .mib 000008000000 01F0 nop.m 0 0000B3401F40 01F1 sxt4 r125 = r52 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 10 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 00A000001000 01F2 br.call.sptk.many br0 = XPO$GET } { .mib 010807C00040 0200 mov r1 = r124 00A0308001C0 0201 tbit.z pr7, pr6 = r8, 0 0086000C0007 0202 (pr7) br.cond.dpnt.few L$6 // 000168 } { .mmi 0119F28811C0 0210 adds r71 = -192, r40 ;; // 000173 0080447011C0 0211 ld2 r71 = [r71] 000008000000 0212 nop.i 0 ;; } { .mfb 01C444700000 0220 cmp4.eq pr0, pr8 = r0, r71 000008000000 0221 nop.f 0 008600014008 0222 (pr8) br.cond.dpnt.few L$7 } { .mii 010812841200 0230 adds r72 = 288, r40 // 000178 010812849240 0231 adds r73 = 292, r40 010812841300 0232 adds r76 = 288, r40 } { .mmi 010812841340 0240 adds r77 = 288, r40 01080A8F1380 0241 adds r78 = 248, r40 0108128493C0 0242 adds r79 = 292, r40 ;; } { .mii 008084801200 0250 ld4 r72 = [r72] 01080A8E92C0 0251 adds r75 = 244, r40 010802B41280 0252 adds r74 = 32, r43 } { .mmi 008084901240 0260 ld4 r73 = [r73] 012000006640 0261 mov r25 = 3 0000B3D01FC0 0262 sxt4 r127 = r61 ;; } { .mii 010073291200 0270 or r72 = r72, r50 0000B0001F80 0271 sxt4 r126 = r0 0000B4B01F40 0272 sxt4 r125 = r75 ;; } { .mmi 010174909240 0280 or r73 = 4, r73 008C84C90000 0281 st4 [r76] = r72 000008000000 0282 nop.i 0 ;; } { .mmi 008C04D54000 0290 st1 [r77] = r42 008C84E94000 0291 st4 [r78] = r74 000008000000 0292 nop.i 0 } { .mfb 008C84F92000 02A0 st4 [r79] = r73 000008000000 02A1 nop.f 0 00A000001000 02A2 br.call.sptk.many br0 = XPO$OPEN } XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 11 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 { .mfb 000008000000 02B0 nop.m 0 000008000000 02B1 nop.f 0 008000010000 02B2 br.sptk.few L$24 ;; } 02C0 L$7: // 000184 { .mii 010812841400 02C0 adds r80 = 288, r40 010812849440 02C1 adds r81 = 292, r40 0108128414C0 02C2 adds r83 = 288, r40 } { .mmi 010812841500 02D0 adds r84 = 288, r40 01080A8F1540 02D1 adds r85 = 248, r40 010812849580 02D2 adds r86 = 292, r40 ;; } { .mii 008085001400 02E0 ld4 r80 = [r80] 01080A8E9480 02E1 adds r82 = 244, r40 012000006640 02E2 mov r25 = 3 ;; } { .mii 008085101440 02F0 ld4 r81 = [r81] 0000B3B01FC0 02F1 sxt4 r127 = r59 0100732A1400 02F2 or r80 = r80, r50 ;; } { .mii 000008000000 0300 nop.m 0 0000B0001F80 0301 sxt4 r126 = r0 010175109440 0302 or r81 = 4, r81 } { .mmi 008C853A0000 0310 st4 [r83] = r80 008C05454000 0311 st1 [r84] = r42 0000B5201F40 0312 sxt4 r125 = r82 ;; } { .mmb 008C85572000 0320 st4 [r85] = r57 008C856A2000 0321 st4 [r86] = r81 00A000001000 0322 br.call.sptk.many br0 = XPO$OPEN } 0330 L$24: { .mib 010807C00040 0330 mov r1 = r124 00A0308001C0 0331 tbit.z pr7, pr6 = STATUS, 0 // pr7, pr6 = r8, 0 // 000186 0095FFFCA007 0332 (pr7) br.cond.dptk.few L$2 ;; } { .mii 0120001016C0 0340 add r91 = @ltoff(@fptr(XPO$FAILURE)), // 000197 r1 012000101640 0341 add r89 = @ltoff(@fptr(XPO$IO_FAILURE)), // 000206 r1 0120001015C0 0342 add r87 = @ltoff(@fptr(XPO$IO_FAILURE)), // 000212 r1 ;; } { .mmi 0080C5B01700 0350 ld8 r92 = XPO$FAILURE // r92 = [r91] // 000197 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 12 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 0080C5901680 0351 ld8 r90 = XPO$IO_FAILURE // r90 = [r89] // 000206 000008000000 0352 nop.i 0 } { .mfi 0080C5701600 0360 ld8 r88 = XPO$IO_FAILURE // r88 = [r87] // 000212 000008000000 0361 nop.f 0 000008000000 0362 nop.i 0 ;; } 0370 L$12: // 000197 { .mmi 0119F2861740 0370 adds r93 = -208, r40 ;; 008085D01780 0371 ld4 r94 = [r93] 000008000000 0372 nop.i 0 ;; } { .mfb 01C405E00240 0380 cmp4.eq pr9, pr0 = r0, r94 000008000000 0381 nop.f 0 008600006009 0382 (pr9) br.cond.dpnt.few L$14 } { .mib 012000002640 0390 mov r25 = 1 0000B5E01F40 0391 sxt4 r125 = r94 00A000001000 0392 br.call.sptk.many br0 = XST$FREE_TEMP } { .mfi 010807C00040 03A0 mov r1 = r124 000008000000 03A1 nop.f 0 000008000000 03A2 nop.i 0 } 03B0 L$14: { .mii 0119F2871800 03B0 adds r96 = -200, r40 0119F2861840 03B1 adds r97 = -208, r40 0119F2818D00 03B2 adds r52 = -244, r40 ;; } { .mii 008C06082000 03C0 st1 [r96] = r65 010802B517C0 03C1 adds r95 = 40, r43 012000006640 03C2 mov r25 = 3 ;; } { .mii 008C861BE000 03D0 st4 [r97] = r95 0000B5C01FC0 03D1 sxt4 r127 = r92 0000B0001F80 03D2 sxt4 r126 = r0 } { .mib 000008000000 03E0 nop.m 0 0000B3401F40 03E1 sxt4 r125 = r52 00A000001000 03E2 br.call.sptk.many br0 = XPO$GET } { .mib 010807C00040 03F0 mov r1 = r124 00A0308001C0 03F1 tbit.z pr7, pr6 = r8, 0 008600082007 03F2 (pr7) br.cond.dpnt.few L$6 // 000196 } { .mmi 0119F2881880 0400 adds r98 = -192, r40 ;; // 000201 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 13 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 008046201880 0401 ld2 r98 = [r98] 000008000000 0402 nop.i 0 ;; } { .mfb 01C446200000 0410 cmp4.eq pr0, pr8 = r0, r98 000008000000 0411 nop.f 0 008600014008 0412 (pr8) br.cond.dpnt.few L$17 } { .mii 0119F2B718C0 0420 adds r99 = -200, r43 // 000206 0119F2B79900 0421 adds r100 = -196, r43 0119F2B719C0 0422 adds r103 = -200, r43 } { .mmi 0119F2B71A00 0430 adds r104 = -200, r43 0119F2B21A40 0431 adds r105 = -240, r43 0119F2B79A80 0432 adds r106 = -196, r43 ;; } { .mii 0080863018C0 0440 ld4 r99 = [r99] 0119F2B19980 0441 adds r102 = -244, r43 010802B61940 0442 adds r101 = 48, r43 } { .mmi 008086401900 0450 ld4 r100 = [r100] 012000006640 0451 mov r25 = 3 0000B5A01FC0 0452 sxt4 r127 = r90 ;; } { .mii 0100729C78C0 0460 or r99 = r99, r41 0000B0001F80 0461 sxt4 r126 = r0 0000B6601F40 0462 sxt4 r125 = r102 ;; } { .mmi 010176409900 0470 or r100 = 4, r100 008C867C6000 0471 st4 [r103] = r99 000008000000 0472 nop.i 0 ;; } { .mmi 008C06854000 0480 st1 [r104] = r42 008C869CA000 0481 st4 [r105] = r101 000008000000 0482 nop.i 0 } { .mfb 008C86AC8000 0490 st4 [r106] = r100 000008000000 0491 nop.f 0 00A000001000 0492 br.call.sptk.many br0 = XPO$OPEN } { .mfb 000008000000 04A0 nop.m 0 000008000000 04A1 nop.f 0 008000010000 04A2 br.sptk.few L$25 ;; } 04B0 L$17: // 000212 { .mii 0119F2B71AC0 04B0 adds r107 = -200, r43 0119F2B79B00 04B1 adds r108 = -196, r43 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 14 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 0119F2B71B80 04B2 adds r110 = -200, r43 } { .mmi 0119F2B71BC0 04C0 adds r111 = -200, r43 0119F2B21C00 04C1 adds r112 = -240, r43 0119F2B79C40 04C2 adds r113 = -196, r43 ;; } { .mii 008086B01AC0 04D0 ld4 r107 = [r107] 0119F2B19B40 04D1 adds r109 = -244, r43 012000006640 04D2 mov r25 = 3 ;; } { .mii 008086C01B00 04E0 ld4 r108 = [r108] 0000B5801FC0 04E1 sxt4 r127 = r88 0100729D7AC0 04E2 or r107 = r107, r41 ;; } { .mii 000008000000 04F0 nop.m 0 0000B0001F80 04F1 sxt4 r126 = r0 010176C09B00 04F2 or r108 = 4, r108 } { .mmi 008C86ED6000 0500 st4 [r110] = r107 008C06F54000 0501 st1 [r111] = r42 0000B6D01F40 0502 sxt4 r125 = r109 ;; } { .mmb 008C87072000 0510 st4 [r112] = r57 008C871D8000 0511 st4 [r113] = r108 00A000001000 0512 br.call.sptk.many br0 = XPO$OPEN } 0520 L$25: { .mib 010807C00040 0520 mov r1 = r124 00A0308001C0 0521 tbit.z pr7, pr6 = STATUS, 0 // pr7, pr6 = r8, 0 // 000214 0095FFFCA007 0522 (pr7) br.cond.dptk.few L$12 } { .mii 010812851C80 0530 adds r114 = 296, r40 // 000223 010812841D80 0531 adds r118 = 288, r40 000008000000 0532 nop.i 0 } { .mlx 010812851DC0 0540 adds r119 = 296, r40 81FFFFFFFFFC 0541 movl r115 = -16777216 ;; 01A0000039 } { .mii 008087201C80 0550 ld4 r114 = [r114] 01080A8E9D00 0551 adds r116 = 244, r40 012000006640 0552 mov r25 = 3 ;; } { .mii 008C07682000 0560 st1 [r118] = r65 0000B0001F80 0561 sxt4 r126 = r0 0000B7401F40 0562 sxt4 r125 = r116 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 15 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 } { .mmi 0100673E4080 0570 and r2 = r114, r115 ;; 012003A0BD40 0571 addl r117 = 917509, r2 000008000000 0572 nop.i 0 ;; } { .mii 008C877EA000 0580 st4 [r119] = r117 012000101D40 0581 add r117 = @ltoff(@fptr(XPO$FAILURE)), r1 000008000000 0582 nop.i 0 ;; } { .mmi 0080C7501E00 0590 ld8 r120 = XPO$FAILURE ;; // r120 = [r117] 000008000000 0591 nop.m 0 0000B7801FC0 0592 sxt4 r127 = r120 } { .mfb 000008000000 05A0 nop.m 0 000008000000 05A1 nop.f 0 00A000001000 05A2 br.call.sptk.many br0 = XPO$GET } { .mib 010807C00040 05B0 mov r1 = r124 00A0308001C0 05B1 tbit.z pr7, pr6 = r8, 0 00860001A007 05B2 (pr7) br.cond.dpnt.few L$22 ;; // 000222 } { .mii 012000100B80 05C0 add r46 = @ltoff(@fptr(XPO$FAILURE)), // 000226 r1 010812851E40 05C1 adds r121 = 296, r40 000008000000 05C2 nop.i 0 ;; } { .mfi 0080C2E00B00 05D0 ld8 r44 = XPO$FAILURE // r44 = [r46] 000008000000 05D1 nop.f 0 000008000000 05D2 nop.i 0 ;; } 05E0 L$23: { .mii 0119F2B70C00 05E0 adds r48 = -200, r43 0119F2BA0C40 05E1 adds r49 = -176, r43 010812850D40 05E2 adds r53 = 296, r40 // 000223 } { .mmi 0119F2B18BC0 05F0 adds r47 = -244, r43 // 000226 012000006640 05F1 mov r25 = 3 0000B2C01FC0 05F2 sxt4 r127 = r44 ;; } { .mii 008C0305A000 0600 st1 [r48] = r45 0000B0001F80 0601 sxt4 r126 = r0 0000B2F01F40 0602 sxt4 r125 = r47 } { .mib 008C831F2000 0610 st4 [r49] = r121 010812840CC0 0611 adds r51 = 288, r40 // 000223 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 16 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 00A000001000 0612 br.call.sptk.many br0 = XPO$PUT ;; // 000226 } { .mii 008083500D40 0620 ld4 r53 = [r53] // 000223 010812850DC0 0621 adds r55 = 296, r40 01080A8E9D00 0622 adds r116 = 244, r40 } { .mmi 008C03382000 0630 st1 [r51] = r65 012000006640 0631 mov r25 = 3 0000B7801FC0 0632 sxt4 r127 = r120 ;; } { .mii 010807C00040 0640 mov r1 = r124 // 000226 0000B0001F80 0641 sxt4 r126 = r0 // 000223 01006736A080 0642 and r2 = r53, r115 ;; } { .mii 000008000000 0650 nop.m 0 0000B7401F40 0651 sxt4 r125 = r116 012003A0AD80 0652 addl r54 = 917509, r2 ;; } { .mfb 008C8376C000 0660 st4 [r55] = r54 000008000000 0661 nop.f 0 00A000001000 0662 br.call.sptk.many br0 = XPO$GET } { .mib 010807C00040 0670 mov r1 = r124 00A0308001C0 0671 tbit.z pr7, pr6 = r8, 0 0095FFFEE006 0672 (pr6) br.cond.dptk.few L$23 ;; // 000222 } 0680 L$22: // 000232 { .mii 012000100E80 0680 add r58 = @ltoff(@fptr(XPO$FAILURE)), r1 010812840E00 0681 adds r56 = 288, r40 01080A8E9D00 0682 adds r116 = 244, r40 } { .mii 012000006640 0690 mov r25 = 3 0000B0001F80 0691 sxt4 r126 = r0 0119F2B70F80 0692 adds r62 = -200, r43 ;; // 000234 } { .mii 0080C3A00E80 06A0 ld8 r58 = XPO$FAILURE // r58 = [r58] // 000232 0119F2B18F00 06A1 adds r60 = -244, r43 // 000234 0000B7401F40 06A2 sxt4 r125 = r116 ;; // 000232 } { .mii 008C03880000 06B0 st1 [r56] = r64 010802B70AC0 06B1 adds r43 = 56, r43 // 000234 0000B3A01FC0 06B2 sxt4 r127 = r58 // 000232 } { .mfb 000008000000 06C0 nop.m 0 000008000000 06C1 nop.f 0 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 17 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 00A000001000 06C2 br.call.sptk.many br0 = XPO$CLOSE } { .mii 010807C00040 06D0 mov r1 = r124 012000006640 06D1 mov r25 = 3 // 000234 0000B0001F80 06D2 sxt4 r126 = r0 } { .mii 008C03E80000 06E0 st1 [r62] = r64 0000B3C01F40 06E1 sxt4 r125 = r60 ;; 012000101080 06E2 add r66 = @ltoff(@fptr(XPO$FAILURE)), r1 ;; } { .mmi 0080C4201080 06F0 ld8 r66 = XPO$FAILURE ;; // r66 = [r66] 000008000000 06F1 nop.m 0 0000B4201FC0 06F2 sxt4 r127 = r66 } { .mfb 000008000000 0700 nop.m 0 000008000000 0701 nop.f 0 00A000001000 0702 br.call.sptk.many br0 = XPO$CLOSE } { .mii 010807C00040 0710 mov r1 = r124 010802858A00 0711 adds r40 = 44, r40 // 000241 012000006640 0712 mov r25 = 3 ;; } { .mib 012000101100 0720 add r68 = @ltoff(@fptr(XPO$FAILURE)), r1 0000B0001F80 0721 sxt4 r126 = r0 004000000000 0722 nop.b 0 ;; } { .mmi 00AC0285A600 0730 st1 [r40] = r45, 24 0080C4401100 0731 ld8 r68 = XPO$FAILURE // r68 = [r68] 000008000000 0732 nop.i 0 ;; } { .mii 00BC8A856F00 0740 st4 [r40] = r43, -68 0000B4401FC0 0741 sxt4 r127 = r68 ;; 0000B2801F40 0742 sxt4 r125 = r40 } { .mib 0119F2871180 0750 adds r70 = -200, r40 // 000247 0119F2818D00 0751 adds r52 = -244, r40 00A000001000 0752 br.call.sptk.many br0 = XPO$PUT ;; // 000241 } { .mii 010807C00040 0760 mov r1 = r124 012000006640 0761 mov r25 = 3 // 000247 0000B0001F80 0762 sxt4 r126 = r0 } { .mii 008C04680000 0770 st1 [r70] = r64 0000B3401F40 0771 sxt4 r125 = r52 ;; XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 18 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 0120001011C0 0772 add r71 = @ltoff(@fptr(XPO$FAILURE)), r1 ;; } { .mmi 0080C47011C0 0780 ld8 r71 = XPO$FAILURE ;; // r71 = [r71] 000008000000 0781 nop.m 0 0000B4701FC0 0782 sxt4 r127 = r71 } { .mfb 000008000000 0790 nop.m 0 000008000000 0791 nop.f 0 00A000001000 0792 br.call.sptk.many br0 = XPO$CLOSE } { .mii 010807C00040 07A0 mov r1 = r124 010802858A00 07A1 adds r40 = 44, r40 // 000249 012000006640 07A2 mov r25 = 3 ;; } { .mib 012000101300 07B0 add r76 = @ltoff(@fptr(XPO$FAILURE)), r1 0000B0001F80 07B1 sxt4 r126 = r0 004000000000 07B2 nop.b 0 ;; } { .mmi 00BC0A881500 07C0 st1 [r40] = r64, -44 0080C4C01300 07C1 ld8 r76 = XPO$FAILURE // r76 = [r76] 000008000000 07C2 nop.i 0 ;; } { .mii 000008000000 07D0 nop.m 0 0000B2801F40 07D1 sxt4 r125 = r40 0000B4C01FC0 07D2 sxt4 r127 = r76 } { .mfb 000008000000 07E0 nop.m 0 000008000000 07E1 nop.f 0 00A000001000 07E2 br.call.sptk.many br0 = XPO$CLOSE } { .mfi 010807C00040 07F0 mov r1 = r124 000008000000 07F1 nop.f 0 000008000000 07F2 nop.i 0 } 0800 L$6: // 000168 { .mlx 000008000000 0800 nop.m 0 000000000000 0801 movl r8 = 2129921 ;; // 000255 0190004044 } { .mii 000008000000 0810 nop.m 0 0001540F6000 0811 mov.i rspfs = r123 000E001F4000 0812 mov br0 = r122 ;; } { .mfb 000008000000 0820 nop.m 0 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 19 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 000008000000 0821 nop.f 0 000108001100 0822 br.ret.sptk.many br0 ;; } .endp TEST_STREAM Routine Size: 2096 bytes, Routine Base: $CODE$ + 0000 .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC .lcomm IOB$, 244, 16 .lcomm $IOB$FILE_SPEC, 244, 16 .lcomm IOB$, 244, 16 .lcomm IOB$, 244, 16 .lcomm $IOB$OUTPUT, 244, 16 .lcomm IOB$, 244, 16 .lcomm $IOB$FILE_SPEC, 8, 8 .lcomm $IOB$OUTPUT, 8, 8 .lcomm $IOB$FILE_SPEC, 8, 8 .lcomm $IOB$PROMPT, 8, 8 .lcomm $IOB$FILE_SPEC, 8, 8 .lcomm $IOB$PROMPT, 8, 8 .lcomm $IOB$FILE_SPEC, 8, 8 .lcomm $IOB$OUTPUT, 8, 8 .lcomm P.AAA, 10, 16 .lcomm fill$$1, 2, 2 .lcomm P.AAB, 22, 16 .lcomm fill$$2, 2, 2 .lcomm P.AAC, 9, 16 .lcomm fill$$3, 3, 4 .lcomm P.AAD, 18, 16 .lcomm fill$$4, 2, 2 .lcomm P.AAE, 9, 16 .lcomm fill$$5, 3, 4 .lcomm P.AAF, 19, 16 .lcomm fill$$6, 1, 1 .lcomm P.AAG, 10, 16 .lcomm fill$$7, 2, 2 .lcomm P.AAH, 31, 16 .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC $IOB$FILE_SPEC: 000A 03D0 data2 0xA // data2 10 0E 03D2 data1 0xE // data1 14 01 03D3 data1 0x1 // data1 1 00000000 03D4 data4 P.AAA $IOB$OUTPUT: 0016 03D8 data2 0x16 // data2 22 0E 03DA data1 0xE // data1 14 01 03DB data1 0x1 // data1 1 00000000 03DC data4 P.AAB $IOB$FILE_SPEC: 0009 03E0 data2 0x9 // data2 9 0E 03E2 data1 0xE // data1 14 01 03E3 data1 0x1 // data1 1 00000000 03E4 data4 P.AAC $IOB$PROMPT: 0012 03E8 data2 0x12 // data2 18 0E 03EA data1 0xE // data1 14 01 03EB data1 0x1 // data1 1 XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 20 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 00000000 03EC data4 P.AAD $IOB$FILE_SPEC: 0009 03F0 data2 0x9 // data2 9 0E 03F2 data1 0xE // data1 14 01 03F3 data1 0x1 // data1 1 00000000 03F4 data4 P.AAE $IOB$PROMPT: 0013 03F8 data2 0x13 // data2 19 0E 03FA data1 0xE // data1 14 01 03FB data1 0x1 // data1 1 00000000 03FC data4 P.AAF $IOB$FILE_SPEC: 000A 0400 data2 0xA // data2 10 0E 0402 data1 0xE // data1 14 01 0403 data1 0x1 // data1 1 00000000 0404 data4 P.AAG $IOB$OUTPUT: 001F 0408 data2 0x1F // data2 31 0E 040A data1 0xE // data1 14 01 040B data1 0x1 // data1 1 00000000 040C data4 P.AAH .psect $PLIT$, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC P.AAA: 24535953 0000 string "SYS$OUTPUT" 5054554F 0004 5455 0008 P.AAB: 4F50580A 000C string "\X0AXPORT Stream I/O Test" 53205452 0010 61657274 0014 2F49206D 0018 6554204F 001C 7473 0020 P.AAC: 24535953 0024 string "SYS$INPUT" 55504E49 0028 54 002C P.AAD: 706E490A 0030 string "\X0AInput file name? " 66207475 0034 20656C69 0038 656D616E 003C 203F 0040 P.AAE: 24535953 0044 string "SYS$INPUT" 55504E49 0048 54 004C P.AAF: 74754F0A 0050 string "\X0AOutput file name? " 20747570 0054 656C6966 0058 6D616E20 005C XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 21 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 203F65 0060 P.AAG: 24535953 0064 string "SYS$OUTPUT" 5054554F 0068 5455 006C P.AAH: 4F50580A 0070 string "\X0AXPORT Stream I/O Test Complete" 53205452 0074 61657274 0078 2F49206D 007C 6554204F 0080 43207473 0084 6C706D6F 0088 657465 008C .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$PUT, @function .global XPO$PUT .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data .type XPO$IO_FAILURE, @function .global XPO$IO_FAILURE .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$IO_FAILURE, @function .global XPO$IO_FAILURE .section .data .type XST$FREE_TEMP, @function .global XST$FREE_TEMP .section .data .type XPO$GET, @function .global XPO$GET .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 22 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$IO_FAILURE, @function .global XPO$IO_FAILURE .section .data .type XPO$IO_FAILURE, @function .global XPO$IO_FAILURE .section .data .type XST$FREE_TEMP, @function .global XST$FREE_TEMP .section .data .type XPO$GET, @function .global XPO$GET .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data .type XPO$OPEN, @function .global XPO$OPEN .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$GET, @function .global XPO$GET .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$PUT, @function .global XPO$PUT .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$CLOSE, @function .global XPO$CLOSE .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$CLOSE, @function .global XPO$CLOSE .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$PUT, @function .global XPO$PUT .section .data .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$CLOSE, @function .global XPO$CLOSE .section .data XTESTS Machine Code Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 23 X00.08 TEST_STREAM 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 .type XPO$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$CLOSE, @function .global XPO$CLOSE ; Library Statistics ; ; -------- Symbols -------- Pages ; File Total Loaded Percent Mapped ; ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14 ; 590 111 18 270 Source Listing 4-FEB-2004 11:02:15 BLISS-32I T1.1-053 Page 24 Source Listing 19-MAR-2002 10:12:46 [LASTOVICA.XPORT.VMSGEN]XTESTS.BLI;1 COMMAND LINE: BLISSXTESTS/LIST/DEBUG