                                XPORT File-spec Parse Test       4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

    0	      1 MODULE xtestp (	MAIN = test_parse,		%TITLE 'XPORT File-spec Parse Test'
    0	      2 		IDENT = 'X00.02'
    0	      3 		%BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) )
    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 tests XPORT file-spec parsing.
    1	     33 !
    1	     34 ! ENVIRONMENT:  User Mode
    1	     35 !
    1	     36 ! AUTHOR:  Ward Clark,	CREATION DATE:  13 August 1980
    1	     37 !
    1	     38 !--

XTESTP                          XPORT File-spec Parse Test       4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 2
X00.02                                                          19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

    1	     40 !
    1	     41 ! TABLE OF CONTENTS:
    1	     42 !
    1	     43 
    1	     44 FORWARD ROUTINE
    1	     45     test_parse;						! Principal testing routine
    1	     46 
    1	     47 !
    1	     48 ! INCLUDE FILES:
    1	     49 !
    1	     50 
    1	     51 LIBRARY  'XPORT' ;					! XPORT control block and macro definitions
    1	     53 
    1	     54 !
    1	     55 ! MACROS:
    1	     56 !
    1	     57 
    1	     58 MACRO
    1	     59     SKIP( literal_string ) =				! Prefix a literal string with a line-feed
M   1	     60 	%STRING( %CHAR(lf), literal_string ) %;
    1	     61 
    1	     62 !
    1	     63 ! EQUATED SYMBOLS:
    1	     64 !
    1	     65 
    1	     66 LITERAL
    1	     67     lf = %O'12';					! ASCII line feed character
    1	     68 
    1	     69 !
    1	     70 ! OWN STORAGE:
    1	     71 !
    1	     72 
    1	     73 OWN
    1	     74     tty_input :  $XPO_IOB(),				! IOB for input from terminal
    1	     75 
    1	     76     tty_output :  $XPO_IOB(),				! IOB for output to terminal
    1	     77 
    1	     78     spec_block :  $XPO_SPEC_BLOCK;			! File-spec parse block
    1	     79 
    1	     80 !
    1	     81 ! EXTERNAL REFERENCES:
    1	     82 !
    1	     83 
    1	     84 EXTERNAL ROUTINE
    1	     85     XSPEC :  NOVALUE;					! File-spec block display routine

XTESTP                          XPORT File-spec Parse Test       4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 3
X00.02                                                          19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

    1	     87 GLOBAL ROUTINE test_parse =
    1	     88 
    1	     89 !++
    1	     90 !
    1	     91 ! FUNCTIONAL DESCRIPTION:
    1	     92 !
    1	     93 !	This routine prompts the user for a file specification, parses the
    1	     94 !	file-spec, and then displays the resulting file-spec block.
    1	     95 !
    1	     96 ! FORMAL PARAMETERS:
    1	     97 !
    1	     98 !	None
    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:
    1	    109 !
    1	    110 !	XPO$_NORMAL - successful completion
    1	    111 !
    1	    112 ! SIDE EFFECTS:
    1	    113 !
    1	    114 !	None
    1	    115 !
    1	    116 !--
    1	    117 
    1	    118     BEGIN
    2	    119 
    2	    120 %IF %VARIANT NEQ 0 %THEN
U   2	    121 !
U   2	    122 ! Initialize the IOB'S
U   2	    123 !
U   2	    124 
U   2	    125     $XPO_IOB_INIT( IOB = tty_input );
U   2	    126     $XPO_IOB_INIT( IOB = tty_output );
U   2	    127     $XPO_IOB_INIT( IOB = spec_block );
U   2	    128 %FI
    2	    129 
    2	    130 !
    2	    131 ! Open the user's terminal for output and send the user a greeting message.
    2	    132 !
    2	    133 
    2	    134     $XPO_OPEN( IOB = tty_output,			! Open the user's terminal:
P   2	    135 		FILE_SPEC = $XPO_OUTPUT,		!    standard output file
P   2	    136 		OPTIONS = OUTPUT );			!    open for output
    2	    137 
    2	    138     $XPO_PUT( IOB = tty_output,				! Send the user a greeting message.
P   2	    139 	STRING = skip('XPORT File-spec Parse Test') );
    2	    140 
    2	    141 !
    2	    142 ! Open the user's terminal for input.
    2	    143 !

