|
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_6a18da
└─⟦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 0408 | | .CONST 0x0408 ; 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 0030 | 0 | .CONST 0x0030 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0011 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call 0016 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 0018 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 001a 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 001c 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 001e 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 0020 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0022 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0024 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0027 00c7 | | Action Elaborate_Subprogram 0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0029 00c7 | | Action Elaborate_Subprogram 002a 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002d 00c7 | | Action Elaborate_Subprogram 002e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002f 00c7 | | Action Elaborate_Subprogram 0030 BODY_0008: 0030 00bc | | Action Signal_Activated 0031 00bb | | Action Signal_Completion 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004c | L | .CONST 0x004c ; Address of begin 0039 0090 | | .CONST 0x0090 ; Address of exception handler 003a 0005 | | .CONST 0x0005 ; Number of locals 003b INIT_0038: 003b e001 | | Load 0x0,0x1 003c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 003d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 003e 02c7 | | Declare_Variable Any 003f 00d8 | | Load_Top At_Offset_0 0040 1c00 | | Execute_Immediate Run_Utility,0x0 0041 00e1 | | Load_Encached Boolean_Cache 0042 e001 | | Load 0x0,0x1 0043 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0044 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0045 02c7 | | Declare_Variable Any 0046 00d8 | | Load_Top At_Offset_0 0047 1c00 | | Execute_Immediate Run_Utility,0x0 0048 00ec | | Load_Encached Diana_Tree_Cache 0049 02c7 | | Declare_Variable Any 004a 00d8 | | Load_Top At_Offset_0 004b 1c00 | | Execute_Immediate Run_Utility,0x0 004c BODY_0038: 004c 00e1 | | Load_Encached Boolean_Cache 004d e402 | | Load 0x2,0x2 004e 0120 | | Execute Any,Is_Value 004f 6804 |h | Jump_Zero 0x54 0050 e001 | | Load 0x0,0x1 0051 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0052 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0053 7801 |x | Jump 0x55 0054 e402 | | Load 0x2,0x2 0055 e5fe | | Load 0x2,-0x2 0056 e5ff | | Load 0x2,-0x1 0057 8217 | | Call 0x1,0x17 0058 8218 | | Call 0x1,0x18 0059 c402 | | Store 0x2,0x2 005a 005b | [ | Store_Top Discrete,At_Offset_3 005b 00da | | Load_Top At_Offset_2 005c 7002 |p | Jump_Nonzero 0x5f 005d 00f1 | | Load_Encached Diana_Temp_Seq 005e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 005f 00db | | Load_Top At_Offset_3 0060 e001 | | Load 0x0,0x1 0061 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0062 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0063 c404 | | Store 0x2,0x4 0064 00d9 | | Load_Top At_Offset_1 0065 e001 | | Load 0x0,0x1 0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0067 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0068 6812 |h | Jump_Zero 0x7b 0069 00d8 | | Load_Top At_Offset_0 006a 0120 | | Execute Any,Is_Value 006b 6802 |h | Jump_Zero 0x6e 006c 00ec | | Load_Encached Diana_Tree_Cache 006d 7801 |x | Jump 0x6f 006e 00d8 | | Load_Top At_Offset_0 006f e5ff | | Load 0x2,-0x1 0070 4800 |H | Short_Literal 0x0 0071 e5fe | | Load 0x2,-0x2 0072 00eb | | Load_Encached Diana_Cache 0073 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0074 e402 | | Load 0x2,0x2 0075 e001 | | Load 0x0,0x1 0076 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0077 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0078 8219 | | Call 0x1,0x19 0079 c405 | | Store 0x2,0x5 007a 780c |x | Jump 0x87 007b 00d9 | | Load_Top At_Offset_1 007c e001 | | Load 0x0,0x1 007d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 007e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 007f e5ff | | Load 0x2,-0x1 0080 e002 | | Load 0x0,0x2 0081 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0082 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0084 e003 | | Load 0x0,0x3 0085 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0086 c405 | | Store 0x2,0x5 0087 00d8 | | Load_Top At_Offset_0 0088 7002 |p | Jump_Nonzero 0x8b 0089 00f1 | | Load_Encached Diana_Temp_Seq 008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008b 00f1 | | Load_Encached Diana_Temp_Seq 008c 00d9 | | Load_Top At_Offset_1 008d 00eb | | Load_Encached Diana_Cache 008e 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 008f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0090 TRAP_0038: 0090 e004 | | Load 0x0,0x4 0091 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0092 010f | | Execute Exception,Equal 0093 7004 |p | Jump_Nonzero 0x98 0094 e001 | | Load 0x0,0x1 0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0096 010f | | Execute Exception,Equal 0097 6802 |h | Jump_Zero 0x9a 0098 00f1 | | Load_Encached Diana_Temp_Seq 0099 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009a e5fe | | Load 0x2,-0x2 009b e5ff | | Load 0x2,-0x1 009c 8005 | | Call 0x0,0x5 009d 00f1 | | Load_Encached Diana_Temp_Seq 009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00be | | .CONST 0x00be ; Address of begin 00a1 0102 | | .CONST 0x0102 ; Address of exception handler 00a2 0007 | | .CONST 0x0007 ; Number of locals 00a3 INIT_00a0: 00a3 00ec | | Load_Encached Diana_Tree_Cache 00a4 02c7 | | Declare_Variable Any 00a5 e5fe | | Load 0x2,-0x2 00a6 a402 | | Store_Unchecked 0x2,0x2 00a7 00ec | | Load_Encached Diana_Tree_Cache 00a8 02c7 | | Declare_Variable Any 00a9 00d9 | | Load_Top At_Offset_1 00aa 00eb | | Load_Encached Diana_Cache 00ab 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 00ac a403 | | Store_Unchecked 0x2,0x3 00ad e001 | | Load 0x0,0x1 00ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00af 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00b0 02c7 | | Declare_Variable Any 00b1 00d8 | | Load_Top At_Offset_0 00b2 1c00 | | Execute_Immediate Run_Utility,0x0 00b3 00e1 | | Load_Encached Boolean_Cache 00b4 00ec | | Load_Encached Diana_Tree_Cache 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e001 | | Load 0x0,0x1 00b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ba 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00bb 02c7 | | Declare_Variable Any 00bc 00d8 | | Load_Top At_Offset_0 00bd 1c00 | | Execute_Immediate Run_Utility,0x0 00be BODY_00a0: 00be 00e1 | | Load_Encached Boolean_Cache 00bf e404 | | Load 0x2,0x4 00c0 0120 | | Execute Any,Is_Value 00c1 6804 |h | Jump_Zero 0xc6 00c2 e001 | | Load 0x0,0x1 00c3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00c5 7801 |x | Jump 0xc7 00c6 e404 | | Load 0x2,0x4 00c7 e403 | | Load 0x2,0x3 00c8 e5ff | | Load 0x2,-0x1 00c9 8217 | | Call 0x1,0x17 00ca 8218 | | Call 0x1,0x18 00cb c404 | | Store 0x2,0x4 00cc 005b | [ | Store_Top Discrete,At_Offset_3 00cd 00da | | Load_Top At_Offset_2 00ce 7002 |p | Jump_Nonzero 0xd1 00cf 00f1 | | Load_Encached Diana_Temp_Seq 00d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d1 00db | | Load_Top At_Offset_3 00d2 e001 | | Load 0x0,0x1 00d3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00d4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00d5 c407 | | Store 0x2,0x7 00d6 00d8 | | Load_Top At_Offset_0 00d7 e001 | | Load 0x0,0x1 00d8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00d9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00da 6812 |h | Jump_Zero 0xed 00db 00d9 | | Load_Top At_Offset_1 00dc 0120 | | Execute Any,Is_Value 00dd 6802 |h | Jump_Zero 0xe0 00de 00ec | | Load_Encached Diana_Tree_Cache 00df 7801 |x | Jump 0xe1 00e0 00d9 | | Load_Top At_Offset_1 00e1 e5ff | | Load 0x2,-0x1 00e2 4800 |H | Short_Literal 0x0 00e3 e403 | | Load 0x2,0x3 00e4 00eb | | Load_Encached Diana_Cache 00e5 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 00e6 e404 | | Load 0x2,0x4 00e7 e001 | | Load 0x0,0x1 00e8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00e9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00ea 8219 | | Call 0x1,0x19 00eb c406 | | Store 0x2,0x6 00ec 780c |x | Jump 0xf9 00ed 00d8 | | Load_Top At_Offset_0 00ee e001 | | Load 0x0,0x1 00ef 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f1 e5ff | | Load 0x2,-0x1 00f2 e002 | | Load 0x0,0x2 00f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f6 e003 | | Load 0x0,0x3 00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f8 c406 | | Store 0x2,0x6 00f9 00d9 | | Load_Top At_Offset_1 00fa 7002 |p | Jump_Nonzero 0xfd 00fb 00f1 | | Load_Encached Diana_Temp_Seq 00fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fd 00f1 | | Load_Encached Diana_Temp_Seq 00fe 00da | | Load_Top At_Offset_2 00ff 00eb | | Load_Encached Diana_Cache 0100 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0101 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0102 TRAP_00a0: 0102 e004 | | Load 0x0,0x4 0103 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0104 010f | | Execute Exception,Equal 0105 7004 |p | Jump_Nonzero 0x10a 0106 e001 | | Load 0x0,0x1 0107 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0108 010f | | Execute Exception,Equal 0109 6802 |h | Jump_Zero 0x10c 010a 00f1 | | Load_Encached Diana_Temp_Seq 010b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010c e5fe | | Load 0x2,-0x2 010d e5ff | | Load 0x2,-0x1 010e 8005 | | Call 0x0,0x5 010f 00f1 | | Load_Encached Diana_Temp_Seq 0110 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 013d | = | .CONST 0x013d ; Address of begin 0119 01b9 | | .CONST 0x01b9 ; Address of exception handler 011a 0009 | | .CONST 0x0009 ; Number of locals 011b INIT_0118: 011b e001 | | Load 0x0,0x1 011c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 011d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 011e 02c7 | | Declare_Variable Any 011f 00d8 | | Load_Top At_Offset_0 0120 1c00 | | Execute_Immediate Run_Utility,0x0 0121 00e1 | | Load_Encached Boolean_Cache 0122 e001 | | Load 0x0,0x1 0123 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0124 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0125 02c7 | | Declare_Variable Any 0126 00d8 | | Load_Top At_Offset_0 0127 1c00 | | Execute_Immediate Run_Utility,0x0 0128 e001 | | Load 0x0,0x1 0129 1b15 | | Execute Package,Field_Read,Field_Number 0x15 012a 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 012b 02c7 | | Declare_Variable Any 012c 00d8 | | Load_Top At_Offset_0 012d 1c00 | | Execute_Immediate Run_Utility,0x0 012e e001 | | Load 0x0,0x1 012f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0130 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0131 02c7 | | Declare_Variable Any 0132 00d8 | | Load_Top At_Offset_0 0133 1c00 | | Execute_Immediate Run_Utility,0x0 0134 00ec | | Load_Encached Diana_Tree_Cache 0135 02c7 | | Declare_Variable Any 0136 00d8 | | Load_Top At_Offset_0 0137 1c00 | | Execute_Immediate Run_Utility,0x0 0138 00ec | | Load_Encached Diana_Tree_Cache 0139 02c7 | | Declare_Variable Any 013a 00d8 | | Load_Top At_Offset_0 013b 1c00 | | Execute_Immediate Run_Utility,0x0 013c 00e1 | | Load_Encached Boolean_Cache 013d BODY_0118: 013d 4800 |H | Short_Literal 0x0 013e a5fc | | Store_Unchecked 0x2,-0x4 013f 00e1 | | Load_Encached Boolean_Cache 0140 e402 | | Load 0x2,0x2 0141 0120 | | Execute Any,Is_Value 0142 6804 |h | Jump_Zero 0x147 0143 e001 | | Load 0x0,0x1 0144 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0145 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0146 7801 |x | Jump 0x148 0147 e402 | | Load 0x2,0x2 0148 e5fe | | Load 0x2,-0x2 0149 e5ff | | Load 0x2,-0x1 014a 8217 | | Call 0x1,0x17 014b 8218 | | Call 0x1,0x18 014c c402 | | Store 0x2,0x2 014d c403 | | Store 0x2,0x3 014e e403 | | Load 0x2,0x3 014f 7003 |p | Jump_Nonzero 0x153 0150 4801 |H | Short_Literal 0x1 0151 a5fc | | Store_Unchecked 0x2,-0x4 0152 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0153 e402 | | Load 0x2,0x2 0154 e001 | | Load 0x0,0x1 0155 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0156 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0157 c406 | | Store 0x2,0x6 0158 e402 | | Load 0x2,0x2 0159 e001 | | Load 0x0,0x1 015a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 015b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 015c c405 | | Store 0x2,0x5 015d e402 | | Load 0x2,0x2 015e e001 | | Load 0x0,0x1 015f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0160 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0161 c404 | | Store 0x2,0x4 0162 e405 | | Load 0x2,0x5 0163 e001 | | Load 0x0,0x1 0164 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0165 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0166 7007 |p | Jump_Nonzero 0x16e 0167 4801 |H | Short_Literal 0x1 0168 a5fc | | Store_Unchecked 0x2,-0x4 0169 0092 03ba | | Action Push_String_Extended,0x3ba ; " should have one parameter" 016b e5fe | | Load 0x2,-0x2 016c e5ff | | Load 0x2,-0x1 016d 8211 | | Call 0x1,0x11 016e e404 | | Load 0x2,0x4 016f e001 | | Load 0x0,0x1 0170 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0171 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0172 6813 |h | Jump_Zero 0x186 0173 00da | | Load_Top At_Offset_2 0174 0120 | | Execute Any,Is_Value 0175 6802 |h | Jump_Zero 0x178 0176 00ec | | Load_Encached Diana_Tree_Cache 0177 7801 |x | Jump 0x179 0178 00da | | Load_Top At_Offset_2 0179 e5ff | | Load 0x2,-0x1 017a 4801 |H | Short_Literal 0x1 017b e5fe | | Load 0x2,-0x2 017c 00eb | | Load_Encached Diana_Cache 017d 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 017e e406 | | Load 0x2,0x6 017f 8219 | | Call 0x1,0x19 0180 c407 | | Store 0x2,0x7 0181 00da | | Load_Top At_Offset_2 0182 7010 |p | Jump_Nonzero 0x193 0183 4801 |H | Short_Literal 0x1 0184 a5fc | | Store_Unchecked 0x2,-0x4 0185 780d |x | Jump 0x193 0186 00e1 | | Load_Encached Boolean_Cache 0187 e5ff | | Load 0x2,-0x1 0188 4801 |H | Short_Literal 0x1 0189 e5fe | | Load 0x2,-0x2 018a 00eb | | Load_Encached Diana_Cache 018b 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 018c e406 | | Load 0x2,0x6 018d 821a | | Call 0x1,0x1a 018e 0059 | Y | Store_Top Discrete,At_Offset_1 018f 00d8 | | Load_Top At_Offset_0 0190 7002 |p | Jump_Nonzero 0x193 0191 4801 |H | Short_Literal 0x1 0192 a5fc | | Store_Unchecked 0x2,-0x4 0193 e404 | | Load 0x2,0x4 0194 e001 | | Load 0x0,0x1 0195 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0196 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0197 6803 |h | Jump_Zero 0x19b 0198 00da | | Load_Top At_Offset_2 0199 c408 | | Store 0x2,0x8 019a 780c |x | Jump 0x1a7 019b e404 | | Load 0x2,0x4 019c e001 | | Load 0x0,0x1 019d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 019e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 019f e5ff | | Load 0x2,-0x1 01a0 e002 | | Load 0x0,0x2 01a1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a4 e003 | | Load 0x0,0x3 01a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01a6 c408 | | Store 0x2,0x8 01a7 e5fe | | Load 0x2,-0x2 01a8 00da | | Load_Top At_Offset_2 01a9 e5fd | | Load 0x2,-0x3 01aa e5ff | | Load 0x2,-0x1 01ab e002 | | Load 0x0,0x2 01ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01af 7008 |p | Jump_Nonzero 0x1b8 01b0 4801 |H | Short_Literal 0x1 01b1 a5fc | | Store_Unchecked 0x2,-0x4 01b2 e5fd | | Load 0x2,-0x3 01b3 0092 03bb | | Action Push_String_Extended,0x3bb ; " does not convert to " 01b5 e5fe | | Load 0x2,-0x2 01b6 e5ff | | Load 0x2,-0x1 01b7 8212 | | Call 0x1,0x12 01b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01b9 TRAP_0118: 01b9 e004 | | Load 0x0,0x4 01ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01bb 010f | | Execute Exception,Equal 01bc 7004 |p | Jump_Nonzero 0x1c1 01bd e001 | | Load 0x0,0x1 01be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bf 010f | | Execute Exception,Equal 01c0 6801 |h | Jump_Zero 0x1c2 01c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01c2 e5fe | | Load 0x2,-0x2 01c3 e5ff | | Load 0x2,-0x1 01c4 8005 | | Call 0x0,0x5 01c5 4801 |H | Short_Literal 0x1 01c6 a5fc | | Store_Unchecked 0x2,-0x4 01c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01fb | | .CONST 0x01fb ; Address of begin 01c9 02a8 | | .CONST 0x02a8 ; Address of exception handler 01ca 000c | | .CONST 0x000c ; Number of locals 01cb INIT_01c8: 01cb e001 | | Load 0x0,0x1 01cc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01cd 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01ce 02c7 | | Declare_Variable Any 01cf 00d8 | | Load_Top At_Offset_0 01d0 1c00 | | Execute_Immediate Run_Utility,0x0 01d1 00ec | | Load_Encached Diana_Tree_Cache 01d2 02c7 | | Declare_Variable Any 01d3 e5fe | | Load 0x2,-0x2 01d4 00eb | | Load_Encached Diana_Cache 01d5 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 01d6 a403 | | Store_Unchecked 0x2,0x3 01d7 00e1 | | Load_Encached Boolean_Cache 01d8 e001 | | Load 0x0,0x1 01d9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01da 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01db 02c7 | | Declare_Variable Any 01dc 00d8 | | Load_Top At_Offset_0 01dd 1c00 | | Execute_Immediate Run_Utility,0x0 01de e001 | | Load 0x0,0x1 01df 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01e0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e1 02c7 | | Declare_Variable Any 01e2 00d8 | | Load_Top At_Offset_0 01e3 1c00 | | Execute_Immediate Run_Utility,0x0 01e4 e001 | | Load 0x0,0x1 01e5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e7 02c7 | | Declare_Variable Any 01e8 00d8 | | Load_Top At_Offset_0 01e9 1c00 | | Execute_Immediate Run_Utility,0x0 01ea 00ec | | Load_Encached Diana_Tree_Cache 01eb 02c7 | | Declare_Variable Any 01ec 00d8 | | Load_Top At_Offset_0 01ed 1c00 | | Execute_Immediate Run_Utility,0x0 01ee 00ec | | Load_Encached Diana_Tree_Cache 01ef 02c7 | | Declare_Variable Any 01f0 00d8 | | Load_Top At_Offset_0 01f1 1c00 | | Execute_Immediate Run_Utility,0x0 01f2 00ec | | Load_Encached Diana_Tree_Cache 01f3 02c7 | | Declare_Variable Any 01f4 00d8 | | Load_Top At_Offset_0 01f5 1c00 | | Execute_Immediate Run_Utility,0x0 01f6 00ec | | Load_Encached Diana_Tree_Cache 01f7 02c7 | | Declare_Variable Any 01f8 00d8 | | Load_Top At_Offset_0 01f9 1c00 | | Execute_Immediate Run_Utility,0x0 01fa 00e1 | | Load_Encached Boolean_Cache 01fb BODY_01c8: 01fb 4800 |H | Short_Literal 0x0 01fc a5fc | | Store_Unchecked 0x2,-0x4 01fd 00e1 | | Load_Encached Boolean_Cache 01fe e402 | | Load 0x2,0x2 01ff 0120 | | Execute Any,Is_Value 0200 6804 |h | Jump_Zero 0x205 0201 e001 | | Load 0x0,0x1 0202 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0203 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0204 7801 |x | Jump 0x206 0205 e402 | | Load 0x2,0x2 0206 e403 | | Load 0x2,0x3 0207 e5ff | | Load 0x2,-0x1 0208 8217 | | Call 0x1,0x17 0209 8218 | | Call 0x1,0x18 020a c402 | | Store 0x2,0x2 020b c404 | | Store 0x2,0x4 020c e404 | | Load 0x2,0x4 020d 7003 |p | Jump_Nonzero 0x211 020e 4801 |H | Short_Literal 0x1 020f a5fc | | Store_Unchecked 0x2,-0x4 0210 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0211 e402 | | Load 0x2,0x2 0212 e001 | | Load 0x0,0x1 0213 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0214 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0215 c407 | | Store 0x2,0x7 0216 e402 | | Load 0x2,0x2 0217 e001 | | Load 0x0,0x1 0218 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0219 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 021a c405 | | Store 0x2,0x5 021b e402 | | Load 0x2,0x2 021c e001 | | Load 0x0,0x1 021d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 021e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 021f c406 | | Store 0x2,0x6 0220 e405 | | Load 0x2,0x5 0221 e001 | | Load 0x0,0x1 0222 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0223 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0224 7005 |p | Jump_Nonzero 0x22a 0225 e405 | | Load 0x2,0x5 0226 e001 | | Load 0x0,0x1 0227 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0228 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0229 7005 |p | Jump_Nonzero 0x22f 022a e406 | | Load 0x2,0x6 022b e001 | | Load 0x0,0x1 022c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 022d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 022e 6813 |h | Jump_Zero 0x242 022f e408 | | Load 0x2,0x8 0230 0120 | | Execute Any,Is_Value 0231 6802 |h | Jump_Zero 0x234 0232 00ec | | Load_Encached Diana_Tree_Cache 0233 7801 |x | Jump 0x235 0234 e408 | | Load 0x2,0x8 0235 e5ff | | Load 0x2,-0x1 0236 4801 |H | Short_Literal 0x1 0237 e403 | | Load 0x2,0x3 0238 00eb | | Load_Encached Diana_Cache 0239 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 023a e407 | | Load 0x2,0x7 023b 8219 | | Call 0x1,0x19 023c c408 | | Store 0x2,0x8 023d e408 | | Load 0x2,0x8 023e 7010 |p | Jump_Nonzero 0x24f 023f 4801 |H | Short_Literal 0x1 0240 a5fc | | Store_Unchecked 0x2,-0x4 0241 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0242 00e1 | | Load_Encached Boolean_Cache 0243 e5ff | | Load 0x2,-0x1 0244 4801 |H | Short_Literal 0x1 0245 e403 | | Load 0x2,0x3 0246 00eb | | Load_Encached Diana_Cache 0247 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0248 e407 | | Load 0x2,0x7 0249 821a | | Call 0x1,0x1a 024a 0059 | Y | Store_Top Discrete,At_Offset_1 024b 00d8 | | Load_Top At_Offset_0 024c 7002 |p | Jump_Nonzero 0x24f 024d 4801 |H | Short_Literal 0x1 024e a5fc | | Store_Unchecked 0x2,-0x4 024f e406 | | Load 0x2,0x6 0250 e001 | | Load 0x0,0x1 0251 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0252 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0253 6803 |h | Jump_Zero 0x257 0254 e408 | | Load 0x2,0x8 0255 c409 | | Store 0x2,0x9 0256 780c |x | Jump 0x263 0257 e406 | | Load 0x2,0x6 0258 e001 | | Load 0x0,0x1 0259 1b15 | | Execute Package,Field_Read,Field_Number 0x15 025a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 025b e5ff | | Load 0x2,-0x1 025c e002 | | Load 0x0,0x2 025d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 025e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0260 e003 | | Load 0x0,0x3 0261 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0262 c409 | | Store 0x2,0x9 0263 00db | | Load_Top At_Offset_3 0264 7003 |p | Jump_Nonzero 0x268 0265 4801 |H | Short_Literal 0x1 0266 a5fc | | Store_Unchecked 0x2,-0x4 0267 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0268 e5fe | | Load 0x2,-0x2 0269 e409 | | Load 0x2,0x9 026a e5fd | | Load 0x2,-0x3 026b e5ff | | Load 0x2,-0x1 026c e002 | | Load 0x0,0x2 026d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 026e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 026f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0270 7008 |p | Jump_Nonzero 0x279 0271 4801 |H | Short_Literal 0x1 0272 a5fc | | Store_Unchecked 0x2,-0x4 0273 e5fd | | Load 0x2,-0x3 0274 0092 03bc | | Action Push_String_Extended,0x3bc ; " does not match " 0276 e5fe | | Load 0x2,-0x2 0277 e5ff | | Load 0x2,-0x1 0278 8212 | | Call 0x1,0x12 0279 e405 | | Load 0x2,0x5 027a e001 | | Load 0x0,0x1 027b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 027c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 027d 6808 |h | Jump_Zero 0x286 027e 0092 03bd | | Action Push_String_Extended,0x3bd ; " should not have a parameter" 0280 e5fe | | Load 0x2,-0x2 0281 e5ff | | Load 0x2,-0x1 0282 8211 | | Call 0x1,0x11 0283 4801 |H | Short_Literal 0x1 0284 a5fc | | Store_Unchecked 0x2,-0x4 0285 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0286 e5fe | | Load 0x2,-0x2 0287 00eb | | Load_Encached Diana_Cache 0288 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0289 c40b | | Store 0x2,0xb 028a e405 | | Load 0x2,0x5 028b e001 | | Load 0x0,0x1 028c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 028d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 028e 6809 |h | Jump_Zero 0x298 028f 00d9 | | Load_Top At_Offset_1 0290 e408 | | Load 0x2,0x8 0291 e5ff | | Load 0x2,-0x1 0292 e002 | | Load 0x0,0x2 0293 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0294 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0295 180e | | Execute Package,Field_Execute,Field_Number 0xe 0296 c40b | | Store 0x2,0xb 0297 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0298 00e1 | | Load_Encached Boolean_Cache 0299 00da | | Load_Top At_Offset_2 029a e5ff | | Load 0x2,-0x1 029b e405 | | Load 0x2,0x5 029c e001 | | Load 0x0,0x1 029d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 029e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 029f e003 | | Load 0x0,0x3 02a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02a1 c40b | | Store 0x2,0xb 02a2 0059 | Y | Store_Top Discrete,At_Offset_1 02a3 00d8 | | Load_Top At_Offset_0 02a4 7002 |p | Jump_Nonzero 0x2a7 02a5 4801 |H | Short_Literal 0x1 02a6 a5fc | | Store_Unchecked 0x2,-0x4 02a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a8 TRAP_01c8: 02a8 e004 | | Load 0x0,0x4 02a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02aa 010f | | Execute Exception,Equal 02ab 7004 |p | Jump_Nonzero 0x2b0 02ac e001 | | Load 0x0,0x1 02ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ae 010f | | Execute Exception,Equal 02af 6801 |h | Jump_Zero 0x2b1 02b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02b1 e5fe | | Load 0x2,-0x2 02b2 e5ff | | Load 0x2,-0x1 02b3 8005 | | Call 0x0,0x5 02b4 4801 |H | Short_Literal 0x1 02b5 a5fc | | Store_Unchecked 0x2,-0x4 02b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00db | | Load_Top At_Offset_3 02bc 6808 |h | Jump_Zero 0x2c5 02bd 00ea | | Load_Encached Null_String_Cache 02be e5fd | | Load 0x2,-0x3 02bf e5fe | | Load 0x2,-0x2 02c0 e5ff | | Load 0x2,-0x1 02c1 e002 | | Load 0x0,0x2 02c2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c4 180f | | Execute Package,Field_Execute,Field_Number 0xf 02c5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00db | | Load_Top At_Offset_3 02cc 6809 |h | Jump_Zero 0x2d6 02cd 00ea | | Load_Encached Null_String_Cache 02ce e5fc | | Load 0x2,-0x4 02cf e5fd | | Load 0x2,-0x3 02d0 e5fe | | Load 0x2,-0x2 02d1 e5ff | | Load 0x2,-0x1 02d2 e002 | | Load 0x0,0x2 02d3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02d7 0000 | | .XXX[0x1] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00db | | Load_Top At_Offset_3 02dc 6808 |h | Jump_Zero 0x2e5 02dd 00ea | | Load_Encached Null_String_Cache 02de e5fd | | Load 0x2,-0x3 02df e5fe | | Load 0x2,-0x2 02e0 e5ff | | Load 0x2,-0x1 02e1 e002 | | Load 0x0,0x2 02e2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02e3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00db | | Load_Top At_Offset_3 02ec 6809 |h | Jump_Zero 0x2f6 02ed 00ea | | Load_Encached Null_String_Cache 02ee e5fc | | Load 0x2,-0x4 02ef e5fd | | Load 0x2,-0x3 02f0 e5fe | | Load 0x2,-0x2 02f1 e5ff | | Load 0x2,-0x1 02f2 e002 | | Load 0x0,0x2 02f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02f6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02f7 0000 | | .XXX[0x1] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 0092 03be | | Action Push_String_Extended,0x3be ; " is an unexpected node" 02fd e5fe | | Load 0x2,-0x2 02fe e5ff | | Load 0x2,-0x1 02ff 8213 | | Call 0x1,0x13 0300 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b e5fd | | Load 0x2,-0x3 030c 0092 03bf | | Action Push_String_Extended,0x3bf ; " led to unexpected node " 030e e5fe | | Load 0x2,-0x2 030f e5ff | | Load 0x2,-0x1 0310 8214 | | Call 0x1,0x14 0311 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0312 0000 0000 | | .BLANK 0000[0x6] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c e002 | | Load 0x0,0x2 031d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 031e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 031f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0320 e004 | | Load 0x0,0x4 0321 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0322 e001 | | Load 0x0,0x1 0323 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0324 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0325 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0332 | 2 | .CONST 0x0332 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0002 | | .CONST 0x0002 ; Number of locals 032b INIT_0328: 032b 00db | | Load_Top At_Offset_3 032c 00eb | | Load_Encached Diana_Cache 032d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 032e 00eb | | Load_Encached Diana_Cache 032f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0330 00eb | | Load_Encached Diana_Cache 0331 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0332 BODY_0328: 0332 4800 |H | Short_Literal 0x0 0333 a5fc | | Store_Unchecked 0x2,-0x4 0334 00cf | | Action Mark_Auxiliary 0335 e5ff | | Load 0x2,-0x1 0336 01d9 | | Execute Vector,Reverse_Bounds 0337 0263 | c | Execute Discrete,Above_Bound 0338 7014 |p | Jump_Nonzero 0x34d 0339 4801 |H | Short_Literal 0x1 033a 00d9 | | Load_Top At_Offset_1 033b e5ff | | Load 0x2,-0x1 033c 01d7 | | Execute Vector,Field_Read 033d e001 | | Load 0x0,0x1 033e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 033f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0340 e402 | | Load 0x2,0x2 0341 e006 | | Load 0x0,0x6 0342 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0343 6807 |h | Jump_Zero 0x34b 0344 4801 |H | Short_Literal 0x1 0345 a5fc | | Store_Unchecked 0x2,-0x4 0346 00d8 | | Load_Top At_Offset_0 0347 e5ff | | Load 0x2,-0x1 0348 01d7 | | Execute Vector,Field_Read 0349 c5fd | | Store 0x2,-0x3 034a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 034b 00c8 | | Action Pop_Auxiliary_Range 034c 3fec |? | Loop_Increasing 0x339 034d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 034e 0000 0000 | | .XXX[0x2] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035c | \ | .CONST 0x035c ; Address of begin 0351 0385 | | .CONST 0x0385 ; Address of exception handler 0352 0004 | | .CONST 0x0004 ; Number of locals 0353 INIT_0350: 0353 00f1 | | Load_Encached Diana_Temp_Seq 0354 02c7 | | Declare_Variable Any 0355 00d8 | | Load_Top At_Offset_0 0356 1c00 | | Execute_Immediate Run_Utility,0x0 0357 00e1 | | Load_Encached Boolean_Cache 0358 00ec | | Load_Encached Diana_Tree_Cache 0359 02c7 | | Declare_Variable Any 035a e5fe | | Load 0x2,-0x2 035b a404 | | Store_Unchecked 0x2,0x4 035c BODY_0350: 035c 00e1 | | Load_Encached Boolean_Cache 035d 00db | | Load_Top At_Offset_3 035e 0120 | | Execute Any,Is_Value 035f 6802 |h | Jump_Zero 0x362 0360 00f1 | | Load_Encached Diana_Temp_Seq 0361 7801 |x | Jump 0x363 0362 00db | | Load_Top At_Offset_3 0363 00da | | Load_Top At_Offset_2 0364 e5fd | | Load 0x2,-0x3 0365 e5fc | | Load 0x2,-0x4 0366 e001 | | Load 0x0,0x1 0367 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0368 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0369 e001 | | Load 0x0,0x1 036a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 036b 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 036c e001 | | Load 0x0,0x1 036d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 036e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 036f e5ff | | Load 0x2,-0x1 0370 e001 | | Load 0x0,0x1 0371 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0372 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0373 e003 | | Load 0x0,0x3 0374 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0375 c404 | | Store 0x2,0x4 0376 c402 | | Store 0x2,0x2 0377 005a | Z | Store_Top Discrete,At_Offset_2 0378 00d9 | | Load_Top At_Offset_1 0379 7003 |p | Jump_Nonzero 0x37d 037a 00ec | | Load_Encached Diana_Tree_Cache 037b c5fb | | Store 0x2,-0x5 037c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 037d 00da | | Load_Top At_Offset_2 037e 0217 | | Execute Heap_Access,All_Reference 037f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0380 4907 |I | Short_Literal 0x107 0381 00eb | | Load_Encached Diana_Cache 0382 0096 | | Execute Package,Entry 0383 c5fb | | Store 0x2,-0x5 0384 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0385 TRAP_0350: 0385 0007 | | Action Break_Optional 0386 00ec | | Load_Encached Diana_Tree_Cache 0387 c5fb | | Store 0x2,-0x5 0388 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0389 0000 0000 | | .BLANK 0000[0x7] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 039b | | .CONST 0x039b ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 00ec | | Load_Encached Diana_Tree_Cache 0394 02c7 | | Declare_Variable Any 0395 e5fe | | Load 0x2,-0x2 0396 a402 | | Store_Unchecked 0x2,0x2 0397 00f1 | | Load_Encached Diana_Temp_Seq 0398 02c7 | | Declare_Variable Any 0399 00d8 | | Load_Top At_Offset_0 039a 1c00 | | Execute_Immediate Run_Utility,0x0 039b BODY_0390: 039b 00e1 | | Load_Encached Boolean_Cache 039c 00d9 | | Load_Top At_Offset_1 039d 0120 | | Execute Any,Is_Value 039e 6802 |h | Jump_Zero 0x3a1 039f 00f1 | | Load_Encached Diana_Temp_Seq 03a0 7801 |x | Jump 0x3a2 03a1 00d9 | | Load_Top At_Offset_1 03a2 00db | | Load_Top At_Offset_3 03a3 e5fd | | Load 0x2,-0x3 03a4 e5fc | | Load 0x2,-0x4 03a5 e001 | | Load 0x0,0x1 03a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03a7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 03a8 e5ff | | Load 0x2,-0x1 03a9 e001 | | Load 0x0,0x1 03aa 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ac e5ff | | Load 0x2,-0x1 03ad e001 | | Load 0x0,0x1 03ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03b0 e5ff | | Load 0x2,-0x1 03b1 e001 | | Load 0x0,0x1 03b2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b4 e003 | | Load 0x0,0x3 03b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03b6 c402 | | Store 0x2,0x2 03b7 c403 | | Store 0x2,0x3 03b8 c5fb | | Store 0x2,-0x5 03b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03ba ; -------------------------------------------------------------------------------------- 03ba ; STRING TABLE 03ba ; -------------------------------------------------------------------------------------- 03ba 000e | | .STRTAB 0x000e->0x03c1 ; " should have one parameter" 03bb 0026 | & | .STRTAB 0x0026->0x03ce ; " does not convert to " 03bc 0039 | 9 | .STRTAB 0x0039->0x03d8 ; " does not match " 03bd 0047 | G | .STRTAB 0x0047->0x03e0 ; " should not have a parameter" 03be 0061 | a | .STRTAB 0x0061->0x03ee ; " is an unexpected node" 03bf 0075 | u | .STRTAB 0x0075->0x03f9 ; " led to unexpected node " 03c0 008b | | .STREND 0x008b->0x0405 03c1 2073 686f | sho| .STRTAB_STRINGS 0406 0000 0000 | | .XXX[0x2] 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug Table 0408 ; -------------------------------------------------------------------------------------- 0408 0004 000c | | .DEBUG4 0x0004,0x000c,0x0022,0x0000,0x0001,0x0000 040e 0000 0000 | | .BLANK 0000[0x9] 0417 0001 0001 | | .XXX[0x9] 0419 0404 0000 | | 041b 0700 8204 | | 041d 0040 0000 | @ | 041f 0040 | @ | 0420 0000 0000 | | .BLANK 0000[0x4] 0424 ffff ffff | | .XXX[0x10] 0426 8000 0000 | | 0428 00fc 48cd | H | 042a 0000 fa22 | "| 042c 00fc 44cd | D | 042e 00fc 40cd | @ | 0430 0000 0000 | | 0432 0000 0076 | v| 0434 0000 0000 | | .BLANK 0000[0x4] 0438 00f9 c0cd | | .XXX[0x14] 043a c001 0416 | | 043c 0000 d040 | @| 043e 0000 0040 | @| 0440 00fc 48cd | H | 0442 8000 0002 | | 0444 0005 610b | a | 0446 0000 00b1 | | 0448 0000 0000 | | 044a 0000 0076 | v| 044c 0000 0000 | | .BLANK 0000[0x4] 0450 00f9 c0cd | | .XXX[0x4] 0452 0001 0580 | | 0454 0000 0000 | | .BLANK 0000[0xb] 045f 0001 0001 | | .XXX[0x9] 0461 0404 0000 | | 0463 0700 8204 | | 0465 0040 0000 | @ | 0467 0040 | @ | 0468 0000 0000 | | .BLANK 0000[0x4] 046c ffff ffff | | .XXX[0x10] 046e 8000 0000 | | 0470 00fc 54cd | T | 0472 0001 0288 | | 0474 00fc 50cd | P | 0476 00fc 4ccd | L | 0478 0000 0000 | | 047a 0000 0076 | v| 047c 0000 0000 | | .BLANK 0000[0x4] 0480 00f9 c0cd | | .XXX[0x14] 0482 c001 0896 | | 0484 0000 d040 | @| 0486 0000 0040 | @| 0488 00fc 50cd | P | 048a 8000 003c | <| 048c 0015 b90b | | 048e 0000 00b1 | | 0490 0000 0000 | | 0492 0000 0076 | v| 0494 0000 0000 | | .BLANK 0000[0x4] 0498 00f9 c0cd | | .XXX[0x4] 049a 0001 0a00 | | 049c 0000 0000 | | .BLANK 0000[0xb] 04a7 0001 0001 | | .XXX[0x9] 04a9 0404 0000 | | 04ab 0700 8204 | | 04ad 0040 0000 | @ | 04af 0040 | @ | 04b0 0000 0000 | | .BLANK 0000[0x4] 04b4 ffff ffff | | .XXX[0x3] 04b6 8000 | | 04b7 0000 0000 | | .BLANK 0000[0x4] 04bb 0076 | v | .XXX[0x1] 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 00f9 c0cd | | .XXX[0x14] 04c2 c001 0c96 | | 04c4 0000 d040 | @| 04c6 0000 0040 | @| 04c8 00fc b0cd | | 04ca 8000 0002 | | 04cc 0015 510b | Q | 04ce 0000 00b1 | | 04d0 0000 0000 | | 04d2 0000 0076 | v| 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 00f9 c0cd | | .XXX[0x4] 04da 0001 0e00 | | 04dc 0000 0000 | | .BLANK 0000[0xb] 04e7 0001 0001 | | .XXX[0x9] 04e9 0404 0000 | | 04eb 0700 8204 | | 04ed 0040 0000 | @ | 04ef 0040 | @ | 04f0 0000 0000 | | .BLANK 0000[0x4] 04f4 ffff ffff | | .XXX[0x10] 04f6 8000 0000 | | 04f8 00fc b8cd | | 04fa 0001 0722 | "| 04fc 00fc b4cd | | 04fe 00fc b0cd | | 0500 0000 0000 | | 0502 0000 0076 | v| 0504 0000 0000 | | .BLANK 0000[0x4] 0508 00f9 c0cd | | .XXX[0x14] 050a c001 1116 | | 050c 0000 d040 | @| 050e 0000 0040 | @| 0510 00fc b8cd | | 0512 8000 001a | | 0514 0016 510b | Q | 0516 0000 00b1 | | 0518 0000 0000 | | 051a 0000 0076 | v| 051c 0000 0000 | | .BLANK 0000[0x4] 0520 00f9 c0cd | | .XXX[0x4] 0522 0001 1280 | | 0524 0000 0000 | | .BLANK 0000[0xb] 052f 0001 0001 | | .XXX[0x9] 0531 0404 0000 | | 0533 0700 8204 | | 0535 0040 0000 | @ | 0537 0040 | @ | 0538 0000 0000 | | .BLANK 0000[0x4] 053c ffff ffff | | .XXX[0x10] 053e 8000 0000 | | 0540 00fc c4cd | | 0542 0001 0f88 | | 0544 00fc c0cd | | 0546 00fc bccd | | 0548 0000 0000 | | 054a 0000 0076 | v| 054c 0000 0000 | | .BLANK 0000[0x4] 0550 00f9 c0cd | | .XXX[0x14] 0552 c001 1596 | | 0554 0000 d040 | @| 0556 0000 0040 | @| 0558 00fc c0cd | | 055a 8000 000c | | 055c 0016 d90b | | 055e 0000 00b1 | | 0560 0000 0000 | | 0562 0000 0076 | v| 0564 0000 0000 | | .BLANK 0000[0x4] 0568 00f9 c0cd | | .XXX[0x4] 056a 0001 1700 | | 056c 0000 0000 | | .BLANK 0000[0xb] 0577 0001 0001 | | .XXX[0x9] 0579 0404 0000 | | 057b 0700 8204 | | 057d 0040 0000 | @ | 057f 0040 | @ | 0580 0000 0000 | | .BLANK 0000[0x4] 0584 ffff ffff | | .XXX[0x3] 0586 8000 | | 0587 0000 0000 | | .BLANK 0000[0x4] 058b 0076 | v | .XXX[0x1] 058c 0000 0000 | | .BLANK 0000[0x4] 0590 00f9 c0cd | | .XXX[0x14] 0592 c001 1996 | | 0594 0000 d040 | @| 0596 0000 0040 | @| 0598 00fc cccd | | 059a 8000 000e | | 059c 0016 9d0b | | 059e 0000 00b1 | | 05a0 0000 0000 | | 05a2 0000 0076 | v| 05a4 0000 0000 | | .BLANK 0000[0x4] 05a8 00f9 c0cd | | .XXX[0x4] 05aa 0001 1b00 | | 05ac 0000 0000 | | .BLANK 0000[0xb] 05b7 0001 0001 | | .XXX[0x9] 05b9 0404 0000 | | 05bb 0700 8204 | | 05bd 0040 0000 | @ | 05bf 0040 | @ | 05c0 0000 0000 | | .BLANK 0000[0x4] 05c4 ffff ffff | | .XXX[0x10] 05c6 8000 0000 | | 05c8 00fc d8cd | | 05ca 0001 1422 | "| 05cc 00fc d0cd | | 05ce 00fc cccd | | 05d0 0000 0000 | | 05d2 0000 0076 | v| 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 00f9 c0cd | | .XXX[0x14] 05da c001 1e16 | | 05dc 0000 d040 | @| 05de 0000 0040 | @| 05e0 00fc d8cd | | 05e2 8000 0011 | | 05e4 0015 c10b | | 05e6 0000 00b1 | | 05e8 0000 0000 | | 05ea 0000 0076 | v| 05ec 0000 0000 | | .BLANK 0000[0x4] 05f0 00f9 c0cd | | .XXX[0x4] 05f2 0001 1f80 | | 05f4 0000 0000 | | .BLANK 0000[0xb] 05ff 0001 | | .XXX[0x1]