DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦07ac5ddd5⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_09dc9d

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04d0       |    |		.CONST	0x04d0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0078       | x  |		.CONST	0x0078								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4803       |H   |		Short_Literal	0x3
000d 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 4800       |H   |		Short_Literal	0x0
0016 4801       |H   |		Short_Literal	0x1
0017 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0019 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001a 4800       |H   |		Short_Literal	0x0
001b 4801       |H   |		Short_Literal	0x1
001c 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
001e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001f 4801       |H   |		Short_Literal	0x1
0020 4900       |I   |		Short_Literal	0x100
0021 e002       |    |		Load	0x0,0x2
0022 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0023 035c       | \  |		Declare_Type	Array,Constrained,Visible
0024 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0026 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0028 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
002a 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
002c 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
002e 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0030 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0032 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0034 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0036 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0038 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
003a 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
003c 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
003e 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0040 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0042 e003       |    |		Load	0x0,0x3
0043 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0044 e004       |    |		Load	0x0,0x4
0045 e005       |    |		Load	0x0,0x5
0046 e004       |    |		Load	0x0,0x4
0047 e005       |    |		Load	0x0,0x5
0048 00e3       |    |		Load_Encached	Natural_Cache
0049 00e3       |    |		Load_Encached	Natural_Cache
004a e003       |    |		Load	0x0,0x3
004b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
004c e003       |    |		Load	0x0,0x3
004d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
004e e003       |    |		Load	0x0,0x3
004f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 480a       |H   |		Short_Literal	0xa
0052 032e       | .  |		Declare_Type	Record,Defined,Visible
0053 00bf       |    |		Action	Accept_Activation
0054 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
0056 029d 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call
0058 029d 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call
005a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0077 00c7       |    |		Action	Elaborate_Subprogram
0078			BODY_0008:
0078 00bc       |    |		Action	Signal_Activated
0079 00bb       |    |		Action	Signal_Completion
007a 0000 0000  |    |		.BLANK	0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 4607       |F   |		Jump_Case	0x8
0084 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0085 7807       |x   |		Jump	0x8d								; case 0x1
0086 780a       |x   |		Jump	0x91								; case 0x2
0087 780e       |x   |		Jump	0x96								; case 0x3
0088 7811       |x   |		Jump	0x9a								; case 0x4
0089 7812       |x   |		Jump	0x9c								; case 0x5
008a 7813       |x   |		Jump	0x9e								; case 0x6
008b 7816       |x   |		Jump	0xa2								; case 0x7
008c 4302       |C   |		.XXX[0x1]
008d 00da       |    |		Load_Top	At_Offset_2
008e 0091 0479  |   y|		Action	Push_String_Extended_Indexed,0x479				; "NOM_EXP_FIELD"
0090 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0091 00db       |    |		Load_Top	At_Offset_3
0092 00db       |    |		Load_Top	At_Offset_3
0093 00e0       |    |		Load_Encached	Standard_Cache
0094 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0095 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0096 00da       |    |		Load_Top	At_Offset_2
0097 00e0       |    |		Load_Encached	Standard_Cache
0098 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0099 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
009a 00db       |    |		Load_Top	At_Offset_3
009b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009c 00db       |    |		Load_Top	At_Offset_3
009d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009e e20d       |    |		Load	0x1,0xd
009f 00dc       |    |		Load_Top	At_Offset_4
00a0 0267       | g  |		Execute	Discrete,Predecessor
00a1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a2 e20d       |    |		Load	0x1,0xd
00a3 00dc       |    |		Load_Top	At_Offset_4
00a4 0268       | h  |		Execute	Discrete,Successor
00a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 4607       |F   |		Jump_Case	0x8
00ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ad 7807       |x   |		Jump	0xb5								; case 0x1
00ae 780a       |x   |		Jump	0xb9								; case 0x2
00af 780e       |x   |		Jump	0xbe								; case 0x3
00b0 7811       |x   |		Jump	0xc2								; case 0x4
00b1 7812       |x   |		Jump	0xc4								; case 0x5
00b2 7813       |x   |		Jump	0xc6								; case 0x6
00b3 7816       |x   |		Jump	0xca								; case 0x7
00b4 4302       |C   |		.XXX[0x1]
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 0091 047d  |   }|		Action	Push_String_Extended_Indexed,0x47d				; "DEST_SOCKET_FIELD"
00b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 00e0       |    |		Load_Encached	Standard_Cache
00bc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be 00da       |    |		Load_Top	At_Offset_2
00bf 00e0       |    |		Load_Encached	Standard_Cache
00c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 e20e       |    |		Load	0x1,0xe
00c7 00dc       |    |		Load_Top	At_Offset_4
00c8 0267       | g  |		Execute	Discrete,Predecessor
00c9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ca e20e       |    |		Load	0x1,0xe
00cb 00dc       |    |		Load_Top	At_Offset_4
00cc 0268       | h  |		Execute	Discrete,Successor
00cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 4607       |F   |		Jump_Case	0x8
00d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00d5 7807       |x   |		Jump	0xdd								; case 0x1
00d6 780a       |x   |		Jump	0xe1								; case 0x2
00d7 780e       |x   |		Jump	0xe6								; case 0x3
00d8 7811       |x   |		Jump	0xea								; case 0x4
00d9 7812       |x   |		Jump	0xec								; case 0x5
00da 7813       |x   |		Jump	0xee								; case 0x6
00db 7816       |x   |		Jump	0xf2								; case 0x7
00dc 4302       |C   |		.XXX[0x1]
00dd 00da       |    |		Load_Top	At_Offset_2
00de 0091 047f  |    |		Action	Push_String_Extended_Indexed,0x47f				; "DEST_HOST_FIELD"
00e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 00db       |    |		Load_Top	At_Offset_3
00e3 00e0       |    |		Load_Encached	Standard_Cache
00e4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 00e0       |    |		Load_Encached	Standard_Cache
00e8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ee e20f       |    |		Load	0x1,0xf
00ef 00dc       |    |		Load_Top	At_Offset_4
00f0 0267       | g  |		Execute	Discrete,Predecessor
00f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f2 e20f       |    |		Load	0x1,0xf
00f3 00dc       |    |		Load_Top	At_Offset_4
00f4 0268       | h  |		Execute	Discrete,Successor
00f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4607       |F   |		Jump_Case	0x8
00fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00fd 7807       |x   |		Jump	0x105								; case 0x1
00fe 780a       |x   |		Jump	0x109								; case 0x2
00ff 780e       |x   |		Jump	0x10e								; case 0x3
0100 7811       |x   |		Jump	0x112								; case 0x4
0101 7812       |x   |		Jump	0x114								; case 0x5
0102 7813       |x   |		Jump	0x116								; case 0x6
0103 7816       |x   |		Jump	0x11a								; case 0x7
0104 4302       |C   |		.XXX[0x1]
0105 00da       |    |		Load_Top	At_Offset_2
0106 0091 0481  |    |		Action	Push_String_Extended_Indexed,0x481				; "PHASE_FIELD"
0108 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0109 00db       |    |		Load_Top	At_Offset_3
010a 00db       |    |		Load_Top	At_Offset_3
010b 00e0       |    |		Load_Encached	Standard_Cache
010c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
010d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010e 00da       |    |		Load_Top	At_Offset_2
010f 00e0       |    |		Load_Encached	Standard_Cache
0110 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0111 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0112 00db       |    |		Load_Top	At_Offset_3
0113 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0114 00db       |    |		Load_Top	At_Offset_3
0115 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0116 e210       |    |		Load	0x1,0x10
0117 00dc       |    |		Load_Top	At_Offset_4
0118 0267       | g  |		Execute	Discrete,Predecessor
0119 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011a e210       |    |		Load	0x1,0x10
011b 00dc       |    |		Load_Top	At_Offset_4
011c 0268       | h  |		Execute	Discrete,Successor
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 0000 0000  |    |		.XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0136       | 6  |		.CONST	0x0136								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 4801       |H   |		Short_Literal	0x1
0124 4801       |H   |		Short_Literal	0x1
0125 00e9       |    |		Load_Encached	String_Cache
0126 035b       | [  |		Declare_Type	Array,Constrained
0127 0337       | 7  |		Declare_Variable	Array
0128 4801       |H   |		Short_Literal	0x1
0129 4801       |H   |		Short_Literal	0x1
012a e006       |    |		Load	0x0,0x6
012b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
012c 035b       | [  |		Declare_Type	Array,Constrained
012d 0337       | 7  |		Declare_Variable	Array
012e 48ff       |H   |		Short_Literal	0xff
012f 4801       |H   |		Short_Literal	0x1
0130 00da       |    |		Load_Top	At_Offset_2
0131 01d6       |    |		Execute	Vector,Field_Write
0132 e007       |    |		Load	0x0,0x7
0133 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0134 00d9       |    |		Load_Top	At_Offset_1
0135 01d4       |    |		Execute	Vector,Structure_Write
0136			BODY_0120:
0136 00db       |    |		Load_Top	At_Offset_3
0137 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0138 e003       |    |		Load	0x0,0x3
0139 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
013a 00d9       |    |		Load_Top	At_Offset_1
013b 01cc       |    |		Execute	Vector,Catenate
013c e5ff       |    |		Load	0x2,-0x1
013d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
013e e007       |    |		Load	0x0,0x7
013f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0140 01cc       |    |		Execute	Vector,Catenate
0141 00d9       |    |		Load_Top	At_Offset_1
0142 01cc       |    |		Execute	Vector,Catenate
0143 e5ff       |    |		Load	0x2,-0x1
0144 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0145 e008       |    |		Load	0x0,0x8
0146 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0147 01cc       |    |		Execute	Vector,Catenate
0148 00d9       |    |		Load_Top	At_Offset_1
0149 01cc       |    |		Execute	Vector,Catenate
014a e5ff       |    |		Load	0x2,-0x1
014b 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
014c e007       |    |		Load	0x0,0x7
014d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
014e 01cc       |    |		Execute	Vector,Catenate
014f 00d9       |    |		Load_Top	At_Offset_1
0150 01cc       |    |		Execute	Vector,Catenate
0151 e5ff       |    |		Load	0x2,-0x1
0152 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0153 e008       |    |		Load	0x0,0x8
0154 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0155 01cc       |    |		Execute	Vector,Catenate
0156 00d9       |    |		Load_Top	At_Offset_1
0157 01cc       |    |		Execute	Vector,Catenate
0158 e5ff       |    |		Load	0x2,-0x1
0159 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
015a 00e0       |    |		Load_Encached	Standard_Cache
015b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
015c 01cc       |    |		Execute	Vector,Catenate
015d 00d9       |    |		Load_Top	At_Offset_1
015e 01cc       |    |		Execute	Vector,Catenate
015f e5ff       |    |		Load	0x2,-0x1
0160 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0161 00e0       |    |		Load_Encached	Standard_Cache
0162 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0163 01cc       |    |		Execute	Vector,Catenate
0164 00d9       |    |		Load_Top	At_Offset_1
0165 01cc       |    |		Execute	Vector,Catenate
0166 e5ff       |    |		Load	0x2,-0x1
0167 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0168 e003       |    |		Load	0x0,0x3
0169 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016a 01cc       |    |		Execute	Vector,Catenate
016b 00d9       |    |		Load_Top	At_Offset_1
016c 01cc       |    |		Execute	Vector,Catenate
016d e5ff       |    |		Load	0x2,-0x1
016e 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
016f e003       |    |		Load	0x0,0x3
0170 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0171 01cc       |    |		Execute	Vector,Catenate
0172 00d9       |    |		Load_Top	At_Offset_1
0173 01cc       |    |		Execute	Vector,Catenate
0174 e5ff       |    |		Load	0x2,-0x1
0175 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0176 e003       |    |		Load	0x0,0x3
0177 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0178 01cc       |    |		Execute	Vector,Catenate
0179 00d9       |    |		Load_Top	At_Offset_1
017a 01cc       |    |		Execute	Vector,Catenate
017b 00e9       |    |		Load_Encached	String_Cache
017c 01c6       |    |		Execute	Vector,Convert_To_Formal
017d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00da       |    |		Load_Top	At_Offset_2
0184 e003       |    |		Load	0x0,0x3
0185 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0186 e5f5       |    |		Load	0x2,-0xb
0187 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0188 00db       |    |		Load_Top	At_Offset_3
0189 e5f5       |    |		Load	0x2,-0xb
018a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
018b e5fd       |    |		Load	0x2,-0x3
018c e5f5       |    |		Load	0x2,-0xb
018d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018e e5fc       |    |		Load	0x2,-0x4
018f e5f5       |    |		Load	0x2,-0xb
0190 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0191 e5fb       |    |		Load	0x2,-0x5
0192 e5f5       |    |		Load	0x2,-0xb
0193 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0194 e5fa       |    |		Load	0x2,-0x6
0195 e5f5       |    |		Load	0x2,-0xb
0196 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0197 e5f9       |    |		Load	0x2,-0x7
0198 e5f5       |    |		Load	0x2,-0xb
0199 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
019a e5f8       |    |		Load	0x2,-0x8
019b e003       |    |		Load	0x0,0x3
019c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
019d e5f5       |    |		Load	0x2,-0xb
019e 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
019f e5f7       |    |		Load	0x2,-0x9
01a0 e003       |    |		Load	0x0,0x3
01a1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a2 e5f5       |    |		Load	0x2,-0xb
01a3 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01a4 e5f6       |    |		Load	0x2,-0xa
01a5 e003       |    |		Load	0x0,0x3
01a6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a7 e5f5       |    |		Load	0x2,-0xb
01a8 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
01a9 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5       |    |		.CONST	0x01b5								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 e221       | !  |		Load	0x1,0x21
01b4 0322       | "  |		Declare_Variable	Record
01b5			BODY_01b0:
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 e5f6       |    |		Load	0x2,-0xa
01b7 e5f7       |    |		Load	0x2,-0x9
01b8 e5f8       |    |		Load	0x2,-0x8
01b9 e5f9       |    |		Load	0x2,-0x7
01ba e5fa       |    |		Load	0x2,-0x6
01bb e5fb       |    |		Load	0x2,-0x5
01bc e5fc       |    |		Load	0x2,-0x4
01bd e5fd       |    |		Load	0x2,-0x3
01be e5fe       |    |		Load	0x2,-0x2
01bf e5ff       |    |		Load	0x2,-0x1
01c0 8213       |    |		Call	0x1,0x13
01c1 00d1       |    |		Pop_Control	Pop_Count_1
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 440a       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xa
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd       |    |		.CONST	0x01cd								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb 00e4       |    |		Load_Encached	Positive_Cache
01cc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01cd			BODY_01c8:
01cd e003       |    |		Load	0x0,0x3
01ce 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01cf 00d9       |    |		Load_Top	At_Offset_1
01d0 e5ff       |    |		Load	0x2,-0x1
01d1 8222       | "  |		Call	0x1,0x22
01d2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01d5 e5fe       |    |		Load	0x2,-0x2
01d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d7 00d9       |    |		Load_Top	At_Offset_1
01d8 e5ff       |    |		Load	0x2,-0x1
01d9 8223       | #  |		Call	0x1,0x23
01da 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01db 00d1       |    |		Pop_Control	Pop_Count_1
01dc e5fe       |    |		Load	0x2,-0x2
01dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01de 00d9       |    |		Load_Top	At_Offset_1
01df e5ff       |    |		Load	0x2,-0x1
01e0 8223       | #  |		Call	0x1,0x23
01e1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01e2 00d1       |    |		Pop_Control	Pop_Count_1
01e3 e5fe       |    |		Load	0x2,-0x2
01e4 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01e5 00d9       |    |		Load_Top	At_Offset_1
01e6 e5ff       |    |		Load	0x2,-0x1
01e7 8223       | #  |		Call	0x1,0x23
01e8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01e9 00d1       |    |		Pop_Control	Pop_Count_1
01ea e5fe       |    |		Load	0x2,-0x2
01eb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01ec 00d9       |    |		Load_Top	At_Offset_1
01ed e5ff       |    |		Load	0x2,-0x1
01ee 8223       | #  |		Call	0x1,0x23
01ef 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01f0 00d1       |    |		Pop_Control	Pop_Count_1
01f1 00e3       |    |		Load_Encached	Natural_Cache
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 e5ff       |    |		Load	0x2,-0x1
01f4 8224       | $  |		Call	0x1,0x24
01f5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01f6 e5fe       |    |		Load	0x2,-0x2
01f7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01f8 00e3       |    |		Load_Encached	Natural_Cache
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa e5ff       |    |		Load	0x2,-0x1
01fb 8224       | $  |		Call	0x1,0x24
01fc 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01fd e5fe       |    |		Load	0x2,-0x2
01fe 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01ff e003       |    |		Load	0x0,0x3
0200 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0201 00d9       |    |		Load_Top	At_Offset_1
0202 e5ff       |    |		Load	0x2,-0x1
0203 8222       | "  |		Call	0x1,0x22
0204 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0205 e5fe       |    |		Load	0x2,-0x2
0206 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0207 e003       |    |		Load	0x0,0x3
0208 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0209 00d9       |    |		Load_Top	At_Offset_1
020a e5ff       |    |		Load	0x2,-0x1
020b 8222       | "  |		Call	0x1,0x22
020c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
020d e5fe       |    |		Load	0x2,-0x2
020e 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
020f e003       |    |		Load	0x0,0x3
0210 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0211 00d9       |    |		Load_Top	At_Offset_1
0212 e5ff       |    |		Load	0x2,-0x1
0213 8222       | "  |		Call	0x1,0x22
0214 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0215 e5fe       |    |		Load	0x2,-0x2
0216 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0217 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 025e       | ^  |		.CONST	0x025e								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0004       |    |		.CONST	0x0004								; Number of locals
021b			INIT_0218:
021b 4900       |I   |		Short_Literal	0x100
021c 00e4       |    |		Load_Encached	Positive_Cache
021d 03f1       |    |		Declare_Variable	Discrete,With_Value
021e 00db       |    |		Load_Top	At_Offset_3
021f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0220 e003       |    |		Load	0x0,0x3
0221 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0222 0a16       |    |		Execute_Immediate	Plus,0x16
0223 e5ff       |    |		Load	0x2,-0x1
0224 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0225 00e0       |    |		Load_Encached	Standard_Cache
0226 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0227 01db       |    |		Execute	Vector,Length
0228 0273       | s  |		Execute	Discrete,Plus
0229 e5ff       |    |		Load	0x2,-0x1
022a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
022b 00e0       |    |		Load_Encached	Standard_Cache
022c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
022d 01db       |    |		Execute	Vector,Length
022e 0273       | s  |		Execute	Discrete,Plus
022f e5ff       |    |		Load	0x2,-0x1
0230 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0231 e003       |    |		Load	0x0,0x3
0232 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0233 0273       | s  |		Execute	Discrete,Plus
0234 e5ff       |    |		Load	0x2,-0x1
0235 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0236 e003       |    |		Load	0x0,0x3
0237 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0238 0273       | s  |		Execute	Discrete,Plus
0239 e5ff       |    |		Load	0x2,-0x1
023a 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
023b e003       |    |		Load	0x0,0x3
023c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023d 0273       | s  |		Execute	Discrete,Plus
023e 00e4       |    |		Load_Encached	Positive_Cache
023f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0240 00d8       |    |		Load_Top	At_Offset_0
0241 0a01       |    |		Execute_Immediate	Plus,0x1
0242 00d8       |    |		Load_Top	At_Offset_0
0243 00e2       |    |		Load_Encached	Integer_Cache
0244 0260       | `  |		Execute	Discrete,In_Type
0245 7001       |p   |		Jump_Nonzero	0x247
0246 0801       |    |		Execute_Immediate	Raise,0x1
0247 00da       |    |		Load_Top	At_Offset_2
0248 e002       |    |		Load	0x0,0x2
0249 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024a 035b       | [  |		Declare_Type	Array,Constrained
024b 0337       | 7  |		Declare_Variable	Array
024c 00d9       |    |		Load_Top	At_Offset_1
024d 0a01       |    |		Execute_Immediate	Plus,0x1
024e 00db       |    |		Load_Top	At_Offset_3
024f e006       |    |		Load	0x0,0x6
0250 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0251 035b       | [  |		Declare_Type	Array,Constrained
0252 0337       | 7  |		Declare_Variable	Array
0253 00d8       |    |		Load_Top	At_Offset_0
0254 01d9       |    |		Execute	Vector,Reverse_Bounds
0255 0263       | c  |		Execute	Discrete,Above_Bound
0256 7005       |p   |		Jump_Nonzero	0x25c
0257 4800       |H   |		Short_Literal	0x0
0258 00d9       |    |		Load_Top	At_Offset_1
0259 e405       |    |		Load	0x2,0x5
025a 01d6       |    |		Execute	Vector,Field_Write
025b 3ffb       |?   |		Loop_Increasing	0x257
025c 00d9       |    |		Load_Top	At_Offset_1
025d 01d4       |    |		Execute	Vector,Structure_Write
025e			BODY_0218:
025e 48ff       |H   |		Short_Literal	0xff
025f 48ff       |H   |		Short_Literal	0xff
0260 48ff       |H   |		Short_Literal	0xff
0261 48ff       |H   |		Short_Literal	0xff
0262 48ff       |H   |		Short_Literal	0xff
0263 48ff       |H   |		Short_Literal	0xff
0264 48ff       |H   |		Short_Literal	0xff
0265 48ff       |H   |		Short_Literal	0xff
0266 48ff       |H   |		Short_Literal	0xff
0267 48ff       |H   |		Short_Literal	0xff
0268 e5ff       |    |		Load	0x2,-0x1
0269 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
026a e003       |    |		Load	0x0,0x3
026b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
026c e007       |    |		Load	0x0,0x7
026d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
026e 01cb       |    |		Execute	Vector,Append
026f e5ff       |    |		Load	0x2,-0x1
0270 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0271 01cc       |    |		Execute	Vector,Catenate
0272 01cb       |    |		Execute	Vector,Append
0273 e5ff       |    |		Load	0x2,-0x1
0274 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0275 01cc       |    |		Execute	Vector,Catenate
0276 01cb       |    |		Execute	Vector,Append
0277 e5ff       |    |		Load	0x2,-0x1
0278 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0279 01cc       |    |		Execute	Vector,Catenate
027a 01cb       |    |		Execute	Vector,Append
027b e5ff       |    |		Load	0x2,-0x1
027c 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
027d 01cc       |    |		Execute	Vector,Catenate
027e 01cb       |    |		Execute	Vector,Append
027f e5ff       |    |		Load	0x2,-0x1
0280 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0281 00e0       |    |		Load_Encached	Standard_Cache
0282 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0283 e007       |    |		Load	0x0,0x7
0284 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0285 01cc       |    |		Execute	Vector,Catenate
0286 01cb       |    |		Execute	Vector,Append
0287 e5ff       |    |		Load	0x2,-0x1
0288 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0289 00e0       |    |		Load_Encached	Standard_Cache
028a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
028b e007       |    |		Load	0x0,0x7
028c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028d 01cc       |    |		Execute	Vector,Catenate
028e 01cb       |    |		Execute	Vector,Append
028f e5ff       |    |		Load	0x2,-0x1
0290 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0291 e003       |    |		Load	0x0,0x3
0292 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0293 e007       |    |		Load	0x0,0x7
0294 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0295 01cc       |    |		Execute	Vector,Catenate
0296 01cb       |    |		Execute	Vector,Append
0297 e5ff       |    |		Load	0x2,-0x1
0298 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0299 e003       |    |		Load	0x0,0x3
029a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
029b e007       |    |		Load	0x0,0x7
029c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
029d 01cc       |    |		Execute	Vector,Catenate
029e 01cb       |    |		Execute	Vector,Append
029f e5ff       |    |		Load	0x2,-0x1
02a0 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02a1 e003       |    |		Load	0x0,0x3
02a2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02a3 e007       |    |		Load	0x0,0x7
02a4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02a5 01cc       |    |		Execute	Vector,Catenate
02a6 01cb       |    |		Execute	Vector,Append
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 01cc       |    |		Execute	Vector,Catenate
02a9 e5fe       |    |		Load	0x2,-0x2
02aa 01d4       |    |		Execute	Vector,Structure_Write
02ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ac 0000 0000  |    |		.BLANK	0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 4603       |F   |		Jump_Case	0x4
02b5 7811       |x   |		Jump	0x2c7								; case 0x0
02b6 781e       |x   |		Jump	0x2d5								; case 0x1
02b7 782b       |x+  |		Jump	0x2e3								; case 0x2
02b8 7800       |x   |		Jump	0x2b9								; case 0x3
02b9 e5fd       |    |		Load	0x2,-0x3
02ba 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02bb e003       |    |		Load	0x0,0x3
02bc 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02bd e5fd       |    |		Load	0x2,-0x3
02be 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02bf e5fd       |    |		Load	0x2,-0x3
02c0 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02c1 e5fe       |    |		Load	0x2,-0x2
02c2 e003       |    |		Load	0x0,0x3
02c3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02c4 e5fd       |    |		Load	0x2,-0x3
02c5 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02c6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c7 e5fd       |    |		Load	0x2,-0x3
02c8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c9 e003       |    |		Load	0x0,0x3
02ca 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02cb e5fd       |    |		Load	0x2,-0x3
02cc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02cd e5fd       |    |		Load	0x2,-0x3
02ce 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02cf e5fe       |    |		Load	0x2,-0x2
02d0 e003       |    |		Load	0x0,0x3
02d1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02d2 e5fd       |    |		Load	0x2,-0x3
02d3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02d4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d5 e5fd       |    |		Load	0x2,-0x3
02d6 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02d7 e003       |    |		Load	0x0,0x3
02d8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02d9 e5fd       |    |		Load	0x2,-0x3
02da 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02db e5fd       |    |		Load	0x2,-0x3
02dc 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02dd e5fe       |    |		Load	0x2,-0x2
02de e003       |    |		Load	0x0,0x3
02df 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02e0 e5fd       |    |		Load	0x2,-0x3
02e1 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
02e5 e003       |    |		Load	0x0,0x3
02e6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02e7 e5fd       |    |		Load	0x2,-0x3
02e8 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02e9 e5fd       |    |		Load	0x2,-0x3
02ea 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
02eb e5fe       |    |		Load	0x2,-0x2
02ec e003       |    |		Load	0x0,0x3
02ed 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02ee e5fd       |    |		Load	0x2,-0x3
02ef 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02f0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f1 0000 0000  |    |		.BLANK	0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 4603       |F   |		Jump_Case	0x4
02fd 7811       |x   |		Jump	0x30f								; case 0x0
02fe 781e       |x   |		Jump	0x31d								; case 0x1
02ff 782b       |x+  |		Jump	0x32b								; case 0x2
0300 7800       |x   |		Jump	0x301								; case 0x3
0301 e5fd       |    |		Load	0x2,-0x3
0302 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0303 e003       |    |		Load	0x0,0x3
0304 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0305 e5fd       |    |		Load	0x2,-0x3
0306 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0307 e5fd       |    |		Load	0x2,-0x3
0308 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0309 e5fe       |    |		Load	0x2,-0x2
030a e003       |    |		Load	0x0,0x3
030b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030c e5fd       |    |		Load	0x2,-0x3
030d 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
030e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030f e5fd       |    |		Load	0x2,-0x3
0310 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0311 e003       |    |		Load	0x0,0x3
0312 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0313 e5fd       |    |		Load	0x2,-0x3
0314 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0315 e5fd       |    |		Load	0x2,-0x3
0316 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0317 e5fe       |    |		Load	0x2,-0x2
0318 e003       |    |		Load	0x0,0x3
0319 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
031a e5fd       |    |		Load	0x2,-0x3
031b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
031c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
031d e5fd       |    |		Load	0x2,-0x3
031e 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
031f e003       |    |		Load	0x0,0x3
0320 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0321 e5fd       |    |		Load	0x2,-0x3
0322 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0323 e5fd       |    |		Load	0x2,-0x3
0324 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0325 e5fe       |    |		Load	0x2,-0x2
0326 e003       |    |		Load	0x0,0x3
0327 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0328 e5fd       |    |		Load	0x2,-0x3
0329 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
032a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
032b e5fd       |    |		Load	0x2,-0x3
032c 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
032d e003       |    |		Load	0x0,0x3
032e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
032f e5fd       |    |		Load	0x2,-0x3
0330 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0331 e5fd       |    |		Load	0x2,-0x3
0332 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0333 e5fe       |    |		Load	0x2,-0x2
0334 e003       |    |		Load	0x0,0x3
0335 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0336 e5fd       |    |		Load	0x2,-0x3
0337 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0338 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0339 0000 0000  |    |		.BLANK	0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 6804       |h   |		Jump_Zero	0x349
0345 00db       |    |		Load_Top	At_Offset_3
0346 e5fd       |    |		Load	0x2,-0x3
0347 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0348 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0349 00db       |    |		Load_Top	At_Offset_3
034a e5fd       |    |		Load	0x2,-0x3
034b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
034c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2
0354 6804       |h   |		Jump_Zero	0x359
0355 00db       |    |		Load_Top	At_Offset_3
0356 e5fd       |    |		Load	0x2,-0x3
0357 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0358 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0359 00db       |    |		Load_Top	At_Offset_3
035a e5fd       |    |		Load	0x2,-0x3
035b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
035c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
035d 0000 0000  |    |		.XXX[0x3]
035f 0000       |    |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 6804       |h   |		Jump_Zero	0x369
0365 00db       |    |		Load_Top	At_Offset_3
0366 e5fd       |    |		Load	0x2,-0x3
0367 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0368 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0369 00db       |    |		Load_Top	At_Offset_3
036a e5fd       |    |		Load	0x2,-0x3
036b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
036c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
036d 0000 0000  |    |		.XXX[0x3]
036f 0000       |    |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 00da       |    |		Load_Top	At_Offset_2
0374 4603       |F   |		Jump_Case	0x4
0375 781e       |x   |		Jump	0x394								; case 0x0
0376 7826       |x&  |		Jump	0x39d								; case 0x1
0377 782e       |x.  |		Jump	0x3a6								; case 0x2
0378 7800       |x   |		Jump	0x379								; case 0x3
0379 00db       |    |		Load_Top	At_Offset_3
037a 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
037b e003       |    |		Load	0x0,0x3
037c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
037d e5fe       |    |		Load	0x2,-0x2
037e 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
037f e003       |    |		Load	0x0,0x3
0380 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0381 0a01       |    |		Execute_Immediate	Plus,0x1
0382 4900       |I   |		Short_Literal	0x100
0383 00e9       |    |		Load_Encached	String_Cache
0384 035b       | [  |		Declare_Type	Array,Constrained
0385 0337       | 7  |		Declare_Variable	Array
0386 4900       |I   |		Short_Literal	0x100
0387 00d9       |    |		Load_Top	At_Offset_1
0388 01dd       |    |		Execute	Vector,First
0389 0263       | c  |		Execute	Discrete,Above_Bound
038a 7005       |p   |		Jump_Nonzero	0x390
038b 4820       |H   |		Short_Literal	0x20
038c 00d9       |    |		Load_Top	At_Offset_1
038d e403       |    |		Load	0x2,0x3
038e 01d6       |    |		Execute	Vector,Field_Write
038f 3ffb       |?   |		Loop_Increasing	0x38b
0390 01cc       |    |		Execute	Vector,Catenate
0391 e5fd       |    |		Load	0x2,-0x3
0392 01d4       |    |		Execute	Vector,Structure_Write
0393 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0394 4808       |H   |		Short_Literal	0x8
0395 4801       |H   |		Short_Literal	0x1
0396 e5fe       |    |		Load	0x2,-0x2
0397 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0398 e003       |    |		Load	0x0,0x3
0399 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
039a e5fd       |    |		Load	0x2,-0x3
039b 01d4       |    |		Execute	Vector,Structure_Write
039c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
039d 4804       |H   |		Short_Literal	0x4
039e 4801       |H   |		Short_Literal	0x1
039f e5fe       |    |		Load	0x2,-0x2
03a0 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
03a1 e003       |    |		Load	0x0,0x3
03a2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03a3 e5fd       |    |		Load	0x2,-0x3
03a4 01d4       |    |		Execute	Vector,Structure_Write
03a5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a6 4804       |H   |		Short_Literal	0x4
03a7 4801       |H   |		Short_Literal	0x1
03a8 e5fe       |    |		Load	0x2,-0x2
03a9 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
03aa e003       |    |		Load	0x0,0x3
03ab 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03ac e5fd       |    |		Load	0x2,-0x3
03ad 01d4       |    |		Execute	Vector,Structure_Write
03ae 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03af 0000       |    |		.XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 4603       |F   |		Jump_Case	0x4
03b5 780a       |x   |		Jump	0x3c0								; case 0x0
03b6 7814       |x   |		Jump	0x3cb								; case 0x1
03b7 781e       |x   |		Jump	0x3d6								; case 0x2
03b8 7800       |x   |		Jump	0x3b9								; case 0x3
03b9 e5fd       |    |		Load	0x2,-0x3
03ba e5fe       |    |		Load	0x2,-0x2
03bb 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03bc e003       |    |		Load	0x0,0x3
03bd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03be c5fd       |    |		Store	0x2,-0x3
03bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03c0 e5fd       |    |		Load	0x2,-0x3
03c1 4808       |H   |		Short_Literal	0x8
03c2 4801       |H   |		Short_Literal	0x1
03c3 e5fe       |    |		Load	0x2,-0x2
03c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c5 e003       |    |		Load	0x0,0x3
03c6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03c7 e003       |    |		Load	0x0,0x3
03c8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03c9 c5fd       |    |		Store	0x2,-0x3
03ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03cb e5fd       |    |		Load	0x2,-0x3
03cc 4804       |H   |		Short_Literal	0x4
03cd 4801       |H   |		Short_Literal	0x1
03ce e5fe       |    |		Load	0x2,-0x2
03cf 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
03d0 e003       |    |		Load	0x0,0x3
03d1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03d2 e003       |    |		Load	0x0,0x3
03d3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03d4 c5fd       |    |		Store	0x2,-0x3
03d5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d6 e5fd       |    |		Load	0x2,-0x3
03d7 4804       |H   |		Short_Literal	0x4
03d8 4801       |H   |		Short_Literal	0x1
03d9 e5fe       |    |		Load	0x2,-0x2
03da 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
03db e003       |    |		Load	0x0,0x3
03dc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03dd e003       |    |		Load	0x0,0x3
03de 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03df c5fd       |    |		Store	0x2,-0x3
03e0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03e1 0000 0000  |    |		.BLANK	0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 6805       |h   |		Jump_Zero	0x3f2
03ed 00db       |    |		Load_Top	At_Offset_3
03ee 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
03ef e5fd       |    |		Load	0x2,-0x3
03f0 01d4       |    |		Execute	Vector,Structure_Write
03f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03f2 00db       |    |		Load_Top	At_Offset_3
03f3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03f4 e5fd       |    |		Load	0x2,-0x3
03f5 01d4       |    |		Execute	Vector,Structure_Write
03f6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03f7 0000       |    |		.XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 6805       |h   |		Jump_Zero	0x402
03fd 00db       |    |		Load_Top	At_Offset_3
03fe 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
03ff e5fd       |    |		Load	0x2,-0x3
0400 01d4       |    |		Execute	Vector,Structure_Write
0401 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0402 00db       |    |		Load_Top	At_Offset_3
0403 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0404 e5fd       |    |		Load	0x2,-0x3
0405 01d4       |    |		Execute	Vector,Structure_Write
0406 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00da       |    |		Load_Top	At_Offset_2
040c 6804       |h   |		Jump_Zero	0x411
040d 00db       |    |		Load_Top	At_Offset_3
040e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
040f a5fd       |    |		Store_Unchecked	0x2,-0x3
0410 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0411 00db       |    |		Load_Top	At_Offset_3
0412 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0413 a5fd       |    |		Store_Unchecked	0x2,-0x3
0414 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041e       |    |		.CONST	0x041e								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b 00db       |    |		Load_Top	At_Offset_3
041c 00e4       |    |		Load_Encached	Positive_Cache
041d 03f1       |    |		Declare_Variable	Discrete,With_Value
041e			BODY_0418:
041e 00cf       |    |		Action	Mark_Auxiliary
041f 7804       |x   |		Jump	0x424
0420 00d9       |    |		Load_Top	At_Offset_1
0421 0a01       |    |		Execute_Immediate	Plus,0x1
0422 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0423 00c9       |    |		Action	Pop_Auxiliary_Loop
0424 00d9       |    |		Load_Top	At_Offset_1
0425 e5ff       |    |		Load	0x2,-0x1
0426 01d7       |    |		Execute	Vector,Field_Read
0427 0fff       |    |		Execute_Immediate	Equal,-0x1
0428 6ff7       |o   |		Jump_Zero	0x420
0429 00ce       |    |		Action	Pop_Auxiliary
042a e5fe       |    |		Load	0x2,-0x2
042b 00d9       |    |		Load_Top	At_Offset_1
042c 0aff       |    |		Execute_Immediate	Plus,-0x1
042d e5ff       |    |		Load	0x2,-0x1
042e 01cf       |    |		Execute	Vector,Slice_Read
042f e007       |    |		Load	0x0,0x7
0430 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0431 e003       |    |		Load	0x0,0x3
0432 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0433 a5fd       |    |		Store_Unchecked	0x2,-0x3
0434 00d8       |    |		Load_Top	At_Offset_0
0435 0a01       |    |		Execute_Immediate	Plus,0x1
0436 c5fe       |    |		Store	0x2,-0x2
0437 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043e       | >  |		.CONST	0x043e								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0002       |    |		.CONST	0x0002								; Number of locals
043b			INIT_0438:
043b 00db       |    |		Load_Top	At_Offset_3
043c 00e4       |    |		Load_Encached	Positive_Cache
043d 03f1       |    |		Declare_Variable	Discrete,With_Value
043e			BODY_0438:
043e 00cf       |    |		Action	Mark_Auxiliary
043f 7804       |x   |		Jump	0x444
0440 00d9       |    |		Load_Top	At_Offset_1
0441 0a01       |    |		Execute_Immediate	Plus,0x1
0442 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0443 00c9       |    |		Action	Pop_Auxiliary_Loop
0444 00d9       |    |		Load_Top	At_Offset_1
0445 e5ff       |    |		Load	0x2,-0x1
0446 01d7       |    |		Execute	Vector,Field_Read
0447 0fff       |    |		Execute_Immediate	Equal,-0x1
0448 6ff7       |o   |		Jump_Zero	0x440
0449 00ce       |    |		Action	Pop_Auxiliary
044a e5fe       |    |		Load	0x2,-0x2
044b 00d9       |    |		Load_Top	At_Offset_1
044c 0aff       |    |		Execute_Immediate	Plus,-0x1
044d e5ff       |    |		Load	0x2,-0x1
044e 01cf       |    |		Execute	Vector,Slice_Read
044f e5fd       |    |		Load	0x2,-0x3
0450 01d4       |    |		Execute	Vector,Structure_Write
0451 00d8       |    |		Load_Top	At_Offset_0
0452 0a01       |    |		Execute_Immediate	Plus,0x1
0453 c5fe       |    |		Store	0x2,-0x2
0454 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0455 0000 0000  |    |		.XXX[0x3]
0457 0000       |    |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045e       | ^  |		.CONST	0x045e								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0002       |    |		.CONST	0x0002								; Number of locals
045b			INIT_0458:
045b 00db       |    |		Load_Top	At_Offset_3
045c 00e4       |    |		Load_Encached	Positive_Cache
045d 03f1       |    |		Declare_Variable	Discrete,With_Value
045e			BODY_0458:
045e 00cf       |    |		Action	Mark_Auxiliary
045f 7804       |x   |		Jump	0x464
0460 00d9       |    |		Load_Top	At_Offset_1
0461 0a01       |    |		Execute_Immediate	Plus,0x1
0462 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0463 00c9       |    |		Action	Pop_Auxiliary_Loop
0464 00d9       |    |		Load_Top	At_Offset_1
0465 e5ff       |    |		Load	0x2,-0x1
0466 01d7       |    |		Execute	Vector,Field_Read
0467 0fff       |    |		Execute_Immediate	Equal,-0x1
0468 6ff7       |o   |		Jump_Zero	0x460
0469 00ce       |    |		Action	Pop_Auxiliary
046a e5fe       |    |		Load	0x2,-0x2
046b 00d9       |    |		Load_Top	At_Offset_1
046c 0aff       |    |		Execute_Immediate	Plus,-0x1
046d e5ff       |    |		Load	0x2,-0x1
046e 01cf       |    |		Execute	Vector,Slice_Read
046f e007       |    |		Load	0x0,0x7
0470 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0471 00e2       |    |		Load_Encached	Integer_Cache
0472 00e0       |    |		Load_Encached	Standard_Cache
0473 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0474 c5fd       |    |		Store	0x2,-0x3
0475 00d8       |    |		Load_Top	At_Offset_0
0476 0a01       |    |		Execute_Immediate	Plus,0x1
0477 c5fe       |    |		Store	0x2,-0x2
0478 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0479 ; --------------------------------------------------------------------------------------
0479 ; STRING TABLE
0479 ; --------------------------------------------------------------------------------------
0479 0016       |    |		.STRTAB	0x0016->0x0484							; "NOM_EXP_FIELD"
047a 0021       | !  |		.STRTAB	0x0021->0x048a							; "SERVICE_KIND_FIELD"
047b 0031       | 1  |		.STRTAB	0x0031->0x0493							; "SERVICE_FIELD"
047c 003c       | <  |		.STRTAB	0x003c->0x049a							; "MESSAGE_FIELD"
047d 0047       | G  |		.STRTAB	0x0047->0x04a0							; "DEST_SOCKET_FIELD"
047e 0056       | V  |		.STRTAB	0x0056->0x04a9							; "EXP_SOCKET_FIELD"
047f 0064       | d  |		.STRTAB	0x0064->0x04b1							; "DEST_HOST_FIELD"
0480 0071       | q  |		.STRTAB	0x0071->0x04b8							; "EXP_HOST_FIELD"
0481 007d       | }  |		.STRTAB	0x007d->0x04bf							; "PHASE_FIELD"
0482 0086       |    |		.STRTAB	0x0086->0x04c5							; "MESSAGE_NUMBER_FIELD"
0483 0098       |    |		.STREND 0x0098->0x04cf
0484 4e4f 4d5f  |NOM_|		.STRTAB_STRINGS
04cf 0000       |    |		.XXX[0x1]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug Table
04d0 ; --------------------------------------------------------------------------------------
04d0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x416f,0x0000,0x0001,0x0018
04d6 000b 0536  |   6|		.DBG4T	0x000b,0x0536,0x8000,0x8000
04da 0054 0562  | T b|		.DBG4T	0x0054,0x0562,0x8000,0x8000
04de 0083 0000  |    |		.DBG4T	0x0083,0x0000,0x0005,0x0000
04e2 00ab 0000  |    |		.DBG4T	0x00ab,0x0000,0x0005,0x0000
04e6 00d3 0000  |    |		.DBG4T	0x00d3,0x0000,0x0005,0x0000
04ea 00fb 0000  |    |		.DBG4T	0x00fb,0x0000,0x0005,0x0000
04ee 0123 0588  | #  |		.DBG4T	0x0123,0x0588,0x0002,0x0000
04f2 0183 058c  |    |		.DBG4T	0x0183,0x058c,0x0001,0x0000
04f6 01b3 0598  |    |		.DBG4T	0x01b3,0x0598,0x0002,0x0000
04fa 01cb 059d  |    |		.DBG4T	0x01cb,0x059d,0x0001,0x0000
04fe 021b 05aa  |    |		.DBG4T	0x021b,0x05aa,0x0001,0x0000
0502 02b3 05b0  |    |		.DBG4T	0x02b3,0x05b0,0x0001,0x4000
0506 02fb 05c4  |    |		.DBG4T	0x02fb,0x05c4,0x0001,0x4000
050a 0343 05d8  | C  |		.DBG4T	0x0343,0x05d8,0x0001,0x4000
050e 0353 05e0  | S  |		.DBG4T	0x0353,0x05e0,0x0001,0x4000
0512 0363 05e8  | c  |		.DBG4T	0x0363,0x05e8,0x0001,0x4000
0516 0373 05f0  | s  |		.DBG4T	0x0373,0x05f0,0x0001,0x4000
051a 03b3 05fc  |    |		.DBG4T	0x03b3,0x05fc,0x0001,0x4000
051e 03eb 0608  |    |		.DBG4T	0x03eb,0x0608,0x0001,0x4000
0522 03fb 0610  |    |		.DBG4T	0x03fb,0x0610,0x0001,0x4000
0526 040b 0618  |    |		.DBG4T	0x040b,0x0618,0x0001,0x4000
052a 041b 0620  |    |		.DBG4T	0x041b,0x0620,0x0001,0x4000
052e 043b 062b  | ; +|		.DBG4T	0x043b,0x062b,0x0001,0x4000
0532 045b 0636  | [ 6|		.DBG4T	0x045b,0x0636,0x0001,0x4000
0536 ; --------------------------------------------------------------------------------------
0536 ; Debug chain
0536 ; --------------------------------------------------------------------------------------
0536 0015 0000  |    |		.DBGLEN	0x0015,0x0000
0538 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x001a,0x001f,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042
054d 0001 0002  |    |		.XXX[0x15]
054f 0003 0004  |    |
0551 0005 0007  |    |
0553 0008 0009  |    |
0555 000a 000b  |    |
0557 000c 000d  |    |
0559 000e 000f  |    |
055b 0010 0011  |    |
055d 0012 0013  |    |
055f 0014 0015  |    |
0561 0016       |    |
0562 ; --------------------------------------------------------------------------------------
0562 ; Debug chain
0562 ; --------------------------------------------------------------------------------------
0562 0012 0000  |    |		.DBGLEN	0x0012,0x0000
0564 0054 0056  | T V|		.DBGLNO	0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076
0576 0002 0003  |    |		.XXX[0x12]
0578 0004 0005  |    |
057a 0006 0007  |    |
057c 0008 0009  |    |
057e 000a 000b  |    |
0580 000c 000d  |    |
0582 000e 000f  |    |
0584 0010 0011  |    |
0586 0012 0013  |    |
0588 ; --------------------------------------------------------------------------------------
0588 ; Debug chain
0588 ; --------------------------------------------------------------------------------------
0588 0001 0001  |    |		.DBGLEN	0x0001,0x0001
058a 0123 0136  | # 6|		.DBGLNO	0x0123,0x0136
058c ; --------------------------------------------------------------------------------------
058c ; Debug chain
058c ; --------------------------------------------------------------------------------------
058c 0000 000a  |    |		.DBGLEN	0x0000,0x000a
058e 0183 0188  |    |		.DBGLNO	0x0183,0x0188,0x018b,0x018e,0x0191,0x0194,0x0197,0x019a,0x019f,0x01a4
0598 ; --------------------------------------------------------------------------------------
0598 ; Debug chain
0598 ; --------------------------------------------------------------------------------------
0598 0001 0002  |    |		.DBGLEN	0x0001,0x0002
059a 01b3 01b5  |    |		.DBGLNO	0x01b3,0x01b5,0x01c2
059d ; --------------------------------------------------------------------------------------
059d ; Debug chain
059d ; --------------------------------------------------------------------------------------
059d 0001 000a  |    |		.DBGLEN	0x0001,0x000a
059f 01cb 01cd  |    |		.DBGLNO	0x01cb,0x01cd,0x01d5,0x01dc,0x01e3,0x01ea,0x01f1,0x01f8,0x01ff,0x0207,0x020f
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug chain
05aa ; --------------------------------------------------------------------------------------
05aa 0003 0001  |    |		.DBGLEN	0x0003,0x0001
05ac 021b 021e  |    |		.DBGLNO	0x021b,0x021e,0x0240,0x025e
05b0 ; --------------------------------------------------------------------------------------
05b0 ; Debug chain
05b0 ; --------------------------------------------------------------------------------------
05b0 0000 0009  |    |		.DBGLEN	0x0000,0x0009
05b2 02b3 02b9  |    |		.DBGLNO	0x02b3,0x02b9,0x02bf,0x02c7,0x02cd,0x02d5,0x02db,0x02e3,0x02e9
05bb 0001 0008  |    |		.XXX[0x9]
05bd 0009 0002  |    |
05bf 0003 0004  |    |
05c1 0005 0006  |    |
05c3 0007       |    |
05c4 ; --------------------------------------------------------------------------------------
05c4 ; Debug chain
05c4 ; --------------------------------------------------------------------------------------
05c4 0000 0009  |    |		.DBGLEN	0x0000,0x0009
05c6 02fb 0301  |    |		.DBGLNO	0x02fb,0x0301,0x0307,0x030f,0x0315,0x031d,0x0323,0x032b,0x0331
05cf 0001 0008  |    |		.XXX[0x9]
05d1 0009 0002  |    |
05d3 0003 0004  |    |
05d5 0005 0006  |    |
05d7 0007       |    |
05d8 ; --------------------------------------------------------------------------------------
05d8 ; Debug chain
05d8 ; --------------------------------------------------------------------------------------
05d8 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05da 0343 0345  | C E|		.DBGLNO	0x0343,0x0345,0x0349
05dd 0001 0003  |    |		.XXX[0x3]
05df 0002       |    |
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug chain
05e0 ; --------------------------------------------------------------------------------------
05e0 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05e2 0353 0355  | S U|		.DBGLNO	0x0353,0x0355,0x0359
05e5 0001 0003  |    |		.XXX[0x3]
05e7 0002       |    |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05ea 0363 0365  | c e|		.DBGLNO	0x0363,0x0365,0x0369
05ed 0001 0003  |    |		.XXX[0x3]
05ef 0002       |    |
05f0 ; --------------------------------------------------------------------------------------
05f0 ; Debug chain
05f0 ; --------------------------------------------------------------------------------------
05f0 0000 0005  |    |		.DBGLEN	0x0000,0x0005
05f2 0373 0379  | s y|		.DBGLNO	0x0373,0x0379,0x0394,0x039d,0x03a6
05f7 0001 0005  |    |		.XXX[0x5]
05f9 0002 0003  |    |
05fb 0004       |    |
05fc ; --------------------------------------------------------------------------------------
05fc ; Debug chain
05fc ; --------------------------------------------------------------------------------------
05fc 0000 0005  |    |		.DBGLEN	0x0000,0x0005
05fe 03b3 03b9  |    |		.DBGLNO	0x03b3,0x03b9,0x03c0,0x03cb,0x03d6
0603 0001 0005  |    |		.XXX[0x5]
0605 0002 0003  |    |
0607 0004       |    |
0608 ; --------------------------------------------------------------------------------------
0608 ; Debug chain
0608 ; --------------------------------------------------------------------------------------
0608 0000 0003  |    |		.DBGLEN	0x0000,0x0003
060a 03eb 03ed  |    |		.DBGLNO	0x03eb,0x03ed,0x03f2
060d 0001 0003  |    |		.XXX[0x3]
060f 0002       |    |
0610 ; --------------------------------------------------------------------------------------
0610 ; Debug chain
0610 ; --------------------------------------------------------------------------------------
0610 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0612 03fb 03fd  |    |		.DBGLNO	0x03fb,0x03fd,0x0402
0615 0001 0003  |    |		.XXX[0x3]
0617 0002       |    |
0618 ; --------------------------------------------------------------------------------------
0618 ; Debug chain
0618 ; --------------------------------------------------------------------------------------
0618 0000 0003  |    |		.DBGLEN	0x0000,0x0003
061a 040b 040d  |    |		.DBGLNO	0x040b,0x040d,0x0411
061d 0001 0003  |    |		.XXX[0x3]
061f 0002       |    |
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug chain
0620 ; --------------------------------------------------------------------------------------
0620 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0622 041b 0420  |    |		.DBGLNO	0x041b,0x0420,0x0424,0x042a,0x0434
0627 0002 0001  |    |		.XXX[0x4]
0629 0003 0004  |    |
062b ; --------------------------------------------------------------------------------------
062b ; Debug chain
062b ; --------------------------------------------------------------------------------------
062b 0001 0004  |    |		.DBGLEN	0x0001,0x0004
062d 043b 0440  | ; @|		.DBGLNO	0x043b,0x0440,0x0444,0x044a,0x0451
0632 0002 0001  |    |		.XXX[0x4]
0634 0003 0004  |    |
0636 ; --------------------------------------------------------------------------------------
0636 ; Debug chain
0636 ; --------------------------------------------------------------------------------------
0636 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0638 045b 0460  | [ `|		.DBGLNO	0x045b,0x0460,0x0464,0x046a,0x0475
063d 0002 0001  |    |		.XXX[0x4]
063f 0003 0004  |    |
0641 0000 0000  |    |		.BLANK	0000[0x1bf]