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

⟦3922bd025⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02d0       |    |		.CONST	0x02d0								; 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 8001       |    |		.CONST	0x8001								; 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 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
002b c21c       |    |		Store	0x1,0x1c
002c 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
002e c21d       |    |		Store	0x1,0x1d
002f 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0031 c21e       |    |		Store	0x1,0x1e
0032 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0034 c21f       |    |		Store	0x1,0x1f
0035 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,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 01eb  |    |		Declare_Subprogram	INIT_01e8,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 025b  |   [|		Declare_Subprogram	INIT_0258,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 00c0       |    |		.CONST	0x00c0								; 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 0274  |   t|		Action	Push_String_Extended,0x274					; "Rcf_Imports.Add_Import"
00bb e006       |    |		Load	0x0,0x6
00bc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bd 4800       |H   |		Short_Literal	0x0
00be a5fb       |    |		Store_Unchecked	0x2,-0x5
00bf 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c0			TRAP_00a8:
00c0 0007       |    |		Action	Break_Optional
00c1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d8       |    |		.CONST	0x00d8								; Address of begin
00c9 00e0       |    |		.CONST	0x00e0								; Address of exception handler
00ca 0004       |    |		.CONST	0x0004								; Number of locals
00cb			INIT_00c8:
00cb e003       |    |		Load	0x0,0x3
00cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00cd e004       |    |		Load	0x0,0x4
00ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00cf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00d0 e005       |    |		Load	0x0,0x5
00d1 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
00d2 0322       | "  |		Declare_Variable	Record
00d3 e5fd       |    |		Load	0x2,-0x3
00d4 e005       |    |		Load	0x0,0x5
00d5 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 017d       | }  |		Execute	Record,Structure_Write
00d8			BODY_00c8:
00d8 e5fc       |    |		Load	0x2,-0x4
00d9 0092 0275  |   u|		Action	Push_String_Extended,0x275					; "Rcf_Imports.Remove_Import"
00db e006       |    |		Load	0x0,0x6
00dc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00dd 4800       |H   |		Short_Literal	0x0
00de a5fb       |    |		Store_Unchecked	0x2,-0x5
00df 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e0			TRAP_00c8:
00e0 e004       |    |		Load	0x0,0x4
00e1 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00e2 010f       |    |		Execute	Exception,Equal
00e3 6810       |h   |		Jump_Zero	0xf4
00e4 e004       |    |		Load	0x0,0x4
00e5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00e6 a5fb       |    |		Store_Unchecked	0x2,-0x5
00e7 00db       |    |		Load_Top	At_Offset_3
00e8 e003       |    |		Load	0x0,0x3
00e9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00ea 7008       |p   |		Jump_Nonzero	0xf3
00eb e004       |    |		Load	0x0,0x4
00ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ed e402       |    |		Load	0x2,0x2
00ee e5fc       |    |		Load	0x2,-0x4
00ef e003       |    |		Load	0x0,0x3
00f0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00f1 c402       |    |		Store	0x2,0x2
00f2 005b       | [  |		Store_Top	Discrete,At_Offset_3
00f3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00f4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0107       |    |		.CONST	0x0107								; Address of begin
00f9 011f       |    |		.CONST	0x011f								; Address of exception handler
00fa 0004       |    |		.CONST	0x0004								; Number of locals
00fb			INIT_00f8:
00fb e003       |    |		Load	0x0,0x3
00fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fd e004       |    |		Load	0x0,0x4
00fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ff e005       |    |		Load	0x0,0x5
0100 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0101 0322       | "  |		Declare_Variable	Record
0102 e5fd       |    |		Load	0x2,-0x3
0103 e005       |    |		Load	0x0,0x5
0104 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0105 00d9       |    |		Load_Top	At_Offset_1
0106 017d       | }  |		Execute	Record,Structure_Write
0107			BODY_00f8:
0107 e5fc       |    |		Load	0x2,-0x4
0108 0092 0276  |   v|		Action	Push_String_Extended,0x276					; "Rcf_Imports.Get_Imports"
010a e006       |    |		Load	0x0,0x6
010b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
010c e5fa       |    |		Load	0x2,-0x6
010d e5fb       |    |		Load	0x2,-0x5
010e 0120       |    |		Execute	Any,Is_Value
010f 6804       |h   |		Jump_Zero	0x114
0110 e007       |    |		Load	0x0,0x7
0111 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0112 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0113 7801       |x   |		Jump	0x115
0114 e5fb       |    |		Load	0x2,-0x5
0115 e5fc       |    |		Load	0x2,-0x4
0116 00db       |    |		Load_Top	At_Offset_3
0117 e5fe       |    |		Load	0x2,-0x2
0118 e5ff       |    |		Load	0x2,-0x1
0119 e008       |    |		Load	0x0,0x8
011a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
011b 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
011c c5fb       |    |		Store	0x2,-0x5
011d c5fa       |    |		Store	0x2,-0x6
011e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
011f			TRAP_00f8:
011f e004       |    |		Load	0x0,0x4
0120 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0121 010f       |    |		Execute	Exception,Equal
0122 6804       |h   |		Jump_Zero	0x127
0123 e004       |    |		Load	0x0,0x4
0124 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0125 a5fa       |    |		Store_Unchecked	0x2,-0x6
0126 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0127 0092 0276  |   v|		Action	Push_String_Extended,0x276					; "Rcf_Imports.Get_Imports"
0129 e006       |    |		Load	0x0,0x6
012a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
012b a5fa       |    |		Store_Unchecked	0x2,-0x6
012c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0146       | F  |		.CONST	0x0146								; Address of begin
0131 0196       |    |		.CONST	0x0196								; Address of exception handler
0132 0005       |    |		.CONST	0x0005								; Number of locals
0133			INIT_0130:
0133 e007       |    |		Load	0x0,0x7
0134 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0135 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0136 02c7       |    |		Declare_Variable	Any
0137 00d8       |    |		Load_Top	At_Offset_0
0138 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0139 e004       |    |		Load	0x0,0x4
013a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
013c e005       |    |		Load	0x0,0x5
013d 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
013e 0322       | "  |		Declare_Variable	Record
013f e5fd       |    |		Load	0x2,-0x3
0140 e005       |    |		Load	0x0,0x5
0141 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0142 00d9       |    |		Load_Top	At_Offset_1
0143 017d       | }  |		Execute	Record,Structure_Write
0144 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
0146			BODY_0130:
0146 e004       |    |		Load	0x0,0x4
0147 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0148 e402       |    |		Load	0x2,0x2
0149 0120       |    |		Execute	Any,Is_Value
014a 6804       |h   |		Jump_Zero	0x14f
014b e007       |    |		Load	0x0,0x7
014c 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
014d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
014e 7801       |x   |		Jump	0x150
014f e402       |    |		Load	0x2,0x2
0150 e5fc       |    |		Load	0x2,-0x4
0151 e5fd       |    |		Load	0x2,-0x3
0152 e5fe       |    |		Load	0x2,-0x2
0153 e5ff       |    |		Load	0x2,-0x1
0154 821d       |    |		Call	0x1,0x1d
0155 c402       |    |		Store	0x2,0x2
0156 005b       | [  |		Store_Top	Discrete,At_Offset_3
0157 4800       |H   |		Short_Literal	0x0
0158 00db       |    |		Load_Top	At_Offset_3
0159 e004       |    |		Load	0x0,0x4
015a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
015b 7003       |p   |		Jump_Nonzero	0x15f
015c 00da       |    |		Load_Top	At_Offset_2
015d a5fa       |    |		Store_Unchecked	0x2,-0x6
015e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
015f 00cf       |    |		Action	Mark_Auxiliary
0160 7824       |x$  |		Jump	0x185
0161 8405       |    |		Call	0x2,0x5
0162 e5fb       |    |		Load	0x2,-0x5
0163 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0164 0a01       |    |		Execute_Immediate	Plus,0x1
0165 e5fb       |    |		Load	0x2,-0x5
0166 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0167 e5fb       |    |		Load	0x2,-0x5
0168 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0169 0c81       |    |		Execute_Immediate	Greater_Equal,-0x7f
016a 6814       |h   |		Jump_Zero	0x17f
016b 4801       |H   |		Short_Literal	0x1
016c 4801       |H   |		Short_Literal	0x1
016d e009       |    |		Load	0x0,0x9
016e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016f 035b       | [  |		Declare_Type	Array,Constrained
0170 0337       | 7  |		Declare_Variable	Array
0171 e5ff       |    |		Load	0x2,-0x1
0172 e009       |    |		Load	0x0,0x9
0173 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0174 e009       |    |		Load	0x0,0x9
0175 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0176 0119       |    |		Execute	Any,Check_In_Formal_Type
0177 4801       |H   |		Short_Literal	0x1
0178 00da       |    |		Load_Top	At_Offset_2
0179 01d6       |    |		Execute	Vector,Field_Write
017a 6029       |`)  |		Indirect_Literal	Discrete,0x1a4,{0x00000000, 0x0000815f}
017b e004       |    |		Load	0x0,0x4
017c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
017d a5fa       |    |		Store_Unchecked	0x2,-0x6
017e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017f e402       |    |		Load	0x2,0x2
0180 e007       |    |		Load	0x0,0x7
0181 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0182 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0183 c402       |    |		Store	0x2,0x2
0184 00c9       |    |		Action	Pop_Auxiliary_Loop
0185 e402       |    |		Load	0x2,0x2
0186 e007       |    |		Load	0x0,0x7
0187 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0188 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0189 6fd7       |o   |		Jump_Zero	0x161
018a 00ce       |    |		Action	Pop_Auxiliary
018b e5fb       |    |		Load	0x2,-0x5
018c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
018d 0aff       |    |		Execute_Immediate	Plus,-0x1
018e e5fb       |    |		Load	0x2,-0x5
018f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0190 4801       |H   |		Short_Literal	0x1
0191 e5fb       |    |		Load	0x2,-0x5
0192 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0193 00da       |    |		Load_Top	At_Offset_2
0194 a5fa       |    |		Store_Unchecked	0x2,-0x6
0195 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0196			TRAP_0130:
0196 e004       |    |		Load	0x0,0x4
0197 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0198 010f       |    |		Execute	Exception,Equal
0199 6804       |h   |		Jump_Zero	0x19e
019a e004       |    |		Load	0x0,0x4
019b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
019c a5fa       |    |		Store_Unchecked	0x2,-0x6
019d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
019e 0092 0277  |   w|		Action	Push_String_Extended,0x277					; "Rcf_Imports.Get_Remote_Imports"
01a0 e006       |    |		Load	0x0,0x6
01a1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a2 a5fa       |    |		Store_Unchecked	0x2,-0x6
01a3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000815f}
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 01b5       |    |		.CONST	0x01b5								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e5fd       |    |		Load	0x2,-0x3
01ac 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "Rcf_Imports.Has_Static_Imports"
01ae e006       |    |		Load	0x0,0x6
01af 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b0 4801       |H   |		Short_Literal	0x1
01b1 a5fc       |    |		Store_Unchecked	0x2,-0x4
01b2 4800       |H   |		Short_Literal	0x0
01b3 a5fb       |    |		Store_Unchecked	0x2,-0x5
01b4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01b5			TRAP_01a8:
01b5 e004       |    |		Load	0x0,0x4
01b6 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01b7 010f       |    |		Execute	Exception,Equal
01b8 6806       |h   |		Jump_Zero	0x1bf
01b9 e004       |    |		Load	0x0,0x4
01ba 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01bb a5fb       |    |		Store_Unchecked	0x2,-0x5
01bc 4800       |H   |		Short_Literal	0x0
01bd a5fc       |    |		Store_Unchecked	0x2,-0x4
01be 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01bf 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "Rcf_Imports.Has_Static_Imports"
01c1 e006       |    |		Load	0x0,0x6
01c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c3 a5fb       |    |		Store_Unchecked	0x2,-0x5
01c4 4800       |H   |		Short_Literal	0x0
01c5 a5fc       |    |		Store_Unchecked	0x2,-0x4
01c6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 01d3       |    |		.CONST	0x01d3								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 00db       |    |		Load_Top	At_Offset_3
01cd e00a       |    |		Load	0x0,0xa
01ce 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
01cf a5fc       |    |		Store_Unchecked	0x2,-0x4
01d0 4800       |H   |		Short_Literal	0x0
01d1 a5fb       |    |		Store_Unchecked	0x2,-0x5
01d2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01d3			TRAP_01c8:
01d3 e004       |    |		Load	0x0,0x4
01d4 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01d5 010f       |    |		Execute	Exception,Equal
01d6 6806       |h   |		Jump_Zero	0x1dd
01d7 e004       |    |		Load	0x0,0x4
01d8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01d9 a5fb       |    |		Store_Unchecked	0x2,-0x5
01da 4800       |H   |		Short_Literal	0x0
01db a5fc       |    |		Store_Unchecked	0x2,-0x4
01dc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01dd 0092 0279  |   y|		Action	Push_String_Extended,0x279					; "Rcf_Imports.Has_State_File"
01df e006       |    |		Load	0x0,0x6
01e0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e1 a5fb       |    |		Store_Unchecked	0x2,-0x5
01e2 4800       |H   |		Short_Literal	0x0
01e3 a5fc       |    |		Store_Unchecked	0x2,-0x4
01e4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01e5 0000 0000  |    |		.XXX[0x3]
01e7 0000       |    |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4605       |F   |		Jump_Case	0x6
01ec 7804       |x   |		Jump	0x1f1								; case 0x0
01ed 7814       |x   |		Jump	0x202								; case 0x1
01ee 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01ef 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01f0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01f1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
01f2 01dc       |    |		Execute	Vector,Last
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 01dd       |    |		Execute	Vector,First
01f5 0263       | c  |		Execute	Discrete,Above_Bound
01f6 700a       |p   |		Jump_Nonzero	0x201
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 e5ff       |    |		Load	0x2,-0x1
01f9 01d5       |    |		Execute	Vector,Field_Reference
01fa 0125       | %  |		Execute	Any,Set_Constraint
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc e5ff       |    |		Load	0x2,-0x1
01fd 01d5       |    |		Execute	Vector,Field_Reference
01fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ff 0a01       |    |		Execute_Immediate	Plus,0x1
0200 7ff4       |    |		Jump	0x1f5
0201 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0202 00da       |    |		Load_Top	At_Offset_2
0203 01dc       |    |		Execute	Vector,Last
0204 00db       |    |		Load_Top	At_Offset_3
0205 01dd       |    |		Execute	Vector,First
0206 0263       | c  |		Execute	Discrete,Above_Bound
0207 700a       |p   |		Jump_Nonzero	0x212
0208 00d8       |    |		Load_Top	At_Offset_0
0209 e5ff       |    |		Load	0x2,-0x1
020a 01d5       |    |		Execute	Vector,Field_Reference
020b 0125       | %  |		Execute	Any,Set_Constraint
020c 00d8       |    |		Load_Top	At_Offset_0
020d e5ff       |    |		Load	0x2,-0x1
020e 01d7       |    |		Execute	Vector,Field_Read
020f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0210 0a01       |    |		Execute_Immediate	Plus,0x1
0211 7ff4       |    |		Jump	0x206
0212 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0213 0000 0000  |    |		.BLANK	0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0234       | 4  |		.CONST	0x0234								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0005       |    |		.CONST	0x0005								; Number of locals
021b			INIT_0218:
021b e007       |    |		Load	0x0,0x7
021c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
021d 02c7       |    |		Declare_Variable	Any
021e e402       |    |		Load	0x2,0x2
021f e007       |    |		Load	0x0,0x7
0220 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0221 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0222 a602       |    |		Store_Unchecked	0x3,0x2
0223 e5fc       |    |		Load	0x2,-0x4
0224 e5fd       |    |		Load	0x2,-0x3
0225 00da       |    |		Load_Top	At_Offset_2
0226 e00b       |    |		Load	0x0,0xb
0227 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0228 e5fc       |    |		Load	0x2,-0x4
0229 e5fd       |    |		Load	0x2,-0x3
022a 00db       |    |		Load_Top	At_Offset_3
022b e00b       |    |		Load	0x0,0xb
022c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
022d 00d9       |    |		Load_Top	At_Offset_1
022e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
022f 00d9       |    |		Load_Top	At_Offset_1
0230 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0231 e404       |    |		Load	0x2,0x4
0232 e005       |    |		Load	0x0,0x5
0233 1870       | p  |		Execute	Package,Field_Execute,Field_Number 0x70
0234			BODY_0218:
0234 e5fb       |    |		Load	0x2,-0x5
0235 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0236 e5fb       |    |		Load	0x2,-0x5
0237 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0238 01d5       |    |		Execute	Vector,Field_Reference
0239 00d8       |    |		Load_Top	At_Offset_0
023a 00da       |    |		Load_Top	At_Offset_2
023b e002       |    |		Load	0x0,0x2
023c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
023d e002       |    |		Load	0x0,0x2
023e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
023f 00d2       |    |		Pop_Control	Pop_Count_2
0240 4800       |H   |		Short_Literal	0x0
0241 00da       |    |		Load_Top	At_Offset_2
0242 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0243 e004       |    |		Load	0x0,0x4
0244 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0245 7004       |p   |		Jump_Nonzero	0x24a
0246 00d9       |    |		Load_Top	At_Offset_1
0247 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0248 a403       |    |		Store_Unchecked	0x2,0x3
0249 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024a 4800       |H   |		Short_Literal	0x0
024b 00db       |    |		Load_Top	At_Offset_3
024c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
024d e004       |    |		Load	0x0,0x4
024e 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
024f 7003       |p   |		Jump_Nonzero	0x253
0250 00da       |    |		Load_Top	At_Offset_2
0251 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0252 a403       |    |		Store_Unchecked	0x2,0x3
0253 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0254 0000 0000  |    |		.BLANK	0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 4608       |F   |		Jump_Case	0x9
025c 7808       |x   |		Jump	0x265								; case 0x0
025d 7811       |x   |		Jump	0x26f								; case 0x1
025e 7814       |x   |		Jump	0x273								; case 0x2
025f 7813       |x   |		Jump	0x273								; case 0x3
0260 7812       |x   |		Jump	0x273								; case 0x4
0261 7811       |x   |		Jump	0x273								; case 0x5
0262 7810       |x   |		Jump	0x273								; case 0x6
0263 780f       |x   |		Jump	0x273								; case 0x7
0264 780e       |x   |		Jump	0x273								; case 0x8
0265 00da       |    |		Load_Top	At_Offset_2
0266 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0267 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0268 4801       |H   |		Short_Literal	0x1
0269 00db       |    |		Load_Top	At_Offset_3
026a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
026b 4801       |H   |		Short_Literal	0x1
026c 00db       |    |		Load_Top	At_Offset_3
026d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
026e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
026f 00da       |    |		Load_Top	At_Offset_2
0270 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0271 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0272 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0273 0869       | i  |		Execute_Immediate	Raise,0x69
0274 ; --------------------------------------------------------------------------------------
0274 ; STRING TABLE
0274 ; --------------------------------------------------------------------------------------
0274 000e       |    |		.STRTAB	0x000e->0x027b							; "Rcf_Imports.Add_Import"
0275 0022       | "  |		.STRTAB	0x0022->0x0286							; "Rcf_Imports.Remove_Import"
0276 0039       | 9  |		.STRTAB	0x0039->0x0292							; "Rcf_Imports.Get_Imports"
0277 004e       | N  |		.STRTAB	0x004e->0x029e							; "Rcf_Imports.Get_Remote_Imports"
0278 006a       | j  |		.STRTAB	0x006a->0x02ad							; "Rcf_Imports.Has_Static_Imports"
0279 0086       |    |		.STRTAB	0x0086->0x02bc							; "Rcf_Imports.Has_State_File"
027a 009e       |    |		.STREND 0x009e->0x02c9
027b 5263 665f  |Rcf_|		.STRTAB_STRINGS
02c9 0000 0000  |    |		.BLANK	0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x4f94,0x0000,0x0001,0x0000
02d6 0000 0000  |    |		.BLANK	0000[0x2a]
0300 000f a404  |    |		.XXX[0x6]
0302 0000 09d8  |    |
0304 09bc 3404  |  4 |
0306 0000 0000  |    |		.BLANK	0000[0x8]
030e 0036 4494  | 6D |		.XXX[0x2]
0310 0000 0000  |    |		.BLANK	0000[0x7]
0317 0007 002d  |   -|		.XXX[0x5]
0319 7404 0000  |t   |
031b 09c4       |    |
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 000f e804  |    |		.XXX[0x4]
0322 0000 0158  |   X|
0324 0000 0000  |    |		.BLANK	0000[0x16]
033a 0004 00a0  |    |		.XXX[0xc]
033c 0000 0000  |    |
033e 0000 0800  |    |
0340 0000 4400  |  D |
0342 0000 0020  |    |
0344 0000 0140  |   @|
0346 0000 0000  |    |		.BLANK	0000[0x2e]
0374 8014 0000  |    |		.XXX[0xb]
0376 0000 0000  |    |
0378 0100 0000  |    |
037a 0880 0000  |    |
037c 0004 0000  |    |
037e 0028       | (  |
037f 0000 0000  |    |		.BLANK	0000[0x2e]
03ad 1002 8000  |    |		.XXX[0xb]
03af 0000 0000  |    |
03b1 0020 0000  |    |
03b3 0110 0000  |    |
03b5 0000 8000  |    |
03b7 0005       |    |
03b8 0000 0000  |    |		.BLANK	0000[0x34]
03ec 000c 3413  |  4 |		.XXX[0x14]
03ee 0000 2006  |    |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 000c 3413  |  4 |
03f6 0000 3a60  |  :`|
03f8 ff91 0013  |    |
03fa 1000 0001  |    |
03fc 0000 0000  |    |
03fe 0000 0003  |    |