|
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: 5120 (0x1400) 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 09f8 | | .CONST 0x09f8 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 015e | ^ | .CONST 0x015e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 006a | j | .CONST 0x006a ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 000d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000f 0129 | ) | Execute Any,Make_Visible 0010 e001 | | Load 0x0,0x1 0011 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0012 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0013 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0014 0129 | ) | Execute Any,Make_Visible 0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0019 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001b 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001d 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0021 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0023 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0025 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0027 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0029 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 002b 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 002d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 002f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0031 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0033 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0035 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0037 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0039 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 003b 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 003d 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 003f 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0041 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0043 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0045 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 0047 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 0049 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 004b 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 004d 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 004f 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 0051 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0053 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0055 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated 0057 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 0059 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 005b 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated 005d 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated 005f 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated 0061 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 0063 029a 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Visible,Unelaborated 0065 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 0067 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 0069 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 006b 00bf | | Action Accept_Activation 006c e002 | | Load 0x0,0x2 006d 1910 | | Execute Package,Field_Reference,Field_Number 0x10 006e 0007 | | Action Break_Optional 006f e002 | | Load 0x0,0x2 0070 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0071 0007 | | Action Break_Optional 0072 e002 | | Load 0x0,0x2 0073 194c | L | Execute Package,Field_Reference,Field_Number 0x4c 0074 0007 | | Action Break_Optional 0075 e002 | | Load 0x0,0x2 0076 194e | N | Execute Package,Field_Reference,Field_Number 0x4e 0077 0007 | | Action Break_Optional 0078 e002 | | Load 0x0,0x2 0079 190f | | Execute Package,Field_Reference,Field_Number 0xf 007a 0007 | | Action Break_Optional 007b e002 | | Load 0x0,0x2 007c 1911 | | Execute Package,Field_Reference,Field_Number 0x11 007d 0007 | | Action Break_Optional 007e e002 | | Load 0x0,0x2 007f 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0080 0007 | | Action Break_Optional 0081 e002 | | Load 0x0,0x2 0082 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0083 0007 | | Action Break_Optional 0084 e002 | | Load 0x0,0x2 0085 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0086 0007 | | Action Break_Optional 0087 e002 | | Load 0x0,0x2 0088 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0089 0007 | | Action Break_Optional 008a e002 | | Load 0x0,0x2 008b 1918 | | Execute Package,Field_Reference,Field_Number 0x18 008c 0007 | | Action Break_Optional 008d e002 | | Load 0x0,0x2 008e 1919 | | Execute Package,Field_Reference,Field_Number 0x19 008f 0007 | | Action Break_Optional 0090 e002 | | Load 0x0,0x2 0091 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0092 0007 | | Action Break_Optional 0093 e002 | | Load 0x0,0x2 0094 194b | K | Execute Package,Field_Reference,Field_Number 0x4b 0095 0007 | | Action Break_Optional 0096 e002 | | Load 0x0,0x2 0097 194d | M | Execute Package,Field_Reference,Field_Number 0x4d 0098 0007 | | Action Break_Optional 0099 e002 | | Load 0x0,0x2 009a 1953 | S | Execute Package,Field_Reference,Field_Number 0x53 009b 0007 | | Action Break_Optional 009c e002 | | Load 0x0,0x2 009d 1954 | T | Execute Package,Field_Reference,Field_Number 0x54 009e 0007 | | Action Break_Optional 009f e002 | | Load 0x0,0x2 00a0 1955 | U | Execute Package,Field_Reference,Field_Number 0x55 00a1 0007 | | Action Break_Optional 00a2 e002 | | Load 0x0,0x2 00a3 1956 | V | Execute Package,Field_Reference,Field_Number 0x56 00a4 0007 | | Action Break_Optional 00a5 4800 |H | Short_Literal 0x0 00a6 e002 | | Load 0x0,0x2 00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a8 011e | | Execute Any,Convert 00a9 4801 |H | Short_Literal 0x1 00aa e002 | | Load 0x0,0x2 00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ac 011e | | Execute Any,Convert 00ad 4802 |H | Short_Literal 0x2 00ae e002 | | Load 0x0,0x2 00af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b0 011e | | Execute Any,Convert 00b1 4fff |O | Short_Literal -0x1 00b2 e002 | | Load 0x0,0x2 00b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b4 011e | | Execute Any,Convert 00b5 e003 | | Load 0x0,0x3 00b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b7 02a0 | | Declare_Subprogram Null_Subprogram 00b8 4800 |H | Short_Literal 0x0 00b9 032d | - | Declare_Type Record,Defined 00ba 00d8 | | Load_Top At_Offset_0 00bb 02a0 | | Declare_Subprogram Null_Subprogram 00bc 03ad | | Declare_Type Heap_Access,Defined 00bd 4800 |H | Short_Literal 0x0 00be e004 | | Load 0x0,0x4 00bf 02a0 | | Declare_Subprogram Null_Subprogram 00c0 038e | | Declare_Type Package,Defined 00c1 0387 | | Declare_Variable Package 00c2 4800 |H | Short_Literal 0x0 00c3 e005 | | Load 0x0,0x5 00c4 02a0 | | Declare_Subprogram Null_Subprogram 00c5 038e | | Declare_Type Package,Defined 00c6 0387 | | Declare_Variable Package 00c7 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call 00c9 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call 00cb 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00cc 00c7 | | Action Elaborate_Subprogram 00cd 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call 00cf 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call 00d1 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 00d3 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call 00d5 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00d6 00c7 | | Action Elaborate_Subprogram 00d7 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00da 00c7 | | Action Elaborate_Subprogram 00db 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00dc 00c7 | | Action Elaborate_Subprogram 00dd 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00de 00c7 | | Action Elaborate_Subprogram 00df 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00e4 00c7 | | Action Elaborate_Subprogram 00e5 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00e6 00c7 | | Action Elaborate_Subprogram 00e7 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00e8 00c7 | | Action Elaborate_Subprogram 00e9 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 00eb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00ec 00c7 | | Action Elaborate_Subprogram 00ed 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ee 00c7 | | Action Elaborate_Subprogram 00ef 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00f0 00c7 | | Action Elaborate_Subprogram 00f1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f2 00c7 | | Action Elaborate_Subprogram 00f3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00f4 00c7 | | Action Elaborate_Subprogram 00f5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00f6 00c7 | | Action Elaborate_Subprogram 00f7 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00f8 00c7 | | Action Elaborate_Subprogram 00f9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00fa 00c7 | | Action Elaborate_Subprogram 00fb 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0100 00c7 | | Action Elaborate_Subprogram 0101 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call 0103 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 0105 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call 0107 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call 0109 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call 010b 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call 010d 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call 010f 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call 0111 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 0113 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call 0115 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 0117 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0118 00c7 | | Action Elaborate_Subprogram 0119 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 011a 00c7 | | Action Elaborate_Subprogram 011b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 011c 00c7 | | Action Elaborate_Subprogram 011d 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 011e 00c7 | | Action Elaborate_Subprogram 011f 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call 0121 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0122 00c7 | | Action Elaborate_Subprogram 0123 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0124 00c7 | | Action Elaborate_Subprogram 0125 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0126 00c7 | | Action Elaborate_Subprogram 0127 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0128 00c7 | | Action Elaborate_Subprogram 0129 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 012b 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 012c 00c7 | | Action Elaborate_Subprogram 012d 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 012e 00c7 | | Action Elaborate_Subprogram 012f 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0130 00c7 | | Action Elaborate_Subprogram 0131 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0132 00c7 | | Action Elaborate_Subprogram 0133 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0134 00c7 | | Action Elaborate_Subprogram 0135 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 0137 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0138 00c7 | | Action Elaborate_Subprogram 0139 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 013a 00c7 | | Action Elaborate_Subprogram 013b 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 013c 00c7 | | Action Elaborate_Subprogram 013d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 013e 00c7 | | Action Elaborate_Subprogram 013f 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0140 00c7 | | Action Elaborate_Subprogram 0141 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0142 00c7 | | Action Elaborate_Subprogram 0143 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0144 00c7 | | Action Elaborate_Subprogram 0145 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0146 00c7 | | Action Elaborate_Subprogram 0147 e006 | | Load 0x0,0x6 0148 e007 | | Load 0x0,0x7 0149 e008 | | Load 0x0,0x8 014a e001 | | Load 0x0,0x1 014b e009 | | Load 0x0,0x9 014c e00a | | Load 0x0,0xa 014d e00b | | Load 0x0,0xb 014e 4807 |H | Short_Literal 0x7 014f e254 | T | Load 0x1,0x54 0150 020e | | Execute Module,Augment_Imports 0151 e254 | T | Load 0x1,0x54 0152 020f | | Execute Module,Activate 0153 e007 | | Load 0x0,0x7 0154 e001 | | Load 0x0,0x1 0155 e00b | | Load 0x0,0xb 0156 e009 | | Load 0x0,0x9 0157 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0158 e00a | | Load 0x0,0xa 0159 4806 |H | Short_Literal 0x6 015a e255 | U | Load 0x1,0x55 015b 020e | | Execute Module,Augment_Imports 015c e255 | U | Load 0x1,0x55 015d 020f | | Execute Module,Activate 015e BODY_0008: 015e 00bc | | Action Signal_Activated 015f 00bb | | Action Signal_Completion 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0164 0000 0000 | | .BLANK 0000[0x4] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0173 | s | .CONST 0x0173 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e20d | | Load 0x1,0xd 016c 4801 |H | Short_Literal 0x1 016d e5fe | | Load 0x2,-0x2 016e e5ff | | Load 0x2,-0x1 016f e254 | T | Load 0x1,0x54 0170 180f | | Execute Package,Field_Execute,Field_Number 0xf 0171 c5fd | | Store 0x2,-0x3 0172 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0173 TRAP_0168: 0173 e009 | | Load 0x0,0x9 0174 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0175 010f | | Execute Exception,Equal 0176 7004 |p | Jump_Nonzero 0x17b 0177 e007 | | Load 0x0,0x7 0178 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0179 010f | | Execute Exception,Equal 017a 6803 |h | Jump_Zero 0x17e 017b 480e |H | Short_Literal 0xe 017c a5fd | | Store_Unchecked 0x2,-0x3 017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017e e5fe | | Load 0x2,-0x2 017f e5ff | | Load 0x2,-0x1 0180 8259 | Y | Call 0x1,0x59 0181 480d |H | Short_Literal 0xd 0182 a5fd | | Store_Unchecked 0x2,-0x3 0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0193 | | .CONST 0x0193 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e20d | | Load 0x1,0xd 018c 4803 |H | Short_Literal 0x3 018d e5fe | | Load 0x2,-0x2 018e e5ff | | Load 0x2,-0x1 018f e254 | T | Load 0x1,0x54 0190 180f | | Execute Package,Field_Execute,Field_Number 0xf 0191 c5fd | | Store 0x2,-0x3 0192 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0193 TRAP_0188: 0193 e009 | | Load 0x0,0x9 0194 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0195 010f | | Execute Exception,Equal 0196 7004 |p | Jump_Nonzero 0x19b 0197 e007 | | Load 0x0,0x7 0198 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0199 010f | | Execute Exception,Equal 019a 6803 |h | Jump_Zero 0x19e 019b 480e |H | Short_Literal 0xe 019c a5fd | | Store_Unchecked 0x2,-0x3 019d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019e e5fe | | Load 0x2,-0x2 019f e5ff | | Load 0x2,-0x1 01a0 8259 | Y | Call 0x1,0x59 01a1 480d |H | Short_Literal 0xd 01a2 a5fd | | Store_Unchecked 0x2,-0x3 01a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 01b3 | | .CONST 0x01b3 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e20d | | Load 0x1,0xd 01ac 4802 |H | Short_Literal 0x2 01ad e5fe | | Load 0x2,-0x2 01ae e5ff | | Load 0x2,-0x1 01af e254 | T | Load 0x1,0x54 01b0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b1 c5fd | | Store 0x2,-0x3 01b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b3 TRAP_01a8: 01b3 e009 | | Load 0x0,0x9 01b4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01b5 010f | | Execute Exception,Equal 01b6 7004 |p | Jump_Nonzero 0x1bb 01b7 e007 | | Load 0x0,0x7 01b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b9 010f | | Execute Exception,Equal 01ba 6803 |h | Jump_Zero 0x1be 01bb 480e |H | Short_Literal 0xe 01bc a5fd | | Store_Unchecked 0x2,-0x3 01bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01be e5fe | | Load 0x2,-0x2 01bf e5ff | | Load 0x2,-0x1 01c0 8259 | Y | Call 0x1,0x59 01c1 480d |H | Short_Literal 0xd 01c2 a5fd | | Store_Unchecked 0x2,-0x3 01c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c4 0000 0000 | | .BLANK 0000[0x4] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 01d3 | | .CONST 0x01d3 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb e20d | | Load 0x1,0xd 01cc 4804 |H | Short_Literal 0x4 01cd e5fe | | Load 0x2,-0x2 01ce e5ff | | Load 0x2,-0x1 01cf e254 | T | Load 0x1,0x54 01d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d1 c5fc | | Store 0x2,-0x4 01d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d3 TRAP_01c8: 01d3 e009 | | Load 0x0,0x9 01d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d5 010f | | Execute Exception,Equal 01d6 7004 |p | Jump_Nonzero 0x1db 01d7 e007 | | Load 0x0,0x7 01d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d9 010f | | Execute Exception,Equal 01da 6803 |h | Jump_Zero 0x1de 01db 480e |H | Short_Literal 0xe 01dc a5fc | | Store_Unchecked 0x2,-0x4 01dd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01de e5fe | | Load 0x2,-0x2 01df e5ff | | Load 0x2,-0x1 01e0 8259 | Y | Call 0x1,0x59 01e1 480d |H | Short_Literal 0xd 01e2 a5fc | | Store_Unchecked 0x2,-0x4 01e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 01f3 | | .CONST 0x01f3 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb e20d | | Load 0x1,0xd 01ec 4800 |H | Short_Literal 0x0 01ed e5fe | | Load 0x2,-0x2 01ee e5ff | | Load 0x2,-0x1 01ef e254 | T | Load 0x1,0x54 01f0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f1 c5fd | | Store 0x2,-0x3 01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f3 TRAP_01e8: 01f3 e009 | | Load 0x0,0x9 01f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f5 010f | | Execute Exception,Equal 01f6 7004 |p | Jump_Nonzero 0x1fb 01f7 e007 | | Load 0x0,0x7 01f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f9 010f | | Execute Exception,Equal 01fa 6803 |h | Jump_Zero 0x1fe 01fb 480e |H | Short_Literal 0xe 01fc a5fd | | Store_Unchecked 0x2,-0x3 01fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fe e5fe | | Load 0x2,-0x2 01ff e5ff | | Load 0x2,-0x1 0200 8259 | Y | Call 0x1,0x59 0201 480d |H | Short_Literal 0xd 0202 a5fd | | Store_Unchecked 0x2,-0x3 0203 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0211 | | .CONST 0x0211 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b 00ec | | Load_Encached Diana_Tree_Cache 020c 02c7 | | Declare_Variable Any 020d e5fe | | Load 0x2,-0x2 020e 00eb | | Load_Encached Diana_Cache 020f 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0210 a402 | | Store_Unchecked 0x2,0x2 0211 BODY_0208: 0211 4800 |H | Short_Literal 0x0 0212 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0213 0000 0000 | | .BLANK 0000[0x5] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 480d |H | Short_Literal 0xd 021c a5fd | | Store_Unchecked 0x2,-0x3 021d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 480d |H | Short_Literal 0xd 0224 a5fd | | Store_Unchecked 0x2,-0x3 0225 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 480d |H | Short_Literal 0xd 022c a5fd | | Store_Unchecked 0x2,-0x3 022d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 4801 |H | Short_Literal 0x1 0234 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e20d | | Load 0x1,0xd 023c 4800 |H | Short_Literal 0x0 023d e5fd | | Load 0x2,-0x3 023e e5ff | | Load 0x2,-0x1 023f 825c | \ | Call 0x1,0x5c 0240 c5fc | | Store 0x2,-0x4 0241 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0242 0000 0000 | | .BLANK 0000[0x6] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e20d | | Load 0x1,0xd 024c 4801 |H | Short_Literal 0x1 024d e5fd | | Load 0x2,-0x3 024e e5ff | | Load 0x2,-0x1 024f 825c | \ | Call 0x1,0x5c 0250 c5fc | | Store 0x2,-0x4 0251 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0252 0000 0000 | | .BLANK 0000[0x6] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e20d | | Load 0x1,0xd 025c 4802 |H | Short_Literal 0x2 025d e5fd | | Load 0x2,-0x3 025e e5ff | | Load 0x2,-0x1 025f 825c | \ | Call 0x1,0x5c 0260 c5fc | | Store 0x2,-0x4 0261 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0262 0000 0000 | | .BLANK 0000[0x6] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0275 | u | .CONST 0x0275 ; Address of begin 0269 0287 | | .CONST 0x0287 ; Address of exception handler 026a 0004 | | .CONST 0x0004 ; Number of locals 026b INIT_0268: 026b e20d | | Load 0x1,0xd 026c 060e | | Execute_Immediate Set_Value_Unchecked,0xe 026d e007 | | Load 0x0,0x7 026e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 026f 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0270 02c7 | | Declare_Variable Any 0271 00d8 | | Load_Top At_Offset_0 0272 1c00 | | Execute_Immediate Run_Utility,0x0 0273 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call 0275 BODY_0268: 0275 e20d | | Load 0x1,0xd 0276 4803 |H | Short_Literal 0x3 0277 e5fc | | Load 0x2,-0x4 0278 e5ff | | Load 0x2,-0x1 0279 825c | \ | Call 0x1,0x5c 027a 005b | [ | Store_Top Discrete,At_Offset_3 027b 00da | | Load_Top At_Offset_2 027c 0f0e | | Execute_Immediate Equal,0xe 027d 6806 |h | Jump_Zero 0x284 027e e5ff | | Load 0x2,-0x1 027f 8256 | V | Call 0x1,0x56 0280 e009 | | Load 0x0,0x9 0281 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0282 c403 | | Store 0x2,0x3 0283 8404 | | Call 0x2,0x4 0284 00da | | Load_Top At_Offset_2 0285 a5fb | | Store_Unchecked 0x2,-0x5 0286 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0287 TRAP_0268: 0287 e009 | | Load 0x0,0x9 0288 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0289 010f | | Execute Exception,Equal 028a 7004 |p | Jump_Nonzero 0x28f 028b e007 | | Load 0x0,0x7 028c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028d 010f | | Execute Exception,Equal 028e 6803 |h | Jump_Zero 0x292 028f 480e |H | Short_Literal 0xe 0290 a5fb | | Store_Unchecked 0x2,-0x5 0291 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0292 e5fc | | Load 0x2,-0x4 0293 e5ff | | Load 0x2,-0x1 0294 8259 | Y | Call 0x1,0x59 0295 480d |H | Short_Literal 0xd 0296 a5fb | | Store_Unchecked 0x2,-0x5 0297 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e20d | | Load 0x1,0xd 029c 4804 |H | Short_Literal 0x4 029d e5fd | | Load 0x2,-0x3 029e e5ff | | Load 0x2,-0x1 029f 825c | \ | Call 0x1,0x5c 02a0 c5fc | | Store 0x2,-0x4 02a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e20d | | Load 0x1,0xd 02ac 4806 |H | Short_Literal 0x6 02ad e5fd | | Load 0x2,-0x3 02ae e5ff | | Load 0x2,-0x1 02af 825c | \ | Call 0x1,0x5c 02b0 c5fc | | Store 0x2,-0x4 02b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02b2 0000 0000 | | .BLANK 0000[0x6] 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 e20d | | Load 0x1,0xd 02bc 4807 |H | Short_Literal 0x7 02bd e5fd | | Load 0x2,-0x3 02be e5ff | | Load 0x2,-0x1 02bf 825c | \ | Call 0x1,0x5c 02c0 c5fc | | Store 0x2,-0x4 02c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c2 0000 0000 | | .BLANK 0000[0x6] 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 e20d | | Load 0x1,0xd 02cc 4808 |H | Short_Literal 0x8 02cd e5fe | | Load 0x2,-0x2 02ce e5ff | | Load 0x2,-0x1 02cf 825c | \ | Call 0x1,0x5c 02d0 c5fd | | Store 0x2,-0x3 02d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d2 0000 0000 | | .BLANK 0000[0x6] 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 e20d | | Load 0x1,0xd 02dc 4809 |H | Short_Literal 0x9 02dd e5fc | | Load 0x2,-0x4 02de e5ff | | Load 0x2,-0x1 02df 825c | \ | Call 0x1,0x5c 02e0 c5fb | | Store 0x2,-0x5 02e1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02e2 0000 0000 | | .BLANK 0000[0x6] 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 e20d | | Load 0x1,0xd 02ec 480c |H | Short_Literal 0xc 02ed e5fd | | Load 0x2,-0x3 02ee e5ff | | Load 0x2,-0x1 02ef 825c | \ | Call 0x1,0x5c 02f0 c5fc | | Store 0x2,-0x4 02f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02f2 0000 0000 | | .BLANK 0000[0x6] 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 e20d | | Load 0x1,0xd 02fc 480c |H | Short_Literal 0xc 02fd e5fc | | Load 0x2,-0x4 02fe e5ff | | Load 0x2,-0x1 02ff 825c | \ | Call 0x1,0x5c 0300 c5fb | | Store 0x2,-0x5 0301 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0317 | | .CONST 0x0317 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0004 | | .CONST 0x0004 ; Number of locals 030b INIT_0308: 030b 00ec | | Load_Encached Diana_Tree_Cache 030c 02c7 | | Declare_Variable Any 030d 00d8 | | Load_Top At_Offset_0 030e 1c00 | | Execute_Immediate Run_Utility,0x0 030f e251 | Q | Load 0x1,0x51 0310 0322 | " | Declare_Variable Record 0311 e5ff | | Load 0x2,-0x1 0312 8256 | V | Call 0x1,0x56 0313 00d9 | | Load_Top At_Offset_1 0314 017d | } | Execute Record,Structure_Write 0315 029f 082b | +| Declare_Subprogram INIT_0828,For_Call 0317 BODY_0308: 0317 e5fe | | Load 0x2,-0x2 0318 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0319 0f71 | q | Execute_Immediate Equal,0x71 031a 7004 |p | Jump_Nonzero 0x31f 031b e5fe | | Load 0x2,-0x2 031c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 031d 0f70 | p | Execute_Immediate Equal,0x70 031e 680a |h | Jump_Zero 0x329 031f e5fe | | Load 0x2,-0x2 0320 00eb | | Load_Encached Diana_Cache 0321 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0322 00eb | | Load_Encached Diana_Cache 0323 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0324 4907 |I | Short_Literal 0x107 0325 00eb | | Load_Encached Diana_Cache 0326 0096 | | Execute Package,Entry 0327 c402 | | Store 0x2,0x2 0328 7802 |x | Jump 0x32b 0329 e5fe | | Load 0x2,-0x2 032a c402 | | Store 0x2,0x2 032b 00da | | Load_Top At_Offset_2 032c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 032d 00d8 | | Load_Top At_Offset_0 032e 4864 |Hd | Short_Literal 0x64 032f 4872 |Hr | Short_Literal 0x72 0330 0262 | b | Execute Discrete,In_Range 0331 6835 |h5 | Jump_Zero 0x367 0332 0a9c | | Execute_Immediate Plus,-0x64 0333 460e |F | Jump_Case 0xf 0334 7824 |x$ | Jump 0x359 ; case 0x0 0335 781c |x | Jump 0x352 ; case 0x1 0336 7831 |x1 | Jump 0x368 ; case 0x2 0337 7830 |x0 | Jump 0x368 ; case 0x3 0338 782f |x/ | Jump 0x368 ; case 0x4 0339 782e |x. | Jump 0x368 ; case 0x5 033a 782d |x- | Jump 0x368 ; case 0x6 033b 7824 |x$ | Jump 0x360 ; case 0x7 033c 7806 |x | Jump 0x343 ; case 0x8 033d 7827 |x' | Jump 0x365 ; case 0x9 033e 7807 |x | Jump 0x346 ; case 0xa 033f 780c |x | Jump 0x34c ; case 0xb 0340 7827 |x' | Jump 0x368 ; case 0xc 0341 7826 |x& | Jump 0x368 ; case 0xd 0342 7800 |x | Jump 0x343 ; case 0xe 0343 480e |H | Short_Literal 0xe 0344 a5fc | | Store_Unchecked 0x2,-0x4 0345 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0346 e5fd | | Load 0x2,-0x3 0347 00da | | Load_Top At_Offset_2 0348 e402 | | Load 0x2,0x2 0349 825d | ] | Call 0x1,0x5d 034a a5fc | | Store_Unchecked 0x2,-0x4 034b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 034c e5fd | | Load 0x2,-0x3 034d 00da | | Load_Top At_Offset_2 034e e402 | | Load 0x2,0x2 034f 825e | ^ | Call 0x1,0x5e 0350 a5fc | | Store_Unchecked 0x2,-0x4 0351 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0352 4800 |H | Short_Literal 0x0 0353 e5fd | | Load 0x2,-0x3 0354 00db | | Load_Top At_Offset_3 0355 e402 | | Load 0x2,0x2 0356 8264 | d | Call 0x1,0x64 0357 a5fc | | Store_Unchecked 0x2,-0x4 0358 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0359 4800 |H | Short_Literal 0x0 035a e5fd | | Load 0x2,-0x3 035b 00db | | Load_Top At_Offset_3 035c e402 | | Load 0x2,0x2 035d 8263 | c | Call 0x1,0x63 035e a5fc | | Store_Unchecked 0x2,-0x4 035f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0360 e5fd | | Load 0x2,-0x3 0361 00da | | Load_Top At_Offset_2 0362 8265 | e | Call 0x1,0x65 0363 a5fc | | Store_Unchecked 0x2,-0x4 0364 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0365 8404 | | Call 0x2,0x4 0366 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0367 00d1 | | Pop_Control Pop_Count_1 0368 480d |H | Short_Literal 0xd 0369 a5fc | | Store_Unchecked 0x2,-0x4 036a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0385 | | .CONST 0x0385 ; Address of begin 0371 03f1 | | .CONST 0x03f1 ; Address of exception handler 0372 0005 | | .CONST 0x0005 ; Number of locals 0373 INIT_0370: 0373 00eb | | Load_Encached Diana_Cache 0374 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0375 02c7 | | Declare_Variable Any 0376 00d8 | | Load_Top At_Offset_0 0377 1c00 | | Execute_Immediate Run_Utility,0x0 0378 00e1 | | Load_Encached Boolean_Cache 0379 e007 | | Load 0x0,0x7 037a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 037b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 037c 02c7 | | Declare_Variable Any 037d 00d8 | | Load_Top At_Offset_0 037e 1c00 | | Execute_Immediate Run_Utility,0x0 037f e007 | | Load 0x0,0x7 0380 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0381 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0382 02c7 | | Declare_Variable Any 0383 00d8 | | Load_Top At_Offset_0 0384 1c00 | | Execute_Immediate Run_Utility,0x0 0385 BODY_0370: 0385 480e |H | Short_Literal 0xe 0386 a5fc | | Store_Unchecked 0x2,-0x4 0387 e5ff | | Load 0x2,-0x1 0388 e001 | | Load 0x0,0x1 0389 1b13 | | Execute Package,Field_Read,Field_Number 0x13 038a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 038b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038c e009 | | Load 0x0,0x9 038d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 038e e007 | | Load 0x0,0x7 038f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0390 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0391 c405 | | Store 0x2,0x5 0392 00d8 | | Load_Top At_Offset_0 0393 e007 | | Load 0x0,0x7 0394 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0395 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0396 7008 |p | Jump_Nonzero 0x39f 0397 e5fe | | Load 0x2,-0x2 0398 4903 |I | Short_Literal 0x103 0399 00eb | | Load_Encached Diana_Cache 039a 0096 | | Execute Package,Entry 039b 6803 |h | Jump_Zero 0x39f 039c 480d |H | Short_Literal 0xd 039d a5fc | | Store_Unchecked 0x2,-0x4 039e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 039f e5fe | | Load 0x2,-0x2 03a0 e00c | | Load 0x0,0xc 03a1 180d | | Execute Package,Field_Execute,Field_Number 0xd 03a2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 03a3 0b73 | s | Execute_Immediate Case_Compare,0x73 03a4 7005 |p | Jump_Nonzero 0x3aa 03a5 0f6b | k | Execute_Immediate Equal,0x6b 03a6 7027 |p' | Jump_Nonzero 0x3ce 03a7 480d |H | Short_Literal 0xd 03a8 a5fc | | Store_Unchecked 0x2,-0x4 03a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03aa 00d1 | | Pop_Control Pop_Count_1 03ab 00d8 | | Load_Top At_Offset_0 03ac e007 | | Load 0x0,0x7 03ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03af 7003 |p | Jump_Nonzero 0x3b3 03b0 480d |H | Short_Literal 0xd 03b1 a5fc | | Store_Unchecked 0x2,-0x4 03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b3 00db | | Load_Top At_Offset_3 03b4 0120 | | Execute Any,Is_Value 03b5 6803 |h | Jump_Zero 0x3b9 03b6 00eb | | Load_Encached Diana_Cache 03b7 1b96 | | Execute Package,Field_Read,Field_Number 0x96 03b8 7801 |x | Jump 0x3ba 03b9 00db | | Load_Top At_Offset_3 03ba 00e1 | | Load_Encached Boolean_Cache 03bb e5fd | | Load 0x2,-0x3 03bc e00d | | Load 0x0,0xd 03bd 180d | | Execute Package,Field_Execute,Field_Number 0xd 03be c403 | | Store 0x2,0x3 03bf c402 | | Store 0x2,0x2 03c0 00da | | Load_Top At_Offset_2 03c1 682e |h. | Jump_Zero 0x3f0 03c2 00d8 | | Load_Top At_Offset_0 03c3 e007 | | Load 0x0,0x7 03c4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03c6 e402 | | Load 0x2,0x2 03c7 00eb | | Load_Encached Diana_Cache 03c8 189f | | Execute Package,Field_Execute,Field_Number 0x9f 03c9 027c | | | Execute Discrete,Less 03ca 6825 |h% | Jump_Zero 0x3f0 03cb 480d |H | Short_Literal 0xd 03cc a5fc | | Store_Unchecked 0x2,-0x4 03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ce 00d8 | | Load_Top At_Offset_0 03cf e007 | | Load 0x0,0x7 03d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03d1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03d2 7003 |p | Jump_Nonzero 0x3d6 03d3 480d |H | Short_Literal 0xd 03d4 a5fc | | Store_Unchecked 0x2,-0x4 03d5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03d6 00db | | Load_Top At_Offset_3 03d7 0120 | | Execute Any,Is_Value 03d8 6803 |h | Jump_Zero 0x3dc 03d9 00eb | | Load_Encached Diana_Cache 03da 1b96 | | Execute Package,Field_Read,Field_Number 0x96 03db 7801 |x | Jump 0x3dd 03dc 00db | | Load_Top At_Offset_3 03dd 00e1 | | Load_Encached Boolean_Cache 03de e5fd | | Load 0x2,-0x3 03df e00d | | Load 0x0,0xd 03e0 180d | | Execute Package,Field_Execute,Field_Number 0xd 03e1 c403 | | Store 0x2,0x3 03e2 c402 | | Store 0x2,0x2 03e3 00da | | Load_Top At_Offset_2 03e4 680b |h | Jump_Zero 0x3f0 03e5 00d8 | | Load_Top At_Offset_0 03e6 e007 | | Load 0x0,0x7 03e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03e8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03e9 e402 | | Load 0x2,0x2 03ea 00eb | | Load_Encached Diana_Cache 03eb 189f | | Execute Package,Field_Execute,Field_Number 0x9f 03ec 027c | | | Execute Discrete,Less 03ed 6802 |h | Jump_Zero 0x3f0 03ee 480d |H | Short_Literal 0xd 03ef a5fc | | Store_Unchecked 0x2,-0x4 03f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f1 TRAP_0370: 03f1 e007 | | Load 0x0,0x7 03f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f3 010f | | Execute Exception,Equal 03f4 7004 |p | Jump_Nonzero 0x3f9 03f5 e009 | | Load 0x0,0x9 03f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f7 010f | | Execute Exception,Equal 03f8 6803 |h | Jump_Zero 0x3fc 03f9 480e |H | Short_Literal 0xe 03fa a5fc | | Store_Unchecked 0x2,-0x4 03fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03fc 480d |H | Short_Literal 0xd 03fd a5fc | | Store_Unchecked 0x2,-0x4 03fe e5fe | | Load 0x2,-0x2 03ff e5ff | | Load 0x2,-0x1 0400 8259 | Y | Call 0x1,0x59 0401 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0402 0000 0000 | | .BLANK 0000[0x6] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040f | | .CONST 0x040f ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0003 | | .CONST 0x0003 ; Number of locals 040b INIT_0408: 040b 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call 040d 029f 08bb | | Declare_Subprogram INIT_08b8,For_Call 040f BODY_0408: 040f 8402 | | Call 0x2,0x2 0410 e5fe | | Load 0x2,-0x2 0411 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0412 0f6d | m | Execute_Immediate Equal,0x6d 0413 6801 |h | Jump_Zero 0x415 0414 8403 | | Call 0x2,0x3 0415 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0416 0000 0000 | | .XXX[0x2] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 043e | > | .CONST 0x043e ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0009 | | .CONST 0x0009 ; Number of locals 041b INIT_0418: 041b e251 | Q | Load 0x1,0x51 041c 0322 | " | Declare_Variable Record 041d 00db | | Load_Top At_Offset_3 041e 8256 | V | Call 0x1,0x56 041f 00d9 | | Load_Top At_Offset_1 0420 017d | } | Execute Record,Structure_Write 0421 e5fd | | Load 0x2,-0x3 0422 00e5 | | Load_Encached Long_Integer_Cache 0423 03f1 | | Declare_Variable Discrete,With_Value 0424 00ee | | Load_Encached Diana_Seq_Type_Cache 0425 02c7 | | Declare_Variable Any 0426 e5fe | | Load 0x2,-0x2 0427 00eb | | Load_Encached Diana_Cache 0428 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0429 a404 | | Store_Unchecked 0x2,0x4 042a 00d8 | | Load_Top At_Offset_0 042b 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 042c 00eb | | Load_Encached Diana_Cache 042d 18f0 | | Execute Package,Field_Execute,Field_Number 0xf0 042e 0d00 | | Execute_Immediate Less,0x0 042f 7003 |p | Jump_Nonzero 0x433 0430 00d9 | | Load_Top At_Offset_1 0431 0d00 | | Execute_Immediate Less,0x0 0432 7801 |x | Jump 0x434 0433 4801 |H | Short_Literal 0x1 0434 00e1 | | Load_Encached Boolean_Cache 0435 03f1 | | Declare_Variable Discrete,With_Value 0436 00ec | | Load_Encached Diana_Tree_Cache 0437 02c7 | | Declare_Variable Any 0438 00d8 | | Load_Top At_Offset_0 0439 1c00 | | Execute_Immediate Run_Utility,0x0 043a 00e5 | | Load_Encached Long_Integer_Cache 043b 03e9 | | Declare_Variable Discrete,Duplicate 043c 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call 043e BODY_0418: 043e 480e |H | Short_Literal 0xe 043f a5fc | | Store_Unchecked 0x2,-0x4 0440 e5fe | | Load 0x2,-0x2 0441 4903 |I | Short_Literal 0x103 0442 00eb | | Load_Encached Diana_Cache 0443 0096 | | Execute Package,Entry 0444 c406 | | Store 0x2,0x6 0445 00db | | Load_Top At_Offset_3 0446 6813 |h | Jump_Zero 0x45a 0447 00db | | Load_Top At_Offset_3 0448 00eb | | Load_Encached Diana_Cache 0449 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 044a 00eb | | Load_Encached Diana_Cache 044b 189f | | Execute Package,Field_Execute,Field_Number 0x9f 044c 8409 | | Call 0x2,0x9 044d e403 | | Load 0x2,0x3 044e 00db | | Load_Top At_Offset_3 044f 027d | } | Execute Discrete,Greater 0450 6803 |h | Jump_Zero 0x454 0451 4801 |H | Short_Literal 0x1 0452 a5fc | | Store_Unchecked 0x2,-0x4 0453 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0454 e403 | | Load 0x2,0x3 0455 00da | | Load_Top At_Offset_2 0456 027c | | | Execute Discrete,Less 0457 6802 |h | Jump_Zero 0x45a 0458 4800 |H | Short_Literal 0x0 0459 a5fc | | Store_Unchecked 0x2,-0x4 045a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 045b 0000 0000 | | .BLANK 0000[0x5] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0469 | i | .CONST 0x0469 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 e251 | Q | Load 0x1,0x51 0464 0322 | " | Declare_Variable Record 0465 00db | | Load_Top At_Offset_3 0466 8256 | V | Call 0x1,0x56 0467 00d9 | | Load_Top At_Offset_1 0468 017d | } | Execute Record,Structure_Write 0469 BODY_0460: 0469 e5fd | | Load 0x2,-0x3 046a 0d01 | | Execute_Immediate Less,0x1 046b 6803 |h | Jump_Zero 0x46f 046c 4800 |H | Short_Literal 0x0 046d a5fc | | Store_Unchecked 0x2,-0x4 046e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 046f 480e |H | Short_Literal 0xe 0470 a5fc | | Store_Unchecked 0x2,-0x4 0471 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0472 0000 0000 | | .BLANK 0000[0x6] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b e5fd | | Load 0x2,-0x3 047c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 047d 0f1c | | Execute_Immediate Equal,0x1c 047e 7003 |p | Jump_Nonzero 0x482 047f 480e |H | Short_Literal 0xe 0480 a5f9 | | Store_Unchecked 0x2,-0x7 0481 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0482 480e |H | Short_Literal 0xe 0483 a5f9 | | Store_Unchecked 0x2,-0x7 0484 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0485 0000 0000 | | .XXX[0x3] 0487 0000 | | 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 480e |H | Short_Literal 0xe 048c a5fc | | Store_Unchecked 0x2,-0x4 048d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 048e 0000 0000 | | .XXX[0x2] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 480e |H | Short_Literal 0xe 0494 a5fd | | Store_Unchecked 0x2,-0x3 0495 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0496 0000 0000 | | .XXX[0x2] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04aa | | .CONST 0x04aa ; Address of begin 0499 04db | | .CONST 0x04db ; Address of exception handler 049a 0005 | | .CONST 0x0005 ; Number of locals 049b INIT_0498: 049b e007 | | Load 0x0,0x7 049c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 049d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 049e 02c7 | | Declare_Variable Any 049f 00d8 | | Load_Top At_Offset_0 04a0 1c00 | | Execute_Immediate Run_Utility,0x0 04a1 00e1 | | Load_Encached Boolean_Cache 04a2 00ec | | Load_Encached Diana_Tree_Cache 04a3 02c7 | | Declare_Variable Any 04a4 00d8 | | Load_Top At_Offset_0 04a5 1c00 | | Execute_Immediate Run_Utility,0x0 04a6 00f1 | | Load_Encached Diana_Temp_Seq 04a7 02c7 | | Declare_Variable Any 04a8 00d8 | | Load_Top At_Offset_0 04a9 1c00 | | Execute_Immediate Run_Utility,0x0 04aa BODY_0498: 04aa 480e |H | Short_Literal 0xe 04ab a5fc | | Store_Unchecked 0x2,-0x4 04ac e5ff | | Load 0x2,-0x1 04ad e001 | | Load 0x0,0x1 04ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13 04af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04b1 e009 | | Load 0x0,0x9 04b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04b3 e007 | | Load 0x0,0x7 04b4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04b5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04b6 c402 | | Store 0x2,0x2 04b7 e5fe | | Load 0x2,-0x2 04b8 c404 | | Store 0x2,0x4 04b9 00e1 | | Load_Encached Boolean_Cache 04ba 00d9 | | Load_Top At_Offset_1 04bb 0120 | | Execute Any,Is_Value 04bc 6802 |h | Jump_Zero 0x4bf 04bd 00f1 | | Load_Encached Diana_Temp_Seq 04be 7801 |x | Jump 0x4c0 04bf 00d9 | | Load_Top At_Offset_1 04c0 00db | | Load_Top At_Offset_3 04c1 4800 |H | Short_Literal 0x0 04c2 e5ff | | Load 0x2,-0x1 04c3 e007 | | Load 0x0,0x7 04c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04c5 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 04c6 e402 | | Load 0x2,0x2 04c7 e007 | | Load 0x0,0x7 04c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04ca e402 | | Load 0x2,0x2 04cb e007 | | Load 0x0,0x7 04cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04ce e007 | | Load 0x0,0x7 04cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04d1 e00b | | Load 0x0,0xb 04d2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 04d3 c404 | | Store 0x2,0x4 04d4 c405 | | Store 0x2,0x5 04d5 005b | [ | Store_Top Discrete,At_Offset_3 04d6 00da | | Load_Top At_Offset_2 04d7 7002 |p | Jump_Nonzero 0x4da 04d8 480d |H | Short_Literal 0xd 04d9 a5fc | | Store_Unchecked 0x2,-0x4 04da 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04db TRAP_0498: 04db e007 | | Load 0x0,0x7 04dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04dd 010f | | Execute Exception,Equal 04de 7004 |p | Jump_Nonzero 0x4e3 04df e009 | | Load 0x0,0x9 04e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04e1 010f | | Execute Exception,Equal 04e2 6803 |h | Jump_Zero 0x4e6 04e3 480e |H | Short_Literal 0xe 04e4 a5fc | | Store_Unchecked 0x2,-0x4 04e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04e6 480d |H | Short_Literal 0xd 04e7 a5fc | | Store_Unchecked 0x2,-0x4 04e8 e5fe | | Load 0x2,-0x2 04e9 e5ff | | Load 0x2,-0x1 04ea 8259 | Y | Call 0x1,0x59 04eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f4 0000 0000 | | .BLANK 0000[0x4] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 0500 | | .CONST 0x0500 ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0003 | | .CONST 0x0003 ; Number of locals 04fb INIT_04f8: 04fb 00da | | Load_Top At_Offset_2 04fc 8256 | V | Call 0x1,0x56 04fd 00d8 | | Load_Top At_Offset_0 04fe e00e | | Load 0x0,0xe 04ff 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0500 BODY_04f8: 0500 00cf | | Action Mark_Auxiliary 0501 00d9 | | Load_Top At_Offset_1 0502 01d9 | | Execute Vector,Reverse_Bounds 0503 0263 | c | Execute Discrete,Above_Bound 0504 701a |p | Jump_Nonzero 0x51f 0505 00d8 | | Load_Top At_Offset_0 0506 e403 | | Load 0x2,0x3 0507 01d7 | | Execute Vector,Field_Read 0508 e007 | | Load 0x0,0x7 0509 1b13 | | Execute Package,Field_Read,Field_Number 0x13 050a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 050b e5fe | | Load 0x2,-0x2 050c 823b | ; | Call 0x1,0x3b 050d 680f |h | Jump_Zero 0x51d 050e 00d8 | | Load_Top At_Offset_0 050f e403 | | Load 0x2,0x3 0510 01d7 | | Execute Vector,Field_Read 0511 e007 | | Load 0x0,0x7 0512 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0513 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0514 e5fd | | Load 0x2,-0x3 0515 823a | : | Call 0x1,0x3a 0516 6806 |h | Jump_Zero 0x51d 0517 00d8 | | Load_Top At_Offset_0 0518 e402 | | Load 0x2,0x2 0519 e00e | | Load 0x0,0xe 051a 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 051b 01d7 | | Execute Vector,Field_Read 051c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 051d 00c8 | | Action Pop_Auxiliary_Range 051e 3fe6 |? | Loop_Increasing 0x505 051f 00ce | | Action Pop_Auxiliary 0520 00ec | | Load_Encached Diana_Tree_Cache 0521 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0522 0000 0000 | | .BLANK 0000[0x6] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0530 | 0 | .CONST 0x0530 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0003 | | .CONST 0x0003 ; Number of locals 052b INIT_0528: 052b 00da | | Load_Top At_Offset_2 052c 8256 | V | Call 0x1,0x56 052d 00d8 | | Load_Top At_Offset_0 052e e00e | | Load 0x0,0xe 052f 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0530 BODY_0528: 0530 00cf | | Action Mark_Auxiliary 0531 00d9 | | Load_Top At_Offset_1 0532 01d9 | | Execute Vector,Reverse_Bounds 0533 0263 | c | Execute Discrete,Above_Bound 0534 7011 |p | Jump_Nonzero 0x546 0535 e5fe | | Load 0x2,-0x2 0536 00d9 | | Load_Top At_Offset_1 0537 e403 | | Load 0x2,0x3 0538 01d7 | | Execute Vector,Field_Read 0539 e007 | | Load 0x0,0x7 053a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 053b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 053c 027a | z | Execute Discrete,Less_Equal 053d 6806 |h | Jump_Zero 0x544 053e 00d8 | | Load_Top At_Offset_0 053f e402 | | Load 0x2,0x2 0540 e00e | | Load 0x0,0xe 0541 186f | o | Execute Package,Field_Execute,Field_Number 0x6f 0542 01d7 | | Execute Vector,Field_Read 0543 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0544 00c8 | | Action Pop_Auxiliary_Range 0545 3fef |? | Loop_Increasing 0x535 0546 00ce | | Action Pop_Auxiliary 0547 00ec | | Load_Encached Diana_Tree_Cache 0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0549 0000 0000 | | .BLANK 0000[0x7] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0558 | X | .CONST 0x0558 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0003 | | .CONST 0x0003 ; Number of locals 0553 INIT_0550: 0553 00da | | Load_Top At_Offset_2 0554 8256 | V | Call 0x1,0x56 0555 00d8 | | Load_Top At_Offset_0 0556 e00e | | Load 0x0,0xe 0557 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0558 BODY_0550: 0558 00cf | | Action Mark_Auxiliary 0559 00d9 | | Load_Top At_Offset_1 055a 01d9 | | Execute Vector,Reverse_Bounds 055b 0263 | c | Execute Discrete,Above_Bound 055c 7023 |p# | Jump_Nonzero 0x580 055d e5fe | | Load 0x2,-0x2 055e 00d9 | | Load_Top At_Offset_1 055f e403 | | Load 0x2,0x3 0560 01d7 | | Execute Vector,Field_Read 0561 e007 | | Load 0x0,0x7 0562 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0563 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0564 027a | z | Execute Discrete,Less_Equal 0565 6818 |h | Jump_Zero 0x57e 0566 00d8 | | Load_Top At_Offset_0 0567 e403 | | Load 0x2,0x3 0568 01d7 | | Execute Vector,Field_Read 0569 e007 | | Load 0x0,0x7 056a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 056b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 056c e5fd | | Load 0x2,-0x3 056d 823d | = | Call 0x1,0x3d 056e 680f |h | Jump_Zero 0x57e 056f 00d8 | | Load_Top At_Offset_0 0570 e403 | | Load 0x2,0x3 0571 01d7 | | Execute Vector,Field_Read 0572 e007 | | Load 0x0,0x7 0573 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0574 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0575 e5fc | | Load 0x2,-0x4 0576 823c | < | Call 0x1,0x3c 0577 6806 |h | Jump_Zero 0x57e 0578 00d8 | | Load_Top At_Offset_0 0579 e402 | | Load 0x2,0x2 057a e00e | | Load 0x0,0xe 057b 186f | o | Execute Package,Field_Execute,Field_Number 0x6f 057c 01d7 | | Execute Vector,Field_Read 057d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 057e 00c8 | | Action Pop_Auxiliary_Range 057f 3fdd |? | Loop_Increasing 0x55d 0580 00ce | | Action Pop_Auxiliary 0581 00ec | | Load_Encached Diana_Tree_Cache 0582 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0583 0000 0000 | | .BLANK 0000[0x5] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0592 | | .CONST 0x0592 ; Address of begin 0589 0597 | | .CONST 0x0597 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b 00da | | Load_Top At_Offset_2 058c 8256 | V | Call 0x1,0x56 058d e5fc | | Load 0x2,-0x4 058e e5fd | | Load 0x2,-0x3 058f e5fe | | Load 0x2,-0x2 0590 e00f | | Load 0x0,0xf 0591 180f | | Execute Package,Field_Execute,Field_Number 0xf 0592 BODY_0588: 0592 e5fc | | Load 0x2,-0x4 0593 e5fd | | Load 0x2,-0x3 0594 e5fe | | Load 0x2,-0x2 0595 826a | j | Call 0x1,0x6a 0596 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0597 TRAP_0588: 0597 010d | | Execute Exception,Is_Numeric_Error 0598 6802 |h | Jump_Zero 0x59b 0599 00ec | | Load_Encached Diana_Tree_Cache 059a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 059b 0100 | | Execute Exception,Raise 059c 0000 0000 | | .BLANK 0000[0x4] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a3 | | .CONST 0x05a3 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0001 | | .CONST 0x0001 ; Number of locals 05a3 BODY_05a0: 05a3 INIT_05a0: 05a3 00db | | Load_Top At_Offset_3 05a4 00db | | Load_Top At_Offset_3 05a5 e255 | U | Load 0x1,0x55 05a6 180d | | Execute Package,Field_Execute,Field_Number 0xd 05a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ab | | .CONST 0x05ab ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0001 | | .CONST 0x0001 ; Number of locals 05ab BODY_05a8: 05ab INIT_05a8: 05ab 00db | | Load_Top At_Offset_3 05ac 00db | | Load_Top At_Offset_3 05ad e255 | U | Load 0x1,0x55 05ae 180e | | Execute Package,Field_Execute,Field_Number 0xe 05af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 00e1 | | Load_Encached Boolean_Cache 05b4 e5fd | | Load 0x2,-0x3 05b5 e5fe | | Load 0x2,-0x2 05b6 e5ff | | Load 0x2,-0x1 05b7 e255 | U | Load 0x1,0x55 05b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 05b9 c5fc | | Store 0x2,-0x4 05ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05bb 0000 0000 | | .BLANK 0000[0x5] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 00e1 | | Load_Encached Boolean_Cache 05c4 e5fd | | Load 0x2,-0x3 05c5 e5fe | | Load 0x2,-0x2 05c6 e5ff | | Load 0x2,-0x1 05c7 e255 | U | Load 0x1,0x55 05c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05c9 c5fc | | Store 0x2,-0x4 05ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05cb 0000 0000 | | .BLANK 0000[0x5] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05dc 0000 0000 | | .BLANK 0000[0x4] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 00db | | Load_Top At_Offset_3 05e4 00db | | Load_Top At_Offset_3 05e5 e254 | T | Load 0x1,0x54 05e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00da | | Load_Top At_Offset_2 05ec e001 | | Load 0x0,0x1 05ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13 05ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f1 0000 0000 | | .BLANK 0000[0x7] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 00da | | Load_Top At_Offset_2 05fc e001 | | Load 0x0,0x1 05fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 05fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0600 e003 | | Load 0x0,0x3 0601 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0602 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0603 0000 0000 | | .BLANK 0000[0x5] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b 4801 |H | Short_Literal 0x1 060c 00db | | Load_Top At_Offset_3 060d e006 | | Load 0x0,0x6 060e 18a6 | | Execute Package,Field_Execute,Field_Number 0xa6 060f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 00ea | | Load_Encached Null_String_Cache 0614 0092 09d5 | | Action Push_String_Extended,0x9d5 ; " raised " 0616 4800 |H | Short_Literal 0x0 0617 4801 |H | Short_Literal 0x1 0618 e010 | | Load 0x0,0x10 0619 1815 | | Execute Package,Field_Execute,Field_Number 0x15 061a 01cc | | Execute Vector,Catenate 061b e5fe | | Load 0x2,-0x2 061c e5ff | | Load 0x2,-0x1 061d e001 | | Load 0x0,0x1 061e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 061f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0620 180f | | Execute Package,Field_Execute,Field_Number 0xf 0621 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0622 0000 0000 | | .BLANK 0000[0x6] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 4801 |H | Short_Literal 0x1 062c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062d 0000 0000 | | .XXX[0x3] 062f 0000 | | 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 4801 |H | Short_Literal 0x1 0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0635 0000 0000 | | .XXX[0x3] 0637 0000 | | 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 0645 | E | .CONST 0x0645 ; Address of begin 0639 065a | Z | .CONST 0x065a ; Address of exception handler 063a 0003 | | .CONST 0x0003 ; Number of locals 063b INIT_0638: 063b e007 | | Load 0x0,0x7 063c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 063d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 063e 02c7 | | Declare_Variable Any 063f 00d8 | | Load_Top At_Offset_0 0640 1c00 | | Execute_Immediate Run_Utility,0x0 0641 e007 | | Load 0x0,0x7 0642 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0643 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0644 0337 | 7 | Declare_Variable Array 0645 BODY_0638: 0645 e5ff | | Load 0x2,-0x1 0646 8256 | V | Call 0x1,0x56 0647 e009 | | Load 0x0,0x9 0648 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0649 c402 | | Store 0x2,0x2 064a 00d9 | | Load_Top At_Offset_1 064b e007 | | Load 0x0,0x7 064c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 064d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 064e 00d9 | | Load_Top At_Offset_1 064f 01d4 | | Execute Vector,Structure_Write 0650 e5fd | | Load 0x2,-0x3 0651 00d9 | | Load_Top At_Offset_1 0652 01d7 | | Execute Vector,Field_Read 0653 6803 |h | Jump_Zero 0x657 0654 480e |H | Short_Literal 0xe 0655 a5fc | | Store_Unchecked 0x2,-0x4 0656 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0657 480d |H | Short_Literal 0xd 0658 a5fc | | Store_Unchecked 0x2,-0x4 0659 4504 |E | Exit_Suprogram New_Top_Offset 0x4 065a TRAP_0638: 065a e009 | | Load 0x0,0x9 065b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 065c 010f | | Execute Exception,Equal 065d 7004 |p | Jump_Nonzero 0x662 065e e007 | | Load 0x0,0x7 065f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0660 010f | | Execute Exception,Equal 0661 6803 |h | Jump_Zero 0x665 0662 480e |H | Short_Literal 0xe 0663 a5fc | | Store_Unchecked 0x2,-0x4 0664 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0665 e5fe | | Load 0x2,-0x2 0666 e5ff | | Load 0x2,-0x1 0667 8259 | Y | Call 0x1,0x59 0668 480d |H | Short_Literal 0xd 0669 a5fc | | Store_Unchecked 0x2,-0x4 066a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 066b 0000 0000 | | .BLANK 0000[0x5] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0676 | v | .CONST 0x0676 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0002 | | .CONST 0x0002 ; Number of locals 0673 INIT_0670: 0673 00da | | Load_Top At_Offset_2 0674 e00f | | Load 0x0,0xf 0675 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0676 BODY_0670: 0676 e5fd | | Load 0x2,-0x3 0677 00d9 | | Load_Top At_Offset_1 0678 027c | | | Execute Discrete,Less 0679 6802 |h | Jump_Zero 0x67c 067a 4800 |H | Short_Literal 0x0 067b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 067c 480e |H | Short_Literal 0xe 067d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 067e 0000 0000 | | .XXX[0x2] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0686 | | .CONST 0x0686 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0002 | | .CONST 0x0002 ; Number of locals 0683 INIT_0680: 0683 00da | | Load_Top At_Offset_2 0684 e00f | | Load 0x0,0xf 0685 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0686 BODY_0680: 0686 e5fd | | Load 0x2,-0x3 0687 00d9 | | Load_Top At_Offset_1 0688 027c | | | Execute Discrete,Less 0689 6802 |h | Jump_Zero 0x68c 068a 4800 |H | Short_Literal 0x0 068b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 068c 480e |H | Short_Literal 0xe 068d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 068e 0000 0000 | | .XXX[0x2] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 069f | | .CONST 0x069f ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0004 | | .CONST 0x0004 ; Number of locals 0693 INIT_0690: 0693 e002 | | Load 0x0,0x2 0694 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0695 02c7 | | Declare_Variable Any 0696 00d8 | | Load_Top At_Offset_0 0697 1c00 | | Execute_Immediate Run_Utility,0x0 0698 e002 | | Load 0x0,0x2 0699 1b0d | | Execute Package,Field_Read,Field_Number 0xd 069a 02c7 | | Declare_Variable Any 069b 00d8 | | Load_Top At_Offset_0 069c 1c00 | | Execute_Immediate Run_Utility,0x0 069d 029f 08eb | | Declare_Subprogram INIT_08e8,For_Call 069f BODY_0690: 069f e5fe | | Load 0x2,-0x2 06a0 e5ff | | Load 0x2,-0x1 06a1 027c | | | Execute Discrete,Less 06a2 6802 |h | Jump_Zero 0x6a5 06a3 e24d | M | Load 0x1,0x4d 06a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06a5 e24d | M | Load 0x1,0x4d 06a6 e5ff | | Load 0x2,-0x1 06a7 823e | > | Call 0x1,0x3e 06a8 6803 |h | Jump_Zero 0x6ac 06a9 e24e | N | Load 0x1,0x4e 06aa c402 | | Store 0x2,0x2 06ab 7802 |x | Jump 0x6ae 06ac e24d | M | Load 0x1,0x4d 06ad c402 | | Store 0x2,0x2 06ae 8404 | | Call 0x2,0x4 06af 00d9 | | Load_Top At_Offset_1 06b0 e011 | | Load 0x0,0x11 06b1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 06b2 00db | | Load_Top At_Offset_3 06b3 8242 | B | Call 0x1,0x42 06b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06b5 0000 0000 | | .XXX[0x3] 06b7 0000 | | 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb e002 | | Load 0x0,0x2 06bc 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 06bd 00db | | Load_Top At_Offset_3 06be 8247 | G | Call 0x1,0x47 06bf 6804 |h | Jump_Zero 0x6c4 06c0 00da | | Load_Top At_Offset_2 06c1 e011 | | Load 0x0,0x11 06c2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c4 00da | | Load_Top At_Offset_2 06c5 e011 | | Load 0x0,0x11 06c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 06c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06d5 | | .CONST 0x06d5 ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0003 | | .CONST 0x0003 ; Number of locals 06cb INIT_06c8: 06cb e002 | | Load 0x0,0x2 06cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06cd 02c7 | | Declare_Variable Any 06ce 00d8 | | Load_Top At_Offset_0 06cf 1c00 | | Execute_Immediate Run_Utility,0x0 06d0 e002 | | Load 0x0,0x2 06d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d2 02c7 | | Declare_Variable Any 06d3 00d8 | | Load_Top At_Offset_0 06d4 1c00 | | Execute_Immediate Run_Utility,0x0 06d5 BODY_06c8: 06d5 e5ff | | Load 0x2,-0x1 06d6 00d8 | | Load_Top At_Offset_0 06d7 e5fe | | Load 0x2,-0x2 06d8 8249 | I | Call 0x1,0x49 06d9 824c | L | Call 0x1,0x4c 06da 8260 | ` | Call 0x1,0x60 06db c402 | | Store 0x2,0x2 06dc e5ff | | Load 0x2,-0x1 06dd 00d8 | | Load_Top At_Offset_0 06de e5fd | | Load 0x2,-0x3 06df 824a | J | Call 0x1,0x4a 06e0 824c | L | Call 0x1,0x4c 06e1 8260 | ` | Call 0x1,0x60 06e2 c403 | | Store 0x2,0x3 06e3 00d8 | | Load_Top At_Offset_0 06e4 00da | | Load_Top At_Offset_2 06e5 825f | _ | Call 0x1,0x5f 06e6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 06e7 0000 | | .XXX[0x1] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 0705 | | .CONST 0x0705 ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0007 | | .CONST 0x0007 ; Number of locals 06eb INIT_06e8: 06eb 00eb | | Load_Encached Diana_Cache 06ec 1b96 | | Execute Package,Field_Read,Field_Number 0x96 06ed 02c7 | | Declare_Variable Any 06ee 00d8 | | Load_Top At_Offset_0 06ef 1c00 | | Execute_Immediate Run_Utility,0x0 06f0 00eb | | Load_Encached Diana_Cache 06f1 1b96 | | Execute Package,Field_Read,Field_Number 0x96 06f2 02c7 | | Declare_Variable Any 06f3 00d8 | | Load_Top At_Offset_0 06f4 1c00 | | Execute_Immediate Run_Utility,0x0 06f5 e002 | | Load 0x0,0x2 06f6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 06f7 02c7 | | Declare_Variable Any 06f8 00d8 | | Load_Top At_Offset_0 06f9 1c00 | | Execute_Immediate Run_Utility,0x0 06fa e002 | | Load 0x0,0x2 06fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06fc 02c7 | | Declare_Variable Any 06fd 00d8 | | Load_Top At_Offset_0 06fe 1c00 | | Execute_Immediate Run_Utility,0x0 06ff e002 | | Load 0x0,0x2 0700 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0701 02c7 | | Declare_Variable Any 0702 00d8 | | Load_Top At_Offset_0 0703 1c00 | | Execute_Immediate Run_Utility,0x0 0704 00e1 | | Load_Encached Boolean_Cache 0705 BODY_06e8: 0705 e403 | | Load 0x2,0x3 0706 0120 | | Execute Any,Is_Value 0707 6803 |h | Jump_Zero 0x70b 0708 00eb | | Load_Encached Diana_Cache 0709 1b96 | | Execute Package,Field_Read,Field_Number 0x96 070a 7801 |x | Jump 0x70c 070b e403 | | Load 0x2,0x3 070c e402 | | Load 0x2,0x2 070d 0120 | | Execute Any,Is_Value 070e 6803 |h | Jump_Zero 0x712 070f 00eb | | Load_Encached Diana_Cache 0710 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0711 7801 |x | Jump 0x713 0712 e402 | | Load 0x2,0x2 0713 00e1 | | Load_Encached Boolean_Cache 0714 e5ff | | Load 0x2,-0x1 0715 e00d | | Load 0x0,0xd 0716 180e | | Execute Package,Field_Execute,Field_Number 0xe 0717 005b | [ | Store_Top Discrete,At_Offset_3 0718 c402 | | Store 0x2,0x2 0719 c403 | | Store 0x2,0x3 071a 00d8 | | Load_Top At_Offset_0 071b 7002 |p | Jump_Nonzero 0x71e 071c e250 | P | Load 0x1,0x50 071d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 071e e5ff | | Load 0x2,-0x1 071f 00eb | | Load_Encached Diana_Cache 0720 18f4 | | Execute Package,Field_Execute,Field_Number 0xf4 0721 c404 | | Store 0x2,0x4 0722 e403 | | Load 0x2,0x3 0723 00eb | | Load_Encached Diana_Cache 0724 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1 0725 e402 | | Load 0x2,0x2 0726 00eb | | Load_Encached Diana_Cache 0727 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1 0728 e404 | | Load 0x2,0x4 0729 8261 | a | Call 0x1,0x61 072a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 072b 0000 0000 | | .BLANK 0000[0x5] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0735 | 5 | .CONST 0x0735 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0002 | | .CONST 0x0002 ; Number of locals 0733 INIT_0730: 0733 00da | | Load_Top At_Offset_2 0734 8262 | b | Call 0x1,0x62 0735 BODY_0730: 0735 e5fd | | Load 0x2,-0x3 0736 00d9 | | Load_Top At_Offset_1 0737 027c | | | Execute Discrete,Less 0738 6802 |h | Jump_Zero 0x73b 0739 4800 |H | Short_Literal 0x0 073a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 073b 480e |H | Short_Literal 0xe 073c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 073d 0000 0000 | | .XXX[0x3] 073f 0000 | | 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 074f | O | .CONST 0x074f ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0005 | | .CONST 0x0005 ; Number of locals 0743 INIT_0740: 0743 00db | | Load_Top At_Offset_3 0744 e00e | | Load 0x0,0xe 0745 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0746 00e1 | | Load_Encached Boolean_Cache 0747 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0748 e007 | | Load 0x0,0x7 0749 1b13 | | Execute Package,Field_Read,Field_Number 0x13 074a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 074b 02c7 | | Declare_Variable Any 074c 00d8 | | Load_Top At_Offset_0 074d 1c00 | | Execute_Immediate Run_Utility,0x0 074e 00e2 | | Load_Encached Integer_Cache 074f BODY_0740: 074f 480e |H | Short_Literal 0xe 0750 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0751 0000 0000 | | .BLANK 0000[0x7] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b 480e |H | Short_Literal 0xe 075c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 075d 0000 0000 | | .XXX[0x3] 075f 0000 | | 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 480e |H | Short_Literal 0xe 0764 a5fc | | Store_Unchecked 0x2,-0x4 0765 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0766 0000 0000 | | .XXX[0x2] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076b | k | .CONST 0x076b ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0001 | | .CONST 0x0001 ; Number of locals 076b BODY_0768: 076b INIT_0768: 076b 480e |H | Short_Literal 0xe 076c a5fc | | Store_Unchecked 0x2,-0x4 076d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 076e 0000 0000 | | .XXX[0x2] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0775 | u | .CONST 0x0775 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0002 | | .CONST 0x0002 ; Number of locals 0773 INIT_0770: 0773 00e4 | | Load_Encached Positive_Cache 0774 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0775 BODY_0770: 0775 00cf | | Action Mark_Auxiliary 0776 7805 |x | Jump 0x77c 0777 00d9 | | Load_Top At_Offset_1 0778 00da | | Load_Top At_Offset_2 0779 0273 | s | Execute Discrete,Plus 077a 005a | Z | Store_Top Discrete,At_Offset_2 077b 00c9 | | Action Pop_Auxiliary_Loop 077c 00d9 | | Load_Top At_Offset_1 077d e5ff | | Load 0x2,-0x1 077e 027c | | | Execute Discrete,Less 077f 77f7 |w | Jump_Nonzero 0x777 0780 00ce | | Action Pop_Auxiliary 0781 00d8 | | Load_Top At_Offset_0 0782 e5ff | | Load 0x2,-0x1 0783 027f | | Execute Discrete,Equal 0784 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0785 0000 0000 | | .XXX[0x3] 0787 0000 | | 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 079b | | .CONST 0x079b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0007 | | .CONST 0x0007 ; Number of locals 078b INIT_0788: 078b 00ec | | Load_Encached Diana_Tree_Cache 078c 02c7 | | Declare_Variable Any 078d 00d8 | | Load_Top At_Offset_0 078e 1c00 | | Execute_Immediate Run_Utility,0x0 078f 00e1 | | Load_Encached Boolean_Cache 0790 00eb | | Load_Encached Diana_Cache 0791 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0792 02c7 | | Declare_Variable Any 0793 00d8 | | Load_Top At_Offset_0 0794 1c00 | | Execute_Immediate Run_Utility,0x0 0795 029f 0903 | | Declare_Subprogram INIT_0900,For_Call 0797 029f 094b | K| Declare_Subprogram INIT_0948,For_Call 0799 029f 0963 | c| Declare_Subprogram INIT_0960,For_Call 079b BODY_0788: 079b e5fe | | Load 0x2,-0x2 079c 8405 | | Call 0x2,0x5 079d 7003 |p | Jump_Nonzero 0x7a1 079e 00eb | | Load_Encached Diana_Cache 079f 1899 | | Execute Package,Field_Execute,Field_Number 0x99 07a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07a1 8406 | | Call 0x2,0x6 07a2 e402 | | Load 0x2,0x2 07a3 e5ff | | Load 0x2,-0x1 07a4 e001 | | Load 0x0,0x1 07a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07a7 180d | | Execute Package,Field_Execute,Field_Number 0xd 07a8 c402 | | Store 0x2,0x2 07a9 8407 | | Call 0x2,0x7 07aa e403 | | Load 0x2,0x3 07ab 7003 |p | Jump_Nonzero 0x7af 07ac 00eb | | Load_Encached Diana_Cache 07ad 1899 | | Execute Package,Field_Execute,Field_Number 0x99 07ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07af 00db | | Load_Top At_Offset_3 07b0 e5fe | | Load 0x2,-0x2 07b1 4954 |IT | Short_Literal 0x154 07b2 00eb | | Load_Encached Diana_Cache 07b3 0096 | | Execute Package,Entry 07b4 00db | | Load_Top At_Offset_3 07b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07b6 0000 0000 | | .XXX[0x2] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07d5 | | .CONST 0x07d5 ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0003 | | .CONST 0x0003 ; Number of locals 07bb INIT_07b8: 07bb e002 | | Load 0x0,0x2 07bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07bd 02c7 | | Declare_Variable Any 07be e5fd | | Load 0x2,-0x3 07bf e5fe | | Load 0x2,-0x2 07c0 e5ff | | Load 0x2,-0x1 07c1 8261 | a | Call 0x1,0x61 07c2 a402 | | Store_Unchecked 0x2,0x2 07c3 00ec | | Load_Encached Diana_Tree_Cache 07c4 02c7 | | Declare_Variable Any 07c5 e5fd | | Load 0x2,-0x3 07c6 00eb | | Load_Encached Diana_Cache 07c7 18ac | | Execute Package,Field_Execute,Field_Number 0xac 07c8 e5fe | | Load 0x2,-0x2 07c9 00eb | | Load_Encached Diana_Cache 07ca 18ac | | Execute Package,Field_Execute,Field_Number 0xac 07cb 4861 |Ha | Short_Literal 0x61 07cc 00eb | | Load_Encached Diana_Cache 07cd 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 07ce e5ff | | Load 0x2,-0x1 07cf 00eb | | Load_Encached Diana_Cache 07d0 18ac | | Execute Package,Field_Execute,Field_Number 0xac 07d1 4864 |Hd | Short_Literal 0x64 07d2 00eb | | Load_Encached Diana_Cache 07d3 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 07d4 a403 | | Store_Unchecked 0x2,0x3 07d5 BODY_07b8: 07d5 00d8 | | Load_Top At_Offset_0 07d6 00d9 | | Load_Top At_Offset_1 07d7 4956 |IV | Short_Literal 0x156 07d8 00eb | | Load_Encached Diana_Cache 07d9 0096 | | Execute Package,Entry 07da e5ff | | Load 0x2,-0x1 07db 00d9 | | Load_Top At_Offset_1 07dc 4953 |IS | Short_Literal 0x153 07dd 00eb | | Load_Encached Diana_Cache 07de 0096 | | Execute Package,Entry 07df 00d9 | | Load_Top At_Offset_1 07e0 0aff | | Execute_Immediate Plus,-0x1 07e1 00d8 | | Load_Top At_Offset_0 07e2 00e2 | | Load_Encached Integer_Cache 07e3 0260 | ` | Execute Discrete,In_Type 07e4 7001 |p | Jump_Nonzero 0x7e6 07e5 0801 | | Execute_Immediate Raise,0x1 07e6 00d9 | | Load_Top At_Offset_1 07e7 494d |IM | Short_Literal 0x14d 07e8 00eb | | Load_Encached Diana_Cache 07e9 0096 | | Execute Package,Entry 07ea 00d8 | | Load_Top At_Offset_0 07eb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 07ec 0000 0000 | | .BLANK 0000[0x4] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07fe | | .CONST 0x07fe ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0004 | | .CONST 0x0004 ; Number of locals 07f3 INIT_07f0: 07f3 e5fd | | Load 0x2,-0x3 07f4 00eb | | Load_Encached Diana_Cache 07f5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 07f6 00eb | | Load_Encached Diana_Cache 07f7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 07f8 e403 | | Load 0x2,0x3 07f9 e007 | | Load 0x0,0x7 07fa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07fb 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 07fc 00e1 | | Load_Encached Boolean_Cache 07fd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07fe BODY_07f0: 07fe 00cf | | Action Mark_Auxiliary 07ff 00da | | Load_Top At_Offset_2 0800 01d9 | | Execute Vector,Reverse_Bounds 0801 0263 | c | Execute Discrete,Above_Bound 0802 7011 |p | Jump_Nonzero 0x814 0803 4801 |H | Short_Literal 0x1 0804 e602 | | Load 0x3,0x2 0805 00da | | Load_Top At_Offset_2 0806 e603 | | Load 0x3,0x3 0807 01d7 | | Execute Vector,Field_Read 0808 e007 | | Load 0x0,0x7 0809 1b11 | | Execute Package,Field_Read,Field_Number 0x11 080a 180f | | Execute Package,Field_Execute,Field_Number 0xf 080b e00a | | Load 0x0,0xa 080c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 080d 6804 |h | Jump_Zero 0x812 080e 4801 |H | Short_Literal 0x1 080f a604 | | Store_Unchecked 0x3,0x4 0810 00d2 | | Pop_Control Pop_Count_2 0811 7802 |x | Jump 0x814 0812 00c8 | | Action Pop_Auxiliary_Range 0813 3fef |? | Loop_Increasing 0x803 0814 00ce | | Action Pop_Auxiliary 0815 00d8 | | Load_Top At_Offset_0 0816 700b |p | Jump_Nonzero 0x822 0817 00ea | | Load_Encached Null_String_Cache 0818 0092 09d6 | | Action Push_String_Extended,0x9d6 ; " is not a supported language" 081a e5fd | | Load 0x2,-0x3 081b e5ff | | Load 0x2,-0x1 081c e001 | | Load 0x0,0x1 081d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 081e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 081f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0820 e5fc | | Load 0x2,-0x4 0821 8258 | X | Call 0x1,0x58 0822 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0823 0000 0000 | | .BLANK 0000[0x5] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 0838 | 8 | .CONST 0x0838 ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0003 | | .CONST 0x0003 ; Number of locals 082b INIT_0828: 082b 00ec | | Load_Encached Diana_Tree_Cache 082c 02c7 | | Declare_Variable Any 082d e402 | | Load 0x2,0x2 082e 00eb | | Load_Encached Diana_Cache 082f 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 0830 4908 |I | Short_Literal 0x108 0831 00eb | | Load_Encached Diana_Cache 0832 0096 | | Execute Package,Entry 0833 a602 | | Store_Unchecked 0x3,0x2 0834 00ec | | Load_Encached Diana_Tree_Cache 0835 02c7 | | Declare_Variable Any 0836 00d8 | | Load_Top At_Offset_0 0837 1c00 | | Execute_Immediate Run_Utility,0x0 0838 BODY_0828: 0838 00d9 | | Load_Top At_Offset_1 0839 0145 | E | Execute Heap_Access,Diana_Tree_Kind 083a 00d8 | | Load_Top At_Offset_0 083b 4864 |Hd | Short_Literal 0x64 083c 4872 |Hr | Short_Literal 0x72 083d 0262 | b | Execute Discrete,In_Range 083e 685d |h] | Jump_Zero 0x89c 083f 0a9c | | Execute_Immediate Plus,-0x64 0840 460e |F | Jump_Case 0xf 0841 7845 |xE | Jump 0x887 ; case 0x0 0842 783d |x= | Jump 0x880 ; case 0x1 0843 7859 |xY | Jump 0x89d ; case 0x2 0844 7858 |xX | Jump 0x89d ; case 0x3 0845 7857 |xW | Jump 0x89d ; case 0x4 0846 7856 |xV | Jump 0x89d ; case 0x5 0847 7855 |xU | Jump 0x89d ; case 0x6 0848 784b |xK | Jump 0x894 ; case 0x7 0849 784f |xO | Jump 0x899 ; case 0x8 084a 7852 |xR | Jump 0x89d ; case 0x9 084b 7807 |x | Jump 0x853 ; case 0xa 084c 7827 |x' | Jump 0x874 ; case 0xb 084d 784f |xO | Jump 0x89d ; case 0xc 084e 784e |xN | Jump 0x89d ; case 0xd 084f 7800 |x | Jump 0x850 ; case 0xe 0850 480e |H | Short_Literal 0xe 0851 a5fc | | Store_Unchecked 0x2,-0x4 0852 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0853 e402 | | Load 0x2,0x2 0854 00eb | | Load_Encached Diana_Cache 0855 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 0856 00eb | | Load_Encached Diana_Cache 0857 18ba | | Execute Package,Field_Execute,Field_Number 0xba 0858 6803 |h | Jump_Zero 0x85c 0859 480e |H | Short_Literal 0xe 085a a5fc | | Store_Unchecked 0x2,-0x4 085b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 085c e402 | | Load 0x2,0x2 085d 00eb | | Load_Encached Diana_Cache 085e 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 085f 00eb | | Load_Encached Diana_Cache 0860 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 0861 7006 |p | Jump_Nonzero 0x868 0862 e5fd | | Load 0x2,-0x3 0863 e403 | | Load 0x2,0x3 0864 00db | | Load_Top At_Offset_3 0865 825d | ] | Call 0x1,0x5d 0866 a5fc | | Store_Unchecked 0x2,-0x4 0867 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0868 e5fd | | Load 0x2,-0x3 0869 e403 | | Load 0x2,0x3 086a e402 | | Load 0x2,0x2 086b 00eb | | Load_Encached Diana_Cache 086c 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 086d 00eb | | Load_Encached Diana_Cache 086e 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 086f 00eb | | Load_Encached Diana_Cache 0870 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0871 825d | ] | Call 0x1,0x5d 0872 a5fc | | Store_Unchecked 0x2,-0x4 0873 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0874 e5fd | | Load 0x2,-0x3 0875 e403 | | Load 0x2,0x3 0876 e402 | | Load 0x2,0x2 0877 00eb | | Load_Encached Diana_Cache 0878 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 0879 00eb | | Load_Encached Diana_Cache 087a 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 087b 00eb | | Load_Encached Diana_Cache 087c 18ec | | Execute Package,Field_Execute,Field_Number 0xec 087d 825e | ^ | Call 0x1,0x5e 087e a5fc | | Store_Unchecked 0x2,-0x4 087f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0880 4801 |H | Short_Literal 0x1 0881 e5fd | | Load 0x2,-0x3 0882 e403 | | Load 0x2,0x3 0883 e602 | | Load 0x3,0x2 0884 8264 | d | Call 0x1,0x64 0885 a5fc | | Store_Unchecked 0x2,-0x4 0886 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0887 e402 | | Load 0x2,0x2 0888 00eb | | Load_Encached Diana_Cache 0889 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 088a 00eb | | Load_Encached Diana_Cache 088b 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 088c c603 | | Store 0x3,0x3 088d 4801 |H | Short_Literal 0x1 088e e5fd | | Load 0x2,-0x3 088f e403 | | Load 0x2,0x3 0890 00db | | Load_Top At_Offset_3 0891 8263 | c | Call 0x1,0x63 0892 a5fc | | Store_Unchecked 0x2,-0x4 0893 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0894 e5fd | | Load 0x2,-0x3 0895 e403 | | Load 0x2,0x3 0896 8265 | e | Call 0x1,0x65 0897 a5fc | | Store_Unchecked 0x2,-0x4 0898 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0899 480e |H | Short_Literal 0xe 089a a5fc | | Store_Unchecked 0x2,-0x4 089b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 089c 00d1 | | Pop_Control Pop_Count_1 089d 480d |H | Short_Literal 0xd 089e a5fc | | Store_Unchecked 0x2,-0x4 089f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a9 | | .CONST 0x08a9 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0003 | | .CONST 0x0003 ; Number of locals 08a3 INIT_08a0: 08a3 00ec | | Load_Encached Diana_Tree_Cache 08a4 02c7 | | Declare_Variable Any 08a5 00d8 | | Load_Top At_Offset_0 08a6 1c00 | | Execute_Immediate Run_Utility,0x0 08a7 029f 097b | {| Declare_Subprogram INIT_0978,For_Call 08a9 BODY_08a0: 08a9 e5fe | | Load 0x2,-0x2 08aa 0145 | E | Execute Heap_Access,Diana_Tree_Kind 08ab 0f6d | m | Execute_Immediate Equal,0x6d 08ac 6807 |h | Jump_Zero 0x8b4 08ad e5fe | | Load 0x2,-0x2 08ae 00eb | | Load_Encached Diana_Cache 08af 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 08b0 00eb | | Load_Encached Diana_Cache 08b1 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9 08b2 c602 | | Store 0x3,0x2 08b3 7802 |x | Jump 0x8b6 08b4 e5fe | | Load 0x2,-0x2 08b5 c602 | | Store 0x3,0x2 08b6 8603 | | Call 0x3,0x3 08b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; SUBPROGRAM 08b8 ; -------------------------------------------------------------------------------------- 08b8 08c8 | | .CONST 0x08c8 ; Address of begin 08b9 0004 | | .CONST 0x0004 ; Address of exception handler 08ba 0003 | | .CONST 0x0003 ; Number of locals 08bb INIT_08b8: 08bb 00ec | | Load_Encached Diana_Tree_Cache 08bc 02c7 | | Declare_Variable Any 08bd e5fe | | Load 0x2,-0x2 08be 00eb | | Load_Encached Diana_Cache 08bf 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 08c0 00eb | | Load_Encached Diana_Cache 08c1 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 08c2 4907 |I | Short_Literal 0x107 08c3 00eb | | Load_Encached Diana_Cache 08c4 0096 | | Execute Package,Entry 08c5 a602 | | Store_Unchecked 0x3,0x2 08c6 029f 099b | | Declare_Subprogram INIT_0998,For_Call 08c8 BODY_08b8: 08c8 00d9 | | Load_Top At_Offset_1 08c9 7003 |p | Jump_Nonzero 0x8cd 08ca 480d |H | Short_Literal 0xd 08cb a5fc | | Store_Unchecked 0x2,-0x4 08cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08cd 8603 | | Call 0x3,0x3 08ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08cf 0000 | | .XXX[0x1] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08d3 | | .CONST 0x08d3 ; Address of begin 08d1 0004 | | .CONST 0x0004 ; Address of exception handler 08d2 0001 | | .CONST 0x0001 ; Number of locals 08d3 BODY_08d0: 08d3 INIT_08d0: 08d3 e405 | | Load 0x2,0x5 08d4 680b |h | Jump_Zero 0x8e0 08d5 4802 |H | Short_Literal 0x2 08d6 00db | | Load_Top At_Offset_3 08d7 0aff | | Execute_Immediate Plus,-0x1 08d8 026d | m | Execute Discrete,Exponentiate 08d9 0aff | | Execute_Immediate Plus,-0x1 08da a407 | | Store_Unchecked 0x2,0x7 08db e407 | | Load 0x2,0x7 08dc 0275 | u | Execute Discrete,Unary_Minus 08dd 0aff | | Execute_Immediate Plus,-0x1 08de a408 | | Store_Unchecked 0x2,0x8 08df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08e0 4802 |H | Short_Literal 0x2 08e1 00db | | Load_Top At_Offset_3 08e2 026d | m | Execute Discrete,Exponentiate 08e3 0aff | | Execute_Immediate Plus,-0x1 08e4 a407 | | Store_Unchecked 0x2,0x7 08e5 4800 |H | Short_Literal 0x0 08e6 a408 | | Store_Unchecked 0x2,0x8 08e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08eb | | .CONST 0x08eb ; Address of begin 08e9 08f5 | | .CONST 0x08f5 ; Address of exception handler 08ea 0001 | | .CONST 0x0001 ; Number of locals 08eb BODY_08e8: 08eb INIT_08e8: 08eb e24e | N | Load 0x1,0x4e 08ec e5fe | | Load 0x2,-0x2 08ed 8242 | B | Call 0x1,0x42 08ee 8241 | A | Call 0x1,0x41 08ef e5ff | | Load 0x2,-0x1 08f0 8241 | A | Call 0x1,0x41 08f1 e011 | | Load 0x0,0x11 08f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08f3 c403 | | Store 0x2,0x3 08f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08f5 TRAP_08e8: 08f5 010e | | Execute Exception,Is_Constraint_Error 08f6 7002 |p | Jump_Nonzero 0x8f9 08f7 010d | | Execute Exception,Is_Numeric_Error 08f8 6804 |h | Jump_Zero 0x8fd 08f9 00e2 | | Load_Encached Integer_Cache 08fa 0269 | i | Execute Discrete,Last 08fb c403 | | Store 0x2,0x3 08fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08fd 0100 | | Execute Exception,Raise 08fe 0000 0000 | | .XXX[0x2] 0900 ; -------------------------------------------------------------------------------------- 0900 ; SUBPROGRAM 0900 ; -------------------------------------------------------------------------------------- 0900 090f | | .CONST 0x090f ; Address of begin 0901 0004 | | .CONST 0x0004 ; Address of exception handler 0902 0004 | | .CONST 0x0004 ; Number of locals 0903 INIT_0900: 0903 00ec | | Load_Encached Diana_Tree_Cache 0904 02c7 | | Declare_Variable Any 0905 00d8 | | Load_Top At_Offset_0 0906 1c00 | | Execute_Immediate Run_Utility,0x0 0907 00ec | | Load_Encached Diana_Tree_Cache 0908 02c7 | | Declare_Variable Any 0909 00d8 | | Load_Top At_Offset_0 090a 1c00 | | Execute_Immediate Run_Utility,0x0 090b 00ec | | Load_Encached Diana_Tree_Cache 090c 02c7 | | Declare_Variable Any 090d 00d8 | | Load_Top At_Offset_0 090e 1c00 | | Execute_Immediate Run_Utility,0x0 090f BODY_0900: 090f e7ff | | Load 0x3,-0x1 0910 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0911 0f10 | | Execute_Immediate Equal,0x10 0912 7002 |p | Jump_Nonzero 0x915 0913 4800 |H | Short_Literal 0x0 0914 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0915 e7ff | | Load 0x3,-0x1 0916 00eb | | Load_Encached Diana_Cache 0917 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0918 c602 | | Store 0x3,0x2 0919 00da | | Load_Top At_Offset_2 091a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 091b 0f12 | | Execute_Immediate Equal,0x12 091c 7002 |p | Jump_Nonzero 0x91f 091d 4800 |H | Short_Literal 0x0 091e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091f 00da | | Load_Top At_Offset_2 0920 00eb | | Load_Encached Diana_Cache 0921 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0922 c603 | | Store 0x3,0x3 0923 00da | | Load_Top At_Offset_2 0924 00eb | | Load_Encached Diana_Cache 0925 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0926 c604 | | Store 0x3,0x4 0927 00d9 | | Load_Top At_Offset_1 0928 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0929 0f17 | | Execute_Immediate Equal,0x17 092a 681a |h | Jump_Zero 0x945 092b 00d8 | | Load_Top At_Offset_0 092c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 092d 0f17 | | Execute_Immediate Equal,0x17 092e 6814 |h | Jump_Zero 0x943 092f 00d9 | | Load_Top At_Offset_1 0930 00eb | | Load_Encached Diana_Cache 0931 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0932 00eb | | Load_Encached Diana_Cache 0933 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0934 0092 09d7 | | Action Push_String_Extended,0x9d7 ; "SYSTEM" 0936 01df | | Execute Vector,Equal 0937 6809 |h | Jump_Zero 0x941 0938 00d8 | | Load_Top At_Offset_0 0939 00eb | | Load_Encached Diana_Cache 093a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 093b 00eb | | Load_Encached Diana_Cache 093c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 093d 0092 09d8 | | Action Push_String_Extended,0x9d8 ; "TO_ADDRESS" 093f 01df | | Execute Vector,Equal 0940 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0941 4800 |H | Short_Literal 0x0 0942 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0943 4800 |H | Short_Literal 0x0 0944 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0945 4800 |H | Short_Literal 0x0 0946 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0947 0000 | | .XXX[0x1] 0948 ; -------------------------------------------------------------------------------------- 0948 ; SUBPROGRAM 0948 ; -------------------------------------------------------------------------------------- 0948 0957 | W | .CONST 0x0957 ; Address of begin 0949 0004 | | .CONST 0x0004 ; Address of exception handler 094a 0003 | | .CONST 0x0003 ; Number of locals 094b INIT_0948: 094b 00ec | | Load_Encached Diana_Tree_Cache 094c 02c7 | | Declare_Variable Any 094d e5fe | | Load 0x2,-0x2 094e 00eb | | Load_Encached Diana_Cache 094f 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 0950 a602 | | Store_Unchecked 0x3,0x2 0951 00ee | | Load_Encached Diana_Seq_Type_Cache 0952 02c7 | | Declare_Variable Any 0953 00d9 | | Load_Top At_Offset_1 0954 00eb | | Load_Encached Diana_Cache 0955 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0956 a603 | | Store_Unchecked 0x3,0x3 0957 BODY_0948: 0957 00d8 | | Load_Top At_Offset_0 0958 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0959 c402 | | Store 0x2,0x2 095a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 095b 0000 0000 | | .BLANK 0000[0x5] 0960 ; -------------------------------------------------------------------------------------- 0960 ; SUBPROGRAM 0960 ; -------------------------------------------------------------------------------------- 0960 0963 | c | .CONST 0x0963 ; Address of begin 0961 0971 | q | .CONST 0x0971 ; Address of exception handler 0962 0001 | | .CONST 0x0001 ; Number of locals 0963 BODY_0960: 0963 INIT_0960: 0963 e404 | | Load 0x2,0x4 0964 0120 | | Execute Any,Is_Value 0965 6803 |h | Jump_Zero 0x969 0966 00eb | | Load_Encached Diana_Cache 0967 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0968 7801 |x | Jump 0x96a 0969 e404 | | Load 0x2,0x4 096a 00e1 | | Load_Encached Boolean_Cache 096b e402 | | Load 0x2,0x2 096c e00d | | Load 0x0,0xd 096d 180d | | Execute Package,Field_Execute,Field_Number 0xd 096e c403 | | Store 0x2,0x3 096f c404 | | Store 0x2,0x4 0970 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0971 TRAP_0960: 0971 0007 | | Action Break_Optional 0972 00eb | | Load_Encached Diana_Cache 0973 1899 | | Execute Package,Field_Execute,Field_Number 0x99 0974 00cb | | Action Pop_Block_With_Result 0975 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0976 0000 0000 | | .XXX[0x2] 0978 ; -------------------------------------------------------------------------------------- 0978 ; SUBPROGRAM 0978 ; -------------------------------------------------------------------------------------- 0978 0985 | | .CONST 0x0985 ; Address of begin 0979 0004 | | .CONST 0x0004 ; Address of exception handler 097a 0002 | | .CONST 0x0002 ; Number of locals 097b INIT_0978: 097b e602 | | Load 0x3,0x2 097c 00eb | | Load_Encached Diana_Cache 097d 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 097e 00eb | | Load_Encached Diana_Cache 097f 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0980 00eb | | Load_Encached Diana_Cache 0981 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1 0982 e002 | | Load 0x0,0x2 0983 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0984 011e | | Execute Any,Convert 0985 BODY_0978: 0985 e5fd | | Load 0x2,-0x3 0986 e002 | | Load 0x0,0x2 0987 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0988 e002 | | Load 0x0,0x2 0989 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 098a 6808 |h | Jump_Zero 0x993 098b 00d8 | | Load_Top At_Offset_0 098c e5fd | | Load 0x2,-0x3 098d e002 | | Load 0x0,0x2 098e 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 098f 6803 |h | Jump_Zero 0x993 0990 480e |H | Short_Literal 0xe 0991 a5fc | | Store_Unchecked 0x2,-0x4 0992 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0993 480d |H | Short_Literal 0xd 0994 a5fc | | Store_Unchecked 0x2,-0x4 0995 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0996 0000 0000 | | .XXX[0x2] 0998 ; -------------------------------------------------------------------------------------- 0998 ; SUBPROGRAM 0998 ; -------------------------------------------------------------------------------------- 0998 09a5 | | .CONST 0x09a5 ; Address of begin 0999 0004 | | .CONST 0x0004 ; Address of exception handler 099a 0003 | | .CONST 0x0003 ; Number of locals 099b INIT_0998: 099b e602 | | Load 0x3,0x2 099c e00c | | Load 0x0,0xc 099d 180d | | Execute Package,Field_Execute,Field_Number 0xd 099e 00eb | | Load_Encached Diana_Cache 099f 18f4 | | Execute Package,Field_Execute,Field_Number 0xf4 09a0 e002 | | Load 0x0,0x2 09a1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 09a2 011e | | Execute Any,Convert 09a3 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call 09a5 BODY_0998: 09a5 00d9 | | Load_Top At_Offset_1 09a6 e5fd | | Load 0x2,-0x3 09a7 e002 | | Load 0x0,0x2 09a8 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 09a9 6805 |h | Jump_Zero 0x9af 09aa 8803 | | Call 0x4,0x3 09ab 6803 |h | Jump_Zero 0x9af 09ac 480e |H | Short_Literal 0xe 09ad a5fc | | Store_Unchecked 0x2,-0x4 09ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09af 480d |H | Short_Literal 0xd 09b0 a5fc | | Store_Unchecked 0x2,-0x4 09b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b2 0000 0000 | | .BLANK 0000[0x6] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09c0 | | .CONST 0x09c0 ; Address of begin 09b9 0004 | | .CONST 0x0004 ; Address of exception handler 09ba 0002 | | .CONST 0x0002 ; Number of locals 09bb INIT_09b8: 09bb e002 | | Load 0x0,0x2 09bc 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 09bd 02c7 | | Declare_Variable Any 09be e5fd | | Load 0x2,-0x3 09bf aa02 | | Store_Unchecked 0x5,0x2 09c0 BODY_09b8: 09c0 00cf | | Action Mark_Auxiliary 09c1 e802 | | Load 0x4,0x2 09c2 00da | | Load_Top At_Offset_2 09c3 e002 | | Load 0x0,0x2 09c4 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 09c5 ca02 | | Store 0x5,0x2 09c6 e002 | | Load 0x0,0x2 09c7 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 09c8 00da | | Load_Top At_Offset_2 09c9 e002 | | Load 0x0,0x2 09ca 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 09cb 7002 |p | Jump_Nonzero 0x9ce 09cc 00c9 | | Action Pop_Auxiliary_Loop 09cd 7ff3 | | Jump 0x9c1 09ce 00ce | | Action Pop_Auxiliary 09cf e002 | | Load 0x0,0x2 09d0 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 09d1 00d9 | | Load_Top At_Offset_1 09d2 e002 | | Load 0x0,0x2 09d3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 09d4 00ca | | Action Exit_Nullary_Function 09d5 ; -------------------------------------------------------------------------------------- 09d5 ; STRING TABLE 09d5 ; -------------------------------------------------------------------------------------- 09d5 000a | | .STRTAB 0x000a->0x09da ; " raised " 09d6 0010 | | .STRTAB 0x0010->0x09de ; " is not a supported language" 09d7 002a | * | .STRTAB 0x002a->0x09ec ; "SYSTEM" 09d8 002e | . | .STRTAB 0x002e->0x09ef ; "TO_ADDRESS" 09d9 0036 | 6 | .STREND 0x0036->0x09f4 09da 2072 6169 | rai| .STRTAB_STRINGS 09f4 0000 0000 | | .BLANK 0000[0x4] 09f8 ; -------------------------------------------------------------------------------------- 09f8 ; Debug Table 09f8 ; -------------------------------------------------------------------------------------- 09f8 0004 000c | | .DEBUG4 0x0004,0x000c,0x0021,0x0000,0x0001,0x0000 09fe 0000 0008 | | .XXX[0x2]