|
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 0440 | @ | .CONST 0x0440 ; 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 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 000f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0011 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 0016 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 0018 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 001a 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 001c 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 001e 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0020 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0022 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 0024 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call 0026 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002b 00c7 | | Action Elaborate_Subprogram 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 0052 | R | .CONST 0x0052 ; Address of begin 0039 0093 | | .CONST 0x0093 ; Address of exception handler 003a 0006 | | .CONST 0x0006 ; 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 00ec | | Load_Encached Diana_Tree_Cache 0043 02c7 | | Declare_Variable Any 0044 e5fe | | Load 0x2,-0x2 0045 00eb | | Load_Encached Diana_Cache 0046 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0047 a404 | | Store_Unchecked 0x2,0x4 0048 e001 | | Load 0x0,0x1 0049 1b15 | | Execute Package,Field_Read,Field_Number 0x15 004a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004b 02c7 | | Declare_Variable Any 004c 00d8 | | Load_Top At_Offset_0 004d 1c00 | | Execute_Immediate Run_Utility,0x0 004e 00ec | | Load_Encached Diana_Tree_Cache 004f 02c7 | | Declare_Variable Any 0050 00d8 | | Load_Top At_Offset_0 0051 1c00 | | Execute_Immediate Run_Utility,0x0 0052 BODY_0038: 0052 00e1 | | Load_Encached Boolean_Cache 0053 e402 | | Load 0x2,0x2 0054 0120 | | Execute Any,Is_Value 0055 6804 |h | Jump_Zero 0x5a 0056 e001 | | Load 0x0,0x1 0057 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0058 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0059 7801 |x | Jump 0x5b 005a e402 | | Load 0x2,0x2 005b e5fe | | Load 0x2,-0x2 005c e5ff | | Load 0x2,-0x1 005d 8219 | | Call 0x1,0x19 005e c402 | | Store 0x2,0x2 005f c403 | | Store 0x2,0x3 0060 00db | | Load_Top At_Offset_3 0061 7002 |p | Jump_Nonzero 0x64 0062 00f1 | | Load_Encached Diana_Temp_Seq 0063 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0064 e402 | | Load 0x2,0x2 0065 e001 | | Load 0x0,0x1 0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0067 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0068 c405 | | Store 0x2,0x5 0069 00d9 | | Load_Top At_Offset_1 006a e001 | | Load 0x0,0x1 006b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 006d 6810 |h | Jump_Zero 0x7e 006e 00d8 | | Load_Top At_Offset_0 006f 0120 | | Execute Any,Is_Value 0070 6802 |h | Jump_Zero 0x73 0071 00ec | | Load_Encached Diana_Tree_Cache 0072 7801 |x | Jump 0x74 0073 00d8 | | Load_Top At_Offset_0 0074 e5ff | | Load 0x2,-0x1 0075 4800 |H | Short_Literal 0x0 0076 e404 | | Load 0x2,0x4 0077 e402 | | Load 0x2,0x2 0078 e001 | | Load 0x0,0x1 0079 1b15 | | Execute Package,Field_Read,Field_Number 0x15 007a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 007b 821a | | Call 0x1,0x1a 007c c406 | | Store 0x2,0x6 007d 780c |x | Jump 0x8a 007e 00d9 | | Load_Top At_Offset_1 007f e001 | | Load 0x0,0x1 0080 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0081 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0082 e5ff | | Load 0x2,-0x1 0083 e002 | | Load 0x0,0x2 0084 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0085 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0086 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0087 e003 | | Load 0x0,0x3 0088 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0089 c406 | | Store 0x2,0x6 008a 00d8 | | Load_Top At_Offset_0 008b 7002 |p | Jump_Nonzero 0x8e 008c 00f1 | | Load_Encached Diana_Temp_Seq 008d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008e 00f1 | | Load_Encached Diana_Temp_Seq 008f 00d9 | | Load_Top At_Offset_1 0090 00eb | | Load_Encached Diana_Cache 0091 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0092 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0093 TRAP_0038: 0093 e004 | | Load 0x0,0x4 0094 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0095 010f | | Execute Exception,Equal 0096 7004 |p | Jump_Nonzero 0x9b 0097 e001 | | Load 0x0,0x1 0098 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0099 010f | | Execute Exception,Equal 009a 6802 |h | Jump_Zero 0x9d 009b 00f1 | | Load_Encached Diana_Temp_Seq 009c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009d e5fe | | Load 0x2,-0x2 009e e5ff | | Load 0x2,-0x1 009f 8005 | | Call 0x0,0x5 00a0 00f1 | | Load_Encached Diana_Temp_Seq 00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00cc | | .CONST 0x00cc ; Address of begin 00a9 010d | | .CONST 0x010d ; Address of exception handler 00aa 0008 | | .CONST 0x0008 ; Number of locals 00ab INIT_00a8: 00ab 00ec | | Load_Encached Diana_Tree_Cache 00ac 02c7 | | Declare_Variable Any 00ad e5fe | | Load 0x2,-0x2 00ae a402 | | Store_Unchecked 0x2,0x2 00af 00ec | | Load_Encached Diana_Tree_Cache 00b0 02c7 | | Declare_Variable Any 00b1 00d9 | | Load_Top At_Offset_1 00b2 00eb | | Load_Encached Diana_Cache 00b3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 00b4 a403 | | Store_Unchecked 0x2,0x3 00b5 00ec | | Load_Encached Diana_Tree_Cache 00b6 02c7 | | Declare_Variable Any 00b7 00d9 | | Load_Top At_Offset_1 00b8 00eb | | Load_Encached Diana_Cache 00b9 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 00ba a404 | | Store_Unchecked 0x2,0x4 00bb e001 | | Load 0x0,0x1 00bc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00bd 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00be 02c7 | | Declare_Variable Any 00bf 00d8 | | Load_Top At_Offset_0 00c0 1c00 | | Execute_Immediate Run_Utility,0x0 00c1 00e1 | | Load_Encached Boolean_Cache 00c2 00ec | | Load_Encached Diana_Tree_Cache 00c3 02c7 | | Declare_Variable Any 00c4 00d8 | | Load_Top At_Offset_0 00c5 1c00 | | Execute_Immediate Run_Utility,0x0 00c6 e001 | | Load 0x0,0x1 00c7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c9 02c7 | | Declare_Variable Any 00ca 00d8 | | Load_Top At_Offset_0 00cb 1c00 | | Execute_Immediate Run_Utility,0x0 00cc BODY_00a8: 00cc 00e1 | | Load_Encached Boolean_Cache 00cd e405 | | Load 0x2,0x5 00ce 0120 | | Execute Any,Is_Value 00cf 6804 |h | Jump_Zero 0xd4 00d0 e001 | | Load 0x0,0x1 00d1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00d2 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00d3 7801 |x | Jump 0xd5 00d4 e405 | | Load 0x2,0x5 00d5 e403 | | Load 0x2,0x3 00d6 e5ff | | Load 0x2,-0x1 00d7 8219 | | Call 0x1,0x19 00d8 c405 | | Store 0x2,0x5 00d9 005b | [ | Store_Top Discrete,At_Offset_3 00da 00da | | Load_Top At_Offset_2 00db 7002 |p | Jump_Nonzero 0xde 00dc 00f1 | | Load_Encached Diana_Temp_Seq 00dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00de 00db | | Load_Top At_Offset_3 00df e001 | | Load 0x0,0x1 00e0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00e1 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00e2 c408 | | Store 0x2,0x8 00e3 00d8 | | Load_Top At_Offset_0 00e4 e001 | | Load 0x0,0x1 00e5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00e6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e7 6810 |h | Jump_Zero 0xf8 00e8 00d9 | | Load_Top At_Offset_1 00e9 0120 | | Execute Any,Is_Value 00ea 6802 |h | Jump_Zero 0xed 00eb 00ec | | Load_Encached Diana_Tree_Cache 00ec 7801 |x | Jump 0xee 00ed 00d9 | | Load_Top At_Offset_1 00ee e5ff | | Load 0x2,-0x1 00ef 4800 |H | Short_Literal 0x0 00f0 e404 | | Load 0x2,0x4 00f1 e405 | | Load 0x2,0x5 00f2 e001 | | Load 0x0,0x1 00f3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00f4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00f5 821a | | Call 0x1,0x1a 00f6 c407 | | Store 0x2,0x7 00f7 780c |x | Jump 0x104 00f8 00d8 | | Load_Top At_Offset_0 00f9 e001 | | Load 0x0,0x1 00fa 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00fb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00fc e5ff | | Load 0x2,-0x1 00fd e002 | | Load 0x0,0x2 00fe 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0100 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0101 e003 | | Load 0x0,0x3 0102 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0103 c407 | | Store 0x2,0x7 0104 00d9 | | Load_Top At_Offset_1 0105 7002 |p | Jump_Nonzero 0x108 0106 00f1 | | Load_Encached Diana_Temp_Seq 0107 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0108 00f1 | | Load_Encached Diana_Temp_Seq 0109 00da | | Load_Top At_Offset_2 010a 00eb | | Load_Encached Diana_Cache 010b 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 010c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010d TRAP_00a8: 010d e004 | | Load 0x0,0x4 010e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 010f 010f | | Execute Exception,Equal 0110 7004 |p | Jump_Nonzero 0x115 0111 e001 | | Load 0x0,0x1 0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0113 010f | | Execute Exception,Equal 0114 6802 |h | Jump_Zero 0x117 0115 00f1 | | Load_Encached Diana_Temp_Seq 0116 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0117 e5fe | | Load 0x2,-0x2 0118 e5ff | | Load 0x2,-0x1 0119 8005 | | Call 0x0,0x5 011a 00f1 | | Load_Encached Diana_Temp_Seq 011b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 014b | K | .CONST 0x014b ; Address of begin 0121 01c2 | | .CONST 0x01c2 ; Address of exception handler 0122 000a | | .CONST 0x000a ; Number of locals 0123 INIT_0120: 0123 e001 | | Load 0x0,0x1 0124 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0125 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0126 02c7 | | Declare_Variable Any 0127 00d8 | | Load_Top At_Offset_0 0128 1c00 | | Execute_Immediate Run_Utility,0x0 0129 00e1 | | Load_Encached Boolean_Cache 012a e001 | | Load 0x0,0x1 012b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 012c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 012d 02c7 | | Declare_Variable Any 012e 00d8 | | Load_Top At_Offset_0 012f 1c00 | | Execute_Immediate Run_Utility,0x0 0130 e001 | | Load 0x0,0x1 0131 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0132 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0133 02c7 | | Declare_Variable Any 0134 00d8 | | Load_Top At_Offset_0 0135 1c00 | | Execute_Immediate Run_Utility,0x0 0136 e001 | | Load 0x0,0x1 0137 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0138 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0139 02c7 | | Declare_Variable Any 013a 00d8 | | Load_Top At_Offset_0 013b 1c00 | | Execute_Immediate Run_Utility,0x0 013c 00ec | | Load_Encached Diana_Tree_Cache 013d 02c7 | | Declare_Variable Any 013e e5fe | | Load 0x2,-0x2 013f 00eb | | Load_Encached Diana_Cache 0140 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0141 a407 | | Store_Unchecked 0x2,0x7 0142 00ec | | Load_Encached Diana_Tree_Cache 0143 02c7 | | Declare_Variable Any 0144 00d8 | | Load_Top At_Offset_0 0145 1c00 | | Execute_Immediate Run_Utility,0x0 0146 00ec | | Load_Encached Diana_Tree_Cache 0147 02c7 | | Declare_Variable Any 0148 00d8 | | Load_Top At_Offset_0 0149 1c00 | | Execute_Immediate Run_Utility,0x0 014a 00e1 | | Load_Encached Boolean_Cache 014b BODY_0120: 014b 4800 |H | Short_Literal 0x0 014c a5fc | | Store_Unchecked 0x2,-0x4 014d 00e1 | | Load_Encached Boolean_Cache 014e e402 | | Load 0x2,0x2 014f 0120 | | Execute Any,Is_Value 0150 6804 |h | Jump_Zero 0x155 0151 e001 | | Load 0x0,0x1 0152 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0153 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0154 7801 |x | Jump 0x156 0155 e402 | | Load 0x2,0x2 0156 e5fe | | Load 0x2,-0x2 0157 e5ff | | Load 0x2,-0x1 0158 8219 | | Call 0x1,0x19 0159 c402 | | Store 0x2,0x2 015a c403 | | Store 0x2,0x3 015b e403 | | Load 0x2,0x3 015c 7003 |p | Jump_Nonzero 0x160 015d 4801 |H | Short_Literal 0x1 015e a5fc | | Store_Unchecked 0x2,-0x4 015f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0160 e402 | | Load 0x2,0x2 0161 e001 | | Load 0x0,0x1 0162 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0163 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0164 c406 | | Store 0x2,0x6 0165 e402 | | Load 0x2,0x2 0166 e001 | | Load 0x0,0x1 0167 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0168 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0169 c405 | | Store 0x2,0x5 016a e402 | | Load 0x2,0x2 016b e001 | | Load 0x0,0x1 016c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 016d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 016e c404 | | Store 0x2,0x4 016f e405 | | Load 0x2,0x5 0170 e001 | | Load 0x0,0x1 0171 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0172 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0173 7007 |p | Jump_Nonzero 0x17b 0174 4801 |H | Short_Literal 0x1 0175 a5fc | | Store_Unchecked 0x2,-0x4 0176 0092 03f1 | | Action Push_String_Extended,0x3f1 ; " should have one parameter" 0178 e5fe | | Load 0x2,-0x2 0179 e5ff | | Load 0x2,-0x1 017a 8211 | | Call 0x1,0x11 017b e404 | | Load 0x2,0x4 017c e001 | | Load 0x0,0x1 017d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 017e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017f 6811 |h | Jump_Zero 0x191 0180 00da | | Load_Top At_Offset_2 0181 0120 | | Execute Any,Is_Value 0182 6802 |h | Jump_Zero 0x185 0183 00ec | | Load_Encached Diana_Tree_Cache 0184 7801 |x | Jump 0x186 0185 00da | | Load_Top At_Offset_2 0186 e5ff | | Load 0x2,-0x1 0187 4801 |H | Short_Literal 0x1 0188 e407 | | Load 0x2,0x7 0189 e406 | | Load 0x2,0x6 018a 821a | | Call 0x1,0x1a 018b c408 | | Store 0x2,0x8 018c 00da | | Load_Top At_Offset_2 018d 700e |p | Jump_Nonzero 0x19c 018e 4801 |H | Short_Literal 0x1 018f a5fc | | Store_Unchecked 0x2,-0x4 0190 780b |x | Jump 0x19c 0191 00e1 | | Load_Encached Boolean_Cache 0192 e5ff | | Load 0x2,-0x1 0193 4801 |H | Short_Literal 0x1 0194 e407 | | Load 0x2,0x7 0195 e406 | | Load 0x2,0x6 0196 8218 | | Call 0x1,0x18 0197 0059 | Y | Store_Top Discrete,At_Offset_1 0198 00d8 | | Load_Top At_Offset_0 0199 7002 |p | Jump_Nonzero 0x19c 019a 4801 |H | Short_Literal 0x1 019b a5fc | | Store_Unchecked 0x2,-0x4 019c e404 | | Load 0x2,0x4 019d e001 | | Load 0x0,0x1 019e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 019f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a0 6803 |h | Jump_Zero 0x1a4 01a1 00da | | Load_Top At_Offset_2 01a2 c409 | | Store 0x2,0x9 01a3 780c |x | Jump 0x1b0 01a4 e404 | | Load 0x2,0x4 01a5 e001 | | Load 0x0,0x1 01a6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a8 e5ff | | Load 0x2,-0x1 01a9 e002 | | Load 0x0,0x2 01aa 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ad e003 | | Load 0x0,0x3 01ae 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01af c409 | | Store 0x2,0x9 01b0 e5fe | | Load 0x2,-0x2 01b1 00da | | Load_Top At_Offset_2 01b2 e5fd | | Load 0x2,-0x3 01b3 e5ff | | Load 0x2,-0x1 01b4 e002 | | Load 0x0,0x2 01b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b8 7008 |p | Jump_Nonzero 0x1c1 01b9 4801 |H | Short_Literal 0x1 01ba a5fc | | Store_Unchecked 0x2,-0x4 01bb e5fd | | Load 0x2,-0x3 01bc 0092 03f2 | | Action Push_String_Extended,0x3f2 ; " does not convert to " 01be e5fe | | Load 0x2,-0x2 01bf e5ff | | Load 0x2,-0x1 01c0 8212 | | Call 0x1,0x12 01c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01c2 TRAP_0120: 01c2 e004 | | Load 0x0,0x4 01c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c4 010f | | Execute Exception,Equal 01c5 7004 |p | Jump_Nonzero 0x1ca 01c6 e001 | | Load 0x0,0x1 01c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c8 010f | | Execute Exception,Equal 01c9 6801 |h | Jump_Zero 0x1cb 01ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01cb e5fe | | Load 0x2,-0x2 01cc e5ff | | Load 0x2,-0x1 01cd 8005 | | Call 0x0,0x5 01ce 4801 |H | Short_Literal 0x1 01cf a5fc | | Store_Unchecked 0x2,-0x4 01d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 0211 | | .CONST 0x0211 ; Address of begin 01d9 02b9 | | .CONST 0x02b9 ; Address of exception handler 01da 000d | | .CONST 0x000d ; Number of locals 01db INIT_01d8: 01db e001 | | Load 0x0,0x1 01dc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01dd 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01de 02c7 | | Declare_Variable Any 01df 00d8 | | Load_Top At_Offset_0 01e0 1c00 | | Execute_Immediate Run_Utility,0x0 01e1 00ec | | Load_Encached Diana_Tree_Cache 01e2 02c7 | | Declare_Variable Any 01e3 e5fe | | Load 0x2,-0x2 01e4 00eb | | Load_Encached Diana_Cache 01e5 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 01e6 a403 | | Store_Unchecked 0x2,0x3 01e7 00ec | | Load_Encached Diana_Tree_Cache 01e8 02c7 | | Declare_Variable Any 01e9 00d9 | | Load_Top At_Offset_1 01ea 00eb | | Load_Encached Diana_Cache 01eb 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 01ec a404 | | Store_Unchecked 0x2,0x4 01ed 00e1 | | Load_Encached Boolean_Cache 01ee e001 | | Load 0x0,0x1 01ef 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01f0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01f1 02c7 | | Declare_Variable Any 01f2 00d8 | | Load_Top At_Offset_0 01f3 1c00 | | Execute_Immediate Run_Utility,0x0 01f4 e001 | | Load 0x0,0x1 01f5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01f6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01f7 02c7 | | Declare_Variable Any 01f8 00d8 | | Load_Top At_Offset_0 01f9 1c00 | | Execute_Immediate Run_Utility,0x0 01fa e001 | | Load 0x0,0x1 01fb 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fd 02c7 | | Declare_Variable Any 01fe 00d8 | | Load_Top At_Offset_0 01ff 1c00 | | Execute_Immediate Run_Utility,0x0 0200 00ec | | Load_Encached Diana_Tree_Cache 0201 02c7 | | Declare_Variable Any 0202 00d8 | | Load_Top At_Offset_0 0203 1c00 | | Execute_Immediate Run_Utility,0x0 0204 00ec | | Load_Encached Diana_Tree_Cache 0205 02c7 | | Declare_Variable Any 0206 00d8 | | Load_Top At_Offset_0 0207 1c00 | | Execute_Immediate Run_Utility,0x0 0208 00ec | | Load_Encached Diana_Tree_Cache 0209 02c7 | | Declare_Variable Any 020a 00d8 | | Load_Top At_Offset_0 020b 1c00 | | Execute_Immediate Run_Utility,0x0 020c 00ec | | Load_Encached Diana_Tree_Cache 020d 02c7 | | Declare_Variable Any 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 00e1 | | Load_Encached Boolean_Cache 0211 BODY_01d8: 0211 4800 |H | Short_Literal 0x0 0212 a5fc | | Store_Unchecked 0x2,-0x4 0213 00e1 | | Load_Encached Boolean_Cache 0214 e402 | | Load 0x2,0x2 0215 0120 | | Execute Any,Is_Value 0216 6804 |h | Jump_Zero 0x21b 0217 e001 | | Load 0x0,0x1 0218 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0219 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 021a 7801 |x | Jump 0x21c 021b e402 | | Load 0x2,0x2 021c e403 | | Load 0x2,0x3 021d e5ff | | Load 0x2,-0x1 021e 8219 | | Call 0x1,0x19 021f c402 | | Store 0x2,0x2 0220 c405 | | Store 0x2,0x5 0221 e405 | | Load 0x2,0x5 0222 7003 |p | Jump_Nonzero 0x226 0223 4801 |H | Short_Literal 0x1 0224 a5fc | | Store_Unchecked 0x2,-0x4 0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0226 e402 | | Load 0x2,0x2 0227 e001 | | Load 0x0,0x1 0228 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0229 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 022a c408 | | Store 0x2,0x8 022b e402 | | Load 0x2,0x2 022c e001 | | Load 0x0,0x1 022d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 022e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 022f c406 | | Store 0x2,0x6 0230 e402 | | Load 0x2,0x2 0231 e001 | | Load 0x0,0x1 0232 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0233 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0234 c407 | | Store 0x2,0x7 0235 e406 | | Load 0x2,0x6 0236 e001 | | Load 0x0,0x1 0237 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0238 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0239 7005 |p | Jump_Nonzero 0x23f 023a e406 | | Load 0x2,0x6 023b e001 | | Load 0x0,0x1 023c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 023d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 023e 7005 |p | Jump_Nonzero 0x244 023f e407 | | Load 0x2,0x7 0240 e001 | | Load 0x0,0x1 0241 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0242 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0243 6811 |h | Jump_Zero 0x255 0244 e409 | | Load 0x2,0x9 0245 0120 | | Execute Any,Is_Value 0246 6802 |h | Jump_Zero 0x249 0247 00ec | | Load_Encached Diana_Tree_Cache 0248 7801 |x | Jump 0x24a 0249 e409 | | Load 0x2,0x9 024a e5ff | | Load 0x2,-0x1 024b 4801 |H | Short_Literal 0x1 024c e404 | | Load 0x2,0x4 024d e408 | | Load 0x2,0x8 024e 821a | | Call 0x1,0x1a 024f c409 | | Store 0x2,0x9 0250 e409 | | Load 0x2,0x9 0251 700e |p | Jump_Nonzero 0x260 0252 4801 |H | Short_Literal 0x1 0253 a5fc | | Store_Unchecked 0x2,-0x4 0254 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0255 00e1 | | Load_Encached Boolean_Cache 0256 e5ff | | Load 0x2,-0x1 0257 4801 |H | Short_Literal 0x1 0258 e404 | | Load 0x2,0x4 0259 e408 | | Load 0x2,0x8 025a 8218 | | Call 0x1,0x18 025b 0059 | Y | Store_Top Discrete,At_Offset_1 025c 00d8 | | Load_Top At_Offset_0 025d 7002 |p | Jump_Nonzero 0x260 025e 4801 |H | Short_Literal 0x1 025f a5fc | | Store_Unchecked 0x2,-0x4 0260 e407 | | Load 0x2,0x7 0261 e001 | | Load 0x0,0x1 0262 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0263 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0264 6803 |h | Jump_Zero 0x268 0265 e409 | | Load 0x2,0x9 0266 c40a | | Store 0x2,0xa 0267 780c |x | Jump 0x274 0268 e407 | | Load 0x2,0x7 0269 e001 | | Load 0x0,0x1 026a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 026b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 026c e5ff | | Load 0x2,-0x1 026d e002 | | Load 0x0,0x2 026e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 026f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0270 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0271 e003 | | Load 0x0,0x3 0272 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0273 c40a | | Store 0x2,0xa 0274 00db | | Load_Top At_Offset_3 0275 7003 |p | Jump_Nonzero 0x279 0276 4801 |H | Short_Literal 0x1 0277 a5fc | | Store_Unchecked 0x2,-0x4 0278 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0279 e5fe | | Load 0x2,-0x2 027a e40a | | Load 0x2,0xa 027b e5fd | | Load 0x2,-0x3 027c e5ff | | Load 0x2,-0x1 027d e002 | | Load 0x0,0x2 027e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 027f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0280 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0281 7008 |p | Jump_Nonzero 0x28a 0282 4801 |H | Short_Literal 0x1 0283 a5fc | | Store_Unchecked 0x2,-0x4 0284 e5fd | | Load 0x2,-0x3 0285 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " does not match " 0287 e5fe | | Load 0x2,-0x2 0288 e5ff | | Load 0x2,-0x1 0289 8212 | | Call 0x1,0x12 028a e406 | | Load 0x2,0x6 028b e001 | | Load 0x0,0x1 028c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 028d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 028e 6808 |h | Jump_Zero 0x297 028f 0092 03f4 | | Action Push_String_Extended,0x3f4 ; " should not have a parameter" 0291 e5fe | | Load 0x2,-0x2 0292 e5ff | | Load 0x2,-0x1 0293 8211 | | Call 0x1,0x11 0294 4801 |H | Short_Literal 0x1 0295 a5fc | | Store_Unchecked 0x2,-0x4 0296 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0297 e5fe | | Load 0x2,-0x2 0298 00eb | | Load_Encached Diana_Cache 0299 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 029a c40c | | Store 0x2,0xc 029b e406 | | Load 0x2,0x6 029c e001 | | Load 0x0,0x1 029d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 029e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 029f 6809 |h | Jump_Zero 0x2a9 02a0 00d9 | | Load_Top At_Offset_1 02a1 e409 | | Load 0x2,0x9 02a2 e5ff | | Load 0x2,-0x1 02a3 e002 | | Load 0x0,0x2 02a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02a5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02a6 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a7 c40c | | Store 0x2,0xc 02a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a9 00e1 | | Load_Encached Boolean_Cache 02aa 00da | | Load_Top At_Offset_2 02ab e5ff | | Load 0x2,-0x1 02ac e406 | | Load 0x2,0x6 02ad e001 | | Load 0x0,0x1 02ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02af 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02b0 e003 | | Load 0x0,0x3 02b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02b2 c40c | | Store 0x2,0xc 02b3 0059 | Y | Store_Top Discrete,At_Offset_1 02b4 00d8 | | Load_Top At_Offset_0 02b5 7002 |p | Jump_Nonzero 0x2b8 02b6 4801 |H | Short_Literal 0x1 02b7 a5fc | | Store_Unchecked 0x2,-0x4 02b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02b9 TRAP_01d8: 02b9 e004 | | Load 0x0,0x4 02ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02bb 010f | | Execute Exception,Equal 02bc 7004 |p | Jump_Nonzero 0x2c1 02bd e001 | | Load 0x0,0x1 02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02bf 010f | | Execute Exception,Equal 02c0 6801 |h | Jump_Zero 0x2c2 02c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c2 e5fe | | Load 0x2,-0x2 02c3 e5ff | | Load 0x2,-0x1 02c4 8005 | | Call 0x0,0x5 02c5 4801 |H | Short_Literal 0x1 02c6 a5fc | | Store_Unchecked 0x2,-0x4 02c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 6808 |h | Jump_Zero 0x2d5 02cd 00ea | | Load_Encached Null_String_Cache 02ce e5fd | | Load 0x2,-0x3 02cf e5fe | | Load 0x2,-0x2 02d0 e5ff | | Load 0x2,-0x1 02d1 e002 | | Load 0x0,0x2 02d2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02d3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02d4 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d6 0000 0000 | | .XXX[0x2] 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 6809 |h | Jump_Zero 0x2e6 02dd 00ea | | Load_Encached Null_String_Cache 02de e5fc | | Load 0x2,-0x4 02df e5fd | | Load 0x2,-0x3 02e0 e5fe | | Load 0x2,-0x2 02e1 e5ff | | Load 0x2,-0x1 02e2 e002 | | Load 0x0,0x2 02e3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02e4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02e7 0000 | | .XXX[0x1] 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 6808 |h | Jump_Zero 0x2f5 02ed 00ea | | Load_Encached Null_String_Cache 02ee e5fd | | Load 0x2,-0x3 02ef e5fe | | Load 0x2,-0x2 02f0 e5ff | | Load 0x2,-0x1 02f1 e002 | | Load 0x0,0x2 02f2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02f3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02f6 0000 0000 | | .XXX[0x2] 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 00db | | Load_Top At_Offset_3 02fc 6809 |h | Jump_Zero 0x306 02fd 00ea | | Load_Encached Null_String_Cache 02fe e5fc | | Load 0x2,-0x4 02ff e5fd | | Load 0x2,-0x3 0300 e5fe | | Load 0x2,-0x2 0301 e5ff | | Load 0x2,-0x1 0302 e002 | | Load 0x0,0x2 0303 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0304 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0305 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0306 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0307 0000 | | .XXX[0x1] 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 0092 03f5 | | Action Push_String_Extended,0x3f5 ; " is an unexpected node" 030d e5fe | | Load 0x2,-0x2 030e e5ff | | Load 0x2,-0x1 030f 8213 | | Call 0x1,0x13 0310 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0311 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 031c 0092 03f6 | | Action Push_String_Extended,0x3f6 ; " led to unexpected node " 031e e5fe | | Load 0x2,-0x2 031f e5ff | | Load 0x2,-0x1 0320 8214 | | Call 0x1,0x14 0321 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0322 0000 0000 | | .BLANK 0000[0x6] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e002 | | Load 0x0,0x2 032d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 032e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 032f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0330 e004 | | Load 0x0,0x4 0331 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0332 e001 | | Load 0x0,0x1 0333 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0334 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0335 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0336 0000 0000 | | .XXX[0x2] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0343 | C | .CONST 0x0343 ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0003 | | .CONST 0x0003 ; Number of locals 033b INIT_0338: 033b 00ec | | Load_Encached Diana_Tree_Cache 033c 02c7 | | Declare_Variable Any 033d e5fe | | Load 0x2,-0x2 033e a402 | | Store_Unchecked 0x2,0x2 033f 00f1 | | Load_Encached Diana_Temp_Seq 0340 02c7 | | Declare_Variable Any 0341 00d8 | | Load_Top At_Offset_0 0342 1c00 | | Execute_Immediate Run_Utility,0x0 0343 BODY_0338: 0343 00e1 | | Load_Encached Boolean_Cache 0344 00d9 | | Load_Top At_Offset_1 0345 0120 | | Execute Any,Is_Value 0346 6802 |h | Jump_Zero 0x349 0347 00f1 | | Load_Encached Diana_Temp_Seq 0348 7801 |x | Jump 0x34a 0349 00d9 | | Load_Top At_Offset_1 034a 00db | | Load_Top At_Offset_3 034b e5fd | | Load 0x2,-0x3 034c e5fc | | Load 0x2,-0x4 034d e001 | | Load 0x0,0x1 034e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 034f 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0350 e5ff | | Load 0x2,-0x1 0351 e001 | | Load 0x0,0x1 0352 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0353 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0354 e5ff | | Load 0x2,-0x1 0355 e001 | | Load 0x0,0x1 0356 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0357 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0358 e5ff | | Load 0x2,-0x1 0359 e001 | | Load 0x0,0x1 035a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 035b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 035c e003 | | Load 0x0,0x3 035d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 035e c402 | | Store 0x2,0x2 035f c403 | | Store 0x2,0x3 0360 c5fb | | Store 0x2,-0x5 0361 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0362 0000 0000 | | .BLANK 0000[0x6] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 0389 | | .CONST 0x0389 ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0008 | | .CONST 0x0008 ; Number of locals 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c 8217 | | Call 0x1,0x17 036d e001 | | Load 0x0,0x1 036e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 036f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0370 02c7 | | Declare_Variable Any 0371 00d8 | | Load_Top At_Offset_0 0372 1c00 | | Execute_Immediate Run_Utility,0x0 0373 00ec | | Load_Encached Diana_Tree_Cache 0374 02c7 | | Declare_Variable Any 0375 e5fe | | Load 0x2,-0x2 0376 00eb | | Load_Encached Diana_Cache 0377 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0378 a404 | | Store_Unchecked 0x2,0x4 0379 e001 | | Load 0x0,0x1 037a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 037b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 037c 02c7 | | Declare_Variable Any 037d 00d8 | | Load_Top At_Offset_0 037e 1c00 | | Execute_Immediate Run_Utility,0x0 037f 00e1 | | Load_Encached Boolean_Cache 0380 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0381 e5fe | | Load 0x2,-0x2 0382 00eb | | Load_Encached Diana_Cache 0383 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0384 00eb | | Load_Encached Diana_Cache 0385 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0386 00eb | | Load_Encached Diana_Cache 0387 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0388 00e1 | | Load_Encached Boolean_Cache 0389 BODY_0368: 0389 00cf | | Action Mark_Auxiliary 038a e402 | | Load 0x2,0x2 038b 01d9 | | Execute Vector,Reverse_Bounds 038c 0263 | c | Execute Discrete,Above_Bound 038d 7023 |p# | Jump_Nonzero 0x3b1 038e 4801 |H | Short_Literal 0x1 038f 00d9 | | Load_Top At_Offset_1 0390 e402 | | Load 0x2,0x2 0391 01d7 | | Execute Vector,Field_Read 0392 e001 | | Load 0x0,0x1 0393 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0394 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0395 e407 | | Load 0x2,0x7 0396 e006 | | Load 0x0,0x6 0397 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0398 6816 |h | Jump_Zero 0x3af 0399 e406 | | Load 0x2,0x6 039a 680e |h | Jump_Zero 0x3a9 039b 00e1 | | Load_Encached Boolean_Cache 039c e5ff | | Load 0x2,-0x1 039d 4800 |H | Short_Literal 0x0 039e e404 | | Load 0x2,0x4 039f e405 | | Load 0x2,0x5 03a0 e001 | | Load 0x0,0x1 03a1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03a2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03a3 8218 | | Call 0x1,0x18 03a4 c408 | | Store 0x2,0x8 03a5 00db | | Load_Top At_Offset_3 03a6 6804 |h | Jump_Zero 0x3ab 03a7 00d2 | | Pop_Control Pop_Count_2 03a8 7808 |x | Jump 0x3b1 03a9 4801 |H | Short_Literal 0x1 03aa a406 | | Store_Unchecked 0x2,0x6 03ab 00d8 | | Load_Top At_Offset_0 03ac e402 | | Load 0x2,0x2 03ad 01d7 | | Execute Vector,Field_Read 03ae c405 | | Store 0x2,0x5 03af 00c8 | | Action Pop_Auxiliary_Range 03b0 3fdd |? | Loop_Increasing 0x38e 03b1 00ce | | Action Pop_Auxiliary 03b2 00db | | Load_Top At_Offset_3 03b3 c5fd | | Store 0x2,-0x3 03b4 00da | | Load_Top At_Offset_2 03b5 a5fc | | Store_Unchecked 0x2,-0x4 03b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b7 0000 | | .XXX[0x1] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03c4 | | .CONST 0x03c4 ; Address of begin 03b9 03ed | | .CONST 0x03ed ; Address of exception handler 03ba 0004 | | .CONST 0x0004 ; Number of locals 03bb INIT_03b8: 03bb 00f1 | | Load_Encached Diana_Temp_Seq 03bc 02c7 | | Declare_Variable Any 03bd 00d8 | | Load_Top At_Offset_0 03be 1c00 | | Execute_Immediate Run_Utility,0x0 03bf 00e1 | | Load_Encached Boolean_Cache 03c0 00ec | | Load_Encached Diana_Tree_Cache 03c1 02c7 | | Declare_Variable Any 03c2 e5fe | | Load 0x2,-0x2 03c3 a404 | | Store_Unchecked 0x2,0x4 03c4 BODY_03b8: 03c4 00e1 | | Load_Encached Boolean_Cache 03c5 00db | | Load_Top At_Offset_3 03c6 0120 | | Execute Any,Is_Value 03c7 6802 |h | Jump_Zero 0x3ca 03c8 00f1 | | Load_Encached Diana_Temp_Seq 03c9 7801 |x | Jump 0x3cb 03ca 00db | | Load_Top At_Offset_3 03cb 00da | | Load_Top At_Offset_2 03cc e5fd | | Load 0x2,-0x3 03cd e5fc | | Load 0x2,-0x4 03ce e001 | | Load 0x0,0x1 03cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03d0 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 03d1 e001 | | Load 0x0,0x1 03d2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03d3 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 03d4 e001 | | Load 0x0,0x1 03d5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03d6 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 03d7 e5ff | | Load 0x2,-0x1 03d8 e001 | | Load 0x0,0x1 03d9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03da 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03db e003 | | Load 0x0,0x3 03dc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03dd c404 | | Store 0x2,0x4 03de c402 | | Store 0x2,0x2 03df 005a | Z | Store_Top Discrete,At_Offset_2 03e0 00d9 | | Load_Top At_Offset_1 03e1 7003 |p | Jump_Nonzero 0x3e5 03e2 00ec | | Load_Encached Diana_Tree_Cache 03e3 c5fb | | Store 0x2,-0x5 03e4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03e5 00da | | Load_Top At_Offset_2 03e6 0217 | | Execute Heap_Access,All_Reference 03e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e8 4907 |I | Short_Literal 0x107 03e9 00eb | | Load_Encached Diana_Cache 03ea 0096 | | Execute Package,Entry 03eb c5fb | | Store 0x2,-0x5 03ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03ed TRAP_03b8: 03ed 0007 | | Action Break_Optional 03ee 00ec | | Load_Encached Diana_Tree_Cache 03ef c5fb | | Store 0x2,-0x5 03f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03f1 ; -------------------------------------------------------------------------------------- 03f1 ; STRING TABLE 03f1 ; -------------------------------------------------------------------------------------- 03f1 000e | | .STRTAB 0x000e->0x03f8 ; " should have one parameter" 03f2 0026 | & | .STRTAB 0x0026->0x0405 ; " does not convert to " 03f3 0039 | 9 | .STRTAB 0x0039->0x040f ; " does not match " 03f4 0047 | G | .STRTAB 0x0047->0x0417 ; " should not have a parameter" 03f5 0061 | a | .STRTAB 0x0061->0x0425 ; " is an unexpected node" 03f6 0075 | u | .STRTAB 0x0075->0x0430 ; " led to unexpected node " 03f7 008b | | .STREND 0x008b->0x043c 03f8 2073 686f | sho| .STRTAB_STRINGS 043d 0000 0000 | | .XXX[0x3] 043f 0000 | | 0440 ; -------------------------------------------------------------------------------------- 0440 ; Debug Table 0440 ; -------------------------------------------------------------------------------------- 0440 0004 000e | | .DEBUG4 0x0004,0x000e,0x943a,0x0000,0x0001,0x0000 0446 0000 0000 | | .BLANK 0000[0x1ba]