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

⟦b618cdc38⟧

    Length: 4096 (0x1000)
    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 04b8       |    |		.CONST	0x04b8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0060       | `  |		.CONST	0x0060								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 0093 0413  |    |		push_full_address	INIT_0410
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 038f       |    |		Declare_Type	Package,Defined,Visible
0010 e002       |    |		Load	0x0,0x2
0011 4801       |H   |		Short_Literal	0x1
0012 00da       |    |		Load_Top	At_Offset_2
0013 020e       |    |		Execute	Module,Augment_Imports
0014 0386       |    |		Declare_Variable	Package,Visible
0015 4801       |H   |		Short_Literal	0x1
0016 4805       |H   |		Short_Literal	0x5
0017 00da       |    |		Load_Top	At_Offset_2
0018 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0019 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
001b 4801       |H   |		Short_Literal	0x1
001c 035e       | ^  |		Declare_Type	Array,Defined,Visible
001d e003       |    |		Load	0x0,0x3
001e e004       |    |		Load	0x0,0x4
001f 00db       |    |		Load_Top	At_Offset_3
0020 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0021 e005       |    |		Load	0x0,0x5
0022 0386       |    |		Declare_Variable	Package,Visible
0023 00d8       |    |		Load_Top	At_Offset_0
0024 020f       |    |		Execute	Module,Activate
0025 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0027 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0029 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
002b 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
002d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
002f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0031 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0033 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0035 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0037 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0039 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
003b 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
003d 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
003f 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0041 00bf       |    |		Action	Accept_Activation
0042 e20d       |    |		Load	0x1,0xd
0043 020f       |    |		Execute	Module,Activate
0044 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005f 00c7       |    |		Action	Elaborate_Subprogram
0060			BODY_0008:
0060 00bc       |    |		Action	Signal_Activated
0061 00bb       |    |		Action	Signal_Completion
0062 0000 0000  |    |		.BLANK	0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4605       |F   |		Jump_Case	0x6
006c 7804       |x   |		Jump	0x71								; case 0x0
006d 7815       |x   |		Jump	0x83								; case 0x1
006e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
006f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0070 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0071 00da       |    |		Load_Top	At_Offset_2						; case 0x5
0072 01d8       |    |		Execute	Vector,Element_Type
0073 0322       | "  |		Declare_Variable	Record
0074 00d8       |    |		Load_Top	At_Offset_0
0075 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0076 00db       |    |		Load_Top	At_Offset_3
0077 01dc       |    |		Execute	Vector,Last
0078 e5ff       |    |		Load	0x2,-0x1
0079 01dd       |    |		Execute	Vector,First
007a 0263       | c  |		Execute	Discrete,Above_Bound
007b 7006       |p   |		Jump_Nonzero	0x82
007c 00da       |    |		Load_Top	At_Offset_2
007d 00d9       |    |		Load_Top	At_Offset_1
007e e5ff       |    |		Load	0x2,-0x1
007f 01d6       |    |		Execute	Vector,Field_Write
0080 0a01       |    |		Execute_Immediate	Plus,0x1
0081 7ff8       |    |		Jump	0x7a
0082 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0083 00da       |    |		Load_Top	At_Offset_2
0084 01dc       |    |		Execute	Vector,Last
0085 00db       |    |		Load_Top	At_Offset_3
0086 01dd       |    |		Execute	Vector,First
0087 0263       | c  |		Execute	Discrete,Above_Bound
0088 7006       |p   |		Jump_Nonzero	0x8f
0089 00d8       |    |		Load_Top	At_Offset_0
008a e5ff       |    |		Load	0x2,-0x1
008b 01d7       |    |		Execute	Vector,Field_Read
008c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
008d 0a01       |    |		Execute_Immediate	Plus,0x1
008e 7ff8       |    |		Jump	0x87
008f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 e20f       |    |		Load	0x1,0xf
0094 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0095			BODY_0090:
0095 e20f       |    |		Load	0x1,0xf
0096 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0097 e20f       |    |		Load	0x1,0xf
0098 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0099 0039       | 9  |		Store_Top	Access,At_Offset_1
009a 00d8       |    |		Load_Top	At_Offset_0
009b 00ca       |    |		Action	Exit_Nullary_Function
009c 0000 0000  |    |		.BLANK	0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00db       |    |		Load_Top	At_Offset_3
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 e20f       |    |		Load	0x1,0xf
00a6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00a7 c5fe       |    |		Store	0x2,-0x2
00a8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a9 0000 0000  |    |		.BLANK	0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00db       |    |		Load_Top	At_Offset_3
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 e20f       |    |		Load	0x1,0xf
00b6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00b7 c5fe       |    |		Store	0x2,-0x2
00b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b9 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
00c4 e20f       |    |		Load	0x1,0xf
00c5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d5       |    |		.CONST	0x00d5								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0005       |    |		.CONST	0x0005								; Number of locals
00cb			INIT_00c8:
00cb e20f       |    |		Load	0x1,0xf
00cc 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00cd 00e1       |    |		Load_Encached	Boolean_Cache
00ce 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00cf 03e9       |    |		Declare_Variable	Discrete,Duplicate
00d0 e20d       |    |		Load	0x1,0xd
00d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d2 0322       | "  |		Declare_Variable	Record
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d5			BODY_00c8:
00d5 e20f       |    |		Load	0x1,0xf
00d6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 e20f       |    |		Load	0x1,0xf
00d9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00da c402       |    |		Store	0x2,0x2
00db 00cf       |    |		Action	Mark_Auxiliary
00dc 7832       |x2  |		Jump	0x10f
00dd e402       |    |		Load	0x2,0x2
00de e20f       |    |		Load	0x1,0xf
00df 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 017d       | }  |		Execute	Record,Structure_Write
00e2 4801       |H   |		Short_Literal	0x1
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00e5 e006       |    |		Load	0x0,0x6
00e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e7 00db       |    |		Load_Top	At_Offset_3
00e8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00e9 e006       |    |		Load	0x0,0x6
00ea 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00eb e007       |    |		Load	0x0,0x7
00ec 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00ed 681c       |h   |		Jump_Zero	0x10a
00ee 4801       |H   |		Short_Literal	0x1
00ef e5ff       |    |		Load	0x2,-0x1
00f0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f1 e006       |    |		Load	0x0,0x6
00f2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f5 e006       |    |		Load	0x0,0x6
00f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f7 e007       |    |		Load	0x0,0x7
00f8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00f9 6810       |h   |		Jump_Zero	0x10a
00fa 4801       |H   |		Short_Literal	0x1
00fb e5ff       |    |		Load	0x2,-0x1
00fc 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00fd e006       |    |		Load	0x0,0x6
00fe 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ff 00db       |    |		Load_Top	At_Offset_3
0100 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0101 e006       |    |		Load	0x0,0x6
0102 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0103 e007       |    |		Load	0x0,0x7
0104 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0105 6804       |h   |		Jump_Zero	0x10a
0106 4801       |H   |		Short_Literal	0x1
0107 a403       |    |		Store_Unchecked	0x2,0x3
0108 4801       |H   |		Short_Literal	0x1
0109 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
010a e402       |    |		Load	0x2,0x2
010b e20f       |    |		Load	0x1,0xf
010c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
010d c402       |    |		Store	0x2,0x2
010e 00c9       |    |		Action	Pop_Auxiliary_Loop
010f 00da       |    |		Load_Top	At_Offset_2
0110 0f00       |    |		Execute_Immediate	Equal,0x0
0111 e402       |    |		Load	0x2,0x2
0112 e20f       |    |		Load	0x1,0xf
0113 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0114 0f00       |    |		Execute_Immediate	Equal,0x0
0115 0279       | y  |		Execute	Discrete,And
0116 77c6       |w   |		Jump_Nonzero	0xdd
0117 00ce       |    |		Action	Pop_Auxiliary
0118 00da       |    |		Load_Top	At_Offset_2
0119 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
011a 0000 0000  |    |		.BLANK	0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012d       | -  |		.CONST	0x012d								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0005       |    |		.CONST	0x0005								; Number of locals
0123			INIT_0120:
0123 e20f       |    |		Load	0x1,0xf
0124 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0125 00e1       |    |		Load_Encached	Boolean_Cache
0126 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0127 03e9       |    |		Declare_Variable	Discrete,Duplicate
0128 e20d       |    |		Load	0x1,0xd
0129 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012a 0322       | "  |		Declare_Variable	Record
012b 00d8       |    |		Load_Top	At_Offset_0
012c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012d			BODY_0120:
012d e20f       |    |		Load	0x1,0xf
012e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
012f e5fe       |    |		Load	0x2,-0x2
0130 e20f       |    |		Load	0x1,0xf
0131 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0132 c402       |    |		Store	0x2,0x2
0133 00cf       |    |		Action	Mark_Auxiliary
0134 7819       |x   |		Jump	0x14e
0135 e402       |    |		Load	0x2,0x2
0136 e20f       |    |		Load	0x1,0xf
0137 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0138 00da       |    |		Load_Top	At_Offset_2
0139 017d       | }  |		Execute	Record,Structure_Write
013a 4801       |H   |		Short_Literal	0x1
013b e5ff       |    |		Load	0x2,-0x1
013c e006       |    |		Load	0x0,0x6
013d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013e 00db       |    |		Load_Top	At_Offset_3
013f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0140 e006       |    |		Load	0x0,0x6
0141 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0142 e007       |    |		Load	0x0,0x7
0143 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0144 6804       |h   |		Jump_Zero	0x149
0145 4801       |H   |		Short_Literal	0x1
0146 a403       |    |		Store_Unchecked	0x2,0x3
0147 4801       |H   |		Short_Literal	0x1
0148 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0149 e402       |    |		Load	0x2,0x2
014a e20f       |    |		Load	0x1,0xf
014b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
014c c402       |    |		Store	0x2,0x2
014d 00c9       |    |		Action	Pop_Auxiliary_Loop
014e 00da       |    |		Load_Top	At_Offset_2
014f 0f00       |    |		Execute_Immediate	Equal,0x0
0150 e402       |    |		Load	0x2,0x2
0151 e20f       |    |		Load	0x1,0xf
0152 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0153 0f00       |    |		Execute_Immediate	Equal,0x0
0154 0279       | y  |		Execute	Discrete,And
0155 77df       |w   |		Jump_Nonzero	0x135
0156 00ce       |    |		Action	Pop_Auxiliary
0157 00da       |    |		Load_Top	At_Offset_2
0158 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016a       | j  |		.CONST	0x016a								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0003       |    |		.CONST	0x0003								; Number of locals
0163			INIT_0160:
0163 e20f       |    |		Load	0x1,0xf
0164 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0165 e20d       |    |		Load	0x1,0xd
0166 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0167 0322       | "  |		Declare_Variable	Record
0168 00d8       |    |		Load_Top	At_Offset_0
0169 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016a			BODY_0160:
016a e20f       |    |		Load	0x1,0xf
016b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
016c e5fe       |    |		Load	0x2,-0x2
016d e20f       |    |		Load	0x1,0xf
016e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
016f 003a       | :  |		Store_Top	Access,At_Offset_2
0170 00cf       |    |		Action	Mark_Auxiliary
0171 7831       |x1  |		Jump	0x1a3
0172 00da       |    |		Load_Top	At_Offset_2
0173 e20f       |    |		Load	0x1,0xf
0174 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0175 00da       |    |		Load_Top	At_Offset_2
0176 017d       | }  |		Execute	Record,Structure_Write
0177 4801       |H   |		Short_Literal	0x1
0178 e5ff       |    |		Load	0x2,-0x1
0179 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
017a e006       |    |		Load	0x0,0x6
017b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
017c 00db       |    |		Load_Top	At_Offset_3
017d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
017e e006       |    |		Load	0x0,0x6
017f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0180 e007       |    |		Load	0x0,0x7
0181 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0182 681b       |h   |		Jump_Zero	0x19e
0183 4801       |H   |		Short_Literal	0x1
0184 e5ff       |    |		Load	0x2,-0x1
0185 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0186 e006       |    |		Load	0x0,0x6
0187 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0188 00db       |    |		Load_Top	At_Offset_3
0189 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
018a e006       |    |		Load	0x0,0x6
018b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
018c e007       |    |		Load	0x0,0x7
018d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
018e 680f       |h   |		Jump_Zero	0x19e
018f 4801       |H   |		Short_Literal	0x1
0190 e5ff       |    |		Load	0x2,-0x1
0191 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0192 e006       |    |		Load	0x0,0x6
0193 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0194 00db       |    |		Load_Top	At_Offset_3
0195 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0196 e006       |    |		Load	0x0,0x6
0197 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0198 e007       |    |		Load	0x0,0x7
0199 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
019a 6803       |h   |		Jump_Zero	0x19e
019b 00d9       |    |		Load_Top	At_Offset_1
019c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
019d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019e 00da       |    |		Load_Top	At_Offset_2
019f e20f       |    |		Load	0x1,0xf
01a0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01a1 003b       | ;  |		Store_Top	Access,At_Offset_3
01a2 00c9       |    |		Action	Pop_Auxiliary_Loop
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 e20f       |    |		Load	0x1,0xf
01a5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01a6 6fcb       |o   |		Jump_Zero	0x172
01a7 00ce       |    |		Action	Pop_Auxiliary
01a8 0831       | 1  |		Execute_Immediate	Raise,0x31
01a9 0000 0000  |    |		.BLANK	0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01ba       |    |		.CONST	0x01ba								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0003       |    |		.CONST	0x0003								; Number of locals
01b3			INIT_01b0:
01b3 e20f       |    |		Load	0x1,0xf
01b4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01b5 e20d       |    |		Load	0x1,0xd
01b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b7 0322       | "  |		Declare_Variable	Record
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ba			BODY_01b0:
01ba e20f       |    |		Load	0x1,0xf
01bb 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01bc e5fe       |    |		Load	0x2,-0x2
01bd e20f       |    |		Load	0x1,0xf
01be 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01bf 003a       | :  |		Store_Top	Access,At_Offset_2
01c0 00cf       |    |		Action	Mark_Auxiliary
01c1 7831       |x1  |		Jump	0x1f3
01c2 00da       |    |		Load_Top	At_Offset_2
01c3 e20f       |    |		Load	0x1,0xf
01c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c5 00da       |    |		Load_Top	At_Offset_2
01c6 017d       | }  |		Execute	Record,Structure_Write
01c7 4801       |H   |		Short_Literal	0x1
01c8 e5ff       |    |		Load	0x2,-0x1
01c9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ca e006       |    |		Load	0x0,0x6
01cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ce e006       |    |		Load	0x0,0x6
01cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d0 e007       |    |		Load	0x0,0x7
01d1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01d2 681b       |h   |		Jump_Zero	0x1ee
01d3 4801       |H   |		Short_Literal	0x1
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01d6 e006       |    |		Load	0x0,0x6
01d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01da e006       |    |		Load	0x0,0x6
01db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01dc e007       |    |		Load	0x0,0x7
01dd 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01de 680f       |h   |		Jump_Zero	0x1ee
01df 4801       |H   |		Short_Literal	0x1
01e0 e5ff       |    |		Load	0x2,-0x1
01e1 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01e2 e006       |    |		Load	0x0,0x6
01e3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01e6 e006       |    |		Load	0x0,0x6
01e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e8 e007       |    |		Load	0x0,0x7
01e9 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01ea 6803       |h   |		Jump_Zero	0x1ee
01eb 00d9       |    |		Load_Top	At_Offset_1
01ec 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01ed 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ee 00da       |    |		Load_Top	At_Offset_2
01ef e20f       |    |		Load	0x1,0xf
01f0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01f1 003b       | ;  |		Store_Top	Access,At_Offset_3
01f2 00c9       |    |		Action	Pop_Auxiliary_Loop
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 e20f       |    |		Load	0x1,0xf
01f5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01f6 6fcb       |o   |		Jump_Zero	0x1c2
01f7 00ce       |    |		Action	Pop_Auxiliary
01f8 0831       | 1  |		Execute_Immediate	Raise,0x31
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020a       |    |		.CONST	0x020a								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0003       |    |		.CONST	0x0003								; Number of locals
0203			INIT_0200:
0203 e20f       |    |		Load	0x1,0xf
0204 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0205 e20d       |    |		Load	0x1,0xd
0206 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0207 0322       | "  |		Declare_Variable	Record
0208 00d8       |    |		Load_Top	At_Offset_0
0209 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020a			BODY_0200:
020a e20f       |    |		Load	0x1,0xf
020b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
020c e5fe       |    |		Load	0x2,-0x2
020d e20f       |    |		Load	0x1,0xf
020e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
020f 003a       | :  |		Store_Top	Access,At_Offset_2
0210 00cf       |    |		Action	Mark_Auxiliary
0211 783b       |x;  |		Jump	0x24d
0212 00da       |    |		Load_Top	At_Offset_2
0213 e20f       |    |		Load	0x1,0xf
0214 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0215 00da       |    |		Load_Top	At_Offset_2
0216 017d       | }  |		Execute	Record,Structure_Write
0217 4801       |H   |		Short_Literal	0x1
0218 e5ff       |    |		Load	0x2,-0x1
0219 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
021a e006       |    |		Load	0x0,0x6
021b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021c 00db       |    |		Load_Top	At_Offset_3
021d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
021e e006       |    |		Load	0x0,0x6
021f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0220 e007       |    |		Load	0x0,0x7
0221 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0222 6825       |h%  |		Jump_Zero	0x248
0223 4801       |H   |		Short_Literal	0x1
0224 e5ff       |    |		Load	0x2,-0x1
0225 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0226 e006       |    |		Load	0x0,0x6
0227 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0228 00db       |    |		Load_Top	At_Offset_3
0229 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
022a e006       |    |		Load	0x0,0x6
022b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022c e007       |    |		Load	0x0,0x7
022d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
022e 6819       |h   |		Jump_Zero	0x248
022f 4801       |H   |		Short_Literal	0x1
0230 e5ff       |    |		Load	0x2,-0x1
0231 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0232 e006       |    |		Load	0x0,0x6
0233 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0234 00db       |    |		Load_Top	At_Offset_3
0235 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0236 e006       |    |		Load	0x0,0x6
0237 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0238 e007       |    |		Load	0x0,0x7
0239 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
023a 680d       |h   |		Jump_Zero	0x248
023b e5fe       |    |		Load	0x2,-0x2
023c 00da       |    |		Load_Top	At_Offset_2
023d e20f       |    |		Load	0x1,0xf
023e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
023f c5fe       |    |		Store	0x2,-0x2
0240 4801       |H   |		Short_Literal	0x1
0241 00da       |    |		Load_Top	At_Offset_2
0242 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0243 e5fe       |    |		Load	0x2,-0x2
0244 00da       |    |		Load_Top	At_Offset_2
0245 e20f       |    |		Load	0x1,0xf
0246 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0247 c5fe       |    |		Store	0x2,-0x2
0248 00da       |    |		Load_Top	At_Offset_2
0249 e20f       |    |		Load	0x1,0xf
024a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
024b 003b       | ;  |		Store_Top	Access,At_Offset_3
024c 00c9       |    |		Action	Pop_Auxiliary_Loop
024d 00da       |    |		Load_Top	At_Offset_2
024e e20f       |    |		Load	0x1,0xf
024f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0250 6fc1       |o   |		Jump_Zero	0x212
0251 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0252 0000 0000  |    |		.BLANK	0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0262       | b  |		.CONST	0x0262								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0003       |    |		.CONST	0x0003								; Number of locals
025b			INIT_0258:
025b e20f       |    |		Load	0x1,0xf
025c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
025d e20d       |    |		Load	0x1,0xd
025e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
025f 0322       | "  |		Declare_Variable	Record
0260 00d8       |    |		Load_Top	At_Offset_0
0261 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0262			BODY_0258:
0262 e20f       |    |		Load	0x1,0xf
0263 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0264 e5fe       |    |		Load	0x2,-0x2
0265 e20f       |    |		Load	0x1,0xf
0266 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0267 003a       | :  |		Store_Top	Access,At_Offset_2
0268 00cf       |    |		Action	Mark_Auxiliary
0269 783b       |x;  |		Jump	0x2a5
026a 00da       |    |		Load_Top	At_Offset_2
026b e20f       |    |		Load	0x1,0xf
026c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
026d 00da       |    |		Load_Top	At_Offset_2
026e 017d       | }  |		Execute	Record,Structure_Write
026f 4801       |H   |		Short_Literal	0x1
0270 e5ff       |    |		Load	0x2,-0x1
0271 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0272 e006       |    |		Load	0x0,0x6
0273 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0274 00db       |    |		Load_Top	At_Offset_3
0275 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0276 e006       |    |		Load	0x0,0x6
0277 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0278 e007       |    |		Load	0x0,0x7
0279 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
027a 6825       |h%  |		Jump_Zero	0x2a0
027b 4801       |H   |		Short_Literal	0x1
027c e5ff       |    |		Load	0x2,-0x1
027d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
027e e006       |    |		Load	0x0,0x6
027f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0280 00db       |    |		Load_Top	At_Offset_3
0281 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0282 e006       |    |		Load	0x0,0x6
0283 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0284 e007       |    |		Load	0x0,0x7
0285 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0286 6819       |h   |		Jump_Zero	0x2a0
0287 4801       |H   |		Short_Literal	0x1
0288 e5ff       |    |		Load	0x2,-0x1
0289 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
028a e006       |    |		Load	0x0,0x6
028b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
028c 00db       |    |		Load_Top	At_Offset_3
028d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
028e e006       |    |		Load	0x0,0x6
028f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0290 e007       |    |		Load	0x0,0x7
0291 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0292 680d       |h   |		Jump_Zero	0x2a0
0293 e5fe       |    |		Load	0x2,-0x2
0294 00da       |    |		Load_Top	At_Offset_2
0295 e20f       |    |		Load	0x1,0xf
0296 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0297 c5fe       |    |		Store	0x2,-0x2
0298 4800       |H   |		Short_Literal	0x0
0299 00da       |    |		Load_Top	At_Offset_2
029a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
029b e5fe       |    |		Load	0x2,-0x2
029c 00da       |    |		Load_Top	At_Offset_2
029d e20f       |    |		Load	0x1,0xf
029e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
029f c5fe       |    |		Store	0x2,-0x2
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 e20f       |    |		Load	0x1,0xf
02a2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02a3 003b       | ;  |		Store_Top	Access,At_Offset_3
02a4 00c9       |    |		Action	Pop_Auxiliary_Loop
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 e20f       |    |		Load	0x1,0xf
02a7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02a8 6fc1       |o   |		Jump_Zero	0x26a
02a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02aa 0000 0000  |    |		.BLANK	0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02ba       |    |		.CONST	0x02ba								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0003       |    |		.CONST	0x0003								; Number of locals
02b3			INIT_02b0:
02b3 e20f       |    |		Load	0x1,0xf
02b4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02b5 e20d       |    |		Load	0x1,0xd
02b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b7 0322       | "  |		Declare_Variable	Record
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ba			BODY_02b0:
02ba e20f       |    |		Load	0x1,0xf
02bb 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02bc e5fe       |    |		Load	0x2,-0x2
02bd e20f       |    |		Load	0x1,0xf
02be 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02bf 003a       | :  |		Store_Top	Access,At_Offset_2
02c0 00cf       |    |		Action	Mark_Auxiliary
02c1 783b       |x;  |		Jump	0x2fd
02c2 00da       |    |		Load_Top	At_Offset_2
02c3 e20f       |    |		Load	0x1,0xf
02c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 017d       | }  |		Execute	Record,Structure_Write
02c7 4801       |H   |		Short_Literal	0x1
02c8 e5ff       |    |		Load	0x2,-0x1
02c9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02ca e006       |    |		Load	0x0,0x6
02cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cc 00db       |    |		Load_Top	At_Offset_3
02cd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02ce e006       |    |		Load	0x0,0x6
02cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d0 e007       |    |		Load	0x0,0x7
02d1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02d2 6825       |h%  |		Jump_Zero	0x2f8
02d3 4801       |H   |		Short_Literal	0x1
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02d6 e006       |    |		Load	0x0,0x6
02d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02da e006       |    |		Load	0x0,0x6
02db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02dc e007       |    |		Load	0x0,0x7
02dd 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02de 6819       |h   |		Jump_Zero	0x2f8
02df 4801       |H   |		Short_Literal	0x1
02e0 e5ff       |    |		Load	0x2,-0x1
02e1 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02e2 e006       |    |		Load	0x0,0x6
02e3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e4 00db       |    |		Load_Top	At_Offset_3
02e5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02e6 e006       |    |		Load	0x0,0x6
02e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e8 e007       |    |		Load	0x0,0x7
02e9 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02ea 680d       |h   |		Jump_Zero	0x2f8
02eb e5fe       |    |		Load	0x2,-0x2
02ec 00da       |    |		Load_Top	At_Offset_2
02ed e20f       |    |		Load	0x1,0xf
02ee 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ef c5fe       |    |		Store	0x2,-0x2
02f0 4801       |H   |		Short_Literal	0x1
02f1 00da       |    |		Load_Top	At_Offset_2
02f2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02f3 e5fe       |    |		Load	0x2,-0x2
02f4 00da       |    |		Load_Top	At_Offset_2
02f5 e20f       |    |		Load	0x1,0xf
02f6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02f7 c5fe       |    |		Store	0x2,-0x2
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 e20f       |    |		Load	0x1,0xf
02fa 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02fb 003b       | ;  |		Store_Top	Access,At_Offset_3
02fc 00c9       |    |		Action	Pop_Auxiliary_Loop
02fd 00da       |    |		Load_Top	At_Offset_2
02fe e20f       |    |		Load	0x1,0xf
02ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0300 6fc1       |o   |		Jump_Zero	0x2c2
0301 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0302 0000 0000  |    |		.BLANK	0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0312       |    |		.CONST	0x0312								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0003       |    |		.CONST	0x0003								; Number of locals
030b			INIT_0308:
030b e20f       |    |		Load	0x1,0xf
030c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
030d e20d       |    |		Load	0x1,0xd
030e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030f 0322       | "  |		Declare_Variable	Record
0310 00d8       |    |		Load_Top	At_Offset_0
0311 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0312			BODY_0308:
0312 e20f       |    |		Load	0x1,0xf
0313 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0314 e5fe       |    |		Load	0x2,-0x2
0315 e20f       |    |		Load	0x1,0xf
0316 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0317 003a       | :  |		Store_Top	Access,At_Offset_2
0318 00cf       |    |		Action	Mark_Auxiliary
0319 783b       |x;  |		Jump	0x355
031a 00da       |    |		Load_Top	At_Offset_2
031b e20f       |    |		Load	0x1,0xf
031c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
031d 00da       |    |		Load_Top	At_Offset_2
031e 017d       | }  |		Execute	Record,Structure_Write
031f 4801       |H   |		Short_Literal	0x1
0320 e5ff       |    |		Load	0x2,-0x1
0321 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0322 e006       |    |		Load	0x0,0x6
0323 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0324 00db       |    |		Load_Top	At_Offset_3
0325 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0326 e006       |    |		Load	0x0,0x6
0327 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0328 e007       |    |		Load	0x0,0x7
0329 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
032a 6825       |h%  |		Jump_Zero	0x350
032b 4801       |H   |		Short_Literal	0x1
032c e5ff       |    |		Load	0x2,-0x1
032d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
032e e006       |    |		Load	0x0,0x6
032f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0330 00db       |    |		Load_Top	At_Offset_3
0331 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0332 e006       |    |		Load	0x0,0x6
0333 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0334 e007       |    |		Load	0x0,0x7
0335 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0336 6819       |h   |		Jump_Zero	0x350
0337 4801       |H   |		Short_Literal	0x1
0338 e5ff       |    |		Load	0x2,-0x1
0339 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
033a e006       |    |		Load	0x0,0x6
033b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
033c 00db       |    |		Load_Top	At_Offset_3
033d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
033e e006       |    |		Load	0x0,0x6
033f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0340 e007       |    |		Load	0x0,0x7
0341 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0342 680d       |h   |		Jump_Zero	0x350
0343 e5fe       |    |		Load	0x2,-0x2
0344 00da       |    |		Load_Top	At_Offset_2
0345 e20f       |    |		Load	0x1,0xf
0346 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0347 c5fe       |    |		Store	0x2,-0x2
0348 4800       |H   |		Short_Literal	0x0
0349 00da       |    |		Load_Top	At_Offset_2
034a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
034b e5fe       |    |		Load	0x2,-0x2
034c 00da       |    |		Load_Top	At_Offset_2
034d e20f       |    |		Load	0x1,0xf
034e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
034f c5fe       |    |		Store	0x2,-0x2
0350 00da       |    |		Load_Top	At_Offset_2
0351 e20f       |    |		Load	0x1,0xf
0352 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0353 003b       | ;  |		Store_Top	Access,At_Offset_3
0354 00c9       |    |		Action	Pop_Auxiliary_Loop
0355 00da       |    |		Load_Top	At_Offset_2
0356 e20f       |    |		Load	0x1,0xf
0357 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0358 6fc1       |o   |		Jump_Zero	0x31a
0359 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
035a 0000 0000  |    |		.BLANK	0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036e       | n  |		.CONST	0x036e								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0005       |    |		.CONST	0x0005								; Number of locals
0363			INIT_0360:
0363 e20f       |    |		Load	0x1,0xf
0364 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0365 e20d       |    |		Load	0x1,0xd
0366 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0367 0322       | "  |		Declare_Variable	Record
0368 00d8       |    |		Load_Top	At_Offset_0
0369 1c00       |    |		Execute_Immediate	Run_Utility,0x0
036a 00e2       |    |		Load_Encached	Integer_Cache
036b 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
036c 00e1       |    |		Load_Encached	Boolean_Cache
036d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
036e			BODY_0360:
036e e20f       |    |		Load	0x1,0xf
036f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0370 e5fe       |    |		Load	0x2,-0x2
0371 e20f       |    |		Load	0x1,0xf
0372 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0373 c402       |    |		Store	0x2,0x2
0374 00cf       |    |		Action	Mark_Auxiliary
0375 782d       |x-  |		Jump	0x3a3
0376 e402       |    |		Load	0x2,0x2
0377 e20f       |    |		Load	0x1,0xf
0378 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0379 e403       |    |		Load	0x2,0x3
037a 017d       | }  |		Execute	Record,Structure_Write
037b 00db       |    |		Load_Top	At_Offset_3
037c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
037d 7020       |p   |		Jump_Nonzero	0x39e
037e 00db       |    |		Load_Top	At_Offset_3
037f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0380 701d       |p   |		Jump_Nonzero	0x39e
0381 4801       |H   |		Short_Literal	0x1
0382 e5ff       |    |		Load	0x2,-0x1
0383 e006       |    |		Load	0x0,0x6
0384 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0385 e403       |    |		Load	0x2,0x3
0386 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0387 e006       |    |		Load	0x0,0x6
0388 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0389 e007       |    |		Load	0x0,0x7
038a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
038b 00db       |    |		Load_Top	At_Offset_3
038c e5fd       |    |		Load	0x2,-0x3
038d 01da       |    |		Execute	Vector,Bounds
038e 0262       | b  |		Execute	Discrete,In_Range
038f 0279       | y  |		Execute	Discrete,And
0390 680d       |h   |		Jump_Zero	0x39e
0391 00db       |    |		Load_Top	At_Offset_3
0392 00db       |    |		Load_Top	At_Offset_3
0393 e5fd       |    |		Load	0x2,-0x3
0394 01d6       |    |		Execute	Vector,Field_Write
0395 00da       |    |		Load_Top	At_Offset_2
0396 0f05       |    |		Execute_Immediate	Equal,0x5
0397 6803       |h   |		Jump_Zero	0x39b
0398 4801       |H   |		Short_Literal	0x1
0399 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
039a 7803       |x   |		Jump	0x39e
039b 00da       |    |		Load_Top	At_Offset_2
039c 0a01       |    |		Execute_Immediate	Plus,0x1
039d 005b       | [  |		Store_Top	Discrete,At_Offset_3
039e e402       |    |		Load	0x2,0x2
039f e20f       |    |		Load	0x1,0xf
03a0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03a1 c402       |    |		Store	0x2,0x2
03a2 00c9       |    |		Action	Pop_Auxiliary_Loop
03a3 00d9       |    |		Load_Top	At_Offset_1
03a4 0f00       |    |		Execute_Immediate	Equal,0x0
03a5 e402       |    |		Load	0x2,0x2
03a6 e20f       |    |		Load	0x1,0xf
03a7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03a8 0f00       |    |		Execute_Immediate	Equal,0x0
03a9 0279       | y  |		Execute	Discrete,And
03aa 77cb       |w   |		Jump_Nonzero	0x376
03ab 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03ba       |    |		.CONST	0x03ba								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 e20f       |    |		Load	0x1,0xf
03b4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
03b5 e20d       |    |		Load	0x1,0xd
03b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b7 0322       | "  |		Declare_Variable	Record
03b8 00d8       |    |		Load_Top	At_Offset_0
03b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ba			BODY_03b0:
03ba e20f       |    |		Load	0x1,0xf
03bb 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
03bc e5ff       |    |		Load	0x2,-0x1
03bd e20f       |    |		Load	0x1,0xf
03be 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03bf 003a       | :  |		Store_Top	Access,At_Offset_2
03c0 00cf       |    |		Action	Mark_Auxiliary
03c1 7849       |xI  |		Jump	0x40b
03c2 00da       |    |		Load_Top	At_Offset_2
03c3 e20f       |    |		Load	0x1,0xf
03c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 017d       | }  |		Execute	Record,Structure_Write
03c7 0092 0479  |   y|		Action	Push_String_Extended,0x479					; "method : "
03c9 4801       |H   |		Short_Literal	0x1
03ca e008       |    |		Load	0x0,0x8
03cb e009       |    |		Load	0x0,0x9
03cc 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
03cd 0092 047a  |   z|		Action	Push_String_Extended,0x47a					; "          name : "
03cf 00da       |    |		Load_Top	At_Offset_2
03d0 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03d1 e006       |    |		Load	0x0,0x6
03d2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d3 01cc       |    |		Execute	Vector,Catenate
03d4 4801       |H   |		Short_Literal	0x1
03d5 e008       |    |		Load	0x0,0x8
03d6 e009       |    |		Load	0x0,0x9
03d7 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
03d8 0092 047b  |   {|		Action	Push_String_Extended,0x47b					; "          parameter : "
03da 00da       |    |		Load_Top	At_Offset_2
03db 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03dc e006       |    |		Load	0x0,0x6
03dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03de 01cc       |    |		Execute	Vector,Catenate
03df 4801       |H   |		Short_Literal	0x1
03e0 e008       |    |		Load	0x0,0x8
03e1 e009       |    |		Load	0x0,0x9
03e2 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
03e3 0092 047c  |   ||		Action	Push_String_Extended,0x47c					; "          number : "
03e5 00da       |    |		Load_Top	At_Offset_2
03e6 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
03e7 e006       |    |		Load	0x0,0x6
03e8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e9 01cc       |    |		Execute	Vector,Catenate
03ea 4801       |H   |		Short_Literal	0x1
03eb e008       |    |		Load	0x0,0x8
03ec e009       |    |		Load	0x0,0x9
03ed 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
03ee 0092 047d  |   }|		Action	Push_String_Extended,0x47d					; "          used : "
03f0 00da       |    |		Load_Top	At_Offset_2
03f1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03f2 00e1       |    |		Load_Encached	Boolean_Cache
03f3 011c       |    |		Execute	Any,Convert_Unchecked
03f4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03f5 01cc       |    |		Execute	Vector,Catenate
03f6 4801       |H   |		Short_Literal	0x1
03f7 e008       |    |		Load	0x0,0x8
03f8 e009       |    |		Load	0x0,0x9
03f9 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
03fa 0092 047e  |   ~|		Action	Push_String_Extended,0x47e					; "          lost : "
03fc 00da       |    |		Load_Top	At_Offset_2
03fd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03fe 00e1       |    |		Load_Encached	Boolean_Cache
03ff 011c       |    |		Execute	Any,Convert_Unchecked
0400 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0401 01cc       |    |		Execute	Vector,Catenate
0402 4801       |H   |		Short_Literal	0x1
0403 e008       |    |		Load	0x0,0x8
0404 e009       |    |		Load	0x0,0x9
0405 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0406 00da       |    |		Load_Top	At_Offset_2
0407 e20f       |    |		Load	0x1,0xf
0408 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0409 003b       | ;  |		Store_Top	Access,At_Offset_3
040a 00c9       |    |		Action	Pop_Auxiliary_Loop
040b 00da       |    |		Load_Top	At_Offset_2
040c e20f       |    |		Load	0x1,0xf
040d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
040e 6fb3       |o   |		Jump_Zero	0x3c2
040f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0429       | )  |		.CONST	0x0429								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0010       |    |		.CONST	0x0010								; Number of locals
0413			INIT_0410:
0413 e001       |    |		Load	0x0,0x1
0414 00d8       |    |		Load_Top	At_Offset_0
0415 e001       |    |		Load	0x0,0x1
0416 00e1       |    |		Load_Encached	Boolean_Cache
0417 00e1       |    |		Load_Encached	Boolean_Cache
0418 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
041a 4805       |H   |		Short_Literal	0x5
041b 032e       | .  |		Declare_Type	Record,Defined,Visible
041c 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
041e 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
0420 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0422 00bf       |    |		Action	Accept_Activation
0423 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0424 00c7       |    |		Action	Elaborate_Subprogram
0425 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0426 00c7       |    |		Action	Elaborate_Subprogram
0427 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0428 00c7       |    |		Action	Elaborate_Subprogram
0429			BODY_0410:
0429 00bc       |    |		Action	Signal_Activated
042a 00bb       |    |		Action	Signal_Completion
042b 0000 0000  |    |		.BLANK	0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00da       |    |		Load_Top	At_Offset_2
0434 e5fc       |    |		Load	0x2,-0x4
0435 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0436 00db       |    |		Load_Top	At_Offset_3
0437 e5fc       |    |		Load	0x2,-0x4
0438 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0439 e5fd       |    |		Load	0x2,-0x3
043a e5fc       |    |		Load	0x2,-0x4
043b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
043c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
043d 0000 0000  |    |		.XXX[0x3]
043f 0000       |    |
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00da       |    |		Load_Top	At_Offset_2
0444 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0445 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0446 00cd       |    |		Action	Spare6_Action
0447 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 00da       |    |		Load_Top	At_Offset_2
044c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
044d 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
044e 00cd       |    |		Action	Spare6_Action
044f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 4601       |F   |		Jump_Case	0x2
0454 7801       |x   |		Jump	0x456								; case 0x0
0455 7819       |x   |		Jump	0x46f								; case 0x1
0456 00da       |    |		Load_Top	At_Offset_2
0457 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0458 0125       | %  |		Execute	Any,Set_Constraint
0459 00da       |    |		Load_Top	At_Offset_2
045a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
045b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045c 00da       |    |		Load_Top	At_Offset_2
045d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
045e 0125       | %  |		Execute	Any,Set_Constraint
045f 00da       |    |		Load_Top	At_Offset_2
0460 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0461 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0462 00da       |    |		Load_Top	At_Offset_2
0463 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0464 0125       | %  |		Execute	Any,Set_Constraint
0465 00da       |    |		Load_Top	At_Offset_2
0466 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0467 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0468 4800       |H   |		Short_Literal	0x0
0469 00db       |    |		Load_Top	At_Offset_3
046a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
046b 4800       |H   |		Short_Literal	0x0
046c 00db       |    |		Load_Top	At_Offset_3
046d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
046e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
046f 00da       |    |		Load_Top	At_Offset_2
0470 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0471 0125       | %  |		Execute	Any,Set_Constraint
0472 00da       |    |		Load_Top	At_Offset_2
0473 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0474 0125       | %  |		Execute	Any,Set_Constraint
0475 00da       |    |		Load_Top	At_Offset_2
0476 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0477 0125       | %  |		Execute	Any,Set_Constraint
0478 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0479 ; --------------------------------------------------------------------------------------
0479 ; STRING TABLE
0479 ; --------------------------------------------------------------------------------------
0479 000e       |    |		.STRTAB	0x000e->0x0480							; "method : "
047a 0015       |    |		.STRTAB	0x0015->0x0484							; "          name : "
047b 0024       | $  |		.STRTAB	0x0024->0x048d							; "          parameter : "
047c 0038       | 8  |		.STRTAB	0x0038->0x0498							; "          number : "
047d 0049       | I  |		.STRTAB	0x0049->0x04a1							; "          used : "
047e 0058       | X  |		.STRTAB	0x0058->0x04aa							; "          lost : "
047f 0067       | g  |		.STREND 0x0067->0x04b2
0480 6d65 7468  |meth|		.STRTAB_STRINGS
04b3 0000 0000  |    |		.BLANK	0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; Debug Table
04b8 ; --------------------------------------------------------------------------------------
04b8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x30be,0x0000,0x0001,0x0017
04be 000b 051a  |    |		.DBG4T	0x000b,0x051a,0x8000,0x0000
04c2 0042 052d  | B -|		.DBG4T	0x0042,0x052d,0x8000,0x0000
04c6 006b 0000  | k  |		.DBG4T	0x006b,0x0000,0x0005,0x0000
04ca 0093 053e  |   >|		.DBG4T	0x0093,0x053e,0x0002,0x0000
04ce 00a3 0543  |   C|		.DBG4T	0x00a3,0x0543,0x0001,0x0000
04d2 00b3 0546  |   F|		.DBG4T	0x00b3,0x0546,0x0001,0x0000
04d6 00c3 0549  |   I|		.DBG4T	0x00c3,0x0549,0x0002,0x0000
04da 00cb 054c  |   L|		.DBG4T	0x00cb,0x054c,0x0002,0x4000
04de 0123 0561  | # a|		.DBG4T	0x0123,0x0561,0x0002,0x4000
04e2 0163 0576  | c v|		.DBG4T	0x0163,0x0576,0x0002,0x4000
04e6 01b3 0586  |    |		.DBG4T	0x01b3,0x0586,0x0002,0x4000
04ea 0203 0596  |    |		.DBG4T	0x0203,0x0596,0x0001,0x4000
04ee 025b 05aa  | [  |		.DBG4T	0x025b,0x05aa,0x0001,0x4000
04f2 02b3 05be  |    |		.DBG4T	0x02b3,0x05be,0x0001,0x4000
04f6 030b 05d2  |    |		.DBG4T	0x030b,0x05d2,0x0001,0x4000
04fa 0363 05e6  | c  |		.DBG4T	0x0363,0x05e6,0x0001,0x4000
04fe 03b3 05fe  |    |		.DBG4T	0x03b3,0x05fe,0x0001,0x4000
0502 0413 0616  |    |		.DBG4T	0x0413,0x0616,0x0000,0x0000
0506 0423 061c  | #  |		.DBG4T	0x0423,0x061c,0x0000,0x0000
050a 0433 0621  | 3 !|		.DBG4T	0x0433,0x0621,0x0001,0x0000
050e 0443 0626  | C &|		.DBG4T	0x0443,0x0626,0x0002,0x0000
0512 044b 0629  | K )|		.DBG4T	0x044b,0x0629,0x0002,0x0000
0516 0453 0000  | S  |		.DBG4T	0x0453,0x0000,0x0005,0x0000
051a ; --------------------------------------------------------------------------------------
051a ; Debug chain
051a ; --------------------------------------------------------------------------------------
051a 0011 0000  |    |		.DBGLEN	0x0011,0x0000
051c 000b 0015  |    |		.DBGLNO	0x000b,0x0015,0x001d,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f
052d ; --------------------------------------------------------------------------------------
052d ; Debug chain
052d ; --------------------------------------------------------------------------------------
052d 000f 0000  |    |		.DBGLEN	0x000f,0x0000
052f 0042 0044  | B D|		.DBGLNO	0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e
053e ; --------------------------------------------------------------------------------------
053e ; Debug chain
053e ; --------------------------------------------------------------------------------------
053e 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0540 0093 0095  |    |		.DBGLNO	0x0093,0x0095,0x009a
0543 ; --------------------------------------------------------------------------------------
0543 ; Debug chain
0543 ; --------------------------------------------------------------------------------------
0543 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0545 00a3       |    |		.DBGLNO	0x00a3
0546 ; --------------------------------------------------------------------------------------
0546 ; Debug chain
0546 ; --------------------------------------------------------------------------------------
0546 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0548 00b3       |    |		.DBGLNO	0x00b3
0549 ; --------------------------------------------------------------------------------------
0549 ; Debug chain
0549 ; --------------------------------------------------------------------------------------
0549 0000 0001  |    |		.DBGLEN	0x0000,0x0001
054b 00c3       |    |		.DBGLNO	0x00c3
054c ; --------------------------------------------------------------------------------------
054c ; Debug chain
054c ; --------------------------------------------------------------------------------------
054c 0003 0008  |    |		.DBGLEN	0x0003,0x0008
054e 00cb 00cd  |    |		.DBGLNO	0x00cb,0x00cd,0x00d0,0x00d5,0x00dd,0x00e2,0x0106,0x0108,0x010a,0x010f,0x0118
0559 0001 0003  |    |		.XXX[0x8]
055b 0004 0005  |    |
055d 0006 0007  |    |
055f 0002 0008  |    |
0561 ; --------------------------------------------------------------------------------------
0561 ; Debug chain
0561 ; --------------------------------------------------------------------------------------
0561 0003 0008  |    |		.DBGLEN	0x0003,0x0008
0563 0123 0125  | # %|		.DBGLNO	0x0123,0x0125,0x0128,0x012d,0x0135,0x013a,0x0145,0x0147,0x0149,0x014e,0x0157
056e 0001 0003  |    |		.XXX[0x8]
0570 0004 0005  |    |
0572 0006 0007  |    |
0574 0002 0008  |    |
0576 ; --------------------------------------------------------------------------------------
0576 ; Debug chain
0576 ; --------------------------------------------------------------------------------------
0576 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0578 0163 0165  | c e|		.DBGLNO	0x0163,0x0165,0x016a,0x0172,0x0177,0x019b,0x019e,0x01a3
0580 0001 0003  |    |		.XXX[0x6]
0582 0004 0005  |    |
0584 0006 0002  |    |
0586 ; --------------------------------------------------------------------------------------
0586 ; Debug chain
0586 ; --------------------------------------------------------------------------------------
0586 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0588 01b3 01b5  |    |		.DBGLNO	0x01b3,0x01b5,0x01ba,0x01c2,0x01c7,0x01eb,0x01ee,0x01f3
0590 0001 0003  |    |		.XXX[0x6]
0592 0004 0005  |    |
0594 0006 0002  |    |
0596 ; --------------------------------------------------------------------------------------
0596 ; Debug chain
0596 ; --------------------------------------------------------------------------------------
0596 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0598 0203 0205  |    |		.DBGLNO	0x0203,0x0205,0x020a,0x0212,0x0217,0x023b,0x0240,0x0243,0x0248,0x024d
05a2 0001 0003  |    |		.XXX[0x8]
05a4 0004 0005  |    |
05a6 0006 0007  |    |
05a8 0008 0002  |    |
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug chain
05aa ; --------------------------------------------------------------------------------------
05aa 0002 0008  |    |		.DBGLEN	0x0002,0x0008
05ac 025b 025d  | [ ]|		.DBGLNO	0x025b,0x025d,0x0262,0x026a,0x026f,0x0293,0x0298,0x029b,0x02a0,0x02a5
05b6 0001 0003  |    |		.XXX[0x8]
05b8 0004 0005  |    |
05ba 0006 0007  |    |
05bc 0008 0002  |    |
05be ; --------------------------------------------------------------------------------------
05be ; Debug chain
05be ; --------------------------------------------------------------------------------------
05be 0002 0008  |    |		.DBGLEN	0x0002,0x0008
05c0 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02ba,0x02c2,0x02c7,0x02eb,0x02f0,0x02f3,0x02f8,0x02fd
05ca 0001 0003  |    |		.XXX[0x8]
05cc 0004 0005  |    |
05ce 0006 0007  |    |
05d0 0008 0002  |    |
05d2 ; --------------------------------------------------------------------------------------
05d2 ; Debug chain
05d2 ; --------------------------------------------------------------------------------------
05d2 0002 0008  |    |		.DBGLEN	0x0002,0x0008
05d4 030b 030d  |    |		.DBGLNO	0x030b,0x030d,0x0312,0x031a,0x031f,0x0343,0x0348,0x034b,0x0350,0x0355
05de 0001 0003  |    |		.XXX[0x8]
05e0 0004 0005  |    |
05e2 0006 0007  |    |
05e4 0008 0002  |    |
05e6 ; --------------------------------------------------------------------------------------
05e6 ; Debug chain
05e6 ; --------------------------------------------------------------------------------------
05e6 0004 0009  |    |		.DBGLEN	0x0004,0x0009
05e8 0363 0365  | c e|		.DBGLNO	0x0363,0x0365,0x036a,0x036c,0x036e,0x0376,0x037b,0x0391,0x0395,0x0398,0x039b,0x039e,0x03a3
05f5 0001 0003  |    |		.XXX[0x9]
05f7 0004 0005  |    |
05f9 0006 0007  |    |
05fb 0008 0009  |    |
05fd 0002       |    |
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug chain
05fe ; --------------------------------------------------------------------------------------
05fe 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0600 03b3 03b5  |    |		.DBGLNO	0x03b3,0x03b5,0x03ba,0x03c2,0x03c7,0x03cd,0x03d8,0x03e3,0x03ee,0x03fa,0x0406,0x040b
060c 0001 0003  |    |		.XXX[0xa]
060e 0004 0005  |    |
0610 0006 0007  |    |
0612 0008 0009  |    |
0614 000a 0002  |    |
0616 ; --------------------------------------------------------------------------------------
0616 ; Debug chain
0616 ; --------------------------------------------------------------------------------------
0616 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0618 0413 041c  |    |		.DBGLNO	0x0413,0x041c,0x041e,0x0420
061c ; --------------------------------------------------------------------------------------
061c ; Debug chain
061c ; --------------------------------------------------------------------------------------
061c 0003 0000  |    |		.DBGLEN	0x0003,0x0000
061e 0423 0425  | # %|		.DBGLNO	0x0423,0x0425,0x0427
0621 ; --------------------------------------------------------------------------------------
0621 ; Debug chain
0621 ; --------------------------------------------------------------------------------------
0621 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0623 0433 0436  | 3 6|		.DBGLNO	0x0433,0x0436,0x0439
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug chain
0626 ; --------------------------------------------------------------------------------------
0626 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0628 0443       | C  |		.DBGLNO	0x0443
0629 ; --------------------------------------------------------------------------------------
0629 ; Debug chain
0629 ; --------------------------------------------------------------------------------------
0629 0000 0001  |    |		.DBGLEN	0x0000,0x0001
062b 044b       | K  |		.DBGLNO	0x044b
062c 0000 0000  |    |		.BLANK	0000[0x1d4]