XPORT File Delete Test 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 1 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 0 1 MODULE XTESTD ( IDENT = 'X00.09', %TITLE 'XPORT File Delete Test' 0 2 MAIN = TEST_DELETE ! 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 tests the XPORT file delete facility. 1 33 ! 1 34 ! ENVIRONMENT: User Mode 1 35 ! 1 36 ! AUTHOR: Ward Clark, CREATION DATE: 26 February 1979 1 37 ! 1 38 !-- XTESTD XPORT File Delete Test 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 2 X00.09 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 1 40 ! 1 41 ! TABLE OF CONTENTS: 1 42 ! 1 43 1 44 FORWARD ROUTINE 1 45 TEST_DELETE; ! Principal testing routine 1 46 1 47 ! 1 48 ! INCLUDE FILES: 1 49 ! 1 50 LIBRARY 'BLI: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 file : $XPO_IOB(); ! IOB for the file to be deleted 1 78 1 79 ! 1 80 ! EXTERNAL REFERENCES: 1 81 ! XTESTD XPORT File Delete Test 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 3 X00.09 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 1 83 GLOBAL ROUTINE TEST_DELETE = 1 84 1 85 !++ 1 86 ! 1 87 ! FUNCTIONAL DESCRIPTION: 1 88 ! 1 89 ! This module tests the XPORT file delete facility. 1 90 ! 1 91 ! FORMAL PARAMETERS: 1 92 ! 1 93 ! None 1 94 ! 1 95 ! IMPLICIT INPUTS: 1 96 ! 1 97 ! None 1 98 ! 1 99 ! IMPLICIT OUTPUTS: 1 100 ! 1 101 ! None 1 102 ! 1 103 ! COMPLETION CODES: 1 104 ! 1 105 ! XPO$_NORMAL - successful completion 1 106 ! 1 107 ! SIDE EFFECTS: 1 108 ! 1 109 ! None 1 110 ! 1 111 !-- 1 112 1 113 BEGIN 2 114 2 115 %IF %VARIANT NEQ 0 %THEN U 2 116 U 2 117 ! U 2 118 ! Initialize the IOB'S U 2 119 ! U 2 120 U 2 121 $XPO_IOB_INIT( IOB = tty_input ); U 2 122 $XPO_IOB_INIT( IOB = tty_output ); U 2 123 $XPO_IOB_INIT( IOB = file ); U 2 124 U 2 125 %FI 2 126 2 127 ! 2 128 ! Open the user's terminal for output and send the user a greeting message. 2 129 ! 2 130 2 131 $XPO_OPEN( IOB = tty_output, ! Open the user's terminal: P 2 132 FILE_SPEC = $XPO_OUTPUT, ! standard output file P 2 133 OPTIONS = OUTPUT ); ! open for output 2 134 2 135 $XPO_PUT( IOB = tty_output, ! Send the user a greeting message. P 2 136 STRING = skip('XPORT File Delete Test') ); 2 137 2 138 ! 2 139 ! Open the user's terminal for input. XTESTD XPORT File Delete Test 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 4 X00.09 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 2 140 ! 2 141 2 142 $XPO_OPEN( IOB = tty_input, ! Open the user's terminal: P 2 143 FILE_SPEC = $XPO_INPUT, ! standard input file P 2 144 OPTIONS = INPUT ); ! open for input 2 145 2 146 ! 2 147 ! Request the name of the file to be deleted. 2 148 ! 2 149 2 150 WHILE 1 DO ! Keep asking for a new file-spec. 2 151 BEGIN 3 152 IF NOT $XPO_GET( IOB = tty_input, ! Read a file name from the terminal. P 3 153 PROMPT = skip('Name of file to be deleted? ') ) 4 154 THEN ! If terminal end-of-file (^Z) is reached, 3 155 EXITLOOP; ! terminate delete testing. 3 156 3 157 ! 3 158 ! Delete the specified file. 3 159 ! 3 160 3 161 $XPO_DELETE( IOB = file, ! Delete the specified file. P 3 162 FILE_SPEC = tty_input[IOB$T_STRING], P 3 163 FAILURE = XPO$IO_FAILURE ); 3 164 END; 2 165 2 166 ! 2 167 ! Send the user a completion message. 2 168 ! 2 169 2 170 $XPO_PUT( IOB = tty_output, ! Send the user a blank line followed by a message. P 2 171 STRING = skip('XPORT File Delete Test Complete') ); 2 172 2 173 ! 2 174 ! Close the terminal input and output files. 2 175 ! 2 176 2 177 $XPO_CLOSE( IOB = tty_input ); ! Close the terminal input file. 2 178 2 179 $XPO_CLOSE( IOB = tty_output ); ! Close the terminal output file. 2 180 2 181 ! 2 182 ! Terminate XPORT I/O testing. 2 183 ! 2 184 2 185 RETURN XPO$_NORMAL; ! Exit with a normal completion code. 2 186 END; 1 187 END 1 188 ELUDOM XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 5 X00.09 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC .proc TEST_DELETE .align 32 .global TEST_DELETE TEST_DELETE: // 000083 { .mii 002C0326B400 0000 alloc r80 = rspfs, 0, 50, 3, 0 012000100A00 0001 add r40 = @ltoff(TTY_OUTPUT), r1 // 000133 012000100A80 0002 add r42 = @ltoff($IOB$FILE_SPEC), r1 } { .mmi 012000100440 0010 add r17 = @ltoff(@fptr(XPO$FAILURE)), r1 012000800200 0011 addl r8 = 131072, r0 012000002A40 0012 mov r41 = 1 ;; } { .mii 0080C1100440 0020 ld8 r17 = XPO$FAILURE // r17 = [r17] 012000006640 0021 mov r25 = 3 0001880013C0 0022 mov r79 = br0 // 000083 } { .mmi 0080C2800A00 0030 ld8 r40 = TTY_OUTPUT // r40 = [r40] // 000133 0080C2A00A80 0031 ld8 r42 = $IOB$FILE_SPEC // r42 = [r42] 010800101440 0032 mov r81 = r1 ;; // 000083 } { .mii 01200000EB00 0040 mov r44 = 7 // 000136 0000B1101500 0041 sxt4 r84 = r17 // 000133 0000B00014C0 0042 sxt4 r83 = r0 } { .mmi 012000400C40 0050 addl r49 = 65536, r0 // 000144 01200000CF80 0051 mov r62 = 6 // 000153 012000006F40 0052 mov r61 = 3 // 000163 } { .mmi 010802858A00 0060 adds r40 = 44, r40 ;; // 000133 0080828000C0 0061 ld4 r3 = [r40] 000008000000 0062 nop.i 0 ;; } { .mmi 0100708060C0 0070 or r3 = r3, r8 ;; 008C82806000 0071 st4 [r40] = r3 000008000000 0072 nop.i 0 } { .mmi 00BC0A853600 0080 st1 [r40] = r41, -40 ;; 00BC8A855F00 0081 st4 [r40] = r42, -4 010802A10AC0 0082 adds r43 = 8, r42 ;; // 000136 } { .mib 010802A20C80 0090 adds r50 = 16, r42 // 000144 0000B2801480 0091 sxt4 r82 = r40 // 000133 00A000001000 0092 br.call.sptk.many br0 = XPO$OPEN } { .mii XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 6 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 010805100040 00A0 mov r1 = r81 010802858A00 00A1 adds r40 = 44, r40 // 000136 012000006640 00A2 mov r25 = 3 ;; } { .mib 012000100BC0 00B0 add r47 = @ltoff(@fptr(XPO$FAILURE)), r1 0000B00014C0 00B1 sxt4 r83 = r0 004000000000 00B2 nop.b 0 ;; } { .mmi 00AC02858600 00C0 st1 [r40] = r44, 24 0080C2F00BC0 00C1 ld8 r47 = XPO$FAILURE // r47 = [r47] 000008000000 00C2 nop.i 0 ;; } { .mii 00BC8A856F00 00D0 st4 [r40] = r43, -68 0000B2F01500 00D1 sxt4 r84 = r47 ;; 0000B2801480 00D2 sxt4 r82 = r40 } { .mib 0119F2870C00 00E0 adds r48 = -200, r40 // 000144 0119F2870D00 00E1 adds r52 = -200, r40 00A000001000 00E2 br.call.sptk.many br0 = XPO$PUT ;; // 000136 } { .mmi 010805100040 00F0 mov r1 = r81 008083000C00 00F1 ld4 r48 = [r48] // 000144 0119F2870D40 00F2 adds r53 = -200, r40 ;; } { .mii 012000100DC0 0100 add r55 = @ltoff(@fptr(XPO$FAILURE)), r1 0119F2820D80 0101 adds r54 = -240, r40 0119F2818CC0 0102 adds r51 = -244, r40 } { .mmi 012000006640 0110 mov r25 = 3 010073160C00 0111 or r48 = r48, r49 0000B00014C0 0112 sxt4 r83 = r0 ;; } { .mii 0080C3700DC0 0120 ld8 r55 = XPO$FAILURE // r55 = [r55] 0000B3301480 0121 sxt4 r82 = r51 0119F2880E00 0122 adds r56 = -192, r40 ;; // 000163 } { .mmi 008C83460000 0130 st4 [r52] = r48 // 000144 008C03552000 0131 st1 [r53] = r41 0000B3701500 0132 sxt4 r84 = r55 } { .mfb 008C83664000 0140 st4 [r54] = r50 000008000000 0141 nop.f 0 00A000001000 0142 br.call.sptk.many br0 = XPO$OPEN } { .mmi XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 7 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 010805100040 0150 mov r1 = r81 ;; 012000100EC0 0151 add r59 = @ltoff(@fptr(XPO$FAILURE)), // 000153 r1 012000100E40 0152 add r57 = @ltoff(@fptr(XPO$IO_FAILURE)), // 000163 r1 ;; } { .mmi 0080C3B00F00 0160 ld8 r60 = XPO$FAILURE // r60 = [r59] // 000153 0080C3900E80 0161 ld8 r58 = XPO$IO_FAILURE // r58 = [r57] // 000163 000008000000 0162 nop.i 0 ;; } 0170 L$2: // 000153 { .mmi 0119F2860FC0 0170 adds r63 = -208, r40 ;; 008083F01000 0171 ld4 r64 = [r63] 000008000000 0172 nop.i 0 ;; } { .mfb 01C4040001C0 0180 cmp4.eq pr7, pr0 = r0, r64 000008000000 0181 nop.f 0 008600006007 0182 (pr7) br.cond.dpnt.few L$4 } { .mib 012000002640 0190 mov r25 = 1 0000B4001480 0191 sxt4 r82 = r64 00A000001000 0192 br.call.sptk.many br0 = XST$FREE_TEMP } { .mfi 010805100040 01A0 mov r1 = r81 000008000000 01A1 nop.f 0 000008000000 01A2 nop.i 0 } 01B0 L$4: { .mii 0119F2871080 01B0 adds r66 = -200, r40 0119F28610C0 01B1 adds r67 = -208, r40 0119F2818CC0 01B2 adds r51 = -244, r40 ;; } { .mii 008C0427C000 01C0 st1 [r66] = r62 010802A31040 01C1 adds r65 = 24, r42 012000006640 01C2 mov r25 = 3 ;; } { .mii 008C84382000 01D0 st4 [r67] = r65 0000B3C01500 01D1 sxt4 r84 = r60 0000B00014C0 01D2 sxt4 r83 = r0 } { .mib 000008000000 01E0 nop.m 0 0000B3301480 01E1 sxt4 r82 = r51 00A000001000 01E2 br.call.sptk.many br0 = XPO$GET } { .mib 010805100040 01F0 mov r1 = r81 00A0308001C0 01F1 tbit.z pr7, pr6 = r8, 0 00860000C007 01F2 (pr7) br.cond.dpnt.few L$6 ;; // 000152 XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 8 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 } { .mii 01080A8F1140 0200 adds r69 = 248, r40 // 000163 010812841180 0201 adds r70 = 288, r40 01080A8E9100 0202 adds r68 = 244, r40 } { .mii 012000006640 0210 mov r25 = 3 0000B3A01500 0211 sxt4 r84 = r58 0000B00014C0 0212 sxt4 r83 = r0 ;; } { .mib 008C84570000 0220 st4 [r69] = r56 0000B4401480 0221 sxt4 r82 = r68 004000000000 0222 nop.b 0 } { .mfb 008C0467A000 0230 st1 [r70] = r61 000008000000 0231 nop.f 0 00A000001000 0232 br.call.sptk.many br0 = XPO$DELETE } { .mfb 010805100040 0240 mov r1 = r81 000008000000 0241 nop.f 0 0091FFFE6000 0242 br.sptk.few L$2 ;; } 0250 L$6: // 000171 { .mii 012000101240 0250 add r73 = @ltoff(@fptr(XPO$FAILURE)), r1 010802A40A80 0251 adds r42 = 32, r42 010802858A00 0252 adds r40 = 44, r40 } { .mii 012000006640 0260 mov r25 = 3 0000B00014C0 0261 sxt4 r83 = r0 012000005280 0262 mov r74 = 2 ;; // 000177 } { .mmi 0080C4901240 0270 ld8 r73 = XPO$FAILURE // r73 = [r73] // 000171 00AC02858600 0271 st1 [r40] = r44, 24 000008000000 0272 nop.i 0 ;; } { .mii 00BC8A854F00 0280 st4 [r40] = r42, -68 0000B4901500 0281 sxt4 r84 = r73 ;; 0000B2801480 0282 sxt4 r82 = r40 } { .mib 0119F28712C0 0290 adds r75 = -200, r40 // 000177 0119F2818CC0 0291 adds r51 = -244, r40 00A000001000 0292 br.call.sptk.many br0 = XPO$PUT ;; // 000171 } { .mii 010805100040 02A0 mov r1 = r81 012000006640 02A1 mov r25 = 3 // 000177 0000B00014C0 02A2 sxt4 r83 = r0 XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 9 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 } { .mii 008C04B94000 02B0 st1 [r75] = r74 0000B3301480 02B1 sxt4 r82 = r51 ;; 012000101300 02B2 add r76 = @ltoff(@fptr(XPO$FAILURE)), r1 ;; } { .mmi 0080C4C01300 02C0 ld8 r76 = XPO$FAILURE ;; // r76 = [r76] 000008000000 02C1 nop.m 0 0000B4C01500 02C2 sxt4 r84 = r76 } { .mfb 000008000000 02D0 nop.m 0 000008000000 02D1 nop.f 0 00A000001000 02D2 br.call.sptk.many br0 = XPO$CLOSE } { .mii 010805100040 02E0 mov r1 = r81 010802858A00 02E1 adds r40 = 44, r40 // 000179 012000006640 02E2 mov r25 = 3 ;; } { .mib 012000101380 02F0 add r78 = @ltoff(@fptr(XPO$FAILURE)), r1 0000B00014C0 02F1 sxt4 r83 = r0 004000000000 02F2 nop.b 0 ;; } { .mmi 00BC0A895500 0300 st1 [r40] = r74, -44 0080C4E01380 0301 ld8 r78 = XPO$FAILURE // r78 = [r78] 000008000000 0302 nop.i 0 ;; } { .mii 000008000000 0310 nop.m 0 0000B2801480 0311 sxt4 r82 = r40 0000B4E01500 0312 sxt4 r84 = r78 } { .mfb 000008000000 0320 nop.m 0 000008000000 0321 nop.f 0 00A000001000 0322 br.call.sptk.many br0 = XPO$CLOSE } { .mlx 010805100040 0330 mov r1 = r81 000000000000 0331 movl r8 = 2129921 ;; // 000185 0190004044 } { .mii 000008000000 0340 nop.m 0 0001540A0000 0341 mov.i rspfs = r80 000E0019E000 0342 mov br0 = r79 ;; } { .mfb 000008000000 0350 nop.m 0 000008000000 0351 nop.f 0 000108001100 0352 br.ret.sptk.many br0 ;; XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 10 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 } .endp TEST_DELETE Routine Size: 864 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$FILE_SPEC, 8, 8 .lcomm $IOB$OUTPUT, 8, 8 .lcomm $IOB$FILE_SPEC, 8, 8 .lcomm $IOB$PROMPT, 8, 8 .lcomm $IOB$OUTPUT, 8, 8 .lcomm P.AAA, 10, 16 .lcomm fill$$1, 2, 2 .lcomm P.AAB, 23, 16 .lcomm fill$$2, 1, 1 .lcomm P.AAC, 9, 16 .lcomm fill$$3, 3, 4 .lcomm P.AAD, 29, 16 .lcomm fill$$4, 3, 4 .lcomm P.AAE, 32, 16 .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC $IOB$FILE_SPEC: 000A 02DC data2 0xA // data2 10 0E 02DE data1 0xE // data1 14 01 02DF data1 0x1 // data1 1 00000000 02E0 data4 P.AAA $IOB$OUTPUT: 0017 02E4 data2 0x17 // data2 23 0E 02E6 data1 0xE // data1 14 01 02E7 data1 0x1 // data1 1 00000000 02E8 data4 P.AAB $IOB$FILE_SPEC: 0009 02EC data2 0x9 // data2 9 0E 02EE data1 0xE // data1 14 01 02EF data1 0x1 // data1 1 00000000 02F0 data4 P.AAC $IOB$PROMPT: 001D 02F4 data2 0x1D // data2 29 0E 02F6 data1 0xE // data1 14 01 02F7 data1 0x1 // data1 1 00000000 02F8 data4 P.AAD $IOB$OUTPUT: 0020 02FC data2 0x20 // data2 32 0E 02FE data1 0xE // data1 14 01 02FF data1 0x1 // data1 1 00000000 0300 data4 P.AAE .psect $PLIT$, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC P.AAA: 24535953 0000 string "SYS$OUTPUT" 5054554F 0004 5455 0008 P.AAB: XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 11 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 4F50580A 000C string "\X0AXPORT File Delete Test" 46205452 0010 20656C69 0014 656C6544 0018 54206574 001C 747365 0020 P.AAC: 24535953 0024 string "SYS$INPUT" 55504E49 0028 54 002C P.AAD: 6D614E0A 0030 string "\X0AName of file to be deleted? " 666F2065 0034 6C696620 0038 6F742065 003C 20656220 0040 656C6564 0044 3F646574 0048 20 004C P.AAE: 4F50580A 0050 string "\X0AXPORT File Delete Test Complete" 46205452 0054 20656C69 0058 656C6544 005C 54206574 0060 20747365 0064 706D6F43 0068 6574656C 006C .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$FAILURE, @function .global XPO$FAILURE .section .data .type XPO$IO_FAILURE, @function .global XPO$IO_FAILURE .section .data XTESTD Machine Code Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 12 X00.09 TEST_DELETE 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 .type XST$FREE_TEMP, @function .global XST$FREE_TEMP .section .data .type XPO$GET, @function .global XPO$GET .section .data .type XPO$DELETE, @function .global XPO$DELETE .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 ; Library Statistics ; ; -------- Symbols -------- Pages ; File Total Loaded Percent Mapped ; ; DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14 ; 590 113 19 270 Source Listing 4-FEB-2004 11:02:13 BLISS-32I T1.1-053 Page 13 Source Listing 19-MAR-2002 10:12:32 [LASTOVICA.XPORT.VMSGEN]XTESTD.BLI;1 COMMAND LINE: BLISSXTESTD/LIST/DEBUG