|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0660 | ` | .CONST 0x0660 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0052 | R | .CONST 0x0052 ; Address of begin 0009 0058 | X | .CONST 0x0058 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 4802 |H | Short_Literal 0x2 000c 02cb | | Declare_Variable Entry 000d 4800 |H | Short_Literal 0x0 000e 02cb | | Declare_Variable Entry 000f 4805 |H | Short_Literal 0x5 0010 02cb | | Declare_Variable Entry 0011 4803 |H | Short_Literal 0x3 0012 02cb | | Declare_Variable Entry 0013 4803 |H | Short_Literal 0x3 0014 02cb | | Declare_Variable Entry 0015 4803 |H | Short_Literal 0x3 0016 02cb | | Declare_Variable Entry 0017 4802 |H | Short_Literal 0x2 0018 02cb | | Declare_Variable Entry 0019 4803 |H | Short_Literal 0x3 001a 02cb | | Declare_Variable Entry 001b 4802 |H | Short_Literal 0x2 001c 02cb | | Declare_Variable Entry 001d 4802 |H | Short_Literal 0x2 001e 02cb | | Declare_Variable Entry 001f 4801 |H | Short_Literal 0x1 0020 02cb | | Declare_Variable Entry 0021 4801 |H | Short_Literal 0x1 0022 02cb | | Declare_Variable Entry 0023 4801 |H | Short_Literal 0x1 0024 02cb | | Declare_Variable Entry 0025 00bf | | Action Accept_Activation 0026 e001 | | Load 0x0,0x1 0027 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0028 e002 | | Load 0x0,0x2 0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002a e003 | | Load 0x0,0x3 002b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 002c e004 | | Load 0x0,0x4 002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002e 02c7 | | Declare_Variable Any 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 e005 | | Load 0x0,0x5 0032 0337 | 7 | Declare_Variable Array 0033 e006 | | Load 0x0,0x6 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 e007 | | Load 0x0,0x7 0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0037 00e1 | | Load_Encached Boolean_Cache 0038 e008 | | Load 0x0,0x8 0039 0007 | | Action Break_Optional 003a 00e1 | | Load_Encached Boolean_Cache 003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003c e007 | | Load 0x0,0x7 003d 1914 | | Execute Package,Field_Reference,Field_Number 0x14 003e 0007 | | Action Break_Optional 003f 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 0041 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call 0043 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 0045 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 0047 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0049 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 004b 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call 004d 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 004f 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 0051 00bc | | Action Signal_Activated 0052 BODY_0008: 0052 00cf | | Action Mark_Auxiliary 0053 822d | - | Call 0x1,0x2d 0054 00c9 | | Action Pop_Auxiliary_Loop 0055 7ffd | | Jump 0x53 0056 00ce | | Action Pop_Auxiliary 0057 00bb | | Action Signal_Completion 0058 TRAP_0008: 0058 0007 | | Action Break_Optional 0059 4808 |H | Short_Literal 0x8 005a 0092 0531 | 1| Action Push_String_Extended,0x531 ; "Unexpected exception " 005c 8009 | | Call 0x0,0x9 005d 01cc | | Execute Vector,Catenate 005e 0092 0532 | 2| Action Push_String_Extended,0x532 ; " causing death of the Session_Worker for " 0060 01cc | | Execute Vector,Catenate 0061 e21a | | Load 0x1,0x1a 0062 800a | | Call 0x0,0xa 0063 01cc | | Execute Vector,Catenate 0064 4802 |H | Short_Literal 0x2 0065 e00b | | Load 0x0,0xb 0066 170d | | Execute Task,Entry_Call,Field_Number 0xd 0067 00bb | | Action Signal_Completion 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4807 |H | Short_Literal 0x7 006c 4820 |H | Short_Literal 0x20 006d 0092 0533 | 3| Action Push_String_Extended,0x533 ; "Session_Worker for " 006f e21a | | Load 0x1,0x1a 0070 800a | | Call 0x0,0xa 0071 01cc | | Execute Vector,Catenate 0072 0092 0534 | 4| Action Push_String_Extended,0x534 ; " got unexpected exception " 0074 01cc | | Execute Vector,Catenate 0075 8009 | | Call 0x0,0x9 0076 01cc | | Execute Vector,Catenate 0077 01cb | | Execute Vector,Append 0078 e5ff | | Load 0x2,-0x1 0079 01cc | | Execute Vector,Catenate 007a 0092 0535 | 5| Action Push_String_Extended,0x535 ; "; the Corrupt_State exception will be raised" 007c 01cc | | Execute Vector,Catenate 007d 4802 |H | Short_Literal 0x2 007e e00b | | Load 0x0,0xb 007f 170d | | Execute Task,Entry_Call,Field_Number 0xd 0080 e00c | | Load 0x0,0xc 0081 0257 | W | Execute Discrete,Raise 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0094 | | .CONST 0x0094 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b e00d | | Load 0x0,0xd 008c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008d e00e | | Load 0x0,0xe 008e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 008f e00e | | Load 0x0,0xe 0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0091 e00f | | Load 0x0,0xf 0092 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0093 00e1 | | Load_Encached Boolean_Cache 0094 BODY_0088: 0094 00e1 | | Load_Encached Boolean_Cache 0095 e21b | | Load 0x1,0x1b 0096 8010 | | Call 0x0,0x10 0097 0059 | Y | Store_Top Discrete,At_Offset_1 0098 00d8 | | Load_Top At_Offset_0 0099 6886 |h | Jump_Zero 0x120 009a 608d |` | Indirect_Literal Discrete,0x128,{0x7fffffff, 0xffffffff} 009b a220 | | Store_Unchecked 0x1,0x20 009c e402 | | Load 0x2,0x2 009d e21d | | Load 0x1,0x1d 009e e21b | | Load 0x1,0x1b 009f 0217 | | Execute Heap_Access,All_Reference 00a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a1 e00d | | Load 0x0,0xd 00a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a3 c402 | | Store 0x2,0x2 00a4 00cf | | Action Mark_Auxiliary 00a5 786d |xm | Jump 0x113 00a6 e402 | | Load 0x2,0x2 00a7 e00d | | Load 0x0,0xd 00a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a9 a404 | | Store_Unchecked 0x2,0x4 00aa e403 | | Load 0x2,0x3 00ab e21d | | Load 0x1,0x1d 00ac e404 | | Load 0x2,0x4 00ad e00e | | Load 0x0,0xe 00ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00af c403 | | Store 0x2,0x3 00b0 00cf | | Action Mark_Auxiliary 00b1 784a |xJ | Jump 0xfc 00b2 e403 | | Load 0x2,0x3 00b3 e00e | | Load 0x0,0xe 00b4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00b5 4602 |F | Jump_Case 0x3 00b6 7827 |x' | Jump 0xde ; case 0x0 00b7 783f |x? | Jump 0xf7 ; case 0x1 00b8 7800 |x | Jump 0xb9 ; case 0x2 00b9 e403 | | Load 0x2,0x3 00ba e00e | | Load 0x0,0xe 00bb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00bc e007 | | Load 0x0,0x7 00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00be 6810 |h | Jump_Zero 0xcf 00bf e403 | | Load 0x2,0x3 00c0 e00e | | Load 0x0,0xe 00c1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00c2 a405 | | Store_Unchecked 0x2,0x5 00c3 e403 | | Load 0x2,0x3 00c4 e00e | | Load 0x0,0xe 00c5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00c6 c403 | | Store 0x2,0x3 00c7 e21e | | Load 0x1,0x1e 00c8 4802 |H | Short_Literal 0x2 00c9 8011 | | Call 0x0,0x11 00ca 00d1 | | Pop_Control Pop_Count_1 00cb 00db | | Load_Top At_Offset_3 00cc 8012 | | Call 0x0,0x12 00cd c405 | | Store 0x2,0x5 00ce 782c |x, | Jump 0xfb 00cf e220 | | Load 0x1,0x20 00d0 e403 | | Load 0x2,0x3 00d1 e00e | | Load 0x0,0xe 00d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00d3 8224 | $ | Call 0x1,0x24 00d4 6804 |h | Jump_Zero 0xd9 00d5 e403 | | Load 0x2,0x3 00d6 e00e | | Load 0x0,0xe 00d7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00d8 a220 | | Store_Unchecked 0x1,0x20 00d9 e403 | | Load 0x2,0x3 00da e00e | | Load 0x0,0xe 00db 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00dc c403 | | Store 0x2,0x3 00dd 781d |x | Jump 0xfb 00de e403 | | Load 0x2,0x3 00df e00e | | Load 0x0,0xe 00e0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00e1 7010 |p | Jump_Nonzero 0xf2 00e2 e403 | | Load 0x2,0x3 00e3 e00e | | Load 0x0,0xe 00e4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e5 a405 | | Store_Unchecked 0x2,0x5 00e6 e403 | | Load 0x2,0x3 00e7 e00e | | Load 0x0,0xe 00e8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00e9 c403 | | Store 0x2,0x3 00ea e21e | | Load 0x1,0x1e 00eb 4800 |H | Short_Literal 0x0 00ec 8011 | | Call 0x0,0x11 00ed 00d1 | | Pop_Control Pop_Count_1 00ee 00db | | Load_Top At_Offset_3 00ef 8012 | | Call 0x0,0x12 00f0 c405 | | Store 0x2,0x5 00f1 7809 |x | Jump 0xfb 00f2 e403 | | Load 0x2,0x3 00f3 e00e | | Load 0x0,0xe 00f4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f5 c403 | | Store 0x2,0x3 00f6 7804 |x | Jump 0xfb 00f7 e403 | | Load 0x2,0x3 00f8 e00e | | Load 0x0,0xe 00f9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00fa c403 | | Store 0x2,0x3 00fb 00c9 | | Action Pop_Auxiliary_Loop 00fc e403 | | Load 0x2,0x3 00fd e00e | | Load 0x0,0xe 00fe 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ff 6fb2 |o | Jump_Zero 0xb2 0100 00ce | | Action Pop_Auxiliary 0101 e403 | | Load 0x2,0x3 0102 e00e | | Load 0x0,0xe 0103 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0104 c403 | | Store 0x2,0x3 0105 00db | | Load_Top At_Offset_3 0106 e00e | | Load 0x0,0xe 0107 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0108 6805 |h | Jump_Zero 0x10e 0109 e402 | | Load 0x2,0x2 010a e00d | | Load 0x0,0xd 010b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 010c c402 | | Store 0x2,0x2 010d 7804 |x | Jump 0x112 010e e402 | | Load 0x2,0x2 010f e00d | | Load 0x0,0xd 0110 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0111 c402 | | Store 0x2,0x2 0112 00c9 | | Action Pop_Auxiliary_Loop 0113 e402 | | Load 0x2,0x2 0114 e00d | | Load 0x0,0xd 0115 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0116 6f8f |o | Jump_Zero 0xa6 0117 00ce | | Action Pop_Auxiliary 0118 e402 | | Load 0x2,0x2 0119 e00d | | Load 0x0,0xd 011a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011b c402 | | Store 0x2,0x2 011c e21b | | Load 0x1,0x1b 011d e002 | | Load 0x0,0x2 011e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 011f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0120 e006 | | Load 0x0,0x6 0121 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0122 e007 | | Load 0x0,0x7 0123 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0124 a220 | | Store_Unchecked 0x1,0x20 0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 0128 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0141 | A | .CONST 0x0141 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0007 | | .CONST 0x0007 ; Number of locals 0133 INIT_0130: 0133 e00d | | Load 0x0,0xd 0134 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0135 e00e | | Load 0x0,0xe 0136 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0137 e00e | | Load 0x0,0xe 0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0139 e00f | | Load 0x0,0xf 013a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 013b 67ec |g | Indirect_Literal Discrete,0x128,{0x7fffffff, 0xffffffff} 013c e007 | | Load 0x0,0x7 013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013e 03f1 | | Declare_Variable Discrete,With_Value 013f 00e1 | | Load_Encached Boolean_Cache 0140 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0141 BODY_0130: 0141 00cf | | Action Mark_Auxiliary 0142 00e1 | | Load_Encached Boolean_Cache 0143 0265 | e | Execute Discrete,Reverse_Bounds 0144 0007 | | Action Break_Optional 0145 e402 | | Load 0x2,0x2 0146 e21d | | Load 0x1,0x1d 0147 e21b | | Load 0x1,0x1b 0148 0217 | | Execute Heap_Access,All_Reference 0149 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014a e00d | | Load 0x0,0xd 014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014c c402 | | Store 0x2,0x2 014d 00cf | | Action Mark_Auxiliary 014e 784d |xM | Jump 0x19c 014f e402 | | Load 0x2,0x2 0150 e00d | | Load 0x0,0xd 0151 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0152 a404 | | Store_Unchecked 0x2,0x4 0153 e403 | | Load 0x2,0x3 0154 e21d | | Load 0x1,0x1d 0155 e404 | | Load 0x2,0x4 0156 e00e | | Load 0x0,0xe 0157 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0158 c403 | | Store 0x2,0x3 0159 00cf | | Action Mark_Auxiliary 015a 7831 |x1 | Jump 0x18c 015b e403 | | Load 0x2,0x3 015c e00e | | Load 0x0,0xe 015d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 015e 4800 |H | Short_Literal 0x0 015f 4801 |H | Short_Literal 0x1 0160 0262 | b | Execute Discrete,In_Range 0161 7025 |p% | Jump_Nonzero 0x187 0162 7800 |x | Jump 0x163 0163 00da | | Load_Top At_Offset_2 0164 6818 |h | Jump_Zero 0x17d 0165 e403 | | Load 0x2,0x3 0166 e00e | | Load 0x0,0xe 0167 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0168 e406 | | Load 0x2,0x6 0169 027f | | Execute Discrete,Equal 016a 681c |h | Jump_Zero 0x187 016b e403 | | Load 0x2,0x3 016c e00e | | Load 0x0,0xe 016d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 016e a405 | | Store_Unchecked 0x2,0x5 016f e403 | | Load 0x2,0x3 0170 e00e | | Load 0x0,0xe 0171 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0172 c403 | | Store 0x2,0x3 0173 e21e | | Load 0x1,0x1e 0174 4802 |H | Short_Literal 0x2 0175 8011 | | Call 0x0,0x11 0176 00d1 | | Pop_Control Pop_Count_1 0177 e405 | | Load 0x2,0x5 0178 8012 | | Call 0x0,0x12 0179 c405 | | Store 0x2,0x5 017a 4801 |H | Short_Literal 0x1 017b a407 | | Store_Unchecked 0x2,0x7 017c 7813 |x | Jump 0x190 017d e406 | | Load 0x2,0x6 017e e403 | | Load 0x2,0x3 017f e00e | | Load 0x0,0xe 0180 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0181 8224 | $ | Call 0x1,0x24 0182 6804 |h | Jump_Zero 0x187 0183 e403 | | Load 0x2,0x3 0184 e00e | | Load 0x0,0xe 0185 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0186 a406 | | Store_Unchecked 0x2,0x6 0187 e403 | | Load 0x2,0x3 0188 e00e | | Load 0x0,0xe 0189 181f | | Execute Package,Field_Execute,Field_Number 0x1f 018a c403 | | Store 0x2,0x3 018b 00c9 | | Action Pop_Auxiliary_Loop 018c e403 | | Load 0x2,0x3 018d e00e | | Load 0x0,0xe 018e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 018f 6fcb |o | Jump_Zero 0x15b 0190 00ce | | Action Pop_Auxiliary 0191 e403 | | Load 0x2,0x3 0192 e00e | | Load 0x0,0xe 0193 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0194 c403 | | Store 0x2,0x3 0195 e407 | | Load 0x2,0x7 0196 7009 |p | Jump_Nonzero 0x1a0 0197 e402 | | Load 0x2,0x2 0198 e00d | | Load 0x0,0xd 0199 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019a c402 | | Store 0x2,0x2 019b 00c9 | | Action Pop_Auxiliary_Loop 019c e402 | | Load 0x2,0x2 019d e00d | | Load 0x0,0xd 019e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 019f 6faf |o | Jump_Zero 0x14f 01a0 00ce | | Action Pop_Auxiliary 01a1 e402 | | Load 0x2,0x2 01a2 e00d | | Load 0x0,0xd 01a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a4 c402 | | Store 0x2,0x2 01a5 00c8 | | Action Pop_Auxiliary_Range 01a6 3f9e |? | Loop_Increasing 0x145 01a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b0 | | .CONST 0x01b0 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab e013 | | Load 0x0,0x13 01ac 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 01ad 02c7 | | Declare_Variable Any 01ae 00d8 | | Load_Top At_Offset_0 01af 1c00 | | Execute_Immediate Run_Utility,0x0 01b0 BODY_01a8: 01b0 00be | | Action Activate_Tasks 01b1 00d8 | | Load_Top At_Offset_0 01b2 e21a | | Load 0x1,0x1a 01b3 e013 | | Load 0x0,0x13 01b4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01b5 c402 | | Store 0x2,0x2 01b6 00d8 | | Load_Top At_Offset_0 01b7 e013 | | Load 0x0,0x13 01b8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 01b9 a223 | # | Store_Unchecked 0x1,0x23 01ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cb | | .CONST 0x01cb ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0005 | | .CONST 0x0005 ; Number of locals 01c3 INIT_01c0: 01c3 e00d | | Load 0x0,0xd 01c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01c5 e00e | | Load 0x0,0xe 01c6 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01c7 e00e | | Load 0x0,0xe 01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c9 e00f | | Load 0x0,0xf 01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cb BODY_01c0: 01cb 00db | | Load_Top At_Offset_3 01cc e21d | | Load 0x1,0x1d 01cd e21b | | Load 0x1,0x1b 01ce 0217 | | Execute Heap_Access,All_Reference 01cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d0 e00d | | Load 0x0,0xd 01d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d2 c402 | | Store 0x2,0x2 01d3 00cf | | Action Mark_Auxiliary 01d4 7827 |x' | Jump 0x1fc 01d5 e402 | | Load 0x2,0x2 01d6 e00d | | Load 0x0,0xd 01d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d8 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01d9 00db | | Load_Top At_Offset_3 01da e21d | | Load 0x1,0x1d 01db e404 | | Load 0x2,0x4 01dc e00e | | Load 0x0,0xe 01dd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01de c403 | | Store 0x2,0x3 01df 00cf | | Action Mark_Auxiliary 01e0 7811 |x | Jump 0x1f2 01e1 e403 | | Load 0x2,0x3 01e2 e00e | | Load 0x0,0xe 01e3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01e4 6808 |h | Jump_Zero 0x1ed 01e5 7800 |x | Jump 0x1e6 01e6 e403 | | Load 0x2,0x3 01e7 e00e | | Load 0x0,0xe 01e8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01e9 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01ea 00da | | Load_Top At_Offset_2 01eb 8012 | | Call 0x0,0x12 01ec 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01ed e403 | | Load 0x2,0x3 01ee e00e | | Load 0x0,0xe 01ef 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01f0 c403 | | Store 0x2,0x3 01f1 00c9 | | Action Pop_Auxiliary_Loop 01f2 e403 | | Load 0x2,0x3 01f3 e00e | | Load 0x0,0xe 01f4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01f5 6feb |o | Jump_Zero 0x1e1 01f6 00ce | | Action Pop_Auxiliary 01f7 e402 | | Load 0x2,0x2 01f8 e00d | | Load 0x0,0xd 01f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01fa c402 | | Store 0x2,0x2 01fb 00c9 | | Action Pop_Auxiliary_Loop 01fc e402 | | Load 0x2,0x2 01fd e00d | | Load 0x0,0xd 01fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ff 6fd5 |o | Jump_Zero 0x1d5 0200 00ce | | Action Pop_Auxiliary 0201 e21c | | Load 0x1,0x1c 0202 e014 | | Load 0x0,0x14 0203 180f | | Execute Package,Field_Execute,Field_Number 0xf 0204 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 6803 |h | Jump_Zero 0x210 020d 0092 0536 | 6| Action Push_String_Extended,0x536 ; "alive" 020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0210 0092 0537 | 7| Action Push_String_Extended,0x537 ; "not alive" 0212 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 021c e00e | | Load 0x0,0xe 021d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 021e 4602 |F | Jump_Case 0x3 021f 7823 |x# | Jump 0x243 ; case 0x0 0220 7816 |x | Jump 0x237 ; case 0x1 0221 7800 |x | Jump 0x222 ; case 0x2 0222 0092 0538 | 8| Action Push_String_Extended,0x538 ; " An idle item expiring at " 0224 00db | | Load_Top At_Offset_3 0225 e00e | | Load 0x0,0xe 0226 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0227 e007 | | Load 0x0,0x7 0228 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0229 01cc | | Execute Vector,Catenate 022a 0092 0539 | 9| Action Push_String_Extended,0x539 ; " last used at " 022c 01cc | | Execute Vector,Catenate 022d 00db | | Load_Top At_Offset_3 022e e00e | | Load 0x0,0xe 022f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0230 e007 | | Load 0x0,0x7 0231 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0232 01cc | | Execute Vector,Catenate 0233 e5fe | | Load 0x2,-0x2 0234 e015 | | Load 0x0,0x15 0235 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0236 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0237 0092 053a | :| Action Push_String_Extended,0x53a ; " An active item owned by " 0239 00db | | Load_Top At_Offset_3 023a e00e | | Load 0x0,0xe 023b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 023c 00e0 | | Load_Encached Standard_Cache 023d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023e 01cc | | Execute Vector,Catenate 023f e5fe | | Load 0x2,-0x2 0240 e015 | | Load 0x0,0x15 0241 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0242 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0243 0092 053b | ;| Action Push_String_Extended,0x53b ; " A pending item whose creator is " 0245 00db | | Load_Top At_Offset_3 0246 e00e | | Load 0x0,0xe 0247 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0248 822a | * | Call 0x1,0x2a 0249 01cc | | Execute Vector,Catenate 024a e5fe | | Load 0x2,-0x2 024b e015 | | Load 0x0,0x15 024c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 024d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 025b | [ | .CONST 0x025b ; Address of begin 0251 02b2 | | .CONST 0x02b2 ; Address of exception handler 0252 0005 | | .CONST 0x0005 ; Number of locals 0253 INIT_0250: 0253 e00d | | Load 0x0,0xd 0254 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0255 e00e | | Load 0x0,0xe 0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0257 e00e | | Load 0x0,0xe 0258 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0259 00e3 | | Load_Encached Natural_Cache 025a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 025b BODY_0250: 025b 0092 053c | <| Action Push_String_Extended,0x53c ; "The following items are cached for " 025d e21a | | Load 0x1,0x1a 025e 800a | | Call 0x0,0xa 025f 01cc | | Execute Vector,Catenate 0260 e5ff | | Load 0x2,-0x1 0261 e015 | | Load 0x0,0x15 0262 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0263 00db | | Load_Top At_Offset_3 0264 e21d | | Load 0x1,0x1d 0265 e21b | | Load 0x1,0x1b 0266 0217 | | Execute Heap_Access,All_Reference 0267 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0268 e00d | | Load 0x0,0xd 0269 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026a c402 | | Store 0x2,0x2 026b 00cf | | Action Mark_Auxiliary 026c 7830 |x0 | Jump 0x29d 026d 483a |H: | Short_Literal 0x3a 026e 0092 053d | =| Action Push_String_Extended,0x53d ; " For " 0270 e402 | | Load 0x2,0x2 0271 e00d | | Load 0x0,0xd 0272 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0273 01cc | | Execute Vector,Catenate 0274 01cb | | Execute Vector,Append 0275 e5ff | | Load 0x2,-0x1 0276 e015 | | Load 0x0,0x15 0277 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0278 e402 | | Load 0x2,0x2 0279 e00d | | Load 0x0,0xd 027a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 027b a403 | | Store_Unchecked 0x2,0x3 027c 00da | | Load_Top At_Offset_2 027d e21d | | Load 0x1,0x1d 027e e403 | | Load 0x2,0x3 027f e00e | | Load 0x0,0xe 0280 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0281 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0282 00cf | | Action Mark_Auxiliary 0283 780b |x | Jump 0x28f 0284 e5ff | | Load 0x2,-0x1 0285 e404 | | Load 0x2,0x4 0286 822b | + | Call 0x1,0x2b 0287 00da | | Load_Top At_Offset_2 0288 0a01 | | Execute_Immediate Plus,0x1 0289 005b | [ | Store_Top Discrete,At_Offset_3 028a 00db | | Load_Top At_Offset_3 028b e00e | | Load 0x0,0xe 028c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 028d c404 | | Store 0x2,0x4 028e 00c9 | | Action Pop_Auxiliary_Loop 028f 00db | | Load_Top At_Offset_3 0290 e00e | | Load 0x0,0xe 0291 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0292 6ff1 |o | Jump_Zero 0x284 0293 00ce | | Action Pop_Auxiliary 0294 00da | | Load_Top At_Offset_2 0295 e00e | | Load 0x0,0xe 0296 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0297 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0298 e402 | | Load 0x2,0x2 0299 e00d | | Load 0x0,0xd 029a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 029b c402 | | Store 0x2,0x2 029c 00c9 | | Action Pop_Auxiliary_Loop 029d e402 | | Load 0x2,0x2 029e e00d | | Load 0x0,0xd 029f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a0 6fcc |o | Jump_Zero 0x26d 02a1 00ce | | Action Pop_Auxiliary 02a2 00db | | Load_Top At_Offset_3 02a3 e00d | | Load 0x0,0xd 02a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a5 c402 | | Store 0x2,0x2 02a6 00d8 | | Load_Top At_Offset_0 02a7 7005 |p | Jump_Nonzero 0x2ad 02a8 0092 053e | >| Action Push_String_Extended,0x53e ; " NONE" 02aa e5ff | | Load 0x2,-0x1 02ab e015 | | Load 0x0,0x15 02ac 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02ad 4801 |H | Short_Literal 0x1 02ae e5ff | | Load 0x2,-0x1 02af e015 | | Load 0x0,0x15 02b0 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b2 TRAP_0250: 02b2 0007 | | Action Break_Optional 02b3 0092 053f | ?| Action Push_String_Extended,0x53f ; "Got unexpected exception " 02b5 8009 | | Call 0x0,0x9 02b6 01cc | | Execute Vector,Catenate 02b7 e5ff | | Load 0x2,-0x1 02b8 e015 | | Load 0x0,0x15 02b9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bb 0000 0000 | | .BLANK 0000[0x5] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02e3 | | .CONST 0x02e3 ; Address of begin 02c1 0363 | c | .CONST 0x0363 ; Address of exception handler 02c2 0003 | | .CONST 0x0003 ; Number of locals 02c3 INIT_02c0: 02c3 480d |H | Short_Literal 0xd 02c4 0299 0383 | | Declare_Subprogram INIT_0380,For_Accept 02c6 480e 4871 |H Hq| Declare_Variable Select 0x000, 0x00c, 02c8 4819 4872 |H Hr| [0x001]: 0x000 = 0x0000, 02ca 4818 4873 |H Hs| [0x00f]: 0x07c = 0x03e0, 02cc 4817 4874 |H Ht| [0x010]: 0x07b = 0x03d8, 02ce 4816 4875 |H Hu| [0x011]: 0x07a = 0x03d0, 02d0 4815 4876 |H Hv| [0x012]: 0x079 = 0x03c8, 02d2 4814 4877 |H Hw| [0x013]: 0x078 = 0x03c0, 02d4 4813 4878 |H Hx| [0x014]: 0x077 = 0x03b8, 02d6 4812 4879 |H Hy| [0x015]: 0x076 = 0x03b0, 02d8 4811 487a |H Hz| [0x016]: 0x075 = 0x03a8, 02da 4810 487b |H H{| [0x017]: 0x074 = 0x03a0, 02dc 480f 487c |H H|| [0x018]: 0x073 = 0x0398, 02de 4801 4800 |H H | [0x019]: 0x072 = 0x0390, 02e0 4800 480c |H H | [0x00e]: 0x071 = 0x0388 02e2 02cf | | 02e3 BODY_02c0: 02e3 4802 |H | Short_Literal 0x2 02e4 4802 |H | Short_Literal 0x2 02e5 0099 | | Action Reference_Dynamic 02e6 1d0d | | Execute_Immediate Reference_Lex_1,0xd 02e7 0137 | 7 | Execute Entry,Rendezvous 02e8 e005 | | Load 0x0,0x5 02e9 0337 | 7 | Declare_Variable Array 02ea 4802 |H | Short_Literal 0x2 02eb 4800 |H | Short_Literal 0x0 02ec 4800 |H | Short_Literal 0x0 02ed 00d9 | | Load_Top At_Offset_1 02ee e404 | | Load 0x2,0x4 02ef 01d6 | | Execute Vector,Field_Write 02f0 3ffb |? | Loop_Increasing 0x2ec 02f1 e005 | | Load 0x0,0x5 02f2 01c3 | | Execute Vector,Check_In_Type 02f3 e21e | | Load 0x1,0x1e 02f4 01d4 | | Execute Vector,Structure_Write 02f5 6082 |` | Indirect_Literal Discrete,0x378,{0x7fffffff, 0xffffffff} 02f6 a220 | | Store_Unchecked 0x1,0x20 02f7 00cf | | Action Mark_Auxiliary 02f8 00e1 | | Load_Encached Boolean_Cache 02f9 4800 |H | Short_Literal 0x0 02fa c405 | | Store 0x2,0x5 02fb 00e7 | | Load_Encached Duration_Cache 02fc 00e3 | | Load_Encached Natural_Cache 02fd 4802 |H | Short_Literal 0x2 02fe e21e | | Load 0x1,0x1e 02ff 01d7 | | Execute Vector,Field_Read 0300 0c01 | | Execute_Immediate Greater_Equal,0x1 0301 6812 |h | Jump_Zero 0x314 0302 e220 | | Load 0x1,0x20 0303 e007 | | Load 0x0,0x7 0304 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0305 00db | | Load_Top At_Offset_3 0306 7002 |p | Jump_Nonzero 0x309 0307 c406 | | Store 0x2,0x6 0308 7805 |x | Jump 0x30e 0309 00d8 | | Load_Top At_Offset_0 030a 00db | | Load_Top At_Offset_3 030b 027c | | | Execute Discrete,Less 030c 6806 |h | Jump_Zero 0x313 030d c406 | | Store 0x2,0x6 030e 4801 |H | Short_Literal 0x1 030f c405 | | Store 0x2,0x5 0310 480c |H | Short_Literal 0xc 0311 c407 | | Store 0x2,0x7 0312 7801 |x | Jump 0x314 0313 00d1 | | Pop_Control Pop_Count_1 0314 e006 | | Load 0x0,0x6 0315 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0316 00db | | Load_Top At_Offset_3 0317 7002 |p | Jump_Nonzero 0x31a 0318 c406 | | Store 0x2,0x6 0319 7805 |x | Jump 0x31f 031a 00d8 | | Load_Top At_Offset_0 031b 00db | | Load_Top At_Offset_3 031c 027c | | | Execute Discrete,Less 031d 6806 |h | Jump_Zero 0x324 031e c406 | | Store 0x2,0x6 031f 4801 |H | Short_Literal 0x1 0320 c405 | | Store 0x2,0x5 0321 480d |H | Short_Literal 0xd 0322 c407 | | Store 0x2,0x7 0323 7801 |x | Jump 0x325 0324 00d1 | | Pop_Control Pop_Count_1 0325 00da | | Load_Top At_Offset_2 0326 00d8 | | Load_Top At_Offset_0 0327 e403 | | Load 0x2,0x3 0328 013e | > | Execute Select,Timed_Guard_Write 0329 6804 |h | Jump_Zero 0x32e 032a 00d8 | | Load_Top At_Offset_0 032b 00da | | Load_Top At_Offset_2 032c e403 | | Load 0x2,0x3 032d 013d | = | Execute Select,Timed_Duration_Write 032e 00d3 | | Pop_Control Pop_Count_3 032f 00d9 | | Load_Top At_Offset_1 0330 013f | ? | Execute Select,Rendezvous 0331 460e |F | Jump_Case 0xf 0332 780d |x | Jump 0x340 ; case 0x0 0333 7826 |x& | Jump 0x35a ; case 0x1 0334 7825 |x% | Jump 0x35a ; case 0x2 0335 7824 |x$ | Jump 0x35a ; case 0x3 0336 7823 |x# | Jump 0x35a ; case 0x4 0337 7822 |x" | Jump 0x35a ; case 0x5 0338 7821 |x! | Jump 0x35a ; case 0x6 0339 7820 |x | Jump 0x35a ; case 0x7 033a 781f |x | Jump 0x35a ; case 0x8 033b 781e |x | Jump 0x35a ; case 0x9 033c 781d |x | Jump 0x35a ; case 0xa 033d 781c |x | Jump 0x35a ; case 0xb 033e 780c |x | Jump 0x34b ; case 0xc 033f 780d |x | Jump 0x34d ; case 0xd 0340 e008 | | Load 0x0,0x8 ; case 0xe 0341 00e1 | | Load_Encached Boolean_Cache 0342 e21a | | Load 0x1,0x1a 0343 4803 |H | Short_Literal 0x3 0344 e016 | | Load 0x0,0x16 0345 1711 | | Execute Task,Entry_Call,Field_Number 0x11 0346 c221 | ! | Store 0x1,0x21 0347 c222 | " | Store 0x1,0x22 0348 e221 | ! | Load 0x1,0x21 0349 7012 |p | Jump_Nonzero 0x35c 034a 780f |x | Jump 0x35a 034b 8226 | & | Call 0x1,0x26 034c 780d |x | Jump 0x35a 034d 8228 | ( | Call 0x1,0x28 034e e223 | # | Load 0x1,0x23 034f 680a |h | Jump_Zero 0x35a 0350 e008 | | Load 0x0,0x8 0351 00e1 | | Load_Encached Boolean_Cache 0352 e21a | | Load 0x1,0x1a 0353 4803 |H | Short_Literal 0x3 0354 e016 | | Load 0x0,0x16 0355 1711 | | Execute Task,Entry_Call,Field_Number 0x11 0356 c221 | ! | Store 0x1,0x21 0357 c222 | " | Store 0x1,0x22 0358 e221 | ! | Load 0x1,0x21 0359 7002 |p | Jump_Nonzero 0x35c 035a 00c9 | | Action Pop_Auxiliary_Loop 035b 7f9c | | Jump 0x2f8 035c 00ce | | Action Pop_Auxiliary 035d 8229 | ) | Call 0x1,0x29 035e e222 | " | Load 0x1,0x22 035f 4801 |H | Short_Literal 0x1 0360 e016 | | Load 0x0,0x16 0361 1712 | | Execute Task,Entry_Call,Field_Number 0x12 0362 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0363 TRAP_02c0: 0363 e00c | | Load 0x0,0xc 0364 010f | | Execute Exception,Equal 0365 6802 |h | Jump_Zero 0x368 0366 00cc | | Action Pop_Block 0367 7cee || | Jump 0x56 0368 4808 |H | Short_Literal 0x8 0369 0092 0531 | 1| Action Push_String_Extended,0x531 ; "Unexpected exception " 036b 8009 | | Call 0x0,0x9 036c 01cc | | Execute Vector,Catenate 036d 0092 0540 | @| Action Push_String_Extended,0x540 ; " in Session_Worker main loop for " 036f 01cc | | Execute Vector,Catenate 0370 e21a | | Load 0x1,0x1a 0371 800a | | Call 0x0,0xa 0372 01cc | | Execute Vector,Catenate 0373 4802 |H | Short_Literal 0x2 0374 e00b | | Load 0x0,0xb 0375 170d | | Execute Task,Entry_Call,Field_Number 0xd 0376 00cc | | Action Pop_Block 0377 7cde || | Jump 0x56 0378 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 037c 0000 0000 | | .BLANK 0000[0x4] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0385 8602 | | Call 0x3,0x2 0386 4101 |A | End_Rendezvous 0x1 0387 0000 | | .XXX[0x1] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; See instruction 0x02cf at 0x2c6, index=0xe 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 4100 |A | End_Rendezvous 0x0 038c 0000 0000 | | .BLANK 0000[0x4] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; See instruction 0x02cf at 0x2c6, index=0x19 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00db | | Load_Top At_Offset_3 0394 822c | , | Call 0x1,0x2c 0395 4100 |A | End_Rendezvous 0x0 0396 0000 0000 | | .XXX[0x2] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; See instruction 0x02cf at 0x2c6, index=0x18 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 039d 8602 | | Call 0x3,0x2 039e 4101 |A | End_Rendezvous 0x1 039f 0000 | | .XXX[0x1] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; See instruction 0x02cf at 0x2c6, index=0x17 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 03a5 8602 | | Call 0x3,0x2 03a6 4101 |A | End_Rendezvous 0x1 03a7 0000 | | .XXX[0x1] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; See instruction 0x02cf at 0x2c6, index=0x16 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 029f 045b | [| Declare_Subprogram INIT_0458,For_Call 03ad 8602 | | Call 0x3,0x2 03ae 4101 |A | End_Rendezvous 0x1 03af 0000 | | .XXX[0x1] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; See instruction 0x02cf at 0x2c6, index=0x15 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 03b5 8602 | | Call 0x3,0x2 03b6 4100 |A | End_Rendezvous 0x0 03b7 0000 | | .XXX[0x1] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; See instruction 0x02cf at 0x2c6, index=0x14 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 03bd 8602 | | Call 0x3,0x2 03be 4100 |A | End_Rendezvous 0x0 03bf 0000 | | .XXX[0x1] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; See instruction 0x02cf at 0x2c6, index=0x13 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call 03c5 8602 | | Call 0x3,0x2 03c6 4100 |A | End_Rendezvous 0x0 03c7 0000 | | .XXX[0x1] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; See instruction 0x02cf at 0x2c6, index=0x12 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 03cd 8602 | | Call 0x3,0x2 03ce 4101 |A | End_Rendezvous 0x1 03cf 0000 | | .XXX[0x1] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; See instruction 0x02cf at 0x2c6, index=0x11 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 03d5 8602 | | Call 0x3,0x2 03d6 4101 |A | End_Rendezvous 0x1 03d7 0000 | | .XXX[0x1] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; See instruction 0x02cf at 0x2c6, index=0x10 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 03dd 8602 | | Call 0x3,0x2 03de 4101 |A | End_Rendezvous 0x1 03df 0000 | | .XXX[0x1] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; See instruction 0x02cf at 0x2c6, index=0xf 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 029f 050b | | Declare_Subprogram INIT_0508,For_Call 03e5 8602 | | Call 0x3,0x2 03e6 4102 |A | End_Rendezvous 0x2 03e7 0000 | | .XXX[0x1] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f2 | | .CONST 0x03f2 ; Address of begin 03e9 042a | * | .CONST 0x042a ; Address of exception handler 03ea 0005 | | .CONST 0x0005 ; Number of locals 03eb INIT_03e8: 03eb e002 | | Load 0x0,0x2 03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ed e003 | | Load 0x0,0x3 03ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03ef 00e5 | | Load_Encached Long_Integer_Cache 03f0 e003 | | Load 0x0,0x3 03f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f2 BODY_03e8: 03f2 e7fe | | Load 0x3,-0x2 03f3 a21a | | Store_Unchecked 0x1,0x1a 03f4 e003 | | Load 0x0,0x3 03f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03f6 4864 |Hd | Short_Literal 0x64 03f7 e014 | | Load 0x0,0x14 03f8 180d | | Execute Package,Field_Execute,Field_Number 0xd 03f9 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03fa e002 | | Load 0x0,0x2 03fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fc 00db | | Load_Top At_Offset_3 03fd 039c | | Declare_Variable Heap_Access,By_Allocation 03fe 00d8 | | Load_Top At_Offset_0 03ff 0217 | | Execute Heap_Access,All_Reference 0400 1c00 | | Execute_Immediate Run_Utility,0x0 0401 a802 | | Store_Unchecked 0x4,0x2 0402 4806 |H | Short_Literal 0x6 0403 e017 | | Load 0x0,0x17 0404 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0405 e802 | | Load 0x4,0x2 0406 0217 | | Execute Heap_Access,All_Reference 0407 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0408 6027 |`' | Indirect_Literal Discrete,0x430,{0x00000000, 0x00014000} 0409 6026 |`& | Indirect_Literal Discrete,0x430,{0x00000000, 0x00014000} 040a 4840 |H@ | Short_Literal 0x40 040b e803 | | Load 0x4,0x3 040c e004 | | Load 0x0,0x4 040d 180e | | Execute Package,Field_Execute,Field_Number 0xe 040e c21d | | Store 0x1,0x1d 040f e006 | | Load 0x0,0x6 0410 180e | | Execute Package,Field_Execute,Field_Number 0xe 0411 a21f | | Store_Unchecked 0x1,0x1f 0412 00db | | Load_Top At_Offset_3 0413 0219 | | Execute Heap_Access,All_Read 0414 00d8 | | Load_Top At_Offset_0 0415 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0416 e21f | | Load 0x1,0x1f 0417 e21d | | Load 0x1,0x1d 0418 e00d | | Load 0x0,0xd 0419 180f | | Execute Package,Field_Execute,Field_Number 0xf 041a 00d9 | | Load_Top At_Offset_1 041b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 041c 00d1 | | Pop_Control Pop_Count_1 041d 00da | | Load_Top At_Offset_2 041e e018 | | Load 0x0,0x18 041f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0420 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0421 00db | | Load_Top At_Offset_3 0422 e019 | | Load 0x0,0x19 0423 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0424 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0425 00db | | Load_Top At_Offset_3 0426 a21b | | Store_Unchecked 0x1,0x1b 0427 00db | | Load_Top At_Offset_3 0428 a7fd | | Store_Unchecked 0x3,-0x3 0429 4501 |E | Exit_Suprogram New_Top_Offset 0x1 042a TRAP_03e8: 042a 0007 | | Action Break_Optional 042b 0092 0541 | A| Action Push_String_Extended,0x541 ; "Activating" 042d 8225 | % | Call 0x1,0x25 042e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 042f 0000 | | .XXX[0x1] 0430 0000 0000 | | .LITERAL {0x00000000, 0x00014000} 0434 0000 0000 | | .BLANK 0000[0x4] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0440 | @ | .CONST 0x0440 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b e7fe | | Load 0x3,-0x2 043c e00d | | Load 0x0,0xd 043d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 043e c7fe | | Store 0x3,-0x2 043f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0440 TRAP_0438: 0440 0007 | | Action Break_Optional 0441 0092 0542 | B| Action Push_String_Extended,0x542 ; "Delete_Mapping" 0443 8225 | % | Call 0x1,0x25 0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0450 | P | .CONST 0x0450 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b e7fe | | Load 0x3,-0x2 044c e00d | | Load 0x0,0xd 044d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 044e c7fe | | Store 0x3,-0x2 044f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0450 TRAP_0448: 0450 0007 | | Action Break_Optional 0451 0092 0543 | C| Action Push_String_Extended,0x543 ; "Reclaim" 0453 8225 | % | Call 0x1,0x25 0454 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0455 0000 0000 | | .XXX[0x3] 0457 0000 | | 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0462 | b | .CONST 0x0462 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b e7fd | | Load 0x3,-0x3 045c e21d | | Load 0x1,0x1d 045d e7fe | | Load 0x3,-0x2 045e e00d | | Load 0x0,0xd 045f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0460 c7fd | | Store 0x3,-0x3 0461 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0462 TRAP_0458: 0462 0007 | | Action Break_Optional 0463 0092 0544 | D| Action Push_String_Extended,0x544 ; "Initialise string map iterator" 0465 8225 | % | Call 0x1,0x25 0466 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046d | m | .CONST 0x046d ; Address of begin 0469 0479 | y | .CONST 0x0479 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b e00e | | Load 0x0,0xe 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d BODY_0468: 046d 00d8 | | Load_Top At_Offset_0 046e e21d | | Load 0x1,0x1d 046f e00e | | Load 0x0,0xe 0470 180f | | Execute Package,Field_Execute,Field_Number 0xf 0471 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0472 e21d | | Load 0x1,0x1d 0473 e7fd | | Load 0x3,-0x3 0474 00da | | Load_Top At_Offset_2 0475 e7fe | | Load 0x3,-0x2 0476 e00d | | Load 0x0,0xd 0477 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0478 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0479 TRAP_0468: 0479 0007 | | Action Break_Optional 047a 0092 0545 | E| Action Push_String_Extended,0x545 ; "Insert_Value" 047c 8225 | % | Call 0x1,0x25 047d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047e 0000 0000 | | .XXX[0x2] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0485 | | .CONST 0x0485 ; Address of begin 0481 049c | | .CONST 0x049c ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 e007 | | Load 0x0,0x7 0484 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0485 BODY_0480: 0485 e007 | | Load 0x0,0x7 0486 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0487 e7fc | | Load 0x3,-0x4 0488 e7fd | | Load 0x3,-0x3 0489 e7fe | | Load 0x3,-0x2 048a e00e | | Load 0x0,0xe 048b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 048c 0059 | Y | Store_Top Discrete,At_Offset_1 048d e21e | | Load 0x1,0x1e 048e 4801 |H | Short_Literal 0x1 048f 8011 | | Call 0x0,0x11 0490 00d1 | | Pop_Control Pop_Count_1 0491 e21e | | Load 0x1,0x1e 0492 4802 |H | Short_Literal 0x2 0493 801a | | Call 0x0,0x1a 0494 00d1 | | Pop_Control Pop_Count_1 0495 e220 | | Load 0x1,0x20 0496 00d9 | | Load_Top At_Offset_1 0497 8224 | $ | Call 0x1,0x24 0498 6802 |h | Jump_Zero 0x49b 0499 00d8 | | Load_Top At_Offset_0 049a a220 | | Store_Unchecked 0x1,0x20 049b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049c TRAP_0480: 049c 0007 | | Action Break_Optional 049d 0092 0546 | F| Action Push_String_Extended,0x546 ; "Release_Value" 049f 8225 | % | Call 0x1,0x25 04a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a1 0000 0000 | | .BLANK 0000[0x7] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 04b7 | | .CONST 0x04b7 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab e7fd | | Load 0x3,-0x3 04ac e7fe | | Load 0x3,-0x2 04ad e00e | | Load 0x0,0xe 04ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04af e21e | | Load 0x1,0x1e 04b0 4800 |H | Short_Literal 0x0 04b1 8011 | | Call 0x0,0x11 04b2 00d1 | | Pop_Control Pop_Count_1 04b3 e21e | | Load 0x1,0x1e 04b4 4801 |H | Short_Literal 0x1 04b5 801a | | Call 0x0,0x1a 04b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04b7 TRAP_04a8: 04b7 0007 | | Action Break_Optional 04b8 0092 0547 | G| Action Push_String_Extended,0x547 ; "Make_Active" 04ba 8225 | % | Call 0x1,0x25 04bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 04d2 | | .CONST 0x04d2 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 e00f | | Load 0x0,0xf 04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c5 e7fd | | Load 0x3,-0x3 04c6 e7fe | | Load 0x3,-0x2 04c7 e00e | | Load 0x0,0xe 04c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04c9 c7fc | | Store 0x3,-0x4 04ca e21e | | Load 0x1,0x1e 04cb 4802 |H | Short_Literal 0x2 04cc 8011 | | Call 0x0,0x11 04cd 00d1 | | Pop_Control Pop_Count_1 04ce e21e | | Load 0x1,0x1e 04cf 4800 |H | Short_Literal 0x0 04d0 801a | | Call 0x0,0x1a 04d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d2 TRAP_04c0: 04d2 0007 | | Action Break_Optional 04d3 0092 0548 | H| Action Push_String_Extended,0x548 ; "Reserve_Idle_Value" 04d5 8225 | % | Call 0x1,0x25 04d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d7 0000 | | .XXX[0x1] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 04e7 | | .CONST 0x04e7 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db e7fc | | Load 0x3,-0x4 04dc e00f | | Load 0x0,0xf 04dd 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 04de c7fc | | Store 0x3,-0x4 04df e7fd | | Load 0x3,-0x3 04e0 e7fe | | Load 0x3,-0x2 04e1 e00e | | Load 0x0,0xe 04e2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04e3 e21e | | Load 0x1,0x1e 04e4 4801 |H | Short_Literal 0x1 04e5 8011 | | Call 0x0,0x11 04e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e7 TRAP_04d8: 04e7 0007 | | Action Break_Optional 04e8 0092 0549 | I| Action Push_String_Extended,0x549 ; "Destroy_Value" 04ea 8225 | % | Call 0x1,0x25 04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 04ff | | .CONST 0x04ff ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 e7fc | | Load 0x3,-0x4 04f4 e00f | | Load 0x0,0xf 04f5 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 04f6 c7fc | | Store 0x3,-0x4 04f7 e7fd | | Load 0x3,-0x3 04f8 e7fe | | Load 0x3,-0x2 04f9 e00e | | Load 0x0,0xe 04fa 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04fb e21e | | Load 0x1,0x1e 04fc 4800 |H | Short_Literal 0x0 04fd 8011 | | Call 0x0,0x11 04fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ff TRAP_04f0: 04ff 0007 | | Action Break_Optional 0500 0092 054a | J| Action Push_String_Extended,0x54a ; "Remove_Pending" 0502 8225 | % | Call 0x1,0x25 0503 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0504 0000 0000 | | .BLANK 0000[0x4] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 052c | , | .CONST 0x052c ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b e21e | | Load 0x1,0x1e 050c 801b | | Call 0x0,0x1b 050d e21f | | Load 0x1,0x1f 050e 027b | { | Execute Discrete,Greater_Equal 050f 6809 |h | Jump_Zero 0x519 0510 4802 |H | Short_Literal 0x2 0511 e21e | | Load 0x1,0x1e 0512 01d7 | | Execute Vector,Field_Read 0513 7004 |p | Jump_Nonzero 0x518 0514 4801 |H | Short_Literal 0x1 0515 a7fb | | Store_Unchecked 0x3,-0x5 0516 00cc | | Action Pop_Block 0517 4102 |A | End_Rendezvous 0x2 0518 8227 | ' | Call 0x1,0x27 0519 e7fa | | Load 0x3,-0x6 051a e21d | | Load 0x1,0x1d 051b e7fe | | Load 0x3,-0x2 051c e00f | | Load 0x0,0xf 051d 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 051e c7fa | | Store 0x3,-0x6 051f e7fa | | Load 0x3,-0x6 0520 e21d | | Load 0x1,0x1d 0521 e7fc | | Load 0x3,-0x4 0522 e7fd | | Load 0x3,-0x3 0523 e00e | | Load 0x0,0xe 0524 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0525 e21e | | Load 0x1,0x1e 0526 4800 |H | Short_Literal 0x0 0527 801a | | Call 0x0,0x1a 0528 00d1 | | Pop_Control Pop_Count_1 0529 4800 |H | Short_Literal 0x0 052a a7fb | | Store_Unchecked 0x3,-0x5 052b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 052c TRAP_0508: 052c 0007 | | Action Break_Optional 052d 0092 054b | K| Action Push_String_Extended,0x54b ; "Create_Pending" 052f 8225 | % | Call 0x1,0x25 0530 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0531 ; -------------------------------------------------------------------------------------- 0531 ; STRING TABLE 0531 ; -------------------------------------------------------------------------------------- 0531 0038 | 8 | .STRTAB 0x0038->0x054d ; "Unexpected exception " 0532 004b | K | .STRTAB 0x004b->0x0557 ; " causing death of the Session_Worker for " 0533 0072 | r | .STRTAB 0x0072->0x056c ; "Session_Worker for " 0534 0083 | | .STRTAB 0x0083->0x0575 ; " got unexpected exception " 0535 009b | | .STRTAB 0x009b->0x0582 ; "; the Corrupt_State exception will be raised" 0536 00c5 | | .STRTAB 0x00c5->0x0598 ; "alive" 0537 00c8 | | .STRTAB 0x00c8->0x059b ; "not alive" 0538 00cf | | .STRTAB 0x00cf->0x059f ; " An idle item expiring at " 0539 00ea | | .STRTAB 0x00ea->0x05ae ; " last used at " 053a 00f6 | | .STRTAB 0x00f6->0x05b5 ; " An active item owned by " 053b 0110 | | .STRTAB 0x0110->0x05c3 ; " A pending item whose creator is " 053c 0132 | 2 | .STRTAB 0x0132->0x05d5 ; "The following items are cached for " 053d 0153 | S | .STRTAB 0x0153->0x05e6 ; " For " 053e 0157 | W | .STRTAB 0x0157->0x05e9 ; " NONE" 053f 015d | ] | .STRTAB 0x015d->0x05ed ; "Got unexpected exception " 0540 0174 | t | .STRTAB 0x0174->0x05fa ; " in Session_Worker main loop for " 0541 0193 | | .STRTAB 0x0193->0x060a ; "Activating" 0542 019b | | .STRTAB 0x019b->0x060f ; "Delete_Mapping" 0543 01a7 | | .STRTAB 0x01a7->0x0616 ; "Reclaim" 0544 01ac | | .STRTAB 0x01ac->0x061a ; "Initialise string map iterator" 0545 01c8 | | .STRTAB 0x01c8->0x0629 ; "Insert_Value" 0546 01d2 | | .STRTAB 0x01d2->0x062f ; "Release_Value" 0547 01dd | | .STRTAB 0x01dd->0x0635 ; "Make_Active" 0548 01e6 | | .STRTAB 0x01e6->0x063b ; "Reserve_Idle_Value" 0549 01f6 | | .STRTAB 0x01f6->0x0644 ; "Destroy_Value" 054a 0201 | | .STRTAB 0x0201->0x064a ; "Remove_Pending" 054b 020d | | .STRTAB 0x020d->0x0651 ; "Create_Pending" 054c 0219 | | .STREND 0x0219->0x0658 054d 556e 6578 |Unex| .STRTAB_STRINGS 0659 0000 0000 | | .BLANK 0000[0x7] 0660 ; -------------------------------------------------------------------------------------- 0660 ; Debug Table 0660 ; -------------------------------------------------------------------------------------- 0660 0004 000e | | .DEBUG4 0x0004,0x000e,0xf45f,0x0000,0x0001,0x0000 0666 0057 26c5 | W& | .XXX[0x2] 0668 0000 0000 | | .BLANK 0000[0x7] 066f 009c | | .XXX[0x1] 0670 0000 0000 | | .BLANK 0000[0x8] 0678 0001 0404 | | .XXX[0x5] 067a 0000 0280 | | 067c 8000 | | 067d 0000 0000 | | .BLANK 0000[0x9] 0686 0057 26c5 | W& | .XXX[0x2] 0688 0000 0000 | | .BLANK 0000[0x7] 068f 00a8 | | .XXX[0x1] 0690 0000 0000 | | .BLANK 0000[0x8] 0698 0001 0404 | | .XXX[0x5] 069a 0000 0700 | | 069c 8000 | | 069d 0000 0000 | | .BLANK 0000[0x9] 06a6 0057 26c5 | W& | .XXX[0x2] 06a8 0000 0000 | | .BLANK 0000[0x7] 06af 00b4 | | .XXX[0x1] 06b0 0000 0000 | | .BLANK 0000[0x8] 06b8 005b 40da | [@ | .XXX[0x8] 06ba 0000 0016 | | 06bc 004a 500e | JP | 06be 0000 32b2 | 2 | 06c0 0000 0000 | | .BLANK 0000[0x140]