                                XPORT String Formatting Test     4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

    0	      1 MODULE STESTF (	MAIN = test_format,		%TITLE 'XPORT String Formatting Test'
    0	      2 		IDENT = 'X00.03'
    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 the $STR_FORMAT string conversion function.
    1	     33 !
    1	     34 ! ENVIRONMENT:  User Mode
    1	     35 !
    1	     36 ! AUTHOR:  Ward Clark,	CREATION DATE:  16 April 1980
    1	     37 !
    1	     38 !--

STESTF                          XPORT String Formatting Test     4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 2
X00.03                                                          19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

    1	     40 !
    1	     41 ! TABLE OF CONTENTS:
    1	     42 !
    1	     43 
    1	     44 FORWARD ROUTINE
    1	     45     test_format;					! 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 !
    1	     78 ! EXTERNAL REFERENCES:
    1	     79 !

STESTF                          XPORT String Formatting Test     4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 3
X00.03                                                          19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

    1	     81 GLOBAL ROUTINE test_format =
    1	     82 
    1	     83 !++
    1	     84 !
    1	     85 ! FUNCTIONAL DESCRIPTION:
    1	     86 !
    1	     87 !	This routine tests the $STR_FORMAT string conversion function.
    1	     88 !
    1	     89 ! FORMAL PARAMETERS:
    1	     90 !
    1	     91 !	None
    1	     92 !
    1	     93 ! IMPLICIT INPUTS:
    1	     94 !
    1	     95 !	None
    1	     96 !
    1	     97 ! IMPLICIT OUTPUTS:
    1	     98 !
    1	     99 !	None
    1	    100 !
    1	    101 ! COMPLETION CODES:
    1	    102 !
    1	    103 !	STR$_NORMAL - successful completion
    1	    104 !
    1	    105 ! SIDE EFFECTS:
    1	    106 !
    1	    107 !	None
    1	    108 !
    1	    109 !--
    1	    110 
    1	    111     BEGIN
    2	    112 
    2	    113     LOCAL
    2	    114 	string_length;
    2	    115 
    2	    116 %IF %VARIANT NEQ 0 %THEN
U   2	    117 !
U   2	    118 ! Initialize the IOBs
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 %FI
    2	    124 
    2	    125 !
    2	    126 ! Open the user's terminal for output and send the user a greeting message.
    2	    127 !
    2	    128 
    2	    129     $XPO_OPEN( IOB = tty_output, FILE_SPEC = $XPO_OUTPUT, OPTION = OUTPUT );
    2	    130 
    2	    131     $XPO_PUT( IOB = tty_output, STRING = skip('XPORT String Formatting Test') );
    2	    132 
    2	    133 !
    2	    134 ! Open the user's terminal for input.
    2	    135 !
    2	    136 
    2	    137     $XPO_OPEN( IOB = tty_input, FILE_SPEC = $XPO_INPUT );

STESTF                          XPORT String Formatting Test     4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 4
X00.03                                                          19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

    2	    138 
    2	    139 !
    2	    140 ! Ask the user for a string length.
    2	    141 !
    2	    142 
    2	    143     string_length = 0;
    2	    144 
    2	    145     WHILE $XPO_GET( IOB = tty_input, PROMPT = skip('Enter string length: ') ) DO
    2	    146 	BEGIN
    3	    147 
    3	    148 !
    3	    149 ! Convert the ASCII string length to binary.
    3	    150 !
    3	    151 
    3	    152 	IF .tty_input[IOB$H_STRING] NEQ 0
    3	    153 	THEN
    3	    154 	    IF NOT $STR_BINARY( STRING = tty_input[IOB$T_STRING],
P   3	    155 				RESULT = string_length,
P   3	    156 				RANGE = ( 0, 255 ),
P   3	    157 				FAILURE = STR$B_FAILURE )
    4	    158 	    THEN
    3	    159 		EXITLOOP;
    3	    160 
    3	    161 !
    3	    162 ! Ask the user for an ASCII string.
    3	    163 !
    3	    164 
    3	    165 	IF NOT $XPO_GET( IOB = tty_input, PROMPT = 'Enter string: ' )
    4	    166 	THEN
    3	    167 	    EXITLOOP;
    3	    168 
    3	    169 !
    3	    170 ! Format the string in several ways.
    3	    171 !
    3	    172 
    3	    173 	$XPO_PUT( IOB = tty_output,
P   3	    174 		STRING = $STR_CONCAT( 'default:        "',
P   3	    175 				$STR_FORMAT( tty_input[IOB$T_STRING], LENGTH = .string_length ),
P   3	    176 				'"' ) );
    3	    177 
    3	    178 	$XPO_PUT( IOB = tty_output,
P   3	    179 		STRING = $STR_CONCAT( 'LEFT_JUSTIFY:   "',
P   3	    180 				$STR_FORMAT( tty_input[IOB$T_STRING], LEFT_JUSTIFY, LENGTH = .string_length ),
P   3	    181 				'"' ) );
    3	    182 
    3	    183 	$XPO_PUT( IOB = tty_output,
P   3	    184 		STRING = $STR_CONCAT( 'CENTER:         "',
P   3	    185 				$STR_FORMAT( tty_input[IOB$T_STRING], CENTER, LENGTH = .string_length ),
P   3	    186 				'"' ) );
    3	    187 
    3	    188 	$XPO_PUT( IOB = tty_output,
P   3	    189 		STRING = $STR_CONCAT( 'RIGHT_JUSTIFY:  "',
P   3	    190 				$STR_FORMAT( tty_input[IOB$T_STRING], RIGHT_JUSTIFY, LENGTH = .string_length ),
P   3	    191 				'"' ) );
    3	    192 
    3	    193 	$XPO_PUT( IOB = tty_output,
P   3	    194 		STRING = $STR_CONCAT( 'UP_CASE:        "',

STESTF                          XPORT String Formatting Test     4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 5
X00.03                                                          19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

P   3	    195 				$STR_FORMAT( tty_input[IOB$T_STRING], CENTER, UP_CASE, LENGTH = .string_length ),
P   3	    196 				'"' ) );
    3	    197 	END;
    2	    198 
    2	    199 !
    2	    200 ! Send the user a test completion message.
    2	    201 !
    2	    202 
    2	    203     $XPO_PUT( IOB = tty_output, STRING = skip('XPORT String Formatting Test Complete') );
    2	    204 
    2	    205     RETURN STR$_NORMAL;
    2	    206 
    2	    207     END;
    1	    208 END
    1	    209 ELUDOM

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 6
X00.03                                                          19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   TEST_FORMAT
				      .align 32
				      .global  TEST_FORMAT
			TEST_FORMAT:											   // 000081
			   { .mii 
002C04EABB00     0000		      alloc   r108 = rspfs, 0, 78, 7, 0
012000100A00     0001		      add     r40 = @ltoff(TTY_OUTPUT), r1						   // 000129
012000100480     0002		      add     r18 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
			   }
			   { .mmi 
012000800200     0010		      addl    r8 = 131072, r0
012000002A40     0011		      mov     r41 = 1
000188001AC0     0012		      mov     r107 = br0 ;;								   // 000081
			   }
			   { .mii 
0119F8CE0300     0020		      adds    r12 = -16, r12
010800101B40     0021		      mov     r109 = r1
012000006640     0022		      mov     r25 = 3									   // 000129
			   }
			   { .mmi 
0080C2800A00     0030		      ld8     r40 = TTY_OUTPUT			// r40 = [r40]
0080C1200480     0031		      ld8     r18 = XPO$FAILURE			// r18 = [r18]
0000B0001BC0     0032		      sxt4    r111 = r0
			   }
			   { .mii 
01200000EAC0     0040		      mov     r43 = 7									   // 000131
01200000D180     0041		      mov     r70 = 6									   // 000145
010800000D00     0042		      mov     STRING_LENGTH = r0 ;;		// r52 = r0				   // 000143
			   }
			   { .mii 
01080A8E8240     0050		      adds    r9 = 244, r40								   // 000129
0000B1201C00     0051		      sxt4    r112 = r18
010802858A00     0052		      adds    r40 = 44, r40 ;;
			   }
			   { .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 ;;
			   }
			   { .mmi 
00BC8A813F00     0080		      st4     [r40] = r9, -4 ;;
000008000000     0081		      nop.m   0
0000B2801B80     0082		      sxt4    r110 = r40
			   }
			   { .mfb 
01080A8F8A80     0090		      adds    r42 = 252, r40								   // 000131
000008000000     0091		      nop.f   0
00A000001000     0092		      br.call.sptk.many br0 = XPO$OPEN							   // 000129
			   }
			   { .mii 

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 7
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

010806D00040     00A0		      mov     r1 = r109
010802858A00     00A1		      adds    r40 = 44, r40								   // 000131
012000006640     00A2		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100B80     00B0		      add     r46 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001BC0     00B1		      sxt4    r111 = r0
004000000000     00B2		      nop.b   0 ;;
			   }
			   { .mmi 
00AC02856600     00C0		      st1     [r40] = r43, 24
0080C2E00B80     00C1		      ld8     r46 = XPO$FAILURE			// r46 = [r46]
000008000000     00C2		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A854F00     00D0		      st4     [r40] = r42, -68
0000B2E01C00     00D1		      sxt4    r112 = r46 ;;
0000B2801B80     00D2		      sxt4    r110 = r40
			   }
			   { .mib 
0119F2870C00     00E0		      adds    r48 = -200, r40								   // 000137
0119F2820C80     00E1		      adds    r50 = -240, r40
00A000001000     00E2		      br.call.sptk.many br0 = XPO$PUT ;;						   // 000131
			   }
			   { .mii 
010806D00040     00F0		      mov     r1 = r109
0119F2818BC0     00F1		      adds    r47 = -244, r40								   // 000137
012000006640     00F2		      mov     r25 = 3
			   }
			   { .mmi 
008C03052000     0100		      st1     [r48] = r41
0119F2881140     0101		      adds    r69 = -192, r40								   // 000157
0000B0001BC0     0102		      sxt4    r111 = r0 ;;								   // 000137
			   }
			   { .mii 
012000100C40     0110		      add     r49 = @ltoff($IOB$FILE_SPEC), r1
012000100CC0     0111		      add     r51 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B2F01B80     0112		      sxt4    r110 = r47 ;;
			   }
			   { .mmi 
0080C3100C40     0120		      ld8     r49 = $IOB$FILE_SPEC		// r49 = [r49]
0080C3300CC0     0121		      ld8     r51 = XPO$FAILURE			// r51 = [r51]
000008000000     0122		      nop.i   0 ;;
			   }
			   { .mib 
008C83262000     0130		      st4     [r50] = r49
0000B3301C00     0131		      sxt4    r112 = r51
00A000001000     0132		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mmi 
010806D00040     0140		      mov     r1 = r109 ;;
0120001010C0     0141		      add     r67 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000145
					      r1
012000101040     0142		      add     r65 = @ltoff(@fptr(STR$B_FAILURE)), 					   // 000157
					      r1

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 8
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

			   }
			   { .mii 
012000100FC0     0150		      add     r63 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000165
					      r1
012000100F40     0151		      add     r61 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000176
					      r1
012000100EC0     0152		      add     r59 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000181
					      r1
			   }
			   { .mmi 
012000100E40     0160		      add     r57 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000186
					      r1
012000100DC0     0161		      add     r55 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000191
					      r1
012000100D40     0162		      add     r53 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000196
					      r1 ;;
			   }
			   { .mmi 
0080C4301100     0170		      ld8     r68 = XPO$FAILURE			// r68 = [r67]				   // 000145
0080C4101080     0171		      ld8     r66 = STR$B_FAILURE		// r66 = [r65]				   // 000157
000008000000     0172		      nop.i   0
			   }
			   { .mmi 
0080C3F01000     0180		      ld8     r64 = XPO$FAILURE			// r64 = [r63]				   // 000165
0080C3D00F80     0181		      ld8     r62 = XPO$FAILURE			// r62 = [r61]				   // 000176
000008000000     0182		      nop.i   0
			   }
			   { .mmi 
0080C3B00F00     0190		      ld8     r60 = XPO$FAILURE			// r60 = [r59]				   // 000181
0080C3900E80     0191		      ld8     r58 = XPO$FAILURE			// r58 = [r57]				   // 000186
000008000000     0192		      nop.i   0
			   }
			   { .mmi 
0080C3700E00     01A0		      ld8     r56 = XPO$FAILURE			// r56 = [r55]				   // 000191
0080C3500D80     01A1		      ld8     r54 = XPO$FAILURE			// r54 = [r53]				   // 000196
000008000000     01A2		      nop.i   0 ;;
			   }
	         01B0	L$2:												   // 000145
			   { .mmi 
0119F28611C0     01B0		      adds    r71 = -208, r40 ;;
008084701200     01B1		      ld4     r72 = [r71]
000008000000     01B2		      nop.i   0 ;;
			   }
			   { .mfb 
01C4048001C0     01C0		      cmp4.eq pr7, pr0 = r0, r72
000008000000     01C1		      nop.f   0
008600006007     01C2	       (pr7)  br.cond.dpnt.few L$4
			   }
			   { .mib 
012000002640     01D0		      mov     r25 = 1
0000B4801B80     01D1		      sxt4    r110 = r72
00A000001000     01D2		      br.call.sptk.many br0 = XST$FREE_TEMP
			   }
			   { .mfi 
010806D00040     01E0		      mov     r1 = r109
000008000000     01E1		      nop.f   0
000008000000     01E2		      nop.i   0

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 9
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

			   }
	         01F0	L$4:
			   { .mii 
0119F2871280     01F0		      adds    r74 = -200, r40
0119F28612C0     01F1		      adds    r75 = -208, r40
0119F2818BC0     01F2		      adds    r47 = -244, r40 ;;
			   }
			   { .mii 
008C04A8C000     0200		      st1     [r74] = r70
010803111240     0201		      adds    r73 = 8, r49
012000006640     0202		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C84B92000     0210		      st4     [r75] = r73
0000B4401C00     0211		      sxt4    r112 = r68
0000B0001BC0     0212		      sxt4    r111 = r0
			   }
			   { .mib 
000008000000     0220		      nop.m   0
0000B2F01B80     0221		      sxt4    r110 = r47
00A000001000     0222		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010806D00040     0230		      mov     r1 = r109
00A0308001C0     0231		      tbit.z  pr7, pr6 = r8, 0
00860008E007     0232	       (pr7)  br.cond.dpnt.few L$6
			   }
			   { .mmi 
0119F2881300     0240		      adds    r76 = -192, r40 ;;							   // 000152
008044C01300     0241		      ld2     r76 = [r76]
000008000000     0242		      nop.i   0 ;;
			   }
			   { .mfb 
01C404C00240     0250		      cmp4.eq pr9, pr0 = r0, r76
000008000000     0251		      nop.f   0
008600010009     0252	       (pr9)  br.cond.dpnt.few L$8
			   }
			   { .mii 
010800C21340     0260		      adds    r77 = 16, r12								   // 000157
01200000E640     0261		      mov     r25 = 7
0000B4201D00     0262		      sxt4    r116 = r66
			   }
			   { .mii 
0120080FFC80     0270		      mov     r114 = 255
0000B0001CC0     0271		      sxt4    r115 = r0
0000B0001C40     0272		      sxt4    r113 = r0 ;;
			   }
			   { .mii 
000008000000     0280		      nop.m   0
0000B4D01C00     0281		      sxt4    r112 = r77
0000B4501BC0     0282		      sxt4    r111 = r69
			   }
			   { .mib 
000008000000     0290		      nop.m   0
0000B0001B80     0291		      sxt4    r110 = r0
00A000001000     0292		      br.call.sptk.many br0 = XST$BINARY
			   }

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 10
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

			   { .mii 
010800C21380     02A0		      adds    r78 = 16, r12
00A0308001C0     02A1		      tbit.z  pr7, pr6 = r8, 0
010806D00040     02A2		      mov     r1 = r109 ;;
			   }
			   { .mii 
008084E01380     02B0		      ld4     r78 = [r78]
01C000001206     02B1	       (pr6)  cmp.eq.unc pr8, pr0 = r0, r0
01C000001247     02B2	       (pr7)  cmp.eq.unc pr9, pr0 = r0, r0 ;;
			   }
			   { .mbb 
010804E00D08     02C0	       (pr8)  mov     STRING_LENGTH = r78		// r52 = r78
008600002008     02C1	       (pr8)  br.cond.dpnt.few L$8								   // 000154
00860007C009     02C2	       (pr9)  br.cond.dpnt.few L$6
			   }
	         02D0	L$8:												   // 000165
			   { .mmi 
0119F28613C0     02D0		      adds    r79 = -208, r40 ;;
008084F01400     02D1		      ld4     r80 = [r79]
000008000000     02D2		      nop.i   0 ;;
			   }
			   { .mfb 
01C4050002C0     02E0		      cmp4.eq pr11, pr0 = r0, r80
000008000000     02E1		      nop.f   0
00860000600B     02E2	       (pr11) br.cond.dpnt.few L$10
			   }
			   { .mib 
012000002640     02F0		      mov     r25 = 1
0000B5001B80     02F1		      sxt4    r110 = r80
00A000001000     02F2		      br.call.sptk.many br0 = XST$FREE_TEMP
			   }
			   { .mfi 
010806D00040     0300		      mov     r1 = r109
000008000000     0301		      nop.f   0
000008000000     0302		      nop.i   0
			   }
	         0310	L$10:
			   { .mii 
0119F2871480     0310		      adds    r82 = -200, r40
0119F28614C0     0311		      adds    r83 = -208, r40
0119F2818BC0     0312		      adds    r47 = -244, r40 ;;
			   }
			   { .mii 
008C0528C000     0320		      st1     [r82] = r70
010803121440     0321		      adds    r81 = 16, r49
012000006640     0322		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C853A2000     0330		      st4     [r83] = r81
0000B4001C00     0331		      sxt4    r112 = r64
0000B0001BC0     0332		      sxt4    r111 = r0
			   }
			   { .mib 
000008000000     0340		      nop.m   0
0000B2F01B80     0341		      sxt4    r110 = r47
00A000001000     0342		      br.call.sptk.many br0 = XPO$GET
			   }

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 11
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

			   { .mib 
010806D00040     0350		      mov     r1 = r109
00A0308001C0     0351		      tbit.z  pr7, pr6 = r8, 0
00860006A007     0352	       (pr7)  br.cond.dpnt.few L$6 ;;
			   }
			   { .mii 
010803141540     0360		      adds    r85 = 32, r49								   // 000176
010803131500     0361		      adds    r84 = 24, r49
012000006640     0362		      mov     r25 = 3
			   }
			   { .mii 
010803161640     0370		      adds    r89 = 48, r49								   // 000181
0000B3401C00     0371		      sxt4    r112 = STRING_LENGTH		// r112 = r52				   // 000176
0000B4501BC0     0372		      sxt4    r111 = r69
			   }
			   { .mmi 
010803151600     0380		      adds    r88 = 40, r49								   // 000181
010803181740     0381		      adds    r93 = 64, r49								   // 000186
0000B0001B80     0382		      sxt4    r110 = r0									   // 000176
			   }
			   { .mib 
010803171700     0390		      adds    r92 = 56, r49								   // 000186
0108031A1840     0391		      adds    r97 = 80, r49								   // 000191
00A000001000     0392		      br.call.sptk.many br0 = XST$FORMAT ;;						   // 000176
			   }
			   { .mii 
012000006640     03A0		      mov     r25 = 3
0000B5501C00     03A1		      sxt4    r112 = r85
0000B0801BC0     03A2		      sxt4    r111 = r8
			   }
			   { .mii 
010806D00040     03B0		      mov     r1 = r109
0000B5401B80     03B1		      sxt4    r110 = r84
010803191800     03B2		      adds    r96 = 72, r49 ;;								   // 000191
			   }
			   { .mib 
0108031C1940     03C0		      adds    r101 = 96, r49								   // 000196
0108031B1900     03C1		      adds    r100 = 88, r49
00A000001000     03C2		      br.call.sptk.many br0 = XST$JOIN							   // 000176
			   }
			   { .mii 
010802858A00     03D0		      adds    r40 = 44, r40
012000006640     03D1		      mov     r25 = 3
0000B3E01C00     03D2		      sxt4    r112 = r62
			   }
			   { .mib 
010806D00040     03E0		      mov     r1 = r109
0000B0001BC0     03E1		      sxt4    r111 = r0
004000000000     03E2		      nop.b   0 ;;
			   }
			   { .mmi 
00AC02856600     03F0		      st1     [r40] = r43, 24 ;;
00BC8A810F00     03F1		      st4     [r40] = r8, -68
000008000000     03F2		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0400		      nop.m   0

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 12
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

0000B2801B80     0401		      sxt4    r110 = r40
00A000001000     0402		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     0410		      mov     r25 = 3									   // 000181
0000B3401C00     0411		      sxt4    r112 = STRING_LENGTH		// r112 = r52
0000B4501BC0     0412		      sxt4    r111 = r69
			   }
			   { .mib 
012000003B80     0420		      mov     r110 = 1
010806D00040     0421		      mov     r1 = r109									   // 000176
004000000000     0422		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0430		      nop.m   0
000008000000     0431		      nop.f   0
00A000001000     0432		      br.call.sptk.many br0 = XST$FORMAT						   // 000181
			   }
			   { .mii 
012000006640     0440		      mov     r25 = 3
0000B5901C00     0441		      sxt4    r112 = r89
0000B0801BC0     0442		      sxt4    r111 = r8
			   }
			   { .mib 
010806D00040     0450		      mov     r1 = r109
0000B5801B80     0451		      sxt4    r110 = r88
004000000000     0452		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0460		      nop.m   0
000008000000     0461		      nop.f   0
00A000001000     0462		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802858A00     0470		      adds    r40 = 44, r40
012000006640     0471		      mov     r25 = 3
0000B3C01C00     0472		      sxt4    r112 = r60
			   }
			   { .mib 
010806D00040     0480		      mov     r1 = r109
0000B0001BC0     0481		      sxt4    r111 = r0
004000000000     0482		      nop.b   0 ;;
			   }
			   { .mmi 
00AC02856600     0490		      st1     [r40] = r43, 24 ;;
00BC8A810F00     0491		      st4     [r40] = r8, -68
000008000000     0492		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     04A0		      nop.m   0
0000B2801B80     04A1		      sxt4    r110 = r40
00A000001000     04A2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     04B0		      mov     r25 = 3									   // 000186
0000B3401C00     04B1		      sxt4    r112 = STRING_LENGTH		// r112 = r52
0000B4501BC0     04B2		      sxt4    r111 = r69

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 13
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

			   }
			   { .mib 
012000009B80     04C0		      mov     r110 = 4
010806D00040     04C1		      mov     r1 = r109									   // 000181
004000000000     04C2		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     04D0		      nop.m   0
000008000000     04D1		      nop.f   0
00A000001000     04D2		      br.call.sptk.many br0 = XST$FORMAT						   // 000186
			   }
			   { .mii 
012000006640     04E0		      mov     r25 = 3
0000B5D01C00     04E1		      sxt4    r112 = r93
0000B0801BC0     04E2		      sxt4    r111 = r8
			   }
			   { .mib 
010806D00040     04F0		      mov     r1 = r109
0000B5C01B80     04F1		      sxt4    r110 = r92
004000000000     04F2		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0500		      nop.m   0
000008000000     0501		      nop.f   0
00A000001000     0502		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802858A00     0510		      adds    r40 = 44, r40
012000006640     0511		      mov     r25 = 3
0000B3A01C00     0512		      sxt4    r112 = r58
			   }
			   { .mib 
010806D00040     0520		      mov     r1 = r109
0000B0001BC0     0521		      sxt4    r111 = r0
004000000000     0522		      nop.b   0 ;;
			   }
			   { .mmi 
00AC02856600     0530		      st1     [r40] = r43, 24 ;;
00BC8A810F00     0531		      st4     [r40] = r8, -68
000008000000     0532		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0540		      nop.m   0
0000B2801B80     0541		      sxt4    r110 = r40
00A000001000     0542		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     0550		      mov     r25 = 3									   // 000191
0000B3401C00     0551		      sxt4    r112 = STRING_LENGTH		// r112 = r52
0000B4501BC0     0552		      sxt4    r111 = r69
			   }
			   { .mib 
012000005B80     0560		      mov     r110 = 2
010806D00040     0561		      mov     r1 = r109									   // 000186
004000000000     0562		      nop.b   0 ;;
			   }
			   { .mfb 

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 14
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

000008000000     0570		      nop.m   0
000008000000     0571		      nop.f   0
00A000001000     0572		      br.call.sptk.many br0 = XST$FORMAT						   // 000191
			   }
			   { .mii 
012000006640     0580		      mov     r25 = 3
0000B6101C00     0581		      sxt4    r112 = r97
0000B0801BC0     0582		      sxt4    r111 = r8
			   }
			   { .mib 
010806D00040     0590		      mov     r1 = r109
0000B6001B80     0591		      sxt4    r110 = r96
004000000000     0592		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     05A0		      nop.m   0
000008000000     05A1		      nop.f   0
00A000001000     05A2		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802858A00     05B0		      adds    r40 = 44, r40
012000006640     05B1		      mov     r25 = 3
0000B3801C00     05B2		      sxt4    r112 = r56
			   }
			   { .mib 
010806D00040     05C0		      mov     r1 = r109
0000B0001BC0     05C1		      sxt4    r111 = r0
004000000000     05C2		      nop.b   0 ;;
			   }
			   { .mmi 
00AC02856600     05D0		      st1     [r40] = r43, 24 ;;
00BC8A810F00     05D1		      st4     [r40] = r8, -68
000008000000     05D2		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     05E0		      nop.m   0
0000B2801B80     05E1		      sxt4    r110 = r40
00A000001000     05E2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     05F0		      mov     r25 = 3									   // 000196
0000B3401C00     05F1		      sxt4    r112 = STRING_LENGTH		// r112 = r52
0000B4501BC0     05F2		      sxt4    r111 = r69
			   }
			   { .mib 
012100009B80     0600		      mov     r110 = 4100
010806D00040     0601		      mov     r1 = r109									   // 000191
004000000000     0602		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0610		      nop.m   0
000008000000     0611		      nop.f   0
00A000001000     0612		      br.call.sptk.many br0 = XST$FORMAT						   // 000196
			   }
			   { .mii 
012000006640     0620		      mov     r25 = 3
0000B6501C00     0621		      sxt4    r112 = r101

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 15
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

0000B0801BC0     0622		      sxt4    r111 = r8
			   }
			   { .mib 
010806D00040     0630		      mov     r1 = r109
0000B6401B80     0631		      sxt4    r110 = r100
004000000000     0632		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0640		      nop.m   0
000008000000     0641		      nop.f   0
00A000001000     0642		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802888A00     0650		      adds    r40 = 68, r40
012000006640     0651		      mov     r25 = 3
0000B3601C00     0652		      sxt4    r112 = r54
			   }
			   { .mib 
010806D00040     0660		      mov     r1 = r109
0000B0001BC0     0661		      sxt4    r111 = r0
004000000000     0662		      nop.b   0 ;;
			   }
			   { .mmi 
00BC8A811A00     0670		      st4     [r40] = r8, -24 ;;
00BC0A857500     0671		      st1     [r40] = r43, -44
000008000000     0672		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0680		      nop.m   0
0000B2801B80     0681		      sxt4    r110 = r40
00A000001000     0682		      br.call.sptk.many br0 = XPO$PUT
			   }
			   { .mfb 
010806D00040     0690		      mov     r1 = r109
000008000000     0691		      nop.f   0
0091FFF64000     0692		      br.sptk.few L$2 ;;
			   }
	         06A0	L$6:												   // 000203
			   { .mii 
012000101A80     06A0		      add     r106 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0108031D0C40     06A1		      adds    r49 = 104, r49
010802858A00     06A2		      adds    r40 = 44, r40
			   }
			   { .mib 
012000006640     06B0		      mov     r25 = 3
0000B0001BC0     06B1		      sxt4    r111 = r0
004000000000     06B2		      nop.b   0 ;;
			   }
			   { .mmi 
0080C6A01A80     06C0		      ld8     r106 = XPO$FAILURE		// r106 = [r106]
00AC02856600     06C1		      st1     [r40] = r43, 24
000008000000     06C2		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A862F00     06D0		      st4     [r40] = r49, -68
0000B6A01C00     06D1		      sxt4    r112 = r106 ;;

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 16
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

0000B2801B80     06D2		      sxt4    r110 = r40
			   }
			   { .mfb 
000008000000     06E0		      nop.m   0
000008000000     06E1		      nop.f   0
00A000001000     06E2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000002200     06F0		      mov     r8 = 1									   // 000205
010806D00040     06F1		      mov     r1 = r109									   // 000203
0001540D8000     06F2		      mov.i   rspfs = r108 ;;								   // 000205
			   }
			   { .mib 
010800C20300     0700		      adds    r12 = 16, r12
000E001D6000     0701		      mov     br0 = r107
000108001100     0702		      br.ret.sptk.many br0 ;;
			   }
				      .endp   TEST_FORMAT

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

				       .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$STRING, 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$PROMPT, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  P.AAA, 10, 16
				      .lcomm  fill$$1, 2, 2
				      .lcomm  P.AAB, 29, 16
				      .lcomm  fill$$2, 3, 4
				      .lcomm  P.AAC, 9, 16
				      .lcomm  fill$$3, 3, 4
				      .lcomm  P.AAD, 22, 16
				      .lcomm  fill$$4, 2, 2
				      .lcomm  P.AAE, 14, 16
				      .lcomm  fill$$5, 2, 2
				      .lcomm  P.AAH, 17, 16
				      .lcomm  fill$$6, 3, 4
				      .lcomm  P.AAI, 1, 1
				      .lcomm  fill$$7, 3, 4
				      .lcomm  P.AAN, 17, 16
				      .lcomm  fill$$8, 3, 4

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 17
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

				      .lcomm  P.AAO, 1, 1
				      .lcomm  fill$$9, 3, 4
				      .lcomm  P.AAT, 17, 16
				      .lcomm  fill$$10, 3, 4
				      .lcomm  P.AAU, 1, 1
				      .lcomm  fill$$11, 3, 4
				      .lcomm  P.AAZ, 17, 16
				      .lcomm  fill$$12, 3, 4
				      .lcomm  P.ABA, 1, 1
				      .lcomm  fill$$13, 3, 4
				      .lcomm  P.ABF, 17, 16
				      .lcomm  fill$$14, 3, 4
				      .lcomm  P.ABG, 1, 1
				      .lcomm  fill$$15, 3, 4
				      .lcomm  P.ABJ, 38, 16
				      .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
			$IOB$FILE_SPEC:
    000A         01E8		      data2   0xA // data2 10
      0E         01EA		      data1   0xE // data1 14
      01         01EB		      data1   0x1 // data1 1
00000000         01EC		      data4   P.AAA
			$IOB$OUTPUT:
    001D         01F0		      data2   0x1D // data2 29
      0E         01F2		      data1   0xE // data1 14
      01         01F3		      data1   0x1 // data1 1
00000000         01F4		      data4   P.AAB
			$IOB$FILE_SPEC:
    0009         01F8		      data2   0x9 // data2 9
      0E         01FA		      data1   0xE // data1 14
      01         01FB		      data1   0x1 // data1 1
00000000         01FC		      data4   P.AAC
			$IOB$PROMPT:
    0016         0200		      data2   0x16 // data2 22
      0E         0202		      data1   0xE // data1 14
      01         0203		      data1   0x1 // data1 1
00000000         0204		      data4   P.AAD
			$IOB$PROMPT:
    000E         0208		      data2   0xE // data2 14
      0E         020A		      data1   0xE // data1 14
      01         020B		      data1   0x1 // data1 1
00000000         020C		      data4   P.AAE
			$STR$STRING0:
    0011         0210		      data2   0x11 // data2 17
      0E         0212		      data1   0xE // data1 14
      01         0213		      data1   0x1 // data1 1
00000000         0214		      data4   P.AAH
			$STR$STRING2:
    0001         0218		      data2   0x1 // data2 1
      0E         021A		      data1   0xE // data1 14
      01         021B		      data1   0x1 // data1 1
00000000         021C		      data4   P.AAI
			$STR$STRING0:
    0011         0220		      data2   0x11 // data2 17
      0E         0222		      data1   0xE // data1 14
      01         0223		      data1   0x1 // data1 1
00000000         0224		      data4   P.AAN
			$STR$STRING2:

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 18
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

    0001         0228		      data2   0x1 // data2 1
      0E         022A		      data1   0xE // data1 14
      01         022B		      data1   0x1 // data1 1
00000000         022C		      data4   P.AAO
			$STR$STRING0:
    0011         0230		      data2   0x11 // data2 17
      0E         0232		      data1   0xE // data1 14
      01         0233		      data1   0x1 // data1 1
00000000         0234		      data4   P.AAT
			$STR$STRING2:
    0001         0238		      data2   0x1 // data2 1
      0E         023A		      data1   0xE // data1 14
      01         023B		      data1   0x1 // data1 1
00000000         023C		      data4   P.AAU
			$STR$STRING0:
    0011         0240		      data2   0x11 // data2 17
      0E         0242		      data1   0xE // data1 14
      01         0243		      data1   0x1 // data1 1
00000000         0244		      data4   P.AAZ
			$STR$STRING2:
    0001         0248		      data2   0x1 // data2 1
      0E         024A		      data1   0xE // data1 14
      01         024B		      data1   0x1 // data1 1
00000000         024C		      data4   P.ABA
			$STR$STRING0:
    0011         0250		      data2   0x11 // data2 17
      0E         0252		      data1   0xE // data1 14
      01         0253		      data1   0x1 // data1 1
00000000         0254		      data4   P.ABF
			$STR$STRING2:
    0001         0258		      data2   0x1 // data2 1
      0E         025A		      data1   0xE // data1 14
      01         025B		      data1   0x1 // data1 1
00000000         025C		      data4   P.ABG
			$IOB$OUTPUT:
    0026         0260		      data2   0x26 // data2 38
      0E         0262		      data1   0xE // data1 14
      01         0263		      data1   0x1 // data1 1
00000000         0264		      data4   P.ABJ
				      .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 String Formatting Test"
53205452         0010
6E697274         0014
6F462067         0018
74616D72         001C
676E6974         0020
73655420         0024
      74         0028

			P.AAC:
24535953         002C		      string  "SYS$INPUT"

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 19
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

55504E49         0030
      54         0034

			P.AAD:
746E450A         0038		      string  "\X0AEnter string length: "
73207265         003C
6E697274         0040
656C2067         0044
6874676E         0048
    203A         004C

			P.AAE:
65746E45         0050		      string  "Enter string: "
74732072         0054
676E6972         0058
    203A         005C

			P.AAH:
61666564         0060		      string  "default:        ""
3A746C75         0064
20202020         0068
20202020         006C
      22         0070

			P.AAI:
      22         0074		      data1   0x22 // data1 34
			P.AAN:
5446454C         0078		      string  "LEFT_JUSTIFY:   ""
53554A5F         007C
59464954         0080
2020203A         0084
      22         0088

			P.AAO:
      22         008C		      data1   0x22 // data1 34
			P.AAT:
544E4543         0090		      string  "CENTER:         ""
203A5245         0094
20202020         0098
20202020         009C
      22         00A0

			P.AAU:
      22         00A4		      data1   0x22 // data1 34
			P.AAZ:
48474952         00A8		      string  "RIGHT_JUSTIFY:  ""
554A5F54         00AC
46495453         00B0
20203A59         00B4
      22         00B8

			P.ABA:
      22         00BC		      data1   0x22 // data1 34
			P.ABF:
435F5055         00C0		      string  "UP_CASE:        ""
3A455341         00C4
20202020         00C8

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 20
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

20202020         00CC
      22         00D0

			P.ABG:
      22         00D4		      data1   0x22 // data1 34
			P.ABJ:
4F50580A         00D8		      string  "\X0AXPORT String Formatting Test Complete"
53205452         00DC
6E697274         00E0
6F462067         00E4
74616D72         00E8
676E6974         00EC
73655420         00F0
6F432074         00F4
656C706D         00F8
    6574         00FC

				      .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   STR$B_FAILURE, @function 
				      .global  STR$B_FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 21
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XST$FREE_TEMP, @function 
				      .global  XST$FREE_TEMP
				      .section .data
				      .type   XPO$GET, @function 
				      .global  XPO$GET
				      .section .data
				      .type   XST$BINARY, @function 
				      .global  XST$BINARY
				      .section .data
				      .type   XST$FREE_TEMP, @function 
				      .global  XST$FREE_TEMP
				      .section .data
				      .type   XPO$GET, @function 
				      .global  XPO$GET
				      .section .data
				      .type   XST$FORMAT, @function 
				      .global  XST$FORMAT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$FORMAT, @function 
				      .global  XST$FORMAT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$FORMAT, @function 
				      .global  XST$FORMAT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$FORMAT, @function 
				      .global  XST$FORMAT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$FORMAT, @function 
				      .global  XST$FORMAT
				      .section .data

STESTF                          Machine Code Listing             4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 22
X00.03                          TEST_FORMAT                     19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT


;				Library Statistics
;
;					     -------- Symbols --------	    Pages
;	File				     Total    Loaded   Percent      Mapped
;
;  DISK$NORMS_OWN:[LASTOVICA.XPORT.VMSGEN]XPORT.L32;14
;					       590       132        22       270




                                Source Listing                   4-FEB-2004 11:02:15  BLISS-32I T1.1-053                Page 23
                                Source Listing                  19-MAR-2002 10:11:46  [LASTOVICA.XPORT.VMSGEN]STESTF.BLI;1

COMMAND LINE:

BLISSSTESTF/LIST/DEBUG
