|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe
└─⟦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 0568 | h | .CONST 0x0568 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00f5 | | .CONST 0x00f5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0062 | b | .CONST 0x0062 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c e001 | | Load 0x0,0x1 005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005e 0129 | ) | Execute Any,Make_Visible 005f c228 | ( | Store 0x1,0x28 0060 e001 | | Load 0x0,0x1 0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0062 0129 | ) | Execute Any,Make_Visible 0063 c229 | ) | Store 0x1,0x29 0064 e001 | | Load 0x0,0x1 0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0066 0129 | ) | Execute Any,Make_Visible 0067 c22a | * | Store 0x1,0x2a 0068 e001 | | Load 0x0,0x1 0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006a 0129 | ) | Execute Any,Make_Visible 006b c22b | + | Store 0x1,0x2b 006c 4800 |H | Short_Literal 0x0 006d 4801 |H | Short_Literal 0x1 006e 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0070 03fe | | Declare_Type Discrete,Defined,Visible 0071 c23e | > | Store 0x1,0x3e 0072 e23e | > | Load 0x1,0x3e 0073 4801 |H | Short_Literal 0x1 0074 4900 |I | Short_Literal 0x100 0075 e001 | | Load 0x0,0x1 0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0077 1c07 | | Execute_Immediate Run_Utility,0x7 0078 0129 | ) | Execute Any,Make_Visible 0079 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 007b 4801 |H | Short_Literal 0x1 007c 4800 |H | Short_Literal 0x0 007d 4801 |H | Short_Literal 0x1 007e 4800 |H | Short_Literal 0x0 007f 4801 |H | Short_Literal 0x1 0080 031e | | Declare_Type Variant_Record,Defined,Visible 0081 c24a | J | Store 0x1,0x4a 0082 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0084 c24b | K | Store 0x1,0x4b 0085 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0087 c25d | ] | Store 0x1,0x5d 0088 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 008a c24d | M | Store 0x1,0x4d 008b 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 008d c24e | N | Store 0x1,0x4e 008e 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0090 c24f | O | Store 0x1,0x4f 0091 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0093 c250 | P | Store 0x1,0x50 0094 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0096 c251 | Q | Store 0x1,0x51 0097 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0099 c252 | R | Store 0x1,0x52 009a 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 009c c253 | S | Store 0x1,0x53 009d 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 009f c254 | T | Store 0x1,0x54 00a0 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 00a2 c255 | U | Store 0x1,0x55 00a3 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 00a5 c256 | V | Store 0x1,0x56 00a6 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 00a8 c257 | W | Store 0x1,0x57 00a9 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 00ab c258 | X | Store 0x1,0x58 00ac 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 00ae c259 | Y | Store 0x1,0x59 00af 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 00b1 c25a | Z | Store 0x1,0x5a 00b2 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 00b4 c25b | [ | Store 0x1,0x5b 00b5 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 00b7 c21f | | Store 0x1,0x1f 00b8 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated 00ba c25c | \ | Store 0x1,0x5c 00bb 00bf | | Action Accept_Activation 00bc e002 | | Load 0x0,0x2 00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00bf 02c7 | | Declare_Variable Any 00c0 e002 | | Load 0x0,0x2 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c3 a25e | ^ | Store_Unchecked 0x1,0x5e 00c4 4800 |H | Short_Literal 0x0 00c5 e24a | J | Load 0x1,0x4a 00c6 1c08 | | Execute_Immediate Run_Utility,0x8 00c7 00d8 | | Load_Top At_Offset_0 00c8 1c01 | | Execute_Immediate Run_Utility,0x1 00c9 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call 00cb 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 00cd 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call 00cf 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 00d0 00c7 | | Action Elaborate_Subprogram 00d1 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 00d2 00c7 | | Action Elaborate_Subprogram 00d3 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 00d4 00c7 | | Action Elaborate_Subprogram 00d5 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 00d6 00c7 | | Action Elaborate_Subprogram 00d7 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 00da 00c7 | | Action Elaborate_Subprogram 00db 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 00dc 00c7 | | Action Elaborate_Subprogram 00dd 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 00de 00c7 | | Action Elaborate_Subprogram 00df 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 00e4 00c7 | | Action Elaborate_Subprogram 00e5 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 00e6 00c7 | | Action Elaborate_Subprogram 00e7 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 00e8 00c7 | | Action Elaborate_Subprogram 00e9 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 00ea 00c7 | | Action Elaborate_Subprogram 00eb 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 00ec 00c7 | | Action Elaborate_Subprogram 00ed 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 00ee 00c7 | | Action Elaborate_Subprogram 00ef 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 00f0 00c7 | | Action Elaborate_Subprogram 00f1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00f2 00c7 | | Action Elaborate_Subprogram 00f3 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 00f4 00c7 | | Action Elaborate_Subprogram 00f5 BODY_0008: 00f5 00bc | | Action Signal_Activated 00f6 00bb | | Action Signal_Completion 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4607 |F | Jump_Case 0x8 00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00fd 7806 |x | Jump 0x104 ; case 0x1 00fe 7809 |x | Jump 0x108 ; case 0x2 00ff 780d |x | Jump 0x10d ; case 0x3 0100 7810 |x | Jump 0x111 ; case 0x4 0101 7811 |x | Jump 0x113 ; case 0x5 0102 7812 |x | Jump 0x115 ; case 0x6 0103 7815 |x | Jump 0x119 ; case 0x7 0104 00da | | Load_Top At_Offset_2 0105 0091 052b | +| Action Push_String_Extended_Indexed,0x52b ; "ES_OK" 0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0108 00db | | Load_Top At_Offset_3 0109 00db | | Load_Top At_Offset_3 010a 00e0 | | Load_Encached Standard_Cache 010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 00da | | Load_Top At_Offset_2 010e 00e0 | | Load_Encached Standard_Cache 010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0111 00db | | Load_Top At_Offset_3 0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0113 00db | | Load_Top At_Offset_3 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 e23e | > | Load 0x1,0x3e 0116 00dc | | Load_Top At_Offset_4 0117 0267 | g | Execute Discrete,Predecessor 0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0119 e23e | > | Load 0x1,0x3e 011a 00dc | | Load_Top At_Offset_4 011b 0268 | h | Execute Discrete,Successor 011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 012c | , | .CONST 0x012c ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00e1 | | Load_Encached Boolean_Cache 0124 e5fd | | Load 0x2,-0x3 0125 e5fe | | Load 0x2,-0x2 0126 e5ff | | Load 0x2,-0x1 0127 e003 | | Load 0x0,0x3 0128 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0129 00d2 | | Pop_Control Pop_Count_2 012a c5fc | | Store 0x2,-0x4 012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012c TRAP_0120: 012c e004 | | Load 0x0,0x4 012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012e 010f | | Execute Exception,Equal 012f 6802 |h | Jump_Zero 0x132 0130 00d8 | | Load_Top At_Offset_0 0131 0101 | | Execute Exception,Reraise 0132 4801 |H | Short_Literal 0x1 0133 e005 | | Load 0x0,0x5 0134 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 014a | J | .CONST 0x014a ; Address of begin 0139 01d3 | | .CONST 0x01d3 ; Address of exception handler 013a 0004 | | .CONST 0x0004 ; Number of locals 013b INIT_0138: 013b e002 | | Load 0x0,0x2 013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013e 02c7 | | Declare_Variable Any 013f 00d8 | | Load_Top At_Offset_0 0140 1c00 | | Execute_Immediate Run_Utility,0x0 0141 e002 | | Load 0x0,0x2 0142 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0143 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0144 02c7 | | Declare_Variable Any 0145 00d8 | | Load_Top At_Offset_0 0146 1c00 | | Execute_Immediate Run_Utility,0x0 0147 e002 | | Load 0x0,0x2 0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0149 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 014a BODY_0138: 014a 8262 | b | Call 0x1,0x62 014b 4801 |H | Short_Literal 0x1 014c e002 | | Load 0x0,0x2 014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014f e5ff | | Load 0x2,-0x1 0150 e001 | | Load 0x0,0x1 0151 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0152 e002 | | Load 0x0,0x2 0153 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0154 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0155 c402 | | Store 0x2,0x2 0156 00da | | Load_Top At_Offset_2 0157 e002 | | Load 0x0,0x2 0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0159 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 015a c403 | | Store 0x2,0x3 015b 00d9 | | Load_Top At_Offset_1 015c e002 | | Load 0x0,0x2 015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015e 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 015f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0160 00d8 | | Load_Top At_Offset_0 0161 4618 |F | Jump_Case 0x19 0162 7821 |x! | Jump 0x184 ; case 0x0 0163 7820 |x | Jump 0x184 ; case 0x1 0164 7831 |x1 | Jump 0x196 ; case 0x2 0165 7815 |x | Jump 0x17b ; case 0x3 0166 7814 |x | Jump 0x17b ; case 0x4 0167 7813 |x | Jump 0x17b ; case 0x5 0168 7812 |x | Jump 0x17b ; case 0x6 0169 7811 |x | Jump 0x17b ; case 0x7 016a 7810 |x | Jump 0x17b ; case 0x8 016b 7835 |x5 | Jump 0x1a1 ; case 0x9 016c 780e |x | Jump 0x17b ; case 0xa 016d 780d |x | Jump 0x17b ; case 0xb 016e 783b |x; | Jump 0x1aa ; case 0xc 016f 781d |x | Jump 0x18d ; case 0xd 0170 7840 |x@ | Jump 0x1b1 ; case 0xe 0171 7846 |xF | Jump 0x1b8 ; case 0xf 0172 784c |xL | Jump 0x1bf ; case 0x10 0173 7856 |xV | Jump 0x1ca ; case 0x11 0174 7806 |x | Jump 0x17b ; case 0x12 0175 7805 |x | Jump 0x17b ; case 0x13 0176 7804 |x | Jump 0x17b ; case 0x14 0177 7803 |x | Jump 0x17b ; case 0x15 0178 7802 |x | Jump 0x17b ; case 0x16 0179 7801 |x | Jump 0x17b ; case 0x17 017a 7800 |x | Jump 0x17b ; case 0x18 017b 4801 |H | Short_Literal 0x1 017c e5ff | | Load 0x2,-0x1 017d e001 | | Load 0x0,0x1 017e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017f 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 0181 e005 | | Load 0x0,0x5 0182 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0184 e5fe | | Load 0x2,-0x2 0185 00db | | Load_Top At_Offset_3 0186 e002 | | Load 0x0,0x2 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0189 e001 | | Load 0x0,0x1 018a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 018b 00d1 | | Pop_Control Pop_Count_1 018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018d 4801 |H | Short_Literal 0x1 018e e5ff | | Load 0x2,-0x1 018f e001 | | Load 0x0,0x1 0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0191 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 0193 e005 | | Load 0x0,0x5 0194 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0196 4801 |H | Short_Literal 0x1 0197 0092 052e | .| Action Push_String_Extended,0x52e ; "deleted" 0199 e5ff | | Load 0x2,-0x1 019a e001 | | Load 0x0,0x1 019b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019c 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 019e e005 | | Load 0x0,0x5 019f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a1 4801 |H | Short_Literal 0x1 01a2 e5ff | | Load 0x2,-0x1 01a3 e001 | | Load 0x0,0x1 01a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a5 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 01a7 e005 | | Load 0x0,0x5 01a8 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01aa 4801 |H | Short_Literal 0x1 01ab e5ff | | Load 0x2,-0x1 01ac e001 | | Load 0x0,0x1 01ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ae e005 | | Load 0x0,0x5 01af 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b1 4801 |H | Short_Literal 0x1 01b2 e5ff | | Load 0x2,-0x1 01b3 e001 | | Load 0x0,0x1 01b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b5 e005 | | Load 0x0,0x5 01b6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b8 4801 |H | Short_Literal 0x1 01b9 e5ff | | Load 0x2,-0x1 01ba e001 | | Load 0x0,0x1 01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01bc e005 | | Load 0x0,0x5 01bd 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 01be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bf 4801 |H | Short_Literal 0x1 01c0 0092 052e | .| Action Push_String_Extended,0x52e ; "deleted" 01c2 e5ff | | Load 0x2,-0x1 01c3 e001 | | Load 0x0,0x1 01c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c5 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 01c7 e005 | | Load 0x0,0x5 01c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 01c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ca 4801 |H | Short_Literal 0x1 01cb e5ff | | Load 0x2,-0x1 01cc e001 | | Load 0x0,0x1 01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ce 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 01d0 e005 | | Load 0x0,0x5 01d1 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d3 TRAP_0138: 01d3 e004 | | Load 0x0,0x4 01d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d5 010f | | Execute Exception,Equal 01d6 6802 |h | Jump_Zero 0x1d9 01d7 00d8 | | Load_Top At_Offset_0 01d8 0101 | | Execute Exception,Reraise 01d9 4801 |H | Short_Literal 0x1 01da e005 | | Load 0x0,0x5 01db 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e9 | | .CONST 0x01e9 ; Address of begin 01e1 01f1 | | .CONST 0x01f1 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e002 | | Load 0x0,0x2 01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 01e6 02c7 | | Declare_Variable Any 01e7 00d8 | | Load_Top At_Offset_0 01e8 1c00 | | Execute_Immediate Run_Utility,0x0 01e9 BODY_01e0: 01e9 e003 | | Load 0x0,0x3 01ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01eb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ec e5ff | | Load 0x2,-0x1 01ed e003 | | Load 0x0,0x3 01ee 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ef c5fe | | Store 0x2,-0x2 01f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f1 TRAP_01e0: 01f1 e004 | | Load 0x0,0x4 01f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f3 010f | | Execute Exception,Equal 01f4 6802 |h | Jump_Zero 0x1f7 01f5 00d8 | | Load_Top At_Offset_0 01f6 0101 | | Execute Exception,Reraise 01f7 4801 |H | Short_Literal 0x1 01f8 e005 | | Load 0x0,0x5 01f9 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 01fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01fb 0000 0000 | | .BLANK 0000[0x5] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0208 | | .CONST 0x0208 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00db | | Load_Top At_Offset_3 0204 00db | | Load_Top At_Offset_3 0205 e003 | | Load 0x0,0x3 0206 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0207 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0208 TRAP_0200: 0208 e004 | | Load 0x0,0x4 0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020a 010f | | Execute Exception,Equal 020b 6802 |h | Jump_Zero 0x20e 020c 00d8 | | Load_Top At_Offset_0 020d 0101 | | Execute Exception,Reraise 020e 4801 |H | Short_Literal 0x1 020f e005 | | Load 0x0,0x5 0210 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0211 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0220 | | .CONST 0x0220 ; Address of begin 0219 0229 | ) | .CONST 0x0229 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b 4900 |I | Short_Literal 0x100 021c e22a | * | Load 0x1,0x2a 021d 1c08 | | Execute_Immediate Run_Utility,0x8 021e 00d8 | | Load_Top At_Offset_0 021f 1c00 | | Execute_Immediate Run_Utility,0x0 0220 BODY_0218: 0220 00d8 | | Load_Top At_Offset_0 0221 e5ff | | Load 0x2,-0x1 0222 825d | ] | Call 0x1,0x5d 0223 00d1 | | Pop_Control Pop_Count_1 0224 e5fe | | Load 0x2,-0x2 0225 00d9 | | Load_Top At_Offset_1 0226 e003 | | Load 0x0,0x3 0227 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0228 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0229 TRAP_0218: 0229 e004 | | Load 0x0,0x4 022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022b 010f | | Execute Exception,Equal 022c 6802 |h | Jump_Zero 0x22f 022d 00d8 | | Load_Top At_Offset_0 022e 0101 | | Execute Exception,Reraise 022f 4801 |H | Short_Literal 0x1 0230 e005 | | Load 0x0,0x5 0231 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0232 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0233 0000 0000 | | .BLANK 0000[0x5] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0240 | @ | .CONST 0x0240 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00db | | Load_Top At_Offset_3 023c 00db | | Load_Top At_Offset_3 023d e003 | | Load 0x0,0x3 023e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 023f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0240 TRAP_0238: 0240 e004 | | Load 0x0,0x4 0241 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0242 010f | | Execute Exception,Equal 0243 6802 |h | Jump_Zero 0x246 0244 00d8 | | Load_Top At_Offset_0 0245 0101 | | Execute Exception,Reraise 0246 4801 |H | Short_Literal 0x1 0247 e005 | | Load 0x0,0x5 0248 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0249 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024a 0000 0000 | | .BLANK 0000[0x6] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0258 | X | .CONST 0x0258 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00db | | Load_Top At_Offset_3 0254 00db | | Load_Top At_Offset_3 0255 e003 | | Load 0x0,0x3 0256 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0257 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0258 TRAP_0250: 0258 e004 | | Load 0x0,0x4 0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025a 010f | | Execute Exception,Equal 025b 6802 |h | Jump_Zero 0x25e 025c 00d8 | | Load_Top At_Offset_0 025d 0101 | | Execute Exception,Reraise 025e 4801 |H | Short_Literal 0x1 025f e005 | | Load 0x0,0x5 0260 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0261 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0262 0000 0000 | | .BLANK 0000[0x6] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 026f | o | .CONST 0x026f ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4801 |H | Short_Literal 0x1 026c e005 | | Load 0x0,0x5 026d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026f TRAP_0268: 026f e004 | | Load 0x0,0x4 0270 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0271 010f | | Execute Exception,Equal 0272 6802 |h | Jump_Zero 0x275 0273 00d8 | | Load_Top At_Offset_0 0274 0101 | | Execute Exception,Reraise 0275 4801 |H | Short_Literal 0x1 0276 e005 | | Load 0x0,0x5 0277 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0278 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0287 | | .CONST 0x0287 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 e003 | | Load 0x0,0x3 0285 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0287 TRAP_0280: 0287 e004 | | Load 0x0,0x4 0288 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0289 010f | | Execute Exception,Equal 028a 6802 |h | Jump_Zero 0x28d 028b 00d8 | | Load_Top At_Offset_0 028c 0101 | | Execute Exception,Reraise 028d 4801 |H | Short_Literal 0x1 028e e005 | | Load 0x0,0x5 028f 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0290 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0291 0000 0000 | | .BLANK 0000[0x7] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 029f | | .CONST 0x029f ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 4801 |H | Short_Literal 0x1 029c e005 | | Load 0x0,0x5 029d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 029e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029f TRAP_0298: 029f e004 | | Load 0x0,0x4 02a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a1 010f | | Execute Exception,Equal 02a2 6802 |h | Jump_Zero 0x2a5 02a3 00d8 | | Load_Top At_Offset_0 02a4 0101 | | Execute Exception,Reraise 02a5 4801 |H | Short_Literal 0x1 02a6 e005 | | Load 0x0,0x5 02a7 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02bb | | .CONST 0x02bb ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 8262 | b | Call 0x1,0x62 02b4 00da | | Load_Top At_Offset_2 02b5 e001 | | Load 0x0,0x1 02b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b7 e006 | | Load 0x0,0x6 02b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02b9 a5fe | | Store_Unchecked 0x2,-0x2 02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bb TRAP_02b0: 02bb e006 | | Load 0x0,0x6 02bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02bd 010f | | Execute Exception,Equal 02be 6809 |h | Jump_Zero 0x2c8 02bf 4801 |H | Short_Literal 0x1 02c0 e5ff | | Load 0x2,-0x1 02c1 e001 | | Load 0x0,0x1 02c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c3 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 02c5 e005 | | Load 0x0,0x5 02c6 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c8 e004 | | Load 0x0,0x4 02c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ca 010f | | Execute Exception,Equal 02cb 6802 |h | Jump_Zero 0x2ce 02cc 00d8 | | Load_Top At_Offset_0 02cd 0101 | | Execute Exception,Reraise 02ce 4801 |H | Short_Literal 0x1 02cf e005 | | Load 0x0,0x5 02d0 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 02d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d2 0000 0000 | | .BLANK 0000[0x6] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 02e3 | | .CONST 0x02e3 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 8262 | b | Call 0x1,0x62 02dc 00da | | Load_Top At_Offset_2 02dd e001 | | Load 0x0,0x1 02de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02df e006 | | Load 0x0,0x6 02e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02e1 a5fe | | Store_Unchecked 0x2,-0x2 02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e3 TRAP_02d8: 02e3 e006 | | Load 0x0,0x6 02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e5 010f | | Execute Exception,Equal 02e6 6809 |h | Jump_Zero 0x2f0 02e7 4801 |H | Short_Literal 0x1 02e8 e5ff | | Load 0x2,-0x1 02e9 e001 | | Load 0x0,0x1 02ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02eb 0092 052d | -| Action Push_String_Extended,0x52d ; "object" 02ed e005 | | Load 0x0,0x5 02ee 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f0 e006 | | Load 0x0,0x6 02f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02f2 010f | | Execute Exception,Equal 02f3 6807 |h | Jump_Zero 0x2fb 02f4 4801 |H | Short_Literal 0x1 02f5 e5ff | | Load 0x2,-0x1 02f6 e001 | | Load 0x0,0x1 02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f8 e005 | | Load 0x0,0x5 02f9 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 02fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fb e004 | | Load 0x0,0x4 02fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02fd 010f | | Execute Exception,Equal 02fe 6802 |h | Jump_Zero 0x301 02ff 00d8 | | Load_Top At_Offset_0 0300 0101 | | Execute Exception,Reraise 0301 4801 |H | Short_Literal 0x1 0302 e005 | | Load 0x0,0x5 0303 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 030f | | .CONST 0x030f ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4801 |H | Short_Literal 0x1 030c e005 | | Load 0x0,0x5 030d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 030e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 030f TRAP_0308: 030f e004 | | Load 0x0,0x4 0310 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0311 010f | | Execute Exception,Equal 0312 6802 |h | Jump_Zero 0x315 0313 00d8 | | Load_Top At_Offset_0 0314 0101 | | Execute Exception,Reraise 0315 4801 |H | Short_Literal 0x1 0316 e005 | | Load 0x0,0x5 0317 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0318 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0319 0000 0000 | | .BLANK 0000[0x7] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0327 | ' | .CONST 0x0327 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 e003 | | Load 0x0,0x3 0325 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0326 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0327 TRAP_0320: 0327 e004 | | Load 0x0,0x4 0328 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0329 010f | | Execute Exception,Equal 032a 6802 |h | Jump_Zero 0x32d 032b 00d8 | | Load_Top At_Offset_0 032c 0101 | | Execute Exception,Reraise 032d 4801 |H | Short_Literal 0x1 032e e005 | | Load 0x0,0x5 032f 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0330 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0331 0000 0000 | | .BLANK 0000[0x7] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0345 | E | .CONST 0x0345 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c e25e | ^ | Load 0x1,0x5e 033d e002 | | Load 0x0,0x2 033e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0340 e001 | | Load 0x0,0x1 0341 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0342 e001 | | Load 0x0,0x1 0343 180f | | Execute Package,Field_Execute,Field_Number 0xf 0344 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0345 TRAP_0338: 0345 e004 | | Load 0x0,0x4 0346 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0347 010f | | Execute Exception,Equal 0348 6802 |h | Jump_Zero 0x34b 0349 00d8 | | Load_Top At_Offset_0 034a 0101 | | Execute Exception,Reraise 034b 4801 |H | Short_Literal 0x1 034c e005 | | Load 0x0,0x5 034d 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 034e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034f 0000 | | .XXX[0x1] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0359 | Y | .CONST 0x0359 ; Address of begin 0351 035d | ] | .CONST 0x035d ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 e002 | | Load 0x0,0x2 0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0355 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0356 02c7 | | Declare_Variable Any 0357 00d8 | | Load_Top At_Offset_0 0358 1c00 | | Execute_Immediate Run_Utility,0x0 0359 BODY_0350: 0359 00db | | Load_Top At_Offset_3 035a e003 | | Load 0x0,0x3 035b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 035c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035d TRAP_0350: 035d e004 | | Load 0x0,0x4 035e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035f 010f | | Execute Exception,Equal 0360 6802 |h | Jump_Zero 0x363 0361 00d8 | | Load_Top At_Offset_0 0362 0101 | | Execute Exception,Reraise 0363 4801 |H | Short_Literal 0x1 0364 e005 | | Load 0x0,0x5 0365 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0366 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0367 0000 | | .XXX[0x1] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 0377 | w | .CONST 0x0377 ; Address of begin 0369 0404 | | .CONST 0x0404 ; Address of exception handler 036a 0003 | | .CONST 0x0003 ; Number of locals 036b INIT_0368: 036b e002 | | Load 0x0,0x2 036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 036e 02c7 | | Declare_Variable Any 036f 00d8 | | Load_Top At_Offset_0 0370 1c00 | | Execute_Immediate Run_Utility,0x0 0371 e002 | | Load 0x0,0x2 0372 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0373 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0374 02c7 | | Declare_Variable Any 0375 00d8 | | Load_Top At_Offset_0 0376 1c00 | | Execute_Immediate Run_Utility,0x0 0377 BODY_0368: 0377 00d9 | | Load_Top At_Offset_1 0378 0120 | | Execute Any,Is_Value 0379 6804 |h | Jump_Zero 0x37e 037a e002 | | Load 0x0,0x2 037b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037c 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 037d 7801 |x | Jump 0x37f 037e 00d9 | | Load_Top At_Offset_1 037f e25e | ^ | Load 0x1,0x5e 0380 e002 | | Load 0x0,0x2 0381 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0382 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0383 c402 | | Store 0x2,0x2 0384 4801 |H | Short_Literal 0x1 0385 e002 | | Load 0x0,0x2 0386 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0387 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0388 e5ff | | Load 0x2,-0x1 0389 e001 | | Load 0x0,0x1 038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 038b e002 | | Load 0x0,0x2 038c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 038e c403 | | Store 0x2,0x3 038f 00d8 | | Load_Top At_Offset_0 0390 e002 | | Load 0x0,0x2 0391 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0392 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0393 c402 | | Store 0x2,0x2 0394 00d9 | | Load_Top At_Offset_1 0395 e002 | | Load 0x0,0x2 0396 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0397 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0398 4618 |F | Jump_Case 0x19 0399 7866 |xf | Jump 0x400 ; case 0x0 039a 7865 |xe | Jump 0x400 ; case 0x1 039b 781f |x | Jump 0x3bb ; case 0x2 039c 7815 |x | Jump 0x3b2 ; case 0x3 039d 7814 |x | Jump 0x3b2 ; case 0x4 039e 7813 |x | Jump 0x3b2 ; case 0x5 039f 7812 |x | Jump 0x3b2 ; case 0x6 03a0 7811 |x | Jump 0x3b2 ; case 0x7 03a1 7810 |x | Jump 0x3b2 ; case 0x8 03a2 7823 |x# | Jump 0x3c6 ; case 0x9 03a3 780e |x | Jump 0x3b2 ; case 0xa 03a4 780d |x | Jump 0x3b2 ; case 0xb 03a5 7829 |x) | Jump 0x3cf ; case 0xc 03a6 782f |x/ | Jump 0x3d6 ; case 0xd 03a7 7837 |x7 | Jump 0x3df ; case 0xe 03a8 783d |x= | Jump 0x3e6 ; case 0xf 03a9 7843 |xC | Jump 0x3ed ; case 0x10 03aa 784d |xM | Jump 0x3f8 ; case 0x11 03ab 7806 |x | Jump 0x3b2 ; case 0x12 03ac 7805 |x | Jump 0x3b2 ; case 0x13 03ad 7804 |x | Jump 0x3b2 ; case 0x14 03ae 7803 |x | Jump 0x3b2 ; case 0x15 03af 7802 |x | Jump 0x3b2 ; case 0x16 03b0 7801 |x | Jump 0x3b2 ; case 0x17 03b1 7800 |x | Jump 0x3b2 ; case 0x18 03b2 4801 |H | Short_Literal 0x1 03b3 e5ff | | Load 0x2,-0x1 03b4 e001 | | Load 0x0,0x1 03b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b6 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 03b8 e005 | | Load 0x0,0x5 03b9 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03ba 7845 |xE | Jump 0x400 03bb 4801 |H | Short_Literal 0x1 03bc 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context" 03be e5ff | | Load 0x2,-0x1 03bf e001 | | Load 0x0,0x1 03c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c1 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 03c3 e005 | | Load 0x0,0x5 03c4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 03c5 783a |x: | Jump 0x400 03c6 4801 |H | Short_Literal 0x1 03c7 e5ff | | Load 0x2,-0x1 03c8 e001 | | Load 0x0,0x1 03c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ca 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 03cc e005 | | Load 0x0,0x5 03cd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 03ce 7831 |x1 | Jump 0x400 03cf 4801 |H | Short_Literal 0x1 03d0 e5ff | | Load 0x2,-0x1 03d1 e001 | | Load 0x0,0x1 03d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03d3 e005 | | Load 0x0,0x5 03d4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 03d5 782a |x* | Jump 0x400 03d6 4801 |H | Short_Literal 0x1 03d7 e5ff | | Load 0x2,-0x1 03d8 e001 | | Load 0x0,0x1 03d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03da 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 03dc e005 | | Load 0x0,0x5 03dd 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 03de 7821 |x! | Jump 0x400 03df 4801 |H | Short_Literal 0x1 03e0 e5ff | | Load 0x2,-0x1 03e1 e001 | | Load 0x0,0x1 03e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e3 e005 | | Load 0x0,0x5 03e4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03e5 781a |x | Jump 0x400 03e6 4801 |H | Short_Literal 0x1 03e7 e5ff | | Load 0x2,-0x1 03e8 e001 | | Load 0x0,0x1 03e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ea e005 | | Load 0x0,0x5 03eb 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 03ec 7813 |x | Jump 0x400 03ed 4801 |H | Short_Literal 0x1 03ee 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context" 03f0 e5ff | | Load 0x2,-0x1 03f1 e001 | | Load 0x0,0x1 03f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f3 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 03f5 e005 | | Load 0x0,0x5 03f6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 03f7 7808 |x | Jump 0x400 03f8 4801 |H | Short_Literal 0x1 03f9 e5ff | | Load 0x2,-0x1 03fa e001 | | Load 0x0,0x1 03fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03fc 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 03fe e005 | | Load 0x0,0x5 03ff 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0400 00d8 | | Load_Top At_Offset_0 0401 c25e | ^ | Store 0x1,0x5e 0402 8262 | b | Call 0x1,0x62 0403 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0404 TRAP_0368: 0404 e004 | | Load 0x0,0x4 0405 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0406 010f | | Execute Exception,Equal 0407 6802 |h | Jump_Zero 0x40a 0408 00d8 | | Load_Top At_Offset_0 0409 0101 | | Execute Exception,Reraise 040a 4801 |H | Short_Literal 0x1 040b e005 | | Load 0x0,0x5 040c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 040d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 040e 0000 0000 | | .XXX[0x2] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0416 | | .CONST 0x0416 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 e003 | | Load 0x0,0x3 0414 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0415 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0416 TRAP_0410: 0416 e004 | | Load 0x0,0x4 0417 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0418 010f | | Execute Exception,Equal 0419 6802 |h | Jump_Zero 0x41c 041a 00d8 | | Load_Top At_Offset_0 041b 0101 | | Execute Exception,Reraise 041c 4801 |H | Short_Literal 0x1 041d e005 | | Load 0x0,0x5 041e 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 041f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 043c | < | .CONST 0x043c ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 e007 | | Load 0x0,0x7 0424 180e | | Execute Package,Field_Execute,Field_Number 0xe 0425 4801 |H | Short_Literal 0x1 0426 0092 0531 | 1| Action Push_String_Extended,0x531 ; "executing " 0428 e5ff | | Load 0x2,-0x1 0429 e001 | | Load 0x0,0x1 042a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 042b 01cc | | Execute Vector,Catenate 042c e008 | | Load 0x0,0x8 042d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 042e 8009 | | Call 0x0,0x9 042f 0092 0532 | 2| Action Push_String_Extended,0x532 ; "<RAISE_EXCEPTION>" 0431 0092 0533 | 3| Action Push_String_Extended,0x533 ; "$" 0433 e5ff | | Load 0x2,-0x1 0434 e001 | | Load 0x0,0x1 0435 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0436 e00a | | Load 0x0,0xa 0437 180f | | Execute Package,Field_Execute,Field_Number 0xf 0438 4800 |H | Short_Literal 0x0 0439 e00b | | Load 0x0,0xb 043a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 043b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 043c TRAP_0420: 043c e004 | | Load 0x0,0x4 043d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 043e 010f | | Execute Exception,Equal 043f 6802 |h | Jump_Zero 0x442 0440 00d8 | | Load_Top At_Offset_0 0441 0101 | | Execute Exception,Reraise 0442 4801 |H | Short_Literal 0x1 0443 e5ff | | Load 0x2,-0x1 0444 e001 | | Load 0x0,0x1 0445 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0446 e005 | | Load 0x0,0x5 0447 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0448 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 4801 |H | Short_Literal 0x1 0454 e24a | J | Load 0x1,0x4a 0455 1c08 | | Execute_Immediate Run_Utility,0x8 0456 00d8 | | Load_Top At_Offset_0 0457 1c01 | | Execute_Immediate Run_Utility,0x1 0458 4900 |I | Short_Literal 0x100 0459 e5ff | | Load 0x2,-0x1 045a e001 | | Load 0x0,0x1 045b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 045c 00d9 | | Load_Top At_Offset_1 045d 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045f 0000 | | .XXX[0x1] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 4801 |H | Short_Literal 0x1 0464 e24a | J | Load 0x1,0x4a 0465 1c08 | | Execute_Immediate Run_Utility,0x8 0466 00d8 | | Load_Top At_Offset_0 0467 1c01 | | Execute_Immediate Run_Utility,0x1 0468 4900 |I | Short_Literal 0x100 0469 e5ff | | Load 0x2,-0x1 046a e001 | | Load 0x0,0x1 046b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 046c e001 | | Load 0x0,0x1 046d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 046e 00d9 | | Load_Top At_Offset_1 046f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0470 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0471 0000 0000 | | .BLANK 0000[0x7] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 0483 | | .CONST 0x0483 ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0003 | | .CONST 0x0003 ; Number of locals 047b INIT_0478: 047b e002 | | Load 0x0,0x2 047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 047e 02c7 | | Declare_Variable Any 047f 00d8 | | Load_Top At_Offset_0 0480 1c00 | | Execute_Immediate Run_Utility,0x0 0481 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0483 BODY_0478: 0483 00d9 | | Load_Top At_Offset_1 0484 0120 | | Execute Any,Is_Value 0485 6804 |h | Jump_Zero 0x48a 0486 e002 | | Load 0x0,0x2 0487 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0488 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0489 7801 |x | Jump 0x48b 048a 00d9 | | Load_Top At_Offset_1 048b e25e | ^ | Load 0x1,0x5e 048c e002 | | Load 0x0,0x2 048d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 048e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 048f c402 | | Store 0x2,0x2 0490 00d9 | | Load_Top At_Offset_1 0491 e002 | | Load 0x0,0x2 0492 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0493 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0494 6801 |h | Jump_Zero 0x496 0495 8403 | | Call 0x2,0x3 0496 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0497 0000 | | .XXX[0x1] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049f | | .CONST 0x049f ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0002 | | .CONST 0x0002 ; Number of locals 049b INIT_0498: 049b e25e | ^ | Load 0x1,0x5e 049c e002 | | Load 0x0,0x2 049d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 049e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 049f BODY_0498: 049f e402 | | Load 0x2,0x2 04a0 e002 | | Load 0x0,0x2 04a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a2 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 04a3 4618 |F | Jump_Case 0x19 04a4 7818 |x | Jump 0x4bd ; case 0x0 04a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1 04a6 781d |x | Jump 0x4c4 ; case 0x2 04a7 7815 |x | Jump 0x4bd ; case 0x3 04a8 7814 |x | Jump 0x4bd ; case 0x4 04a9 7813 |x | Jump 0x4bd ; case 0x5 04aa 7812 |x | Jump 0x4bd ; case 0x6 04ab 7811 |x | Jump 0x4bd ; case 0x7 04ac 7810 |x | Jump 0x4bd ; case 0x8 04ad 782f |x/ | Jump 0x4dd ; case 0x9 04ae 780e |x | Jump 0x4bd ; case 0xa 04af 780d |x | Jump 0x4bd ; case 0xb 04b0 780c |x | Jump 0x4bd ; case 0xc 04b1 780b |x | Jump 0x4bd ; case 0xd 04b2 780a |x | Jump 0x4bd ; case 0xe 04b3 7809 |x | Jump 0x4bd ; case 0xf 04b4 7818 |x | Jump 0x4cd ; case 0x10 04b5 7820 |x | Jump 0x4d6 ; case 0x11 04b6 7806 |x | Jump 0x4bd ; case 0x12 04b7 7805 |x | Jump 0x4bd ; case 0x13 04b8 7804 |x | Jump 0x4bd ; case 0x14 04b9 7803 |x | Jump 0x4bd ; case 0x15 04ba 7802 |x | Jump 0x4bd ; case 0x16 04bb 7801 |x | Jump 0x4bd ; case 0x17 04bc 7800 |x | Jump 0x4bd ; case 0x18 04bd 4801 |H | Short_Literal 0x1 04be 00d9 | | Load_Top At_Offset_1 04bf 0092 0534 | 4| Action Push_String_Extended,0x534 ; "diagram" 04c1 e005 | | Load 0x0,0x5 04c2 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 04c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04c4 4801 |H | Short_Literal 0x1 04c5 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context" 04c7 00da | | Load_Top At_Offset_2 04c8 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 04ca e005 | | Load 0x0,0x5 04cb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 04cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04cd 4801 |H | Short_Literal 0x1 04ce 0092 0530 | 0| Action Push_String_Extended,0x530 ; "used as the context" 04d0 00da | | Load_Top At_Offset_2 04d1 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 04d3 e005 | | Load 0x0,0x5 04d4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 04d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d6 4801 |H | Short_Literal 0x1 04d7 00d9 | | Load_Top At_Offset_1 04d8 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 04da e005 | | Load 0x0,0x5 04db 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 04dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04dd 4801 |H | Short_Literal 0x1 04de 00d9 | | Load_Top At_Offset_1 04df 0092 052f | /| Action Push_String_Extended,0x52f ; "library" 04e1 e005 | | Load 0x0,0x5 04e2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 04e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e4 0000 0000 | | .BLANK 0000[0x4] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 4608 |F | Jump_Case 0x9 04ec 7808 |x | Jump 0x4f5 ; case 0x0 04ed 781c |x | Jump 0x50a ; case 0x1 04ee 783b |x; | Jump 0x52a ; case 0x2 04ef 783a |x: | Jump 0x52a ; case 0x3 04f0 7839 |x9 | Jump 0x52a ; case 0x4 04f1 7838 |x8 | Jump 0x52a ; case 0x5 04f2 781f |x | Jump 0x512 ; case 0x6 04f3 7826 |x& | Jump 0x51a ; case 0x7 04f4 782e |x. | Jump 0x523 ; case 0x8 04f5 00da | | Load_Top At_Offset_2 04f6 016c | l | Execute Variant_Record,Is_Constrained 04f7 7009 |p | Jump_Nonzero 0x501 04f8 00cf | | Action Mark_Auxiliary 04f9 4800 |H | Short_Literal 0x0 04fa e5ff | | Load 0x2,-0x1 04fb 1c08 | | Execute_Immediate Run_Utility,0x8 04fc 00d8 | | Load_Top At_Offset_0 04fd 1c00 | | Execute_Immediate Run_Utility,0x0 04fe c5ff | | Store 0x2,-0x1 04ff 00ce | | Action Pop_Auxiliary 0500 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0501 00da | | Load_Top At_Offset_2 0502 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0503 6805 |h | Jump_Zero 0x509 0504 00da | | Load_Top At_Offset_2 0505 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0506 00da | | Load_Top At_Offset_2 0507 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0508 1c00 | | Execute_Immediate Run_Utility,0x0 0509 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 050a 00da | | Load_Top At_Offset_2 050b 016b | k | Execute Variant_Record,Read_Variant 050c 00d8 | | Load_Top At_Offset_0 050d 0f01 | | Execute_Immediate Equal,0x1 050e 6802 |h | Jump_Zero 0x511 050f 00db | | Load_Top At_Offset_3 0510 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0511 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0512 00db | | Load_Top At_Offset_3 0513 0f01 | | Execute_Immediate Equal,0x1 0514 7001 |p | Jump_Nonzero 0x516 0515 7802 |x | Jump 0x518 0516 4801 |H | Short_Literal 0x1 0517 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0518 48ff |H | Short_Literal 0xff 0519 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 051a 00db | | Load_Top At_Offset_3 051b e5fe | | Load 0x2,-0x2 051c 6802 |h | Jump_Zero 0x51f 051d 4801 |H | Short_Literal 0x1 051e 7801 |x | Jump 0x520 051f 48ff |H | Short_Literal 0xff 0520 e5ff | | Load 0x2,-0x1 0521 031b | | Declare_Type Variant_Record,Constrained 0522 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0523 00db | | Load_Top At_Offset_3 0524 e5fe | | Load 0x2,-0x2 0525 e5ff | | Load 0x2,-0x1 0526 1c06 | | Execute_Immediate Run_Utility,0x6 0527 e5ff | | Load 0x2,-0x1 0528 02fc | | Declare_Variable Variant_Record,With_Constraint 0529 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 052a 0869 | i | Execute_Immediate Raise,0x69 052b ; -------------------------------------------------------------------------------------- 052b ; STRING TABLE 052b ; -------------------------------------------------------------------------------------- 052b 0016 | | .STRTAB 0x0016->0x0536 ; "ES_OK" 052c 0019 | | .STRTAB 0x0019->0x0538 ; "ES_ERROR" 052d 001f | | .STRTAB 0x001f->0x053c ; "object" 052e 0023 | # | .STRTAB 0x0023->0x053f ; "deleted" 052f 0028 | ( | .STRTAB 0x0028->0x0543 ; "library" 0530 002d | - | .STRTAB 0x002d->0x0546 ; "used as the context" 0531 003e | > | .STRTAB 0x003e->0x0550 ; "executing " 0532 0046 | F | .STRTAB 0x0046->0x0555 ; "<RAISE_EXCEPTION>" 0533 0055 | U | .STRTAB 0x0055->0x055d ; "$" 0534 0054 | T | .STRTAB 0x0054->0x055e ; "diagram" 0535 0059 | Y | .STREND 0x0059->0x0561 0536 4553 5f4f |ES_O| .STRTAB_STRINGS 0562 0000 0000 | | .BLANK 0000[0x6] 0568 ; -------------------------------------------------------------------------------------- 0568 ; Debug Table 0568 ; -------------------------------------------------------------------------------------- 0568 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9658,0x0000,0x0001,0x0000 056e 0000 0000 | | .BLANK 0000[0x6] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]