|
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: 3072 (0xc00) 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 0418 | | .CONST 0x0418 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0010 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 0012 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0014 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0065 | e | .CONST 0x0065 ; Address of begin 0021 01a3 | | .CONST 0x01a3 ; Address of exception handler 0022 0011 | | .CONST 0x0011 ; Number of locals 0023 INIT_0020: 0023 e5fb | | Load 0x2,-0x5 0024 00db | | Load_Top At_Offset_3 0025 e5fc | | Load 0x2,-0x4 0026 e001 | | Load 0x0,0x1 0027 18ba | | Execute Package,Field_Execute,Field_Number 0xba 0028 e5fb | | Load 0x2,-0x5 0029 e5ff | | Load 0x2,-0x1 002a e5fc | | Load 0x2,-0x4 002b e001 | | Load 0x0,0x1 002c 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 002d e002 | | Load 0x0,0x2 002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002f 02c7 | | Declare_Variable Any 0030 e5fb | | Load 0x2,-0x5 0031 4801 |H | Short_Literal 0x1 0032 e5ff | | Load 0x2,-0x1 0033 e003 | | Load 0x0,0x3 0034 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0035 a404 | | Store_Unchecked 0x2,0x4 0036 e5fb | | Load 0x2,-0x5 0037 e5fc | | Load 0x2,-0x4 0038 e001 | | Load 0x0,0x1 0039 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 003a 00da | | Load_Top At_Offset_2 003b e004 | | Load 0x0,0x4 003c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 003d 00d8 | | Load_Top At_Offset_0 003e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 003f 0007 | | Action Break_Optional 0040 e005 | | Load 0x0,0x5 0041 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0042 00e1 | | Load_Encached Boolean_Cache 0043 00e1 | | Load_Encached Boolean_Cache 0044 e006 | | Load 0x0,0x6 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0047 e006 | | Load 0x0,0x6 0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0049 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 004a e002 | | Load 0x0,0x2 004b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004c 02ff | | Declare_Variable Variant_Record 004d 00d8 | | Load_Top At_Offset_0 004e 1c00 | | Execute_Immediate Run_Utility,0x0 004f e5ff | | Load 0x2,-0x1 0050 e002 | | Load 0x0,0x2 0051 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0052 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0053 e5fc | | Load 0x2,-0x4 0054 e001 | | Load 0x0,0x1 0055 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2 0056 00e1 | | Load_Encached Boolean_Cache 0057 e002 | | Load 0x0,0x2 0058 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0059 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005a 02c7 | | Declare_Variable Any 005b 00d8 | | Load_Top At_Offset_0 005c 1c00 | | Execute_Immediate Run_Utility,0x0 005d e002 | | Load 0x0,0x2 005e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0060 02c7 | | Declare_Variable Any 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 00e1 | | Load_Encached Boolean_Cache 0064 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0065 BODY_0020: 0065 4800 |H | Short_Literal 0x0 0066 e405 | | Load 0x2,0x5 0067 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0068 e006 | | Load 0x0,0x6 0069 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 006a 7006 |p | Jump_Nonzero 0x71 006b e5fb | | Load 0x2,-0x5 006c 4806 |H | Short_Literal 0x6 006d e405 | | Load 0x2,0x5 006e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 006f e006 | | Load 0x0,0x6 0070 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0071 e5fb | | Load 0x2,-0x5 0072 e5ff | | Load 0x2,-0x1 0073 8210 | | Call 0x1,0x10 0074 e40c | | Load 0x2,0xc 0075 016d | m | Execute Variant_Record,Structure_Write 0076 e5fd | | Load 0x2,-0x3 0077 680a |h | Jump_Zero 0x82 0078 e40c | | Load 0x2,0xc 0079 e5fc | | Load 0x2,-0x4 007a e007 | | Load 0x0,0x7 007b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 007c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 007d 00d8 | | Load_Top At_Offset_0 007e 6803 |h | Jump_Zero 0x82 007f e40a | | Load 0x2,0xa 0080 a5fa | | Store_Unchecked 0x2,-0x6 0081 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0082 e403 | | Load 0x2,0x3 0083 01db | | Execute Vector,Length 0084 7024 |p$ | Jump_Nonzero 0xa9 0085 e5fb | | Load 0x2,-0x5 0086 00d8 | | Load_Top At_Offset_0 0087 4800 |H | Short_Literal 0x0 0088 e5ff | | Load 0x2,-0x1 0089 e003 | | Load 0x0,0x3 008a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 008b e003 | | Load 0x0,0x3 008c 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 008d 701b |p | Jump_Nonzero 0xa9 008e e008 | | Load 0x0,0x8 008f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0090 4801 |H | Short_Literal 0x1 0091 4801 |H | Short_Literal 0x1 0092 e009 | | Load 0x0,0x9 0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0094 035b | [ | Declare_Type Array,Constrained 0095 0337 | 7 | Declare_Variable Array 0096 00ea | | Load_Encached Null_String_Cache 0097 e009 | | Load 0x0,0x9 0098 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0099 e009 | | Load 0x0,0x9 009a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009b 0119 | | Execute Any,Check_In_Formal_Type 009c 4801 |H | Short_Literal 0x1 009d 00da | | Load_Top At_Offset_2 009e 01d6 | | Execute Vector,Field_Write 009f 61bc |a | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00008210} 00a0 e006 | | Load 0x0,0x6 00a1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00a2 e009 | | Load 0x0,0x9 00a3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a4 61b7 |a | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00008210} 00a5 e006 | | Load 0x0,0x6 00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a7 a5fa | | Store_Unchecked 0x2,-0x6 00a8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a9 e5fc | | Load 0x2,-0x4 00aa e001 | | Load 0x0,0x1 00ab 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00ac e5fe | | Load 0x2,-0x2 00ad e5ff | | Load 0x2,-0x1 00ae e003 | | Load 0x0,0x3 00af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b0 e00a | | Load 0x0,0xa 00b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b2 a40e | | Store_Unchecked 0x2,0xe 00b3 00db | | Load_Top At_Offset_3 00b4 7022 |p" | Jump_Nonzero 0xd7 00b5 4801 |H | Short_Literal 0x1 00b6 4802 |H | Short_Literal 0x2 00b7 e009 | | Load 0x0,0x9 00b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b9 035b | [ | Declare_Type Array,Constrained 00ba 0337 | 7 | Declare_Variable Array 00bb e009 | | Load 0x0,0x9 00bc 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00bd e009 | | Load 0x0,0x9 00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bf 0119 | | Execute Any,Check_In_Formal_Type 00c0 4801 |H | Short_Literal 0x1 00c1 00da | | Load_Top At_Offset_2 00c2 01d6 | | Execute Vector,Field_Write 00c3 e5ff | | Load 0x2,-0x1 00c4 e003 | | Load 0x0,0x3 00c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00c6 e009 | | Load 0x0,0x9 00c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c8 0119 | | Execute Any,Check_In_Formal_Type 00c9 4802 |H | Short_Literal 0x2 00ca 00da | | Load_Top At_Offset_2 00cb 01d6 | | Execute Vector,Field_Write 00cc 618b |a | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126} 00cd e006 | | Load 0x0,0x6 00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cf a40a | | Store_Unchecked 0x2,0xa 00d0 e5fb | | Load 0x2,-0x5 00d1 e40a | | Load 0x2,0xa 00d2 e006 | | Load 0x0,0x6 00d3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00d4 e40a | | Load 0x2,0xa 00d5 a5fa | | Store_Unchecked 0x2,-0x6 00d6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00d7 4800 |H | Short_Literal 0x0 00d8 a5fa | | Store_Unchecked 0x2,-0x6 00d9 e40a | | Load 0x2,0xa 00da 00da | | Load_Top At_Offset_2 00db e40f | | Load 0x2,0xf 00dc e5fb | | Load 0x2,-0x5 00dd e5ff | | Load 0x2,-0x1 00de 820e | | Call 0x1,0xe 00df c40f | | Store 0x2,0xf 00e0 c410 | | Store 0x2,0x10 00e1 c40a | | Store 0x2,0xa 00e2 4800 |H | Short_Literal 0x0 00e3 e40a | | Load 0x2,0xa 00e4 e006 | | Load 0x0,0x6 00e5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00e6 7003 |p | Jump_Nonzero 0xea 00e7 e00b | | Load 0x0,0xb 00e8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00e9 0257 | W | Execute Discrete,Raise 00ea 4800 |H | Short_Literal 0x0 00eb e40c | | Load 0x2,0xc 00ec e00b | | Load 0x0,0xb 00ed 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ee e00b | | Load 0x0,0xb 00ef 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00f0 a408 | | Store_Unchecked 0x2,0x8 00f1 4800 |H | Short_Literal 0x0 00f2 e40c | | Load 0x2,0xc 00f3 e00b | | Load 0x0,0xb 00f4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 00f5 e00b | | Load 0x0,0xb 00f6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00f7 a409 | | Store_Unchecked 0x2,0x9 00f8 e408 | | Load 0x2,0x8 00f9 6821 |h! | Jump_Zero 0x11b 00fa e5fb | | Load 0x2,-0x5 00fb 4801 |H | Short_Literal 0x1 00fc 4802 |H | Short_Literal 0x2 00fd e009 | | Load 0x0,0x9 00fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ff 035b | [ | Declare_Type Array,Constrained 0100 0337 | 7 | Declare_Variable Array 0101 e5ff | | Load 0x2,-0x1 0102 e002 | | Load 0x0,0x2 0103 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0104 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0105 e009 | | Load 0x0,0x9 0106 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0107 e009 | | Load 0x0,0x9 0108 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0109 0119 | | Execute Any,Check_In_Formal_Type 010a 4801 |H | Short_Literal 0x1 010b 00da | | Load_Top At_Offset_2 010c 01d6 | | Execute Vector,Field_Write 010d 0092 03ff | | Action Push_String_Extended,0x3ff ; "Link" 010f e009 | | Load 0x0,0x9 0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0111 e009 | | Load 0x0,0x9 0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0113 0119 | | Execute Any,Check_In_Formal_Type 0114 4802 |H | Short_Literal 0x2 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 613c |a< | Indirect_Literal Discrete,0x254,{0x00000000, 0x0000817a} 0118 e006 | | Load 0x0,0x6 0119 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 011a 7880 |x | Jump 0x19b 011b e40a | | Load 0x2,0xa 011c e005 | | Load 0x0,0x5 011d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 011e e5fb | | Load 0x2,-0x5 011f e409 | | Load 0x2,0x9 0120 e5fc | | Load 0x2,-0x4 0121 e402 | | Load 0x2,0x2 0122 e00c | | Load 0x0,0xc 0123 180d | | Execute Package,Field_Execute,Field_Number 0xd 0124 c407 | | Store 0x2,0x7 0125 c40a | | Store 0x2,0xa 0126 4800 |H | Short_Literal 0x0 0127 e40a | | Load 0x2,0xa 0128 e006 | | Load 0x0,0x6 0129 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 012a 7003 |p | Jump_Nonzero 0x12e 012b e00b | | Load 0x0,0xb 012c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 012d 0257 | W | Execute Discrete,Raise 012e e40a | | Load 0x2,0xa 012f e5fb | | Load 0x2,-0x5 0130 e408 | | Load 0x2,0x8 0131 e406 | | Load 0x2,0x6 0132 e403 | | Load 0x2,0x3 0133 e40c | | Load 0x2,0xc 0134 e407 | | Load 0x2,0x7 0135 e5fc | | Load 0x2,-0x4 0136 e00c | | Load 0x0,0xc 0137 180e | | Execute Package,Field_Execute,Field_Number 0xe 0138 c40a | | Store 0x2,0xa 0139 4800 |H | Short_Literal 0x0 013a e40a | | Load 0x2,0xa 013b e006 | | Load 0x0,0x6 013c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 013d 7003 |p | Jump_Nonzero 0x141 013e e00b | | Load 0x0,0xb 013f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0140 0257 | W | Execute Discrete,Raise 0141 e40a | | Load 0x2,0xa 0142 e5fb | | Load 0x2,-0x5 0143 e408 | | Load 0x2,0x8 0144 e406 | | Load 0x2,0x6 0145 e403 | | Load 0x2,0x3 0146 e40c | | Load 0x2,0xc 0147 e407 | | Load 0x2,0x7 0148 e5fc | | Load 0x2,-0x4 0149 e00c | | Load 0x0,0xc 014a 180f | | Execute Package,Field_Execute,Field_Number 0xf 014b c40a | | Store 0x2,0xa 014c 4800 |H | Short_Literal 0x0 014d e40a | | Load 0x2,0xa 014e e006 | | Load 0x0,0x6 014f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0150 7003 |p | Jump_Nonzero 0x154 0151 e00b | | Load 0x0,0xb 0152 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0153 0257 | W | Execute Discrete,Raise 0154 e40b | | Load 0x2,0xb 0155 e5fb | | Load 0x2,-0x5 0156 e408 | | Load 0x2,0x8 0157 e5fc | | Load 0x2,-0x4 0158 e40d | | Load 0x2,0xd 0159 e5fe | | Load 0x2,-0x2 015a e001 | | Load 0x0,0x1 015b 18df | | Execute Package,Field_Execute,Field_Number 0xdf 015c e40d | | Load 0x2,0xd 015d e5ff | | Load 0x2,-0x1 015e e40c | | Load 0x2,0xc 015f e407 | | Load 0x2,0x7 0160 e5fc | | Load 0x2,-0x4 0161 8211 | | Call 0x1,0x11 0162 c40b | | Store 0x2,0xb 0163 e40a | | Load 0x2,0xa 0164 e407 | | Load 0x2,0x7 0165 e5fb | | Load 0x2,-0x5 0166 e40c | | Load 0x2,0xc 0167 e5fc | | Load 0x2,-0x4 0168 e40d | | Load 0x2,0xd 0169 e5fe | | Load 0x2,-0x2 016a e001 | | Load 0x0,0x1 016b 18df | | Execute Package,Field_Execute,Field_Number 0xdf 016c e406 | | Load 0x2,0x6 016d e402 | | Load 0x2,0x2 016e e403 | | Load 0x2,0x3 016f e5fb | | Load 0x2,-0x5 0170 e5fc | | Load 0x2,-0x4 0171 e5ff | | Load 0x2,-0x1 0172 e00d | | Load 0x0,0xd 0173 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0174 180f | | Execute Package,Field_Execute,Field_Number 0xf 0175 e5ff | | Load 0x2,-0x1 0176 0092 03ff | | Action Push_String_Extended,0x3ff ; "Link" 0178 e001 | | Load 0x0,0x1 0179 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 017a e40b | | Load 0x2,0xb 017b e001 | | Load 0x0,0x1 017c 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 017d e5fc | | Load 0x2,-0x4 017e e001 | | Load 0x0,0x1 017f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0180 e00e | | Load 0x0,0xe 0181 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0182 c407 | | Store 0x2,0x7 0183 c40a | | Store 0x2,0xa 0184 4800 |H | Short_Literal 0x0 0185 e40a | | Load 0x2,0xa 0186 e006 | | Load 0x0,0x6 0187 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0188 6812 |h | Jump_Zero 0x19b 0189 4800 |H | Short_Literal 0x0 018a e40b | | Load 0x2,0xb 018b e006 | | Load 0x0,0x6 018c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 018d 680b |h | Jump_Zero 0x199 018e e5fc | | Load 0x2,-0x4 018f e001 | | Load 0x0,0x1 0190 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0191 e5fe | | Load 0x2,-0x2 0192 e5ff | | Load 0x2,-0x1 0193 e003 | | Load 0x0,0x3 0194 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0195 e00a | | Load 0x0,0xa 0196 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0197 a40e | | Store_Unchecked 0x2,0xe 0198 7802 |x | Jump 0x19b 0199 e40b | | Load 0x2,0xb 019a a40a | | Store_Unchecked 0x2,0xa 019b e40a | | Load 0x2,0xa 019c a5fa | | Store_Unchecked 0x2,-0x6 019d e40a | | Load 0x2,0xa 019e e5fb | | Load 0x2,-0x5 019f 00db | | Load_Top At_Offset_3 01a0 820f | | Call 0x1,0xf 01a1 c40a | | Store 0x2,0xa 01a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01a3 TRAP_0020: 01a3 e00b | | Load 0x0,0xb 01a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01a5 010f | | Execute Exception,Equal 01a6 6808 |h | Jump_Zero 0x1af 01a7 e40a | | Load 0x2,0xa 01a8 a5fa | | Store_Unchecked 0x2,-0x6 01a9 e40a | | Load 0x2,0xa 01aa e5fb | | Load 0x2,-0x5 01ab e410 | | Load 0x2,0x10 01ac 820f | | Call 0x1,0xf 01ad c40a | | Store 0x2,0xa 01ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01af e00b | | Load 0x0,0xb 01b0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01b1 010f | | Execute Exception,Equal 01b2 6837 |h7 | Jump_Zero 0x1ea 01b3 4801 |H | Short_Literal 0x1 01b4 4802 |H | Short_Literal 0x2 01b5 e009 | | Load 0x0,0x9 01b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b7 035b | [ | Declare_Type Array,Constrained 01b8 0337 | 7 | Declare_Variable Array 01b9 e009 | | Load 0x0,0x9 01ba 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01bb e009 | | Load 0x0,0x9 01bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bd 0119 | | Execute Any,Check_In_Formal_Type 01be 4801 |H | Short_Literal 0x1 01bf 00da | | Load_Top At_Offset_2 01c0 01d6 | | Execute Vector,Field_Write 01c1 e5ff | | Load 0x2,-0x1 01c2 e003 | | Load 0x0,0x3 01c3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01c4 e009 | | Load 0x0,0x9 01c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c6 0119 | | Execute Any,Check_In_Formal_Type 01c7 4802 |H | Short_Literal 0x2 01c8 00da | | Load_Top At_Offset_2 01c9 01d6 | | Execute Vector,Field_Write 01ca 608d |` | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126} 01cb e006 | | Load 0x0,0x6 01cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cd a5fa | | Store_Unchecked 0x2,-0x6 01ce e5fb | | Load 0x2,-0x5 01cf 4801 |H | Short_Literal 0x1 01d0 4802 |H | Short_Literal 0x2 01d1 e009 | | Load 0x0,0x9 01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d3 035b | [ | Declare_Type Array,Constrained 01d4 0337 | 7 | Declare_Variable Array 01d5 e009 | | Load 0x0,0x9 01d6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01d7 e009 | | Load 0x0,0x9 01d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d9 0119 | | Execute Any,Check_In_Formal_Type 01da 4801 |H | Short_Literal 0x1 01db 00da | | Load_Top At_Offset_2 01dc 01d6 | | Execute Vector,Field_Write 01dd e5ff | | Load 0x2,-0x1 01de e003 | | Load 0x0,0x3 01df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01e0 e009 | | Load 0x0,0x9 01e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e2 0119 | | Execute Any,Check_In_Formal_Type 01e3 4802 |H | Short_Literal 0x2 01e4 00da | | Load_Top At_Offset_2 01e5 01d6 | | Execute Vector,Field_Write 01e6 6071 |`q | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126} 01e7 e006 | | Load 0x0,0x6 01e8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01ea e006 | | Load 0x0,0x6 01eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01ec 010f | | Execute Exception,Equal 01ed 6824 |h$ | Jump_Zero 0x212 01ee e006 | | Load 0x0,0x6 01ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f0 a5fa | | Store_Unchecked 0x2,-0x6 01f1 e40a | | Load 0x2,0xa 01f2 e5fb | | Load 0x2,-0x5 01f3 e410 | | Load 0x2,0x10 01f4 820f | | Call 0x1,0xf 01f5 c40a | | Store 0x2,0xa 01f6 e5fb | | Load 0x2,-0x5 01f7 4801 |H | Short_Literal 0x1 01f8 4802 |H | Short_Literal 0x2 01f9 e009 | | Load 0x0,0x9 01fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fb 035b | [ | Declare_Type Array,Constrained 01fc 0337 | 7 | Declare_Variable Array 01fd e009 | | Load 0x0,0x9 01fe 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01ff e009 | | Load 0x0,0x9 0200 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0201 0119 | | Execute Any,Check_In_Formal_Type 0202 4801 |H | Short_Literal 0x1 0203 00da | | Load_Top At_Offset_2 0204 01d6 | | Execute Vector,Field_Write 0205 e5ff | | Load 0x2,-0x1 0206 e003 | | Load 0x0,0x3 0207 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0208 e009 | | Load 0x0,0x9 0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020a 0119 | | Execute Any,Check_In_Formal_Type 020b 4802 |H | Short_Literal 0x2 020c 00da | | Load_Top At_Offset_2 020d 01d6 | | Execute Vector,Field_Write 020e 6049 |`I | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126} 020f e006 | | Load 0x0,0x6 0210 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0211 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0212 e40a | | Load 0x2,0xa 0213 e5fb | | Load 0x2,-0x5 0214 e410 | | Load 0x2,0x10 0215 820f | | Call 0x1,0xf 0216 c40a | | Store 0x2,0xa 0217 4801 |H | Short_Literal 0x1 0218 4802 |H | Short_Literal 0x2 0219 e009 | | Load 0x0,0x9 021a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021b 035b | [ | Declare_Type Array,Constrained 021c 0337 | 7 | Declare_Variable Array 021d e009 | | Load 0x0,0x9 021e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 021f e009 | | Load 0x0,0x9 0220 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0221 0119 | | Execute Any,Check_In_Formal_Type 0222 4801 |H | Short_Literal 0x1 0223 00da | | Load_Top At_Offset_2 0224 01d6 | | Execute Vector,Field_Write 0225 e5ff | | Load 0x2,-0x1 0226 e003 | | Load 0x0,0x3 0227 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0228 e009 | | Load 0x0,0x9 0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022a 0119 | | Execute Any,Check_In_Formal_Type 022b 4802 |H | Short_Literal 0x2 022c 00da | | Load_Top At_Offset_2 022d 01d6 | | Execute Vector,Field_Write 022e 6029 |`) | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126} 022f e006 | | Load 0x0,0x6 0230 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0231 a5fa | | Store_Unchecked 0x2,-0x6 0232 e5fb | | Load 0x2,-0x5 0233 4801 |H | Short_Literal 0x1 0234 4802 |H | Short_Literal 0x2 0235 e009 | | Load 0x0,0x9 0236 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0237 035b | [ | Declare_Type Array,Constrained 0238 0337 | 7 | Declare_Variable Array 0239 e009 | | Load 0x0,0x9 023a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 023b e009 | | Load 0x0,0x9 023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023d 0119 | | Execute Any,Check_In_Formal_Type 023e 4801 |H | Short_Literal 0x1 023f 00da | | Load_Top At_Offset_2 0240 01d6 | | Execute Vector,Field_Write 0241 e5ff | | Load 0x2,-0x1 0242 e003 | | Load 0x0,0x3 0243 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0244 e009 | | Load 0x0,0x9 0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0246 0119 | | Execute Any,Check_In_Formal_Type 0247 4802 |H | Short_Literal 0x2 0248 00da | | Load_Top At_Offset_2 0249 01d6 | | Execute Vector,Field_Write 024a 600d |` | Indirect_Literal Discrete,0x258,{0x00000000, 0x00008126} 024b e006 | | Load 0x0,0x6 024c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 024d e5fb | | Load 0x2,-0x5 024e 0092 0400 | | Action Push_String_Extended,0x400 ; "Rcf_Compilation.Link_Operations.Link" 0250 e00f | | Load 0x0,0xf 0251 180f | | Execute Package,Field_Execute,Field_Number 0xf 0252 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0253 0000 | | .XXX[0x1] 0254 0000 0000 | | .LITERAL {0x00000000, 0x0000817a} 0258 0000 0000 | | .LITERAL {0x00000000, 0x00008126} 025c 0000 0000 | | .LITERAL {0x00000000, 0x00008210} 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0265 | e | .CONST 0x0265 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e002 | | Load 0x0,0x2 0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0265 BODY_0260: 0265 e002 | | Load 0x0,0x2 0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0267 e5fd | | Load 0x2,-0x3 0268 0120 | | Execute Any,Is_Value 0269 6804 |h | Jump_Zero 0x26e 026a e002 | | Load 0x0,0x2 026b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 026d 7801 |x | Jump 0x26f 026e e5fd | | Load 0x2,-0x3 026f 6068 |`h | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00004000} 0270 e010 | | Load 0x0,0x10 0271 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0272 4800 |H | Short_Literal 0x0 0273 e5ff | | Load 0x2,-0x1 0274 e002 | | Load 0x0,0x2 0275 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0276 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0277 c5fd | | Store 0x2,-0x3 0278 0059 | Y | Store_Top Discrete,At_Offset_1 0279 00d8 | | Load_Top At_Offset_0 027a 6821 |h! | Jump_Zero 0x29c 027b 4801 |H | Short_Literal 0x1 027c 4802 |H | Short_Literal 0x2 027d e009 | | Load 0x0,0x9 027e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 027f 035b | [ | Declare_Type Array,Constrained 0280 0337 | 7 | Declare_Variable Array 0281 e5ff | | Load 0x2,-0x1 0282 e009 | | Load 0x0,0x9 0283 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0284 e009 | | Load 0x0,0x9 0285 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0286 0119 | | Execute Any,Check_In_Formal_Type 0287 4801 |H | Short_Literal 0x1 0288 00da | | Load_Top At_Offset_2 0289 01d6 | | Execute Vector,Field_Write 028a 00d9 | | Load_Top At_Offset_1 028b e009 | | Load 0x0,0x9 028c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 028d e009 | | Load 0x0,0x9 028e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028f 0119 | | Execute Any,Check_In_Formal_Type 0290 4802 |H | Short_Literal 0x2 0291 00da | | Load_Top At_Offset_2 0292 01d6 | | Execute Vector,Field_Write 0293 6040 |`@ | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x0000813d} 0294 e006 | | Load 0x0,0x6 0295 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0296 a5fb | | Store_Unchecked 0x2,-0x5 0297 e5fe | | Load 0x2,-0x2 0298 e5fb | | Load 0x2,-0x5 0299 e006 | | Load 0x0,0x6 029a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 029b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 029c e011 | | Load 0x0,0x11 029d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029e e002 | | Load 0x0,0x2 029f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a1 c5fc | | Store 0x2,-0x4 02a2 e002 | | Load 0x0,0x2 02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a4 e011 | | Load 0x0,0x11 02a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02a6 e5fd | | Load 0x2,-0x3 02a7 e002 | | Load 0x0,0x2 02a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02aa 0059 | Y | Store_Top Discrete,At_Offset_1 02ab 00d8 | | Load_Top At_Offset_0 02ac 6820 |h | Jump_Zero 0x2cd 02ad 4801 |H | Short_Literal 0x1 02ae 4802 |H | Short_Literal 0x2 02af e009 | | Load 0x0,0x9 02b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b1 035b | [ | Declare_Type Array,Constrained 02b2 0337 | 7 | Declare_Variable Array 02b3 e5ff | | Load 0x2,-0x1 02b4 e009 | | Load 0x0,0x9 02b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02b6 e009 | | Load 0x0,0x9 02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b8 0119 | | Execute Any,Check_In_Formal_Type 02b9 4801 |H | Short_Literal 0x1 02ba 00da | | Load_Top At_Offset_2 02bb 01d6 | | Execute Vector,Field_Write 02bc 00d9 | | Load_Top At_Offset_1 02bd e009 | | Load 0x0,0x9 02be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02bf e009 | | Load 0x0,0x9 02c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c1 0119 | | Execute Any,Check_In_Formal_Type 02c2 4802 |H | Short_Literal 0x2 02c3 00da | | Load_Top At_Offset_2 02c4 01d6 | | Execute Vector,Field_Write 02c5 600a |` | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x00008159} 02c6 e006 | | Load 0x0,0x6 02c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c8 a5fb | | Store_Unchecked 0x2,-0x5 02c9 e5fe | | Load 0x2,-0x2 02ca e5fb | | Load 0x2,-0x5 02cb e006 | | Load 0x0,0x6 02cc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ce 0000 0000 | | .XXX[0x2] 02d0 0000 0000 | | .LITERAL {0x00000000, 0x00008159} 02d4 0000 0000 | | .LITERAL {0x00000000, 0x0000813d} 02d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e5 | | .CONST 0x02e5 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0002 | | .CONST 0x0002 ; Number of locals 02e3 INIT_02e0: 02e3 e002 | | Load 0x0,0x2 02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e5 BODY_02e0: 02e5 4800 |H | Short_Literal 0x0 02e6 a5fd | | Store_Unchecked 0x2,-0x3 02e7 e002 | | Load 0x0,0x2 02e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e9 e011 | | Load 0x0,0x11 02ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02eb e5ff | | Load 0x2,-0x1 02ec e002 | | Load 0x0,0x2 02ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ef 0059 | Y | Store_Top Discrete,At_Offset_1 02f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0300 | | .CONST 0x0300 ; Address of begin 02f9 030c | | .CONST 0x030c ; Address of exception handler 02fa 0002 | | .CONST 0x0002 ; Number of locals 02fb INIT_02f8: 02fb e002 | | Load 0x0,0x2 02fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fd 02c7 | | Declare_Variable Any 02fe 00d8 | | Load_Top At_Offset_0 02ff 1c00 | | Execute_Immediate Run_Utility,0x0 0300 BODY_02f8: 0300 e5fe | | Load 0x2,-0x2 0301 4800 |H | Short_Literal 0x0 0302 e5ff | | Load 0x2,-0x1 0303 e003 | | Load 0x0,0x3 0304 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0305 c402 | | Store 0x2,0x2 0306 e5fe | | Load 0x2,-0x2 0307 4800 |H | Short_Literal 0x0 0308 00da | | Load_Top At_Offset_2 0309 e003 | | Load 0x0,0x3 030a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 030b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 030c TRAP_02f8: 030c 0007 | | Action Break_Optional 030d e002 | | Load 0x0,0x2 030e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 030f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0324 | $ | .CONST 0x0324 ; Address of begin 0311 033f | ? | .CONST 0x033f ; Address of exception handler 0312 0006 | | .CONST 0x0006 ; Number of locals 0313 INIT_0310: 0313 e012 | | Load 0x0,0x12 0314 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0315 02c7 | | Declare_Variable Any 0316 00db | | Load_Top At_Offset_3 0317 e001 | | Load 0x0,0x1 0318 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0319 e013 | | Load 0x0,0x13 031a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031b a402 | | Store_Unchecked 0x2,0x2 031c 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 031e 029f 038b | | Declare_Subprogram INIT_0388,For_Call 0320 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 0322 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0324 BODY_0310: 0324 e5ff | | Load 0x2,-0x1 0325 e001 | | Load 0x0,0x1 0326 1887 | | Execute Package,Field_Execute,Field_Number 0x87 0327 01db | | Execute Vector,Length 0328 7001 |p | Jump_Nonzero 0x32a 0329 4509 |E | Exit_Suprogram New_Top_Offset 0x9 032a 8405 | | Call 0x2,0x5 032b e5f7 | | Load 0x2,-0x9 032c e5f8 | | Load 0x2,-0x8 032d e5f9 | | Load 0x2,-0x7 032e e5fd | | Load 0x2,-0x3 032f e5fe | | Load 0x2,-0x2 0330 00ea | | Load_Encached Null_String_Cache 0331 4800 |H | Short_Literal 0x0 0332 8404 | | Call 0x2,0x4 0333 4801 |H | Short_Literal 0x1 0334 8404 | | Call 0x2,0x4 0335 e5fb | | Load 0x2,-0x5 0336 e5ff | | Load 0x2,-0x1 0337 e001 | | Load 0x0,0x1 0338 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7 0339 e5ff | | Load 0x2,-0x1 033a e00c | | Load 0x0,0xc 033b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 033c c5f7 | | Store 0x2,-0x9 033d 8406 | | Call 0x2,0x6 033e 4509 |E | Exit_Suprogram New_Top_Offset 0x9 033f TRAP_0310: 033f e001 | | Load 0x0,0x1 0340 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 0341 010f | | Execute Exception,Equal 0342 6824 |h$ | Jump_Zero 0x367 0343 4801 |H | Short_Literal 0x1 0344 4802 |H | Short_Literal 0x2 0345 e009 | | Load 0x0,0x9 0346 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0347 035b | [ | Declare_Type Array,Constrained 0348 0337 | 7 | Declare_Variable Array 0349 0092 03ff | | Action Push_String_Extended,0x3ff ; "Link" 034b e009 | | Load 0x0,0x9 034c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 034d e009 | | Load 0x0,0x9 034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034f 0119 | | Execute Any,Check_In_Formal_Type 0350 4801 |H | Short_Literal 0x1 0351 00da | | Load_Top At_Offset_2 0352 01d6 | | Execute Vector,Field_Write 0353 e5ff | | Load 0x2,-0x1 0354 e001 | | Load 0x0,0x1 0355 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0356 e003 | | Load 0x0,0x3 0357 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0358 e009 | | Load 0x0,0x9 0359 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035a 0119 | | Execute Any,Check_In_Formal_Type 035b 4802 |H | Short_Literal 0x2 035c 00da | | Load_Top At_Offset_2 035d 01d6 | | Execute Vector,Field_Write 035e 6009 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x0000818c} 035f e006 | | Load 0x0,0x6 0360 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0361 a5f7 | | Store_Unchecked 0x2,-0x9 0362 e5f8 | | Load 0x2,-0x8 0363 e5f7 | | Load 0x2,-0x9 0364 e006 | | Load 0x0,0x6 0365 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0366 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0367 0100 | | Execute Exception,Raise 0368 0000 0000 | | .LITERAL {0x00000000, 0x0000818c} 036c 0000 0000 | | .BLANK 0000[0x4] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 6807 |h | Jump_Zero 0x37c 0375 4800 |H | Short_Literal 0x0 0376 e5fd | | Load 0x2,-0x3 0377 e00b | | Load 0x0,0xb 0378 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0379 e00b | | Load 0x0,0xb 037a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 037b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037c 4800 |H | Short_Literal 0x0 037d e5fd | | Load 0x2,-0x3 037e e00b | | Load 0x0,0xb 037f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0380 e00b | | Load 0x0,0xb 0381 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0382 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0383 0000 0000 | | .BLANK 0000[0x5] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 039e | | .CONST 0x039e ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0002 | | .CONST 0x0002 ; Number of locals 038b INIT_0388: 038b e5f8 | | Load 0x2,-0x8 038c e5fc | | Load 0x2,-0x4 038d e7ff | | Load 0x3,-0x1 038e 8403 | | Call 0x2,0x3 038f 4801 |H | Short_Literal 0x1 0390 e7ff | | Load 0x3,-0x1 0391 0272 | r | Execute Discrete,Minus 0392 00d8 | | Load_Top At_Offset_0 0393 e014 | | Load 0x0,0x14 0394 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0395 0260 | ` | Execute Discrete,In_Type 0396 7001 |p | Jump_Nonzero 0x398 0397 0801 | | Execute_Immediate Raise,0x1 0398 4803 |H | Short_Literal 0x3 0399 e5ff | | Load 0x2,-0x1 039a e001 | | Load 0x0,0x1 039b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 039c e014 | | Load 0x0,0x14 039d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 039e BODY_0388: 039e e5fa | | Load 0x2,-0x6 039f 01db | | Execute Vector,Length 03a0 7002 |p | Jump_Nonzero 0x3a3 03a1 00d8 | | Load_Top At_Offset_0 03a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a3 e5ff | | Load 0x2,-0x1 03a4 e001 | | Load 0x0,0x1 03a5 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2 03a6 e7ff | | Load 0x3,-0x1 03a7 027f | | Execute Discrete,Equal 03a8 6825 |h% | Jump_Zero 0x3ce 03a9 00d8 | | Load_Top At_Offset_0 03aa 01db | | Execute Vector,Length 03ab 700e |p | Jump_Nonzero 0x3ba 03ac e402 | | Load 0x2,0x2 03ad e012 | | Load 0x0,0x12 03ae 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 03af e5ff | | Load 0x2,-0x1 03b0 e001 | | Load 0x0,0x1 03b1 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 03b2 01cc | | Execute Vector,Catenate 03b3 e402 | | Load 0x2,0x2 03b4 e012 | | Load 0x0,0x12 03b5 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 03b6 01cc | | Execute Vector,Catenate 03b7 e5fa | | Load 0x2,-0x6 03b8 01cc | | Execute Vector,Catenate 03b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ba 00d8 | | Load_Top At_Offset_0 03bb e402 | | Load 0x2,0x2 03bc e012 | | Load 0x0,0x12 03bd 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03be 01cc | | Execute Vector,Catenate 03bf e402 | | Load 0x2,0x2 03c0 e012 | | Load 0x0,0x12 03c1 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 03c2 01cc | | Execute Vector,Catenate 03c3 e5ff | | Load 0x2,-0x1 03c4 e001 | | Load 0x0,0x1 03c5 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1 03c6 01cc | | Execute Vector,Catenate 03c7 e402 | | Load 0x2,0x2 03c8 e012 | | Load 0x0,0x12 03c9 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 03ca 01cc | | Execute Vector,Catenate 03cb e5fa | | Load 0x2,-0x6 03cc 01cc | | Execute Vector,Catenate 03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ce 00d8 | | Load_Top At_Offset_0 03cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d6 | | .CONST 0x03d6 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0002 | | .CONST 0x0002 ; Number of locals 03d3 INIT_03d0: 03d3 e5ff | | Load 0x2,-0x1 03d4 e001 | | Load 0x0,0x1 03d5 18ce | | Execute Package,Field_Execute,Field_Number 0xce 03d6 BODY_03d0: 03d6 00d8 | | Load_Top At_Offset_0 03d7 01db | | Execute Vector,Length 03d8 0c01 | | Execute_Immediate Greater_Equal,0x1 03d9 680a |h | Jump_Zero 0x3e4 03da e5f7 | | Load 0x2,-0x9 03db e5f8 | | Load 0x2,-0x8 03dc e5f9 | | Load 0x2,-0x7 03dd e5fd | | Load 0x2,-0x3 03de e5fe | | Load 0x2,-0x2 03df e602 | | Load 0x3,0x2 03e0 e5ff | | Load 0x2,-0x1 03e1 e00c | | Load 0x0,0xc 03e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03e3 c5f7 | | Store 0x2,-0x9 03e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e5 0000 0000 | | .XXX[0x3] 03e7 0000 | | 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f0 | | .CONST 0x03f0 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0003 | | .CONST 0x0003 ; Number of locals 03eb INIT_03e8: 03eb e006 | | Load 0x0,0x6 03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ed e5ff | | Load 0x2,-0x1 03ee e001 | | Load 0x0,0x1 03ef 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 03f0 BODY_03e8: 03f0 00d8 | | Load_Top At_Offset_0 03f1 01db | | Execute Vector,Length 03f2 0c01 | | Execute_Immediate Greater_Equal,0x1 03f3 680a |h | Jump_Zero 0x3fe 03f4 00d9 | | Load_Top At_Offset_1 03f5 e5f8 | | Load 0x2,-0x8 03f6 e5f9 | | Load 0x2,-0x7 03f7 e5fd | | Load 0x2,-0x3 03f8 e5fe | | Load 0x2,-0x2 03f9 e603 | | Load 0x3,0x3 03fa e5ff | | Load 0x2,-0x1 03fb e00c | | Load 0x0,0xc 03fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03fd 005a | Z | Store_Top Discrete,At_Offset_2 03fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ff ; -------------------------------------------------------------------------------------- 03ff ; STRING TABLE 03ff ; -------------------------------------------------------------------------------------- 03ff 0006 | | .STRTAB 0x0006->0x0402 ; "Link" 0400 0008 | | .STRTAB 0x0008->0x0404 ; "Rcf_Compilation.Link_Operations.Link" 0401 002a | * | .STREND 0x002a->0x0416 0402 4c69 6e6b |Link| .STRTAB_STRINGS 0416 0000 0000 | | .XXX[0x2] 0418 ; -------------------------------------------------------------------------------------- 0418 ; Debug Table 0418 ; -------------------------------------------------------------------------------------- 0418 0004 000f | | .DEBUG4 0x0004,0x000f,0x2c09,0x0000,0x0001,0x0000 041e 0000 0000 | | .BLANK 0000[0x1e2]