                                XPORT Sequential I/O Test        4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

    0	      1 MODULE XTEST (	MAIN = TEST_RECORD,		%TITLE 'XPORT Sequential I/O Test'
    0	      2 		IDENT = 'V1.0-9'
    0	      3 		%BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) )
    0	      4 		) =
    0	      5 BEGIN
    1	      6 
    1	      7 !
    1	      8 !			  COPYRIGHT (c) 1981 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 record I/O functions.
    1	     33 !
    1	     34 ! ENVIRONMENT:  User Mode
    1	     35 !
    1	     36 ! AUTHOR:  Ward Clark,	CREATION DATE:  10 January 1979
    1	     37 !
    1	     38 !--

XTEST                           XPORT Sequential I/O Test        4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 2
V1.0-9                                                          19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

    1	     40 !
    1	     41 ! TABLE OF CONTENTS:
    1	     42 !
    1	     43 
    1	     44 FORWARD ROUTINE
    1	     45     TEST_RECORD;					! 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     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 !

XTEST                           XPORT Sequential I/O Test        4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 3
V1.0-9                                                          19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

    1	     85 GLOBAL ROUTINE TEST_RECORD =
    1	     86 
    1	     87 !++
    1	     88 !
    1	     89 ! FUNCTIONAL DESCRIPTION:
    1	     90 !
    1	     91 !	This module explicitly tests the following XPORT record 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 IOB's.
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

XTEST                           XPORT Sequential I/O Test        4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 4
V1.0-9                                                          19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.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 Record 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 = INPUT,		!    open for 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 = INPUT,		!    open for 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,

XTEST                           XPORT Sequential I/O Test        4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 5
V1.0-9                                                          19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.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 = OUTPUT,		!    open for output
P   3	    206 			FAILURE = XPO$IO_FAILURE )	!    non-terminating I/O failure action routine
    4	    207 	ELSE
    3	    208 	    BEGIN
    4	    209 	    output_file[IOB$V_SEQUENCED] =		! Otherwise, make the output file sequenced
    4	    210 		.input_file[IOB$V_SEQUENCED];		! if the input file is sequenced.
    4	    211 							!
    4	    212 	    status = $XPO_OPEN( IOB = output_file,	! and then open the specified output file:
P   4	    213 			FILE_SPEC =			!    output file-spec descriptor
P   4	    214 			    tty_input[IOB$T_STRING],	!
P   4	    215 			OPTIONS = OUTPUT,		!    open for output
P   4	    216 			FAILURE = XPO$IO_FAILURE );	!    non-terminating I/O failure action routine
    4	    217 	    END;
    3	    218 
    3	    219 	IF .status THEN EXITLOOP;			! If the output file was successfully opened,
    3	    220 							! exit the file open loop.
    3	    221 	END;
    2	    222 
    2	    223 !
    2	    224 ! Copy the input file to the output file one record at a time.
    2	    225 !
    2	    226 
    2	    227     WHILE $XPO_GET( IOB = input_file,			! Read records until end-of-file is reached
P   2	    228 		FAILURE = XPO$IO_FAILURE ) DO		! or an I/O error occurs.
    2	    229 
    2	    230 	$XPO_PUT( IOB = output_file,			! Write a record into the output file:
P   2	    231 		STRING = input_file[IOB$T_STRING],	!    input record descriptor
P   2	    232 		SEQUENCE_NUMBER =			!    sequence number
P   2	    233 		    .input_file[IOB$G_SEQ_NUMB] );
    2	    234 
    2	    235 !
    2	    236 ! Close the input and output files.
    2	    237 !
    2	    238 
    2	    239     $XPO_CLOSE( IOB = input_file );			! Close the input file.
    2	    240 
    2	    241     $XPO_CLOSE( IOB = output_file );			! Close the output file.
    2	    242 
    2	    243 !
    2	    244 ! Send the user a completion message.
    2	    245 !
    2	    246 
    2	    247     $XPO_PUT( IOB = tty_output,				! Send the user a blank line followed by a message.
P   2	    248 	STRING = skip('XPORT Record I/O Test Complete') );
    2	    249 
    2	    250 !
    2	    251 ! Close the terminal input and output files.
    2	    252 !
    2	    253 
    2	    254     $XPO_CLOSE( IOB = tty_input );			! Close the terminal input file.
    2	    255 