XTESTP                          XPORT File-spec Parse Test       4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 4
X00.02                                                          19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

    2	    144 
    2	    145     $XPO_OPEN( IOB = tty_input,				! Open the user's terminal:
P   2	    146 		FILE_SPEC = $XPO_INPUT,			!    standard input file
P   2	    147 		OPTIONS = INPUT );			!    open for input
    2	    148 
    2	    149 !
    2	    150 ! Ask for a file specification.
    2	    151 !
    2	    152 
    2	    153     WHILE $XPO_GET( IOB = tty_input, PROMPT = skip('File-spec? ') ) DO
    2	    154 	IF $XPO_PARSE_SPEC( FILE_SPEC = tty_input[IOB$T_STRING],
P   2	    155 			    SPEC_BLOCK = spec_block,
P   2	    156 			    FAILURE = XPO$PS_FAILURE )
    3	    157 	THEN
    2	    158 	    XSPEC( spec_block );
    2	    159 
    2	    160 !
    2	    161 ! Send the user a completion message.
    2	    162 !
    2	    163 
    2	    164     $XPO_PUT( IOB = tty_output, STRING = skip('XPORT File-spec Parse Test Complete') );
    2	    165 
    2	    166 !
    2	    167 ! Close the terminal input and output files.
    2	    168 !
    2	    169 
    2	    170     $XPO_CLOSE( IOB = tty_input );			! Close the terminal input file.
    2	    171 
    2	    172     $XPO_CLOSE( IOB = tty_output );			! Close the terminal output file.
    2	    173 
    2	    174 !
    2	    175 ! Terminate XPORT testing.
    2	    176 !
    2	    177 
    2	    178     RETURN XPO$_NORMAL
    2	    179     END;
    1	    180 END
    1	    181 ELUDOM

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 5
X00.02                                                          19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   TEST_PARSE
				      .align 32
				      .global  TEST_PARSE
			TEST_PARSE:											   // 000087
			   { .mii 
002C02F69340     0000		      alloc   r77 = rspfs, 0, 47, 5, 0
012000100A00     0001		      add     r40 = @ltoff(TTY_OUTPUT), r1						   // 000136
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
000188001300     0022		      mov     r76 = br0									   // 000087
			   }
			   { .mmi 
0080C2800A00     0030		      ld8     r40 = TTY_OUTPUT			// r40 = [r40]				   // 000136
0080C2A00A80     0031		      ld8     r42 = $IOB$FILE_SPEC		// r42 = [r42]
010800101380     0032		      mov     r78 = r1 ;;								   // 000087
			   }
			   { .mii 
01200000EB00     0040		      mov     r44 = 7									   // 000139
0000B1101440     0041		      sxt4    r81 = r17									   // 000136
0000B0001400     0042		      sxt4    r80 = r0
			   }
			   { .mmi 
012000400C40     0050		      addl    r49 = 65536, r0								   // 000147
01200000CF40     0051		      mov     r61 = 6									   // 000153
010802858A00     0052		      adds    r40 = 44, r40 ;;								   // 000136
			   }
			   { .mmi 
0080828000C0     0060		      ld4     r3 = [r40] ;;
0100708060C0     0061		      or      r3 = r3, r8
000008000000     0062		      nop.i   0 ;;
			   }
			   { .mmi 
008C82806000     0070		      st4     [r40] = r3 ;;
00BC0A853600     0071		      st1     [r40] = r41, -40
000008000000     0072		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A855F00     0080		      st4     [r40] = r42, -4
010802A10AC0     0081		      adds    r43 = 8, r42								   // 000139
010802A20C80     0082		      adds    r50 = 16, r42 ;;								   // 000147
			   }
			   { .mib 
000008000000     0090		      nop.m   0
0000B28013C0     0091		      sxt4    r79 = r40									   // 000136
00A000001000     0092		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mii 

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 6
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

010804E00040     00A0		      mov     r1 = r78
010802858A00     00A1		      adds    r40 = 44, r40								   // 000139
012000006640     00A2		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100BC0     00B0		      add     r47 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001400     00B1		      sxt4    r80 = 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
0000B2F01440     00D1		      sxt4    r81 = r47 ;;
0000B28013C0     00D2		      sxt4    r79 = r40
			   }
			   { .mib 
0119F2870C00     00E0		      adds    r48 = -200, r40								   // 000147
0119F2870D00     00E1		      adds    r52 = -200, r40
00A000001000     00E2		      br.call.sptk.many br0 = XPO$PUT ;;						   // 000139
			   }
			   { .mmi 
010804E00040     00F0		      mov     r1 = r78
008083000C00     00F1		      ld4     r48 = [r48]								   // 000147
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
0000B0001400     0112		      sxt4    r80 = r0 ;;
			   }
			   { .mii 
0080C3700DC0     0120		      ld8     r55 = XPO$FAILURE			// r55 = [r55]
0000B33013C0     0121		      sxt4    r79 = r51
0119F2880F00     0122		      adds    r60 = -192, r40 ;;							   // 000156
			   }
			   { .mmi 
008C83460000     0130		      st4     [r52] = r48								   // 000147
008C03552000     0131		      st1     [r53] = r41
0000B3701440     0132		      sxt4    r81 = r55
			   }
			   { .mfb 
008C83664000     0140		      st4     [r54] = r50
000008000000     0141		      nop.f   0
00A000001000     0142		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mmi 

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 7
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

010804E00040     0150		      mov     r1 = r78 ;;
012000100E80     0151		      add     r58 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000153
					      r1
012000100E00     0152		      add     r56 = @ltoff(@fptr(XPO$PS_FAILURE)), 					   // 000156
					      r1 ;;
			   }
			   { .mmi 
0080C3A00EC0     0160		      ld8     r59 = XPO$FAILURE			// r59 = [r58]				   // 000153
0080C3800E40     0161		      ld8     r57 = XPO$PS_FAILURE		// r57 = [r56]				   // 000156
000008000000     0162		      nop.i   0 ;;
			   }
	         0170	L$3:												   // 000153
			   { .mmi 
0119F2860F80     0170		      adds    r62 = -208, r40 ;;
008083E00FC0     0171		      ld4     r63 = [r62]
000008000000     0172		      nop.i   0 ;;
			   }
			   { .mfb 
01C403F001C0     0180		      cmp4.eq pr7, pr0 = r0, r63
000008000000     0181		      nop.f   0
008600006007     0182	       (pr7)  br.cond.dpnt.few L$5
			   }
			   { .mib 
012000002640     0190		      mov     r25 = 1
0000B3F013C0     0191		      sxt4    r79 = r63
00A000001000     0192		      br.call.sptk.many br0 = XST$FREE_TEMP
			   }
			   { .mfi 
010804E00040     01A0		      mov     r1 = r78
000008000000     01A1		      nop.f   0
000008000000     01A2		      nop.i   0
			   }
	         01B0	L$5:
			   { .mii 
0119F2871040     01B0		      adds    r65 = -200, r40
0119F2861080     01B1		      adds    r66 = -208, r40
0119F2818CC0     01B2		      adds    r51 = -244, r40 ;;
			   }
			   { .mii 
008C0417A000     01C0		      st1     [r65] = r61
010802A31000     01C1		      adds    r64 = 24, r42
012000006640     01C2		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C84280000     01D0		      st4     [r66] = r64
0000B3B01440     01D1		      sxt4    r81 = r59
0000B0001400     01D2		      sxt4    r80 = r0
			   }
			   { .mib 
000008000000     01E0		      nop.m   0
0000B33013C0     01E1		      sxt4    r79 = r51
00A000001000     01E2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010804E00040     01F0		      mov     r1 = r78
00A0308001C0     01F1		      tbit.z  pr7, pr6 = r8, 0
008600010007     01F2	       (pr7)  br.cond.dpnt.few L$7 ;;

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 8
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

			   }
			   { .mii 
01080A8E9440     0200		      adds    r81 = 244, r40								   // 000156
01200000A640     0201		      mov     r25 = 5
0000B39014C0     0202		      sxt4    r83 = r57 ;;
			   }
			   { .mii 
000008000000     0210		      nop.m   0
0000B5101400     0211		      sxt4    r80 = r81
0000B0001480     0212		      sxt4    r82 = r0
			   }
			   { .mib 
0119F80FF440     0220		      adds    r81 = -1, r0
0000B3C013C0     0221		      sxt4    r79 = r60
00A000001000     0222		      br.call.sptk.many br0 = XPO$PARSE_SPEC
			   }
			   { .mib 
010804E00040     0230		      mov     r1 = r78
00A0308001C0     0231		      tbit.z  pr7, pr6 = r8, 0
0095FFFE8007     0232	       (pr7)  br.cond.dptk.few L$3								   // 000154
			   }
			   { .mii 
01080A8E90C0     0240		      adds    r67 = 244, r40								   // 000158
012000002640     0241		      mov     r25 = 1 ;;
0000B43013C0     0242		      sxt4    r79 = r67
			   }
			   { .mfb 
000008000000     0250		      nop.m   0
000008000000     0251		      nop.f   0
00A000001000     0252		      br.call.sptk.many br0 = XSPEC
			   }
			   { .mfb 
010804E00040     0260		      mov     r1 = r78
000008000000     0261		      nop.f   0
0091FFFE2000     0262		      br.sptk.few L$3 ;;								   // 000154
			   }
	         0270	L$7:												   // 000164
			   { .mii 
012000101180     0270		      add     r70 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
010802A40A80     0271		      adds    r42 = 32, r42
010802858A00     0272		      adds    r40 = 44, r40
			   }
			   { .mii 
012000006640     0280		      mov     r25 = 3
0000B0001400     0281		      sxt4    r80 = r0
0120000051C0     0282		      mov     r71 = 2 ;;								   // 000170
			   }
			   { .mmi 
0080C4601180     0290		      ld8     r70 = XPO$FAILURE			// r70 = [r70]				   // 000164
00AC02858600     0291		      st1     [r40] = r44, 24
000008000000     0292		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A854F00     02A0		      st4     [r40] = r42, -68
0000B4601440     02A1		      sxt4    r81 = r70 ;;
0000B28013C0     02A2		      sxt4    r79 = r40

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 9
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

			   }
			   { .mib 
0119F2871200     02B0		      adds    r72 = -200, r40								   // 000170
0119F2818CC0     02B1		      adds    r51 = -244, r40
00A000001000     02B2		      br.call.sptk.many br0 = XPO$PUT ;;						   // 000164
			   }
			   { .mii 
010804E00040     02C0		      mov     r1 = r78
012000006640     02C1		      mov     r25 = 3									   // 000170
0000B0001400     02C2		      sxt4    r80 = r0
			   }
			   { .mii 
008C0488E000     02D0		      st1     [r72] = r71
0000B33013C0     02D1		      sxt4    r79 = r51 ;;
012000101240     02D2		      add     r73 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1 ;;
			   }
			   { .mmi 
0080C4901240     02E0		      ld8     r73 = XPO$FAILURE ;;		// r73 = [r73]
000008000000     02E1		      nop.m   0
0000B4901440     02E2		      sxt4    r81 = r73
			   }
			   { .mfb 
000008000000     02F0		      nop.m   0
000008000000     02F1		      nop.f   0
00A000001000     02F2		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mii 
010804E00040     0300		      mov     r1 = r78
010802858A00     0301		      adds    r40 = 44, r40								   // 000172
012000006640     0302		      mov     r25 = 3 ;;
			   }
			   { .mib 
0120001012C0     0310		      add     r75 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001400     0311		      sxt4    r80 = r0
004000000000     0312		      nop.b   0 ;;
			   }
			   { .mmi 
00BC0A88F500     0320		      st1     [r40] = r71, -44
0080C4B012C0     0321		      ld8     r75 = XPO$FAILURE			// r75 = [r75]
000008000000     0322		      nop.i   0 ;;
			   }
			   { .mii 
000008000000     0330		      nop.m   0
0000B28013C0     0331		      sxt4    r79 = r40
0000B4B01440     0332		      sxt4    r81 = r75
			   }
			   { .mfb 
000008000000     0340		      nop.m   0
000008000000     0341		      nop.f   0
00A000001000     0342		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mlx 
010804E00040     0350		      mov     r1 = r78
000000000000     0351		      movl    r8 = 2129921 ;;								   // 000178
0190004044

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 10
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

			   }
			   { .mii 
000008000000     0360		      nop.m   0
00015409A000     0361		      mov.i   rspfs = r77
000E00198000     0362		      mov     br0 = r76 ;;
			   }
			   { .mfb 
000008000000     0370		      nop.m   0
000008000000     0371		      nop.f   0
000108001100     0372		      br.ret.sptk.many br0 ;;
			   }
				      .endp   TEST_PARSE

