|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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 02f0 | | .CONST 0x02f0 ; 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 0059 | Y | .CONST 0x0059 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 4803 |H | Short_Literal 0x3
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 0093 | | Declare_Subprogram INIT_0090,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 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0028 c21d | | Store 0x1,0x1d
0029 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
002b c21e | | Store 0x1,0x1e
002c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002e c21f | | Store 0x1,0x1f
002f 4900 |I | Short_Literal 0x100
0030 e002 | | Load 0x0,0x2
0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0032 1c07 | | Execute_Immediate Run_Utility,0x7
0033 c219 | | Store 0x1,0x19
0034 00e3 | | Load_Encached Natural_Cache
0035 0266 | f | Execute Discrete,Bounds
0036 e219 | | Load 0x1,0x19
0037 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0039 4801 |H | Short_Literal 0x1
003a 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
003b c21a | | Store 0x1,0x1a
003c 4801 |H | Short_Literal 0x1
003d 4880 |H | Short_Literal 0x80
003e e21a | | Load 0x1,0x1a
003f 035b | [ | Declare_Type Array,Constrained
0040 00e3 | | Load_Encached Natural_Cache
0041 00e3 | | Load_Encached Natural_Cache
0042 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
0044 e20d | | Load 0x1,0xd
0045 0326 | & | Complete_Type Record,By_Defining
0046 00bf | | Action Accept_Activation
0047 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0048 00c7 | | Action Elaborate_Subprogram
0049 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004a 00c7 | | Action Elaborate_Subprogram
004b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004c 00c7 | | Action Elaborate_Subprogram
004d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004e 00c7 | | Action Elaborate_Subprogram
004f 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0051 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
0053 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0054 00c7 | | Action Elaborate_Subprogram
0055 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0056 00c7 | | Action Elaborate_Subprogram
0057 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0058 00c7 | | Action Elaborate_Subprogram
0059 BODY_0008:
0059 00bc | | Action Signal_Activated
005a 00bb | | Action Signal_Completion
005b 0000 0000 | | .BLANK 0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0065 0a01 | | Execute_Immediate Plus,0x1
0066 00db | | Load_Top At_Offset_3
0067 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0068 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4801 |H | Short_Literal 0x1
0074 00db | | Load_Top At_Offset_3
0075 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
007c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007d 00db | | Load_Top At_Offset_3
007e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007f 027d | } | Execute Discrete,Greater
0080 6802 |h | Jump_Zero 0x83
0081 e212 | | Load 0x1,0x12
0082 0257 | W | Execute Discrete,Raise
0083 00da | | Load_Top At_Offset_2
0084 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0085 00db | | Load_Top At_Offset_3
0086 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0087 01d5 | | Execute Vector,Field_Reference
0088 e002 | | Load 0x0,0x2
0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008b 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
0094 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0095 00db | | Load_Top At_Offset_3
0096 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0097 027d | } | Execute Discrete,Greater
0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ad | | .CONST 0x00ad ; Address of begin
00a1 00c5 | | .CONST 0x00c5 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e003 | | Load 0x0,0x3
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 e004 | | Load 0x0,0x4
00a6 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
00a7 0322 | " | Declare_Variable Record
00a8 e5fd | | Load 0x2,-0x3
00a9 e004 | | Load 0x0,0x4
00aa 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00ab 00d9 | | Load_Top At_Offset_1
00ac 017d | } | Execute Record,Structure_Write
00ad BODY_00a0:
00ad e5fc | | Load 0x2,-0x4
00ae 0092 02bc | | Action Push_String_Extended,0x2bc ; "Rcf_Imports.Get_Imports"
00b0 e005 | | Load 0x0,0x5
00b1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b2 00d9 | | Load_Top At_Offset_1
00b3 e5fb | | Load 0x2,-0x5
00b4 0120 | | Execute Any,Is_Value
00b5 6804 |h | Jump_Zero 0xba
00b6 e006 | | Load 0x0,0x6
00b7 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b9 7801 |x | Jump 0xbb
00ba e5fb | | Load 0x2,-0x5
00bb e5fc | | Load 0x2,-0x4
00bc 00db | | Load_Top At_Offset_3
00bd e5fe | | Load 0x2,-0x2
00be e5ff | | Load 0x2,-0x1
00bf 8223 | # | Call 0x1,0x23
00c0 c5fb | | Store 0x2,-0x5
00c1 005a | Z | Store_Top Discrete,At_Offset_2
00c2 00d9 | | Load_Top At_Offset_1
00c3 a5fa | | Store_Unchecked 0x2,-0x6
00c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00c5 TRAP_00a0:
00c5 e003 | | Load 0x0,0x3
00c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c7 010f | | Execute Exception,Equal
00c8 6804 |h | Jump_Zero 0xcd
00c9 e003 | | Load 0x0,0x3
00ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cb a5fa | | Store_Unchecked 0x2,-0x6
00cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00cd 0092 02bc | | Action Push_String_Extended,0x2bc ; "Rcf_Imports.Get_Imports"
00cf e005 | | Load 0x0,0x5
00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d1 a5fa | | Store_Unchecked 0x2,-0x6
00d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00ee | | .CONST 0x00ee ; Address of begin
00d9 013e | > | .CONST 0x013e ; Address of exception handler
00da 0005 | | .CONST 0x0005 ; Number of locals
00db INIT_00d8:
00db e006 | | Load 0x0,0x6
00dc 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00de 02c7 | | Declare_Variable Any
00df 00d8 | | Load_Top At_Offset_0
00e0 1c00 | | Execute_Immediate Run_Utility,0x0
00e1 e003 | | Load 0x0,0x3
00e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e4 e004 | | Load 0x0,0x4
00e5 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
00e6 0322 | " | Declare_Variable Record
00e7 e5fd | | Load 0x2,-0x3
00e8 e004 | | Load 0x0,0x4
00e9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00ea 00d9 | | Load_Top At_Offset_1
00eb 017d | } | Execute Record,Structure_Write
00ec 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
00ee BODY_00d8:
00ee e003 | | Load 0x0,0x3
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 e402 | | Load 0x2,0x2
00f1 0120 | | Execute Any,Is_Value
00f2 6804 |h | Jump_Zero 0xf7
00f3 e006 | | Load 0x0,0x6
00f4 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00f5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00f6 7801 |x | Jump 0xf8
00f7 e402 | | Load 0x2,0x2
00f8 e5fc | | Load 0x2,-0x4
00f9 e5fd | | Load 0x2,-0x3
00fa e5fe | | Load 0x2,-0x2
00fb e5ff | | Load 0x2,-0x1
00fc 821d | | Call 0x1,0x1d
00fd c402 | | Store 0x2,0x2
00fe 005b | [ | Store_Top Discrete,At_Offset_3
00ff 4800 |H | Short_Literal 0x0
0100 00db | | Load_Top At_Offset_3
0101 e003 | | Load 0x0,0x3
0102 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0103 7003 |p | Jump_Nonzero 0x107
0104 00da | | Load_Top At_Offset_2
0105 a5fa | | Store_Unchecked 0x2,-0x6
0106 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0107 00cf | | Action Mark_Auxiliary
0108 7824 |x$ | Jump 0x12d
0109 8405 | | Call 0x2,0x5
010a e5fb | | Load 0x2,-0x5
010b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010c 0a01 | | Execute_Immediate Plus,0x1
010d e5fb | | Load 0x2,-0x5
010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
010f e5fb | | Load 0x2,-0x5
0110 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0111 0c81 | | Execute_Immediate Greater_Equal,-0x7f
0112 6814 |h | Jump_Zero 0x127
0113 4801 |H | Short_Literal 0x1
0114 4801 |H | Short_Literal 0x1
0115 e007 | | Load 0x0,0x7
0116 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0117 035b | [ | Declare_Type Array,Constrained
0118 0337 | 7 | Declare_Variable Array
0119 e5ff | | Load 0x2,-0x1
011a e007 | | Load 0x0,0x7
011b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011c e007 | | Load 0x0,0x7
011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011e 0119 | | Execute Any,Check_In_Formal_Type
011f 4801 |H | Short_Literal 0x1
0120 00da | | Load_Top At_Offset_2
0121 01d6 | | Execute Vector,Field_Write
0122 6029 |`) | Indirect_Literal Discrete,0x14c,{0x00000000, 0x0000815f}
0123 e003 | | Load 0x0,0x3
0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0125 a5fa | | Store_Unchecked 0x2,-0x6
0126 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0127 e402 | | Load 0x2,0x2
0128 e006 | | Load 0x0,0x6
0129 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
012a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012b c402 | | Store 0x2,0x2
012c 00c9 | | Action Pop_Auxiliary_Loop
012d e402 | | Load 0x2,0x2
012e e006 | | Load 0x0,0x6
012f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0130 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0131 6fd7 |o | Jump_Zero 0x109
0132 00ce | | Action Pop_Auxiliary
0133 e5fb | | Load 0x2,-0x5
0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0135 0aff | | Execute_Immediate Plus,-0x1
0136 e5fb | | Load 0x2,-0x5
0137 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0138 4801 |H | Short_Literal 0x1
0139 e5fb | | Load 0x2,-0x5
013a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013b 00da | | Load_Top At_Offset_2
013c a5fa | | Store_Unchecked 0x2,-0x6
013d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
013e TRAP_00d8:
013e e003 | | Load 0x0,0x3
013f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0140 010f | | Execute Exception,Equal
0141 6804 |h | Jump_Zero 0x146
0142 e003 | | Load 0x0,0x3
0143 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0144 a5fa | | Store_Unchecked 0x2,-0x6
0145 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0146 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Imports.Get_Remote_Imports"
0148 e005 | | Load 0x0,0x5
0149 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014a a5fa | | Store_Unchecked 0x2,-0x6
014b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
014c 0000 0000 | | .LITERAL {0x00000000, 0x0000815f}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 015d | ] | .CONST 0x015d ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e5fd | | Load 0x2,-0x3
0154 0092 02be | | Action Push_String_Extended,0x2be ; "Rcf_Imports.Has_Static_Imports"
0156 e005 | | Load 0x0,0x5
0157 180e | | Execute Package,Field_Execute,Field_Number 0xe
0158 4801 |H | Short_Literal 0x1
0159 a5fc | | Store_Unchecked 0x2,-0x4
015a 4800 |H | Short_Literal 0x0
015b a5fb | | Store_Unchecked 0x2,-0x5
015c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
015d TRAP_0150:
015d e003 | | Load 0x0,0x3
015e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
015f 010f | | Execute Exception,Equal
0160 6806 |h | Jump_Zero 0x167
0161 e003 | | Load 0x0,0x3
0162 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0163 a5fb | | Store_Unchecked 0x2,-0x5
0164 4800 |H | Short_Literal 0x0
0165 a5fc | | Store_Unchecked 0x2,-0x4
0166 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0167 0092 02be | | Action Push_String_Extended,0x2be ; "Rcf_Imports.Has_Static_Imports"
0169 e005 | | Load 0x0,0x5
016a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
016b a5fb | | Store_Unchecked 0x2,-0x5
016c 4800 |H | Short_Literal 0x0
016d a5fc | | Store_Unchecked 0x2,-0x4
016e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4605 |F | Jump_Case 0x6
0174 7804 |x | Jump 0x179 ; case 0x0
0175 7814 |x | Jump 0x18a ; case 0x1
0176 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0177 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0178 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0179 00da | | Load_Top At_Offset_2 ; case 0x5
017a 01dc | | Execute Vector,Last
017b 00db | | Load_Top At_Offset_3
017c 01dd | | Execute Vector,First
017d 0263 | c | Execute Discrete,Above_Bound
017e 700a |p | Jump_Nonzero 0x189
017f 00d8 | | Load_Top At_Offset_0
0180 e5ff | | Load 0x2,-0x1
0181 01d5 | | Execute Vector,Field_Reference
0182 0125 | % | Execute Any,Set_Constraint
0183 00d8 | | Load_Top At_Offset_0
0184 e5ff | | Load 0x2,-0x1
0185 01d5 | | Execute Vector,Field_Reference
0186 1c00 | | Execute_Immediate Run_Utility,0x0
0187 0a01 | | Execute_Immediate Plus,0x1
0188 7ff4 | | Jump 0x17d
0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
018a 00da | | Load_Top At_Offset_2
018b 01dc | | Execute Vector,Last
018c 00db | | Load_Top At_Offset_3
018d 01dd | | Execute Vector,First
018e 0263 | c | Execute Discrete,Above_Bound
018f 700a |p | Jump_Nonzero 0x19a
0190 00d8 | | Load_Top At_Offset_0
0191 e5ff | | Load 0x2,-0x1
0192 01d5 | | Execute Vector,Field_Reference
0193 0125 | % | Execute Any,Set_Constraint
0194 00d8 | | Load_Top At_Offset_0
0195 e5ff | | Load 0x2,-0x1
0196 01d7 | | Execute Vector,Field_Read
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 0a01 | | Execute_Immediate Plus,0x1
0199 7ff4 | | Jump 0x18e
019a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
019b 0000 0000 | | .BLANK 0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01aa | | .CONST 0x01aa ; Address of begin
01a1 01b1 | | .CONST 0x01b1 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 0092 02bf | | Action Push_String_Extended,0x2bf ; "<QUIET>"
01a5 4800 |H | Short_Literal 0x0
01a6 e5fe | | Load 0x2,-0x2
01a7 e5ff | | Load 0x2,-0x1
01a8 e008 | | Load 0x0,0x8
01a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01aa BODY_01a0:
01aa e5fd | | Load 0x2,-0x3
01ab 4801 |H | Short_Literal 0x1
01ac 00da | | Load_Top At_Offset_2
01ad e009 | | Load 0x0,0x9
01ae 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01af c5fc | | Store 0x2,-0x4
01b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b1 TRAP_01a0:
01b1 0007 | | Action Break_Optional
01b2 e006 | | Load 0x0,0x6
01b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b5 c5fc | | Store 0x2,-0x4
01b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01d7 | | .CONST 0x01d7 ; Address of begin
01b9 0230 | 0 | .CONST 0x0230 ; Address of exception handler
01ba 0007 | | .CONST 0x0007 ; Number of locals
01bb INIT_01b8:
01bb e003 | | Load 0x0,0x3
01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01be e006 | | Load 0x0,0x6
01bf 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c1 02c7 | | Declare_Variable Any
01c2 00d8 | | Load_Top At_Offset_0
01c3 1c00 | | Execute_Immediate Run_Utility,0x0
01c4 e006 | | Load 0x0,0x6
01c5 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c7 02c7 | | Declare_Variable Any
01c8 00d8 | | Load_Top At_Offset_0
01c9 1c00 | | Execute_Immediate Run_Utility,0x0
01ca e006 | | Load 0x0,0x6
01cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cc 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01cd 02c7 | | Declare_Variable Any
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e006 | | Load 0x0,0x6
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 e006 | | Load 0x0,0x6
01d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d4 02c7 | | Declare_Variable Any
01d5 00d8 | | Load_Top At_Offset_0
01d6 1c00 | | Execute_Immediate Run_Utility,0x0
01d7 BODY_01b8:
01d7 4800 |H | Short_Literal 0x0
01d8 a5fa | | Store_Unchecked 0x2,-0x6
01d9 e403 | | Load 0x2,0x3
01da 0120 | | Execute Any,Is_Value
01db 6804 |h | Jump_Zero 0x1e0
01dc e006 | | Load 0x0,0x6
01dd 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01df 7801 |x | Jump 0x1e1
01e0 e403 | | Load 0x2,0x3
01e1 e00a | | Load 0x0,0xa
01e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e3 e00b | | Load 0x0,0xb
01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e5 e006 | | Load 0x0,0x6
01e6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01e7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e8 c403 | | Store 0x2,0x3
01e9 00da | | Load_Top At_Offset_2
01ea 0120 | | Execute Any,Is_Value
01eb 6804 |h | Jump_Zero 0x1f0
01ec e006 | | Load 0x0,0x6
01ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ee 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01ef 7801 |x | Jump 0x1f1
01f0 00da | | Load_Top At_Offset_2
01f1 e5fc | | Load 0x2,-0x4
01f2 e5fe | | Load 0x2,-0x2
01f3 e5ff | | Load 0x2,-0x1
01f4 e009 | | Load 0x0,0x9
01f5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f6 8222 | " | Call 0x1,0x22
01f7 c405 | | Store 0x2,0x5
01f8 00cf | | Action Mark_Auxiliary
01f9 781c |x | Jump 0x216
01fa e006 | | Load 0x0,0x6
01fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fc 00da | | Load_Top At_Offset_2
01fd 0120 | | Execute Any,Is_Value
01fe 6803 |h | Jump_Zero 0x202
01ff e006 | | Load 0x0,0x6
0200 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0201 7801 |x | Jump 0x203
0202 00da | | Load_Top At_Offset_2
0203 e405 | | Load 0x2,0x5
0204 e006 | | Load 0x0,0x6
0205 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0206 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0207 c407 | | Store 0x2,0x7
0208 005b | [ | Store_Top Discrete,At_Offset_3
0209 00da | | Load_Top At_Offset_2
020a 7005 |p | Jump_Nonzero 0x210
020b 00d9 | | Load_Top At_Offset_1
020c e403 | | Load 0x2,0x3
020d e006 | | Load 0x0,0x6
020e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
020f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0210 00db | | Load_Top At_Offset_3
0211 e006 | | Load 0x0,0x6
0212 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0213 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0214 c405 | | Store 0x2,0x5
0215 00c9 | | Action Pop_Auxiliary_Loop
0216 00db | | Load_Top At_Offset_3
0217 e006 | | Load 0x0,0x6
0218 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0219 181e | | Execute Package,Field_Execute,Field_Number 0x1e
021a 6fdf |o | Jump_Zero 0x1fa
021b 00ce | | Action Pop_Auxiliary
021c 00db | | Load_Top At_Offset_3
021d 0120 | | Execute Any,Is_Value
021e 6804 |h | Jump_Zero 0x223
021f e006 | | Load 0x0,0x6
0220 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0221 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0222 7801 |x | Jump 0x224
0223 00db | | Load_Top At_Offset_3
0224 e00a | | Load 0x0,0xa
0225 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0226 e00b | | Load 0x0,0xb
0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0228 e403 | | Load 0x2,0x3
0229 e006 | | Load 0x0,0x6
022a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
022b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
022c c404 | | Store 0x2,0x4
022d 00db | | Load_Top At_Offset_3
022e c5fb | | Store 0x2,-0x5
022f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0230 TRAP_01b8:
0230 0007 | | Action Break_Optional
0231 e5fc | | Load 0x2,-0x4
0232 4801 |H | Short_Literal 0x1
0233 4801 |H | Short_Literal 0x1
0234 e007 | | Load 0x0,0x7
0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0236 035b | [ | Declare_Type Array,Constrained
0237 0337 | 7 | Declare_Variable Array
0238 e5ff | | Load 0x2,-0x1
0239 e009 | | Load 0x0,0x9
023a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023b e007 | | Load 0x0,0x7
023c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023d e007 | | Load 0x0,0x7
023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023f 0119 | | Execute Any,Check_In_Formal_Type
0240 4801 |H | Short_Literal 0x1
0241 00da | | Load_Top At_Offset_2
0242 01d6 | | Execute Vector,Field_Write
0243 6018 |` | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00008144}
0244 e003 | | Load 0x0,0x3
0245 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0246 e5fb | | Load 0x2,-0x5
0247 0120 | | Execute Any,Is_Value
0248 6804 |h | Jump_Zero 0x24d
0249 e006 | | Load 0x0,0x6
024a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
024b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
024c 7801 |x | Jump 0x24e
024d e5fb | | Load 0x2,-0x5
024e e00a | | Load 0x0,0xa
024f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0250 e00b | | Load 0x0,0xb
0251 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0252 e006 | | Load 0x0,0x6
0253 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0254 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0255 e006 | | Load 0x0,0x6
0256 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0257 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0258 c5fb | | Store 0x2,-0x5
0259 4505 |E | Exit_Suprogram New_Top_Offset 0x5
025a 0000 0000 | | .XXX[0x2]
025c 0000 0000 | | .LITERAL {0x00000000, 0x00008144}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 027c | | | .CONST 0x027c ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0005 | | .CONST 0x0005 ; Number of locals
0263 INIT_0260:
0263 e006 | | Load 0x0,0x6
0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0265 02c7 | | Declare_Variable Any
0266 e402 | | Load 0x2,0x2
0267 e006 | | Load 0x0,0x6
0268 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0269 181a | | Execute Package,Field_Execute,Field_Number 0x1a
026a a602 | | Store_Unchecked 0x3,0x2
026b e5fc | | Load 0x2,-0x4
026c e5fd | | Load 0x2,-0x3
026d 00da | | Load_Top At_Offset_2
026e e00c | | Load 0x0,0xc
026f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0270 e5fc | | Load 0x2,-0x4
0271 e5fd | | Load 0x2,-0x3
0272 00db | | Load_Top At_Offset_3
0273 e00c | | Load 0x0,0xc
0274 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0275 00d9 | | Load_Top At_Offset_1
0276 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0277 00d9 | | Load_Top At_Offset_1
0278 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0279 e404 | | Load 0x2,0x4
027a e004 | | Load 0x0,0x4
027b 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
027c BODY_0260:
027c e5fb | | Load 0x2,-0x5
027d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027e e5fb | | Load 0x2,-0x5
027f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0280 01d5 | | Execute Vector,Field_Reference
0281 00d8 | | Load_Top At_Offset_0
0282 00da | | Load_Top At_Offset_2
0283 e002 | | Load 0x0,0x2
0284 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0285 e002 | | Load 0x0,0x2
0286 180f | | Execute Package,Field_Execute,Field_Number 0xf
0287 00d2 | | Pop_Control Pop_Count_2
0288 4800 |H | Short_Literal 0x0
0289 00da | | Load_Top At_Offset_2
028a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
028b e003 | | Load 0x0,0x3
028c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
028d 7004 |p | Jump_Nonzero 0x292
028e 00d9 | | Load_Top At_Offset_1
028f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0290 a403 | | Store_Unchecked 0x2,0x3
0291 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0292 4800 |H | Short_Literal 0x0
0293 00db | | Load_Top At_Offset_3
0294 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0295 e003 | | Load 0x0,0x3
0296 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0297 7003 |p | Jump_Nonzero 0x29b
0298 00da | | Load_Top At_Offset_2
0299 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
029a a403 | | Store_Unchecked 0x2,0x3
029b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4608 |F | Jump_Case 0x9
02a4 7808 |x | Jump 0x2ad ; case 0x0
02a5 7811 |x | Jump 0x2b7 ; case 0x1
02a6 7814 |x | Jump 0x2bb ; case 0x2
02a7 7813 |x | Jump 0x2bb ; case 0x3
02a8 7812 |x | Jump 0x2bb ; case 0x4
02a9 7811 |x | Jump 0x2bb ; case 0x5
02aa 7810 |x | Jump 0x2bb ; case 0x6
02ab 780f |x | Jump 0x2bb ; case 0x7
02ac 780e |x | Jump 0x2bb ; case 0x8
02ad 00da | | Load_Top At_Offset_2
02ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02af 1c00 | | Execute_Immediate Run_Utility,0x0
02b0 4801 |H | Short_Literal 0x1
02b1 00db | | Load_Top At_Offset_3
02b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b3 4800 |H | Short_Literal 0x0
02b4 00db | | Load_Top At_Offset_3
02b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02b7 00da | | Load_Top At_Offset_2
02b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02b9 1c01 | | Execute_Immediate Run_Utility,0x1
02ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02bb 0869 | i | Execute_Immediate Raise,0x69
02bc ; --------------------------------------------------------------------------------------
02bc ; STRING TABLE
02bc ; --------------------------------------------------------------------------------------
02bc 000a | | .STRTAB 0x000a->0x02c1 ; "Rcf_Imports.Get_Imports"
02bd 001f | | .STRTAB 0x001f->0x02cc ; "Rcf_Imports.Get_Remote_Imports"
02be 003b | ; | .STRTAB 0x003b->0x02db ; "Rcf_Imports.Has_Static_Imports"
02bf 0057 | W | .STRTAB 0x0057->0x02ea ; "<QUIET>"
02c0 005c | \ | .STREND 0x005c->0x02ee
02c1 5263 665f |Rcf_| .STRTAB_STRINGS
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug Table
02f0 ; --------------------------------------------------------------------------------------
02f0 0004 000e | | .DEBUG4 0x0004,0x000e,0xbe98,0x0000,0x0001,0x0000
02f6 0000 0000 | | .BLANK 0000[0xb]
0301 0200 0000 | | .XXX[0x3]
0303 0004 | |
0304 0000 0000 | | .BLANK 0000[0x5]
0309 0090 001d | | .XXX[0x8]
030b 8d80 0000 | |
030d 003b 0000 | ; |
030f 0000 4000 | @ |
0311 0000 0000 | | .BLANK 0000[0x4]
0315 0002 1555 | U| .XXX[0x83]
0317 3455 2532 |4U%2|
0319 e475 3544 | u5D|
031b 14c5 4455 | DU|
031d 22e4 1444 |" D|
031f 12e5 4455 | DU|
0321 3543 1800 |5C |
0323 0000 9000 | |
0325 0000 2000 | |
0327 0000 2000 | |
0329 00fd 0000 | |
032b 0003 242a | $*|
032d aa68 aa4a | h J|
032f 65c8 ea6a |e j|
0331 8829 8a88 | ) |
0333 aa45 c828 | E (|
0335 8825 ca88 | % |
0337 aa6a 8620 | j |
0339 0000 0020 | |
033b 0000 0629 | )|
033d 84ec adce | |
033f 8e4c aca4 | L |
0341 0c6d eeae | m |
0343 4c2d ce8c |L- |
0345 a40c ae6e | n|
0347 8407 4404 | D |
0349 2aaa 68aa |* h |
034b 4a65 c8ea |Je |
034d 6a88 298a |j ) |
034f 88aa 45c8 | E |
0351 2888 25ca |( % |
0353 88aa 6a86 | j |
0355 2000 0000 | |
0357 2000 0006 | |
0359 4984 ecad |I |
035b ce8e 4cac | L |
035d a40c 6dee | m |
035f ae4c 2dce | L- |
0361 8ca4 0cae | |
0363 6e84 0744 |n D|
0365 042a aa68 | * h|
0367 aa4a 65c8 | Je |
0369 ea6a 8829 | j )|
036b 8a88 aa45 | E|
036d c828 8825 | ( %|
036f ca88 aa6a | j|
0371 8621 4000 | !@ |
0373 0000 2000 | |
0375 0004 2984 | ) |
0377 ec2d cc2d | - -|
0379 8f2e 6ca4 | .l |
037b 0e6f 2dce | o- |
037d 8c2f 0d2e | / .|
037f 2eac a40c |. |
0381 240e 4cae |$ L |
0383 ae6e 6d24 | nm$|
0385 0424 2420 | $$ |
0387 0000 0020 | |
0389 0000 010a | |
038b 8d2d cf2a | - *|
038d 8c2d 8d60 | - `|
038f 0000 0020 | |
0391 0000 010c | |
0393 2e4d cd2c |.M ,|
0395 6c27 460f |l'F |
0397 f000 | |
0398 0000 0000 | | .BLANK 0000[0x1d]
03b5 0001 5800 | X | .XXX[0x7]
03b7 0008 1400 | |
03b9 0000 0000 | |
03bb 0100 | |
03bc 0000 0000 | | .BLANK 0000[0x13]
03cf f000 | | .XXX[0x1]
03d0 0000 0000 | | .BLANK 0000[0x5]
03d5 0004 | | .XXX[0x1]
03d6 0000 0000 | | .BLANK 0000[0x13]
03e9 0001 0a8e | | .XXX[0x17]
03eb 4c2d ce6d |L- m|
03ed ad2e 8000 | . |
03ef 0000 0000 | |
03f1 0003 0a8e | |
03f3 4c2d ce6e |L- n|
03f5 0dee 4e84 | N |
03f7 0e0c 2c6d | ,m|
03f9 6c2c eca4 |l, |
03fb 0cae 4e4d | NM|
03fd ee47 4000 | G@ |
03ff 0000 | |