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

⟦03f2a8749⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03a0       |    |		.CONST	0x03a0								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0064       | d  |		.CONST	0x0064								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 4803       |H   |		Short_Literal	0x3
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0013 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0015 e001       |    |		Load	0x0,0x1
0016 0129       | )  |		Execute	Any,Make_Visible
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0028 c21b       |    |		Store	0x1,0x1b
0029 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
002b c21c       |    |		Store	0x1,0x1c
002c 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
002e c21d       |    |		Store	0x1,0x1d
002f 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0031 c21e       |    |		Store	0x1,0x1e
0032 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0034 c21f       |    |		Store	0x1,0x1f
0035 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0037 c220       |    |		Store	0x1,0x20
0038 4900       |I   |		Short_Literal	0x100
0039 e002       |    |		Load	0x0,0x2
003a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003b 1c07       |    |		Execute_Immediate	Run_Utility,0x7
003c c219       |    |		Store	0x1,0x19
003d 00e3       |    |		Load_Encached	Natural_Cache
003e 0266       | f  |		Execute	Discrete,Bounds
003f e219       |    |		Load	0x1,0x19
0040 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
0042 4801       |H   |		Short_Literal	0x1
0043 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0044 c21a       |    |		Store	0x1,0x1a
0045 4801       |H   |		Short_Literal	0x1
0046 4880       |H   |		Short_Literal	0x80
0047 e21a       |    |		Load	0x1,0x1a
0048 035b       | [  |		Declare_Type	Array,Constrained
0049 00e3       |    |		Load_Encached	Natural_Cache
004a 00e3       |    |		Load_Encached	Natural_Cache
004b 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
004d e20d       |    |		Load	0x1,0xd
004e 0326       | &  |		Complete_Type	Record,By_Defining
004f 00bf       |    |		Action	Accept_Activation
0050 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0063 00c7       |    |		Action	Elaborate_Subprogram
0064			BODY_0008:
0064 00bc       |    |		Action	Signal_Activated
0065 00bb       |    |		Action	Signal_Completion
0066 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
006c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
006d 0a01       |    |		Execute_Immediate	Plus,0x1
006e 00db       |    |		Load_Top	At_Offset_3
006f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0070 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 4801       |H   |		Short_Literal	0x1
007c 00db       |    |		Load_Top	At_Offset_3
007d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
007f 0000       |    |		.XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2
0084 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0085 00db       |    |		Load_Top	At_Offset_3
0086 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0087 027d       | }  |		Execute	Discrete,Greater
0088 6802       |h   |		Jump_Zero	0x8b
0089 e212       |    |		Load	0x1,0x12
008a 0257       | W  |		Execute	Discrete,Raise
008b 00da       |    |		Load_Top	At_Offset_2
008c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
008d 00db       |    |		Load_Top	At_Offset_3
008e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
008f 01d5       |    |		Execute	Vector,Field_Reference
0090 e002       |    |		Load	0x0,0x2
0091 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0092 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0093 0000 0000  |    |		.BLANK	0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
009d 00db       |    |		Load_Top	At_Offset_3
009e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
009f 027d       | }  |		Execute	Discrete,Greater
00a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b8       |    |		.CONST	0x00b8								; Address of begin
00a9 00fc       |    |		.CONST	0x00fc								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab e003       |    |		Load	0x0,0x3
00ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ad e004       |    |		Load	0x0,0x4
00ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00af 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00b0 e005       |    |		Load	0x0,0x5
00b1 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
00b2 0322       | "  |		Declare_Variable	Record
00b3 e5fd       |    |		Load	0x2,-0x3
00b4 e005       |    |		Load	0x0,0x5
00b5 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 017d       | }  |		Execute	Record,Structure_Write
00b8			BODY_00a8:
00b8 e5fc       |    |		Load	0x2,-0x4
00b9 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "Rcf_Imports.Add_Import"
00bb e006       |    |		Load	0x0,0x6
00bc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bd e004       |    |		Load	0x0,0x4
00be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bf e003       |    |		Load	0x0,0x3
00c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c1 e5fc       |    |		Load	0x2,-0x4
00c2 4800       |H   |		Short_Literal	0x0
00c3 4800       |H   |		Short_Literal	0x0
00c4 4801       |H   |		Short_Literal	0x1
00c5 e404       |    |		Load	0x2,0x4
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 e003       |    |		Load	0x0,0x3
00c8 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00c9 c402       |    |		Store	0x2,0x2
00ca 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc 6803       |h   |		Jump_Zero	0xd0
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce a5fb       |    |		Store_Unchecked	0x2,-0x5
00cf 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 e003       |    |		Load	0x0,0x3
00d2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00d3 6807       |h   |		Jump_Zero	0xdb
00d4 e007       |    |		Load	0x0,0x7
00d5 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00d6 6039       |`9  |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00008147}
00d7 e004       |    |		Load	0x0,0x4
00d8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d9 a5fb       |    |		Store_Unchecked	0x2,-0x5
00da 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00db e004       |    |		Load	0x0,0x4
00dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dd 00db       |    |		Load_Top	At_Offset_3
00de e5fc       |    |		Load	0x2,-0x4
00df 00db       |    |		Load_Top	At_Offset_3
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 e008       |    |		Load	0x0,0x8
00e2 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00e3 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
00e4 c402       |    |		Store	0x2,0x2
00e5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00e6 00d9       |    |		Load_Top	At_Offset_1
00e7 a5fb       |    |		Store_Unchecked	0x2,-0x5
00e8 00d9       |    |		Load_Top	At_Offset_1
00e9 6809       |h   |		Jump_Zero	0xf3
00ea e004       |    |		Load	0x0,0x4
00eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ec 00db       |    |		Load_Top	At_Offset_3
00ed e5fc       |    |		Load	0x2,-0x4
00ee e003       |    |		Load	0x0,0x3
00ef 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00f0 c402       |    |		Store	0x2,0x2
00f1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00f2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00f3 e004       |    |		Load	0x0,0x4
00f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 e5fc       |    |		Load	0x2,-0x4
00f7 e003       |    |		Load	0x0,0x3
00f8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f9 c402       |    |		Store	0x2,0x2
00fa c5fb       |    |		Store	0x2,-0x5
00fb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00fc			TRAP_00a8:
00fc 0007       |    |		Action	Break_Optional
00fd 0092 034d  |   M|		Action	Push_String_Extended,0x34d					; "rcf_imports.Add_Import"
00ff e006       |    |		Load	0x0,0x6
0100 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0101 a5fb       |    |		Store_Unchecked	0x2,-0x5
0102 00db       |    |		Load_Top	At_Offset_3
0103 e003       |    |		Load	0x0,0x3
0104 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0105 7008       |p   |		Jump_Nonzero	0x10e
0106 e004       |    |		Load	0x0,0x4
0107 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0108 e402       |    |		Load	0x2,0x2
0109 e5fc       |    |		Load	0x2,-0x4
010a e003       |    |		Load	0x0,0x3
010b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
010c c402       |    |		Store	0x2,0x2
010d 005b       | [  |		Store_Top	Discrete,At_Offset_3
010e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
010f 0000       |    |		.XXX[0x1]
0110 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008147}
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0128       | (  |		.CONST	0x0128								; Address of begin
0119 016c       | l  |		.CONST	0x016c								; Address of exception handler
011a 0004       |    |		.CONST	0x0004								; Number of locals
011b			INIT_0118:
011b e003       |    |		Load	0x0,0x3
011c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011d e004       |    |		Load	0x0,0x4
011e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0120 e005       |    |		Load	0x0,0x5
0121 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0122 0322       | "  |		Declare_Variable	Record
0123 e5fd       |    |		Load	0x2,-0x3
0124 e005       |    |		Load	0x0,0x5
0125 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0126 00d9       |    |		Load_Top	At_Offset_1
0127 017d       | }  |		Execute	Record,Structure_Write
0128			BODY_0118:
0128 e5fc       |    |		Load	0x2,-0x4
0129 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "Rcf_Imports.Remove_Import"
012b e006       |    |		Load	0x0,0x6
012c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
012d e004       |    |		Load	0x0,0x4
012e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012f e003       |    |		Load	0x0,0x3
0130 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0131 e5fc       |    |		Load	0x2,-0x4
0132 4800       |H   |		Short_Literal	0x0
0133 4800       |H   |		Short_Literal	0x0
0134 4801       |H   |		Short_Literal	0x1
0135 e404       |    |		Load	0x2,0x4
0136 e5ff       |    |		Load	0x2,-0x1
0137 e003       |    |		Load	0x0,0x3
0138 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0139 c402       |    |		Store	0x2,0x2
013a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
013b 00d9       |    |		Load_Top	At_Offset_1
013c 6803       |h   |		Jump_Zero	0x140
013d 00d9       |    |		Load_Top	At_Offset_1
013e a5fb       |    |		Store_Unchecked	0x2,-0x5
013f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0140 00da       |    |		Load_Top	At_Offset_2
0141 e003       |    |		Load	0x0,0x3
0142 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0143 6807       |h   |		Jump_Zero	0x14b
0144 e007       |    |		Load	0x0,0x7
0145 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0146 67c9       |g   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00008147}
0147 e004       |    |		Load	0x0,0x4
0148 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0149 a5fb       |    |		Store_Unchecked	0x2,-0x5
014a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
014b e004       |    |		Load	0x0,0x4
014c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014d 00db       |    |		Load_Top	At_Offset_3
014e e5fc       |    |		Load	0x2,-0x4
014f 00db       |    |		Load_Top	At_Offset_3
0150 e5fe       |    |		Load	0x2,-0x2
0151 e008       |    |		Load	0x0,0x8
0152 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0153 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0154 c402       |    |		Store	0x2,0x2
0155 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0156 00d9       |    |		Load_Top	At_Offset_1
0157 a5fb       |    |		Store_Unchecked	0x2,-0x5
0158 00d9       |    |		Load_Top	At_Offset_1
0159 6809       |h   |		Jump_Zero	0x163
015a e004       |    |		Load	0x0,0x4
015b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015c 00db       |    |		Load_Top	At_Offset_3
015d e5fc       |    |		Load	0x2,-0x4
015e e003       |    |		Load	0x0,0x3
015f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0160 c402       |    |		Store	0x2,0x2
0161 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0162 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0163 e004       |    |		Load	0x0,0x4
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 00db       |    |		Load_Top	At_Offset_3
0166 e5fc       |    |		Load	0x2,-0x4
0167 e003       |    |		Load	0x0,0x3
0168 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0169 c402       |    |		Store	0x2,0x2
016a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
016b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
016c			TRAP_0118:
016c e004       |    |		Load	0x0,0x4
016d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
016e 010f       |    |		Execute	Exception,Equal
016f 6810       |h   |		Jump_Zero	0x180
0170 e004       |    |		Load	0x0,0x4
0171 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0172 a5fb       |    |		Store_Unchecked	0x2,-0x5
0173 00db       |    |		Load_Top	At_Offset_3
0174 e003       |    |		Load	0x0,0x3
0175 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0176 7008       |p   |		Jump_Nonzero	0x17f
0177 e004       |    |		Load	0x0,0x4
0178 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0179 e402       |    |		Load	0x2,0x2
017a e5fc       |    |		Load	0x2,-0x4
017b e003       |    |		Load	0x0,0x3
017c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
017d c402       |    |		Store	0x2,0x2
017e 005b       | [  |		Store_Top	Discrete,At_Offset_3
017f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0180 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "Rcf_Imports.Remove_Import"
0182 e006       |    |		Load	0x0,0x6
0183 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0184 a5fb       |    |		Store_Unchecked	0x2,-0x5
0185 00db       |    |		Load_Top	At_Offset_3
0186 e003       |    |		Load	0x0,0x3
0187 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0188 7008       |p   |		Jump_Nonzero	0x191
0189 e004       |    |		Load	0x0,0x4
018a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018b e402       |    |		Load	0x2,0x2
018c e5fc       |    |		Load	0x2,-0x4
018d e003       |    |		Load	0x0,0x3
018e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
018f c402       |    |		Store	0x2,0x2
0190 005b       | [  |		Store_Top	Discrete,At_Offset_3
0191 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0192 0000 0000  |    |		.BLANK	0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a7       |    |		.CONST	0x01a7								; Address of begin
0199 01da       |    |		.CONST	0x01da								; Address of exception handler
019a 0004       |    |		.CONST	0x0004								; Number of locals
019b			INIT_0198:
019b e003       |    |		Load	0x0,0x3
019c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019d e004       |    |		Load	0x0,0x4
019e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019f e005       |    |		Load	0x0,0x5
01a0 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
01a1 0322       | "  |		Declare_Variable	Record
01a2 e5fd       |    |		Load	0x2,-0x3
01a3 e005       |    |		Load	0x0,0x5
01a4 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 017d       | }  |		Execute	Record,Structure_Write
01a7			BODY_0198:
01a7 e5fc       |    |		Load	0x2,-0x4
01a8 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "Rcf_Imports.Get_Imports"
01aa e006       |    |		Load	0x0,0x6
01ab 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ac e004       |    |		Load	0x0,0x4
01ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ae e003       |    |		Load	0x0,0x3
01af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b0 e5fc       |    |		Load	0x2,-0x4
01b1 4800       |H   |		Short_Literal	0x0
01b2 4800       |H   |		Short_Literal	0x0
01b3 4801       |H   |		Short_Literal	0x1
01b4 e404       |    |		Load	0x2,0x4
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 e003       |    |		Load	0x0,0x3
01b7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01b8 c402       |    |		Store	0x2,0x2
01b9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 7013       |p   |		Jump_Nonzero	0x1cf
01bc 00da       |    |		Load_Top	At_Offset_2
01bd e003       |    |		Load	0x0,0x3
01be 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01bf 6807       |h   |		Jump_Zero	0x1c7
01c0 e007       |    |		Load	0x0,0x7
01c1 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01c2 603d       |`=  |		Indirect_Literal	Discrete,0x200,{0x00000000, 0x00008147}
01c3 e004       |    |		Load	0x0,0x4
01c4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c5 a5fa       |    |		Store_Unchecked	0x2,-0x6
01c6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01c7 e5fc       |    |		Load	0x2,-0x4
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 e5fe       |    |		Load	0x2,-0x2
01ca e402       |    |		Load	0x2,0x2
01cb e008       |    |		Load	0x0,0x8
01cc 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01cd 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
01ce c5fb       |    |		Store	0x2,-0x5
01cf 00d9       |    |		Load_Top	At_Offset_1
01d0 a5fa       |    |		Store_Unchecked	0x2,-0x6
01d1 e004       |    |		Load	0x0,0x4
01d2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 e5fc       |    |		Load	0x2,-0x4
01d5 e003       |    |		Load	0x0,0x3
01d6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01d7 c402       |    |		Store	0x2,0x2
01d8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01da			TRAP_0198:
01da e004       |    |		Load	0x0,0x4
01db 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01dc 010f       |    |		Execute	Exception,Equal
01dd 6810       |h   |		Jump_Zero	0x1ee
01de e004       |    |		Load	0x0,0x4
01df 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01e0 a5fa       |    |		Store_Unchecked	0x2,-0x6
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 e003       |    |		Load	0x0,0x3
01e3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01e4 7008       |p   |		Jump_Nonzero	0x1ed
01e5 e004       |    |		Load	0x0,0x4
01e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e7 e402       |    |		Load	0x2,0x2
01e8 e5fc       |    |		Load	0x2,-0x4
01e9 e003       |    |		Load	0x0,0x3
01ea 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01eb c402       |    |		Store	0x2,0x2
01ec 005b       | [  |		Store_Top	Discrete,At_Offset_3
01ed 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01ee 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "Rcf_Imports.Get_Imports"
01f0 e006       |    |		Load	0x0,0x6
01f1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01f2 a5fa       |    |		Store_Unchecked	0x2,-0x6
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 e003       |    |		Load	0x0,0x3
01f5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01f6 7008       |p   |		Jump_Nonzero	0x1ff
01f7 e004       |    |		Load	0x0,0x4
01f8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f9 e402       |    |		Load	0x2,0x2
01fa e5fc       |    |		Load	0x2,-0x4
01fb e003       |    |		Load	0x0,0x3
01fc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01fd c402       |    |		Store	0x2,0x2
01fe 005b       | [  |		Store_Top	Discrete,At_Offset_3
01ff 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0200 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008147}
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021e       |    |		.CONST	0x021e								; Address of begin
0209 026a       | j  |		.CONST	0x026a								; Address of exception handler
020a 0005       |    |		.CONST	0x0005								; Number of locals
020b			INIT_0208:
020b e009       |    |		Load	0x0,0x9
020c 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
020d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
020e 02c7       |    |		Declare_Variable	Any
020f 00d8       |    |		Load_Top	At_Offset_0
0210 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0211 e004       |    |		Load	0x0,0x4
0212 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0213 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0214 e005       |    |		Load	0x0,0x5
0215 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0216 0322       | "  |		Declare_Variable	Record
0217 e5fd       |    |		Load	0x2,-0x3
0218 e005       |    |		Load	0x0,0x5
0219 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
021a 00d9       |    |		Load_Top	At_Offset_1
021b 017d       | }  |		Execute	Record,Structure_Write
021c 029f 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Call
021e			BODY_0208:
021e e004       |    |		Load	0x0,0x4
021f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0220 e402       |    |		Load	0x2,0x2
0221 0120       |    |		Execute	Any,Is_Value
0222 6804       |h   |		Jump_Zero	0x227
0223 e009       |    |		Load	0x0,0x9
0224 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0225 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0226 7801       |x   |		Jump	0x228
0227 e402       |    |		Load	0x2,0x2
0228 e5fc       |    |		Load	0x2,-0x4
0229 e5fd       |    |		Load	0x2,-0x3
022a e5fe       |    |		Load	0x2,-0x2
022b e5ff       |    |		Load	0x2,-0x1
022c 821d       |    |		Call	0x1,0x1d
022d c402       |    |		Store	0x2,0x2
022e 005b       | [  |		Store_Top	Discrete,At_Offset_3
022f 00da       |    |		Load_Top	At_Offset_2
0230 6803       |h   |		Jump_Zero	0x234
0231 00da       |    |		Load_Top	At_Offset_2
0232 a5fa       |    |		Store_Unchecked	0x2,-0x6
0233 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0234 00cf       |    |		Action	Mark_Auxiliary
0235 7823       |x#  |		Jump	0x259
0236 8405       |    |		Call	0x2,0x5
0237 e5fb       |    |		Load	0x2,-0x5
0238 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0239 0a01       |    |		Execute_Immediate	Plus,0x1
023a e5fb       |    |		Load	0x2,-0x5
023b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
023c e5fb       |    |		Load	0x2,-0x5
023d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
023e 0c81       |    |		Execute_Immediate	Greater_Equal,-0x7f
023f 6813       |h   |		Jump_Zero	0x253
0240 4801       |H   |		Short_Literal	0x1
0241 4801       |H   |		Short_Literal	0x1
0242 e007       |    |		Load	0x0,0x7
0243 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0244 0334       | 4  |		Declare_Variable	Array,With_Constraint
0245 e5ff       |    |		Load	0x2,-0x1
0246 e007       |    |		Load	0x0,0x7
0247 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0248 e007       |    |		Load	0x0,0x7
0249 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024a 0119       |    |		Execute	Any,Check_In_Formal_Type
024b 4801       |H   |		Short_Literal	0x1
024c 00da       |    |		Load_Top	At_Offset_2
024d 01d6       |    |		Execute	Vector,Field_Write
024e 6029       |`)  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x0000815f}
024f e004       |    |		Load	0x0,0x4
0250 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0251 a5fa       |    |		Store_Unchecked	0x2,-0x6
0252 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0253 e402       |    |		Load	0x2,0x2
0254 e009       |    |		Load	0x0,0x9
0255 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0256 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0257 c402       |    |		Store	0x2,0x2
0258 00c9       |    |		Action	Pop_Auxiliary_Loop
0259 e402       |    |		Load	0x2,0x2
025a e009       |    |		Load	0x0,0x9
025b 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
025c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
025d 6fd8       |o   |		Jump_Zero	0x236
025e 00ce       |    |		Action	Pop_Auxiliary
025f e5fb       |    |		Load	0x2,-0x5
0260 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0261 0aff       |    |		Execute_Immediate	Plus,-0x1
0262 e5fb       |    |		Load	0x2,-0x5
0263 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0264 4801       |H   |		Short_Literal	0x1
0265 e5fb       |    |		Load	0x2,-0x5
0266 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0267 00da       |    |		Load_Top	At_Offset_2
0268 a5fa       |    |		Store_Unchecked	0x2,-0x6
0269 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
026a			TRAP_0208:
026a e004       |    |		Load	0x0,0x4
026b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
026c 010f       |    |		Execute	Exception,Equal
026d 6804       |h   |		Jump_Zero	0x272
026e e004       |    |		Load	0x0,0x4
026f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0270 a5fa       |    |		Store_Unchecked	0x2,-0x6
0271 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0272 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "Rcf_Imports.Get_Imports"
0274 e006       |    |		Load	0x0,0x6
0275 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0276 a5fa       |    |		Store_Unchecked	0x2,-0x6
0277 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000815f}
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 028d       |    |		.CONST	0x028d								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e5fd       |    |		Load	0x2,-0x3
0284 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "Rcf_Imports.Has_Static_Imports"
0286 e006       |    |		Load	0x0,0x6
0287 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0288 4801       |H   |		Short_Literal	0x1
0289 a5fc       |    |		Store_Unchecked	0x2,-0x4
028a 4800       |H   |		Short_Literal	0x0
028b a5fb       |    |		Store_Unchecked	0x2,-0x5
028c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
028d			TRAP_0280:
028d e004       |    |		Load	0x0,0x4
028e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
028f 010f       |    |		Execute	Exception,Equal
0290 6806       |h   |		Jump_Zero	0x297
0291 e004       |    |		Load	0x0,0x4
0292 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0293 a5fb       |    |		Store_Unchecked	0x2,-0x5
0294 4800       |H   |		Short_Literal	0x0
0295 a5fc       |    |		Store_Unchecked	0x2,-0x4
0296 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0297 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "Rcf_Imports.Get_Imports"
0299 e006       |    |		Load	0x0,0x6
029a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
029b a5fb       |    |		Store_Unchecked	0x2,-0x5
029c 4800       |H   |		Short_Literal	0x0
029d a5fc       |    |		Store_Unchecked	0x2,-0x4
029e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
029f 0000       |    |		.XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ab       |    |		.CONST	0x02ab								; Address of begin
02a1 02b5       |    |		.CONST	0x02b5								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 e005       |    |		Load	0x0,0x5
02a4 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
02a5 0322       | "  |		Declare_Variable	Record
02a6 e5fe       |    |		Load	0x2,-0x2
02a7 e005       |    |		Load	0x0,0x5
02a8 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02a9 00d9       |    |		Load_Top	At_Offset_1
02aa 017d       | }  |		Execute	Record,Structure_Write
02ab			BODY_02a0:
02ab e5fd       |    |		Load	0x2,-0x3
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad e5ff       |    |		Load	0x2,-0x1
02ae e008       |    |		Load	0x0,0x8
02af 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02b0 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
02b1 a5fc       |    |		Store_Unchecked	0x2,-0x4
02b2 4800       |H   |		Short_Literal	0x0
02b3 a5fb       |    |		Store_Unchecked	0x2,-0x5
02b4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02b5			TRAP_02a0:
02b5 e004       |    |		Load	0x0,0x4
02b6 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02b7 010f       |    |		Execute	Exception,Equal
02b8 6806       |h   |		Jump_Zero	0x2bf
02b9 e004       |    |		Load	0x0,0x4
02ba 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02bb a5fb       |    |		Store_Unchecked	0x2,-0x5
02bc 4800       |H   |		Short_Literal	0x0
02bd a5fc       |    |		Store_Unchecked	0x2,-0x4
02be 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02bf 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "Rcf_Imports.Has_State_File"
02c1 e006       |    |		Load	0x0,0x6
02c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02c3 a5fb       |    |		Store_Unchecked	0x2,-0x5
02c4 4800       |H   |		Short_Literal	0x0
02c5 a5fc       |    |		Store_Unchecked	0x2,-0x4
02c6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02c7 0000       |    |		.XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4605       |F   |		Jump_Case	0x6
02cc 7804       |x   |		Jump	0x2d1								; case 0x0
02cd 7814       |x   |		Jump	0x2e2								; case 0x1
02ce 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
02cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
02d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
02d1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
02d2 01dc       |    |		Execute	Vector,Last
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 01dd       |    |		Execute	Vector,First
02d5 0263       | c  |		Execute	Discrete,Above_Bound
02d6 700a       |p   |		Jump_Nonzero	0x2e1
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 e5ff       |    |		Load	0x2,-0x1
02d9 01d5       |    |		Execute	Vector,Field_Reference
02da 0125       | %  |		Execute	Any,Set_Constraint
02db 00d8       |    |		Load_Top	At_Offset_0
02dc e5ff       |    |		Load	0x2,-0x1
02dd 01d5       |    |		Execute	Vector,Field_Reference
02de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02df 0a01       |    |		Execute_Immediate	Plus,0x1
02e0 7ff4       |    |		Jump	0x2d5
02e1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 01dc       |    |		Execute	Vector,Last
02e4 00db       |    |		Load_Top	At_Offset_3
02e5 01dd       |    |		Execute	Vector,First
02e6 0263       | c  |		Execute	Discrete,Above_Bound
02e7 700a       |p   |		Jump_Nonzero	0x2f2
02e8 00d8       |    |		Load_Top	At_Offset_0
02e9 e5ff       |    |		Load	0x2,-0x1
02ea 01d5       |    |		Execute	Vector,Field_Reference
02eb 0125       | %  |		Execute	Any,Set_Constraint
02ec 00d8       |    |		Load_Top	At_Offset_0
02ed e5ff       |    |		Load	0x2,-0x1
02ee 01d7       |    |		Execute	Vector,Field_Read
02ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f0 0a01       |    |		Execute_Immediate	Plus,0x1
02f1 7ff4       |    |		Jump	0x2e6
02f2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02f3 0000 0000  |    |		.BLANK	0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0314       |    |		.CONST	0x0314								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0005       |    |		.CONST	0x0005								; Number of locals
02fb			INIT_02f8:
02fb e009       |    |		Load	0x0,0x9
02fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02fd 02c7       |    |		Declare_Variable	Any
02fe e402       |    |		Load	0x2,0x2
02ff e009       |    |		Load	0x0,0x9
0300 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0301 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0302 a602       |    |		Store_Unchecked	0x3,0x2
0303 e5fc       |    |		Load	0x2,-0x4
0304 e5fd       |    |		Load	0x2,-0x3
0305 00da       |    |		Load_Top	At_Offset_2
0306 e00a       |    |		Load	0x0,0xa
0307 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0308 e5fc       |    |		Load	0x2,-0x4
0309 e5fd       |    |		Load	0x2,-0x3
030a 00db       |    |		Load_Top	At_Offset_3
030b e00a       |    |		Load	0x0,0xa
030c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
030d 00d9       |    |		Load_Top	At_Offset_1
030e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
030f 00d9       |    |		Load_Top	At_Offset_1
0310 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0311 e404       |    |		Load	0x2,0x4
0312 e005       |    |		Load	0x0,0x5
0313 1870       | p  |		Execute	Package,Field_Execute,Field_Number 0x70
0314			BODY_02f8:
0314 e5fb       |    |		Load	0x2,-0x5
0315 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0316 e5fb       |    |		Load	0x2,-0x5
0317 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0318 01d5       |    |		Execute	Vector,Field_Reference
0319 00d8       |    |		Load_Top	At_Offset_0
031a 00da       |    |		Load_Top	At_Offset_2
031b e002       |    |		Load	0x0,0x2
031c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
031d e002       |    |		Load	0x0,0x2
031e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
031f 00d2       |    |		Pop_Control	Pop_Count_2
0320 00d9       |    |		Load_Top	At_Offset_1
0321 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0322 6804       |h   |		Jump_Zero	0x327
0323 00d9       |    |		Load_Top	At_Offset_1
0324 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0325 a403       |    |		Store_Unchecked	0x2,0x3
0326 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0327 00da       |    |		Load_Top	At_Offset_2
0328 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0329 6803       |h   |		Jump_Zero	0x32d
032a 00da       |    |		Load_Top	At_Offset_2
032b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
032c a403       |    |		Store_Unchecked	0x2,0x3
032d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 4608       |F   |		Jump_Case	0x9
0334 7808       |x   |		Jump	0x33d								; case 0x0
0335 7811       |x   |		Jump	0x347								; case 0x1
0336 7814       |x   |		Jump	0x34b								; case 0x2
0337 7813       |x   |		Jump	0x34b								; case 0x3
0338 7812       |x   |		Jump	0x34b								; case 0x4
0339 7811       |x   |		Jump	0x34b								; case 0x5
033a 7810       |x   |		Jump	0x34b								; case 0x6
033b 780f       |x   |		Jump	0x34b								; case 0x7
033c 780e       |x   |		Jump	0x34b								; case 0x8
033d 00da       |    |		Load_Top	At_Offset_2
033e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
033f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0340 4801       |H   |		Short_Literal	0x1
0341 00db       |    |		Load_Top	At_Offset_3
0342 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0343 4801       |H   |		Short_Literal	0x1
0344 00db       |    |		Load_Top	At_Offset_3
0345 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0346 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0347 00da       |    |		Load_Top	At_Offset_2
0348 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0349 1c01       |    |		Execute_Immediate	Run_Utility,0x1
034a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
034b 0869       | i  |		Execute_Immediate	Raise,0x69
034c ; --------------------------------------------------------------------------------------
034c ; STRING TABLE
034c ; --------------------------------------------------------------------------------------
034c 000e       |    |		.STRTAB	0x000e->0x0353							; "Rcf_Imports.Add_Import"
034d 0022       | "  |		.STRTAB	0x0022->0x035e							; "rcf_imports.Add_Import"
034e 0036       | 6  |		.STRTAB	0x0036->0x0369							; "Rcf_Imports.Remove_Import"
034f 004d       | M  |		.STRTAB	0x004d->0x0375							; "Rcf_Imports.Get_Imports"
0350 0062       | b  |		.STRTAB	0x0062->0x0381							; "Rcf_Imports.Has_Static_Imports"
0351 007e       | ~  |		.STRTAB	0x007e->0x0390							; "Rcf_Imports.Has_State_File"
0352 0096       |    |		.STREND 0x0096->0x039d
0353 5263 665f  |Rcf_|		.STRTAB_STRINGS
039d 0000 0000  |    |		.XXX[0x3]
039f 0000       |    |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug Table
03a0 ; --------------------------------------------------------------------------------------
03a0 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x2ddf,0x0000,0x0001,0x0000
03a6 0000 1792  |    |		.XXX[0x52]
03a8 000e 1c04  |    |
03aa 0000 034c  |   L|
03ac 00f9 c0cd  |    |
03ae 0000 2160  |  !`|
03b0 0d13 4804  |  H |
03b2 0000 007f  |    |
03b4 00cf 5c0a  |  \ |
03b6 0000 16e2  |    |
03b8 0d13 4804  |  H |
03ba 0002 5cbf  |  \ |
03bc 001e b073  |   s|
03be 0000 3192  |  1 |
03c0 0001 0404  |    |
03c2 0800 0100  |    |
03c4 0000 0000  |    |
03c6 0000 0001  |    |
03c8 000e 1c04  |    |
03ca 0000 034c  |   L|
03cc 00f9 c0cd  |    |
03ce 0000 3192  |  1 |
03d0 0d13 3004  |  0 |
03d2 0000 1644  |   D|
03d4 00f9 c0cd  |    |
03d6 0000 31f1  |  1 |
03d8 0d13 4804  |  H |
03da 0000 0644  |   D|
03dc 0d13 4804  |  H |
03de 0000 06d4  |    |
03e0 0d13 3004  |  0 |
03e2 0000 1644  |   D|
03e4 00f9 c0cd  |    |
03e6 0000 31f1  |  1 |
03e8 000e 5004  |  P |
03ea 0000 0100  |    |
03ec 0000 0000  |    |
03ee 0000 0002  |    |
03f0 000e 1c04  |    |
03f2 0000 034c  |   L|
03f4 00f9 c0cd  |    |
03f6 0000 3192  |  1 |
03f8 0000 0000  |    |		.BLANK	0000[0x7]
03ff 0005       |    |		.XXX[0x1]