|
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 | |