Routine Size: 896 bytes,    Routine Base: $CODE$ + 0000

				       .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$FILE_SPEC, 244, 16
				      .lcomm  IOB$, 244, 16
				      .lcomm  SPEC_BLOCK, 72, 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, 27, 16
				      .lcomm  fill$$2, 1, 1
				      .lcomm  P.AAC, 9, 16
				      .lcomm  fill$$3, 3, 4
				      .lcomm  P.AAD, 12, 16
				      .lcomm  P.AAE, 36, 16
				      .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
			$IOB$FILE_SPEC:
    000A         0230		      data2   0xA // data2 10
      0E         0232		      data1   0xE // data1 14
      01         0233		      data1   0x1 // data1 1
00000000         0234		      data4   P.AAA
			$IOB$OUTPUT:
    001B         0238		      data2   0x1B // data2 27
      0E         023A		      data1   0xE // data1 14
      01         023B		      data1   0x1 // data1 1
00000000         023C		      data4   P.AAB
			$IOB$FILE_SPEC:
    0009         0240		      data2   0x9 // data2 9
      0E         0242		      data1   0xE // data1 14
      01         0243		      data1   0x1 // data1 1
00000000         0244		      data4   P.AAC
			$IOB$PROMPT:
    000C         0248		      data2   0xC // data2 12
      0E         024A		      data1   0xE // data1 14
      01         024B		      data1   0x1 // data1 1
