                                XPORT ASCII-to-Binary Test       4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

    0	      1 MODULE STESTI (	MAIN = test_integer,		%TITLE 'XPORT ASCII-to-Binary 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 $STR_BINARY integer conversion.
    1	     33 !
    1	     34 ! ENVIRONMENT:  User Mode
    1	     35 !
    1	     36 ! AUTHOR:  Ward Clark,	CREATION DATE:  9 April 1980
    1	     37 !
    1	     38 !--

STESTI                          XPORT ASCII-to-Binary Test       4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 2
X00.03                                                          19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

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

    1	     85 GLOBAL ROUTINE test_integer =
    1	     86 
    1	     87 !++
    1	     88 !
    1	     89 ! FUNCTIONAL DESCRIPTION:
    1	     90 !
    1	     91 !	This routine tests $STR_BINARY integer conversion.
    1	     92 !
    1	     93 ! FORMAL PARAMETERS:
    1	     94 !
    1	     95 !	None
    1	     96 !
    1	     97 ! IMPLICIT INPUTS:
    1	     98 !
    1	     99 !	None
    1	    100 !
    1	    101 ! IMPLICIT OUTPUTS:
    1	    102 !
    1	    103 !	None
    1	    104 !
    1	    105 ! COMPLETION CODES:
    1	    106 !
    1	    107 !	STR$_NORMAL - successful completion
    1	    108 !
    1	    109 ! SIDE EFFECTS:
    1	    110 !
    1	    111 !	None
    1	    112 !
    1	    113 !--
    1	    114 
    1	    115     BEGIN
    2	    116 
    2	    117 %IF %VARIANT NEQ 0 %THEN
U   2	    118 !
U   2	    119 ! Initialize the IOBs.
U   2	    120 !
U   2	    121 
U   2	    122     $XPO_IOB_INIT( IOB = tty_input );
U   2	    123     $XPO_IOB_INIT( IOB = tty_output );
U   2	    124 %FI
    2	    125 
    2	    126 !
    2	    127 ! Open the user's terminal for output and send the user a greeting message.
    2	    128 !
    2	    129 
    2	    130     $XPO_OPEN( IOB = tty_output, FILE_SPEC = $XPO_OUTPUT, OPTION = OUTPUT );
    2	    131 
    2	    132     $XPO_PUT( IOB = tty_output, STRING = skip('XPORT ASCII-to-Binary Integer Conversion Test') );
    2	    133 
    2	    134 !
    2	    135 ! Open the user's terminal for input.
    2	    136 !
    2	    137 
    2	    138     $XPO_OPEN( IOB = tty_input, FILE_SPEC = $XPO_INPUT );
    2	    139 
    2	    140 !
    2	    141 ! Ask the user for an integer string.

STESTI                          XPORT ASCII-to-Binary Test       4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 4
X00.03                                                          19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

    2	    142 !
    2	    143 
    2	    144     WHILE $XPO_GET( IOB = tty_input, PROMPT = skip('Enter number: ') ) DO
    2	    145 
    2	    146 !
    2	    147 ! Convert the integer string to binary.
    2	    148 !
    2	    149 
    2	    150 	BEGIN
    3	    151 	LOCAL
    3	    152 	    base,					! conversion base
    3	    153 	    integer,					! integer result
    3	    154 	    text :  $STR_DESCRIPTOR( CLASS = BOUNDED );	! integer string scanning descriptor
    3	    155 
    3	    156 	$STR_COPY( STRING = tty_input[IOB$T_STRING],	! Create an upper-case version of the input string.
P   3	    157 		    TARGET = upper_string,
P   3	    158 		    OPTION = UP_CASE );
    3	    159 
    3	    160 	$STR_DESC_INIT( DESCRIPTOR = text,
P   3	    161 			CLASS = BOUNDED,
P   3	    162 			STRING = upper_string );
    3	    163 
    3	    164 	IF $STR_SCAN( REMAINDER = text, FIND = '%B''', SUBSTRING = text )
    4	    165 	THEN
    3	    166 	    BEGIN
    4	    167 	    $STR_SCAN( REMAINDER = text, STOP = '''', SUBSTRING = text );
    4	    168 
    4	    169 	    IF $STR_BINARY( STRING = text, OPTION = BASE2, RESULT = integer, FAILURE = STR$B_FAILURE )
    5	    170 	    THEN
    4	    171 		display_integer( tty_input[IOB$T_STRING], .integer );
    4	    172 	    END
    4	    173 
    4	    174 	ELSE IF $STR_SCAN( REMAINDER = text, FIND = '%O''', SUBSTRING = text )
    4	    175 	THEN
    3	    176 	    BEGIN
    4	    177 	    $STR_SCAN( REMAINDER = text, STOP = '''', SUBSTRING = text );
    4	    178 
    4	    179 	    IF $STR_BINARY( STRING = text, OPTION = BASE8, RESULT = integer, FAILURE = STR$B_FAILURE )
    5	    180 	    THEN
    4	    181 		display_integer( tty_input[IOB$T_STRING], .integer );
    4	    182 	    END
    4	    183 
    4	    184 	ELSE IF $STR_SCAN( REMAINDER = text, FIND = '%D''', SUBSTRING = text )
    4	    185 	THEN
    3	    186 	    BEGIN
    4	    187 	    $STR_SCAN( REMAINDER = text, STOP = '''', SUBSTRING = text );
    4	    188 
    4	    189 	    IF $STR_BINARY( STRING = text, OPTION = BASE10, RESULT = integer, FAILURE = STR$B_FAILURE )
    5	    190 	    THEN
    4	    191 		display_integer( tty_input[IOB$T_STRING], .integer );
    4	    192 	    END
    4	    193 
    4	    194 	ELSE IF $STR_SCAN( REMAINDER = text, FIND = '%X''', SUBSTRING = text )
    4	    195 	THEN
    3	    196 	    BEGIN
    4	    197 	    $STR_SCAN( REMAINDER = text, STOP = '''', SUBSTRING = text );
    4	    198 

STESTI                          XPORT ASCII-to-Binary Test       4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 5
X00.03                                                          19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

    4	    199 	    IF $STR_BINARY( STRING = text, OPTION = BASE16, RESULT = integer, FAILURE = STR$B_FAILURE )
    5	    200 	    THEN
    4	    201 		display_integer( tty_input[IOB$T_STRING], .integer );
    4	    202 	    END
    4	    203 
    4	    204 	ELSE
    3	    205 	    BEGIN
    4	    206 	    $STR_SCAN( REMAINDER = text, SPAN = ' 	', SUBSTRING = text );
    4	    207 	    $STR_SCAN( REMAINDER = text, STOP = '	', SUBSTRING = text );
    4	    208 	    IF $STR_BINARY( STRING = text, OPTION = BASE10, RESULT = integer, FAILURE = STR$B_FAILURE )
    5	    209 	    THEN
    4	    210 		display_integer( tty_input[IOB$T_STRING], .integer );
    4	    211 	    END;
    3	    212 	END;
    2	    213 
    2	    214 !
    2	    215 ! Send the user a test completion message.
    2	    216 !
    2	    217 
    2	    218     $XPO_PUT( IOB = tty_output, STRING = skip('XPORT Integer Conversion Test Complete') );
    2	    219 
    2	    220     RETURN STR$_NORMAL;
    2	    221 
    2	    222     END;

STESTI                          DISPLAY_INTEGER - Conversion Ou  4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 6
X00.03                                                          19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

    1	    224 %TITLE 'DISPLAY_INTEGER - Conversion Output Routine'
    1	    225 
    1	    226 ROUTINE display_integer( string, integer ) :  NOVALUE =
    1	    227 
    1	    228 !++
    1	    229 !
    1	    230 ! FUNCTIONAL DESCRIPTION:
    1	    231 !
    1	    232 !	This routine displays the integer value in several forms.
    1	    233 !
    1	    234 ! FORMAL PARAMETERS:
    1	    235 !
    1	    236 !	string - address of the integer string descriptor
    1	    237 !	integer - binary value to be displayed
    1	    238 !
    1	    239 ! IMPLICIT INPUTS:
    1	    240 !
    1	    241 !	None
    1	    242 !
    1	    243 ! IMPLICIT OUTPUTS:
    1	    244 !
    1	    245 !	None
    1	    246 !
    1	    247 ! ROUTINE VALUE:
    1	    248 !
    1	    249 !	None
    1	    250 !
    1	    251 ! SIDE EFFECTS:
    1	    252 !
    1	    253 !	None
    1	    254 !
    1	    255 !--
    1	    256 
    1	    257     BEGIN
    2	    258     LOCAL
    2	    259 	prefix :  $STR_DESCRIPTOR( CLASS = DYNAMIC );
    2	    260 
    2	    261     $STR_DESC_INIT( DESCRIPTOR = prefix, CLASS = DYNAMIC );
    2	    262 
    2	    263     $STR_COPY( STRING = $STR_CONCAT( '"', .string, '" = ' ),
P   2	    264 		TARGET = prefix );
    2	    265 
    2	    266     $XPO_PUT( IOB = tty_output, STRING = $STR_CONCAT( prefix, $STR_ASCII( .integer ) ) );
    2	    267     $XPO_PUT( IOB = tty_output, STRING = $STR_CONCAT( prefix, '%B''', $STR_ASCII( .integer, BASE2 ), '''' ) );
    2	    268     $XPO_PUT( IOB = tty_output, STRING = $STR_CONCAT( prefix, '%O''', $STR_ASCII( .integer, BASE8 ), '''' ) );
    2	    269     $XPO_PUT( IOB = tty_output, STRING = $STR_CONCAT( prefix, '%X''', $STR_ASCII( .integer, BASE16 ), '''' ) );
    2	    270 
    2	    271     RETURN
    2	    272 
    2	    273     END;
    1	    274 END
    1	    275 ELUDOM

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 7
X00.03                                                          19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   TEST_INTEGER
				      .align 32
				      .global  TEST_INTEGER
			TEST_INTEGER:											   // 000085
			   { .mii 
002C059C1DC0     0000		      alloc   r119 = rspfs, 0, 89, 7, 0
012000100A00     0001		      add     r40 = @ltoff(TTY_OUTPUT), r1						   // 000130
012000100480     0002		      add     r18 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
			   }
			   { .mmi 
012000800200     0010		      addl    r8 = 131072, r0
012000002A40     0011		      mov     r41 = 1
000188001D80     0012		      mov     r118 = br0 ;;								   // 000085
			   }
			   { .mii 
0119F8C80300     0020		      adds    r12 = -64, r12
010800101E00     0021		      mov     r120 = r1
012000006640     0022		      mov     r25 = 3									   // 000130
			   }
			   { .mmi 
0080C2800A00     0030		      ld8     r40 = TTY_OUTPUT			// r40 = [r40]
0080C1200480     0031		      ld8     r18 = XPO$FAILURE			// r18 = [r18]
0000B0001E80     0032		      sxt4    r122 = r0
			   }
			   { .mii 
01200000EA80     0040		      mov     r42 = 7									   // 000132
01200000D600     0041		      mov     r88 = 6									   // 000144
012000007580     0042		      mov     r86 = 3 ;;								   // 000162
			   }
			   { .mii 
01080A8F8240     0050		      adds    r9 = 252, r40								   // 000130
0000B1201EC0     0051		      sxt4    r123 = 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
0000B2801E40     0082		      sxt4    r121 = r40
			   }
			   { .mfb 
000008000000     0090		      nop.m   0
000008000000     0091		      nop.f   0
00A000001000     0092		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mii 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 8
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

010807800040     00A0		      mov     r1 = r120
010802858A00     00A1		      adds    r40 = 44, r40								   // 000132
012000006640     00A2		      mov     r25 = 3 ;;
			   }
			   { .mii 
012000100B00     00B0		      add     r44 = @ltoff($IOB$OUTPUT), r1
012000100B80     00B1		      add     r46 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0001E80     00B2		      sxt4    r122 = r0 ;;
			   }
			   { .mmi 
0080C2C00B00     00C0		      ld8     r44 = $IOB$OUTPUT			// r44 = [r44]
00AC02854600     00C1		      st1     [r40] = r42, 24
000008000000     00C2		      nop.i   0 ;;
			   }
			   { .mmi 
0080C2E00B80     00D0		      ld8     r46 = XPO$FAILURE			// r46 = [r46]
00BC8A858F00     00D1		      st4     [r40] = r44, -68
010802C10BC0     00D2		      adds    r47 = 8, r44 ;;								   // 000138
			   }
			   { .mii 
000008000000     00E0		      nop.m   0
0000B2E01EC0     00E1		      sxt4    r123 = r46								   // 000132
0000B2801E40     00E2		      sxt4    r121 = r40
			   }
			   { .mfb 
0119F2870C40     00F0		      adds    r49 = -200, r40								   // 000138
000008000000     00F1		      nop.f   0
00A000001000     00F2		      br.call.sptk.many br0 = XPO$PUT ;;						   // 000132
			   }
			   { .mii 
010807800040     0100		      mov     r1 = r120
0119F2820C80     0101		      adds    r50 = -240, r40								   // 000138
0119F2818C00     0102		      adds    r48 = -244, r40
			   }
			   { .mmi 
008C03152000     0110		      st1     [r49] = r41
012000006640     0111		      mov     r25 = 3
0119F28815C0     0112		      adds    r87 = -192, r40 ;;							   // 000158
			   }
			   { .mii 
012000100CC0     0120		      add     r51 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000138
					      r1
0000B0001E80     0121		      sxt4    r122 = r0
0000B3001E40     0122		      sxt4    r121 = r48 ;;
			   }
			   { .mmi 
0080C3300CC0     0130		      ld8     r51 = XPO$FAILURE			// r51 = [r51]
008C8325E000     0131		      st4     [r50] = r47
000008000000     0132		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0140		      nop.m   0
0000B3301EC0     0141		      sxt4    r123 = r51
00A000001000     0142		      br.call.sptk.many br0 = XPO$OPEN
			   }
			   { .mmi 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 9
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

010807800040     0150		      mov     r1 = r120 ;;
012000101500     0151		      add     r84 = @ltoff(@fptr(XPO$FAILURE)), 					   // 000144
					      r1
012000101480     0152		      add     r82 = @ltoff(@fptr(STR$FAILURE)), 					   // 000158
					      r1
			   }
			   { .mii 
012000101400     0160		      add     r80 = @ltoff(@fptr(STR$FAILURE)), 					   // 000164
					      r1
012000101380     0161		      add     r78 = @ltoff(@fptr(STR$FAILURE)), 					   // 000167
					      r1
012000101300     0162		      add     r76 = @ltoff(@fptr(STR$B_FAILURE)), 					   // 000169
					      r1
			   }
			   { .mmi 
012000101280     0170		      add     r74 = @ltoff(@fptr(STR$FAILURE)), 					   // 000174
					      r1
012000101200     0171		      add     r72 = @ltoff(@fptr(STR$FAILURE)), 					   // 000177
					      r1
012000101180     0172		      add     r70 = @ltoff(@fptr(STR$B_FAILURE)), 					   // 000179
					      r1
			   }
			   { .mii 
012000101100     0180		      add     r68 = @ltoff(@fptr(STR$FAILURE)), 					   // 000184
					      r1
012000101080     0181		      add     r66 = @ltoff(@fptr(STR$FAILURE)), 					   // 000187
					      r1
012000101000     0182		      add     r64 = @ltoff(@fptr(STR$B_FAILURE)), 					   // 000189
					      r1
			   }
			   { .mmi 
012000100F80     0190		      add     r62 = @ltoff(@fptr(STR$FAILURE)), 					   // 000194
					      r1
012000100F00     0191		      add     r60 = @ltoff(@fptr(STR$FAILURE)), 					   // 000197
					      r1
012000100E80     0192		      add     r58 = @ltoff(@fptr(STR$B_FAILURE)), 					   // 000199
					      r1
			   }
			   { .mii 
012000100E00     01A0		      add     r56 = @ltoff(@fptr(STR$FAILURE)), 					   // 000206
					      r1
012000100D80     01A1		      add     r54 = @ltoff(@fptr(STR$FAILURE)), 					   // 000207
					      r1
012000100D00     01A2		      add     r52 = @ltoff(@fptr(STR$B_FAILURE)), 					   // 000208
					      r1 ;;
			   }
			   { .mmi 
0080C5401540     01B0		      ld8     r85 = XPO$FAILURE			// r85 = [r84]				   // 000144
0080C52014C0     01B1		      ld8     r83 = STR$FAILURE			// r83 = [r82]				   // 000158
000008000000     01B2		      nop.i   0
			   }
			   { .mmi 
0080C5001440     01C0		      ld8     r81 = STR$FAILURE			// r81 = [r80]				   // 000164
0080C4E013C0     01C1		      ld8     r79 = STR$FAILURE			// r79 = [r78]				   // 000167
000008000000     01C2		      nop.i   0
			   }
			   { .mmi 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 10
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

0080C4C01340     01D0		      ld8     r77 = STR$B_FAILURE		// r77 = [r76]				   // 000169
0080C4A012C0     01D1		      ld8     r75 = STR$FAILURE			// r75 = [r74]				   // 000174
000008000000     01D2		      nop.i   0
			   }
			   { .mmi 
0080C4801240     01E0		      ld8     r73 = STR$FAILURE			// r73 = [r72]				   // 000177
0080C46011C0     01E1		      ld8     r71 = STR$B_FAILURE		// r71 = [r70]				   // 000179
000008000000     01E2		      nop.i   0
			   }
			   { .mmi 
0080C4401140     01F0		      ld8     r69 = STR$FAILURE			// r69 = [r68]				   // 000184
0080C42010C0     01F1		      ld8     r67 = STR$FAILURE			// r67 = [r66]				   // 000187
000008000000     01F2		      nop.i   0
			   }
			   { .mmi 
0080C4001040     0200		      ld8     r65 = STR$B_FAILURE		// r65 = [r64]				   // 000189
0080C3E00FC0     0201		      ld8     r63 = STR$FAILURE			// r63 = [r62]				   // 000194
000008000000     0202		      nop.i   0
			   }
			   { .mmi 
0080C3C00F40     0210		      ld8     r61 = STR$FAILURE			// r61 = [r60]				   // 000197
0080C3A00EC0     0211		      ld8     r59 = STR$B_FAILURE		// r59 = [r58]				   // 000199
000008000000     0212		      nop.i   0
			   }
			   { .mmi 
0080C3800E40     0220		      ld8     r57 = STR$FAILURE			// r57 = [r56]				   // 000206
0080C3600DC0     0221		      ld8     r55 = STR$FAILURE			// r55 = [r54]				   // 000207
000008000000     0222		      nop.i   0
			   }
			   { .mfi 
0080C3400D40     0230		      ld8     r53 = STR$B_FAILURE		// r53 = [r52]				   // 000208
000008000000     0231		      nop.f   0
000008000000     0232		      nop.i   0 ;;
			   }
	         0240	L$3:												   // 000144
			   { .mmi 
0119F2861680     0240		      adds    r90 = -208, r40 ;;
008085A016C0     0241		      ld4     r91 = [r90]
000008000000     0242		      nop.i   0 ;;
			   }
			   { .mfb 
01C405B001C0     0250		      cmp4.eq pr7, pr0 = r0, r91
000008000000     0251		      nop.f   0
008600006007     0252	       (pr7)  br.cond.dpnt.few L$5
			   }
			   { .mib 
012000002640     0260		      mov     r25 = 1
0000B5B01E40     0261		      sxt4    r121 = r91
00A000001000     0262		      br.call.sptk.many br0 = XST$FREE_TEMP
			   }
			   { .mfi 
010807800040     0270		      mov     r1 = r120
000008000000     0271		      nop.f   0
000008000000     0272		      nop.i   0
			   }
	         0280	L$5:
			   { .mii 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 11
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

0119F2871740     0280		      adds    r93 = -200, r40
0119F2861780     0281		      adds    r94 = -208, r40
0119F2818C00     0282		      adds    r48 = -244, r40 ;;
			   }
			   { .mii 
008C05DB0000     0290		      st1     [r93] = r88
010802C21700     0291		      adds    r92 = 16, r44
012000006640     0292		      mov     r25 = 3 ;;
			   }
			   { .mii 
008C85EB8000     02A0		      st4     [r94] = r92
0000B5501EC0     02A1		      sxt4    r123 = r85
0000B0001E80     02A2		      sxt4    r122 = r0
			   }
			   { .mib 
000008000000     02B0		      nop.m   0
0000B3001E40     02B1		      sxt4    r121 = r48
00A000001000     02B2		      br.call.sptk.many br0 = XPO$GET
			   }
			   { .mib 
010807800040     02C0		      mov     r1 = r120
00A0308001C0     02C1		      tbit.z  pr7, pr6 = r8, 0
0086000DA007     02C2	       (pr7)  br.cond.dpnt.few L$7
			   }
			   { .mii 
01080A8ED800     02D0		      adds    r96 = 246, r40								   // 000162
01080A8E9840     02D1		      adds    r97 = 244, r40
01080A8F18C0     02D2		      adds    r99 = 248, r40
			   }
			   { .mmi 
01080A8E97C0     02E0		      adds    r95 = 244, r40								   // 000158
01200000A640     02E1		      mov     r25 = 5
0000B5301F40     02E2		      sxt4    r125 = r83 ;;
			   }
			   { .mii 
012100001E40     02F0		      mov     r121 = 4096
0000B0001F00     02F1		      sxt4    r124 = r0
0000B5F01EC0     02F2		      sxt4    r123 = r95
			   }
			   { .mib 
010802C31880     0300		      adds    r98 = 24, r44								   // 000164
0000B5701E80     0301		      sxt4    r122 = r87								   // 000158
00A000001000     0302		      br.call.sptk.many br0 = XST$COPY
			   }
			   { .mmi 
008006001800     0310		      ld1     r96 = [r96]								   // 000162
008046101840     0311		      ld2     r97 = [r97]
010800C71900     0312		      adds    r100 = 56, r12
			   }
			   { .mii 
0080863018C0     0320		      ld4     r99 = [r99]
010800C77940     0321		      adds    r101 = 59, r12
010800C85980     0322		      adds    r102 = 66, r12
			   }
			   { .mmi 
010800C759C0     0330		      adds    r103 = 58, r12
010800C81A00     0331		      adds    r104 = 64, r12

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 12
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

010800C79A40     0332		      adds    r105 = 60, r12 ;;
			   }
			   { .mmi 
010800C71A80     0340		      adds    r106 = 56, r12								   // 000164
008C46400000     0341		      st2     [r100] = r0								   // 000162
01200000E640     0342		      mov     r25 = 7									   // 000164
			   }
			   { .mmi 
008C065AC000     0350		      st1     [r101] = r86								   // 000162
008C46600000     0351		      st2     [r102] = r0
0000B5101FC0     0352		      sxt4    r127 = r81								   // 000164
			   }
			   { .mmi 
008C067C0000     0360		      st1     [r103] = r96								   // 000162
008C468C2000     0361		      st2     [r104] = r97
0000B0001F80     0362		      sxt4    r126 = r0 ;;								   // 000164
			   }
			   { .mii 
012010003E40     0370		      mov     r121 = 257
0000B0001F40     0371		      sxt4    r125 = r0
0000B6A01F00     0372		      sxt4    r124 = r106
			   }
			   { .mii 
008C869C6000     0380		      st4     [r105] = r99								   // 000162
0000B6201EC0     0381		      sxt4    r123 = r98								   // 000164
0000B6A01E80     0382		      sxt4    r122 = r106
			   }
			   { .mfb 
010807800040     0390		      mov     r1 = r120									   // 000158
000008000000     0391		      nop.f   0
004000000000     0392		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     03A0		      nop.m   0
000008000000     03A1		      nop.f   0
00A000001000     03A2		      br.call.sptk.many br0 = XST$SCAN							   // 000164
			   }
			   { .mib 
010807800040     03B0		      mov     r1 = r120
00A0308001C0     03B1		      tbit.z  pr7, pr6 = r8, 0
00860001E007     03B2	       (pr7)  br.cond.dpnt.few L$9
			   }
			   { .mii 
010802C41AC0     03C0		      adds    r107 = 32, r44								   // 000167
01200000E640     03C1		      mov     r25 = 7
0000B4F01FC0     03C2		      sxt4    r127 = r79
			   }
			   { .mii 
012010007E40     03D0		      mov     r121 = 259
0000B0001F80     03D1		      sxt4    r126 = r0
0000B0001F40     03D2		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
000008000000     03E0		      nop.m   0
0000B6A01F00     03E1		      sxt4    r124 = r106
0000B6B01EC0     03E2		      sxt4    r123 = r107
			   }

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 13
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   { .mib 
000008000000     03F0		      nop.m   0
0000B6A01E80     03F1		      sxt4    r122 = r106
00A000001000     03F2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mii 
010800C61B80     0400		      adds    r110 = 48, r12								   // 000169
01200000E640     0401		      mov     r25 = 7
0000B4D01FC0     0402		      sxt4    r127 = r77
			   }
			   { .mii 
012000003E40     0410		      mov     r121 = 1
0000B0001F80     0411		      sxt4    r126 = r0
0000B0001F40     0412		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
010807800040     0420		      mov     r1 = r120									   // 000167
0000B0001F00     0421		      sxt4    r124 = r0									   // 000169
0000B6E01EC0     0422		      sxt4    r123 = r110 ;;
			   }
			   { .mib 
000008000000     0430		      nop.m   0
0000B6A01E80     0431		      sxt4    r122 = r106
00A000001000     0432		      br.call.sptk.many br0 = XST$BINARY
			   }
			   { .mii 
010800C61BC0     0440		      adds    r111 = 48, r12
00A0308001C0     0441		      tbit.z  pr7, pr6 = r8, 0
010807800040     0442		      mov     r1 = r120 ;;
			   }
			   { .mii 
008086F01BC0     0450		      ld4     r111 = [r111]
01C000001206     0451	       (pr6)  cmp.eq.unc pr8, pr0 = r0, r0
01C000001247     0452	       (pr7)  cmp.eq.unc pr9, pr0 = r0, r0 ;;
			   }
			   { .mbb 
010806F01648     0460	       (pr8)  mov     INTEGER = r111			// r89 = r111
008600002008     0461	       (pr8)  br.cond.dpnt.few L$10
0095FFFBC009     0462	       (pr9)  br.cond.dptk.few L$3 ;;
			   }
	         0470	L$10:
			   { .mii 
000008000000     0470		      nop.m   0
0000B5901E80     0471		      sxt4    r122 = INTEGER			// r122 = r89				   // 000171
0000B5701E40     0472		      sxt4    r121 = r87
			   }
			   { .mfb 
000008000000     0480		      nop.m   0
000008000000     0481		      nop.f   0
00A000001000     0482		      br.call.sptk.many br0 = DISPLAY_INTEGER
			   }
			   { .mfb 
000008000000     0490		      nop.m   0
000008000000     0491		      nop.f   0
0091FFFB6000     0492		      br.sptk.few L$3 ;;								   // 000169
			   }
	         04A0	L$9:												   // 000174

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 14
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   { .mii 
010800C71C40     04A0		      adds    r113 = 56, r12
010802C51C00     04A1		      adds    r112 = 40, r44
01200000E640     04A2		      mov     r25 = 7
			   }
			   { .mii 
012010003E40     04B0		      mov     r121 = 257
0000B4B01FC0     04B1		      sxt4    r127 = r75
0000B0001F80     04B2		      sxt4    r126 = r0 ;;
			   }
			   { .mii 
000008000000     04C0		      nop.m   0
0000B0001F40     04C1		      sxt4    r125 = r0
0000B7101F00     04C2		      sxt4    r124 = r113
			   }
			   { .mii 
000008000000     04D0		      nop.m   0
0000B7001EC0     04D1		      sxt4    r123 = r112
0000B7101E80     04D2		      sxt4    r122 = r113
			   }
			   { .mfb 
000008000000     04E0		      nop.m   0
000008000000     04E1		      nop.f   0
00A000001000     04E2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
010807800040     04F0		      mov     r1 = r120
00A0308001C0     04F1		      tbit.z  pr7, pr6 = r8, 0
00860001E007     04F2	       (pr7)  br.cond.dpnt.few L$13 ;;
			   }
			   { .mii 
010802C61C80     0500		      adds    r114 = 48, r44								   // 000177
01200000E640     0501		      mov     r25 = 7
0000B4901FC0     0502		      sxt4    r127 = r73
			   }
			   { .mii 
012010007E40     0510		      mov     r121 = 259
0000B0001F80     0511		      sxt4    r126 = r0
0000B0001F40     0512		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
000008000000     0520		      nop.m   0
0000B7101F00     0521		      sxt4    r124 = r113
0000B7201EC0     0522		      sxt4    r123 = r114
			   }
			   { .mib 
000008000000     0530		      nop.m   0
0000B7101E80     0531		      sxt4    r122 = r113
00A000001000     0532		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mii 
010800C51D40     0540		      adds    r117 = 40, r12								   // 000179
01200000E640     0541		      mov     r25 = 7
0000B4701FC0     0542		      sxt4    r127 = r71
			   }
			   { .mii 
012000005E40     0550		      mov     r121 = 2

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 15
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

0000B0001F80     0551		      sxt4    r126 = r0
0000B0001F40     0552		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
010807800040     0560		      mov     r1 = r120									   // 000177
0000B0001F00     0561		      sxt4    r124 = r0									   // 000179
0000B7501EC0     0562		      sxt4    r123 = r117 ;;
			   }
			   { .mib 
000008000000     0570		      nop.m   0
0000B7101E80     0571		      sxt4    r122 = r113
00A000001000     0572		      br.call.sptk.many br0 = XST$BINARY
			   }
			   { .mii 
010800C50AC0     0580		      adds    r43 = 40, r12
00A0308001C0     0581		      tbit.z  pr7, pr6 = r8, 0
010807800040     0582		      mov     r1 = r120 ;;
			   }
			   { .mii 
008082B00AC0     0590		      ld4     r43 = [r43]
01C000001206     0591	       (pr6)  cmp.eq.unc pr8, pr0 = r0, r0
01C000001247     0592	       (pr7)  cmp.eq.unc pr9, pr0 = r0, r0 ;;
			   }
			   { .mbb 
010802B01648     05A0	       (pr8)  mov     INTEGER = r43			// r89 = r43
008600002008     05A1	       (pr8)  br.cond.dpnt.few L$14
0095FFF94009     05A2	       (pr9)  br.cond.dptk.few L$3 ;;
			   }
	         05B0	L$14:
			   { .mii 
000008000000     05B0		      nop.m   0
0000B5901E80     05B1		      sxt4    r122 = INTEGER			// r122 = r89				   // 000181
0000B5701E40     05B2		      sxt4    r121 = r87
			   }
			   { .mfb 
000008000000     05C0		      nop.m   0
000008000000     05C1		      nop.f   0
00A000001000     05C2		      br.call.sptk.many br0 = DISPLAY_INTEGER
			   }
			   { .mfb 
000008000000     05D0		      nop.m   0
000008000000     05D1		      nop.f   0
0091FFF8E000     05D2		      br.sptk.few L$3 ;;								   // 000179
			   }
	         05E0	L$13:												   // 000184
			   { .mii 
010800C70B80     05E0		      adds    r46 = 56, r12
010802C70B40     05E1		      adds    r45 = 56, r44
01200000E640     05E2		      mov     r25 = 7
			   }
			   { .mii 
012010003E40     05F0		      mov     r121 = 257
0000B4501FC0     05F1		      sxt4    r127 = r69
0000B0001F80     05F2		      sxt4    r126 = r0 ;;
			   }
			   { .mii 
000008000000     0600		      nop.m   0

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 16
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

0000B0001F40     0601		      sxt4    r125 = r0
0000B2E01F00     0602		      sxt4    r124 = r46
			   }
			   { .mii 
000008000000     0610		      nop.m   0
0000B2D01EC0     0611		      sxt4    r123 = r45
0000B2E01E80     0612		      sxt4    r122 = r46
			   }
			   { .mfb 
000008000000     0620		      nop.m   0
000008000000     0621		      nop.f   0
00A000001000     0622		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mib 
010807800040     0630		      mov     r1 = r120
00A0308001C0     0631		      tbit.z  pr7, pr6 = r8, 0
00860001E007     0632	       (pr7)  br.cond.dpnt.few L$16 ;;
			   }
			   { .mii 
010802C80A40     0640		      adds    r41 = 64, r44								   // 000187
01200000E640     0641		      mov     r25 = 7
0000B4301FC0     0642		      sxt4    r127 = r67
			   }
			   { .mii 
012010007E40     0650		      mov     r121 = 259
0000B0001F80     0651		      sxt4    r126 = r0
0000B0001F40     0652		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
000008000000     0660		      nop.m   0
0000B2E01F00     0661		      sxt4    r124 = r46
0000B2901EC0     0662		      sxt4    r123 = r41
			   }
			   { .mib 
000008000000     0670		      nop.m   0
0000B2E01E80     0671		      sxt4    r122 = r46
00A000001000     0672		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mii 
010800C40C80     0680		      adds    r50 = 32, r12								   // 000189
01200000E640     0681		      mov     r25 = 7
0000B4101FC0     0682		      sxt4    r127 = r65
			   }
			   { .mii 
012000007E40     0690		      mov     r121 = 3
0000B0001F80     0691		      sxt4    r126 = r0
0000B0001F40     0692		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
010807800040     06A0		      mov     r1 = r120									   // 000187
0000B0001F00     06A1		      sxt4    r124 = r0									   // 000189
0000B3201EC0     06A2		      sxt4    r123 = r50 ;;
			   }
			   { .mib 
000008000000     06B0		      nop.m   0
0000B2E01E80     06B1		      sxt4    r122 = r46
00A000001000     06B2		      br.call.sptk.many br0 = XST$BINARY

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 17
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   }
			   { .mii 
010800C40CC0     06C0		      adds    r51 = 32, r12
00A0308001C0     06C1		      tbit.z  pr7, pr6 = r8, 0
010807800040     06C2		      mov     r1 = r120 ;;
			   }
			   { .mii 
008083300CC0     06D0		      ld4     r51 = [r51]
01C000001206     06D1	       (pr6)  cmp.eq.unc pr8, pr0 = r0, r0
01C000001247     06D2	       (pr7)  cmp.eq.unc pr9, pr0 = r0, r0 ;;
			   }
			   { .mbb 
010803301648     06E0	       (pr8)  mov     INTEGER = r51			// r89 = r51
008600002008     06E1	       (pr8)  br.cond.dpnt.few L$17
0095FFF6C009     06E2	       (pr9)  br.cond.dptk.few L$3 ;;
			   }
	         06F0	L$17:
			   { .mii 
000008000000     06F0		      nop.m   0
0000B5901E80     06F1		      sxt4    r122 = INTEGER			// r122 = r89				   // 000191
0000B5701E40     06F2		      sxt4    r121 = r87
			   }
			   { .mfb 
000008000000     0700		      nop.m   0
000008000000     0701		      nop.f   0
00A000001000     0702		      br.call.sptk.many br0 = DISPLAY_INTEGER
			   }
			   { .mfb 
000008000000     0710		      nop.m   0
000008000000     0711		      nop.f   0
0091FFF66000     0712		      br.sptk.few L$3 ;;								   // 000189
			   }
	         0720	L$16:												   // 000194
			   { .mii 
010800C70D80     0720		      adds    r54 = 56, r12
010802C90D00     0721		      adds    r52 = 72, r44
01200000E640     0722		      mov     r25 = 7
			   }
			   { .mii 
012010003E40     0730		      mov     r121 = 257
0000B3F01FC0     0731		      sxt4    r127 = r63
0000B0001F80     0732		      sxt4    r126 = r0 ;;
			   }
			   { .mii 
000008000000     0740		      nop.m   0
0000B0001F40     0741		      sxt4    r125 = r0
0000B3601F00     0742		      sxt4    r124 = r54
			   }
			   { .mii 
000008000000     0750		      nop.m   0
0000B3401EC0     0751		      sxt4    r123 = r52
0000B3601E80     0752		      sxt4    r122 = r54
			   }
			   { .mfb 
000008000000     0760		      nop.m   0
000008000000     0761		      nop.f   0
00A000001000     0762		      br.call.sptk.many br0 = XST$SCAN

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 18
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   }
			   { .mib 
010807800040     0770		      mov     r1 = r120
00A0308001C0     0771		      tbit.z  pr7, pr6 = r8, 0
00860001E007     0772	       (pr7)  br.cond.dpnt.few L$19 ;;
			   }
			   { .mii 
010802CA0E00     0780		      adds    r56 = 80, r44								   // 000197
01200000E640     0781		      mov     r25 = 7
0000B3D01FC0     0782		      sxt4    r127 = r61
			   }
			   { .mii 
012010007E40     0790		      mov     r121 = 259
0000B0001F80     0791		      sxt4    r126 = r0
0000B0001F40     0792		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
000008000000     07A0		      nop.m   0
0000B3601F00     07A1		      sxt4    r124 = r54
0000B3801EC0     07A2		      sxt4    r123 = r56
			   }
			   { .mib 
000008000000     07B0		      nop.m   0
0000B3601E80     07B1		      sxt4    r122 = r54
00A000001000     07B2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mii 
010800C30F80     07C0		      adds    r62 = 24, r12								   // 000199
01200000E640     07C1		      mov     r25 = 7
0000B3B01FC0     07C2		      sxt4    r127 = r59
			   }
			   { .mii 
012000009E40     07D0		      mov     r121 = 4
0000B0001F80     07D1		      sxt4    r126 = r0
0000B0001F40     07D2		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
010807800040     07E0		      mov     r1 = r120									   // 000197
0000B0001F00     07E1		      sxt4    r124 = r0									   // 000199
0000B3E01EC0     07E2		      sxt4    r123 = r62 ;;
			   }
			   { .mib 
000008000000     07F0		      nop.m   0
0000B3601E80     07F1		      sxt4    r122 = r54
00A000001000     07F2		      br.call.sptk.many br0 = XST$BINARY
			   }
			   { .mii 
010800C31000     0800		      adds    r64 = 24, r12
00A0308001C0     0801		      tbit.z  pr7, pr6 = r8, 0
010807800040     0802		      mov     r1 = r120 ;;
			   }
			   { .mii 
008084001000     0810		      ld4     r64 = [r64]
01C000001206     0811	       (pr6)  cmp.eq.unc pr8, pr0 = r0, r0
01C000001247     0812	       (pr7)  cmp.eq.unc pr9, pr0 = r0, r0 ;;
			   }
			   { .mbb 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 19
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

010804001648     0820	       (pr8)  mov     INTEGER = r64			// r89 = r64
008600002008     0821	       (pr8)  br.cond.dpnt.few L$20
0095FFF44009     0822	       (pr9)  br.cond.dptk.few L$3 ;;
			   }
	         0830	L$20:
			   { .mii 
000008000000     0830		      nop.m   0
0000B5901E80     0831		      sxt4    r122 = INTEGER			// r122 = r89				   // 000201
0000B5701E40     0832		      sxt4    r121 = r87
			   }
			   { .mfb 
000008000000     0840		      nop.m   0
000008000000     0841		      nop.f   0
00A000001000     0842		      br.call.sptk.many br0 = DISPLAY_INTEGER
			   }
			   { .mfb 
000008000000     0850		      nop.m   0
000008000000     0851		      nop.f   0
0091FFF3E000     0852		      br.sptk.few L$3 ;;								   // 000199
			   }
	         0860	L$19:												   // 000206
			   { .mii 
010800C71100     0860		      adds    r68 = 56, r12
010802CB1080     0861		      adds    r66 = 88, r44
010802CC1180     0862		      adds    r70 = 96, r44								   // 000207
			   }
			   { .mii 
01200000E640     0870		      mov     r25 = 7									   // 000206
0000B3901FC0     0871		      sxt4    r127 = r57
0000B0001F80     0872		      sxt4    r126 = r0 ;;
			   }
			   { .mii 
012010005E40     0880		      mov     r121 = 258
0000B0001F40     0881		      sxt4    r125 = r0
0000B4401F00     0882		      sxt4    r124 = r68
			   }
			   { .mii 
000008000000     0890		      nop.m   0
0000B4201EC0     0891		      sxt4    r123 = r66
0000B4401E80     0892		      sxt4    r122 = r68
			   }
			   { .mfb 
000008000000     08A0		      nop.m   0
000008000000     08A1		      nop.f   0
00A000001000     08A2		      br.call.sptk.many br0 = XST$SCAN ;;
			   }
			   { .mii 
01200000E640     08B0		      mov     r25 = 7									   // 000207
0000B3701FC0     08B1		      sxt4    r127 = r55
0000B0001F80     08B2		      sxt4    r126 = r0
			   }
			   { .mii 
012010007E40     08C0		      mov     r121 = 259
0000B0001F40     08C1		      sxt4    r125 = r0
0000B4401F00     08C2		      sxt4    r124 = r68
			   }
			   { .mii 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 20
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

010807800040     08D0		      mov     r1 = r120									   // 000206
0000B4601EC0     08D1		      sxt4    r123 = r70								   // 000207
0000B4401E80     08D2		      sxt4    r122 = r68 ;;
			   }
			   { .mfb 
000008000000     08E0		      nop.m   0
000008000000     08E1		      nop.f   0
00A000001000     08E2		      br.call.sptk.many br0 = XST$SCAN
			   }
			   { .mii 
010800C21A80     08F0		      adds    r106 = 16, r12								   // 000208
01200000E640     08F1		      mov     r25 = 7
0000B3501FC0     08F2		      sxt4    r127 = r53
			   }
			   { .mii 
012000007E40     0900		      mov     r121 = 3
0000B0001F80     0901		      sxt4    r126 = r0
0000B0001F40     0902		      sxt4    r125 = r0 ;;
			   }
			   { .mii 
010807800040     0910		      mov     r1 = r120									   // 000207
0000B0001F00     0911		      sxt4    r124 = r0									   // 000208
0000B6A01EC0     0912		      sxt4    r123 = r106 ;;
			   }
			   { .mib 
000008000000     0920		      nop.m   0
0000B4401E80     0921		      sxt4    r122 = r68
00A000001000     0922		      br.call.sptk.many br0 = XST$BINARY
			   }
			   { .mii 
010800C21300     0930		      adds    r76 = 16, r12
00A0308001C0     0931		      tbit.z  pr7, pr6 = r8, 0
010807800040     0932		      mov     r1 = r120 ;;
			   }
			   { .mii 
008084C01300     0940		      ld4     r76 = [r76]
01C000001206     0941	       (pr6)  cmp.eq.unc pr8, pr0 = r0, r0
01C000001247     0942	       (pr7)  cmp.eq.unc pr9, pr0 = r0, r0 ;;
			   }
			   { .mbb 
010804C01648     0950	       (pr8)  mov     INTEGER = r76			// r89 = r76
008600002008     0951	       (pr8)  br.cond.dpnt.few L$21
0095FFF1E009     0952	       (pr9)  br.cond.dptk.few L$3 ;;
			   }
	         0960	L$21:
			   { .mii 
000008000000     0960		      nop.m   0
0000B5901E80     0961		      sxt4    r122 = INTEGER			// r122 = r89				   // 000210
0000B5701E40     0962		      sxt4    r121 = r87
			   }
			   { .mfb 
000008000000     0970		      nop.m   0
000008000000     0971		      nop.f   0
00A000001000     0972		      br.call.sptk.many br0 = DISPLAY_INTEGER
			   }
			   { .mfb 
000008000000     0980		      nop.m   0

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 21
X00.03                          TEST_INTEGER                    19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

000008000000     0981		      nop.f   0
0091FFF18000     0982		      br.sptk.few L$3 ;;								   // 000144
			   }
	         0990	L$7:												   // 000218
			   { .mii 
012000101480     0990		      add     r82 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
010802CD0B00     0991		      adds    r44 = 104, r44
010802858A00     0992		      adds    r40 = 44, r40
			   }
			   { .mib 
012000006640     09A0		      mov     r25 = 3
0000B0001E80     09A1		      sxt4    r122 = r0
004000000000     09A2		      nop.b   0 ;;
			   }
			   { .mmi 
0080C5201480     09B0		      ld8     r82 = XPO$FAILURE			// r82 = [r82]
00AC02854600     09B1		      st1     [r40] = r42, 24
000008000000     09B2		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A858F00     09C0		      st4     [r40] = r44, -68
0000B5201EC0     09C1		      sxt4    r123 = r82 ;;
0000B2801E40     09C2		      sxt4    r121 = r40
			   }
			   { .mfb 
000008000000     09D0		      nop.m   0
000008000000     09D1		      nop.f   0
00A000001000     09D2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000002200     09E0		      mov     r8 = 1									   // 000220
010807800040     09E1		      mov     r1 = r120									   // 000218
0001540EE000     09E2		      mov.i   rspfs = r119 ;;								   // 000220
			   }
			   { .mib 
010800C80300     09F0		      adds    r12 = 64, r12
000E001EC000     09F1		      mov     br0 = r118
000108001100     09F2		      br.ret.sptk.many br0 ;;
			   }
				      .endp   TEST_INTEGER

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

				      .proc   DISPLAY_INTEGER
				      .align 32
			DISPLAY_INTEGER:										   // 000226
			   { .mii 
002C00E26B00     0A00		      alloc   r44 = rspfs, 2, 12, 5, 0
012000100A00     0A01		      add     r40 = @ltoff($STR$STRING0), r1						   // 000264
0119F8CE0300     0A02		      adds    r12 = -16, r12								   // 000226
			   }
			   { .mmi 
012000006640     0A10		      mov     r25 = 3									   // 000264
01200000EA80     0A11		      mov     r42 = 7									   // 000266
000188000AC0     0A12		      mov     r43 = br0 ;;								   // 000226
			   }

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 22
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   { .mlx 
010800C20240     0A20		      adds    r9 = 16, r12								   // 000261
000000000008     0A21		      movl    r8 = 34471936 ;;
0180070004
			   }
			   { .mii 
0080C2800A00     0A30		      ld8     r40 = $STR$STRING0		// r40 = [r40]				   // 000264
010800C28280     0A31		      adds    r10 = 20, r12								   // 000261
010800100B40     0A32		      mov     r45 = r1									   // 000226
			   }
			   { .mib 
008C80910000     0A40		      st4     [r9] = r8									   // 000261
0000B2000BC0     0A41		      sxt4    r47 = STRING			// r47 = r32				   // 000264
004000000000     0A42		      nop.b   0 ;;
			   }
			   { .mib 
0108028100C0     0A50		      adds    r3 = 8, r40
0000B2800B80     0A51		      sxt4    r46 = r40
004000000000     0A52		      nop.b   0
			   }
			   { .mmi 
008C80A00000     0A60		      st4     [r10] = r0 ;;								   // 000261
000008000000     0A61		      nop.m   0
0000B0300C00     0A62		      sxt4    r48 = r3									   // 000264
			   }
			   { .mfb 
000008000000     0A70		      nop.m   0
000008000000     0A71		      nop.f   0
00A000001000     0A72		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802D00040     0A80		      mov     r1 = r45
010800C20800     0A81		      adds    r32 = 16, r12
01200000A640     0A82		      mov     r25 = 5 ;;
			   }
			   { .mii 
0120001000C0     0A90		      add     r3 = @ltoff(@fptr(STR$FAILURE)), 
					      r1
0000B0000C40     0A91		      sxt4    r49 = r0
0000B2000C00     0A92		      sxt4    r48 = r32 ;;
			   }
			   { .mii 
0080C03000C0     0AA0		      ld8     r3 = STR$FAILURE			// r3 = [r3]
0000B0800BC0     0AA1		      sxt4    r47 = r8
0000B0000B80     0AA2		      sxt4    r46 = r0 ;;
			   }
			   { .mib 
000008000000     0AB0		      nop.m   0
0000B0300C80     0AB1		      sxt4    r50 = r3
00A000001000     0AB2		      br.call.sptk.many br0 = XST$COPY
			   }
			   { .mii 
012000006640     0AC0		      mov     r25 = 3									   // 000266
0000B0000C00     0AC1		      sxt4    r48 = r0
0000B2100BC0     0AC2		      sxt4    r47 = INTEGER			// r47 = r33
			   }
			   { .mib 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 23
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

012090006B80     0AD0		      mov     r46 = 2307
010802D00040     0AD1		      mov     r1 = r45									   // 000264
004000000000     0AD2		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0AE0		      nop.m   0
000008000000     0AE1		      nop.f   0
00A000001000     0AE2		      br.call.sptk.many br0 = XST$ASCII							   // 000266
			   }
			   { .mii 
012000004640     0AF0		      mov     r25 = 2
0000B0800BC0     0AF1		      sxt4    r47 = r8
0000B2000B80     0AF2		      sxt4    r46 = r32
			   }
			   { .mfb 
010802D00040     0B00		      mov     r1 = r45
000008000000     0B01		      nop.f   0
004000000000     0B02		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0B10		      nop.m   0
000008000000     0B11		      nop.f   0
00A000001000     0B12		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802D00040     0B20		      mov     r1 = r45
012000006640     0B21		      mov     r25 = 3
0000B0000BC0     0B22		      sxt4    r47 = r0 ;;
			   }
			   { .mii 
012000100280     0B30		      add     r10 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
012000100A40     0B31		      add     r41 = @ltoff(TTY_OUTPUT), r1
000008000000     0B32		      nop.i   0 ;;
			   }
			   { .mmi 
0080C0A00280     0B40		      ld8     r10 = XPO$FAILURE			// r10 = [r10]
0080C2900A40     0B41		      ld8     r41 = TTY_OUTPUT			// r41 = [r41]
000008000000     0B42		      nop.i   0 ;;
			   }
			   { .mii 
000008000000     0B50		      nop.m   0
0000B0A00C00     0B51		      sxt4    r48 = r10
010802958A40     0B52		      adds    r41 = 44, r41 ;;
			   }
			   { .mmi 
00AC02954600     0B60		      st1     [r41] = r42, 24 ;;
00BC8A910F00     0B61		      st4     [r41] = r8, -68
000008000000     0B62		      nop.i   0 ;;
			   }
			   { .mib 
000008000000     0B70		      nop.m   0
0000B2900B80     0B71		      sxt4    r46 = r41
00A000001000     0B72		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     0B80		      mov     r25 = 3									   // 000267

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 24
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

0000B0000C00     0B81		      sxt4    r48 = r0
0000B2100BC0     0B82		      sxt4    r47 = INTEGER			// r47 = r33
			   }
			   { .mib 
012060002B80     0B90		      mov     r46 = 1537
010802D00040     0B91		      mov     r1 = r45									   // 000266
004000000000     0B92		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0BA0		      nop.m   0
000008000000     0BA1		      nop.f   0
00A000001000     0BA2		      br.call.sptk.many br0 = XST$ASCII							   // 000267
			   }
			   { .mii 
010802830240     0BB0		      adds    r9 = 24, r40
0108028200C0     0BB1		      adds    r3 = 16, r40
012000008640     0BB2		      mov     r25 = 4
			   }
			   { .mii 
010802D00040     0BC0		      mov     r1 = r45
0000B0800C00     0BC1		      sxt4    r48 = r8
0000B2000B80     0BC2		      sxt4    r46 = r32 ;;
			   }
			   { .mii 
000008000000     0BD0		      nop.m   0
0000B0900C40     0BD1		      sxt4    r49 = r9
0000B0300BC0     0BD2		      sxt4    r47 = r3
			   }
			   { .mfb 
000008000000     0BE0		      nop.m   0
000008000000     0BE1		      nop.f   0
00A000001000     0BE2		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802D00040     0BF0		      mov     r1 = r45
010802988A40     0BF1		      adds    r41 = 68, r41
012000006640     0BF2		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100280     0C00		      add     r10 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0000BC0     0C01		      sxt4    r47 = r0
004000000000     0C02		      nop.b   0 ;;
			   }
			   { .mmi 
00BC8A911A00     0C10		      st4     [r41] = r8, -24
0080C0A00280     0C11		      ld8     r10 = XPO$FAILURE			// r10 = [r10]
000008000000     0C12		      nop.i   0 ;;
			   }
			   { .mii 
00BC0A955500     0C20		      st1     [r41] = r42, -44
0000B0A00C00     0C21		      sxt4    r48 = r10 ;;
0000B2900B80     0C22		      sxt4    r46 = r41
			   }
			   { .mfb 
000008000000     0C30		      nop.m   0
000008000000     0C31		      nop.f   0

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 25
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

00A000001000     0C32		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     0C40		      mov     r25 = 3									   // 000268
0000B0000C00     0C41		      sxt4    r48 = r0
0000B2100BC0     0C42		      sxt4    r47 = INTEGER			// r47 = r33
			   }
			   { .mib 
012060004B80     0C50		      mov     r46 = 1538
010802D00040     0C51		      mov     r1 = r45									   // 000267
004000000000     0C52		      nop.b   0 ;;
			   }
			   { .mfb 
000008000000     0C60		      nop.m   0
000008000000     0C61		      nop.f   0
00A000001000     0C62		      br.call.sptk.many br0 = XST$ASCII							   // 000268
			   }
			   { .mii 
010802850240     0C70		      adds    r9 = 40, r40
0108028400C0     0C71		      adds    r3 = 32, r40
012000008640     0C72		      mov     r25 = 4
			   }
			   { .mii 
010802D00040     0C80		      mov     r1 = r45
0000B0800C00     0C81		      sxt4    r48 = r8
0000B2000B80     0C82		      sxt4    r46 = r32 ;;
			   }
			   { .mii 
000008000000     0C90		      nop.m   0
0000B0900C40     0C91		      sxt4    r49 = r9
0000B0300BC0     0C92		      sxt4    r47 = r3
			   }
			   { .mfb 
000008000000     0CA0		      nop.m   0
000008000000     0CA1		      nop.f   0
00A000001000     0CA2		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802D00040     0CB0		      mov     r1 = r45
010802988A40     0CB1		      adds    r41 = 68, r41
012000006640     0CB2		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100280     0CC0		      add     r10 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0000BC0     0CC1		      sxt4    r47 = r0
004000000000     0CC2		      nop.b   0 ;;
			   }
			   { .mmi 
00BC8A911A00     0CD0		      st4     [r41] = r8, -24
0080C0A00280     0CD1		      ld8     r10 = XPO$FAILURE			// r10 = [r10]
000008000000     0CD2		      nop.i   0 ;;
			   }
			   { .mii 
00BC0A955500     0CE0		      st1     [r41] = r42, -44
0000B0A00C00     0CE1		      sxt4    r48 = r10 ;;
0000B2900B80     0CE2		      sxt4    r46 = r41

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 26
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   }
			   { .mfb 
000008000000     0CF0		      nop.m   0
000008000000     0CF1		      nop.f   0
00A000001000     0CF2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
012000006640     0D00		      mov     r25 = 3									   // 000269
0000B2100BC0     0D01		      sxt4    r47 = INTEGER			// r47 = r33
010802860840     0D02		      adds    r33 = 48, r40
			   }
			   { .mii 
012060008B80     0D10		      mov     r46 = 1540
0000B0000C00     0D11		      sxt4    r48 = r0
010802D00040     0D12		      mov     r1 = r45 ;;								   // 000268
			   }
			   { .mfb 
010802870A00     0D20		      adds    r40 = 56, r40								   // 000269
000008000000     0D21		      nop.f   0
00A000001000     0D22		      br.call.sptk.many br0 = XST$ASCII ;;
			   }
			   { .mii 
012000008640     0D30		      mov     r25 = 4
0000B2800C40     0D31		      sxt4    r49 = r40
0000B0800C00     0D32		      sxt4    r48 = r8
			   }
			   { .mii 
010802D00040     0D40		      mov     r1 = r45
0000B2100BC0     0D41		      sxt4    r47 = r33
0000B2000B80     0D42		      sxt4    r46 = r32 ;;
			   }
			   { .mib 
010802958840     0D50		      adds    r33 = 44, r41
010802988800     0D51		      adds    r32 = 68, r41
00A000001000     0D52		      br.call.sptk.many br0 = XST$JOIN
			   }
			   { .mii 
010802D00040     0D60		      mov     r1 = r45
010802958A40     0D61		      adds    r41 = 44, r41
012000006640     0D62		      mov     r25 = 3 ;;
			   }
			   { .mib 
012000100A00     0D70		      add     r40 = @ltoff(@fptr(XPO$FAILURE)), 
					      r1
0000B0000BC0     0D71		      sxt4    r47 = r0
004000000000     0D72		      nop.b   0 ;;
			   }
			   { .mmi 
00AC02954600     0D80		      st1     [r41] = r42, 24
0080C2800A00     0D81		      ld8     r40 = XPO$FAILURE			// r40 = [r40]
000008000000     0D82		      nop.i   0 ;;
			   }
			   { .mii 
00BC8A910F00     0D90		      st4     [r41] = r8, -68
0000B2800C00     0D91		      sxt4    r48 = r40 ;;
0000B2900B80     0D92		      sxt4    r46 = r41
			   }

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 27
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

			   { .mfb 
000008000000     0DA0		      nop.m   0
000008000000     0DA1		      nop.f   0
00A000001000     0DA2		      br.call.sptk.many br0 = XPO$PUT ;;
			   }
			   { .mii 
010802D00040     0DB0		      mov     r1 = r45
000154058000     0DB1		      mov.i   rspfs = r44								   // 000271
010800C20300     0DB2		      adds    r12 = 16, r12 ;;
			   }
			   { .mib 
000008000000     0DC0		      nop.m   0
000E00156000     0DC1		      mov     br0 = r43
000108001100     0DC2		      br.ret.sptk.many br0 ;;
			   }
				      .endp   DISPLAY_INTEGER

Routine Size: 976 bytes,    Routine Base: $CODE$ + 0A00

				       .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$STRING, 244, 16
				      .lcomm  IOB$, 244, 16
				      .lcomm  $STR$$DESC, 8, 8
				      .lcomm  $IOB$FILE_SPEC, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $IOB$FILE_SPEC, 8, 8
				      .lcomm  $IOB$PROMPT, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $STR$PATTERN, 8, 8
				      .lcomm  $IOB$OUTPUT, 8, 8
				      .lcomm  $STR$STRING0, 8, 8
				      .lcomm  $STR$STRING2, 8, 8
				      .lcomm  $STR$STRING1, 8, 8
				      .lcomm  $STR$STRING3, 8, 8
				      .lcomm  $STR$STRING1, 8, 8
				      .lcomm  $STR$STRING3, 8, 8
				      .lcomm  $STR$STRING1, 8, 8
				      .lcomm  $STR$STRING3, 8, 8
				      .lcomm  P.AAA, 10, 16
				      .lcomm  fill$$1, 2, 2
				      .lcomm  P.AAB, 46, 16
				      .lcomm  fill$$2, 2, 2
				      .lcomm  P.AAC, 9, 16
				      .lcomm  fill$$3, 3, 4
				      .lcomm  P.AAD, 15, 16
				      .lcomm  fill$$4, 1, 1
				      .lcomm  P.AAE, 3, 4
				      .lcomm  fill$$5, 1, 1

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 28
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

				      .lcomm  P.AAF, 1, 1
				      .lcomm  fill$$6, 3, 4
				      .lcomm  P.AAG, 3, 4
				      .lcomm  fill$$7, 1, 1
				      .lcomm  P.AAH, 1, 1
				      .lcomm  fill$$8, 3, 4
				      .lcomm  P.AAI, 3, 4
				      .lcomm  fill$$9, 1, 1
				      .lcomm  P.AAJ, 1, 1
				      .lcomm  fill$$10, 3, 4
				      .lcomm  P.AAK, 3, 4
				      .lcomm  fill$$11, 1, 1
				      .lcomm  P.AAL, 1, 1
				      .lcomm  fill$$12, 3, 4
				      .lcomm  P.AAM, 2, 2
				      .lcomm  fill$$13, 2, 2
				      .lcomm  P.AAN, 1, 1
				      .lcomm  fill$$14, 3, 4
				      .lcomm  P.AAO, 39, 16
				      .lcomm  fill$$15, 1, 1
				      .lcomm  P.AAR, 1, 1
				      .lcomm  fill$$16, 3, 4
				      .lcomm  P.AAS, 4, 4
				      .lcomm  P.AAX, 3, 4
				      .lcomm  fill$$17, 1, 1
				      .lcomm  P.AAY, 1, 1
				      .lcomm  fill$$18, 3, 4
				      .lcomm  P.ABD, 3, 4
				      .lcomm  fill$$19, 1, 1
				      .lcomm  P.ABE, 1, 1
				      .lcomm  fill$$20, 3, 4
				      .lcomm  P.ABJ, 3, 4
				      .lcomm  fill$$21, 1, 1
				      .lcomm  P.ABK, 1, 1
				      .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
			UPPER_STRING:
    0000         01E8		      data2   0x0 // data2 0
      0E         01EA		      data1   0xE // data1 14
      02         01EB		      data1   0x2 // data1 2
00000000         01EC		      data4   0x0 // data4 0
			$IOB$FILE_SPEC:
    000A         01F0		      data2   0xA // data2 10
      0E         01F2		      data1   0xE // data1 14
      01         01F3		      data1   0x1 // data1 1
00000000         01F4		      data4   P.AAA
			$IOB$OUTPUT:
    002E         01F8		      data2   0x2E // data2 46
      0E         01FA		      data1   0xE // data1 14
      01         01FB		      data1   0x1 // data1 1
00000000         01FC		      data4   P.AAB
			$IOB$FILE_SPEC:
    0009         0200		      data2   0x9 // data2 9
      0E         0202		      data1   0xE // data1 14
      01         0203		      data1   0x1 // data1 1
00000000         0204		      data4   P.AAC
			$IOB$PROMPT:
    000F         0208		      data2   0xF // data2 15

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 29
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

      0E         020A		      data1   0xE // data1 14
      01         020B		      data1   0x1 // data1 1
00000000         020C		      data4   P.AAD
			$STR$PATTERN:
    0003         0210		      data2   0x3 // data2 3
      0E         0212		      data1   0xE // data1 14
      01         0213		      data1   0x1 // data1 1
00000000         0214		      data4   P.AAE
			$STR$PATTERN:
    0001         0218		      data2   0x1 // data2 1
      0E         021A		      data1   0xE // data1 14
      01         021B		      data1   0x1 // data1 1
00000000         021C		      data4   P.AAF
			$STR$PATTERN:
    0003         0220		      data2   0x3 // data2 3
      0E         0222		      data1   0xE // data1 14
      01         0223		      data1   0x1 // data1 1
00000000         0224		      data4   P.AAG
			$STR$PATTERN:
    0001         0228		      data2   0x1 // data2 1
      0E         022A		      data1   0xE // data1 14
      01         022B		      data1   0x1 // data1 1
00000000         022C		      data4   P.AAH
			$STR$PATTERN:
    0003         0230		      data2   0x3 // data2 3
      0E         0232		      data1   0xE // data1 14
      01         0233		      data1   0x1 // data1 1
00000000         0234		      data4   P.AAI
			$STR$PATTERN:
    0001         0238		      data2   0x1 // data2 1
      0E         023A		      data1   0xE // data1 14
      01         023B		      data1   0x1 // data1 1
00000000         023C		      data4   P.AAJ
			$STR$PATTERN:
    0003         0240		      data2   0x3 // data2 3
      0E         0242		      data1   0xE // data1 14
      01         0243		      data1   0x1 // data1 1
00000000         0244		      data4   P.AAK
			$STR$PATTERN:
    0001         0248		      data2   0x1 // data2 1
      0E         024A		      data1   0xE // data1 14
      01         024B		      data1   0x1 // data1 1
00000000         024C		      data4   P.AAL
			$STR$PATTERN:
    0002         0250		      data2   0x2 // data2 2
      0E         0252		      data1   0xE // data1 14
      01         0253		      data1   0x1 // data1 1
00000000         0254		      data4   P.AAM
			$STR$PATTERN:
    0001         0258		      data2   0x1 // data2 1
      0E         025A		      data1   0xE // data1 14
      01         025B		      data1   0x1 // data1 1
00000000         025C		      data4   P.AAN
			$IOB$OUTPUT:
    0027         0260		      data2   0x27 // data2 39
      0E         0262		      data1   0xE // data1 14
      01         0263		      data1   0x1 // data1 1

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 30
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

00000000         0264		      data4   P.AAO
			$STR$STRING0:
    0001         0268		      data2   0x1 // data2 1
      0E         026A		      data1   0xE // data1 14
      01         026B		      data1   0x1 // data1 1
00000000         026C		      data4   P.AAR
			$STR$STRING2:
    0004         0270		      data2   0x4 // data2 4
      0E         0272		      data1   0xE // data1 14
      01         0273		      data1   0x1 // data1 1
00000000         0274		      data4   P.AAS
			$STR$STRING1:
    0003         0278		      data2   0x3 // data2 3
      0E         027A		      data1   0xE // data1 14
      01         027B		      data1   0x1 // data1 1
00000000         027C		      data4   P.AAX
			$STR$STRING3:
    0001         0280		      data2   0x1 // data2 1
      0E         0282		      data1   0xE // data1 14
      01         0283		      data1   0x1 // data1 1
00000000         0284		      data4   P.AAY
			$STR$STRING1:
    0003         0288		      data2   0x3 // data2 3
      0E         028A		      data1   0xE // data1 14
      01         028B		      data1   0x1 // data1 1
00000000         028C		      data4   P.ABD
			$STR$STRING3:
    0001         0290		      data2   0x1 // data2 1
      0E         0292		      data1   0xE // data1 14
      01         0293		      data1   0x1 // data1 1
00000000         0294		      data4   P.ABE
			$STR$STRING1:
    0003         0298		      data2   0x3 // data2 3
      0E         029A		      data1   0xE // data1 14
      01         029B		      data1   0x1 // data1 1
00000000         029C		      data4   P.ABJ
			$STR$STRING3:
    0001         02A0		      data2   0x1 // data2 1
      0E         02A2		      data1   0xE // data1 14
      01         02A3		      data1   0x1 // data1 1
00000000         02A4		      data4   P.ABK
				      .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 ASCII-to-Binary Integer Conversion Test"
41205452         0010
49494353         0014
2D6F742D         0018
616E6942         001C
49207972         0020
6765746E         0024
43207265         0028
65766E6F         002C

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 31
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

6F697372         0030
6554206E         0034
    7473         0038

			P.AAC:
24535953         003C		      string  "SYS$INPUT"
55504E49         0040
      54         0044

			P.AAD:
746E450A         0048		      string  "\X0AEnter number: "
6E207265         004C
65626D75         0050
  203A72         0054

			P.AAE:
  274225         0058		      string  "%B'"

			P.AAF:
      27         005C		      data1   0x27 // data1 39
			P.AAG:
  274F25         0060		      string  "%O'"

			P.AAH:
      27         0064		      data1   0x27 // data1 39
			P.AAI:
  274425         0068		      string  "%D'"

			P.AAJ:
      27         006C		      data1   0x27 // data1 39
			P.AAK:
  275825         0070		      string  "%X'"

			P.AAL:
      27         0074		      data1   0x27 // data1 39
			P.AAM:
    0920         0078		      data2   0x920 // data2 2336
			P.AAN:
      09         007C		      data1   0x9 // data1 9
			P.AAO:
4F50580A         0080		      string  "\X0AXPORT Integer Conversion Test Complete"
49205452         0084
6765746E         0088
43207265         008C
65766E6F         0090
6F697372         0094
6554206E         0098
43207473         009C
6C706D6F         00A0
  657465         00A4

			P.AAR:
      22         00A8		      data1   0x22 // data1 34
			P.AAS:
203D2022         00AC		      data4   0x203D2022 // data4 540876834
			P.AAX:
  274225         00B0		      string  "%B'"

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 32
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1


			P.AAY:
      27         00B4		      data1   0x27 // data1 39
			P.ABD:
  274F25         00B8		      string  "%O'"

			P.ABE:
      27         00BC		      data1   0x27 // data1 39
			P.ABJ:
  275825         00C0		      string  "%X'"

			P.ABK:
      27         00C4		      data1   0x27 // data1 39
				      .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$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$B_FAILURE, @function 
				      .global  STR$B_FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$B_FAILURE, @function 
				      .global  STR$B_FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 33
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$B_FAILURE, @function 
				      .global  STR$B_FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$B_FAILURE, @function 
				      .global  STR$B_FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   STR$B_FAILURE, @function 
				      .global  STR$B_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$COPY, @function 
				      .global  XST$COPY
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$BINARY, @function 
				      .global  XST$BINARY
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$BINARY, @function 
				      .global  XST$BINARY
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$SCAN, @function 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 34
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

				      .global  XST$SCAN
				      .section .data
				      .type   XST$BINARY, @function 
				      .global  XST$BINARY
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$BINARY, @function 
				      .global  XST$BINARY
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$SCAN, @function 
				      .global  XST$SCAN
				      .section .data
				      .type   XST$BINARY, @function 
				      .global  XST$BINARY
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   STR$FAILURE, @function 
				      .global  STR$FAILURE
				      .section .data
				      .type   XST$COPY, @function 
				      .global  XST$COPY
				      .section .data
				      .type   XST$ASCII, @function 
				      .global  XST$ASCII
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$ASCII, @function 
				      .global  XST$ASCII
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 

STESTI                          Machine Code Listing             4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 35
X00.03                          DISPLAY_INTEGER                 19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$ASCII, @function 
				      .global  XST$ASCII
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .section .data
				      .type   XPO$FAILURE, @function 
				      .global  XPO$FAILURE
				      .section .data
				      .type   XPO$PUT, @function 
				      .global  XPO$PUT
				      .section .data
				      .type   XST$ASCII, @function 
				      .global  XST$ASCII
				      .section .data
				      .type   XST$JOIN, @function 
				      .global  XST$JOIN
				      .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       159        26       270




                                Source Listing                   4-FEB-2004 11:02:16  BLISS-32I T1.1-053                Page 36
                                Source Listing                  19-MAR-2002 10:11:48  [LASTOVICA.XPORT.VMSGEN]STESTI.BLI;1

COMMAND LINE:

BLISSSTESTI/LIST/DEBUG