XTEST                           XPORT Sequential I/O Test        4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 6
V1.0-9                                                          19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

    2	    256     $XPO_CLOSE( IOB = tty_output );			! Close the terminal output file.
    2	    257 
    2	    258 !
    2	    259 ! Terminate XPORT I/O testing.
    2	    260 !
    2	    261 
    2	    262     RETURN XPO$_NORMAL;					! Exit with a normal completion code.
    2	    263     END;
    1	    264 END
    1	    265 ELUDOM

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 7
V1.0-9                                                          19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   TEST_RECORD
				      .align 32
				      .global  TEST_RECORD
			TEST_RECORD:											   // 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
01200000D000     0051		      mov     r64 = 6									   // 000169
010802858A00     0052		      adds    r40 = 44, r40 ;;								   // 000149
			   }
			   { .mmi 
0080828000C0     0060		      ld4     r3 = [r40] ;;
0100729060C0     0061		      or      r3 = r3, r41
000008000000     0062		      nop.i   0 ;;
			   }
			   { .mmi 
008C82806000     0070		      st4     [r40] = r3 ;;
00BC0A855600     0071		      st1     [r40] = r42, -40
000008000000     0072		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A857F00     0080		      st4     [r40] = r43, -4
010802B10B00     0081		      adds    r44 = 8, r43								   // 000152
010802B20CC0     0082		      adds    r51 = 16, r43 ;;								   // 000160
			   }
			   { .mib 
000008000000     0090		      nop.m   0
0000B2801F40     0091		      sxt4    r125 = r40								   // 000149
00A000001000     0092		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mii 

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 8
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.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 

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 9
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.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 
0119F2861040     0180		      adds    r65 = -208, r40 ;;
008084101080     0181		      ld4     r66 = [r65]
000008000000     0182		      nop.i   0 ;;
			   }
			   { .mfb 
01C4042001C0     0190		      cmp4.eq pr7, pr0 = r0, r66
000008000000     0191		      nop.f   0
008600006007     0192	       (pr7)  br.cond.dpnt.few L$4
			   }
			   { .mib 
012000002640     01A0		      mov     r25 = 1
0000B4201F40     01A1		      sxt4    r125 = r66
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 
0119F2871100     01C0		      adds    r68 = -200, r40
0119F2861140     01C1		      adds    r69 = -208, r40
0119F2818D00     01C2		      adds    r52 = -244, r40 ;;
			   }
			   { .mii 
008C04480000     01D0		      st1     [r68] = r64
010802B310C0     01D1		      adds    r67 = 24, r43
012000006640     01D2		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C84586000     01E0		      st4     [r69] = r67
0000B3F01FC0     01E1		      sxt4    r127 = r63
0000B0001F80     01E2		      sxt4    r126 = r0
			   }
			   { .mib 
000008000000     01F0		      nop.m   0
0000B3401F40     01F1		      sxt4    r125 = r52

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 10
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.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
0086000B6007     0202	       (pr7)  br.cond.dpnt.few L$6								   // 000168
			   }
			   { .mmi 
0119F2881180     0210		      adds    r70 = -192, r40 ;;							   // 000173
008044601180     0211		      ld2     r70 = [r70]
000008000000     0212		      nop.i   0 ;;
			   }
			   { .mfb 
01C444600000     0220		      cmp4.eq pr0, pr8 = r0, r70
000008000000     0221		      nop.f   0
008600012008     0222	       (pr8)  br.cond.dpnt.few L$7
			   }
			   { .mii 
0108128411C0     0230		      adds    r71 = 288, r40								   // 000178
010812841280     0231		      adds    r74 = 288, r40
0108128412C0     0232		      adds    r75 = 288, r40
			   }
			   { .mmi 
01080A8F1300     0240		      adds    r76 = 248, r40
01080A8E9240     0241		      adds    r73 = 244, r40
010802B41200     0242		      adds    r72 = 32, r43 ;;
			   }
			   { .mii 
0080847011C0     0250		      ld4     r71 = [r71]
012000006640     0251		      mov     r25 = 3
0000B3D01FC0     0252		      sxt4    r127 = r61 ;;
			   }
			   { .mii 
000008000000     0260		      nop.m   0
0000B0001F80     0261		      sxt4    r126 = r0
01007328F1C0     0262		      or      r71 = r71, r50 ;;
			   }
			   { .mib 
000008000000     0270		      nop.m   0
0000B4901F40     0271		      sxt4    r125 = r73
004000000000     0272		      nop.b   0
			   }
			   { .mmi 
008C84A8E000     0280		      st4     [r74] = r71
008C04B54000     0281		      st1     [r75] = r42
000008000000     0282		      nop.i   0
			   }
			   { .mfb 
008C84C90000     0290		      st4     [r76] = r72
000008000000     0291		      nop.f   0
00A000001000     0292		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mfb 
000008000000     02A0		      nop.m   0
000008000000     02A1		      nop.f   0
00800000E000     02A2		      br.sptk.few L$24 ;;
			   }

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 11
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

	         02B0	L$7:												   // 000184
			   { .mii 
010812841340     02B0		      adds    r77 = 288, r40
0108128413C0     02B1		      adds    r79 = 288, r40
010812841400     02B2		      adds    r80 = 288, r40
			   }
			   { .mmi 
01080A8F1440     02C0		      adds    r81 = 248, r40
01080A8E9380     02C1		      adds    r78 = 244, r40
012000006640     02C2		      mov     r25 = 3 ;;
			   }
			   { .mii 
008084D01340     02D0		      ld4     r77 = [r77]
0000B3B01FC0     02D1		      sxt4    r127 = r59
0000B0001F80     02D2		      sxt4    r126 = r0 ;;
			   }
			   { .mii 
000008000000     02E0		      nop.m   0
0000B4E01F40     02E1		      sxt4    r125 = r78
01007329B340     02E2		      or      r77 = r77, r50 ;;
			   }
			   { .mmi 
008C84F9A000     02F0		      st4     [r79] = r77
008C05054000     02F1		      st1     [r80] = r42
000008000000     02F2		      nop.i   0
			   }
			   { .mfb 
008C85172000     0300		      st4     [r81] = r57
000008000000     0301		      nop.f   0
00A000001000     0302		      br.call.sptk.many br0 = XPO$OPEN
			   }
	         0310	L$24:
			   { .mib 
010807C00040     0310		      mov     r1 = r124
00A0308001C0     0311		      tbit.z  pr7, pr6 = STATUS, 0		// pr7, pr6 = r8, 0			   // 000186
0095FFFCE007     0312	       (pr7)  br.cond.dptk.few L$2 ;;
			   }
			   { .mii 
012000101580     0320		      add     r86 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000197
					      r1
012000101500     0321		      add     r84 = @ltoff(@fptr(XPO$IO_FAILURE)), 					   // 000206
					      r1
012000101480     0322		      add     r82 = @ltoff(@fptr(XPO$IO_FAILURE)), 					   // 000216
					      r1 ;;
			   }
			   { .mmi 
0080C56015C0     0330		      ld8     r87 = XPO$FAILURE			// r87 = [r86]				   // 000197
0080C5401540     0331		      ld8     r85 = XPO$IO_FAILURE		// r85 = [r84]				   // 000206
000008000000     0332		      nop.i   0
			   }
			   { .mfi 
0080C52014C0     0340		      ld8     r83 = XPO$IO_FAILURE		// r83 = [r82]				   // 000216
000008000000     0341		      nop.f   0
000008000000     0342		      nop.i   0 ;;
			   }
	         0350	L$12:												   // 000197
			   { .mmi 

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 12
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

0119F2861600     0350		      adds    r88 = -208, r40 ;;
008085801640     0351		      ld4     r89 = [r88]
000008000000     0352		      nop.i   0 ;;
			   }
			   { .mfb 
01C405900240     0360		      cmp4.eq pr9, pr0 = r0, r89
000008000000     0361		      nop.f   0
008600006009     0362	       (pr9)  br.cond.dpnt.few L$14
			   }
			   { .mib 
012000002640     0370		      mov     r25 = 1
0000B5901F40     0371		      sxt4    r125 = r89
00A000001000     0372		      br.call.sptk.many br0 = XST$FREE_TEMP
			   }
			   { .mfi 
010807C00040     0380		      mov     r1 = r124
000008000000     0381		      nop.f   0
000008000000     0382		      nop.i   0
			   }
	         0390	L$14:
			   { .mii 
0119F28716C0     0390		      adds    r91 = -200, r40
0119F2861700     0391		      adds    r92 = -208, r40
0119F2818D00     0392		      adds    r52 = -244, r40 ;;
			   }
			   { .mii 
008C05B80000     03A0		      st1     [r91] = r64
010802B51680     03A1		      adds    r90 = 40, r43
012000006640     03A2		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C85CB4000     03B0		      st4     [r92] = r90
0000B5701FC0     03B1		      sxt4    r127 = r87
0000B0001F80     03B2		      sxt4    r126 = r0
			   }
			   { .mib 
000008000000     03C0		      nop.m   0
0000B3401F40     03C1		      sxt4    r125 = r52
00A000001000     03C2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010807C00040     03D0		      mov     r1 = r124
00A0308001C0     03D1		      tbit.z  pr7, pr6 = r8, 0
00860007C007     03D2	       (pr7)  br.cond.dpnt.few L$6								   // 000196
			   }
			   { .mmi 
0119F2881740     03E0		      adds    r93 = -192, r40 ;;							   // 000201
008045D01740     03E1		      ld2     r93 = [r93]
000008000000     03E2		      nop.i   0 ;;
			   }
			   { .mfb 
01C445D00000     03F0		      cmp4.eq pr0, pr8 = r0, r93
000008000000     03F1		      nop.f   0
008600012008     03F2	       (pr8)  br.cond.dpnt.few L$17
			   }
			   { .mii 
0119F2B71780     0400		      adds    r94 = -200, r43								   // 000206

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 13
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

0119F2B71840     0401		      adds    r97 = -200, r43
0119F2B71880     0402		      adds    r98 = -200, r43
			   }
			   { .mmi 
0119F2B218C0     0410		      adds    r99 = -240, r43
0119F2B19800     0411		      adds    r96 = -244, r43
010802B617C0     0412		      adds    r95 = 48, r43 ;;
			   }
			   { .mii 
008085E01780     0420		      ld4     r94 = [r94]
012000006640     0421		      mov     r25 = 3
0000B5501FC0     0422		      sxt4    r127 = r85 ;;
			   }
			   { .mii 
000008000000     0430		      nop.m   0
0000B0001F80     0431		      sxt4    r126 = r0
0100729BD780     0432		      or      r94 = r94, r41 ;;
			   }
			   { .mib 
000008000000     0440		      nop.m   0
0000B6001F40     0441		      sxt4    r125 = r96
004000000000     0442		      nop.b   0
			   }
			   { .mmi 
008C861BC000     0450		      st4     [r97] = r94
008C06254000     0451		      st1     [r98] = r42
000008000000     0452		      nop.i   0
			   }
			   { .mfb 
008C863BE000     0460		      st4     [r99] = r95
000008000000     0461		      nop.f   0
00A000001000     0462		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mfb 
000008000000     0470		      nop.m   0
000008000000     0471		      nop.f   0
008000012000     0472		      br.sptk.few L$25 ;;
			   }
	         0480	L$17:												   // 000201
			   { .mii 
010812849900     0480		      adds    r100 = 292, r40								   // 000210
0119F2B79940     0481		      adds    r101 = -196, r43								   // 000209
0119F2B71980     0482		      adds    r102 = -200, r43								   // 000216
			   }
			   { .mmi 
0119F2B71A00     0490		      adds    r104 = -200, r43
0119F2B71A40     0491		      adds    r105 = -200, r43
0119F2B79A80     0492		      adds    r106 = -196, r43 ;;							   // 000209
			   }
			   { .mii 
008086401900     04A0		      ld4     r100 = [r100]								   // 000210
0119F2B21AC0     04A1		      adds    r107 = -240, r43								   // 000216
0119F2B199C0     04A2		      adds    r103 = -244, r43
			   }
			   { .mmi 
008086501940     04B0		      ld4     r101 = [r101]								   // 000209
008086601980     04B1		      ld4     r102 = [r102]								   // 000216

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 14
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

012000006640     04B2		      mov     r25 = 3 ;;
			   }
			   { .mii 
000008000000     04C0		      nop.m   0
00A406411900     04C1		      extr.u  r100 = r100, 4, 1								   // 000210
0000B5301FC0     04C2		      sxt4    r127 = r83 ;;								   // 000216
			   }
			   { .mii 
0100729CD980     04D0		      or      r102 = r102, r41
009D865C9900     04D1		      dep     r100 = r100, r101, 4, 1							   // 000209
0000B0001F80     04D2		      sxt4    r126 = r0 ;;								   // 000216
			   }
			   { .mmi 
008C868CC000     04E0		      st4     [r104] = r102
008C06954000     04E1		      st1     [r105] = r42
0000B6701F40     04E2		      sxt4    r125 = r103
			   }
			   { .mmb 
008C86AC8000     04F0		      st4     [r106] = r100								   // 000209
008C86B72000     04F1		      st4     [r107] = r57								   // 000216
00A000001000     04F2		      br.call.sptk.many br0 = XPO$OPEN
			   }
	         0500	L$25:
			   { .mib 
010807C00040     0500		      mov     r1 = r124
00A0308001C0     0501		      tbit.z  pr7, pr6 = STATUS, 0		// pr7, pr6 = r8, 0			   // 000219
0095FFFCA007     0502	       (pr7)  br.cond.dptk.few L$12
			   }
			   { .mii 
010812841B40     0510		      adds    r109 = 288, r40								   // 000228
01080A8E9B00     0511		      adds    r108 = 244, r40
012000006640     0512		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C06D80000     0520		      st1     [r109] = r64
012000101B40     0521		      add     r109 = @ltoff(@fptr(XPO$IO_FAILURE)), 
					      r1
0000B0001F80     0522		      sxt4    r126 = r0 ;;
			   }
			   { .mib 
000008000000     0530		      nop.m   0
0000B6C01F40     0531		      sxt4    r125 = r108
004000000000     0532		      nop.b   0
			   }
			   { .mmi 
0080C6D01B80     0540		      ld8     r110 = XPO$IO_FAILURE ;;		// r110 = [r109]
000008000000     0541		      nop.m   0
0000B6E01FC0     0542		      sxt4    r127 = r110
			   }
			   { .mfb 
000008000000     0550		      nop.m   0
000008000000     0551		      nop.f   0
00A000001000     0552		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010807C00040     0560		      mov     r1 = r124
00A0308001C0     0561		      tbit.z  pr7, pr6 = r8, 0

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 15
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

00860001A007     0562	       (pr7)  br.cond.dpnt.few L$22 ;;								   // 000227
			   }
			   { .mii 
012000101C00     0570		      add     r112 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000233
					      r1
010812851BC0     0571		      adds    r111 = 296, r40
000008000000     0572		      nop.i   0 ;;
			   }
			   { .mfi 
0080C7001C40     0580		      ld8     r113 = XPO$FAILURE		// r113 = [r112]
000008000000     0581		      nop.f   0
000008000000     0582		      nop.i   0 ;;
			   }
	         0590	L$23:
			   { .mii 
010812881CC0     0590		      adds    r115 = 320, r40
0119F2B71D00     0591		      adds    r116 = -200, r43
0119F2BA1D40     0592		      adds    r117 = -176, r43
			   }
			   { .mmi 
0119F2BB1D80     05A0		      adds    r118 = -168, r43
010812841DC0     05A1		      adds    r119 = 288, r40								   // 000228
0119F2B19C80     05A2		      adds    r114 = -244, r43 ;;							   // 000233
			   }
			   { .mii 
008087301CC0     05B0		      ld4     r115 = [r115]
01080A8E9B00     05B1		      adds    r108 = 244, r40								   // 000228
012000006640     05B2		      mov     r25 = 3									   // 000233
			   }
			   { .mmi 
008C0745A000     05C0		      st1     [r116] = r45
008C875DE000     05C1		      st4     [r117] = r111
0000B7101FC0     05C2		      sxt4    r127 = r113 ;;
			   }
			   { .mii 
008C876E6000     05D0		      st4     [r118] = r115
0000B0001F80     05D1		      sxt4    r126 = r0
0000B7201F40     05D2		      sxt4    r125 = r114
			   }
			   { .mfb 
000008000000     05E0		      nop.m   0
000008000000     05E1		      nop.f   0
00A000001000     05E2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     05F0		      mov     r25 = 3									   // 000228
0000B6E01FC0     05F1		      sxt4    r127 = r110
0000B0001F80     05F2		      sxt4    r126 = r0
			   }
			   { .mii 
008C07780000     0600		      st1     [r119] = r64
0000B6C01F40     0601		      sxt4    r125 = r108
010807C00040     0602		      mov     r1 = r124 ;;								   // 000233
			   }
			   { .mfb 
000008000000     0610		      nop.m   0
000008000000     0611		      nop.f   0

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 16
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

00A000001000     0612		      br.call.sptk.many br0 = XPO$GET							   // 000228
			   }
			   { .mib 
010807C00040     0620		      mov     r1 = r124
00A0308001C0     0621		      tbit.z  pr7, pr6 = r8, 0
0095FFFEE006     0622	       (pr6)  br.cond.dptk.few L$23 ;;								   // 000227
			   }
	         0630	L$22:												   // 000239
			   { .mii 
012000100B80     0630		      add     r46 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
010812841E40     0631		      adds    r121 = 288, r40
012000005E00     0632		      mov     r120 = 2
			   }
			   { .mmi 
01080A8E9B00     0640		      adds    r108 = 244, r40
012000006640     0641		      mov     r25 = 3
0000B0001F80     0642		      sxt4    r126 = r0 ;;
			   }
			   { .mii 
0080C2E00B80     0650		      ld8     r46 = XPO$FAILURE			// r46 = [r46]
0000B6C01F40     0651		      sxt4    r125 = r108
0119F2B70BC0     0652		      adds    r47 = -200, r43								   // 000241
			   }
			   { .mmi 
008C079F0000     0660		      st1     [r121] = r120								   // 000239
0119F2B18B00     0661		      adds    r44 = -244, r43								   // 000241
010802B70AC0     0662		      adds    r43 = 56, r43 ;;
			   }
			   { .mib 
000008000000     0670		      nop.m   0
0000B2E01FC0     0671		      sxt4    r127 = r46								   // 000239
00A000001000     0672		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mii 
010807C00040     0680		      mov     r1 = r124
012000006640     0681		      mov     r25 = 3									   // 000241
0000B0001F80     0682		      sxt4    r126 = r0
			   }
			   { .mii 
008C02FF0000     0690		      st1     [r47] = r120
0000B2C01F40     0691		      sxt4    r125 = r44 ;;
012000100C00     0692		      add     r48 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1 ;;
			   }
			   { .mmi 
0080C3000C00     06A0		      ld8     r48 = XPO$FAILURE ;;		// r48 = [r48]
000008000000     06A1		      nop.m   0
0000B3001FC0     06A2		      sxt4    r127 = r48
			   }
			   { .mfb 
000008000000     06B0		      nop.m   0
000008000000     06B1		      nop.f   0
00A000001000     06B2		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mii 
010807C00040     06C0		      mov     r1 = r124

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 17
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

010802858A00     06C1		      adds    r40 = 44, r40								   // 000248
012000006640     06C2		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100D80     06D0		      add     r54 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001F80     06D1		      sxt4    r126 = r0
004000000000     06D2		      nop.b   0 ;;
			   }
			   { .mmi 
00AC0285A600     06E0		      st1     [r40] = r45, 24
0080C3600D80     06E1		      ld8     r54 = XPO$FAILURE			// r54 = [r54]
000008000000     06E2		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A856F00     06F0		      st4     [r40] = r43, -68
0000B3601FC0     06F1		      sxt4    r127 = r54 ;;
0000B2801F40     06F2		      sxt4    r125 = r40
			   }
			   { .mib 
0119F2870CC0     0700		      adds    r51 = -200, r40								   // 000254
0119F2818D00     0701		      adds    r52 = -244, r40
00A000001000     0702		      br.call.sptk.many br0 = XPO$PUT ;;						   // 000248
			   }
			   { .mii 
010807C00040     0710		      mov     r1 = r124
012000006640     0711		      mov     r25 = 3									   // 000254
0000B0001F80     0712		      sxt4    r126 = r0
			   }
			   { .mii 
008C033F0000     0720		      st1     [r51] = r120
0000B3401F40     0721		      sxt4    r125 = r52 ;;
012000100DC0     0722		      add     r55 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1 ;;
			   }
			   { .mmi 
0080C3700DC0     0730		      ld8     r55 = XPO$FAILURE ;;		// r55 = [r55]
000008000000     0731		      nop.m   0
0000B3701FC0     0732		      sxt4    r127 = r55
			   }
			   { .mfb 
000008000000     0740		      nop.m   0
000008000000     0741		      nop.f   0
00A000001000     0742		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mii 
010807C00040     0750		      mov     r1 = r124
010802858A00     0751		      adds    r40 = 44, r40								   // 000256
012000006640     0752		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100E80     0760		      add     r58 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001F80     0761		      sxt4    r126 = r0
004000000000     0762		      nop.b   0 ;;
			   }
			   { .mmi 

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 18
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

00BC0A8F1500     0770		      st1     [r40] = r120, -44
0080C3A00E80     0771		      ld8     r58 = XPO$FAILURE			// r58 = [r58]
000008000000     0772		      nop.i   0 ;;
			   }
			   { .mii 
000008000000     0780		      nop.m   0
0000B2801F40     0781		      sxt4    r125 = r40
0000B3A01FC0     0782		      sxt4    r127 = r58
			   }
			   { .mfb 
000008000000     0790		      nop.m   0
000008000000     0791		      nop.f   0
00A000001000     0792		      br.call.sptk.many br0 = XPO$CLOSE
			   }
			   { .mfi 
010807C00040     07A0		      mov     r1 = r124
000008000000     07A1		      nop.f   0
000008000000     07A2		      nop.i   0
			   }
	         07B0	L$6:												   // 000168
			   { .mlx 
000008000000     07B0		      nop.m   0
000000000000     07B1		      movl    r8 = 2129921 ;;								   // 000262
0190004044
			   }
			   { .mii 
000008000000     07C0		      nop.m   0
0001540F6000     07C1		      mov.i   rspfs = r123
000E001F4000     07C2		      mov     br0 = r122 ;;
			   }
			   { .mfb 
000008000000     07D0		      nop.m   0
000008000000     07D1		      nop.f   0
000108001100     07D2		      br.ret.sptk.many br0 ;;
			   }
				      .endp   TEST_RECORD

Routine Size: 2016 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

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 19
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

				      .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
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

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 20
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

    5455         0008

			P.AAB:
4F50580A         000C		      string  "\X0AXPORT Record I/O Test"
52205452         0010
726F6365         0014
2F492064         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
  203F65         0060

			P.AAG:
24535953         0064		      string  "SYS$OUTPUT"
5054554F         0068
    5455         006C

			P.AAH:
4F50580A         0070		      string  "\X0AXPORT Record I/O Test Complete"
52205452         0074
726F6365         0078
2F492064         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 

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 21
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

				      .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
				      .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$IO_FAILURE, @function 
				      .global  XPO$IO_FAILURE
				      .section .data
				      .type   XPO$GET, @function 

XTEST                           Machine Code Listing             4-FEB-2004 11:02:11  BLISS-32I T1.1-053                Page 22
V1.0-9                          TEST_RECORD                     19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

				      .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
				      .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:11  BLISS-32I T1.1-053                Page 23
                                Source Listing                  19-MAR-2002 10:12:28  [LASTOVICA.XPORT.VMSGEN]XTEST.BLI;1

COMMAND LINE:

BLISSXTEST/LIST/DEBUG