00000000         024C		      data4   P.AAD
			$IOB$OUTPUT:
    0024         0250		      data2   0x24 // data2 36
      0E         0252		      data1   0xE // data1 14

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 11
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

      01         0253		      data1   0x1 // data1 1
00000000         0254		      data4   P.AAE
				      .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 File-spec Parse Test"
46205452         0010
2D656C69         0014
63657073         0018
72615020         001C
54206573         0020
  747365         0024

			P.AAC:
24535953         0028		      string  "SYS$INPUT"
55504E49         002C
      54         0030

			P.AAD:
6C69460A         0034		      string  "\X0AFile-spec? "
70732D65         0038
203F6365         003C

			P.AAE:
4F50580A         0040		      string  "\X0AXPORT File-spec Parse Test Complete"
46205452         0044
2D656C69         0048
63657073         004C
72615020         0050
54206573         0054
20747365         0058
706D6F43         005C
6574656C         0060

				      .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

XTESTP                          Machine Code Listing             4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 12
X00.02                          TEST_PARSE                      19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PS_FAILURE, @function 
				      .global  XPO$PS_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$PARSE_SPEC, @function 
				      .global  XPO$PARSE_SPEC
				      .section .data
				      .type   XSPEC, @function 
				      .global  XSPEC
				      .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       154        26       270




                                Source Listing                   4-FEB-2004 11:02:14  BLISS-32I T1.1-053                Page 13
                                Source Listing                  19-MAR-2002 10:12:35  [LASTOVICA.XPORT.VMSGEN]XTESTP.BLI;1

COMMAND LINE:

BLISSXTESTP/LIST/DEBUG
