|
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_779ce4
└─⟦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 02b0 | | .CONST 0x02b0 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0014 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0016 00bf | | Action Accept_Activation 0017 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0019 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001c 00c7 | | Action Elaborate_Subprogram 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001e 00c7 | | Action Elaborate_Subprogram 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0020 00c7 | | Action Elaborate_Subprogram 0021 BODY_0008: 0021 00bc | | Action Signal_Activated 0022 00bb | | Action Signal_Completion 0023 0000 0000 | | .BLANK 0000[0x5] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4607 |F | Jump_Case 0x8 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 002d 7807 |x | Jump 0x35 ; case 0x1 002e 780a |x | Jump 0x39 ; case 0x2 002f 780e |x | Jump 0x3e ; case 0x3 0030 7811 |x | Jump 0x42 ; case 0x4 0031 7812 |x | Jump 0x44 ; case 0x5 0032 7813 |x | Jump 0x46 ; case 0x6 0033 7816 |x | Jump 0x4a ; case 0x7 0034 4302 |C | .XXX[0x1] 0035 00da | | Load_Top At_Offset_2 0036 0091 0216 | | Action Push_String_Extended_Indexed,0x216 ; "NAMED_ASSOCIATION" 0038 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0039 00db | | Load_Top At_Offset_3 003a 00db | | Load_Top At_Offset_3 003b 00e0 | | Load_Encached Standard_Cache 003c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e 00da | | Load_Top At_Offset_2 003f 00e0 | | Load_Encached Standard_Cache 0040 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0041 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0042 00db | | Load_Top At_Offset_3 0043 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0044 00db | | Load_Top At_Offset_3 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 e20d | | Load 0x1,0xd 0047 00dc | | Load_Top At_Offset_4 0048 0267 | g | Execute Discrete,Predecessor 0049 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004a e20d | | Load 0x1,0xd 004b 00dc | | Load_Top At_Offset_4 004c 0268 | h | Execute Discrete,Successor 004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0055 | U | .CONST 0x0055 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 8002 | | Call 0x0,0x2 0055 BODY_0050: 0055 00d8 | | Load_Top At_Offset_0 0056 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0057 00d8 | | Load_Top At_Offset_0 0058 0d03 | | Execute_Immediate Less,0x3 0059 7026 |p& | Jump_Nonzero 0x80 005a 00d8 | | Load_Top At_Offset_0 005b 0c19 | | Execute_Immediate Greater_Equal,0x19 005c 7020 |p | Jump_Nonzero 0x7d 005d 00d1 | | Pop_Control Pop_Count_1 005e 00d8 | | Load_Top At_Offset_0 005f 00eb | | Load_Encached Diana_Cache 0060 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0061 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0062 00d8 | | Load_Top At_Offset_0 0063 0d7e | ~ | Execute_Immediate Less,0x7e 0064 700d |p | Jump_Nonzero 0x72 0065 00d8 | | Load_Top At_Offset_0 0066 0c94 | | Execute_Immediate Greater_Equal,-0x6c 0067 7007 |p | Jump_Nonzero 0x6f 0068 0b7e | ~ | Execute_Immediate Case_Compare,0x7e 0069 700b |p | Jump_Nonzero 0x75 006a 0b8e | | Execute_Immediate Case_Compare,0x8e 006b 700e |p | Jump_Nonzero 0x7a 006c 0f93 | | Execute_Immediate Equal,-0x6d 006d 700d |p | Jump_Nonzero 0x7b 006e 7804 |x | Jump 0x73 006f 0fa9 | | Execute_Immediate Equal,-0x57 0070 7007 |p | Jump_Nonzero 0x78 0071 7801 |x | Jump 0x73 0072 00d1 | | Pop_Control Pop_Count_1 0073 4803 |H | Short_Literal 0x3 0074 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0075 00d1 | | Pop_Control Pop_Count_1 0076 4802 |H | Short_Literal 0x2 0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0078 4800 |H | Short_Literal 0x0 0079 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007a 00d1 | | Pop_Control Pop_Count_1 007b 4801 |H | Short_Literal 0x1 007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007d 0fa9 | | Execute_Immediate Equal,-0x57 007e 7004 |p | Jump_Nonzero 0x83 007f 7805 |x | Jump 0x85 0080 0f01 | | Execute_Immediate Equal,0x1 0081 77dc |w | Jump_Nonzero 0x5e 0082 7802 |x | Jump 0x85 0083 4800 |H | Short_Literal 0x0 0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0085 4803 |H | Short_Literal 0x3 0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0095 | | .CONST 0x0095 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0007 | | .CONST 0x0007 ; Number of locals 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 8002 | | Call 0x0,0x2 008d 00ed | | Load_Encached Diana_Symbol_Rep_Cache 008e 02c7 | | Declare_Variable Any 008f 00d8 | | Load_Top At_Offset_0 0090 1c00 | | Execute_Immediate Run_Utility,0x0 0091 00ec | | Load_Encached Diana_Tree_Cache 0092 00ec | | Load_Encached Diana_Tree_Cache 0093 00e3 | | Load_Encached Natural_Cache 0094 00ec | | Load_Encached Diana_Tree_Cache 0095 BODY_0088: 0095 e402 | | Load 0x2,0x2 0096 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0097 00d8 | | Load_Top At_Offset_0 0098 0d03 | | Execute_Immediate Less,0x3 0099 707a |pz | Jump_Nonzero 0x114 009a 00d8 | | Load_Top At_Offset_0 009b 0c19 | | Execute_Immediate Greater_Equal,0x19 009c 7074 |pt | Jump_Nonzero 0x111 009d 00d1 | | Pop_Control Pop_Count_1 009e e402 | | Load 0x2,0x2 009f 00eb | | Load_Encached Diana_Cache 00a0 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00a1 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00a2 00d8 | | Load_Top At_Offset_0 00a3 0d7e | ~ | Execute_Immediate Less,0x7e 00a4 700d |p | Jump_Nonzero 0xb2 00a5 00d8 | | Load_Top At_Offset_0 00a6 0c94 | | Execute_Immediate Greater_Equal,-0x6c 00a7 7007 |p | Jump_Nonzero 0xaf 00a8 0b7e | ~ | Execute_Immediate Case_Compare,0x7e 00a9 700f |p | Jump_Nonzero 0xb9 00aa 0b8e | | Execute_Immediate Case_Compare,0x8e 00ab 7047 |pG | Jump_Nonzero 0xf3 00ac 0f93 | | Execute_Immediate Equal,-0x6d 00ad 7046 |pF | Jump_Nonzero 0xf4 00ae 7804 |x | Jump 0xb3 00af 0fa9 | | Execute_Immediate Equal,-0x57 00b0 7028 |p( | Jump_Nonzero 0xd9 00b1 7801 |x | Jump 0xb3 00b2 00d1 | | Pop_Control Pop_Count_1 00b3 0092 021a | | Action Push_String_Extended,0x21a ; "Unexpected context for an actual parameter" 00b5 e003 | | Load 0x0,0x3 00b6 8004 | | Call 0x0,0x4 00b7 e005 | | Load 0x0,0x5 00b8 0257 | W | Execute Discrete,Raise 00b9 00d1 | | Pop_Control Pop_Count_1 00ba e402 | | Load 0x2,0x2 00bb 00eb | | Load_Encached Diana_Cache 00bc 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00bd 00eb | | Load_Encached Diana_Cache 00be 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0 00bf a404 | | Store_Unchecked 0x2,0x4 00c0 00db | | Load_Top At_Offset_3 00c1 00eb | | Load_Encached Diana_Cache 00c2 1888 | | Execute Package,Field_Execute,Field_Number 0x88 00c3 4975 |Iu | Short_Literal 0x175 00c4 00eb | | Load_Encached Diana_Cache 00c5 0098 | | Execute Package,Field_Read_Dynamic 00c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c7 4602 |F | Jump_Case 0x3 00c8 7804 |x | Jump 0xcd ; case 0x0 00c9 7809 |x | Jump 0xd3 ; case 0x1 00ca 7800 |x | Jump 0xcb ; case 0x2 00cb e006 | | Load 0x0,0x6 00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cd 0092 021b | | Action Push_String_Extended,0x21b ; "Parameter declaration contains zero parameters" 00cf e003 | | Load 0x0,0x3 00d0 8004 | | Call 0x0,0x4 00d1 e005 | | Load 0x0,0x5 00d2 0257 | W | Execute Discrete,Raise 00d3 00db | | Load_Top At_Offset_3 00d4 00eb | | Load_Encached Diana_Cache 00d5 1888 | | Execute Package,Field_Execute,Field_Number 0x88 00d6 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 00d7 8007 | | Call 0x0,0x7 00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d9 e402 | | Load 0x2,0x2 00da 00eb | | Load_Encached Diana_Cache 00db 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00dc 00eb | | Load_Encached Diana_Cache 00dd 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 00de 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00df 00d8 | | Load_Top At_Offset_0 00e0 00eb | | Load_Encached Diana_Cache 00e1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00e2 c403 | | Store 0x2,0x3 00e3 e402 | | Load 0x2,0x2 00e4 8211 | | Call 0x1,0x11 00e5 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00e6 00da | | Load_Top At_Offset_2 00e7 7003 |p | Jump_Nonzero 0xeb 00e8 00d8 | | Load_Top At_Offset_0 00e9 8007 | | Call 0x0,0x7 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb e403 | | Load 0x2,0x3 00ec 00db | | Load_Top At_Offset_3 00ed 4972 |Ir | Short_Literal 0x172 00ee 00eb | | Load_Encached Diana_Cache 00ef 0098 | | Execute Package,Field_Read_Dynamic 00f0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00f1 8007 | | Call 0x0,0x7 00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f3 00d1 | | Pop_Control Pop_Count_1 00f4 e402 | | Load 0x2,0x2 00f5 8211 | | Call 0x1,0x11 00f6 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00f7 00da | | Load_Top At_Offset_2 00f8 7002 |p | Jump_Nonzero 0xfb 00f9 e006 | | Load 0x0,0x6 00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fb e402 | | Load 0x2,0x2 00fc 00eb | | Load_Encached Diana_Cache 00fd 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00fe 00eb | | Load_Encached Diana_Cache 00ff 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0100 e402 | | Load 0x2,0x2 0101 4975 |Iu | Short_Literal 0x175 0102 00eb | | Load_Encached Diana_Cache 0103 0098 | | Execute Package,Field_Read_Dynamic 0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0105 005a | Z | Store_Top Discrete,At_Offset_2 0106 00d9 | | Load_Top At_Offset_1 0107 0a01 | | Execute_Immediate Plus,0x1 0108 00d8 | | Load_Top At_Offset_0 0109 00e4 | | Load_Encached Positive_Cache 010a 0260 | ` | Execute Discrete,In_Type 010b 7001 |p | Jump_Nonzero 0x10d 010c 0801 | | Execute_Immediate Raise,0x1 010d 00db | | Load_Top At_Offset_3 010e 8212 | | Call 0x1,0x12 010f 8007 | | Call 0x0,0x7 0110 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0111 0fa9 | | Execute_Immediate Equal,-0x57 0112 7004 |p | Jump_Nonzero 0x117 0113 781b |x | Jump 0x12f 0114 0f01 | | Execute_Immediate Equal,0x1 0115 7788 |w | Jump_Nonzero 0x9e 0116 7818 |x | Jump 0x12f 0117 e402 | | Load 0x2,0x2 0118 00eb | | Load_Encached Diana_Cache 0119 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 011a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 011b 00d8 | | Load_Top At_Offset_0 011c 00eb | | Load_Encached Diana_Cache 011d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 011e c403 | | Store 0x2,0x3 011f 00d8 | | Load_Top At_Offset_0 0120 8211 | | Call 0x1,0x11 0121 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0122 00da | | Load_Top At_Offset_2 0123 7003 |p | Jump_Nonzero 0x127 0124 00d8 | | Load_Top At_Offset_0 0125 8007 | | Call 0x0,0x7 0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0127 e403 | | Load 0x2,0x3 0128 00db | | Load_Top At_Offset_3 0129 4972 |Ir | Short_Literal 0x172 012a 00eb | | Load_Encached Diana_Cache 012b 0098 | | Execute Package,Field_Read_Dynamic 012c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 012d 8007 | | Call 0x0,0x7 012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012f 0092 021c | | Action Push_String_Extended,0x21c ; "Element is not an Association" 0131 e008 | | Load 0x0,0x8 0132 8004 | | Call 0x0,0x4 0133 e005 | | Load 0x0,0x5 0134 0257 | W | Execute Discrete,Raise 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013d | = | .CONST 0x013d ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 8002 | | Call 0x0,0x2 013d BODY_0138: 013d 00d8 | | Load_Top At_Offset_0 013e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 013f 00d8 | | Load_Top At_Offset_0 0140 0d03 | | Execute_Immediate Less,0x3 0141 7009 |p | Jump_Nonzero 0x14b 0142 00d8 | | Load_Top At_Offset_0 0143 0c19 | | Execute_Immediate Greater_Equal,0x19 0144 7003 |p | Jump_Nonzero 0x148 0145 00d1 | | Pop_Control Pop_Count_1 0146 00db | | Load_Top At_Offset_3 0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0148 0fa9 | | Execute_Immediate Equal,-0x57 0149 7004 |p | Jump_Nonzero 0x14e 014a 7808 |x | Jump 0x153 014b 0f01 | | Execute_Immediate Equal,0x1 014c 77f9 |w | Jump_Nonzero 0x146 014d 7805 |x | Jump 0x153 014e 00d8 | | Load_Top At_Offset_0 014f 00eb | | Load_Encached Diana_Cache 0150 18b2 | | Execute Package,Field_Execute,Field_Number 0xb2 0151 8007 | | Call 0x0,0x7 0152 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0153 0092 021c | | Action Push_String_Extended,0x21c ; "Element is not an Association" 0155 e008 | | Load 0x0,0x8 0156 8004 | | Call 0x0,0x4 0157 e005 | | Load 0x0,0x5 0158 0257 | W | Execute Discrete,Raise 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0168 | h | .CONST 0x0168 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0006 | | .CONST 0x0006 ; Number of locals 0163 INIT_0160: 0163 00ec | | Load_Encached Diana_Tree_Cache 0164 00ec | | Load_Encached Diana_Tree_Cache 0165 00ec | | Load_Encached Diana_Tree_Cache 0166 00ec | | Load_Encached Diana_Tree_Cache 0167 e5ff | | Load 0x2,-0x1 0168 BODY_0160: 0168 00cf | | Action Mark_Auxiliary 0169 00d9 | | Load_Top At_Offset_1 016a 7006 |p | Jump_Nonzero 0x171 016b 0092 021d | | Action Push_String_Extended,0x21d ; "Root encountered while looking for a valid association context" 016d e003 | | Load 0x0,0x3 016e 8004 | | Call 0x0,0x4 016f e005 | | Load 0x0,0x5 0170 0257 | W | Execute Discrete,Raise 0171 00d9 | | Load_Top At_Offset_1 0172 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0173 00d8 | | Load_Top At_Offset_0 0174 0d36 | 6 | Execute_Immediate Less,0x36 0175 700d |p | Jump_Nonzero 0x183 0176 00d8 | | Load_Top At_Offset_0 0177 0c41 | A | Execute_Immediate Greater_Equal,0x41 0178 7005 |p | Jump_Nonzero 0x17e 0179 0b36 | 6 | Execute_Immediate Case_Compare,0x36 017a 700b |p | Jump_Nonzero 0x186 017b 0f40 | @ | Execute_Immediate Equal,0x40 017c 7046 |pF | Jump_Nonzero 0x1c3 017d 7847 |xG | Jump 0x1c5 017e 0b53 | S | Execute_Immediate Case_Compare,0x53 017f 7022 |p" | Jump_Nonzero 0x1a2 0180 0f5b | [ | Execute_Immediate Equal,0x5b 0181 7010 |p | Jump_Nonzero 0x192 0182 7842 |xB | Jump 0x1c5 0183 0f10 | | Execute_Immediate Equal,0x10 0184 702e |p. | Jump_Nonzero 0x1b3 0185 783f |x? | Jump 0x1c5 0186 00d1 | | Pop_Control Pop_Count_1 0187 00d9 | | Load_Top At_Offset_1 0188 00eb | | Load_Encached Diana_Cache 0189 18ec | | Execute Package,Field_Execute,Field_Number 0xec 018a 8007 | | Call 0x0,0x7 018b 8009 | | Call 0x0,0x9 018c 8002 | | Call 0x0,0x2 018d a402 | | Store_Unchecked 0x2,0x2 018e e402 | | Load 0x2,0x2 018f 00eb | | Load_Encached Diana_Cache 0190 18cd | | Execute Package,Field_Execute,Field_Number 0xcd 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 00d9 | | Load_Top At_Offset_1 0193 8007 | | Call 0x0,0x7 0194 800a | | Call 0x0,0xa 0195 8002 | | Call 0x0,0x2 0196 a402 | | Store_Unchecked 0x2,0x2 0197 e402 | | Load 0x2,0x2 0198 00eb | | Load_Encached Diana_Cache 0199 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 019a 0033 | 3 | Store_Top Heap_Access,At_Offset_3 019b 00da | | Load_Top At_Offset_2 019c 4904 |I | Short_Literal 0x104 019d 00eb | | Load_Encached Diana_Cache 019e 0096 | | Execute Package,Entry 019f 00eb | | Load_Encached Diana_Cache 01a0 18da | | Execute Package,Field_Execute,Field_Number 0xda 01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a2 00d1 | | Pop_Control Pop_Count_1 01a3 00d9 | | Load_Top At_Offset_1 01a4 8007 | | Call 0x0,0x7 01a5 800a | | Call 0x0,0xa 01a6 8002 | | Call 0x0,0x2 01a7 a402 | | Store_Unchecked 0x2,0x2 01a8 e402 | | Load 0x2,0x2 01a9 00eb | | Load_Encached Diana_Cache 01aa 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 01ab a403 | | Store_Unchecked 0x2,0x3 01ac e403 | | Load 0x2,0x3 01ad 4904 |I | Short_Literal 0x104 01ae 00eb | | Load_Encached Diana_Cache 01af 0096 | | Execute Package,Entry 01b0 00eb | | Load_Encached Diana_Cache 01b1 18da | | Execute Package,Field_Execute,Field_Number 0xda 01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b3 00d9 | | Load_Top At_Offset_1 01b4 8007 | | Call 0x0,0x7 01b5 800b | | Call 0x0,0xb 01b6 8002 | | Call 0x0,0x2 01b7 a402 | | Store_Unchecked 0x2,0x2 01b8 e402 | | Load 0x2,0x2 01b9 00eb | | Load_Encached Diana_Cache 01ba 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 01bb a404 | | Store_Unchecked 0x2,0x4 01bc 00db | | Load_Top At_Offset_3 01bd 4904 |I | Short_Literal 0x104 01be 00eb | | Load_Encached Diana_Cache 01bf 0096 | | Execute Package,Entry 01c0 00eb | | Load_Encached Diana_Cache 01c1 18da | | Execute Package,Field_Execute,Field_Number 0xda 01c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c3 00ec | | Load_Encached Diana_Tree_Cache 01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c5 00d9 | | Load_Top At_Offset_1 01c6 00eb | | Load_Encached Diana_Cache 01c7 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01c8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01c9 00c9 | | Action Pop_Auxiliary_Loop 01ca 7f9e | | Jump 0x169 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01de | | .CONST 0x01de ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0006 | | .CONST 0x0006 ; Number of locals 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 4976 |Iv | Short_Literal 0x176 01d5 00eb | | Load_Encached Diana_Cache 01d6 0098 | | Execute Package,Field_Read_Dynamic 01d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d8 00ec | | Load_Encached Diana_Tree_Cache 01d9 00d9 | | Load_Top At_Offset_1 01da 0007 | | Action Break_Optional 01db 00ec | | Load_Encached Diana_Tree_Cache 01dc 00e4 | | Load_Encached Positive_Cache 01dd 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01de BODY_01d0: 01de 00cf | | Action Mark_Auxiliary 01df 00db | | Load_Top At_Offset_3 01e0 00eb | | Load_Encached Diana_Cache 01e1 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 01e2 a403 | | Store_Unchecked 0x2,0x3 01e3 e403 | | Load 0x2,0x3 01e4 00eb | | Load_Encached Diana_Cache 01e5 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01e6 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01e7 00cf | | Action Mark_Auxiliary 01e8 00db | | Load_Top At_Offset_3 01e9 7001 |p | Jump_Nonzero 0x1eb 01ea 7818 |x | Jump 0x203 01eb 00db | | Load_Top At_Offset_3 01ec 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01ed 0b94 | | Execute_Immediate Case_Compare,0x94 01ee 7003 |p | Jump_Nonzero 0x1f2 01ef 0f8f | | Execute_Immediate Equal,-0x71 01f0 7002 |p | Jump_Nonzero 0x1f3 01f1 780b |x | Jump 0x1fd 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 00da | | Load_Top At_Offset_2 01f4 e5fe | | Load 0x2,-0x2 01f5 027f | | Execute Discrete,Equal 01f6 6802 |h | Jump_Zero 0x1f9 01f7 e403 | | Load 0x2,0x3 01f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f9 00da | | Load_Top At_Offset_2 01fa 0a01 | | Execute_Immediate Plus,0x1 01fb 005b | [ | Store_Top Discrete,At_Offset_3 01fc 7806 |x | Jump 0x203 01fd 00db | | Load_Top At_Offset_3 01fe 00eb | | Load_Encached Diana_Cache 01ff 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0200 a405 | | Store_Unchecked 0x2,0x5 0201 00c9 | | Action Pop_Auxiliary_Loop 0202 7fe5 | | Jump 0x1e8 0203 00ce | | Action Pop_Auxiliary 0204 00db | | Load_Top At_Offset_3 0205 0217 | | Execute Heap_Access,All_Reference 0206 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0207 a404 | | Store_Unchecked 0x2,0x4 0208 00db | | Load_Top At_Offset_3 0209 700a |p | Jump_Nonzero 0x214 020a 0092 021e | | Action Push_String_Extended,0x21e ; "No parameter found at position" 020c e5fe | | Load 0x2,-0x2 020d 00e0 | | Load_Encached Standard_Cache 020e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 020f 01cc | | Execute Vector,Catenate 0210 e003 | | Load 0x0,0x3 0211 8004 | | Call 0x0,0x4 0212 e005 | | Load 0x0,0x5 0213 0257 | W | Execute Discrete,Raise 0214 00c9 | | Action Pop_Auxiliary_Loop 0215 7fc9 | | Jump 0x1df 0216 ; -------------------------------------------------------------------------------------- 0216 ; STRING TABLE 0216 ; -------------------------------------------------------------------------------------- 0216 0014 | | .STRTAB 0x0014->0x0220 ; "NAMED_ASSOCIATION" 0217 0023 | # | .STRTAB 0x0023->0x0228 ; "POSITIONAL_ASSOCIATION" 0218 0037 | 7 | .STRTAB 0x0037->0x0233 ; "DEFAULTED" 0219 003e | > | .STRTAB 0x003e->0x0238 ; "NOT_AN_ASSOCIATION" 021a 004e | N | .STRTAB 0x004e->0x0241 ; "Unexpected context for an actual parameter" 021b 0076 | v | .STRTAB 0x0076->0x0256 ; "Parameter declaration contains zero parameters" 021c 00a2 | | .STRTAB 0x00a2->0x026d ; "Element is not an Association" 021d 00bd | | .STRTAB 0x00bd->0x027b ; "Root encountered while looking for a valid association context" 021e 00f9 | | .STRTAB 0x00f9->0x029a ; "No parameter found at position" 021f 0115 | | .STREND 0x0115->0x02a9 0220 4e41 4d45 |NAME| .STRTAB_STRINGS 02aa 0000 0000 | | .BLANK 0000[0x6] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d83,0x0000,0x0001,0x0000 02b6 0000 0000 | | .BLANK 0000[0x14a]