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

⟦6f69e9e83⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0508       |    |		.CONST	0x0508								; 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 008a       |    |		.CONST	0x008a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0017 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0019 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
001b 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
001d 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
001f 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0021 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0023 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0025 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0027 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0029 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
002b 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
002d 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
002f 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0031 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
0033 00bf       |    |		Action	Accept_Activation
0034 00e1       |    |		Load_Encached	Boolean_Cache
0035 e002       |    |		Load	0x0,0x2
0036 00e1       |    |		Load_Encached	Boolean_Cache
0037 e002       |    |		Load	0x0,0x2
0038 029f 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Call
003a 4804       |H   |		Short_Literal	0x4
003b 032d       | -  |		Declare_Type	Record,Defined
003c e003       |    |		Load	0x0,0x3
003d e004       |    |		Load	0x0,0x4
003e e002       |    |		Load	0x0,0x2
003f e005       |    |		Load	0x0,0x5
0040 0387       |    |		Declare_Variable	Package
0041 00d8       |    |		Load_Top	At_Offset_0
0042 020f       |    |		Execute	Module,Activate
0043 00d8       |    |		Load_Top	At_Offset_0
0044 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0045 00d9       |    |		Load_Top	At_Offset_1
0046 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0047 00da       |    |		Load_Top	At_Offset_2
0048 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0049 02a0       |    |		Declare_Subprogram	Null_Subprogram
004a 4803       |H   |		Short_Literal	0x3
004b 032d       | -  |		Declare_Type	Record,Defined
004c e006       |    |		Load	0x0,0x6
004d e007       |    |		Load	0x0,0x7
004e 4be8       |K   |		Short_Literal	0x3e8
004f 00db       |    |		Load_Top	At_Offset_3
0050 4801       |H   |		Short_Literal	0x1
0051 e008       |    |		Load	0x0,0x8
0052 0387       |    |		Declare_Variable	Package
0053 00d8       |    |		Load_Top	At_Offset_0
0054 020f       |    |		Execute	Module,Activate
0055 00d8       |    |		Load_Top	At_Offset_0
0056 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0057 e009       |    |		Load	0x0,0x9
0058 e00a       |    |		Load	0x0,0xa
0059 4be8       |K   |		Short_Literal	0x3e8
005a e221       | !  |		Load	0x1,0x21
005b 4801       |H   |		Short_Literal	0x1
005c e008       |    |		Load	0x0,0x8
005d 0387       |    |		Declare_Variable	Package
005e 00d8       |    |		Load_Top	At_Offset_0
005f 020f       |    |		Execute	Module,Activate
0060 00d8       |    |		Load_Top	At_Offset_0
0061 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0062 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0089 00c7       |    |		Action	Elaborate_Subprogram
008a			BODY_0008:
008a 00bc       |    |		Action	Signal_Activated
008b 00bb       |    |		Action	Signal_Completion
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 e224       | $  |		Load	0x1,0x24
0094 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0095 e224       | $  |		Load	0x1,0x24
0096 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0097 c225       | %  |		Store	0x1,0x25
0098 e226       | &  |		Load	0x1,0x26
0099 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
009a e226       | &  |		Load	0x1,0x26
009b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
009c c227       | '  |		Store	0x1,0x27
009d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8       |    |		.CONST	0x00a8								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 00e1       |    |		Load_Encached	Boolean_Cache
00a4 e221       | !  |		Load	0x1,0x21
00a5 0322       | "  |		Declare_Variable	Record
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a8			BODY_00a0:
00a8 00e1       |    |		Load_Encached	Boolean_Cache
00a9 00d9       |    |		Load_Top	At_Offset_1
00aa e5ff       |    |		Load	0x2,-0x1
00ab 800b       |    |		Call	0x0,0xb
00ac e00c       |    |		Load	0x0,0xc
00ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ae e227       | '  |		Load	0x1,0x27
00af e226       | &  |		Load	0x1,0x26
00b0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00b1 00d1       |    |		Pop_Control	Pop_Count_1
00b2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf       |    |		.CONST	0x00bf								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e221       | !  |		Load	0x1,0x21
00bc 0322       | "  |		Declare_Variable	Record
00bd 00d8       |    |		Load_Top	At_Offset_0
00be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bf			BODY_00b8:
00bf e227       | '  |		Load	0x1,0x27
00c0 4800       |H   |		Short_Literal	0x0
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 800b       |    |		Call	0x0,0xb
00c4 e00c       |    |		Load	0x0,0xc
00c5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c6 e226       | &  |		Load	0x1,0x26
00c7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00c8 c227       | '  |		Store	0x1,0x27
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 e227       | '  |		Load	0x1,0x27
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 800b       |    |		Call	0x0,0xb
00d6 e00c       |    |		Load	0x0,0xc
00d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d8 e226       | &  |		Load	0x1,0x26
00d9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00da c227       | '  |		Store	0x1,0x27
00db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e6       |    |		.CONST	0x00e6								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0003       |    |		.CONST	0x0003								; Number of locals
00e3			INIT_00e0:
00e3 00e1       |    |		Load_Encached	Boolean_Cache
00e4 e223       | #  |		Load	0x1,0x23
00e5 0322       | "  |		Declare_Variable	Record
00e6			BODY_00e0:
00e6 00e1       |    |		Load_Encached	Boolean_Cache
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 800d       |    |		Call	0x0,0xd
00ea e00c       |    |		Load	0x0,0xc
00eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ec e225       | %  |		Load	0x1,0x25
00ed e224       | $  |		Load	0x1,0x24
00ee 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00ef 00d1       |    |		Pop_Control	Pop_Count_1
00f0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f3 0000 0000  |    |		.BLANK	0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0104       |    |		.CONST	0x0104								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0005       |    |		.CONST	0x0005								; Number of locals
00fb			INIT_00f8:
00fb e223       | #  |		Load	0x1,0x23
00fc 0322       | "  |		Declare_Variable	Record
00fd e222       | "  |		Load	0x1,0x22
00fe 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00ff 00e1       |    |		Load_Encached	Boolean_Cache
0100 e221       | !  |		Load	0x1,0x21
0101 0322       | "  |		Declare_Variable	Record
0102 00d8       |    |		Load_Top	At_Offset_0
0103 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0104			BODY_00f8:
0104 00e1       |    |		Load_Encached	Boolean_Cache
0105 e402       |    |		Load	0x2,0x2
0106 e5ff       |    |		Load	0x2,-0x1
0107 800d       |    |		Call	0x0,0xd
0108 e00c       |    |		Load	0x0,0xc
0109 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
010a e225       | %  |		Load	0x1,0x25
010b e224       | $  |		Load	0x1,0x24
010c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
010d 00d1       |    |		Pop_Control	Pop_Count_1
010e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
010f e222       | "  |		Load	0x1,0x22
0110 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0111 e402       |    |		Load	0x2,0x2
0112 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0113 e222       | "  |		Load	0x1,0x22
0114 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0115 003b       | ;  |		Store_Top	Access,At_Offset_3
0116 00cf       |    |		Action	Mark_Auxiliary
0117 7817       |x   |		Jump	0x12f
0118 00e1       |    |		Load_Encached	Boolean_Cache
0119 00da       |    |		Load_Top	At_Offset_2
011a e5ff       |    |		Load	0x2,-0x1
011b 800b       |    |		Call	0x0,0xb
011c e00c       |    |		Load	0x0,0xc
011d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011e e227       | '  |		Load	0x1,0x27
011f e226       | &  |		Load	0x1,0x26
0120 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0121 00d1       |    |		Pop_Control	Pop_Count_1
0122 005b       | [  |		Store_Top	Discrete,At_Offset_3
0123 00da       |    |		Load_Top	At_Offset_2
0124 0f01       |    |		Execute_Immediate	Equal,0x1
0125 6804       |h   |		Jump_Zero	0x12a
0126 00db       |    |		Load_Top	At_Offset_3
0127 e222       | "  |		Load	0x1,0x22
0128 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0129 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012a 00db       |    |		Load_Top	At_Offset_3
012b e222       | "  |		Load	0x1,0x22
012c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
012d c403       |    |		Store	0x2,0x3
012e 00c9       |    |		Action	Pop_Auxiliary_Loop
012f 00db       |    |		Load_Top	At_Offset_3
0130 e222       | "  |		Load	0x1,0x22
0131 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0132 6fe5       |o   |		Jump_Zero	0x118
0133 00ce       |    |		Action	Pop_Auxiliary
0134 0831       | 1  |		Execute_Immediate	Raise,0x31
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 800b       |    |		Call	0x0,0xb
013d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013e 0000 0000  |    |		.XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0156       | V  |		.CONST	0x0156								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0004       |    |		.CONST	0x0004								; Number of locals
0143			INIT_0140:
0143 e226       | &  |		Load	0x1,0x26
0144 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0145 0322       | "  |		Declare_Variable	Record
0146 e002       |    |		Load	0x0,0x2
0147 02ff       |    |		Declare_Variable	Variant_Record
0148 00d8       |    |		Load_Top	At_Offset_0
0149 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014a e00e       |    |		Load	0x0,0xe
014b 02ff       |    |		Declare_Variable	Variant_Record
014c e5ff       |    |		Load	0x2,-0x1
014d 800b       |    |		Call	0x0,0xb
014e e5ff       |    |		Load	0x2,-0x1
014f 800f       |    |		Call	0x0,0xf
0150 e5ff       |    |		Load	0x2,-0x1
0151 800d       |    |		Call	0x0,0xd
0152 4813       |H   |		Short_Literal	0x13
0153 8010       |    |		Call	0x0,0x10
0154 00d9       |    |		Load_Top	At_Offset_1
0155 016d       | m  |		Execute	Variant_Record,Structure_Write
0156			BODY_0140:
0156 00da       |    |		Load_Top	At_Offset_2
0157 e227       | '  |		Load	0x1,0x27
0158 e226       | &  |		Load	0x1,0x26
0159 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
015a 00d1       |    |		Pop_Control	Pop_Count_1
015b 00cf       |    |		Action	Mark_Auxiliary
015c 7810       |x   |		Jump	0x16d
015d 00da       |    |		Load_Top	At_Offset_2
015e e402       |    |		Load	0x2,0x2
015f e226       | &  |		Load	0x1,0x26
0160 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0161 e00c       |    |		Load	0x0,0xc
0162 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0163 00d1       |    |		Pop_Control	Pop_Count_1
0164 00d9       |    |		Load_Top	At_Offset_1
0165 00db       |    |		Load_Top	At_Offset_3
0166 8011       |    |		Call	0x0,0x11
0167 00d1       |    |		Pop_Control	Pop_Count_1
0168 00db       |    |		Load_Top	At_Offset_3
0169 e226       | &  |		Load	0x1,0x26
016a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
016b 00d1       |    |		Pop_Control	Pop_Count_1
016c 00c9       |    |		Action	Pop_Auxiliary_Loop
016d 00db       |    |		Load_Top	At_Offset_3
016e e226       | &  |		Load	0x1,0x26
016f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0170 6fec       |o   |		Jump_Zero	0x15d
0171 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0172 0000 0000  |    |		.BLANK	0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017e       | ~  |		.CONST	0x017e								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0003       |    |		.CONST	0x0003								; Number of locals
017b			INIT_0178:
017b e223       | #  |		Load	0x1,0x23
017c 0322       | "  |		Declare_Variable	Record
017d 00e1       |    |		Load_Encached	Boolean_Cache
017e			BODY_0178:
017e 00e1       |    |		Load_Encached	Boolean_Cache
017f 00da       |    |		Load_Top	At_Offset_2
0180 e5ff       |    |		Load	0x2,-0x1
0181 800d       |    |		Call	0x0,0xd
0182 e00c       |    |		Load	0x0,0xc
0183 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0184 e225       | %  |		Load	0x1,0x25
0185 e224       | $  |		Load	0x1,0x24
0186 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0187 00d1       |    |		Pop_Control	Pop_Count_1
0188 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0189 00d9       |    |		Load_Top	At_Offset_1
018a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018b e5ff       |    |		Load	0x2,-0x1
018c 800b       |    |		Call	0x0,0xb
018d e222       | "  |		Load	0x1,0x22
018e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018f 00da       |    |		Load_Top	At_Offset_2
0190 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0191 e225       | %  |		Load	0x1,0x25
0192 4800       |H   |		Short_Literal	0x0
0193 00db       |    |		Load_Top	At_Offset_3
0194 e5ff       |    |		Load	0x2,-0x1
0195 800d       |    |		Call	0x0,0xd
0196 e00c       |    |		Load	0x0,0xc
0197 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0198 e224       | $  |		Load	0x1,0x24
0199 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
019a c225       | %  |		Store	0x1,0x25
019b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a6       |    |		.CONST	0x01a6								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 e223       | #  |		Load	0x1,0x23
01a4 0322       | "  |		Declare_Variable	Record
01a5 00e1       |    |		Load_Encached	Boolean_Cache
01a6			BODY_01a0:
01a6 00e1       |    |		Load_Encached	Boolean_Cache
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 800d       |    |		Call	0x0,0xd
01aa e00c       |    |		Load	0x0,0xc
01ab 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ac e225       | %  |		Load	0x1,0x25
01ad e224       | $  |		Load	0x1,0x24
01ae 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01af 00d1       |    |		Pop_Control	Pop_Count_1
01b0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b3 e5ff       |    |		Load	0x2,-0x1
01b4 800b       |    |		Call	0x0,0xb
01b5 e222       | "  |		Load	0x1,0x22
01b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b9 e225       | %  |		Load	0x1,0x25
01ba 4800       |H   |		Short_Literal	0x0
01bb 00db       |    |		Load_Top	At_Offset_3
01bc e5ff       |    |		Load	0x2,-0x1
01bd 800d       |    |		Call	0x0,0xd
01be e00c       |    |		Load	0x0,0xc
01bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c0 e224       | $  |		Load	0x1,0x24
01c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c2 c225       | %  |		Store	0x1,0x25
01c3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1       |    |		.CONST	0x01d1								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0004       |    |		.CONST	0x0004								; Number of locals
01cb			INIT_01c8:
01cb e223       | #  |		Load	0x1,0x23
01cc 0322       | "  |		Declare_Variable	Record
01cd e222       | "  |		Load	0x1,0x22
01ce 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01cf e222       | "  |		Load	0x1,0x22
01d0 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01d1			BODY_01c8:
01d1 e5ff       |    |		Load	0x2,-0x1
01d2 800d       |    |		Call	0x0,0xd
01d3 e00c       |    |		Load	0x0,0xc
01d4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d5 e225       | %  |		Load	0x1,0x25
01d6 e224       | $  |		Load	0x1,0x24
01d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 017d       | }  |		Execute	Record,Structure_Write
01da e222       | "  |		Load	0x1,0x22
01db 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01de e222       | "  |		Load	0x1,0x22
01df 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01e0 0039       | 9  |		Store_Top	Access,At_Offset_1
01e1 00cf       |    |		Action	Mark_Auxiliary
01e2 7818       |x   |		Jump	0x1fb
01e3 00d9       |    |		Load_Top	At_Offset_1
01e4 e222       | "  |		Load	0x1,0x22
01e5 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01e6 e00c       |    |		Load	0x0,0xc
01e7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 800b       |    |		Call	0x0,0xb
01ea e00c       |    |		Load	0x0,0xc
01eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ec 01df       |    |		Execute	Vector,Equal
01ed 6801       |h   |		Jump_Zero	0x1ef
01ee 7807       |x   |		Jump	0x1f6
01ef 00da       |    |		Load_Top	At_Offset_2
01f0 00da       |    |		Load_Top	At_Offset_2
01f1 e222       | "  |		Load	0x1,0x22
01f2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01f3 e222       | "  |		Load	0x1,0x22
01f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f5 003b       | ;  |		Store_Top	Access,At_Offset_3
01f6 00d9       |    |		Load_Top	At_Offset_1
01f7 e222       | "  |		Load	0x1,0x22
01f8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01f9 003a       | :  |		Store_Top	Access,At_Offset_2
01fa 00c9       |    |		Action	Pop_Auxiliary_Loop
01fb 00d9       |    |		Load_Top	At_Offset_1
01fc e222       | "  |		Load	0x1,0x22
01fd 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01fe 6fe4       |o   |		Jump_Zero	0x1e3
01ff 00ce       |    |		Action	Pop_Auxiliary
0200 00d9       |    |		Load_Top	At_Offset_1
0201 00db       |    |		Load_Top	At_Offset_3
0202 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0203 00d9       |    |		Load_Top	At_Offset_1
0204 e222       | "  |		Load	0x1,0x22
0205 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0206 003a       | :  |		Store_Top	Access,At_Offset_2
0207 00da       |    |		Load_Top	At_Offset_2
0208 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0209 e222       | "  |		Load	0x1,0x22
020a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
020b 6809       |h   |		Jump_Zero	0x215
020c e225       | %  |		Load	0x1,0x25
020d e5ff       |    |		Load	0x2,-0x1
020e 800d       |    |		Call	0x0,0xd
020f e00c       |    |		Load	0x0,0xc
0210 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0211 e224       | $  |		Load	0x1,0x24
0212 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0213 c225       | %  |		Store	0x1,0x25
0214 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0215 e225       | %  |		Load	0x1,0x25
0216 4800       |H   |		Short_Literal	0x0
0217 e402       |    |		Load	0x2,0x2
0218 e5ff       |    |		Load	0x2,-0x1
0219 800d       |    |		Call	0x0,0xd
021a e00c       |    |		Load	0x0,0xc
021b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021c e224       | $  |		Load	0x1,0x24
021d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
021e c225       | %  |		Store	0x1,0x25
021f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0229       | )  |		.CONST	0x0229								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0004       |    |		.CONST	0x0004								; Number of locals
0223			INIT_0220:
0223 e223       | #  |		Load	0x1,0x23
0224 0322       | "  |		Declare_Variable	Record
0225 e222       | "  |		Load	0x1,0x22
0226 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0227 e222       | "  |		Load	0x1,0x22
0228 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0229			BODY_0220:
0229 e5ff       |    |		Load	0x2,-0x1
022a 800d       |    |		Call	0x0,0xd
022b e00c       |    |		Load	0x0,0xc
022c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022d e225       | %  |		Load	0x1,0x25
022e e224       | $  |		Load	0x1,0x24
022f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0230 00db       |    |		Load_Top	At_Offset_3
0231 017d       | }  |		Execute	Record,Structure_Write
0232 e222       | "  |		Load	0x1,0x22
0233 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0234 00db       |    |		Load_Top	At_Offset_3
0235 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0236 e222       | "  |		Load	0x1,0x22
0237 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0238 0039       | 9  |		Store_Top	Access,At_Offset_1
0239 00cf       |    |		Action	Mark_Auxiliary
023a 7818       |x   |		Jump	0x253
023b 00d9       |    |		Load_Top	At_Offset_1
023c e222       | "  |		Load	0x1,0x22
023d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
023e e00c       |    |		Load	0x0,0xc
023f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0240 e5ff       |    |		Load	0x2,-0x1
0241 800b       |    |		Call	0x0,0xb
0242 e00c       |    |		Load	0x0,0xc
0243 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0244 01df       |    |		Execute	Vector,Equal
0245 6801       |h   |		Jump_Zero	0x247
0246 7807       |x   |		Jump	0x24e
0247 00da       |    |		Load_Top	At_Offset_2
0248 00da       |    |		Load_Top	At_Offset_2
0249 e222       | "  |		Load	0x1,0x22
024a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
024b e222       | "  |		Load	0x1,0x22
024c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
024d 003b       | ;  |		Store_Top	Access,At_Offset_3
024e 00d9       |    |		Load_Top	At_Offset_1
024f e222       | "  |		Load	0x1,0x22
0250 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0251 003a       | :  |		Store_Top	Access,At_Offset_2
0252 00c9       |    |		Action	Pop_Auxiliary_Loop
0253 00d9       |    |		Load_Top	At_Offset_1
0254 e222       | "  |		Load	0x1,0x22
0255 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0256 6fe4       |o   |		Jump_Zero	0x23b
0257 00ce       |    |		Action	Pop_Auxiliary
0258 00d9       |    |		Load_Top	At_Offset_1
0259 00db       |    |		Load_Top	At_Offset_3
025a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
025b 00d9       |    |		Load_Top	At_Offset_1
025c e222       | "  |		Load	0x1,0x22
025d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
025e 003a       | :  |		Store_Top	Access,At_Offset_2
025f 00da       |    |		Load_Top	At_Offset_2
0260 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0261 e222       | "  |		Load	0x1,0x22
0262 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0263 6809       |h   |		Jump_Zero	0x26d
0264 e225       | %  |		Load	0x1,0x25
0265 e5ff       |    |		Load	0x2,-0x1
0266 800d       |    |		Call	0x0,0xd
0267 e00c       |    |		Load	0x0,0xc
0268 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0269 e224       | $  |		Load	0x1,0x24
026a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
026b c225       | %  |		Store	0x1,0x25
026c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
026d e225       | %  |		Load	0x1,0x25
026e 4800       |H   |		Short_Literal	0x0
026f e402       |    |		Load	0x2,0x2
0270 e5ff       |    |		Load	0x2,-0x1
0271 800d       |    |		Call	0x0,0xd
0272 e00c       |    |		Load	0x0,0xc
0273 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0274 e224       | $  |		Load	0x1,0x24
0275 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0276 c225       | %  |		Store	0x1,0x25
0277 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e       | ~  |		.CONST	0x027e								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e223       | #  |		Load	0x1,0x23
027c 0322       | "  |		Declare_Variable	Record
027d 00e1       |    |		Load_Encached	Boolean_Cache
027e			BODY_0278:
027e 00e1       |    |		Load_Encached	Boolean_Cache
027f 00da       |    |		Load_Top	At_Offset_2
0280 e5ff       |    |		Load	0x2,-0x1
0281 800d       |    |		Call	0x0,0xd
0282 e00c       |    |		Load	0x0,0xc
0283 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0284 e225       | %  |		Load	0x1,0x25
0285 e224       | $  |		Load	0x1,0x24
0286 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0287 00d1       |    |		Pop_Control	Pop_Count_1
0288 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0289 00d9       |    |		Load_Top	At_Offset_1
028a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
028b e5ff       |    |		Load	0x2,-0x1
028c 800b       |    |		Call	0x0,0xb
028d e222       | "  |		Load	0x1,0x22
028e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
028f 00da       |    |		Load_Top	At_Offset_2
0290 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0291 e225       | %  |		Load	0x1,0x25
0292 4800       |H   |		Short_Literal	0x0
0293 00db       |    |		Load_Top	At_Offset_3
0294 e5ff       |    |		Load	0x2,-0x1
0295 800d       |    |		Call	0x0,0xd
0296 e00c       |    |		Load	0x0,0xc
0297 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0298 e224       | $  |		Load	0x1,0x24
0299 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
029a c225       | %  |		Store	0x1,0x25
029b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029c 0000 0000  |    |		.BLANK	0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a9       |    |		.CONST	0x02a9								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0004       |    |		.CONST	0x0004								; Number of locals
02a3			INIT_02a0:
02a3 e223       | #  |		Load	0x1,0x23
02a4 0322       | "  |		Declare_Variable	Record
02a5 e222       | "  |		Load	0x1,0x22
02a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02a7 e222       | "  |		Load	0x1,0x22
02a8 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02a9			BODY_02a0:
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 800d       |    |		Call	0x0,0xd
02ab e00c       |    |		Load	0x0,0xc
02ac 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ad e225       | %  |		Load	0x1,0x25
02ae e224       | $  |		Load	0x1,0x24
02af 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02b0 00db       |    |		Load_Top	At_Offset_3
02b1 017d       | }  |		Execute	Record,Structure_Write
02b2 e222       | "  |		Load	0x1,0x22
02b3 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02b4 00db       |    |		Load_Top	At_Offset_3
02b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b6 e222       | "  |		Load	0x1,0x22
02b7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02b8 0039       | 9  |		Store_Top	Access,At_Offset_1
02b9 00cf       |    |		Action	Mark_Auxiliary
02ba 7818       |x   |		Jump	0x2d3
02bb 00d9       |    |		Load_Top	At_Offset_1
02bc e222       | "  |		Load	0x1,0x22
02bd 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02be e00c       |    |		Load	0x0,0xc
02bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c0 e5ff       |    |		Load	0x2,-0x1
02c1 800b       |    |		Call	0x0,0xb
02c2 e00c       |    |		Load	0x0,0xc
02c3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c4 01df       |    |		Execute	Vector,Equal
02c5 6801       |h   |		Jump_Zero	0x2c7
02c6 7807       |x   |		Jump	0x2ce
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 00da       |    |		Load_Top	At_Offset_2
02c9 e222       | "  |		Load	0x1,0x22
02ca 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02cb e222       | "  |		Load	0x1,0x22
02cc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02cd 003b       | ;  |		Store_Top	Access,At_Offset_3
02ce 00d9       |    |		Load_Top	At_Offset_1
02cf e222       | "  |		Load	0x1,0x22
02d0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02d1 003a       | :  |		Store_Top	Access,At_Offset_2
02d2 00c9       |    |		Action	Pop_Auxiliary_Loop
02d3 00d9       |    |		Load_Top	At_Offset_1
02d4 e222       | "  |		Load	0x1,0x22
02d5 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02d6 6fe4       |o   |		Jump_Zero	0x2bb
02d7 00ce       |    |		Action	Pop_Auxiliary
02d8 00d9       |    |		Load_Top	At_Offset_1
02d9 00db       |    |		Load_Top	At_Offset_3
02da 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02db 00d9       |    |		Load_Top	At_Offset_1
02dc e222       | "  |		Load	0x1,0x22
02dd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02de 003a       | :  |		Store_Top	Access,At_Offset_2
02df 00da       |    |		Load_Top	At_Offset_2
02e0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e1 e222       | "  |		Load	0x1,0x22
02e2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e3 6809       |h   |		Jump_Zero	0x2ed
02e4 e225       | %  |		Load	0x1,0x25
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 800d       |    |		Call	0x0,0xd
02e7 e00c       |    |		Load	0x0,0xc
02e8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e9 e224       | $  |		Load	0x1,0x24
02ea 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02eb c225       | %  |		Store	0x1,0x25
02ec 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ed e225       | %  |		Load	0x1,0x25
02ee 4800       |H   |		Short_Literal	0x0
02ef e402       |    |		Load	0x2,0x2
02f0 e5ff       |    |		Load	0x2,-0x1
02f1 800d       |    |		Call	0x0,0xd
02f2 e00c       |    |		Load	0x0,0xc
02f3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f4 e224       | $  |		Load	0x1,0x24
02f5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02f6 c225       | %  |		Store	0x1,0x25
02f7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fe       |    |		.CONST	0x02fe								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0003       |    |		.CONST	0x0003								; Number of locals
02fb			INIT_02f8:
02fb e223       | #  |		Load	0x1,0x23
02fc 0322       | "  |		Declare_Variable	Record
02fd 00e1       |    |		Load_Encached	Boolean_Cache
02fe			BODY_02f8:
02fe 00e1       |    |		Load_Encached	Boolean_Cache
02ff 00da       |    |		Load_Top	At_Offset_2
0300 e5ff       |    |		Load	0x2,-0x1
0301 800d       |    |		Call	0x0,0xd
0302 e00c       |    |		Load	0x0,0xc
0303 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0304 e225       | %  |		Load	0x1,0x25
0305 e224       | $  |		Load	0x1,0x24
0306 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0307 00d1       |    |		Pop_Control	Pop_Count_1
0308 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0309 00d9       |    |		Load_Top	At_Offset_1
030a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030b e5ff       |    |		Load	0x2,-0x1
030c 800b       |    |		Call	0x0,0xb
030d e222       | "  |		Load	0x1,0x22
030e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
030f 00da       |    |		Load_Top	At_Offset_2
0310 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0311 e225       | %  |		Load	0x1,0x25
0312 4800       |H   |		Short_Literal	0x0
0313 00db       |    |		Load_Top	At_Offset_3
0314 e5ff       |    |		Load	0x2,-0x1
0315 800d       |    |		Call	0x0,0xd
0316 e00c       |    |		Load	0x0,0xc
0317 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0318 e224       | $  |		Load	0x1,0x24
0319 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
031a c225       | %  |		Store	0x1,0x25
031b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0329       | )  |		.CONST	0x0329								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0004       |    |		.CONST	0x0004								; Number of locals
0323			INIT_0320:
0323 e223       | #  |		Load	0x1,0x23
0324 0322       | "  |		Declare_Variable	Record
0325 e222       | "  |		Load	0x1,0x22
0326 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0327 e222       | "  |		Load	0x1,0x22
0328 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0329			BODY_0320:
0329 e5ff       |    |		Load	0x2,-0x1
032a 800d       |    |		Call	0x0,0xd
032b e00c       |    |		Load	0x0,0xc
032c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
032d e225       | %  |		Load	0x1,0x25
032e e224       | $  |		Load	0x1,0x24
032f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0330 00db       |    |		Load_Top	At_Offset_3
0331 017d       | }  |		Execute	Record,Structure_Write
0332 e222       | "  |		Load	0x1,0x22
0333 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0334 00db       |    |		Load_Top	At_Offset_3
0335 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0336 e222       | "  |		Load	0x1,0x22
0337 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0338 0039       | 9  |		Store_Top	Access,At_Offset_1
0339 00cf       |    |		Action	Mark_Auxiliary
033a 7818       |x   |		Jump	0x353
033b 00d9       |    |		Load_Top	At_Offset_1
033c e222       | "  |		Load	0x1,0x22
033d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
033e e00c       |    |		Load	0x0,0xc
033f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0340 e5ff       |    |		Load	0x2,-0x1
0341 800b       |    |		Call	0x0,0xb
0342 e00c       |    |		Load	0x0,0xc
0343 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0344 01df       |    |		Execute	Vector,Equal
0345 6801       |h   |		Jump_Zero	0x347
0346 7807       |x   |		Jump	0x34e
0347 00da       |    |		Load_Top	At_Offset_2
0348 00da       |    |		Load_Top	At_Offset_2
0349 e222       | "  |		Load	0x1,0x22
034a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
034b e222       | "  |		Load	0x1,0x22
034c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
034d 003b       | ;  |		Store_Top	Access,At_Offset_3
034e 00d9       |    |		Load_Top	At_Offset_1
034f e222       | "  |		Load	0x1,0x22
0350 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0351 003a       | :  |		Store_Top	Access,At_Offset_2
0352 00c9       |    |		Action	Pop_Auxiliary_Loop
0353 00d9       |    |		Load_Top	At_Offset_1
0354 e222       | "  |		Load	0x1,0x22
0355 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0356 6fe4       |o   |		Jump_Zero	0x33b
0357 00ce       |    |		Action	Pop_Auxiliary
0358 00d9       |    |		Load_Top	At_Offset_1
0359 00db       |    |		Load_Top	At_Offset_3
035a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
035b 00d9       |    |		Load_Top	At_Offset_1
035c e222       | "  |		Load	0x1,0x22
035d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
035e 003a       | :  |		Store_Top	Access,At_Offset_2
035f 00da       |    |		Load_Top	At_Offset_2
0360 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0361 e222       | "  |		Load	0x1,0x22
0362 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0363 6809       |h   |		Jump_Zero	0x36d
0364 e225       | %  |		Load	0x1,0x25
0365 e5ff       |    |		Load	0x2,-0x1
0366 800d       |    |		Call	0x0,0xd
0367 e00c       |    |		Load	0x0,0xc
0368 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0369 e224       | $  |		Load	0x1,0x24
036a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
036b c225       | %  |		Store	0x1,0x25
036c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036d e225       | %  |		Load	0x1,0x25
036e 4800       |H   |		Short_Literal	0x0
036f e402       |    |		Load	0x2,0x2
0370 e5ff       |    |		Load	0x2,-0x1
0371 800d       |    |		Call	0x0,0xd
0372 e00c       |    |		Load	0x0,0xc
0373 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0374 e224       | $  |		Load	0x1,0x24
0375 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0376 c225       | %  |		Store	0x1,0x25
0377 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0381       |    |		.CONST	0x0381								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0003       |    |		.CONST	0x0003								; Number of locals
037b			INIT_0378:
037b e226       | &  |		Load	0x1,0x26
037c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
037d 0322       | "  |		Declare_Variable	Record
037e e224       | $  |		Load	0x1,0x24
037f 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0380 0322       | "  |		Declare_Variable	Record
0381			BODY_0378:
0381 0092 04d2  |    |		Action	Push_String_Extended,0x4d2					; "Here is a list of the ORB's registrate objects : "
0383 e012       |    |		Load	0x0,0x12
0384 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0385 00d9       |    |		Load_Top	At_Offset_1
0386 e227       | '  |		Load	0x1,0x27
0387 e226       | &  |		Load	0x1,0x26
0388 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0389 00d1       |    |		Pop_Control	Pop_Count_1
038a 00cf       |    |		Action	Mark_Auxiliary
038b 780a       |x   |		Jump	0x396
038c 00da       |    |		Load_Top	At_Offset_2
038d e226       | &  |		Load	0x1,0x26
038e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
038f e012       |    |		Load	0x0,0x12
0390 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0391 00da       |    |		Load_Top	At_Offset_2
0392 e226       | &  |		Load	0x1,0x26
0393 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0394 00d1       |    |		Pop_Control	Pop_Count_1
0395 00c9       |    |		Action	Pop_Auxiliary_Loop
0396 00da       |    |		Load_Top	At_Offset_2
0397 e226       | &  |		Load	0x1,0x26
0398 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0399 6ff2       |o   |		Jump_Zero	0x38c
039a 00ce       |    |		Action	Pop_Auxiliary
039b 0092 04d3  |    |		Action	Push_String_Extended,0x4d3					; "Here is a list of the ORB's possible requests : "
039d e012       |    |		Load	0x0,0x12
039e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
039f 00d8       |    |		Load_Top	At_Offset_0
03a0 e225       | %  |		Load	0x1,0x25
03a1 e224       | $  |		Load	0x1,0x24
03a2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03a3 00d1       |    |		Pop_Control	Pop_Count_1
03a4 00cf       |    |		Action	Mark_Auxiliary
03a5 780a       |x   |		Jump	0x3b0
03a6 00d9       |    |		Load_Top	At_Offset_1
03a7 e224       | $  |		Load	0x1,0x24
03a8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
03a9 e012       |    |		Load	0x0,0x12
03aa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03ab 00d9       |    |		Load_Top	At_Offset_1
03ac e224       | $  |		Load	0x1,0x24
03ad 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
03ae 00d1       |    |		Pop_Control	Pop_Count_1
03af 00c9       |    |		Action	Pop_Auxiliary_Loop
03b0 00d9       |    |		Load_Top	At_Offset_1
03b1 e224       | $  |		Load	0x1,0x24
03b2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
03b3 6ff2       |o   |		Jump_Zero	0x3a6
03b4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b5 0000 0000  |    |		.XXX[0x3]
03b7 0000       |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03ca       |    |		.CONST	0x03ca								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0005       |    |		.CONST	0x0005								; Number of locals
03bb			INIT_03b8:
03bb e224       | $  |		Load	0x1,0x24
03bc 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
03bd 0322       | "  |		Declare_Variable	Record
03be e002       |    |		Load	0x0,0x2
03bf 02ff       |    |		Declare_Variable	Variant_Record
03c0 00d8       |    |		Load_Top	At_Offset_0
03c1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c2 e00e       |    |		Load	0x0,0xe
03c3 02ff       |    |		Declare_Variable	Variant_Record
03c4 00d8       |    |		Load_Top	At_Offset_0
03c5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c6 e002       |    |		Load	0x0,0x2
03c7 02ff       |    |		Declare_Variable	Variant_Record
03c8 00d8       |    |		Load_Top	At_Offset_0
03c9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ca			BODY_03b8:
03ca 00db       |    |		Load_Top	At_Offset_3
03cb e225       | %  |		Load	0x1,0x25
03cc e224       | $  |		Load	0x1,0x24
03cd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03ce 00d1       |    |		Pop_Control	Pop_Count_1
03cf 00cf       |    |		Action	Mark_Auxiliary
03d0 780f       |x   |		Jump	0x3e0
03d1 00db       |    |		Load_Top	At_Offset_3
03d2 e402       |    |		Load	0x2,0x2
03d3 e224       | $  |		Load	0x1,0x24
03d4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
03d5 0092 04d4  |    |		Action	Push_String_Extended,0x4d4					; ","
03d7 01cc       |    |		Execute	Vector,Catenate
03d8 e00c       |    |		Load	0x0,0xc
03d9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03da 00d1       |    |		Pop_Control	Pop_Count_1
03db e402       |    |		Load	0x2,0x2
03dc e224       | $  |		Load	0x1,0x24
03dd 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
03de 00d1       |    |		Pop_Control	Pop_Count_1
03df 00c9       |    |		Action	Pop_Auxiliary_Loop
03e0 e402       |    |		Load	0x2,0x2
03e1 e224       | $  |		Load	0x1,0x24
03e2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
03e3 6fed       |o   |		Jump_Zero	0x3d1
03e4 00ce       |    |		Action	Pop_Auxiliary
03e5 e5ff       |    |		Load	0x2,-0x1
03e6 800b       |    |		Call	0x0,0xb
03e7 e5ff       |    |		Load	0x2,-0x1
03e8 800f       |    |		Call	0x0,0xf
03e9 e403       |    |		Load	0x2,0x3
03ea 4804       |H   |		Short_Literal	0x4
03eb 8010       |    |		Call	0x0,0x10
03ec 00da       |    |		Load_Top	At_Offset_2
03ed 016d       | m  |		Execute	Variant_Record,Structure_Write
03ee 00d8       |    |		Load_Top	At_Offset_0
03ef e5ff       |    |		Load	0x2,-0x1
03f0 800b       |    |		Call	0x0,0xb
03f1 e00c       |    |		Load	0x0,0xc
03f2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03f3 00d1       |    |		Pop_Control	Pop_Count_1
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 00d9       |    |		Load_Top	At_Offset_1
03f6 8011       |    |		Call	0x0,0x11
03f7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0408       |    |		.CONST	0x0408								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0006       |    |		.CONST	0x0006								; Number of locals
03fb			INIT_03f8:
03fb e223       | #  |		Load	0x1,0x23
03fc 0322       | "  |		Declare_Variable	Record
03fd e222       | "  |		Load	0x1,0x22
03fe 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
03ff e002       |    |		Load	0x0,0x2
0400 02ff       |    |		Declare_Variable	Variant_Record
0401 00d8       |    |		Load_Top	At_Offset_0
0402 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0403 00e1       |    |		Load_Encached	Boolean_Cache
0404 e00e       |    |		Load	0x0,0xe
0405 02ff       |    |		Declare_Variable	Variant_Record
0406 00d8       |    |		Load_Top	At_Offset_0
0407 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0408			BODY_03f8:
0408 00e1       |    |		Load_Encached	Boolean_Cache
0409 e402       |    |		Load	0x2,0x2
040a e5ff       |    |		Load	0x2,-0x1
040b 8013       |    |		Call	0x0,0x13
040c e00c       |    |		Load	0x0,0xc
040d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
040e e225       | %  |		Load	0x1,0x25
040f e224       | $  |		Load	0x1,0x24
0410 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0411 00d1       |    |		Pop_Control	Pop_Count_1
0412 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0413 e402       |    |		Load	0x2,0x2
0414 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0415 e222       | "  |		Load	0x1,0x22
0416 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0417 701d       |p   |		Jump_Nonzero	0x435
0418 e5ff       |    |		Load	0x2,-0x1
0419 800b       |    |		Call	0x0,0xb
041a e5ff       |    |		Load	0x2,-0x1
041b 800f       |    |		Call	0x0,0xf
041c e5ff       |    |		Load	0x2,-0x1
041d 800d       |    |		Call	0x0,0xd
041e 4805       |H   |		Short_Literal	0x5
041f 8010       |    |		Call	0x0,0x10
0420 00d9       |    |		Load_Top	At_Offset_1
0421 016d       | m  |		Execute	Variant_Record,Structure_Write
0422 e222       | "  |		Load	0x1,0x22
0423 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0424 e402       |    |		Load	0x2,0x2
0425 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0426 e222       | "  |		Load	0x1,0x22
0427 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0428 c403       |    |		Store	0x2,0x3
0429 00da       |    |		Load_Top	At_Offset_2
042a e403       |    |		Load	0x2,0x3
042b e222       | "  |		Load	0x1,0x22
042c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
042d e00c       |    |		Load	0x0,0xc
042e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
042f 00d1       |    |		Pop_Control	Pop_Count_1
0430 00d8       |    |		Load_Top	At_Offset_0
0431 00db       |    |		Load_Top	At_Offset_3
0432 8011       |    |		Call	0x0,0x11
0433 00d1       |    |		Pop_Control	Pop_Count_1
0434 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0435 e5ff       |    |		Load	0x2,-0x1
0436 800b       |    |		Call	0x0,0xb
0437 e5ff       |    |		Load	0x2,-0x1
0438 800f       |    |		Call	0x0,0xf
0439 e5ff       |    |		Load	0x2,-0x1
043a 800d       |    |		Call	0x0,0xd
043b 4810       |H   |		Short_Literal	0x10
043c 8010       |    |		Call	0x0,0x10
043d 00d9       |    |		Load_Top	At_Offset_1
043e 016d       | m  |		Execute	Variant_Record,Structure_Write
043f e222       | "  |		Load	0x1,0x22
0440 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0441 e402       |    |		Load	0x2,0x2
0442 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0443 e222       | "  |		Load	0x1,0x22
0444 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0445 c403       |    |		Store	0x2,0x3
0446 00cf       |    |		Action	Mark_Auxiliary
0447 7810       |x   |		Jump	0x458
0448 00db       |    |		Load_Top	At_Offset_3
0449 e403       |    |		Load	0x2,0x3
044a e222       | "  |		Load	0x1,0x22
044b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
044c e00c       |    |		Load	0x0,0xc
044d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
044e 00d1       |    |		Pop_Control	Pop_Count_1
044f 00d9       |    |		Load_Top	At_Offset_1
0450 e404       |    |		Load	0x2,0x4
0451 8011       |    |		Call	0x0,0x11
0452 00d1       |    |		Pop_Control	Pop_Count_1
0453 e403       |    |		Load	0x2,0x3
0454 e222       | "  |		Load	0x1,0x22
0455 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0456 c403       |    |		Store	0x2,0x3
0457 00c9       |    |		Action	Pop_Auxiliary_Loop
0458 e403       |    |		Load	0x2,0x3
0459 e222       | "  |		Load	0x1,0x22
045a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
045b 6fec       |o   |		Jump_Zero	0x448
045c 00ce       |    |		Action	Pop_Auxiliary
045d e5ff       |    |		Load	0x2,-0x1
045e 800b       |    |		Call	0x0,0xb
045f e5ff       |    |		Load	0x2,-0x1
0460 800f       |    |		Call	0x0,0xf
0461 e5ff       |    |		Load	0x2,-0x1
0462 800d       |    |		Call	0x0,0xd
0463 4804       |H   |		Short_Literal	0x4
0464 8010       |    |		Call	0x0,0x10
0465 00d9       |    |		Load_Top	At_Offset_1
0466 016d       | m  |		Execute	Variant_Record,Structure_Write
0467 00d8       |    |		Load_Top	At_Offset_0
0468 e5ff       |    |		Load	0x2,-0x1
0469 800b       |    |		Call	0x0,0xb
046a 8011       |    |		Call	0x0,0x11
046b 00d1       |    |		Pop_Control	Pop_Count_1
046c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
046d 0000 0000  |    |		.XXX[0x3]
046f 0000       |    |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 048a       |    |		.CONST	0x048a								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0006       |    |		.CONST	0x0006								; Number of locals
0473			INIT_0470:
0473 e223       | #  |		Load	0x1,0x23
0474 0322       | "  |		Declare_Variable	Record
0475 e222       | "  |		Load	0x1,0x22
0476 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0477 e002       |    |		Load	0x0,0x2
0478 02ff       |    |		Declare_Variable	Variant_Record
0479 00d8       |    |		Load_Top	At_Offset_0
047a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
047b 00e1       |    |		Load_Encached	Boolean_Cache
047c e00e       |    |		Load	0x0,0xe
047d 02ff       |    |		Declare_Variable	Variant_Record
047e e5ff       |    |		Load	0x2,-0x1
047f 8013       |    |		Call	0x0,0x13
0480 e5ff       |    |		Load	0x2,-0x1
0481 800b       |    |		Call	0x0,0xb
0482 e5ff       |    |		Load	0x2,-0x1
0483 800f       |    |		Call	0x0,0xf
0484 e5ff       |    |		Load	0x2,-0x1
0485 800d       |    |		Call	0x0,0xd
0486 4804       |H   |		Short_Literal	0x4
0487 8014       |    |		Call	0x0,0x14
0488 00d9       |    |		Load_Top	At_Offset_1
0489 016d       | m  |		Execute	Variant_Record,Structure_Write
048a			BODY_0470:
048a 00e1       |    |		Load_Encached	Boolean_Cache
048b e402       |    |		Load	0x2,0x2
048c e5ff       |    |		Load	0x2,-0x1
048d 8013       |    |		Call	0x0,0x13
048e e00c       |    |		Load	0x0,0xc
048f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0490 e225       | %  |		Load	0x1,0x25
0491 e224       | $  |		Load	0x1,0x24
0492 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0493 00d1       |    |		Pop_Control	Pop_Count_1
0494 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0495 e222       | "  |		Load	0x1,0x22
0496 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0497 e402       |    |		Load	0x2,0x2
0498 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0499 e222       | "  |		Load	0x1,0x22
049a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
049b c403       |    |		Store	0x2,0x3
049c 00cf       |    |		Action	Mark_Auxiliary
049d 7810       |x   |		Jump	0x4ae
049e 00db       |    |		Load_Top	At_Offset_3
049f e403       |    |		Load	0x2,0x3
04a0 e222       | "  |		Load	0x1,0x22
04a1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04a2 e00c       |    |		Load	0x0,0xc
04a3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04a4 00d1       |    |		Pop_Control	Pop_Count_1
04a5 00d9       |    |		Load_Top	At_Offset_1
04a6 e404       |    |		Load	0x2,0x4
04a7 8011       |    |		Call	0x0,0x11
04a8 00d1       |    |		Pop_Control	Pop_Count_1
04a9 e403       |    |		Load	0x2,0x3
04aa e222       | "  |		Load	0x1,0x22
04ab 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04ac c403       |    |		Store	0x2,0x3
04ad 00c9       |    |		Action	Pop_Auxiliary_Loop
04ae e403       |    |		Load	0x2,0x3
04af e222       | "  |		Load	0x1,0x22
04b0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04b1 6fec       |o   |		Jump_Zero	0x49e
04b2 00ce       |    |		Action	Pop_Auxiliary
04b3 00d8       |    |		Load_Top	At_Offset_0
04b4 e5ff       |    |		Load	0x2,-0x1
04b5 800b       |    |		Call	0x0,0xb
04b6 8011       |    |		Call	0x0,0x11
04b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb 4601       |F   |		Jump_Case	0x2
04bc 7801       |x   |		Jump	0x4be								; case 0x0
04bd 780d       |x   |		Jump	0x4cb								; case 0x1
04be 00da       |    |		Load_Top	At_Offset_2
04bf 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04c0 0125       | %  |		Execute	Any,Set_Constraint
04c1 00da       |    |		Load_Top	At_Offset_2
04c2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04c3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c4 00da       |    |		Load_Top	At_Offset_2
04c5 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
04c6 0125       | %  |		Execute	Any,Set_Constraint
04c7 00da       |    |		Load_Top	At_Offset_2
04c8 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
04c9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04ca 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04cd 0125       | %  |		Execute	Any,Set_Constraint
04ce 00da       |    |		Load_Top	At_Offset_2
04cf 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
04d0 0125       | %  |		Execute	Any,Set_Constraint
04d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04d2 ; --------------------------------------------------------------------------------------
04d2 ; STRING TABLE
04d2 ; --------------------------------------------------------------------------------------
04d2 0008       |    |		.STRTAB	0x0008->0x04d6							; "Here is a list of the ORB's registrate objects : "
04d3 0037       | 7  |		.STRTAB	0x0037->0x04ee							; "Here is a list of the ORB's possible requests : "
04d4 0065       | e  |		.STRTAB	0x0065->0x0506							; ","
04d5 0064       | d  |		.STREND 0x0064->0x0507
04d6 4865 7265  |Here|		.STRTAB_STRINGS
0507 0000       |    |		.XXX[0x1]
0508 ; --------------------------------------------------------------------------------------
0508 ; Debug Table
0508 ; --------------------------------------------------------------------------------------
0508 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x3d2f,0x0000,0x0001,0x0017
050e 000b 056a  |   j|		.DBG4T	0x000b,0x056a,0x8000,0x0000
0512 0034 0580  | 4  |		.DBG4T	0x0034,0x0580,0x8000,0x0000
0516 0093 059d  |    |		.DBG4T	0x0093,0x059d,0x0001,0x0000
051a 00a3 05a1  |    |		.DBG4T	0x00a3,0x05a1,0x0002,0x0000
051e 00bb 05a7  |    |		.DBG4T	0x00bb,0x05a7,0x0001,0x0000
0522 00d3 05ab  |    |		.DBG4T	0x00d3,0x05ab,0x0001,0x0000
0526 00e3 05ae  |    |		.DBG4T	0x00e3,0x05ae,0x0002,0x0000
052a 00fb 05b4  |    |		.DBG4T	0x00fb,0x05b4,0x0002,0x4000
052e 013b 05c8  | ;  |		.DBG4T	0x013b,0x05c8,0x0002,0x0000
0532 0143 05cb  | C  |		.DBG4T	0x0143,0x05cb,0x0001,0x4000
0536 017b 05da  | {  |		.DBG4T	0x017b,0x05da,0x0001,0x0000
053a 01a3 05e1  |    |		.DBG4T	0x01a3,0x05e1,0x0001,0x0000
053e 01cb 05e8  |    |		.DBG4T	0x01cb,0x05e8,0x0001,0x4000
0542 0223 0605  | #  |		.DBG4T	0x0223,0x0605,0x0001,0x4000
0546 027b 0622  | { "|		.DBG4T	0x027b,0x0622,0x0001,0x0000
054a 02a3 0629  |   )|		.DBG4T	0x02a3,0x0629,0x0001,0x4000
054e 02fb 0646  |   F|		.DBG4T	0x02fb,0x0646,0x0001,0x0000
0552 0323 064d  | # M|		.DBG4T	0x0323,0x064d,0x0001,0x4000
0556 037b 066a  | { j|		.DBG4T	0x037b,0x066a,0x0001,0x4000
055a 03bb 0682  |    |		.DBG4T	0x03bb,0x0682,0x0001,0x4000
055e 03fb 0696  |    |		.DBG4T	0x03fb,0x0696,0x0001,0x4000
0562 0473 06b9  | s  |		.DBG4T	0x0473,0x06b9,0x0001,0x4000
0566 04bb 0000  |    |		.DBG4T	0x04bb,0x0000,0x0005,0x0000
056a ; --------------------------------------------------------------------------------------
056a ; Debug chain
056a ; --------------------------------------------------------------------------------------
056a 0014 0000  |    |		.DBGLEN	0x0014,0x0000
056c 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug chain
0580 ; --------------------------------------------------------------------------------------
0580 001b 0000  |    |		.DBGLEN	0x001b,0x0000
0582 0034 003c  | 4 <|		.DBGLNO	0x0034,0x003c,0x0043,0x004c,0x0055,0x0057,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088
059d ; --------------------------------------------------------------------------------------
059d ; Debug chain
059d ; --------------------------------------------------------------------------------------
059d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
059f 0093 0098  |    |		.DBGLNO	0x0093,0x0098
05a1 ; --------------------------------------------------------------------------------------
05a1 ; Debug chain
05a1 ; --------------------------------------------------------------------------------------
05a1 0002 0002  |    |		.DBGLEN	0x0002,0x0002
05a3 00a3 00a4  |    |		.DBGLNO	0x00a3,0x00a4,0x00a8,0x00b3
05a7 ; --------------------------------------------------------------------------------------
05a7 ; Debug chain
05a7 ; --------------------------------------------------------------------------------------
05a7 0001 0001  |    |		.DBGLEN	0x0001,0x0001
05a9 00bb 00bf  |    |		.DBGLNO	0x00bb,0x00bf
05ab ; --------------------------------------------------------------------------------------
05ab ; Debug chain
05ab ; --------------------------------------------------------------------------------------
05ab 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05ad 00d3       |    |		.DBGLNO	0x00d3
05ae ; --------------------------------------------------------------------------------------
05ae ; Debug chain
05ae ; --------------------------------------------------------------------------------------
05ae 0002 0002  |    |		.DBGLEN	0x0002,0x0002
05b0 00e3 00e4  |    |		.DBGLNO	0x00e3,0x00e4,0x00e6,0x00f1
05b4 ; --------------------------------------------------------------------------------------
05b4 ; Debug chain
05b4 ; --------------------------------------------------------------------------------------
05b4 0004 0007  |    |		.DBGLEN	0x0004,0x0007
05b6 00fb 00fd  |    |		.DBGLNO	0x00fb,0x00fd,0x00ff,0x0100,0x0104,0x010f,0x0118,0x0123,0x0126,0x012a,0x012f
05c1 0001 0002  |    |		.XXX[0x7]
05c3 0004 0005  |    |
05c5 0006 0007  |    |
05c7 0003       |    |
05c8 ; --------------------------------------------------------------------------------------
05c8 ; Debug chain
05c8 ; --------------------------------------------------------------------------------------
05c8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05ca 013b       | ;  |		.DBGLNO	0x013b
05cb ; --------------------------------------------------------------------------------------
05cb ; Debug chain
05cb ; --------------------------------------------------------------------------------------
05cb 0003 0005  |    |		.DBGLEN	0x0003,0x0005
05cd 0143 0146  | C F|		.DBGLNO	0x0143,0x0146,0x014a,0x0156,0x015d,0x0164,0x0168,0x016d
05d5 0001 0003  |    |		.XXX[0x5]
05d7 0004 0005  |    |
05d9 0002       |    |
05da ; --------------------------------------------------------------------------------------
05da ; Debug chain
05da ; --------------------------------------------------------------------------------------
05da 0002 0003  |    |		.DBGLEN	0x0002,0x0003
05dc 017b 017d  | { }|		.DBGLNO	0x017b,0x017d,0x017e,0x0189,0x0191
05e1 ; --------------------------------------------------------------------------------------
05e1 ; Debug chain
05e1 ; --------------------------------------------------------------------------------------
05e1 0002 0003  |    |		.DBGLEN	0x0002,0x0003
05e3 01a3 01a5  |    |		.DBGLNO	0x01a3,0x01a5,0x01a6,0x01b1,0x01b9
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0003 000c  |    |		.DBGLEN	0x0003,0x000c
05ea 01cb 01cd  |    |		.DBGLNO	0x01cb,0x01cd,0x01cf,0x01d1,0x01da,0x01e3,0x01ee,0x01ef,0x01f6,0x01fb,0x0200,0x0203,0x0207,0x020c,0x0215
05f9 0001 0002  |    |		.XXX[0xc]
05fb 0004 0005  |    |
05fd 0006 0007  |    |
05ff 0003 0008  |    |
0601 0009 000a  |    |
0603 000b 000c  |    |
0605 ; --------------------------------------------------------------------------------------
0605 ; Debug chain
0605 ; --------------------------------------------------------------------------------------
0605 0003 000c  |    |		.DBGLEN	0x0003,0x000c
0607 0223 0225  | # %|		.DBGLNO	0x0223,0x0225,0x0227,0x0229,0x0232,0x023b,0x0246,0x0247,0x024e,0x0253,0x0258,0x025b,0x025f,0x0264,0x026d
0616 0001 0002  |    |		.XXX[0xc]
0618 0004 0005  |    |
061a 0006 0007  |    |
061c 0003 0008  |    |
061e 0009 000a  |    |
0620 000b 000c  |    |
0622 ; --------------------------------------------------------------------------------------
0622 ; Debug chain
0622 ; --------------------------------------------------------------------------------------
0622 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0624 027b 027d  | { }|		.DBGLNO	0x027b,0x027d,0x027e,0x0289,0x0291
0629 ; --------------------------------------------------------------------------------------
0629 ; Debug chain
0629 ; --------------------------------------------------------------------------------------
0629 0003 000c  |    |		.DBGLEN	0x0003,0x000c
062b 02a3 02a5  |    |		.DBGLNO	0x02a3,0x02a5,0x02a7,0x02a9,0x02b2,0x02bb,0x02c6,0x02c7,0x02ce,0x02d3,0x02d8,0x02db,0x02df,0x02e4,0x02ed
063a 0001 0002  |    |		.XXX[0xc]
063c 0004 0005  |    |
063e 0006 0007  |    |
0640 0003 0008  |    |
0642 0009 000a  |    |
0644 000b 000c  |    |
0646 ; --------------------------------------------------------------------------------------
0646 ; Debug chain
0646 ; --------------------------------------------------------------------------------------
0646 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0648 02fb 02fd  |    |		.DBGLNO	0x02fb,0x02fd,0x02fe,0x0309,0x0311
064d ; --------------------------------------------------------------------------------------
064d ; Debug chain
064d ; --------------------------------------------------------------------------------------
064d 0003 000c  |    |		.DBGLEN	0x0003,0x000c
064f 0323 0325  | # %|		.DBGLNO	0x0323,0x0325,0x0327,0x0329,0x0332,0x033b,0x0346,0x0347,0x034e,0x0353,0x0358,0x035b,0x035f,0x0364,0x036d
065e 0001 0002  |    |		.XXX[0xc]
0660 0004 0005  |    |
0662 0006 0007  |    |
0664 0003 0008  |    |
0666 0009 000a  |    |
0668 000b 000c  |    |
066a ; --------------------------------------------------------------------------------------
066a ; Debug chain
066a ; --------------------------------------------------------------------------------------
066a 0002 000a  |    |		.DBGLEN	0x0002,0x000a
066c 037b 037e  | { ~|		.DBGLNO	0x037b,0x037e,0x0381,0x0385,0x038c,0x0391,0x0396,0x039b,0x039f,0x03a6,0x03ab,0x03b0
0678 0001 0002  |    |		.XXX[0xa]
067a 0004 0005  |    |
067c 0003 0006  |    |
067e 0007 0009  |    |
0680 000a 0008  |    |
0682 ; --------------------------------------------------------------------------------------
0682 ; Debug chain
0682 ; --------------------------------------------------------------------------------------
0682 0004 0007  |    |		.DBGLEN	0x0004,0x0007
0684 03bb 03be  |    |		.DBGLNO	0x03bb,0x03be,0x03c2,0x03c6,0x03ca,0x03d1,0x03db,0x03e0,0x03e5,0x03ee,0x03f4
068f 0001 0003  |    |		.XXX[0x7]
0691 0004 0002  |    |
0693 0005 0006  |    |
0695 0007       |    |
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug chain
0696 ; --------------------------------------------------------------------------------------
0696 0005 000e  |    |		.DBGLEN	0x0005,0x000e
0698 03fb 03fd  |    |		.DBGLNO	0x03fb,0x03fd,0x03ff,0x0403,0x0404,0x0408,0x0413,0x0418,0x0422,0x0429,0x0430,0x0435,0x043f,0x0448,0x044f,0x0453,0x0458,0x045d,0x0467
06ab 0001 0002  |    |		.XXX[0xe]
06ad 0003 0004  |    |
06af 0005 0006  |    |
06b1 0007 0008  |    |
06b3 000a 000b  |    |
06b5 000c 0009  |    |
06b7 000d 000e  |    |
06b9 ; --------------------------------------------------------------------------------------
06b9 ; Debug chain
06b9 ; --------------------------------------------------------------------------------------
06b9 0005 0007  |    |		.DBGLEN	0x0005,0x0007
06bb 0473 0475  | s u|		.DBGLNO	0x0473,0x0475,0x0477,0x047b,0x047c,0x048a,0x0495,0x049e,0x04a5,0x04a9,0x04ae,0x04b3
06c7 0001 0002  |    |		.XXX[0x7]
06c9 0004 0005  |    |
06cb 0006 0003  |    |
06cd 0007       |    |
06ce 0000 0000  |    |		.BLANK	0000[0x132]