XSPEC - XPORT Parse Spec Block   4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 1
                                                                19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

    0	      1 MODULE XSPEC ( IDENT = 'V1.2-10'			%TITLE 'XSPEC - XPORT Parse Spec Block Dumper Routine'
    0	      2 		%BLISS32( ,ADDRESSING_MODE( EXTERNAL=LONG_RELATIVE ) )
    0	      3 		%BLISS36( ,ENTRY(XSPEC),OTS='') 
    0	      4 		) =
    0	      5 BEGIN
    1	      6 LIBRARY 'XPORT';
    1	      8 !
    1	      9 ! The Module header and Library declaration above has been inserted in place of the automatically generated one.
    1	     10 !
    1	     11 %BLISS32( PSECT OWN=$OWN$; )
    1	     12 GLOBAL ROUTINE XSPEC(control_block) :  NOVALUE = BEGIN
    2	     13 
    2	     14 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_SPEC_STAT, TYPE=BITS, VALUE=.BLOCK[.control_block,XPO$V_SPEC_STAT] );
    2	     15 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_DIR_NAME, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_DIR_NAME] );
    2	     16 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_PPN, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_PPN] );
    2	     17 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_SFD, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_SFD] );
    2	     18 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_CARD, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_CARD] );
    2	     19 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_NODE, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_NODE] );
    2	     20 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_DEV, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_DEV] );
    2	     21 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_DIR, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_DIR] );
    2	     22 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_NAME, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_NAME] );
    2	     23 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_TYPE, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_TYPE] );
    2	     24 $XPO_DUMP_FIELD( FIELD_NAME=XPO$V_WILD_VER, TYPE=BIT, VALUE=.BLOCK[.control_block,XPO$V_WILD_VER] );
    2	     25 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_NODE, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_NODE] );
    2	     26 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_DEVICE, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_DEVICE] );
    2	     27 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_DIRECT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_DIRECT] );
    2	     28 $XPO_DUMP_FIELD( FIELD_NAME=XPO$H_PROJ_NUMB, TYPE=BYTES, VALUE=.BLOCK[.control_block,XPO$H_PROJ_NUMB] );
    2	     29 $XPO_DUMP_FIELD( FIELD_NAME=XPO$H_PGMR_NUMB, TYPE=BYTES, VALUE=.BLOCK[.control_block,XPO$H_PGMR_NUMB] );
    2	     30 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_NAME, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_NAME] );
    2	     31 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_TYPE, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_TYPE] );
    2	     32 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_VER, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_VER] );
    2	     33 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_FILE_PROT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_FILE_PROT] );
    2	     34 $XPO_DUMP_FIELD( FIELD_NAME=XPO$T_EXTRA, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,XPO$T_EXTRA] );
    2	     35 
    2	     36 END;  END  ELUDOM 

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 2
V1.2-10                                                         19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC
				      .proc   XSPEC
				      .align 32
				      .global  XSPEC
			XSPEC:												   // 000012
			   { .mii 
002C01F44F40     0000		      alloc   r61 = rspfs, 1, 30, 3, 0
012000100A40     0001		      add     r41 = @ltoff($STR$FIELD_NAME), r1						   // 000014
0000B20000C0     0002		      sxt4    r3 = CONTROL_BLOCK		// r3 = r32
			   }
			   { .mmi 
012000006640     0010		      mov     r25 = 3
01200000F000     0011		      mov     r64 = 7
000188000F00     0012		      mov     r60 = br0 ;;								   // 000012
			   }
			   { .mii 
010800300A00     0020		      mov     r40 = r3									   // 000014
010800100F80     0021		      mov     r62 = r1									   // 000012
010802008D00     0022		      adds    r52 = 4, CONTROL_BLOCK		// r52 = 4, r32				   // 000025
			   }
			   { .mmi 
0080C2900A40     0030		      ld8     r41 = $STR$FIELD_NAME		// r41 = [r41]				   // 000014
008040300200     0031		      ld2     r8 = [r3]
010802018D40     0032		      adds    r53 = 12, CONTROL_BLOCK ;;	// r53 = 12, r32			   // 000026
			   }
			   { .mii 
010802028D80     0040		      adds    r54 = 20, CONTROL_BLOCK		// r54 = 20, r32			   // 000027
010802040E00     0041		      adds    r56 = 32, CONTROL_BLOCK		// r56 = 32, r32			   // 000030
010802050E40     0042		      adds    r57 = 40, CONTROL_BLOCK		// r57 = 40, r32			   // 000031
			   }
			   { .mii 
010802060E80     0050		      adds    r58 = 48, CONTROL_BLOCK		// r58 = 48, r32			   // 000032
0000B0801040     0051		      sxt4    r65 = r8									   // 000014
0000B2900FC0     0052		      sxt4    r63 = r41
			   }
			   { .mib 
010802070EC0     0060		      adds    r59 = 56, CONTROL_BLOCK		// r59 = 56, r32			   // 000033
010802080800     0061		      adds    r32 = 64, r32
00A000001000     0062		      br.call.sptk.many br0 = XPO$DUMP_FIELD						   // 000014
			   }
			   { .mii 
008082800A80     0070		      ld4     r42 = [r40]								   // 000015
010802911000     0071		      adds    r64 = 8, r41
012000006640     0072		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0080		      mov     r1 = r62 ;;								   // 000014
000008000000     0081		      nop.m   0
0000B4000FC0     0082		      sxt4    r63 = r64									   // 000015
			   }
			   { .mii 
01200000D000     0090		      mov     r64 = 6
00A402A00A80     0091		      extr.u  r42 = r42, 0, 1 ;;
0000B2A01040     0092		      sxt4    r65 = r42
			   }
			   { .mfb 
000008000000     00A0		      nop.m   0

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 3
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

000008000000     00A1		      nop.f   0
00A000001000     00A2		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800AC0     00B0		      ld4     r43 = [r40]								   // 000016
010802921000     00B1		      adds    r64 = 16, r41
012000006640     00B2		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     00C0		      mov     r1 = r62 ;;								   // 000015
000008000000     00C1		      nop.m   0
0000B4000FC0     00C2		      sxt4    r63 = r64									   // 000016
			   }
			   { .mii 
01200000D000     00D0		      mov     r64 = 6
00A402B04AC0     00D1		      extr.u  r43 = r43, 1, 1 ;;
0000B2B01040     00D2		      sxt4    r65 = r43
			   }
			   { .mfb 
000008000000     00E0		      nop.m   0
000008000000     00E1		      nop.f   0
00A000001000     00E2		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800B00     00F0		      ld4     r44 = [r40]								   // 000017
010802931000     00F1		      adds    r64 = 24, r41
012000006640     00F2		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0100		      mov     r1 = r62 ;;								   // 000016
000008000000     0101		      nop.m   0
0000B4000FC0     0102		      sxt4    r63 = r64									   // 000017
			   }
			   { .mii 
01200000D000     0110		      mov     r64 = 6
00A402C08B00     0111		      extr.u  r44 = r44, 2, 1 ;;
0000B2C01040     0112		      sxt4    r65 = r44
			   }
			   { .mfb 
000008000000     0120		      nop.m   0
000008000000     0121		      nop.f   0
00A000001000     0122		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800B40     0130		      ld4     r45 = [r40]								   // 000018
010802941000     0131		      adds    r64 = 32, r41
012000006640     0132		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0140		      mov     r1 = r62 ;;								   // 000017
000008000000     0141		      nop.m   0
0000B4000FC0     0142		      sxt4    r63 = r64									   // 000018
			   }
			   { .mii 
01200000D000     0150		      mov     r64 = 6
00A402D0CB40     0151		      extr.u  r45 = r45, 3, 1 ;;
0000B2D01040     0152		      sxt4    r65 = r45

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 4
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

			   }
			   { .mfb 
000008000000     0160		      nop.m   0
000008000000     0161		      nop.f   0
00A000001000     0162		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800B80     0170		      ld4     r46 = [r40]								   // 000019
010802951000     0171		      adds    r64 = 40, r41
012000006640     0172		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0180		      mov     r1 = r62 ;;								   // 000018
000008000000     0181		      nop.m   0
0000B4000FC0     0182		      sxt4    r63 = r64									   // 000019
			   }
			   { .mii 
01200000D000     0190		      mov     r64 = 6
00A402E10B80     0191		      extr.u  r46 = r46, 4, 1 ;;
0000B2E01040     0192		      sxt4    r65 = r46
			   }
			   { .mfb 
000008000000     01A0		      nop.m   0
000008000000     01A1		      nop.f   0
00A000001000     01A2		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800BC0     01B0		      ld4     r47 = [r40]								   // 000020
010802961000     01B1		      adds    r64 = 48, r41
012000006640     01B2		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     01C0		      mov     r1 = r62 ;;								   // 000019
000008000000     01C1		      nop.m   0
0000B4000FC0     01C2		      sxt4    r63 = r64									   // 000020
			   }
			   { .mii 
01200000D000     01D0		      mov     r64 = 6
00A402F14BC0     01D1		      extr.u  r47 = r47, 5, 1 ;;
0000B2F01040     01D2		      sxt4    r65 = r47
			   }
			   { .mfb 
000008000000     01E0		      nop.m   0
000008000000     01E1		      nop.f   0
00A000001000     01E2		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800C00     01F0		      ld4     r48 = [r40]								   // 000021
010802971000     01F1		      adds    r64 = 56, r41
012000006640     01F2		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0200		      mov     r1 = r62 ;;								   // 000020
000008000000     0201		      nop.m   0
0000B4000FC0     0202		      sxt4    r63 = r64									   // 000021
			   }
			   { .mii 

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 5
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

01200000D000     0210		      mov     r64 = 6
00A403018C00     0211		      extr.u  r48 = r48, 6, 1 ;;
0000B3001040     0212		      sxt4    r65 = r48
			   }
			   { .mfb 
000008000000     0220		      nop.m   0
000008000000     0221		      nop.f   0
00A000001000     0222		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800C40     0230		      ld4     r49 = [r40]								   // 000022
010802981000     0231		      adds    r64 = 64, r41
012000006640     0232		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0240		      mov     r1 = r62 ;;								   // 000021
000008000000     0241		      nop.m   0
0000B4000FC0     0242		      sxt4    r63 = r64									   // 000022
			   }
			   { .mii 
01200000D000     0250		      mov     r64 = 6
00A40311CC40     0251		      extr.u  r49 = r49, 7, 1 ;;
0000B3101040     0252		      sxt4    r65 = r49
			   }
			   { .mfb 
000008000000     0260		      nop.m   0
000008000000     0261		      nop.f   0
00A000001000     0262		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
008082800C80     0270		      ld4     r50 = [r40]								   // 000023
010802991000     0271		      adds    r64 = 72, r41
012000006640     0272		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0280		      mov     r1 = r62 ;;								   // 000022
000008000000     0281		      nop.m   0
0000B4000FC0     0282		      sxt4    r63 = r64									   // 000023
			   }
			   { .mii 
01200000D000     0290		      mov     r64 = 6
00A403220C80     0291		      extr.u  r50 = r50, 8, 1 ;;
0000B3201040     0292		      sxt4    r65 = r50
			   }
			   { .mfb 
000008000000     02A0		      nop.m   0
000008000000     02A1		      nop.f   0
00A000001000     02A2		      br.call.sptk.many br0 = XPO$DUMP_FIELD
			   }
			   { .mii 
00A082838CC0     02B0		      ld4     r51 = [r40], 28								   // 000024
0108029A1000     02B1		      adds    r64 = 80, r41
012000006640     02B2		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     02C0		      mov     r1 = r62 ;;								   // 000023
000008000000     02C1		      nop.m   0

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 6
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

0000B4000FC0     02C2		      sxt4    r63 = r64									   // 000024
			   }
			   { .mii 
01200000D000     02D0		      mov     r64 = 6
00A403324CC0     02D1		      extr.u  r51 = r51, 9, 1 ;;
0000B3301040     02D2		      sxt4    r65 = r51
			   }
			   { .mfb 
000008000000     02E0		      nop.m   0
000008000000     02E1		      nop.f   0
00A000001000     02E2		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
0108029B1000     02F0		      adds    r64 = 88, r41								   // 000025
012000006640     02F1		      mov     r25 = 3
0000B3401040     02F2		      sxt4    r65 = r52
			   }
			   { .mmi 
010803E00040     0300		      mov     r1 = r62 ;;								   // 000024
000008000000     0301		      nop.m   0
0000B4000FC0     0302		      sxt4    r63 = r64									   // 000025
			   }
			   { .mfb 
012000013000     0310		      mov     r64 = 9
000008000000     0311		      nop.f   0
00A000001000     0312		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
0108029C1000     0320		      adds    r64 = 96, r41								   // 000026
012000006640     0321		      mov     r25 = 3
0000B3501040     0322		      sxt4    r65 = r53
			   }
			   { .mmi 
010803E00040     0330		      mov     r1 = r62 ;;								   // 000025
000008000000     0331		      nop.m   0
0000B4000FC0     0332		      sxt4    r63 = r64									   // 000026
			   }
			   { .mfb 
012000013000     0340		      mov     r64 = 9
000008000000     0341		      nop.f   0
00A000001000     0342		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
0108029D1000     0350		      adds    r64 = 104, r41								   // 000027
012000006640     0351		      mov     r25 = 3
0000B3601040     0352		      sxt4    r65 = r54
			   }
			   { .mmi 
010803E00040     0360		      mov     r1 = r62 ;;								   // 000026
000008000000     0361		      nop.m   0
0000B4000FC0     0362		      sxt4    r63 = r64									   // 000027
			   }
			   { .mfb 
012000013000     0370		      mov     r64 = 9
000008000000     0371		      nop.f   0
00A000001000     0372		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 7
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

			   { .mii 
00A042804DC0     0380		      ld2     r55 = [r40], 2								   // 000028
0108029E1000     0381		      adds    r64 = 112, r41
012000006640     0382		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     0390		      mov     r1 = r62 ;;								   // 000027
000008000000     0391		      nop.m   0
0000B4000FC0     0392		      sxt4    r63 = r64									   // 000028
			   }
			   { .mib 
012000005000     03A0		      mov     r64 = 2
0000B3701040     03A1		      sxt4    r65 = r55
00A000001000     03A2		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
008042800A00     03B0		      ld2     r40 = [r40]								   // 000029
0108029F1000     03B1		      adds    r64 = 120, r41
012000006640     03B2		      mov     r25 = 3
			   }
			   { .mmi 
010803E00040     03C0		      mov     r1 = r62 ;;								   // 000028
000008000000     03C1		      nop.m   0
0000B4000FC0     03C2		      sxt4    r63 = r64									   // 000029
			   }
			   { .mib 
012000005000     03D0		      mov     r64 = 2
0000B2801040     03D1		      sxt4    r65 = r40
00A000001000     03D2		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
01080A901000     03E0		      adds    r64 = 128, r41								   // 000030
012000006640     03E1		      mov     r25 = 3
0000B3801040     03E2		      sxt4    r65 = r56
			   }
			   { .mmi 
010803E00040     03F0		      mov     r1 = r62 ;;								   // 000029
000008000000     03F1		      nop.m   0
0000B4000FC0     03F2		      sxt4    r63 = r64									   // 000030
			   }
			   { .mfb 
012000013000     0400		      mov     r64 = 9
000008000000     0401		      nop.f   0
00A000001000     0402		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
01080A911000     0410		      adds    r64 = 136, r41								   // 000031
012000006640     0411		      mov     r25 = 3
0000B3901040     0412		      sxt4    r65 = r57
			   }
			   { .mmi 
010803E00040     0420		      mov     r1 = r62 ;;								   // 000030
000008000000     0421		      nop.m   0
0000B4000FC0     0422		      sxt4    r63 = r64									   // 000031
			   }
			   { .mfb 
012000013000     0430		      mov     r64 = 9

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 8
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

000008000000     0431		      nop.f   0
00A000001000     0432		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
01080A921000     0440		      adds    r64 = 144, r41								   // 000032
012000006640     0441		      mov     r25 = 3
0000B3A01040     0442		      sxt4    r65 = r58
			   }
			   { .mmi 
010803E00040     0450		      mov     r1 = r62 ;;								   // 000031
000008000000     0451		      nop.m   0
0000B4000FC0     0452		      sxt4    r63 = r64									   // 000032
			   }
			   { .mfb 
012000013000     0460		      mov     r64 = 9
000008000000     0461		      nop.f   0
00A000001000     0462		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
01080A931000     0470		      adds    r64 = 152, r41								   // 000033
012000006640     0471		      mov     r25 = 3
0000B3B01040     0472		      sxt4    r65 = r59
			   }
			   { .mmi 
010803E00040     0480		      mov     r1 = r62 ;;								   // 000032
000008000000     0481		      nop.m   0
0000B4000FC0     0482		      sxt4    r63 = r64									   // 000033
			   }
			   { .mfb 
012000013000     0490		      mov     r64 = 9
000008000000     0491		      nop.f   0
00A000001000     0492		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
01080A941000     04A0		      adds    r64 = 160, r41								   // 000034
012000006640     04A1		      mov     r25 = 3
0000B2001040     04A2		      sxt4    r65 = r32
			   }
			   { .mmi 
010803E00040     04B0		      mov     r1 = r62 ;;								   // 000033
000008000000     04B1		      nop.m   0
0000B4000FC0     04B2		      sxt4    r63 = r64									   // 000034
			   }
			   { .mfb 
012000013000     04C0		      mov     r64 = 9
000008000000     04C1		      nop.f   0
00A000001000     04C2		      br.call.sptk.many br0 = XPO$DUMP_FIELD ;;
			   }
			   { .mii 
010803E00040     04D0		      mov     r1 = r62
00015407A000     04D1		      mov.i   rspfs = r61								   // 000036
000E00178000     04D2		      mov     br0 = r60 ;;
			   }
			   { .mfb 
000008000000     04E0		      nop.m   0
000008000000     04E1		      nop.f   0
000108001100     04E2		      br.ret.sptk.many br0 ;;

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 9
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

			   }
				      .endp   XSPEC

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

				       .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  $STR$FIELD_NAME, 8, 8
				      .lcomm  P.AAA, 15, 16
				      .lcomm  fill$$1, 1, 1
				      .lcomm  P.AAB, 14, 16
				      .lcomm  fill$$2, 2, 2
				      .lcomm  P.AAC, 9, 16
				      .lcomm  fill$$3, 3, 4
				      .lcomm  P.AAD, 9, 16
				      .lcomm  fill$$4, 3, 4
				      .lcomm  P.AAE, 15, 16
				      .lcomm  fill$$5, 1, 1
				      .lcomm  P.AAF, 15, 16
				      .lcomm  fill$$6, 1, 1
				      .lcomm  P.AAG, 14, 16
				      .lcomm  fill$$7, 2, 2
				      .lcomm  P.AAH, 14, 16
				      .lcomm  fill$$8, 2, 2
				      .lcomm  P.AAI, 15, 16
				      .lcomm  fill$$9, 1, 1
				      .lcomm  P.AAJ, 15, 16
				      .lcomm  fill$$10, 1, 1
				      .lcomm  P.AAK, 14, 16
				      .lcomm  fill$$11, 2, 2
				      .lcomm  P.AAL, 10, 16
				      .lcomm  fill$$12, 2, 2
				      .lcomm  P.AAM, 12, 16
				      .lcomm  P.AAN, 12, 16
				      .lcomm  P.AAO, 15, 16
				      .lcomm  fill$$13, 1, 1
				      .lcomm  P.AAP, 15, 16
				      .lcomm  fill$$14, 1, 1

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 10
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

				      .lcomm  P.AAQ, 15, 16
				      .lcomm  fill$$15, 1, 1
				      .lcomm  P.AAR, 15, 16
				      .lcomm  fill$$16, 1, 1
				      .lcomm  P.AAS, 14, 16
				      .lcomm  fill$$17, 2, 2
				      .lcomm  P.AAT, 15, 16
				      .lcomm  fill$$18, 1, 1
				      .lcomm  P.AAU, 11, 16
				      .psect $OWN$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC
			$STR$FIELD_NAME:
    000F         0000		      data2   0xF // data2 15
      0E         0002		      data1   0xE // data1 14
      01         0003		      data1   0x1 // data1 1
00000000         0004		      data4   P.AAA
			$STR$FIELD_NAME:
    000E         0008		      data2   0xE // data2 14
      0E         000A		      data1   0xE // data1 14
      01         000B		      data1   0x1 // data1 1
00000000         000C		      data4   P.AAB
			$STR$FIELD_NAME:
    0009         0010		      data2   0x9 // data2 9
      0E         0012		      data1   0xE // data1 14
      01         0013		      data1   0x1 // data1 1
00000000         0014		      data4   P.AAC
			$STR$FIELD_NAME:
    0009         0018		      data2   0x9 // data2 9
      0E         001A		      data1   0xE // data1 14
      01         001B		      data1   0x1 // data1 1
00000000         001C		      data4   P.AAD
			$STR$FIELD_NAME:
    000F         0020		      data2   0xF // data2 15
      0E         0022		      data1   0xE // data1 14
      01         0023		      data1   0x1 // data1 1
00000000         0024		      data4   P.AAE
			$STR$FIELD_NAME:
    000F         0028		      data2   0xF // data2 15
      0E         002A		      data1   0xE // data1 14
      01         002B		      data1   0x1 // data1 1
00000000         002C		      data4   P.AAF
			$STR$FIELD_NAME:
    000E         0030		      data2   0xE // data2 14
      0E         0032		      data1   0xE // data1 14
      01         0033		      data1   0x1 // data1 1
00000000         0034		      data4   P.AAG
			$STR$FIELD_NAME:
    000E         0038		      data2   0xE // data2 14
      0E         003A		      data1   0xE // data1 14
      01         003B		      data1   0x1 // data1 1
00000000         003C		      data4   P.AAH
			$STR$FIELD_NAME:
    000F         0040		      data2   0xF // data2 15
      0E         0042		      data1   0xE // data1 14
      01         0043		      data1   0x1 // data1 1
00000000         0044		      data4   P.AAI
			$STR$FIELD_NAME:
    000F         0048		      data2   0xF // data2 15

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 11
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

      0E         004A		      data1   0xE // data1 14
      01         004B		      data1   0x1 // data1 1
00000000         004C		      data4   P.AAJ
			$STR$FIELD_NAME:
    000E         0050		      data2   0xE // data2 14
      0E         0052		      data1   0xE // data1 14
      01         0053		      data1   0x1 // data1 1
00000000         0054		      data4   P.AAK
			$STR$FIELD_NAME:
    000A         0058		      data2   0xA // data2 10
      0E         005A		      data1   0xE // data1 14
      01         005B		      data1   0x1 // data1 1
00000000         005C		      data4   P.AAL
			$STR$FIELD_NAME:
    000C         0060		      data2   0xC // data2 12
      0E         0062		      data1   0xE // data1 14
      01         0063		      data1   0x1 // data1 1
00000000         0064		      data4   P.AAM
			$STR$FIELD_NAME:
    000C         0068		      data2   0xC // data2 12
      0E         006A		      data1   0xE // data1 14
      01         006B		      data1   0x1 // data1 1
00000000         006C		      data4   P.AAN
			$STR$FIELD_NAME:
    000F         0070		      data2   0xF // data2 15
      0E         0072		      data1   0xE // data1 14
      01         0073		      data1   0x1 // data1 1
00000000         0074		      data4   P.AAO
			$STR$FIELD_NAME:
    000F         0078		      data2   0xF // data2 15
      0E         007A		      data1   0xE // data1 14
      01         007B		      data1   0x1 // data1 1
00000000         007C		      data4   P.AAP
			$STR$FIELD_NAME:
    000F         0080		      data2   0xF // data2 15
      0E         0082		      data1   0xE // data1 14
      01         0083		      data1   0x1 // data1 1
00000000         0084		      data4   P.AAQ
			$STR$FIELD_NAME:
    000F         0088		      data2   0xF // data2 15
      0E         008A		      data1   0xE // data1 14
      01         008B		      data1   0x1 // data1 1
00000000         008C		      data4   P.AAR
			$STR$FIELD_NAME:
    000E         0090		      data2   0xE // data2 14
      0E         0092		      data1   0xE // data1 14
      01         0093		      data1   0x1 // data1 1
00000000         0094		      data4   P.AAS
			$STR$FIELD_NAME:
    000F         0098		      data2   0xF // data2 15
      0E         009A		      data1   0xE // data1 14
      01         009B		      data1   0x1 // data1 1
00000000         009C		      data4   P.AAT
			$STR$FIELD_NAME:
    000B         00A0		      data2   0xB // data2 11
      0E         00A2		      data1   0xE // data1 14
      01         00A3		      data1   0x1 // data1 1

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 12
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

00000000         00A4		      data4   P.AAU
				      .psect $PLIT$, CON, LCL, NOSHR, NOEXE, NOWRT, NOVEC
			P.AAA:
244F5058         0000		      string  "XPO$V_SPEC_STAT"
50535F56         0004
535F4345         0008
  544154         000C

			P.AAB:
244F5058         0010		      string  "XPO$V_DIR_NAME"
49445F56         0014
414E5F52         0018
    454D         001C

			P.AAC:
244F5058         0020		      string  "XPO$V_PPN"
50505F56         0024
      4E         0028

			P.AAD:
244F5058         002C		      string  "XPO$V_SFD"
46535F56         0030
      44         0034

			P.AAE:
244F5058         0038		      string  "XPO$V_WILD_CARD"
49575F56         003C
435F444C         0040
  445241         0044

			P.AAF:
244F5058         0048		      string  "XPO$V_WILD_NODE"
49575F56         004C
4E5F444C         0050
  45444F         0054

			P.AAG:
244F5058         0058		      string  "XPO$V_WILD_DEV"
49575F56         005C
445F444C         0060
    5645         0064

			P.AAH:
244F5058         0068		      string  "XPO$V_WILD_DIR"
49575F56         006C
445F444C         0070
    5249         0074

			P.AAI:
244F5058         0078		      string  "XPO$V_WILD_NAME"
49575F56         007C
4E5F444C         0080
  454D41         0084

			P.AAJ:
244F5058         0088		      string  "XPO$V_WILD_TYPE"
49575F56         008C

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 13
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

545F444C         0090
  455059         0094

			P.AAK:
244F5058         0098		      string  "XPO$V_WILD_VER"
49575F56         009C
565F444C         00A0
    5245         00A4

			P.AAL:
244F5058         00A8		      string  "XPO$T_NODE"
4F4E5F54         00AC
    4544         00B0

			P.AAM:
244F5058         00B4		      string  "XPO$T_DEVICE"
45445F54         00B8
45434956         00BC

			P.AAN:
244F5058         00C0		      string  "XPO$T_DIRECT"
49445F54         00C4
54434552         00C8

			P.AAO:
244F5058         00CC		      string  "XPO$H_PROJ_NUMB"
52505F48         00D0
4E5F4A4F         00D4
  424D55         00D8

			P.AAP:
244F5058         00DC		      string  "XPO$H_PGMR_NUMB"
47505F48         00E0
4E5F524D         00E4
  424D55         00E8

			P.AAQ:
244F5058         00EC		      string  "XPO$T_FILE_NAME"
49465F54         00F0
4E5F454C         00F4
  454D41         00F8

			P.AAR:
244F5058         00FC		      string  "XPO$T_FILE_TYPE"
49465F54         0100
545F454C         0104
  455059         0108

			P.AAS:
244F5058         010C		      string  "XPO$T_FILE_VER"
49465F54         0110
565F454C         0114
    5245         0118

			P.AAT:
244F5058         011C		      string  "XPO$T_FILE_PROT"
49465F54         0120

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 14
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

505F454C         0124
  544F52         0128

			P.AAU:
244F5058         012C		      string  "XPO$T_EXTRA"
58455F54         0130
  415254         0134

				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data

XSPEC                           Machine Code Listing             4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 15
V1.2-10                         XSPEC                           19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD
				      .section .data
				      .type   XPO$DUMP_FIELD, @function 
				      .global  XPO$DUMP_FIELD


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




                                Source Listing                   4-FEB-2004 11:01:46  BLISS-32I T1.1-053                Page 16
                                Source Listing                  19-MAR-2002 10:26:48  [LASTOVICA.XPORT.VMSGEN]XSPEC.BLI;2

COMMAND LINE:

BLISSXSPEC/LIST/DEBUG