|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0500 | | .CONST 0x0500 ; 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 0085 | | .CONST 0x0085 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002a | * | .CONST 0x002a ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000d 0129 | ) | Execute Any,Make_Visible 000e 4800 |H | Short_Literal 0x0 000f 4801 |H | Short_Literal 0x1 0010 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0012 03fe | | Declare_Type Discrete,Defined,Visible 0013 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0019 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 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 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0030 c21d | | Store 0x1,0x1d 0031 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0033 c21e | | Store 0x1,0x1e 0034 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0036 c225 | % | Store 0x1,0x25 0037 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0039 c216 | | Store 0x1,0x16 003a 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 003c c217 | | Store 0x1,0x17 003d 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 003f c220 | | Store 0x1,0x20 0040 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0042 c221 | ! | Store 0x1,0x21 0043 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0045 c222 | " | Store 0x1,0x22 0046 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0048 c223 | # | Store 0x1,0x23 0049 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 004b c224 | $ | Store 0x1,0x24 004c 00bf | | Action Accept_Activation 004d e002 | | Load 0x0,0x2 004e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004f 00e1 | | Load_Encached Boolean_Cache 0050 00e1 | | Load_Encached Boolean_Cache 0051 e20d | | Load 0x1,0xd 0052 00e1 | | Load_Encached Boolean_Cache 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 4805 |H | Short_Literal 0x5 0055 032d | - | Declare_Type Record,Defined 0056 00d8 | | Load_Top At_Offset_0 0057 02a0 | | Declare_Subprogram Null_Subprogram 0058 03ad | | Declare_Type Heap_Access,Defined 0059 1d0f | | Execute_Immediate Reference_Lex_1,0xf 005a 00c7 | | Action Elaborate_Subprogram 005b 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 005d 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 005f e003 | | Load 0x0,0x3 0060 e004 | | Load 0x0,0x4 0061 e227 | ' | Load 0x1,0x27 0062 00d8 | | Load_Top At_Offset_0 0063 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0064 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0065 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "UNKNOWN" 0067 e005 | | Load 0x0,0x5 0068 0387 | | Declare_Variable Package 0069 00d8 | | Load_Top At_Offset_0 006a 020f | | Execute Module,Activate 006b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 006c 00c7 | | Action Elaborate_Subprogram 006d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 006e 00c7 | | Action Elaborate_Subprogram 006f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0070 00c7 | | Action Elaborate_Subprogram 0071 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0072 00c7 | | Action Elaborate_Subprogram 0073 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0074 00c7 | | Action Elaborate_Subprogram 0075 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0076 00c7 | | Action Elaborate_Subprogram 0077 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0078 00c7 | | Action Elaborate_Subprogram 0079 1d17 | | Execute_Immediate Reference_Lex_1,0x17 007a 00c7 | | Action Elaborate_Subprogram 007b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 007c 00c7 | | Action Elaborate_Subprogram 007d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007e 00c7 | | Action Elaborate_Subprogram 007f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0080 00c7 | | Action Elaborate_Subprogram 0081 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0082 00c7 | | Action Elaborate_Subprogram 0083 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0084 00c7 | | Action Elaborate_Subprogram 0085 BODY_0008: 0085 00bc | | Action Signal_Activated 0086 00bb | | Action Signal_Completion 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4607 |F | Jump_Case 0x8 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 008d 7806 |x | Jump 0x94 ; case 0x1 008e 7809 |x | Jump 0x98 ; case 0x2 008f 780d |x | Jump 0x9d ; case 0x3 0090 7810 |x | Jump 0xa1 ; case 0x4 0091 7811 |x | Jump 0xa3 ; case 0x5 0092 7812 |x | Jump 0xa5 ; case 0x6 0093 7815 |x | Jump 0xa9 ; case 0x7 0094 00da | | Load_Top At_Offset_2 0095 0091 03f2 | | Action Push_String_Extended_Indexed,0x3f2 ; "READ_ONLY" 0097 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0098 00db | | Load_Top At_Offset_3 0099 00db | | Load_Top At_Offset_3 009a 00e0 | | Load_Encached Standard_Cache 009b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 009c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009d 00da | | Load_Top At_Offset_2 009e 00e0 | | Load_Encached Standard_Cache 009f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a1 00db | | Load_Top At_Offset_3 00a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a3 00db | | Load_Top At_Offset_3 00a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a5 e20e | | Load 0x1,0xe 00a6 00dc | | Load_Top At_Offset_4 00a7 0267 | g | Execute Discrete,Predecessor 00a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a9 e20e | | Load 0x1,0xe 00aa 00dc | | Load_Top At_Offset_4 00ab 0268 | h | Execute Discrete,Successor 00ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 e001 | | Load 0x0,0x1 00b5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b7 022f | / | Execute Access,Equal 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cb | | .CONST 0x00cb ; Address of begin 00c1 00d2 | | .CONST 0x00d2 ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 e006 | | Load 0x0,0x6 00c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c5 e006 | | Load 0x0,0x6 00c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00c7 03f1 | | Declare_Variable Discrete,With_Value 00c8 00d8 | | Load_Top At_Offset_0 00c9 e22a | * | Load 0x1,0x2a 00ca 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00cb BODY_00c0: 00cb 4800 |H | Short_Literal 0x0 00cc a5fd | | Store_Unchecked 0x2,-0x3 00cd 00d8 | | Load_Top At_Offset_0 00ce 0217 | | Execute Heap_Access,All_Reference 00cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00d0 a5fe | | Store_Unchecked 0x2,-0x2 00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d2 TRAP_00c0: 00d2 0007 | | Action Break_Optional 00d3 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "Get_Job_Domain" 00d5 e007 | | Load 0x0,0x7 00d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d7 a5fd | | Store_Unchecked 0x2,-0x3 00d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00eb | | .CONST 0x00eb ; Address of begin 00e1 0109 | | .CONST 0x0109 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e006 | | Load 0x0,0x6 00e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e5 e006 | | Load 0x0,0x6 00e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00e7 03f1 | | Declare_Variable Discrete,With_Value 00e8 00d8 | | Load_Top At_Offset_0 00e9 e22a | * | Load 0x1,0x2a 00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00eb BODY_00e0: 00eb e5ff | | Load 0x2,-0x1 00ec 00d9 | | Load_Top At_Offset_1 00ed 0217 | | Execute Heap_Access,All_Reference 00ee 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00ef e5fe | | Load 0x2,-0x2 00f0 00d9 | | Load_Top At_Offset_1 00f1 0217 | | Execute Heap_Access,All_Reference 00f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f3 4801 |H | Short_Literal 0x1 00f4 00d9 | | Load_Top At_Offset_1 00f5 0217 | | Execute Heap_Access,All_Reference 00f6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00f7 4801 |H | Short_Literal 0x1 00f8 00d9 | | Load_Top At_Offset_1 00f9 0217 | | Execute Heap_Access,All_Reference 00fa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00fb e006 | | Load 0x0,0x6 00fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00fd e008 | | Load 0x0,0x8 00fe 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ff 00d9 | | Load_Top At_Offset_1 0100 0217 | | Execute Heap_Access,All_Reference 0101 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0102 4800 |H | Short_Literal 0x0 0103 e006 | | Load 0x0,0x6 0104 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0105 00da | | Load_Top At_Offset_2 0106 e22a | * | Load 0x1,0x2a 0107 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0108 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0109 TRAP_00e0: 0109 0007 | | Action Break_Optional 010a 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "Set_Job_Domain" 010c e007 | | Load 0x0,0x7 010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010e a5fc | | Store_Unchecked 0x2,-0x4 010f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011b | | .CONST 0x011b ; Address of begin 0111 0145 | E | .CONST 0x0145 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e006 | | Load 0x0,0x6 0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0115 e006 | | Load 0x0,0x6 0116 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0117 03f1 | | Declare_Variable Discrete,With_Value 0118 00d8 | | Load_Top At_Offset_0 0119 e22a | * | Load 0x1,0x2a 011a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 011b BODY_0110: 011b 4800 |H | Short_Literal 0x0 011c a5fe | | Store_Unchecked 0x2,-0x2 011d 00d8 | | Load_Top At_Offset_0 011e 0217 | | Execute Heap_Access,All_Reference 011f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0120 6823 |h# | Jump_Zero 0x144 0121 00d8 | | Load_Top At_Offset_0 0122 0217 | | Execute Heap_Access,All_Reference 0123 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0124 681f |h | Jump_Zero 0x144 0125 00d8 | | Load_Top At_Offset_0 0126 0219 | | Execute Heap_Access,All_Read 0127 e009 | | Load 0x0,0x9 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 00d9 | | Load_Top At_Offset_1 012a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 012b e001 | | Load 0x0,0x1 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d 0226 | & | Execute Access,Convert 012e e5ff | | Load 0x2,-0x1 012f e001 | | Load 0x0,0x1 0130 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0131 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0132 00da | | Load_Top At_Offset_2 0133 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0134 c5fe | | Store 0x2,-0x2 0135 00d1 | | Pop_Control Pop_Count_1 0136 4800 |H | Short_Literal 0x0 0137 00d9 | | Load_Top At_Offset_1 0138 0217 | | Execute Heap_Access,All_Reference 0139 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 013a 4800 |H | Short_Literal 0x0 013b 00d9 | | Load_Top At_Offset_1 013c 0217 | | Execute Heap_Access,All_Reference 013d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 013e 4800 |H | Short_Literal 0x0 013f e006 | | Load 0x0,0x6 0140 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0141 00da | | Load_Top At_Offset_2 0142 e22a | * | Load 0x1,0x2a 0143 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0144 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0145 TRAP_0110: 0145 0007 | | Action Break_Optional 0146 0092 03f7 | | Action Push_String_Extended,0x3f7 ; "Close_Job_Domain" 0148 e007 | | Load 0x0,0x7 0149 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014a a5fe | | Store_Unchecked 0x2,-0x2 014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015b | [ | .CONST 0x015b ; Address of begin 0151 015f | _ | .CONST 0x015f ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e006 | | Load 0x0,0x6 0154 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0155 e006 | | Load 0x0,0x6 0156 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0157 03f1 | | Declare_Variable Discrete,With_Value 0158 00d8 | | Load_Top At_Offset_0 0159 e22a | * | Load 0x1,0x2a 015a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 015b BODY_0150: 015b 00d8 | | Load_Top At_Offset_0 015c 0217 | | Execute Heap_Access,All_Reference 015d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015f TRAP_0150: 015f 0007 | | Action Break_Optional 0160 e5ff | | Load 0x2,-0x1 0161 0092 03f8 | | Action Push_String_Extended,0x3f8 ; "Valid_Job_Domain" 0163 e007 | | Load 0x0,0x7 0164 180f | | Execute Package,Field_Execute,Field_Number 0xf 0165 0831 | 1 | Execute_Immediate Raise,0x31 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0173 | s | .CONST 0x0173 ; Address of begin 0169 0177 | w | .CONST 0x0177 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b e006 | | Load 0x0,0x6 016c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016d e006 | | Load 0x0,0x6 016e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 016f 03f1 | | Declare_Variable Discrete,With_Value 0170 00d8 | | Load_Top At_Offset_0 0171 e22a | * | Load 0x1,0x2a 0172 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0173 BODY_0168: 0173 00d8 | | Load_Top At_Offset_0 0174 0217 | | Execute Heap_Access,All_Reference 0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 TRAP_0168: 0177 0007 | | Action Break_Optional 0178 e5ff | | Load 0x2,-0x1 0179 0092 03f9 | | Action Push_String_Extended,0x3f9 ; "Is_Supplier_Domain" 017b e007 | | Load 0x0,0x7 017c 180f | | Execute Package,Field_Execute,Field_Number 0xf 017d 0831 | 1 | Execute_Immediate Raise,0x31 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 018d | | .CONST 0x018d ; Address of begin 0181 01ef | | .CONST 0x01ef ; Address of exception handler 0182 0004 | | .CONST 0x0004 ; Number of locals 0183 INIT_0180: 0183 e006 | | Load 0x0,0x6 0184 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0185 e006 | | Load 0x0,0x6 0186 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0187 03f1 | | Declare_Variable Discrete,With_Value 0188 00d8 | | Load_Top At_Offset_0 0189 e22a | * | Load 0x1,0x2a 018a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018b e009 | | Load 0x0,0x9 018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018d BODY_0180: 018d e5fa | | Load 0x2,-0x6 018e 0092 03fa | | Action Push_String_Extended,0x3fa ; "Domain.Open" 0190 e007 | | Load 0x0,0x7 0191 180e | | Execute Package,Field_Execute,Field_Number 0xe 0192 00d9 | | Load_Top At_Offset_1 0193 0217 | | Execute Heap_Access,All_Reference 0194 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0195 682a |h* | Jump_Zero 0x1c0 0196 e5fa | | Load 0x2,-0x6 0197 e5fe | | Load 0x2,-0x2 0198 e5ff | | Load 0x2,-0x1 0199 e403 | | Load 0x2,0x3 019a 0217 | | Execute Heap_Access,All_Reference 019b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 019c e001 | | Load 0x0,0x1 019d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 019e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 019f 6820 |h | Jump_Zero 0x1c0 01a0 00d9 | | Load_Top At_Offset_1 01a1 0219 | | Execute Heap_Access,All_Read 01a2 e009 | | Load 0x0,0x9 01a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a4 00d9 | | Load_Top At_Offset_1 01a5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01a6 e001 | | Load 0x0,0x1 01a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a8 0226 | & | Execute Access,Convert 01a9 e5fa | | Load 0x2,-0x6 01aa e001 | | Load 0x0,0x1 01ab 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ad 00da | | Load_Top At_Offset_2 01ae 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01af 005a | Z | Store_Top Discrete,At_Offset_2 01b0 00d1 | | Pop_Control Pop_Count_1 01b1 00d8 | | Load_Top At_Offset_0 01b2 6803 |h | Jump_Zero 0x1b6 01b3 00d8 | | Load_Top At_Offset_0 01b4 a5f8 | | Store_Unchecked 0x2,-0x8 01b5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01b6 4800 |H | Short_Literal 0x0 01b7 00da | | Load_Top At_Offset_2 01b8 0217 | | Execute Heap_Access,All_Reference 01b9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01ba 4800 |H | Short_Literal 0x0 01bb e006 | | Load 0x0,0x6 01bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01bd 00db | | Load_Top At_Offset_3 01be e22a | * | Load 0x1,0x2a 01bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c0 e5fd | | Load 0x2,-0x3 01c1 0f01 | | Execute_Immediate Equal,0x1 01c2 6816 |h | Jump_Zero 0x1d9 01c3 e009 | | Load 0x0,0x9 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 e001 | | Load 0x0,0x1 01c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c7 e5fb | | Load 0x2,-0x5 01c8 e5fc | | Load 0x2,-0x4 01c9 e5fd | | Load 0x2,-0x3 01ca e20e | | Load 0x1,0xe 01cb 011c | | Execute Any,Convert_Unchecked 01cc 1c01 | | Execute_Immediate Run_Utility,0x1 01cd e00a | | Load 0x0,0xa 01ce 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01cf 1c02 | | Execute_Immediate Run_Utility,0x2 01d0 e5fa | | Load 0x2,-0x6 01d1 e5fe | | Load 0x2,-0x2 01d2 e5ff | | Load 0x2,-0x1 01d3 e001 | | Load 0x0,0x1 01d4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01d5 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 01d6 c5f9 | | Store 0x2,-0x7 01d7 c5f8 | | Store 0x2,-0x8 01d8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01d9 e009 | | Load 0x0,0x9 01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01db e001 | | Load 0x0,0x1 01dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dd 4800 |H | Short_Literal 0x0 01de 4800 |H | Short_Literal 0x0 01df e5fd | | Load 0x2,-0x3 01e0 e20e | | Load 0x1,0xe 01e1 011c | | Execute Any,Convert_Unchecked 01e2 1c01 | | Execute_Immediate Run_Utility,0x1 01e3 e00a | | Load 0x0,0xa 01e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01e5 1c02 | | Execute_Immediate Run_Utility,0x2 01e6 e5fa | | Load 0x2,-0x6 01e7 e5fe | | Load 0x2,-0x2 01e8 e5ff | | Load 0x2,-0x1 01e9 e001 | | Load 0x0,0x1 01ea 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01eb 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 01ec c5f9 | | Store 0x2,-0x7 01ed c5f8 | | Store 0x2,-0x8 01ee 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01ef TRAP_0180: 01ef e009 | | Load 0x0,0x9 01f0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f1 010f | | Execute Exception,Equal 01f2 6804 |h | Jump_Zero 0x1f7 01f3 e009 | | Load 0x0,0x9 01f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f5 a5f8 | | Store_Unchecked 0x2,-0x8 01f6 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01f7 0092 03fb | | Action Push_String_Extended,0x3fb ; "Open" 01f9 e007 | | Load 0x0,0x7 01fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01fb a5f8 | | Store_Unchecked 0x2,-0x8 01fc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0215 | | .CONST 0x0215 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 0092 03fc | | Action Push_String_Extended,0x3fc ; "Domain.Close" 0206 e007 | | Load 0x0,0x7 0207 180e | | Execute Package,Field_Execute,Field_Number 0xe 0208 e009 | | Load 0x0,0x9 0209 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020a e5fe | | Load 0x2,-0x2 020b e001 | | Load 0x0,0x1 020c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020d 0226 | & | Execute Access,Convert 020e e5ff | | Load 0x2,-0x1 020f e001 | | Load 0x0,0x1 0210 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0211 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0212 c5fe | | Store 0x2,-0x2 0213 c5fd | | Store 0x2,-0x3 0214 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0215 TRAP_0200: 0215 e009 | | Load 0x0,0x9 0216 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0217 010f | | Execute Exception,Equal 0218 6804 |h | Jump_Zero 0x21d 0219 e009 | | Load 0x0,0x9 021a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 021b a5fd | | Store_Unchecked 0x2,-0x3 021c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021d 0092 03fd | | Action Push_String_Extended,0x3fd ; "Close" 021f e007 | | Load 0x0,0x7 0220 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0221 a5fd | | Store_Unchecked 0x2,-0x3 0222 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0223 0000 0000 | | .BLANK 0000[0x5] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 023d | = | .CONST 0x023d ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 0092 03fe | | Action Push_String_Extended,0x3fe ; "Domain.Abandon" 022e e007 | | Load 0x0,0x7 022f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0230 e009 | | Load 0x0,0x9 0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0232 e5fe | | Load 0x2,-0x2 0233 e001 | | Load 0x0,0x1 0234 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0235 0226 | & | Execute Access,Convert 0236 e5ff | | Load 0x2,-0x1 0237 e001 | | Load 0x0,0x1 0238 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0239 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 023a c5fe | | Store 0x2,-0x2 023b c5fd | | Store 0x2,-0x3 023c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023d TRAP_0228: 023d e009 | | Load 0x0,0x9 023e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 023f 010f | | Execute Exception,Equal 0240 6804 |h | Jump_Zero 0x245 0241 e009 | | Load 0x0,0x9 0242 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0243 a5fd | | Store_Unchecked 0x2,-0x3 0244 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0245 0092 03ff | | Action Push_String_Extended,0x3ff ; "Abandon" 0247 e007 | | Load 0x0,0x7 0248 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0249 a5fd | | Store_Unchecked 0x2,-0x3 024a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 024b 0000 0000 | | .BLANK 0000[0x5] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0265 | e | .CONST 0x0265 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4800 |H | Short_Literal 0x0 0254 a5fb | | Store_Unchecked 0x2,-0x5 0255 e5fd | | Load 0x2,-0x3 0256 0092 0400 | | Action Push_String_Extended,0x400 ; "Domain.Add" 0258 e007 | | Load 0x0,0x7 0259 180e | | Execute Package,Field_Execute,Field_Number 0xe 025a e009 | | Load 0x0,0x9 025b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025c e5fd | | Load 0x2,-0x3 025d e5fe | | Load 0x2,-0x2 025e e5ff | | Load 0x2,-0x1 025f e5fc | | Load 0x2,-0x4 0260 e001 | | Load 0x0,0x1 0261 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0262 186b | k | Execute Package,Field_Execute,Field_Number 0x6b 0263 c5fb | | Store 0x2,-0x5 0264 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0265 TRAP_0250: 0265 e009 | | Load 0x0,0x9 0266 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0267 010f | | Execute Exception,Equal 0268 6804 |h | Jump_Zero 0x26d 0269 e009 | | Load 0x0,0x9 026a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 026b a5fb | | Store_Unchecked 0x2,-0x5 026c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 026d 0092 0401 | | Action Push_String_Extended,0x401 ; "Add" 026f e007 | | Load 0x0,0x7 0270 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0271 a5fb | | Store_Unchecked 0x2,-0x5 0272 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0273 0000 0000 | | .BLANK 0000[0x5] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0283 | | .CONST 0x0283 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b e5fd | | Load 0x2,-0x3 027c 0092 0402 | | Action Push_String_Extended,0x402 ; "Domain.Remove" 027e e007 | | Load 0x0,0x7 027f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0280 e007 | | Load 0x0,0x7 0281 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0282 0257 | W | Execute Discrete,Raise 0283 TRAP_0278: 0283 e009 | | Load 0x0,0x9 0284 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0285 010f | | Execute Exception,Equal 0286 6804 |h | Jump_Zero 0x28b 0287 e009 | | Load 0x0,0x9 0288 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0289 a5fb | | Store_Unchecked 0x2,-0x5 028a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 028b 0092 0403 | | Action Push_String_Extended,0x403 ; "Remove" 028d e007 | | Load 0x0,0x7 028e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 028f a5fb | | Store_Unchecked 0x2,-0x5 0290 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0291 0000 0000 | | .BLANK 0000[0x7] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02a8 | | .CONST 0x02a8 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e5fc | | Load 0x2,-0x4 029c 0092 0404 | | Action Push_String_Extended,0x404 ; "Domain.Member_Of_Domain" 029e e007 | | Load 0x0,0x7 029f 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a0 e5fc | | Load 0x2,-0x4 02a1 e5fd | | Load 0x2,-0x3 02a2 e5fe | | Load 0x2,-0x2 02a3 e5ff | | Load 0x2,-0x1 02a4 e001 | | Load 0x0,0x1 02a5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02a6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02a7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02a8 TRAP_0298: 02a8 e009 | | Load 0x0,0x9 02a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02aa 010f | | Execute Exception,Equal 02ab 6801 |h | Jump_Zero 0x2ad 02ac 0831 | 1 | Execute_Immediate Raise,0x31 02ad 0092 0405 | | Action Push_String_Extended,0x405 ; "<PROFILE>" 02af e00b | | Load 0x0,0xb 02b0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02b1 0092 0406 | | Action Push_String_Extended,0x406 ; "Member_Of_Domain" 02b3 e007 | | Load 0x0,0x7 02b4 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b5 0831 | 1 | Execute_Immediate Raise,0x31 02b6 0000 0000 | | .XXX[0x2] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c3 | | .CONST 0x02c3 ; Address of begin 02b9 02fa | | .CONST 0x02fa ; Address of exception handler 02ba 0003 | | .CONST 0x0003 ; Number of locals 02bb INIT_02b8: 02bb e00c | | Load 0x0,0xc 02bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bd 02c7 | | Declare_Variable Any 02be 00d8 | | Load_Top At_Offset_0 02bf 1c00 | | Execute_Immediate Run_Utility,0x0 02c0 e009 | | Load 0x0,0x9 02c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c3 BODY_02b8: 02c3 e5fd | | Load 0x2,-0x3 02c4 0092 0407 | | Action Push_String_Extended,0x407 ; "Domain.Referencer_Domain" 02c6 e007 | | Load 0x0,0x7 02c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c8 e5fd | | Load 0x2,-0x3 02c9 4801 |H | Short_Literal 0x1 02ca e5ff | | Load 0x2,-0x1 02cb e00d | | Load 0x0,0xd 02cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02cd c402 | | Store 0x2,0x2 02ce e5fd | | Load 0x2,-0x3 02cf 0092 0408 | | Action Push_String_Extended,0x408 ; "Before Open in Referencer_Domain" 02d1 e007 | | Load 0x0,0x7 02d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d3 e009 | | Load 0x0,0x9 02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d5 e001 | | Load 0x0,0x1 02d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d7 4800 |H | Short_Literal 0x0 02d8 4800 |H | Short_Literal 0x0 02d9 4800 |H | Short_Literal 0x0 02da e5fd | | Load 0x2,-0x3 02db e5fe | | Load 0x2,-0x2 02dc e402 | | Load 0x2,0x2 02dd e001 | | Load 0x0,0x1 02de 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02df 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 02e0 c5fc | | Store 0x2,-0x4 02e1 0059 | Y | Store_Top Discrete,At_Offset_1 02e2 00d8 | | Load_Top At_Offset_0 02e3 6803 |h | Jump_Zero 0x2e7 02e4 00d8 | | Load_Top At_Offset_0 02e5 a5fb | | Store_Unchecked 0x2,-0x5 02e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02e7 e5fd | | Load 0x2,-0x3 02e8 0092 0409 | | Action Push_String_Extended,0x409 ; "After Open in Referencer_Domain" 02ea e007 | | Load 0x0,0x7 02eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ec e009 | | Load 0x0,0x9 02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ee e5fc | | Load 0x2,-0x4 02ef e001 | | Load 0x0,0x1 02f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f1 0226 | & | Execute Access,Convert 02f2 e5fd | | Load 0x2,-0x3 02f3 e5fe | | Load 0x2,-0x2 02f4 e001 | | Load 0x0,0x1 02f5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02f6 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 02f7 c5fc | | Store 0x2,-0x4 02f8 c5fb | | Store 0x2,-0x5 02f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02fa TRAP_02b8: 02fa e009 | | Load 0x0,0x9 02fb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02fc 010f | | Execute Exception,Equal 02fd 6804 |h | Jump_Zero 0x302 02fe e009 | | Load 0x0,0x9 02ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0300 a5fb | | Store_Unchecked 0x2,-0x5 0301 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0302 0092 040a | | Action Push_String_Extended,0x40a ; "Referencer_Domain" 0304 e007 | | Load 0x0,0x7 0305 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0306 a5fb | | Store_Unchecked 0x2,-0x5 0307 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0313 | | .CONST 0x0313 ; Address of begin 0309 0340 | @ | .CONST 0x0340 ; Address of exception handler 030a 0003 | | .CONST 0x0003 ; Number of locals 030b INIT_0308: 030b e00c | | Load 0x0,0xc 030c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 030d 02c7 | | Declare_Variable Any 030e 00d8 | | Load_Top At_Offset_0 030f 1c00 | | Execute_Immediate Run_Utility,0x0 0310 e009 | | Load 0x0,0x9 0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0312 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0313 BODY_0308: 0313 e5fd | | Load 0x2,-0x3 0314 0092 040b | | Action Push_String_Extended,0x40b ; "Domain.Supplier_Domain" 0316 e007 | | Load 0x0,0x7 0317 180e | | Execute Package,Field_Execute,Field_Number 0xe 0318 e5fd | | Load 0x2,-0x3 0319 4801 |H | Short_Literal 0x1 031a e5ff | | Load 0x2,-0x1 031b e00d | | Load 0x0,0xd 031c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 031d c402 | | Store 0x2,0x2 031e e009 | | Load 0x0,0x9 031f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0320 e001 | | Load 0x0,0x1 0321 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0322 4800 |H | Short_Literal 0x0 0323 4800 |H | Short_Literal 0x0 0324 4800 |H | Short_Literal 0x0 0325 e5fd | | Load 0x2,-0x3 0326 e5fe | | Load 0x2,-0x2 0327 e402 | | Load 0x2,0x2 0328 e001 | | Load 0x0,0x1 0329 1b19 | | Execute Package,Field_Read,Field_Number 0x19 032a 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 032b c5fc | | Store 0x2,-0x4 032c 0059 | Y | Store_Top Discrete,At_Offset_1 032d 00d8 | | Load_Top At_Offset_0 032e 6803 |h | Jump_Zero 0x332 032f 00d8 | | Load_Top At_Offset_0 0330 a5fb | | Store_Unchecked 0x2,-0x5 0331 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0332 e009 | | Load 0x0,0x9 0333 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0334 e5fc | | Load 0x2,-0x4 0335 e001 | | Load 0x0,0x1 0336 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0337 0226 | & | Execute Access,Convert 0338 e5fd | | Load 0x2,-0x3 0339 e5fe | | Load 0x2,-0x2 033a e001 | | Load 0x0,0x1 033b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 033c 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 033d c5fc | | Store 0x2,-0x4 033e c5fb | | Store 0x2,-0x5 033f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0340 TRAP_0308: 0340 e009 | | Load 0x0,0x9 0341 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0342 010f | | Execute Exception,Equal 0343 6804 |h | Jump_Zero 0x348 0344 e009 | | Load 0x0,0x9 0345 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0346 a5fb | | Store_Unchecked 0x2,-0x5 0347 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0348 0092 040c | | Action Push_String_Extended,0x40c ; "Supplier_Domain" 034a e007 | | Load 0x0,0x7 034b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 034c a5fb | | Store_Unchecked 0x2,-0x5 034d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 034e 0000 0000 | | .XXX[0x2] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035d | ] | .CONST 0x035d ; Address of begin 0351 037c | | | .CONST 0x037c ; Address of exception handler 0352 0003 | | .CONST 0x0003 ; Number of locals 0353 INIT_0350: 0353 e227 | ' | Load 0x1,0x27 0354 e00e | | Load 0x0,0xe 0355 180d | | Execute Package,Field_Execute,Field_Number 0xd 0356 039c | | Declare_Variable Heap_Access,By_Allocation 0357 e00b | | Load 0x0,0xb 0358 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0359 02c7 | | Declare_Variable Any 035a e00b | | Load 0x0,0xb 035b 180e | | Execute Package,Field_Execute,Field_Number 0xe 035c a403 | | Store_Unchecked 0x2,0x3 035d BODY_0350: 035d 4801 |H | Short_Literal 0x1 035e e009 | | Load 0x0,0x9 035f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0360 4801 |H | Short_Literal 0x1 0361 e009 | | Load 0x0,0x9 0362 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0363 4800 |H | Short_Literal 0x0 0364 00da | | Load_Top At_Offset_2 0365 0217 | | Execute Heap_Access,All_Reference 0366 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0367 4800 |H | Short_Literal 0x0 0368 00da | | Load_Top At_Offset_2 0369 0217 | | Execute Heap_Access,All_Reference 036a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 036b 4800 |H | Short_Literal 0x0 036c 00da | | Load_Top At_Offset_2 036d 0217 | | Execute Heap_Access,All_Reference 036e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 036f e001 | | Load 0x0,0x1 0370 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0371 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0372 00da | | Load_Top At_Offset_2 0373 0217 | | Execute Heap_Access,All_Reference 0374 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0375 4801 |H | Short_Literal 0x1 0376 00da | | Load_Top At_Offset_2 0377 0217 | | Execute Heap_Access,All_Reference 0378 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0379 00d9 | | Load_Top At_Offset_1 037a a5ff | | Store_Unchecked 0x2,-0x1 037b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 037c TRAP_0350: 037c 0007 | | Action Break_Optional 037d 00d9 | | Load_Top At_Offset_1 037e 0092 040d | | Action Push_String_Extended,0x40d ; "Initialize" 0380 e007 | | Load 0x0,0x7 0381 180f | | Execute Package,Field_Execute,Field_Number 0xf 0382 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0383 0000 0000 | | .BLANK 0000[0x5] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 0397 | | .CONST 0x0397 ; Address of begin 0389 03e7 | | .CONST 0x03e7 ; Address of exception handler 038a 0005 | | .CONST 0x0005 ; Number of locals 038b INIT_0388: 038b e009 | | Load 0x0,0x9 038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038d e20d | | Load 0x1,0xd 038e 0007 | | Action Break_Optional 038f e00b | | Load 0x0,0xb 0390 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0391 02c7 | | Declare_Variable Any 0392 e00b | | Load 0x0,0xb 0393 180e | | Execute Package,Field_Execute,Field_Number 0xe 0394 a404 | | Store_Unchecked 0x2,0x4 0395 e00f | | Load 0x0,0xf 0396 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0397 BODY_0388: 0397 4800 |H | Short_Literal 0x0 0398 e009 | | Load 0x0,0x9 0399 1820 | | Execute Package,Field_Execute,Field_Number 0x20 039a 4800 |H | Short_Literal 0x0 039b e009 | | Load 0x0,0x9 039c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 039d 00d9 | | Load_Top At_Offset_1 039e 0092 040e | | Action Push_String_Extended,0x40e ; "Domain.Finalize: Reporting => " 03a0 e009 | | Load 0x0,0x9 03a1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03a2 00e1 | | Load_Encached Boolean_Cache 03a3 011c | | Execute Any,Convert_Unchecked 03a4 1c01 | | Execute_Immediate Run_Utility,0x1 03a5 01cc | | Execute Vector,Catenate 03a6 0092 040f | | Action Push_String_Extended,0x40f ; ", Raising => " 03a8 01cc | | Execute Vector,Catenate 03a9 e009 | | Load 0x0,0x9 03aa 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03ab 00e1 | | Load_Encached Boolean_Cache 03ac 011c | | Execute Any,Convert_Unchecked 03ad 1c01 | | Execute_Immediate Run_Utility,0x1 03ae 01cc | | Execute Vector,Catenate 03af e007 | | Load 0x0,0x7 03b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b1 e009 | | Load 0x0,0x9 03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b3 4800 |H | Short_Literal 0x0 03b4 00da | | Load_Top At_Offset_2 03b5 e00f | | Load 0x0,0xf 03b6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 03b7 c402 | | Store 0x2,0x2 03b8 e5ff | | Load 0x2,-0x1 03b9 0217 | | Execute Heap_Access,All_Reference 03ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03bb e002 | | Load 0x0,0x2 03bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03bd e010 | | Load 0x0,0x10 03be 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 03bf 00d9 | | Load_Top At_Offset_1 03c0 00d0 | | Action Swap_Control 03c1 0260 | ` | Execute Discrete,In_Type 03c2 7001 |p | Jump_Nonzero 0x3c4 03c3 0801 | | Execute_Immediate Raise,0x1 03c4 e011 | | Load 0x0,0x11 03c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c6 4800 |H | Short_Literal 0x0 03c7 a402 | | Store_Unchecked 0x2,0x2 03c8 e5ff | | Load 0x2,-0x1 03c9 0217 | | Execute Heap_Access,All_Reference 03ca 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03cb 681a |h | Jump_Zero 0x3e6 03cc e5ff | | Load 0x2,-0x1 03cd 0217 | | Execute Heap_Access,All_Reference 03ce 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03cf 003b | ; | Store_Top Access,At_Offset_3 03d0 e009 | | Load 0x0,0x9 03d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d2 00db | | Load_Top At_Offset_3 03d3 00db | | Load_Top At_Offset_3 03d4 8216 | | Call 0x1,0x16 03d5 c403 | | Store 0x2,0x3 03d6 c402 | | Store 0x2,0x2 03d7 00db | | Load_Top At_Offset_3 03d8 6809 |h | Jump_Zero 0x3e2 03d9 00d9 | | Load_Top At_Offset_1 03da 0092 0410 | | Action Push_String_Extended,0x410 ; "Error closing domain => " 03dc e402 | | Load 0x2,0x2 03dd e009 | | Load 0x0,0x9 03de 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03df 01cc | | Execute Vector,Catenate 03e0 e007 | | Load 0x0,0x7 03e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e2 4800 |H | Short_Literal 0x0 03e3 e5ff | | Load 0x2,-0x1 03e4 0217 | | Execute Heap_Access,All_Reference 03e5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e7 TRAP_0388: 03e7 e009 | | Load 0x0,0x9 03e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03e9 010f | | Execute Exception,Equal 03ea 6801 |h | Jump_Zero 0x3ec 03eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ec 00da | | Load_Top At_Offset_2 03ed 0092 0411 | | Action Push_String_Extended,0x411 ; "Finalize" 03ef e007 | | Load 0x0,0x7 03f0 180f | | Execute Package,Field_Execute,Field_Number 0xf 03f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f2 ; -------------------------------------------------------------------------------------- 03f2 ; STRING TABLE 03f2 ; -------------------------------------------------------------------------------------- 03f2 0042 | B | .STRTAB 0x0042->0x0413 ; "READ_ONLY" 03f3 0049 | I | .STRTAB 0x0049->0x0417 ; "READ_WRITE" 03f4 0051 | Q | .STRTAB 0x0051->0x041c ; "UNKNOWN" 03f5 0056 | V | .STRTAB 0x0056->0x0420 ; "Get_Job_Domain" 03f6 0062 | b | .STRTAB 0x0062->0x0427 ; "Set_Job_Domain" 03f7 006e | n | .STRTAB 0x006e->0x042e ; "Close_Job_Domain" 03f8 007c | | | .STRTAB 0x007c->0x0436 ; "Valid_Job_Domain" 03f9 008a | | .STRTAB 0x008a->0x043e ; "Is_Supplier_Domain" 03fa 009a | | .STRTAB 0x009a->0x0447 ; "Domain.Open" 03fb 00a3 | | .STRTAB 0x00a3->0x044c ; "Open" 03fc 00a5 | | .STRTAB 0x00a5->0x044e ; "Domain.Close" 03fd 00af | | .STRTAB 0x00af->0x0454 ; "Close" 03fe 00b2 | | .STRTAB 0x00b2->0x0457 ; "Domain.Abandon" 03ff 00be | | .STRTAB 0x00be->0x045e ; "Abandon" 0400 00c3 | | .STRTAB 0x00c3->0x0461 ; "Domain.Add" 0401 00cb | | .STRTAB 0x00cb->0x0466 ; "Add" 0402 00cc | | .STRTAB 0x00cc->0x0468 ; "Domain.Remove" 0403 00d7 | | .STRTAB 0x00d7->0x046e ; "Remove" 0404 00db | | .STRTAB 0x00db->0x0471 ; "Domain.Member_Of_Domain" 0405 00f0 | | .STRTAB 0x00f0->0x047d ; "<PROFILE>" 0406 00f7 | | .STRTAB 0x00f7->0x0481 ; "Member_Of_Domain" 0407 0105 | | .STRTAB 0x0105->0x0489 ; "Domain.Referencer_Domain" 0408 011b | | .STRTAB 0x011b->0x0495 ; "Before Open in Referencer_Domain" 0409 0139 | 9 | .STRTAB 0x0139->0x04a5 ; "After Open in Referencer_Domain" 040a 0156 | V | .STRTAB 0x0156->0x04b5 ; "Referencer_Domain" 040b 0165 | e | .STRTAB 0x0165->0x04bd ; "Domain.Supplier_Domain" 040c 0179 | y | .STRTAB 0x0179->0x04c8 ; "Supplier_Domain" 040d 0186 | | .STRTAB 0x0186->0x04d0 ; "Initialize" 040e 018e | | .STRTAB 0x018e->0x04d5 ; "Domain.Finalize: Reporting => " 040f 01aa | | .STRTAB 0x01aa->0x04e4 ; ", Raising => " 0410 01b5 | | .STRTAB 0x01b5->0x04ea ; "Error closing domain => " 0411 01cb | | .STRTAB 0x01cb->0x04f6 ; "Finalize" 0412 01d1 | | .STREND 0x01d1->0x04fa 0413 5245 4144 |READ| .STRTAB_STRINGS 04fb 0000 0000 | | .BLANK 0000[0x5] 0500 ; -------------------------------------------------------------------------------------- 0500 ; Debug Table 0500 ; -------------------------------------------------------------------------------------- 0500 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dce,0x0000,0x0001,0x0000 0506 0008 76bb | v | .XXX[0x2] 0508 0000 0000 | | .BLANK 0000[0x7] 050f 4000 |@ | .XXX[0x1] 0510 0000 0000 | | .BLANK 0000[0x8] 0518 000e 1c04 | | .XXX[0x24] 051a 0000 034c | L| 051c 0069 5cda | i\ | 051e 0000 14bf | | 0520 0011 3c04 | < | 0522 0000 007f | | 0524 00bc 3814 | 8 | 0526 0000 b2c2 | | 0528 0011 3c04 | < | 052a 0000 003f | ?| 052c 0019 50b1 | P | 052e 0000 159e | | 0530 000e 5004 | P | 0532 0000 0100 | | 0534 0000 0000 | | 0536 0008 76bb | v | 0538 0011 3c04 | < | 053a 0800 04b8 | | 053c 0000 0000 | | .BLANK 0000[0x4] 0540 000e 1404 | | .XXX[0xc] 0542 0800 0100 | | 0544 8000 0000 | | 0546 0000 0000 | | 0548 000e 1404 | | 054a 0800 0100 | | 054c 0000 0000 | | .BLANK 0000[0x4] 0550 0001 ac04 | | .XXX[0x18] 0552 0000 0144 | D| 0554 0069 5cda | i\ | 0556 0000 151e | | 0558 0011 3c04 | < | 055a 0800 04b8 | | 055c 01b8 7100 | q | 055e 0000 0080 | | 0560 000e 5004 | P | 0562 0000 0100 | | 0564 0000 0000 | | 0566 0008 76bb | v | 0568 0000 0000 | | .BLANK 0000[0x7] 056f 4000 |@ | .XXX[0x1] 0570 0000 0000 | | .BLANK 0000[0x8] 0578 000e 1c04 | | .XXX[0x2c] 057a 0000 034c | L| 057c 0069 5cda | i\ | 057e 0000 14bf | | 0580 0d13 3004 | 0 | 0582 0000 007f | | 0584 009c 9814 | | 0586 0000 5b12 | [ | 0588 0d13 3004 | 0 | 058a 0000 003f | ?| 058c 001a 405d | @]| 058e 0000 159e | | 0590 0d13 3004 | 0 | 0592 0000 1644 | D| 0594 0069 5cda | i\ | 0596 0000 159e | | 0598 0011 3c04 | < | 059a 0800 04b8 | | 059c 01b8 7100 | q | 059e 0000 0080 | | 05a0 0011 3c04 | < | 05a2 0800 04b8 | | 05a4 0000 0000 | | .BLANK 0000[0x4] 05a8 0011 3c04 | < | .XXX[0x4] 05aa 0800 04b8 | | 05ac 0000 0000 | | .BLANK 0000[0x4] 05b0 000e 1404 | | .XXX[0x14] 05b2 0800 0100 | | 05b4 8000 0000 | | 05b6 0000 0000 | | 05b8 000e 5004 | P | 05ba 0000 0100 | | 05bc 0000 0000 | | 05be 0008 76bb | v | 05c0 000e 1404 | | 05c2 0800 0100 | | 05c4 0000 0000 | | .BLANK 0000[0x4] 05c8 0d13 3004 | 0 | .XXX[0x10] 05ca 0000 1644 | D| 05cc 0069 5cda | i\ | 05ce 0000 159e | | 05d0 000e 5004 | P | 05d2 0000 0100 | | 05d4 0000 0000 | | 05d6 0008 76bb | v | 05d8 0000 0000 | | .BLANK 0000[0x7] 05df 4000 |@ | .XXX[0x1] 05e0 0000 0000 | | .BLANK 0000[0x8] 05e8 000e 1c04 | | .XXX[0x18] 05ea 0000 034c | L| 05ec 0069 5cda | i\ | 05ee 0000 14bf | | 05f0 0d13 3004 | 0 | 05f2 0000 007f | | 05f4 00d5 c40a | | 05f6 0000 30f2 | 0 | 05f8 0d13 3004 | 0 | 05fa 0000 003f | ?| 05fc 001b 01d6 | | 05fe 0000 1bb3 | |