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

⟦d91da1218⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03e0ab

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 0658       | X  |		.CONST	0x0658								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0090       |    |		.CONST	0x0090								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d e003       |    |		Load	0x0,0x3
000e 00d8       |    |		Load_Top	At_Offset_0
000f e004       |    |		Load	0x0,0x4
0010 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0011 e005       |    |		Load	0x0,0x5
0012 029f 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Call
0014 4804       |H   |		Short_Literal	0x4
0015 032e       | .  |		Declare_Type	Record,Defined,Visible
0016 e003       |    |		Load	0x0,0x3
0017 00d8       |    |		Load_Top	At_Offset_0
0018 e003       |    |		Load	0x0,0x3
0019 00d8       |    |		Load_Top	At_Offset_0
001a e003       |    |		Load	0x0,0x3
001b 029f 0613  |    |		Declare_Subprogram	INIT_0610,For_Call
001d 4805       |H   |		Short_Literal	0x5
001e 032e       | .  |		Declare_Type	Record,Defined,Visible
001f 4801       |H   |		Short_Literal	0x1
0020 4805       |H   |		Short_Literal	0x5
0021 e20d       |    |		Load	0x1,0xd
0022 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0024 4801       |H   |		Short_Literal	0x1
0025 0356       | V  |		Declare_Type	Array,Defined_Incomplete,Visible
0026 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0028 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
002a 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
002c 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
002e e006       |    |		Load	0x0,0x6
002f e007       |    |		Load	0x0,0x7
0030 e20e       |    |		Load	0x1,0xe
0031 e008       |    |		Load	0x0,0x8
0032 0386       |    |		Declare_Variable	Package,Visible
0033 00d8       |    |		Load_Top	At_Offset_0
0034 020f       |    |		Execute	Module,Activate
0035 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0037 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0039 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
003b 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
003d 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
003f 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0041 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0043 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0045 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0047 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0049 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
004b 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
004d 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
004f 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
0051 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
0053 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0055 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
0057 e20f       |    |		Load	0x1,0xf
0058 00e1       |    |		Load_Encached	Boolean_Cache
0059 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
005b e20d       |    |		Load	0x1,0xd
005c 0326       | &  |		Complete_Type	Record,By_Defining
005d e210       |    |		Load	0x1,0x10
005e 0340       | @  |		Complete_Type	Array,By_Component_Completion
005f e210       |    |		Load	0x1,0x10
0060 00e4       |    |		Load_Encached	Positive_Cache
0061 029f 05db  |    |		Declare_Subprogram	INIT_05d8,For_Call
0063 4802       |H   |		Short_Literal	0x2
0064 032e       | .  |		Declare_Type	Record,Defined,Visible
0065 00bf       |    |		Action	Accept_Activation
0066 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
008f 00c7       |    |		Action	Elaborate_Subprogram
0090			BODY_0008:
0090 00bc       |    |		Action	Signal_Activated
0091 00bb       |    |		Action	Signal_Completion
0092 0000 0000  |    |		.BLANK	0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4605       |F   |		Jump_Case	0x6
009c 7804       |x   |		Jump	0xa1								; case 0x0
009d 7815       |x   |		Jump	0xb3								; case 0x1
009e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
009f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
00a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
00a1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
00a2 01d8       |    |		Execute	Vector,Element_Type
00a3 0322       | "  |		Declare_Variable	Record
00a4 00d8       |    |		Load_Top	At_Offset_0
00a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a6 00db       |    |		Load_Top	At_Offset_3
00a7 01dc       |    |		Execute	Vector,Last
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 01dd       |    |		Execute	Vector,First
00aa 0263       | c  |		Execute	Discrete,Above_Bound
00ab 7006       |p   |		Jump_Nonzero	0xb2
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae e5ff       |    |		Load	0x2,-0x1
00af 01d6       |    |		Execute	Vector,Field_Write
00b0 0a01       |    |		Execute_Immediate	Plus,0x1
00b1 7ff8       |    |		Jump	0xaa
00b2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 01dc       |    |		Execute	Vector,Last
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 01dd       |    |		Execute	Vector,First
00b7 0263       | c  |		Execute	Discrete,Above_Bound
00b8 7006       |p   |		Jump_Nonzero	0xbf
00b9 00d8       |    |		Load_Top	At_Offset_0
00ba e5ff       |    |		Load	0x2,-0x1
00bb 01d7       |    |		Execute	Vector,Field_Read
00bc 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00bd 0a01       |    |		Execute_Immediate	Plus,0x1
00be 7ff8       |    |		Jump	0xb7
00bf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4801       |H   |		Short_Literal	0x1
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 e5fe       |    |		Load	0x2,-0x2
00c8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ca 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
00d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d5 e210       |    |		Load	0x1,0x10
00d6 01da       |    |		Execute	Vector,Bounds
00d7 0262       | b  |		Execute	Discrete,In_Range
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00da e5ff       |    |		Load	0x2,-0x1
00db 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00dc 01d5       |    |		Execute	Vector,Field_Reference
00dd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00de 0f01       |    |		Execute_Immediate	Equal,0x1
00df 0279       | y  |		Execute	Discrete,And
00e0 0f00       |    |		Execute_Immediate	Equal,0x0
00e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e2 0000 0000  |    |		.BLANK	0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ed 0a01       |    |		Execute_Immediate	Plus,0x1
00ee 00db       |    |		Load_Top	At_Offset_3
00ef 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff       |    |		.CONST	0x00ff								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb e20f       |    |		Load	0x1,0xf
00fc 0322       | "  |		Declare_Variable	Record
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ff			BODY_00f8:
00ff 00db       |    |		Load_Top	At_Offset_3
0100 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0101 e5ff       |    |		Load	0x2,-0x1
0102 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0103 01d5       |    |		Execute	Vector,Field_Reference
0104 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0105 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0108 00db       |    |		Load_Top	At_Offset_3
0109 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
010a e5ff       |    |		Load	0x2,-0x1
010b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
010c 01d5       |    |		Execute	Vector,Field_Reference
010d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
010e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
010f 00d9       |    |		Load_Top	At_Offset_1
0110 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0111 00db       |    |		Load_Top	At_Offset_3
0112 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0113 e5ff       |    |		Load	0x2,-0x1
0114 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0115 01d5       |    |		Execute	Vector,Field_Reference
0116 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0117 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0118 00d9       |    |		Load_Top	At_Offset_1
0119 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011a 00db       |    |		Load_Top	At_Offset_3
011b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011c e5ff       |    |		Load	0x2,-0x1
011d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
011e 01d5       |    |		Execute	Vector,Field_Reference
011f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0120 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0121 00d9       |    |		Load_Top	At_Offset_1
0122 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0123 00db       |    |		Load_Top	At_Offset_3
0124 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0125 e5ff       |    |		Load	0x2,-0x1
0126 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0127 01d5       |    |		Execute	Vector,Field_Reference
0128 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0129 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
012a 00d9       |    |		Load_Top	At_Offset_1
012b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
012c 00d8       |    |		Load_Top	At_Offset_0
012d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012e 0000 0000  |    |		.XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135       | 5  |		.CONST	0x0135								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 e215       |    |		Load	0x1,0x15
0134 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0135			BODY_0130:
0135 e215       |    |		Load	0x1,0x15
0136 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0137 e215       |    |		Load	0x1,0x15
0138 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0139 0039       | 9  |		Store_Top	Access,At_Offset_1
013a 00d8       |    |		Load_Top	At_Offset_0
013b 00ca       |    |		Action	Exit_Nullary_Function
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 8216       |    |		Call	0x1,0x16
0144 003b       | ;  |		Store_Top	Access,At_Offset_3
0145 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0153       | S  |		.CONST	0x0153								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0003       |    |		.CONST	0x0003								; Number of locals
014b			INIT_0148:
014b e20e       |    |		Load	0x1,0xe
014c 0322       | "  |		Declare_Variable	Record
014d 00d8       |    |		Load_Top	At_Offset_0
014e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014f e009       |    |		Load	0x0,0x9
0150 0322       | "  |		Declare_Variable	Record
0151 00d8       |    |		Load_Top	At_Offset_0
0152 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0153			BODY_0148:
0153 e5ff       |    |		Load	0x2,-0x1
0154 00da       |    |		Load_Top	At_Offset_2
0155 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0156 e5fe       |    |		Load	0x2,-0x2
0157 00da       |    |		Load_Top	At_Offset_2
0158 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0159 e5fa       |    |		Load	0x2,-0x6
015a 00da       |    |		Load_Top	At_Offset_2
015b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
015c 00d8       |    |		Load_Top	At_Offset_0
015d e5fb       |    |		Load	0x2,-0x5
015e e5fc       |    |		Load	0x2,-0x4
015f e5fd       |    |		Load	0x2,-0x3
0160 800a       |    |		Call	0x0,0xa
0161 00d1       |    |		Pop_Control	Pop_Count_1
0162 00d9       |    |		Load_Top	At_Offset_1
0163 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0164 00d9       |    |		Load_Top	At_Offset_1
0165 800b       |    |		Call	0x0,0xb
0166 00da       |    |		Load_Top	At_Offset_2
0167 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0168 e5f9       |    |		Load	0x2,-0x7
0169 00da       |    |		Load_Top	At_Offset_2
016a e215       |    |		Load	0x1,0x15
016b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016c c5f9       |    |		Store	0x2,-0x7
016d 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017d       | }  |		.CONST	0x017d								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0004       |    |		.CONST	0x0004								; Number of locals
0173			INIT_0170:
0173 e215       |    |		Load	0x1,0x15
0174 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0175 e20e       |    |		Load	0x1,0xe
0176 0322       | "  |		Declare_Variable	Record
0177 00d8       |    |		Load_Top	At_Offset_0
0178 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0179 e009       |    |		Load	0x0,0x9
017a 0322       | "  |		Declare_Variable	Record
017b 00d8       |    |		Load_Top	At_Offset_0
017c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
017d			BODY_0170:
017d 00d8       |    |		Load_Top	At_Offset_0
017e e5fa       |    |		Load	0x2,-0x6
017f e5fb       |    |		Load	0x2,-0x5
0180 e5fc       |    |		Load	0x2,-0x4
0181 800a       |    |		Call	0x0,0xa
0182 00d1       |    |		Pop_Control	Pop_Count_1
0183 e215       |    |		Load	0x1,0x15
0184 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0185 e5f9       |    |		Load	0x2,-0x7
0186 e215       |    |		Load	0x1,0x15
0187 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0188 003b       | ;  |		Store_Top	Access,At_Offset_3
0189 00cf       |    |		Action	Mark_Auxiliary
018a 783c       |x<  |		Jump	0x1c7
018b 00db       |    |		Load_Top	At_Offset_3
018c e215       |    |		Load	0x1,0x15
018d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018e 00db       |    |		Load_Top	At_Offset_3
018f 017d       | }  |		Execute	Record,Structure_Write
0190 4801       |H   |		Short_Literal	0x1
0191 e5ff       |    |		Load	0x2,-0x1
0192 e00c       |    |		Load	0x0,0xc
0193 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0194 e403       |    |		Load	0x2,0x3
0195 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0196 e00c       |    |		Load	0x0,0xc
0197 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0198 e00d       |    |		Load	0x0,0xd
0199 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
019a 6827       |h'  |		Jump_Zero	0x1c2
019b 4801       |H   |		Short_Literal	0x1
019c e5fe       |    |		Load	0x2,-0x2
019d e00c       |    |		Load	0x0,0xc
019e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
019f e403       |    |		Load	0x2,0x3
01a0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01a1 e00c       |    |		Load	0x0,0xc
01a2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a3 e00d       |    |		Load	0x0,0xd
01a4 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01a5 681c       |h   |		Jump_Zero	0x1c2
01a6 4801       |H   |		Short_Literal	0x1
01a7 e5fd       |    |		Load	0x2,-0x3
01a8 e403       |    |		Load	0x2,0x3
01a9 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
01aa e00d       |    |		Load	0x0,0xd
01ab 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01ac 6815       |h   |		Jump_Zero	0x1c2
01ad 00da       |    |		Load_Top	At_Offset_2
01ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01af 00da       |    |		Load_Top	At_Offset_2
01b0 800e       |    |		Call	0x0,0xe
01b1 7010       |p   |		Jump_Nonzero	0x1c2
01b2 e5f9       |    |		Load	0x2,-0x7
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 e215       |    |		Load	0x1,0x15
01b5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01b6 c5f9       |    |		Store	0x2,-0x7
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 800b       |    |		Call	0x0,0xb
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01bd e5f9       |    |		Load	0x2,-0x7
01be 00db       |    |		Load_Top	At_Offset_3
01bf e215       |    |		Load	0x1,0x15
01c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01c1 c5f9       |    |		Store	0x2,-0x7
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 e215       |    |		Load	0x1,0x15
01c4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01c5 c402       |    |		Store	0x2,0x2
01c6 00c9       |    |		Action	Pop_Auxiliary_Loop
01c7 00db       |    |		Load_Top	At_Offset_3
01c8 e215       |    |		Load	0x1,0x15
01c9 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01ca 6fc0       |o   |		Jump_Zero	0x18b
01cb 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d9       |    |		.CONST	0x01d9								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0003       |    |		.CONST	0x0003								; Number of locals
01d3			INIT_01d0:
01d3 e215       |    |		Load	0x1,0x15
01d4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01d5 e20e       |    |		Load	0x1,0xe
01d6 0322       | "  |		Declare_Variable	Record
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d9			BODY_01d0:
01d9 e215       |    |		Load	0x1,0x15
01da 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01db e5fc       |    |		Load	0x2,-0x4
01dc e215       |    |		Load	0x1,0x15
01dd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01de 003a       | :  |		Store_Top	Access,At_Offset_2
01df 00cf       |    |		Action	Mark_Auxiliary
01e0 782c       |x,  |		Jump	0x20d
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 e215       |    |		Load	0x1,0x15
01e3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 017d       | }  |		Execute	Record,Structure_Write
01e6 4801       |H   |		Short_Literal	0x1
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 e00c       |    |		Load	0x0,0xc
01e9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ea 00db       |    |		Load_Top	At_Offset_3
01eb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ec e00c       |    |		Load	0x0,0xc
01ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ee e00d       |    |		Load	0x0,0xd
01ef 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01f0 6817       |h   |		Jump_Zero	0x208
01f1 4801       |H   |		Short_Literal	0x1
01f2 e5fe       |    |		Load	0x2,-0x2
01f3 e00c       |    |		Load	0x0,0xc
01f4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f5 00db       |    |		Load_Top	At_Offset_3
01f6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01f7 e00c       |    |		Load	0x0,0xc
01f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01f9 e00d       |    |		Load	0x0,0xd
01fa 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01fb 680c       |h   |		Jump_Zero	0x208
01fc 4801       |H   |		Short_Literal	0x1
01fd e5fd       |    |		Load	0x2,-0x3
01fe 00db       |    |		Load_Top	At_Offset_3
01ff 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0200 e00d       |    |		Load	0x0,0xd
0201 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0202 6805       |h   |		Jump_Zero	0x208
0203 e5fc       |    |		Load	0x2,-0x4
0204 00da       |    |		Load_Top	At_Offset_2
0205 e215       |    |		Load	0x1,0x15
0206 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0207 c5fc       |    |		Store	0x2,-0x4
0208 00da       |    |		Load_Top	At_Offset_2
0209 e215       |    |		Load	0x1,0x15
020a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
020b 003b       | ;  |		Store_Top	Access,At_Offset_3
020c 00c9       |    |		Action	Pop_Auxiliary_Loop
020d 00da       |    |		Load_Top	At_Offset_2
020e e215       |    |		Load	0x1,0x15
020f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0210 6fd0       |o   |		Jump_Zero	0x1e1
0211 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0212 0000 0000  |    |		.BLANK	0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 0833       | 3  |		Execute_Immediate	Raise,0x33
021c 0000 0000  |    |		.BLANK	0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0233       | 3  |		.CONST	0x0233								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0007       |    |		.CONST	0x0007								; Number of locals
0223			INIT_0220:
0223 e215       |    |		Load	0x1,0x15
0224 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0225 e004       |    |		Load	0x0,0x4
0226 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0227 e20e       |    |		Load	0x1,0xe
0228 0322       | "  |		Declare_Variable	Record
0229 00d8       |    |		Load_Top	At_Offset_0
022a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022b e009       |    |		Load	0x0,0x9
022c 0322       | "  |		Declare_Variable	Record
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f 00e1       |    |		Load_Encached	Boolean_Cache
0230 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0231 00e4       |    |		Load_Encached	Positive_Cache
0232 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0233			BODY_0220:
0233 e215       |    |		Load	0x1,0x15
0234 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0235 e5ff       |    |		Load	0x2,-0x1
0236 e215       |    |		Load	0x1,0x15
0237 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0238 c402       |    |		Store	0x2,0x2
0239 00cf       |    |		Action	Mark_Auxiliary
023a 7869       |xi  |		Jump	0x2a4
023b e402       |    |		Load	0x2,0x2
023c e215       |    |		Load	0x1,0x15
023d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
023e e404       |    |		Load	0x2,0x4
023f 017d       | }  |		Execute	Record,Structure_Write
0240 4801       |H   |		Short_Literal	0x1
0241 e5fe       |    |		Load	0x2,-0x2
0242 e00c       |    |		Load	0x0,0xc
0243 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0244 e404       |    |		Load	0x2,0x4
0245 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0246 e00c       |    |		Load	0x0,0xc
0247 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0248 e00d       |    |		Load	0x0,0xd
0249 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
024a 6854       |hT  |		Jump_Zero	0x29f
024b 4801       |H   |		Short_Literal	0x1
024c e5fd       |    |		Load	0x2,-0x3
024d e00c       |    |		Load	0x0,0xc
024e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
024f e404       |    |		Load	0x2,0x4
0250 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0251 e00c       |    |		Load	0x0,0xc
0252 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0253 e00d       |    |		Load	0x0,0xd
0254 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0255 6849       |hI  |		Jump_Zero	0x29f
0256 e004       |    |		Load	0x0,0x4
0257 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0258 e404       |    |		Load	0x2,0x4
0259 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
025a e004       |    |		Load	0x0,0x4
025b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
025c c403       |    |		Store	0x2,0x3
025d 00cf       |    |		Action	Mark_Auxiliary
025e 7835       |x5  |		Jump	0x294
025f e403       |    |		Load	0x2,0x3
0260 e004       |    |		Load	0x0,0x4
0261 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0262 e405       |    |		Load	0x2,0x5
0263 017d       | }  |		Execute	Record,Structure_Write
0264 4801       |H   |		Short_Literal	0x1
0265 00db       |    |		Load_Top	At_Offset_3
0266 e5fc       |    |		Load	0x2,-0x4
0267 01d5       |    |		Execute	Vector,Field_Reference
0268 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0269 e405       |    |		Load	0x2,0x5
026a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
026b 00db       |    |		Load_Top	At_Offset_3
026c e5fc       |    |		Load	0x2,-0x4
026d 01d5       |    |		Execute	Vector,Field_Reference
026e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
026f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0270 e405       |    |		Load	0x2,0x5
0271 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0272 00db       |    |		Load_Top	At_Offset_3
0273 e5fc       |    |		Load	0x2,-0x4
0274 01d5       |    |		Execute	Vector,Field_Reference
0275 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0276 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0277 e405       |    |		Load	0x2,0x5
0278 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0279 00db       |    |		Load_Top	At_Offset_3
027a e5fc       |    |		Load	0x2,-0x4
027b 01d5       |    |		Execute	Vector,Field_Reference
027c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
027d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
027e e404       |    |		Load	0x2,0x4
027f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0280 00db       |    |		Load_Top	At_Offset_3
0281 e5fc       |    |		Load	0x2,-0x4
0282 01d5       |    |		Execute	Vector,Field_Reference
0283 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0284 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0285 e404       |    |		Load	0x2,0x4
0286 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0287 00db       |    |		Load_Top	At_Offset_3
0288 e5fc       |    |		Load	0x2,-0x4
0289 01d5       |    |		Execute	Vector,Field_Reference
028a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
028b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
028c 00da       |    |		Load_Top	At_Offset_2
028d 0a01       |    |		Execute_Immediate	Plus,0x1
028e 005b       | [  |		Store_Top	Discrete,At_Offset_3
028f e403       |    |		Load	0x2,0x3
0290 e004       |    |		Load	0x0,0x4
0291 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0292 c403       |    |		Store	0x2,0x3
0293 00c9       |    |		Action	Pop_Auxiliary_Loop
0294 00da       |    |		Load_Top	At_Offset_2
0295 e210       |    |		Load	0x1,0x10
0296 01da       |    |		Execute	Vector,Bounds
0297 0262       | b  |		Execute	Discrete,In_Range
0298 e403       |    |		Load	0x2,0x3
0299 e004       |    |		Load	0x0,0x4
029a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
029b 0f00       |    |		Execute_Immediate	Equal,0x0
029c 0279       | y  |		Execute	Discrete,And
029d 77c1       |w   |		Jump_Nonzero	0x25f
029e 00ce       |    |		Action	Pop_Auxiliary
029f e402       |    |		Load	0x2,0x2
02a0 e215       |    |		Load	0x1,0x15
02a1 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02a2 c402       |    |		Store	0x2,0x2
02a3 00c9       |    |		Action	Pop_Auxiliary_Loop
02a4 00d9       |    |		Load_Top	At_Offset_1
02a5 e210       |    |		Load	0x1,0x10
02a6 01da       |    |		Execute	Vector,Bounds
02a7 0262       | b  |		Execute	Discrete,In_Range
02a8 e402       |    |		Load	0x2,0x2
02a9 e215       |    |		Load	0x1,0x15
02aa 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02ab 0f00       |    |		Execute_Immediate	Equal,0x0
02ac 0279       | y  |		Execute	Discrete,And
02ad 778d       |w   |		Jump_Nonzero	0x23b
02ae 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02af 0000       |    |		.XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02bf       |    |		.CONST	0x02bf								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0005       |    |		.CONST	0x0005								; Number of locals
02b3			INIT_02b0:
02b3 e215       |    |		Load	0x1,0x15
02b4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02b5 e20e       |    |		Load	0x1,0xe
02b6 0322       | "  |		Declare_Variable	Record
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b9 00e1       |    |		Load_Encached	Boolean_Cache
02ba 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02bb e009       |    |		Load	0x0,0x9
02bc 0322       | "  |		Declare_Variable	Record
02bd 00d8       |    |		Load_Top	At_Offset_0
02be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02bf			BODY_02b0:
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 e5fa       |    |		Load	0x2,-0x6
02c1 e5fb       |    |		Load	0x2,-0x5
02c2 e5fc       |    |		Load	0x2,-0x4
02c3 800a       |    |		Call	0x0,0xa
02c4 00d1       |    |		Pop_Control	Pop_Count_1
02c5 e215       |    |		Load	0x1,0x15
02c6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02c7 e5ff       |    |		Load	0x2,-0x1
02c8 e215       |    |		Load	0x1,0x15
02c9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02ca c402       |    |		Store	0x2,0x2
02cb 00cf       |    |		Action	Mark_Auxiliary
02cc 782b       |x+  |		Jump	0x2f8
02cd e402       |    |		Load	0x2,0x2
02ce e215       |    |		Load	0x1,0x15
02cf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02d0 e403       |    |		Load	0x2,0x3
02d1 017d       | }  |		Execute	Record,Structure_Write
02d2 4801       |H   |		Short_Literal	0x1
02d3 e5fe       |    |		Load	0x2,-0x2
02d4 e00c       |    |		Load	0x0,0xc
02d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d6 e403       |    |		Load	0x2,0x3
02d7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d8 e00c       |    |		Load	0x0,0xc
02d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02da e00d       |    |		Load	0x0,0xd
02db 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02dc 6816       |h   |		Jump_Zero	0x2f3
02dd 4801       |H   |		Short_Literal	0x1
02de e5fd       |    |		Load	0x2,-0x3
02df e00c       |    |		Load	0x0,0xc
02e0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e1 e403       |    |		Load	0x2,0x3
02e2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02e3 e00c       |    |		Load	0x0,0xc
02e4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e5 e00d       |    |		Load	0x0,0xd
02e6 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02e7 680b       |h   |		Jump_Zero	0x2f3
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ea 00da       |    |		Load_Top	At_Offset_2
02eb 800e       |    |		Call	0x0,0xe
02ec 6806       |h   |		Jump_Zero	0x2f3
02ed 00db       |    |		Load_Top	At_Offset_3
02ee 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02ef e5f9       |    |		Load	0x2,-0x7
02f0 01d4       |    |		Execute	Vector,Structure_Write
02f1 4801       |H   |		Short_Literal	0x1
02f2 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02f3 e402       |    |		Load	0x2,0x2
02f4 e215       |    |		Load	0x1,0x15
02f5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02f6 c402       |    |		Store	0x2,0x2
02f7 00c9       |    |		Action	Pop_Auxiliary_Loop
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 0f00       |    |		Execute_Immediate	Equal,0x0
02fa e402       |    |		Load	0x2,0x2
02fb e215       |    |		Load	0x1,0x15
02fc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02fd 0f00       |    |		Execute_Immediate	Equal,0x0
02fe 0279       | y  |		Execute	Discrete,And
02ff 77cd       |w   |		Jump_Nonzero	0x2cd
0300 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0301 0000 0000  |    |		.BLANK	0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0313       |    |		.CONST	0x0313								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0004       |    |		.CONST	0x0004								; Number of locals
030b			INIT_0308:
030b e215       |    |		Load	0x1,0x15
030c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
030d e20e       |    |		Load	0x1,0xe
030e 0322       | "  |		Declare_Variable	Record
030f 00d8       |    |		Load_Top	At_Offset_0
0310 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0311 00e1       |    |		Load_Encached	Boolean_Cache
0312 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0313			BODY_0308:
0313 e215       |    |		Load	0x1,0x15
0314 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0315 e5ff       |    |		Load	0x2,-0x1
0316 e215       |    |		Load	0x1,0x15
0317 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0318 003b       | ;  |		Store_Top	Access,At_Offset_3
0319 00cf       |    |		Action	Mark_Auxiliary
031a 7817       |x   |		Jump	0x332
031b 00db       |    |		Load_Top	At_Offset_3
031c e215       |    |		Load	0x1,0x15
031d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
031e 00db       |    |		Load_Top	At_Offset_3
031f 017d       | }  |		Execute	Record,Structure_Write
0320 4801       |H   |		Short_Literal	0x1
0321 e5fe       |    |		Load	0x2,-0x2
0322 e00c       |    |		Load	0x0,0xc
0323 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0324 e403       |    |		Load	0x2,0x3
0325 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0326 e00c       |    |		Load	0x0,0xc
0327 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0328 e00d       |    |		Load	0x0,0xd
0329 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
032a 6802       |h   |		Jump_Zero	0x32d
032b 4801       |H   |		Short_Literal	0x1
032c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
032d 00db       |    |		Load_Top	At_Offset_3
032e e215       |    |		Load	0x1,0x15
032f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0330 c402       |    |		Store	0x2,0x2
0331 00c9       |    |		Action	Pop_Auxiliary_Loop
0332 00db       |    |		Load_Top	At_Offset_3
0333 e215       |    |		Load	0x1,0x15
0334 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0335 6fe5       |o   |		Jump_Zero	0x31b
0336 00ce       |    |		Action	Pop_Auxiliary
0337 00d8       |    |		Load_Top	At_Offset_0
0338 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0339 0000 0000  |    |		.BLANK	0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034b       | K  |		.CONST	0x034b								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0004       |    |		.CONST	0x0004								; Number of locals
0343			INIT_0340:
0343 e215       |    |		Load	0x1,0x15
0344 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0345 e20e       |    |		Load	0x1,0xe
0346 0322       | "  |		Declare_Variable	Record
0347 00d8       |    |		Load_Top	At_Offset_0
0348 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0349 00e1       |    |		Load_Encached	Boolean_Cache
034a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
034b			BODY_0340:
034b e215       |    |		Load	0x1,0x15
034c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
034d e5ff       |    |		Load	0x2,-0x1
034e e215       |    |		Load	0x1,0x15
034f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0350 003b       | ;  |		Store_Top	Access,At_Offset_3
0351 00cf       |    |		Action	Mark_Auxiliary
0352 7822       |x"  |		Jump	0x375
0353 00db       |    |		Load_Top	At_Offset_3
0354 e215       |    |		Load	0x1,0x15
0355 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0356 00db       |    |		Load_Top	At_Offset_3
0357 017d       | }  |		Execute	Record,Structure_Write
0358 4801       |H   |		Short_Literal	0x1
0359 e5fe       |    |		Load	0x2,-0x2
035a e00c       |    |		Load	0x0,0xc
035b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
035c e403       |    |		Load	0x2,0x3
035d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
035e e00c       |    |		Load	0x0,0xc
035f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0360 e00d       |    |		Load	0x0,0xd
0361 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0362 680d       |h   |		Jump_Zero	0x370
0363 4801       |H   |		Short_Literal	0x1
0364 e5fd       |    |		Load	0x2,-0x3
0365 e00c       |    |		Load	0x0,0xc
0366 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0367 e403       |    |		Load	0x2,0x3
0368 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0369 e00c       |    |		Load	0x0,0xc
036a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
036b e00d       |    |		Load	0x0,0xd
036c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
036d 6802       |h   |		Jump_Zero	0x370
036e 4801       |H   |		Short_Literal	0x1
036f 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0370 00db       |    |		Load_Top	At_Offset_3
0371 e215       |    |		Load	0x1,0x15
0372 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0373 c402       |    |		Store	0x2,0x2
0374 00c9       |    |		Action	Pop_Auxiliary_Loop
0375 00db       |    |		Load_Top	At_Offset_3
0376 e215       |    |		Load	0x1,0x15
0377 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0378 6fda       |o   |		Jump_Zero	0x353
0379 00ce       |    |		Action	Pop_Auxiliary
037a 00d8       |    |		Load_Top	At_Offset_0
037b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038b       |    |		.CONST	0x038b								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0004       |    |		.CONST	0x0004								; Number of locals
0383			INIT_0380:
0383 e215       |    |		Load	0x1,0x15
0384 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0385 e20e       |    |		Load	0x1,0xe
0386 0322       | "  |		Declare_Variable	Record
0387 00d8       |    |		Load_Top	At_Offset_0
0388 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0389 00e1       |    |		Load_Encached	Boolean_Cache
038a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
038b			BODY_0380:
038b e215       |    |		Load	0x1,0x15
038c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
038d e5ff       |    |		Load	0x2,-0x1
038e e215       |    |		Load	0x1,0x15
038f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0390 003b       | ;  |		Store_Top	Access,At_Offset_3
0391 00cf       |    |		Action	Mark_Auxiliary
0392 7829       |x)  |		Jump	0x3bc
0393 00db       |    |		Load_Top	At_Offset_3
0394 e215       |    |		Load	0x1,0x15
0395 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0396 00db       |    |		Load_Top	At_Offset_3
0397 017d       | }  |		Execute	Record,Structure_Write
0398 4801       |H   |		Short_Literal	0x1
0399 e5fe       |    |		Load	0x2,-0x2
039a e00c       |    |		Load	0x0,0xc
039b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039c e403       |    |		Load	0x2,0x3
039d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
039e e00c       |    |		Load	0x0,0xc
039f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a0 e00d       |    |		Load	0x0,0xd
03a1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03a2 6814       |h   |		Jump_Zero	0x3b7
03a3 4801       |H   |		Short_Literal	0x1
03a4 e5fd       |    |		Load	0x2,-0x3
03a5 e00c       |    |		Load	0x0,0xc
03a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a7 e403       |    |		Load	0x2,0x3
03a8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03a9 e00c       |    |		Load	0x0,0xc
03aa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ab e00d       |    |		Load	0x0,0xd
03ac 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03ad 6809       |h   |		Jump_Zero	0x3b7
03ae 00d9       |    |		Load_Top	At_Offset_1
03af 7005       |p   |		Jump_Nonzero	0x3b5
03b0 00da       |    |		Load_Top	At_Offset_2
03b1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03b2 e5fc       |    |		Load	0x2,-0x4
03b3 800f       |    |		Call	0x0,0xf
03b4 7801       |x   |		Jump	0x3b6
03b5 4801       |H   |		Short_Literal	0x1
03b6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03b7 00db       |    |		Load_Top	At_Offset_3
03b8 e215       |    |		Load	0x1,0x15
03b9 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03ba c402       |    |		Store	0x2,0x2
03bb 00c9       |    |		Action	Pop_Auxiliary_Loop
03bc 00db       |    |		Load_Top	At_Offset_3
03bd e215       |    |		Load	0x1,0x15
03be 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03bf 6fd3       |o   |		Jump_Zero	0x393
03c0 00ce       |    |		Action	Pop_Auxiliary
03c1 00d8       |    |		Load_Top	At_Offset_0
03c2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03c3 0000 0000  |    |		.BLANK	0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d7       |    |		.CONST	0x03d7								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0005       |    |		.CONST	0x0005								; Number of locals
03cb			INIT_03c8:
03cb e215       |    |		Load	0x1,0x15
03cc 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
03cd e20e       |    |		Load	0x1,0xe
03ce 0322       | "  |		Declare_Variable	Record
03cf 00d8       |    |		Load_Top	At_Offset_0
03d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03d1 00e1       |    |		Load_Encached	Boolean_Cache
03d2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03d3 e009       |    |		Load	0x0,0x9
03d4 0322       | "  |		Declare_Variable	Record
03d5 00d8       |    |		Load_Top	At_Offset_0
03d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03d7			BODY_03c8:
03d7 00d8       |    |		Load_Top	At_Offset_0
03d8 e5fa       |    |		Load	0x2,-0x6
03d9 e5fb       |    |		Load	0x2,-0x5
03da e5fc       |    |		Load	0x2,-0x4
03db 800a       |    |		Call	0x0,0xa
03dc 00d1       |    |		Pop_Control	Pop_Count_1
03dd e215       |    |		Load	0x1,0x15
03de 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
03df e5ff       |    |		Load	0x2,-0x1
03e0 e215       |    |		Load	0x1,0x15
03e1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03e2 c402       |    |		Store	0x2,0x2
03e3 00cf       |    |		Action	Mark_Auxiliary
03e4 7829       |x)  |		Jump	0x40e
03e5 e402       |    |		Load	0x2,0x2
03e6 e215       |    |		Load	0x1,0x15
03e7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03e8 e403       |    |		Load	0x2,0x3
03e9 017d       | }  |		Execute	Record,Structure_Write
03ea 4801       |H   |		Short_Literal	0x1
03eb e5fe       |    |		Load	0x2,-0x2
03ec e00c       |    |		Load	0x0,0xc
03ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ee e403       |    |		Load	0x2,0x3
03ef 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03f0 e00c       |    |		Load	0x0,0xc
03f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f2 e00d       |    |		Load	0x0,0xd
03f3 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03f4 6814       |h   |		Jump_Zero	0x409
03f5 4801       |H   |		Short_Literal	0x1
03f6 e5fd       |    |		Load	0x2,-0x3
03f7 e00c       |    |		Load	0x0,0xc
03f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f9 e403       |    |		Load	0x2,0x3
03fa 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03fb e00c       |    |		Load	0x0,0xc
03fc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03fd e00d       |    |		Load	0x0,0xd
03fe 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03ff 6809       |h   |		Jump_Zero	0x409
0400 00da       |    |		Load_Top	At_Offset_2
0401 7005       |p   |		Jump_Nonzero	0x407
0402 00db       |    |		Load_Top	At_Offset_3
0403 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0404 00da       |    |		Load_Top	At_Offset_2
0405 800e       |    |		Call	0x0,0xe
0406 7801       |x   |		Jump	0x408
0407 4801       |H   |		Short_Literal	0x1
0408 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0409 e402       |    |		Load	0x2,0x2
040a e215       |    |		Load	0x1,0x15
040b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
040c c402       |    |		Store	0x2,0x2
040d 00c9       |    |		Action	Pop_Auxiliary_Loop
040e e402       |    |		Load	0x2,0x2
040f e215       |    |		Load	0x1,0x15
0410 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0411 6fd3       |o   |		Jump_Zero	0x3e5
0412 00ce       |    |		Action	Pop_Auxiliary
0413 00d9       |    |		Load_Top	At_Offset_1
0414 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0427       | '  |		.CONST	0x0427								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0005       |    |		.CONST	0x0005								; Number of locals
041b			INIT_0418:
041b e215       |    |		Load	0x1,0x15
041c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
041d e20e       |    |		Load	0x1,0xe
041e 0322       | "  |		Declare_Variable	Record
041f 00d8       |    |		Load_Top	At_Offset_0
0420 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0421 00e1       |    |		Load_Encached	Boolean_Cache
0422 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0423 e009       |    |		Load	0x0,0x9
0424 0322       | "  |		Declare_Variable	Record
0425 00d8       |    |		Load_Top	At_Offset_0
0426 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0427			BODY_0418:
0427 00d8       |    |		Load_Top	At_Offset_0
0428 e5fb       |    |		Load	0x2,-0x5
0429 e5fc       |    |		Load	0x2,-0x4
042a e5fd       |    |		Load	0x2,-0x3
042b 800a       |    |		Call	0x0,0xa
042c 00d1       |    |		Pop_Control	Pop_Count_1
042d e215       |    |		Load	0x1,0x15
042e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
042f e5fa       |    |		Load	0x2,-0x6
0430 e215       |    |		Load	0x1,0x15
0431 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0432 c402       |    |		Store	0x2,0x2
0433 00cf       |    |		Action	Mark_Auxiliary
0434 7831       |x1  |		Jump	0x466
0435 e402       |    |		Load	0x2,0x2
0436 e215       |    |		Load	0x1,0x15
0437 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0438 e403       |    |		Load	0x2,0x3
0439 017d       | }  |		Execute	Record,Structure_Write
043a 4801       |H   |		Short_Literal	0x1
043b e5ff       |    |		Load	0x2,-0x1
043c e00c       |    |		Load	0x0,0xc
043d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043e e403       |    |		Load	0x2,0x3
043f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0440 e00c       |    |		Load	0x0,0xc
0441 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0442 e00d       |    |		Load	0x0,0xd
0443 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0444 681c       |h   |		Jump_Zero	0x461
0445 4801       |H   |		Short_Literal	0x1
0446 e5fe       |    |		Load	0x2,-0x2
0447 e00c       |    |		Load	0x0,0xc
0448 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0449 e403       |    |		Load	0x2,0x3
044a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
044b e00c       |    |		Load	0x0,0xc
044c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
044d e00d       |    |		Load	0x0,0xd
044e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
044f 6811       |h   |		Jump_Zero	0x461
0450 e5fa       |    |		Load	0x2,-0x6
0451 e403       |    |		Load	0x2,0x3
0452 e215       |    |		Load	0x1,0x15
0453 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0454 c5fa       |    |		Store	0x2,-0x6
0455 00db       |    |		Load_Top	At_Offset_3
0456 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0457 00da       |    |		Load_Top	At_Offset_2
0458 8010       |    |		Call	0x0,0x10
0459 00d1       |    |		Pop_Control	Pop_Count_1
045a e403       |    |		Load	0x2,0x3
045b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
045c e5fa       |    |		Load	0x2,-0x6
045d e403       |    |		Load	0x2,0x3
045e e215       |    |		Load	0x1,0x15
045f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0460 c5fa       |    |		Store	0x2,-0x6
0461 e402       |    |		Load	0x2,0x2
0462 e215       |    |		Load	0x1,0x15
0463 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0464 c402       |    |		Store	0x2,0x2
0465 00c9       |    |		Action	Pop_Auxiliary_Loop
0466 e402       |    |		Load	0x2,0x2
0467 e215       |    |		Load	0x1,0x15
0468 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0469 6fcb       |o   |		Jump_Zero	0x435
046a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
046b 0000 0000  |    |		.BLANK	0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 047f       |    |		.CONST	0x047f								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0005       |    |		.CONST	0x0005								; Number of locals
0473			INIT_0470:
0473 e215       |    |		Load	0x1,0x15
0474 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0475 e20e       |    |		Load	0x1,0xe
0476 0322       | "  |		Declare_Variable	Record
0477 00d8       |    |		Load_Top	At_Offset_0
0478 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0479 00e1       |    |		Load_Encached	Boolean_Cache
047a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
047b e009       |    |		Load	0x0,0x9
047c 0322       | "  |		Declare_Variable	Record
047d 00d8       |    |		Load_Top	At_Offset_0
047e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
047f			BODY_0470:
047f 00d8       |    |		Load_Top	At_Offset_0
0480 e5fb       |    |		Load	0x2,-0x5
0481 e5fc       |    |		Load	0x2,-0x4
0482 e5fd       |    |		Load	0x2,-0x3
0483 800a       |    |		Call	0x0,0xa
0484 00d1       |    |		Pop_Control	Pop_Count_1
0485 e215       |    |		Load	0x1,0x15
0486 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0487 e5fa       |    |		Load	0x2,-0x6
0488 e215       |    |		Load	0x1,0x15
0489 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
048a c402       |    |		Store	0x2,0x2
048b 00cf       |    |		Action	Mark_Auxiliary
048c 7831       |x1  |		Jump	0x4be
048d e402       |    |		Load	0x2,0x2
048e e215       |    |		Load	0x1,0x15
048f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0490 e403       |    |		Load	0x2,0x3
0491 017d       | }  |		Execute	Record,Structure_Write
0492 4801       |H   |		Short_Literal	0x1
0493 e5ff       |    |		Load	0x2,-0x1
0494 e00c       |    |		Load	0x0,0xc
0495 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0496 e403       |    |		Load	0x2,0x3
0497 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0498 e00c       |    |		Load	0x0,0xc
0499 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
049a e00d       |    |		Load	0x0,0xd
049b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
049c 681c       |h   |		Jump_Zero	0x4b9
049d 4801       |H   |		Short_Literal	0x1
049e e5fe       |    |		Load	0x2,-0x2
049f e00c       |    |		Load	0x0,0xc
04a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04a1 e403       |    |		Load	0x2,0x3
04a2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04a3 e00c       |    |		Load	0x0,0xc
04a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04a5 e00d       |    |		Load	0x0,0xd
04a6 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04a7 6811       |h   |		Jump_Zero	0x4b9
04a8 e5fa       |    |		Load	0x2,-0x6
04a9 e403       |    |		Load	0x2,0x3
04aa e215       |    |		Load	0x1,0x15
04ab 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04ac c5fa       |    |		Store	0x2,-0x6
04ad 00db       |    |		Load_Top	At_Offset_3
04ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04af 00da       |    |		Load_Top	At_Offset_2
04b0 8011       |    |		Call	0x0,0x11
04b1 00d1       |    |		Pop_Control	Pop_Count_1
04b2 e403       |    |		Load	0x2,0x3
04b3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04b4 e5fa       |    |		Load	0x2,-0x6
04b5 e403       |    |		Load	0x2,0x3
04b6 e215       |    |		Load	0x1,0x15
04b7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04b8 c5fa       |    |		Store	0x2,-0x6
04b9 e402       |    |		Load	0x2,0x2
04ba e215       |    |		Load	0x1,0x15
04bb 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04bc c402       |    |		Store	0x2,0x2
04bd 00c9       |    |		Action	Pop_Auxiliary_Loop
04be e402       |    |		Load	0x2,0x2
04bf e215       |    |		Load	0x1,0x15
04c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04c1 6fcb       |o   |		Jump_Zero	0x48d
04c2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
04c3 0000 0000  |    |		.BLANK	0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d7       |    |		.CONST	0x04d7								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0005       |    |		.CONST	0x0005								; Number of locals
04cb			INIT_04c8:
04cb e215       |    |		Load	0x1,0x15
04cc 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04cd e20e       |    |		Load	0x1,0xe
04ce 0322       | "  |		Declare_Variable	Record
04cf 00d8       |    |		Load_Top	At_Offset_0
04d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d1 00e1       |    |		Load_Encached	Boolean_Cache
04d2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
04d3 e009       |    |		Load	0x0,0x9
04d4 0322       | "  |		Declare_Variable	Record
04d5 00d8       |    |		Load_Top	At_Offset_0
04d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d7			BODY_04c8:
04d7 00d8       |    |		Load_Top	At_Offset_0
04d8 e5fb       |    |		Load	0x2,-0x5
04d9 e5fc       |    |		Load	0x2,-0x4
04da e5fd       |    |		Load	0x2,-0x3
04db 800a       |    |		Call	0x0,0xa
04dc 00d1       |    |		Pop_Control	Pop_Count_1
04dd e215       |    |		Load	0x1,0x15
04de 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04df e5fa       |    |		Load	0x2,-0x6
04e0 e215       |    |		Load	0x1,0x15
04e1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04e2 c402       |    |		Store	0x2,0x2
04e3 00cf       |    |		Action	Mark_Auxiliary
04e4 7831       |x1  |		Jump	0x516
04e5 e402       |    |		Load	0x2,0x2
04e6 e215       |    |		Load	0x1,0x15
04e7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04e8 e403       |    |		Load	0x2,0x3
04e9 017d       | }  |		Execute	Record,Structure_Write
04ea 4801       |H   |		Short_Literal	0x1
04eb e5ff       |    |		Load	0x2,-0x1
04ec e00c       |    |		Load	0x0,0xc
04ed 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04ee e403       |    |		Load	0x2,0x3
04ef 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04f0 e00c       |    |		Load	0x0,0xc
04f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04f2 e00d       |    |		Load	0x0,0xd
04f3 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04f4 681c       |h   |		Jump_Zero	0x511
04f5 4801       |H   |		Short_Literal	0x1
04f6 e5fe       |    |		Load	0x2,-0x2
04f7 e00c       |    |		Load	0x0,0xc
04f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04f9 e403       |    |		Load	0x2,0x3
04fa 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04fb e00c       |    |		Load	0x0,0xc
04fc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04fd e00d       |    |		Load	0x0,0xd
04fe 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04ff 6811       |h   |		Jump_Zero	0x511
0500 e5fa       |    |		Load	0x2,-0x6
0501 e403       |    |		Load	0x2,0x3
0502 e215       |    |		Load	0x1,0x15
0503 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0504 c5fa       |    |		Store	0x2,-0x6
0505 00db       |    |		Load_Top	At_Offset_3
0506 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0507 00da       |    |		Load_Top	At_Offset_2
0508 8012       |    |		Call	0x0,0x12
0509 00d1       |    |		Pop_Control	Pop_Count_1
050a e403       |    |		Load	0x2,0x3
050b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
050c e5fa       |    |		Load	0x2,-0x6
050d e403       |    |		Load	0x2,0x3
050e e215       |    |		Load	0x1,0x15
050f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0510 c5fa       |    |		Store	0x2,-0x6
0511 e402       |    |		Load	0x2,0x2
0512 e215       |    |		Load	0x1,0x15
0513 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0514 c402       |    |		Store	0x2,0x2
0515 00c9       |    |		Action	Pop_Auxiliary_Loop
0516 e402       |    |		Load	0x2,0x2
0517 e215       |    |		Load	0x1,0x15
0518 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0519 6fcb       |o   |		Jump_Zero	0x4e5
051a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
051b 0000 0000  |    |		.BLANK	0000[0x5]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 052f       | /  |		.CONST	0x052f								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0005       |    |		.CONST	0x0005								; Number of locals
0523			INIT_0520:
0523 e215       |    |		Load	0x1,0x15
0524 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0525 e20e       |    |		Load	0x1,0xe
0526 0322       | "  |		Declare_Variable	Record
0527 00d8       |    |		Load_Top	At_Offset_0
0528 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0529 00e1       |    |		Load_Encached	Boolean_Cache
052a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
052b e009       |    |		Load	0x0,0x9
052c 0322       | "  |		Declare_Variable	Record
052d 00d8       |    |		Load_Top	At_Offset_0
052e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
052f			BODY_0520:
052f 00d8       |    |		Load_Top	At_Offset_0
0530 e5fb       |    |		Load	0x2,-0x5
0531 e5fc       |    |		Load	0x2,-0x4
0532 e5fd       |    |		Load	0x2,-0x3
0533 800a       |    |		Call	0x0,0xa
0534 00d1       |    |		Pop_Control	Pop_Count_1
0535 e215       |    |		Load	0x1,0x15
0536 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0537 e5fa       |    |		Load	0x2,-0x6
0538 e215       |    |		Load	0x1,0x15
0539 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
053a c402       |    |		Store	0x2,0x2
053b 00cf       |    |		Action	Mark_Auxiliary
053c 7831       |x1  |		Jump	0x56e
053d e402       |    |		Load	0x2,0x2
053e e215       |    |		Load	0x1,0x15
053f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0540 e403       |    |		Load	0x2,0x3
0541 017d       | }  |		Execute	Record,Structure_Write
0542 4801       |H   |		Short_Literal	0x1
0543 e5ff       |    |		Load	0x2,-0x1
0544 e00c       |    |		Load	0x0,0xc
0545 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0546 e403       |    |		Load	0x2,0x3
0547 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0548 e00c       |    |		Load	0x0,0xc
0549 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
054a e00d       |    |		Load	0x0,0xd
054b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
054c 681c       |h   |		Jump_Zero	0x569
054d 4801       |H   |		Short_Literal	0x1
054e e5fe       |    |		Load	0x2,-0x2
054f e00c       |    |		Load	0x0,0xc
0550 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0551 e403       |    |		Load	0x2,0x3
0552 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0553 e00c       |    |		Load	0x0,0xc
0554 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0555 e00d       |    |		Load	0x0,0xd
0556 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0557 6811       |h   |		Jump_Zero	0x569
0558 e5fa       |    |		Load	0x2,-0x6
0559 e403       |    |		Load	0x2,0x3
055a e215       |    |		Load	0x1,0x15
055b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
055c c5fa       |    |		Store	0x2,-0x6
055d 00db       |    |		Load_Top	At_Offset_3
055e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
055f 00da       |    |		Load_Top	At_Offset_2
0560 8013       |    |		Call	0x0,0x13
0561 00d1       |    |		Pop_Control	Pop_Count_1
0562 e403       |    |		Load	0x2,0x3
0563 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0564 e5fa       |    |		Load	0x2,-0x6
0565 e403       |    |		Load	0x2,0x3
0566 e215       |    |		Load	0x1,0x15
0567 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0568 c5fa       |    |		Store	0x2,-0x6
0569 e402       |    |		Load	0x2,0x2
056a e215       |    |		Load	0x1,0x15
056b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
056c c402       |    |		Store	0x2,0x2
056d 00c9       |    |		Action	Pop_Auxiliary_Loop
056e e402       |    |		Load	0x2,0x2
056f e215       |    |		Load	0x1,0x15
0570 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0571 6fcb       |o   |		Jump_Zero	0x53d
0572 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0573 0000 0000  |    |		.BLANK	0000[0x5]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0581       |    |		.CONST	0x0581								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0003       |    |		.CONST	0x0003								; Number of locals
057b			INIT_0578:
057b e215       |    |		Load	0x1,0x15
057c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
057d e20e       |    |		Load	0x1,0xe
057e 0322       | "  |		Declare_Variable	Record
057f 00d8       |    |		Load_Top	At_Offset_0
0580 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0581			BODY_0578:
0581 e215       |    |		Load	0x1,0x15
0582 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0583 e5ff       |    |		Load	0x2,-0x1
0584 e215       |    |		Load	0x1,0x15
0585 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0586 003a       | :  |		Store_Top	Access,At_Offset_2
0587 00cf       |    |		Action	Mark_Auxiliary
0588 782c       |x,  |		Jump	0x5b5
0589 00da       |    |		Load_Top	At_Offset_2
058a e215       |    |		Load	0x1,0x15
058b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
058c 00da       |    |		Load_Top	At_Offset_2
058d 017d       | }  |		Execute	Record,Structure_Write
058e 0092 0645  |   E|		Action	Push_String_Extended,0x645					; "class : "
0590 00da       |    |		Load_Top	At_Offset_2
0591 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0592 e00c       |    |		Load	0x0,0xc
0593 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0594 01cc       |    |		Execute	Vector,Catenate
0595 4801       |H   |		Short_Literal	0x1
0596 e014       |    |		Load	0x0,0x14
0597 e015       |    |		Load	0x0,0x15
0598 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0599 0092 0646  |   F|		Action	Push_String_Extended,0x646					; "object : "
059b 00da       |    |		Load_Top	At_Offset_2
059c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
059d e00c       |    |		Load	0x0,0xc
059e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
059f 01cc       |    |		Execute	Vector,Catenate
05a0 4801       |H   |		Short_Literal	0x1
05a1 e014       |    |		Load	0x0,0x14
05a2 e015       |    |		Load	0x0,0x15
05a3 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
05a4 0092 0647  |   G|		Action	Push_String_Extended,0x647					; "adress : "
05a6 00da       |    |		Load_Top	At_Offset_2
05a7 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
05a8 01cc       |    |		Execute	Vector,Catenate
05a9 4801       |H   |		Short_Literal	0x1
05aa e014       |    |		Load	0x0,0x14
05ab e015       |    |		Load	0x0,0x15
05ac 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
05ad 00d9       |    |		Load_Top	At_Offset_1
05ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05af 8016       |    |		Call	0x0,0x16
05b0 00da       |    |		Load_Top	At_Offset_2
05b1 e215       |    |		Load	0x1,0x15
05b2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05b3 003b       | ;  |		Store_Top	Access,At_Offset_3
05b4 00c9       |    |		Action	Pop_Auxiliary_Loop
05b5 00da       |    |		Load_Top	At_Offset_2
05b6 e215       |    |		Load	0x1,0x15
05b7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05b8 6fd0       |o   |		Jump_Zero	0x589
05b9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ba 0000 0000  |    |		.BLANK	0000[0x6]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 4601       |F   |		Jump_Case	0x2
05c4 7801       |x   |		Jump	0x5c6								; case 0x0
05c5 7807       |x   |		Jump	0x5cd								; case 0x1
05c6 00da       |    |		Load_Top	At_Offset_2
05c7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05c9 4800       |H   |		Short_Literal	0x0
05ca 00db       |    |		Load_Top	At_Offset_3
05cb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05cd 00da       |    |		Load_Top	At_Offset_2
05ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05cf 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05d1 0000 0000  |    |		.BLANK	0000[0x7]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 4601       |F   |		Jump_Case	0x2
05dc 7801       |x   |		Jump	0x5de								; case 0x0
05dd 7807       |x   |		Jump	0x5e5								; case 0x1
05de 00da       |    |		Load_Top	At_Offset_2
05df 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05e1 4801       |H   |		Short_Literal	0x1
05e2 00db       |    |		Load_Top	At_Offset_3
05e3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05e5 00da       |    |		Load_Top	At_Offset_2
05e6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05e7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05e9 0000 0000  |    |		.BLANK	0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 4601       |F   |		Jump_Case	0x2
05f4 7801       |x   |		Jump	0x5f6								; case 0x0
05f5 7810       |x   |		Jump	0x606								; case 0x1
05f6 00da       |    |		Load_Top	At_Offset_2
05f7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05f8 0125       | %  |		Execute	Any,Set_Constraint
05f9 00da       |    |		Load_Top	At_Offset_2
05fa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05fc 00da       |    |		Load_Top	At_Offset_2
05fd 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05fe 0125       | %  |		Execute	Any,Set_Constraint
05ff 00da       |    |		Load_Top	At_Offset_2
0600 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0601 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0602 8002       |    |		Call	0x0,0x2
0603 00db       |    |		Load_Top	At_Offset_3
0604 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0605 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0606 00da       |    |		Load_Top	At_Offset_2
0607 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0608 0125       | %  |		Execute	Any,Set_Constraint
0609 00da       |    |		Load_Top	At_Offset_2
060a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
060b 0125       | %  |		Execute	Any,Set_Constraint
060c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
060d 0000 0000  |    |		.XXX[0x3]
060f 0000       |    |
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 4601       |F   |		Jump_Case	0x2
0614 7801       |x   |		Jump	0x616								; case 0x0
0615 781f       |x   |		Jump	0x635								; case 0x1
0616 00da       |    |		Load_Top	At_Offset_2
0617 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0618 0125       | %  |		Execute	Any,Set_Constraint
0619 00da       |    |		Load_Top	At_Offset_2
061a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
061b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
061c 00da       |    |		Load_Top	At_Offset_2
061d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
061e 0125       | %  |		Execute	Any,Set_Constraint
061f 00da       |    |		Load_Top	At_Offset_2
0620 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0621 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0622 00da       |    |		Load_Top	At_Offset_2
0623 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0624 0125       | %  |		Execute	Any,Set_Constraint
0625 00da       |    |		Load_Top	At_Offset_2
0626 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0627 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0628 00da       |    |		Load_Top	At_Offset_2
0629 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
062a 0125       | %  |		Execute	Any,Set_Constraint
062b 00da       |    |		Load_Top	At_Offset_2
062c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
062d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
062e 00da       |    |		Load_Top	At_Offset_2
062f 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0630 0125       | %  |		Execute	Any,Set_Constraint
0631 00da       |    |		Load_Top	At_Offset_2
0632 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0633 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0634 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0635 00da       |    |		Load_Top	At_Offset_2
0636 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0637 0125       | %  |		Execute	Any,Set_Constraint
0638 00da       |    |		Load_Top	At_Offset_2
0639 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
063a 0125       | %  |		Execute	Any,Set_Constraint
063b 00da       |    |		Load_Top	At_Offset_2
063c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
063d 0125       | %  |		Execute	Any,Set_Constraint
063e 00da       |    |		Load_Top	At_Offset_2
063f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0640 0125       | %  |		Execute	Any,Set_Constraint
0641 00da       |    |		Load_Top	At_Offset_2
0642 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0643 0125       | %  |		Execute	Any,Set_Constraint
0644 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0645 ; --------------------------------------------------------------------------------------
0645 ; STRING TABLE
0645 ; --------------------------------------------------------------------------------------
0645 0008       |    |		.STRTAB	0x0008->0x0649							; "class : "
0646 000e       |    |		.STRTAB	0x000e->0x064d							; "object : "
0647 0015       |    |		.STRTAB	0x0015->0x0651							; "adress : "
0648 001c       |    |		.STREND 0x001c->0x0656
0649 636c 6173  |clas|		.STRTAB_STRINGS
0656 0000 0000  |    |		.XXX[0x2]
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x30c0,0x0000,0x0001,0x001c
065e 000b 06ce  |    |		.DBG4T	0x000b,0x06ce,0x8000,0x8000
0662 0066 0708  | f  |		.DBG4T	0x0066,0x0708,0x8000,0x0000
0666 009b 0000  |    |		.DBG4T	0x009b,0x0000,0x0005,0x0000
066a 00c3 071f  |    |		.DBG4T	0x00c3,0x071f,0x0001,0x0000
066e 00d3 0723  |   #|		.DBG4T	0x00d3,0x0723,0x0002,0x0000
0672 00eb 0726  |   &|		.DBG4T	0x00eb,0x0726,0x0001,0x0000
0676 00fb 0729  |   )|		.DBG4T	0x00fb,0x0729,0x0002,0x0000
067a 0133 0732  | 3 2|		.DBG4T	0x0133,0x0732,0x0002,0x0000
067e 0143 0737  | C 7|		.DBG4T	0x0143,0x0737,0x0001,0x0000
0682 014b 073a  | K :|		.DBG4T	0x014b,0x073a,0x0001,0x0000
0686 0173 0744  | s D|		.DBG4T	0x0173,0x0744,0x0001,0x4000
068a 01d3 075d  |   ]|		.DBG4T	0x01d3,0x075d,0x0001,0x4000
068e 021b 076d  |   m|		.DBG4T	0x021b,0x076d,0x0001,0x0000
0692 0223 0770  | # p|		.DBG4T	0x0223,0x0770,0x0001,0x4000
0696 02b3 0798  |    |		.DBG4T	0x02b3,0x0798,0x0001,0x4000
069a 030b 07ae  |    |		.DBG4T	0x030b,0x07ae,0x0002,0x4000
069e 0343 07c1  | C  |		.DBG4T	0x0343,0x07c1,0x0002,0x4000
06a2 0383 07d4  |    |		.DBG4T	0x0383,0x07d4,0x0002,0x4000
06a6 03cb 07e7  |    |		.DBG4T	0x03cb,0x07e7,0x0002,0x4000
06aa 041b 07fd  |    |		.DBG4T	0x041b,0x07fd,0x0001,0x4000
06ae 0473 0815  | s  |		.DBG4T	0x0473,0x0815,0x0001,0x4000
06b2 04cb 082d  |   -|		.DBG4T	0x04cb,0x082d,0x0001,0x4000
06b6 0523 0845  | # E|		.DBG4T	0x0523,0x0845,0x0001,0x4000
06ba 057b 085d  | { ]|		.DBG4T	0x057b,0x085d,0x0001,0x4000
06be 05c3 0000  |    |		.DBG4T	0x05c3,0x0000,0x0005,0x0000
06c2 05db 0000  |    |		.DBG4T	0x05db,0x0000,0x0005,0x0000
06c6 05f3 0000  |    |		.DBG4T	0x05f3,0x0000,0x0005,0x0000
06ca 0613 0000  |    |		.DBG4T	0x0613,0x0000,0x0005,0x0000
06ce ; --------------------------------------------------------------------------------------
06ce ; Debug chain
06ce ; --------------------------------------------------------------------------------------
06ce 001c 0000  |    |		.DBGLEN	0x001c,0x0000
06d0 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0016,0x001f,0x0026,0x0028,0x002a,0x002c,0x002e,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x005f
06ec 0001 0003  |    |		.XXX[0x1c]
06ee 0004 0005  |    |
06f0 0006 0007  |    |
06f2 0008 0009  |    |
06f4 000a 000b  |    |
06f6 000c 000d  |    |
06f8 000e 000f  |    |
06fa 0010 0011  |    |
06fc 0012 0013  |    |
06fe 0014 0015  |    |
0700 0016 0017  |    |
0702 0018 0019  |    |
0704 001a 001b  |    |
0706 001c 001d  |    |
0708 ; --------------------------------------------------------------------------------------
0708 ; Debug chain
0708 ; --------------------------------------------------------------------------------------
0708 0015 0000  |    |		.DBGLEN	0x0015,0x0000
070a 0066 0068  | f h|		.DBGLNO	0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e
071f ; --------------------------------------------------------------------------------------
071f ; Debug chain
071f ; --------------------------------------------------------------------------------------
071f 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0721 00c3 00c6  |    |		.DBGLNO	0x00c3,0x00c6
0723 ; --------------------------------------------------------------------------------------
0723 ; Debug chain
0723 ; --------------------------------------------------------------------------------------
0723 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0725 00d3       |    |		.DBGLNO	0x00d3
0726 ; --------------------------------------------------------------------------------------
0726 ; Debug chain
0726 ; --------------------------------------------------------------------------------------
0726 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0728 00eb       |    |		.DBGLNO	0x00eb
0729 ; --------------------------------------------------------------------------------------
0729 ; Debug chain
0729 ; --------------------------------------------------------------------------------------
0729 0001 0006  |    |		.DBGLEN	0x0001,0x0006
072b 00fb 00ff  |    |		.DBGLNO	0x00fb,0x00ff,0x0108,0x0111,0x011a,0x0123,0x012c
0732 ; --------------------------------------------------------------------------------------
0732 ; Debug chain
0732 ; --------------------------------------------------------------------------------------
0732 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0734 0133 0135  | 3 5|		.DBGLNO	0x0133,0x0135,0x013a
0737 ; --------------------------------------------------------------------------------------
0737 ; Debug chain
0737 ; --------------------------------------------------------------------------------------
0737 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0739 0143       | C  |		.DBGLNO	0x0143
073a ; --------------------------------------------------------------------------------------
073a ; Debug chain
073a ; --------------------------------------------------------------------------------------
073a 0002 0006  |    |		.DBGLEN	0x0002,0x0006
073c 014b 014f  | K O|		.DBGLNO	0x014b,0x014f,0x0153,0x0156,0x0159,0x015c,0x0162,0x0168
0744 ; --------------------------------------------------------------------------------------
0744 ; Debug chain
0744 ; --------------------------------------------------------------------------------------
0744 0003 000a  |    |		.DBGLEN	0x0003,0x000a
0746 0173 0175  | s u|		.DBGLNO	0x0173,0x0175,0x0179,0x017d,0x0183,0x018b,0x0190,0x01ad,0x01b2,0x01b7,0x01bd,0x01c2,0x01c7
0753 0001 0002  |    |		.XXX[0xa]
0755 0004 0005  |    |
0757 0006 0007  |    |
0759 0008 0009  |    |
075b 000a 0003  |    |
075d ; --------------------------------------------------------------------------------------
075d ; Debug chain
075d ; --------------------------------------------------------------------------------------
075d 0002 0006  |    |		.DBGLEN	0x0002,0x0006
075f 01d3 01d5  |    |		.DBGLNO	0x01d3,0x01d5,0x01d9,0x01e1,0x01e6,0x0203,0x0208,0x020d
0767 0001 0003  |    |		.XXX[0x6]
0769 0004 0005  |    |
076b 0006 0002  |    |
076d ; --------------------------------------------------------------------------------------
076d ; Debug chain
076d ; --------------------------------------------------------------------------------------
076d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
076f 021b       |    |		.DBGLNO	0x021b
0770 ; --------------------------------------------------------------------------------------
0770 ; Debug chain
0770 ; --------------------------------------------------------------------------------------
0770 0006 0010  |    |		.DBGLEN	0x0006,0x0010
0772 0223 0225  | # %|		.DBGLNO	0x0223,0x0225,0x0227,0x022b,0x022f,0x0231,0x0233,0x023b,0x0240,0x0256,0x025f,0x0264,0x0269,0x0270,0x0277,0x027e,0x0285,0x028c,0x028f,0x0294,0x029f,0x02a4
0788 0001 0003  |    |		.XXX[0x10]
078a 0004 0005  |    |
078c 0007 0008  |    |
078e 0009 000a  |    |
0790 000b 000c  |    |
0792 000d 000e  |    |
0794 000f 0006  |    |
0796 0010 0002  |    |
0798 ; --------------------------------------------------------------------------------------
0798 ; Debug chain
0798 ; --------------------------------------------------------------------------------------
0798 0004 0008  |    |		.DBGLEN	0x0004,0x0008
079a 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02b9,0x02bb,0x02bf,0x02c5,0x02cd,0x02d2,0x02ed,0x02f1,0x02f3,0x02f8
07a6 0001 0002  |    |		.XXX[0x8]
07a8 0004 0005  |    |
07aa 0006 0007  |    |
07ac 0008 0003  |    |
07ae ; --------------------------------------------------------------------------------------
07ae ; Debug chain
07ae ; --------------------------------------------------------------------------------------
07ae 0003 0007  |    |		.DBGLEN	0x0003,0x0007
07b0 030b 030d  |    |		.DBGLNO	0x030b,0x030d,0x0311,0x0313,0x031b,0x0320,0x032b,0x032d,0x0332,0x0337
07ba 0001 0003  |    |		.XXX[0x7]
07bc 0004 0005  |    |
07be 0006 0002  |    |
07c0 0007       |    |
07c1 ; --------------------------------------------------------------------------------------
07c1 ; Debug chain
07c1 ; --------------------------------------------------------------------------------------
07c1 0003 0007  |    |		.DBGLEN	0x0003,0x0007
07c3 0343 0345  | C E|		.DBGLNO	0x0343,0x0345,0x0349,0x034b,0x0353,0x0358,0x036e,0x0370,0x0375,0x037a
07cd 0001 0003  |    |		.XXX[0x7]
07cf 0004 0005  |    |
07d1 0006 0002  |    |
07d3 0007       |    |
07d4 ; --------------------------------------------------------------------------------------
07d4 ; Debug chain
07d4 ; --------------------------------------------------------------------------------------
07d4 0003 0007  |    |		.DBGLEN	0x0003,0x0007
07d6 0383 0385  |    |		.DBGLNO	0x0383,0x0385,0x0389,0x038b,0x0393,0x0398,0x03ae,0x03b7,0x03bc,0x03c1
07e0 0001 0003  |    |		.XXX[0x7]
07e2 0004 0005  |    |
07e4 0006 0002  |    |
07e6 0007       |    |
07e7 ; --------------------------------------------------------------------------------------
07e7 ; Debug chain
07e7 ; --------------------------------------------------------------------------------------
07e7 0004 0008  |    |		.DBGLEN	0x0004,0x0008
07e9 03cb 03cd  |    |		.DBGLNO	0x03cb,0x03cd,0x03d1,0x03d3,0x03d7,0x03dd,0x03e5,0x03ea,0x0400,0x0409,0x040e,0x0413
07f5 0001 0002  |    |		.XXX[0x8]
07f7 0004 0005  |    |
07f9 0006 0007  |    |
07fb 0003 0008  |    |
07fd ; --------------------------------------------------------------------------------------
07fd ; Debug chain
07fd ; --------------------------------------------------------------------------------------
07fd 0004 0009  |    |		.DBGLEN	0x0004,0x0009
07ff 041b 041d  |    |		.DBGLNO	0x041b,0x041d,0x0421,0x0423,0x0427,0x042d,0x0435,0x043a,0x0450,0x0455,0x045c,0x0461,0x0466
080c 0001 0002  |    |		.XXX[0x9]
080e 0004 0005  |    |
0810 0006 0007  |    |
0812 0008 0009  |    |
0814 0003       |    |
0815 ; --------------------------------------------------------------------------------------
0815 ; Debug chain
0815 ; --------------------------------------------------------------------------------------
0815 0004 0009  |    |		.DBGLEN	0x0004,0x0009
0817 0473 0475  | s u|		.DBGLNO	0x0473,0x0475,0x0479,0x047b,0x047f,0x0485,0x048d,0x0492,0x04a8,0x04ad,0x04b4,0x04b9,0x04be
0824 0001 0002  |    |		.XXX[0x9]
0826 0004 0005  |    |
0828 0006 0007  |    |
082a 0008 0009  |    |
082c 0003       |    |
082d ; --------------------------------------------------------------------------------------
082d ; Debug chain
082d ; --------------------------------------------------------------------------------------
082d 0004 0009  |    |		.DBGLEN	0x0004,0x0009
082f 04cb 04cd  |    |		.DBGLNO	0x04cb,0x04cd,0x04d1,0x04d3,0x04d7,0x04dd,0x04e5,0x04ea,0x0500,0x0505,0x050c,0x0511,0x0516
083c 0001 0002  |    |		.XXX[0x9]
083e 0004 0005  |    |
0840 0006 0007  |    |
0842 0008 0009  |    |
0844 0003       |    |
0845 ; --------------------------------------------------------------------------------------
0845 ; Debug chain
0845 ; --------------------------------------------------------------------------------------
0845 0004 0009  |    |		.DBGLEN	0x0004,0x0009
0847 0523 0525  | # %|		.DBGLNO	0x0523,0x0525,0x0529,0x052b,0x052f,0x0535,0x053d,0x0542,0x0558,0x055d,0x0564,0x0569,0x056e
0854 0001 0002  |    |		.XXX[0x9]
0856 0004 0005  |    |
0858 0006 0007  |    |
085a 0008 0009  |    |
085c 0003       |    |
085d ; --------------------------------------------------------------------------------------
085d ; Debug chain
085d ; --------------------------------------------------------------------------------------
085d 0002 0008  |    |		.DBGLEN	0x0002,0x0008
085f 057b 057d  | { }|		.DBGLNO	0x057b,0x057d,0x0581,0x0589,0x058e,0x0599,0x05a4,0x05ad,0x05b0,0x05b5
0869 0001 0003  |    |		.XXX[0x8]
086b 0004 0005  |    |
086d 0006 0007  |    |
086f 0008 0002  |    |
0871 0000 0000  |    |		.BLANK	0000[0x18f]