|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0518 | | .CONST 0x0518 ; 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 007b | { | .CONST 0x007b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; 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 0083 | | Declare_Subprogram INIT_0080,For_Call
0012 03fe | | Declare_Type Discrete,Defined,Visible
0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
002e c225 | % | Store 0x1,0x25
002f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0031 c216 | | Store 0x1,0x16
0032 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0034 c217 | | Store 0x1,0x17
0035 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0037 c220 | | Store 0x1,0x20
0038 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
003a c221 | ! | Store 0x1,0x21
003b 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
003d c222 | " | Store 0x1,0x22
003e 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0040 c223 | # | Store 0x1,0x23
0041 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0043 c224 | $ | Store 0x1,0x24
0044 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0046 c226 | & | Store 0x1,0x26
0047 00bf | | Action Accept_Activation
0048 e002 | | Load 0x0,0x2
0049 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004a 00e1 | | Load_Encached Boolean_Cache
004b e20d | | Load 0x1,0xd
004c e003 | | Load 0x0,0x3
004d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004e 00e2 | | Load_Encached Integer_Cache
004f e20e | | Load 0x1,0xe
0050 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
0052 4806 |H | Short_Literal 0x6
0053 032d | - | Declare_Type Record,Defined
0054 00d8 | | Load_Top At_Offset_0
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 03ad | | Declare_Type Heap_Access,Defined
0057 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0058 00c7 | | Action Elaborate_Subprogram
0059 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
005b 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
005d e004 | | Load 0x0,0x4
005e e005 | | Load 0x0,0x5
005f e228 | ( | Load 0x1,0x28
0060 00d8 | | Load_Top At_Offset_0
0061 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0062 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0063 0092 0412 | | Action Push_String_Extended,0x412 ; "UNKNOWN"
0065 e006 | | Load 0x0,0x6
0066 0387 | | Declare_Variable Package
0067 00d8 | | Load_Top At_Offset_0
0068 020f | | Execute Module,Activate
0069 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
006a 00c7 | | Action Elaborate_Subprogram
006b 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006c 00c7 | | Action Elaborate_Subprogram
006d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006e 00c7 | | Action Elaborate_Subprogram
006f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0070 00c7 | | Action Elaborate_Subprogram
0071 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0072 00c7 | | Action Elaborate_Subprogram
0073 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0074 00c7 | | Action Elaborate_Subprogram
0075 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0076 00c7 | | Action Elaborate_Subprogram
0077 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0078 00c7 | | Action Elaborate_Subprogram
0079 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
007a 00c7 | | Action Elaborate_Subprogram
007b BODY_0008:
007b 00bc | | Action Signal_Activated
007c 00bb | | Action Signal_Completion
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7806 |x | Jump 0x8c ; case 0x1
0086 7809 |x | Jump 0x90 ; case 0x2
0087 780d |x | Jump 0x95 ; case 0x3
0088 7810 |x | Jump 0x99 ; case 0x4
0089 7811 |x | Jump 0x9b ; case 0x5
008a 7812 |x | Jump 0x9d ; case 0x6
008b 7815 |x | Jump 0xa1 ; case 0x7
008c 00da | | Load_Top At_Offset_2
008d 0091 0410 | | Action Push_String_Extended_Indexed,0x410 ; "READ_ONLY"
008f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0090 00db | | Load_Top At_Offset_3
0091 00db | | Load_Top At_Offset_3
0092 00e0 | | Load_Encached Standard_Cache
0093 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0095 00da | | Load_Top At_Offset_2
0096 00e0 | | Load_Encached Standard_Cache
0097 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009b 00db | | Load_Top At_Offset_3
009c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009d e20e | | Load 0x1,0xe
009e 00dc | | Load_Top At_Offset_4
009f 0267 | g | Execute Discrete,Predecessor
00a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a1 e20e | | Load 0x1,0xe
00a2 00dc | | Load_Top At_Offset_4
00a3 0268 | h | Execute Discrete,Successor
00a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e001 | | Load 0x0,0x1
00ad 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00af 022f | / | Execute Access,Equal
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c8 | | .CONST 0x00c8 ; Address of begin
00b9 0144 | D | .CONST 0x0144 ; Address of exception handler
00ba 0005 | | .CONST 0x0005 ; Number of locals
00bb INIT_00b8:
00bb e007 | | Load 0x0,0x7
00bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00bd e007 | | Load 0x0,0x7
00be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00bf 03f1 | | Declare_Variable Discrete,With_Value
00c0 00d8 | | Load_Top At_Offset_0
00c1 e22b | + | Load 0x1,0x2b
00c2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c3 e008 | | Load 0x0,0x8
00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c6 e001 | | Load 0x0,0x1
00c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c8 BODY_00b8:
00c8 e5fa | | Load 0x2,-0x6
00c9 0092 0413 | | Action Push_String_Extended,0x413 ; "Domain.Open"
00cb e009 | | Load 0x0,0x9
00cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cd 00da | | Load_Top At_Offset_2
00ce 0217 | | Execute Heap_Access,All_Reference
00cf 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00d0 0c01 | | Execute_Immediate Greater_Equal,0x1
00d1 6820 |h | Jump_Zero 0xf2
00d2 e5fd | | Load 0x2,-0x3
00d3 00db | | Load_Top At_Offset_3
00d4 0217 | | Execute Heap_Access,All_Reference
00d5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00d6 027a | z | Execute Discrete,Less_Equal
00d7 681a |h | Jump_Zero 0xf2
00d8 00da | | Load_Top At_Offset_2
00d9 0217 | | Execute Heap_Access,All_Reference
00da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00db e5ff | | Load 0x2,-0x1
00dc 012f | / | Execute Any,Equal
00dd 6814 |h | Jump_Zero 0xf2
00de 00da | | Load_Top At_Offset_2
00df 0217 | | Execute Heap_Access,All_Reference
00e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e1 a5f9 | | Store_Unchecked 0x2,-0x7
00e2 00da | | Load_Top At_Offset_2
00e3 0217 | | Execute Heap_Access,All_Reference
00e4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00e5 0a01 | | Execute_Immediate Plus,0x1
00e6 00db | | Load_Top At_Offset_3
00e7 0217 | | Execute Heap_Access,All_Reference
00e8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00e9 4800 |H | Short_Literal 0x0
00ea e007 | | Load 0x0,0x7
00eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ec e403 | | Load 0x2,0x3
00ed e22b | + | Load 0x1,0x2b
00ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ef 00d9 | | Load_Top At_Offset_1
00f0 a5f8 | | Store_Unchecked 0x2,-0x8
00f1 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00f2 e5fd | | Load 0x2,-0x3
00f3 0f01 | | Execute_Immediate Equal,0x1
00f4 6816 |h | Jump_Zero 0x10b
00f5 e008 | | Load 0x0,0x8
00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f7 e001 | | Load 0x0,0x1
00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f9 e5fb | | Load 0x2,-0x5
00fa e5fc | | Load 0x2,-0x4
00fb e5fd | | Load 0x2,-0x3
00fc e20e | | Load 0x1,0xe
00fd 011c | | Execute Any,Convert_Unchecked
00fe 1c01 | | Execute_Immediate Run_Utility,0x1
00ff e00a | | Load 0x0,0xa
0100 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0101 1c02 | | Execute_Immediate Run_Utility,0x2
0102 e5fa | | Load 0x2,-0x6
0103 e5fe | | Load 0x2,-0x2
0104 e5ff | | Load 0x2,-0x1
0105 e001 | | Load 0x0,0x1
0106 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0107 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
0108 003a | : | Store_Top Access,At_Offset_2
0109 005a | Z | Store_Top Discrete,At_Offset_2
010a 7815 |x | Jump 0x120
010b e008 | | Load 0x0,0x8
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d e001 | | Load 0x0,0x1
010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010f 4800 |H | Short_Literal 0x0
0110 4800 |H | Short_Literal 0x0
0111 e5fd | | Load 0x2,-0x3
0112 e20e | | Load 0x1,0xe
0113 011c | | Execute Any,Convert_Unchecked
0114 1c01 | | Execute_Immediate Run_Utility,0x1
0115 e00a | | Load 0x0,0xa
0116 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0117 1c02 | | Execute_Immediate Run_Utility,0x2
0118 e5fa | | Load 0x2,-0x6
0119 e5fe | | Load 0x2,-0x2
011a e5ff | | Load 0x2,-0x1
011b e001 | | Load 0x0,0x1
011c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
011d 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
011e 003a | : | Store_Top Access,At_Offset_2
011f 005a | Z | Store_Top Discrete,At_Offset_2
0120 4800 |H | Short_Literal 0x0
0121 00da | | Load_Top At_Offset_2
0122 e008 | | Load 0x0,0x8
0123 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0124 681a |h | Jump_Zero 0x13f
0125 00da | | Load_Top At_Offset_2
0126 0217 | | Execute Heap_Access,All_Reference
0127 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0128 7016 |p | Jump_Nonzero 0x13f
0129 00d8 | | Load_Top At_Offset_0
012a 00db | | Load_Top At_Offset_3
012b 0217 | | Execute Heap_Access,All_Reference
012c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
012d 4801 |H | Short_Literal 0x1
012e 00db | | Load_Top At_Offset_3
012f 0217 | | Execute Heap_Access,All_Reference
0130 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0131 e5fd | | Load 0x2,-0x3
0132 00db | | Load_Top At_Offset_3
0133 0217 | | Execute Heap_Access,All_Reference
0134 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0135 e5ff | | Load 0x2,-0x1
0136 00db | | Load_Top At_Offset_3
0137 0217 | | Execute Heap_Access,All_Reference
0138 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0139 4800 |H | Short_Literal 0x0
013a e007 | | Load 0x0,0x7
013b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013c e403 | | Load 0x2,0x3
013d e22b | + | Load 0x1,0x2b
013e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013f 00d8 | | Load_Top At_Offset_0
0140 a5f9 | | Store_Unchecked 0x2,-0x7
0141 00d9 | | Load_Top At_Offset_1
0142 a5f8 | | Store_Unchecked 0x2,-0x8
0143 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0144 TRAP_00b8:
0144 e008 | | Load 0x0,0x8
0145 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0146 010f | | Execute Exception,Equal
0147 6804 |h | Jump_Zero 0x14c
0148 e008 | | Load 0x0,0x8
0149 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014a a5f8 | | Store_Unchecked 0x2,-0x8
014b 4507 |E | Exit_Suprogram New_Top_Offset 0x7
014c 0092 0414 | | Action Push_String_Extended,0x414 ; "Open"
014e e009 | | Load 0x0,0x9
014f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0150 a5f8 | | Store_Unchecked 0x2,-0x8
0151 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0163 | c | .CONST 0x0163 ; Address of begin
0159 0195 | | .CONST 0x0195 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b e007 | | Load 0x0,0x7
015c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015d e007 | | Load 0x0,0x7
015e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
015f 03f1 | | Declare_Variable Discrete,With_Value
0160 00d8 | | Load_Top At_Offset_0
0161 e22b | + | Load 0x1,0x2b
0162 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0163 BODY_0158:
0163 e5ff | | Load 0x2,-0x1
0164 0092 0415 | | Action Push_String_Extended,0x415 ; "Domain.Close"
0166 e009 | | Load 0x0,0x9
0167 180e | | Execute Package,Field_Execute,Field_Number 0xe
0168 00d8 | | Load_Top At_Offset_0
0169 0217 | | Execute Heap_Access,All_Reference
016a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016b e5fe | | Load 0x2,-0x2
016c 022f | / | Execute Access,Equal
016d 681a |h | Jump_Zero 0x188
016e 00d8 | | Load_Top At_Offset_0
016f 0217 | | Execute Heap_Access,All_Reference
0170 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0171 0c01 | | Execute_Immediate Greater_Equal,0x1
0172 6815 |h | Jump_Zero 0x188
0173 00d8 | | Load_Top At_Offset_0
0174 0217 | | Execute Heap_Access,All_Reference
0175 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0176 0aff | | Execute_Immediate Plus,-0x1
0177 00d9 | | Load_Top At_Offset_1
0178 0217 | | Execute Heap_Access,All_Reference
0179 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
017a 4800 |H | Short_Literal 0x0
017b e007 | | Load 0x0,0x7
017c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017d 00da | | Load_Top At_Offset_2
017e e22b | + | Load 0x1,0x2b
017f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0180 00d8 | | Load_Top At_Offset_0
0181 0217 | | Execute Heap_Access,All_Reference
0182 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0183 0c01 | | Execute_Immediate Greater_Equal,0x1
0184 6803 |h | Jump_Zero 0x188
0185 4800 |H | Short_Literal 0x0
0186 a5fd | | Store_Unchecked 0x2,-0x3
0187 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0188 e008 | | Load 0x0,0x8
0189 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018a e5fe | | Load 0x2,-0x2
018b e001 | | Load 0x0,0x1
018c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018d 0226 | & | Execute Access,Convert
018e e5ff | | Load 0x2,-0x1
018f e001 | | Load 0x0,0x1
0190 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0191 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0192 c5fe | | Store 0x2,-0x2
0193 c5fd | | Store 0x2,-0x3
0194 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0195 TRAP_0158:
0195 e008 | | Load 0x0,0x8
0196 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0197 010f | | Execute Exception,Equal
0198 6804 |h | Jump_Zero 0x19d
0199 e008 | | Load 0x0,0x8
019a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
019b a5fd | | Store_Unchecked 0x2,-0x3
019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019d 0092 0416 | | Action Push_String_Extended,0x416 ; "Close"
019f e009 | | Load 0x0,0x9
01a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a1 a5fd | | Store_Unchecked 0x2,-0x3
01a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3 | | .CONST 0x01b3 ; Address of begin
01a9 01e5 | | .CONST 0x01e5 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e007 | | Load 0x0,0x7
01ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ad e007 | | Load 0x0,0x7
01ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01af 03f1 | | Declare_Variable Discrete,With_Value
01b0 00d8 | | Load_Top At_Offset_0
01b1 e22b | + | Load 0x1,0x2b
01b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b3 BODY_01a8:
01b3 e5ff | | Load 0x2,-0x1
01b4 0092 0417 | | Action Push_String_Extended,0x417 ; "Domain.Abandon"
01b6 e009 | | Load 0x0,0x9
01b7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b8 00d8 | | Load_Top At_Offset_0
01b9 0217 | | Execute Heap_Access,All_Reference
01ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01bb e5fe | | Load 0x2,-0x2
01bc 022f | / | Execute Access,Equal
01bd 681a |h | Jump_Zero 0x1d8
01be 00d8 | | Load_Top At_Offset_0
01bf 0217 | | Execute Heap_Access,All_Reference
01c0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c1 0c01 | | Execute_Immediate Greater_Equal,0x1
01c2 6815 |h | Jump_Zero 0x1d8
01c3 00d8 | | Load_Top At_Offset_0
01c4 0217 | | Execute Heap_Access,All_Reference
01c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c6 0aff | | Execute_Immediate Plus,-0x1
01c7 00d9 | | Load_Top At_Offset_1
01c8 0217 | | Execute Heap_Access,All_Reference
01c9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01ca 4800 |H | Short_Literal 0x0
01cb e007 | | Load 0x0,0x7
01cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01cd 00da | | Load_Top At_Offset_2
01ce e22b | + | Load 0x1,0x2b
01cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d0 00d8 | | Load_Top At_Offset_0
01d1 0217 | | Execute Heap_Access,All_Reference
01d2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01d3 0c01 | | Execute_Immediate Greater_Equal,0x1
01d4 6803 |h | Jump_Zero 0x1d8
01d5 4800 |H | Short_Literal 0x0
01d6 a5fd | | Store_Unchecked 0x2,-0x3
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d8 e008 | | Load 0x0,0x8
01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01da e5fe | | Load 0x2,-0x2
01db e001 | | Load 0x0,0x1
01dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01dd 0226 | & | Execute Access,Convert
01de e5ff | | Load 0x2,-0x1
01df e001 | | Load 0x0,0x1
01e0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01e1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e2 c5fe | | Store 0x2,-0x2
01e3 c5fd | | Store 0x2,-0x3
01e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e5 TRAP_01a8:
01e5 e008 | | Load 0x0,0x8
01e6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01e7 010f | | Execute Exception,Equal
01e8 6804 |h | Jump_Zero 0x1ed
01e9 e008 | | Load 0x0,0x8
01ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01eb a5fd | | Store_Unchecked 0x2,-0x3
01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ed 0092 0418 | | Action Push_String_Extended,0x418 ; "Abandon"
01ef e009 | | Load 0x0,0x9
01f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f1 a5fd | | Store_Unchecked 0x2,-0x3
01f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 020d | | .CONST 0x020d ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4800 |H | Short_Literal 0x0
01fc a5fb | | Store_Unchecked 0x2,-0x5
01fd e5fd | | Load 0x2,-0x3
01fe 0092 0419 | | Action Push_String_Extended,0x419 ; "Domain.Add"
0200 e009 | | Load 0x0,0x9
0201 180e | | Execute Package,Field_Execute,Field_Number 0xe
0202 e008 | | Load 0x0,0x8
0203 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0204 e5fd | | Load 0x2,-0x3
0205 e5fe | | Load 0x2,-0x2
0206 e5ff | | Load 0x2,-0x1
0207 e5fc | | Load 0x2,-0x4
0208 e001 | | Load 0x0,0x1
0209 1b19 | | Execute Package,Field_Read,Field_Number 0x19
020a 186b | k | Execute Package,Field_Execute,Field_Number 0x6b
020b c5fb | | Store 0x2,-0x5
020c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
020d TRAP_01f8:
020d e008 | | Load 0x0,0x8
020e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
020f 010f | | Execute Exception,Equal
0210 6804 |h | Jump_Zero 0x215
0211 e008 | | Load 0x0,0x8
0212 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0213 a5fb | | Store_Unchecked 0x2,-0x5
0214 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0215 0092 041a | | Action Push_String_Extended,0x41a ; "Add"
0217 e009 | | Load 0x0,0x9
0218 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0219 a5fb | | Store_Unchecked 0x2,-0x5
021a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 022b | + | .CONST 0x022b ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e5fd | | Load 0x2,-0x3
0224 0092 041b | | Action Push_String_Extended,0x41b ; "Domain.Remove"
0226 e009 | | Load 0x0,0x9
0227 180e | | Execute Package,Field_Execute,Field_Number 0xe
0228 e009 | | Load 0x0,0x9
0229 1b12 | | Execute Package,Field_Read,Field_Number 0x12
022a 0257 | W | Execute Discrete,Raise
022b TRAP_0220:
022b e008 | | Load 0x0,0x8
022c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
022d 010f | | Execute Exception,Equal
022e 6804 |h | Jump_Zero 0x233
022f e008 | | Load 0x0,0x8
0230 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0231 a5fb | | Store_Unchecked 0x2,-0x5
0232 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0233 0092 041c | | Action Push_String_Extended,0x41c ; "Remove"
0235 e009 | | Load 0x0,0x9
0236 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0237 a5fb | | Store_Unchecked 0x2,-0x5
0238 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0239 0000 0000 | | .BLANK 0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0250 | P | .CONST 0x0250 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e5fc | | Load 0x2,-0x4
0244 0092 041d | | Action Push_String_Extended,0x41d ; "Domain.Member_Of_Domain"
0246 e009 | | Load 0x0,0x9
0247 180e | | Execute Package,Field_Execute,Field_Number 0xe
0248 e5fc | | Load 0x2,-0x4
0249 e5fd | | Load 0x2,-0x3
024a e5fe | | Load 0x2,-0x2
024b e5ff | | Load 0x2,-0x1
024c e001 | | Load 0x0,0x1
024d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
024e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
024f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0250 TRAP_0240:
0250 e008 | | Load 0x0,0x8
0251 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0252 010f | | Execute Exception,Equal
0253 6801 |h | Jump_Zero 0x255
0254 0831 | 1 | Execute_Immediate Raise,0x31
0255 0092 041e | | Action Push_String_Extended,0x41e ; "<PROFILE>"
0257 e00b | | Load 0x0,0xb
0258 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0259 0092 041f | | Action Push_String_Extended,0x41f ; "Member_Of_Domain"
025b e009 | | Load 0x0,0x9
025c 180f | | Execute Package,Field_Execute,Field_Number 0xf
025d 0831 | 1 | Execute_Immediate Raise,0x31
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026b | k | .CONST 0x026b ; Address of begin
0261 02a5 | | .CONST 0x02a5 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 e003 | | Load 0x0,0x3
0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0265 02c7 | | Declare_Variable Any
0266 00d8 | | Load_Top At_Offset_0
0267 1c00 | | Execute_Immediate Run_Utility,0x0
0268 e008 | | Load 0x0,0x8
0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
026b BODY_0260:
026b e5fd | | Load 0x2,-0x3
026c 0092 0420 | | Action Push_String_Extended,0x420 ; "Domain.Referencer_Domain"
026e e009 | | Load 0x0,0x9
026f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0270 e5fd | | Load 0x2,-0x3
0271 4801 |H | Short_Literal 0x1
0272 e5ff | | Load 0x2,-0x1
0273 e00c | | Load 0x0,0xc
0274 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0275 c402 | | Store 0x2,0x2
0276 e5fd | | Load 0x2,-0x3
0277 0092 0421 | !| Action Push_String_Extended,0x421 ; "Before Open in Referencer_Domain"
0279 e009 | | Load 0x0,0x9
027a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027b e008 | | Load 0x0,0x8
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d e001 | | Load 0x0,0x1
027e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
027f 4800 |H | Short_Literal 0x0
0280 4800 |H | Short_Literal 0x0
0281 4800 |H | Short_Literal 0x0
0282 e5fd | | Load 0x2,-0x3
0283 e5fe | | Load 0x2,-0x2
0284 e402 | | Load 0x2,0x2
0285 e001 | | Load 0x0,0x1
0286 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0287 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
0288 c5fc | | Store 0x2,-0x4
0289 0059 | Y | Store_Top Discrete,At_Offset_1
028a 4800 |H | Short_Literal 0x0
028b 00d9 | | Load_Top At_Offset_1
028c e008 | | Load 0x0,0x8
028d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
028e 7003 |p | Jump_Nonzero 0x292
028f 00d8 | | Load_Top At_Offset_0
0290 a5fb | | Store_Unchecked 0x2,-0x5
0291 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0292 e5fd | | Load 0x2,-0x3
0293 0092 0422 | "| Action Push_String_Extended,0x422 ; "After Open in Referencer_Domain"
0295 e009 | | Load 0x0,0x9
0296 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0297 e008 | | Load 0x0,0x8
0298 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0299 e5fc | | Load 0x2,-0x4
029a e001 | | Load 0x0,0x1
029b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029c 0226 | & | Execute Access,Convert
029d e5fd | | Load 0x2,-0x3
029e e5fe | | Load 0x2,-0x2
029f e001 | | Load 0x0,0x1
02a0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02a1 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
02a2 c5fc | | Store 0x2,-0x4
02a3 c5fb | | Store 0x2,-0x5
02a4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02a5 TRAP_0260:
02a5 e008 | | Load 0x0,0x8
02a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a7 010f | | Execute Exception,Equal
02a8 6804 |h | Jump_Zero 0x2ad
02a9 e008 | | Load 0x0,0x8
02aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ab a5fb | | Store_Unchecked 0x2,-0x5
02ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ad 0092 0423 | #| Action Push_String_Extended,0x423 ; "Referencer_Domain"
02af e009 | | Load 0x0,0x9
02b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b1 a5fb | | Store_Unchecked 0x2,-0x5
02b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c3 | | .CONST 0x02c3 ; Address of begin
02b9 02f3 | | .CONST 0x02f3 ; Address of exception handler
02ba 0003 | | .CONST 0x0003 ; Number of locals
02bb INIT_02b8:
02bb e003 | | Load 0x0,0x3
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 e008 | | Load 0x0,0x8
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 0424 | $| Action Push_String_Extended,0x424 ; "Domain.Supplier_Domain"
02c6 e009 | | Load 0x0,0x9
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 e00c | | Load 0x0,0xc
02cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02cd c402 | | Store 0x2,0x2
02ce e008 | | Load 0x0,0x8
02cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d0 e001 | | Load 0x0,0x1
02d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d2 4800 |H | Short_Literal 0x0
02d3 4800 |H | Short_Literal 0x0
02d4 4800 |H | Short_Literal 0x0
02d5 e5fd | | Load 0x2,-0x3
02d6 e5fe | | Load 0x2,-0x2
02d7 e402 | | Load 0x2,0x2
02d8 e001 | | Load 0x0,0x1
02d9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02da 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
02db c5fc | | Store 0x2,-0x4
02dc 0059 | Y | Store_Top Discrete,At_Offset_1
02dd 4800 |H | Short_Literal 0x0
02de 00d9 | | Load_Top At_Offset_1
02df e008 | | Load 0x0,0x8
02e0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02e1 7003 |p | Jump_Nonzero 0x2e5
02e2 00d8 | | Load_Top At_Offset_0
02e3 a5fb | | Store_Unchecked 0x2,-0x5
02e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02e5 e008 | | Load 0x0,0x8
02e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e7 e5fc | | Load 0x2,-0x4
02e8 e001 | | Load 0x0,0x1
02e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ea 0226 | & | Execute Access,Convert
02eb e5fd | | Load 0x2,-0x3
02ec e5fe | | Load 0x2,-0x2
02ed e001 | | Load 0x0,0x1
02ee 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02ef 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
02f0 c5fc | | Store 0x2,-0x4
02f1 c5fb | | Store 0x2,-0x5
02f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02f3 TRAP_02b8:
02f3 e008 | | Load 0x0,0x8
02f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02f5 010f | | Execute Exception,Equal
02f6 6804 |h | Jump_Zero 0x2fb
02f7 e008 | | Load 0x0,0x8
02f8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02f9 a5fb | | Store_Unchecked 0x2,-0x5
02fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02fb 0092 0425 | %| Action Push_String_Extended,0x425 ; "Supplier_Domain"
02fd e009 | | Load 0x0,0x9
02fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ff a5fb | | Store_Unchecked 0x2,-0x5
0300 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0313 | | .CONST 0x0313 ; Address of begin
0309 0327 | ' | .CONST 0x0327 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b e007 | | Load 0x0,0x7
030c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030d e007 | | Load 0x0,0x7
030e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
030f 03f1 | | Declare_Variable Discrete,With_Value
0310 00d8 | | Load_Top At_Offset_0
0311 e22b | + | Load 0x1,0x2b
0312 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0313 BODY_0308:
0313 4800 |H | Short_Literal 0x0
0314 a5ff | | Store_Unchecked 0x2,-0x1
0315 4801 |H | Short_Literal 0x1
0316 00d9 | | Load_Top At_Offset_1
0317 0217 | | Execute Heap_Access,All_Reference
0318 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0319 e007 | | Load 0x0,0x7
031a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031b e00d | | Load 0x0,0xd
031c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
031d 00d9 | | Load_Top At_Offset_1
031e 0217 | | Execute Heap_Access,All_Reference
031f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0320 4800 |H | Short_Literal 0x0
0321 e007 | | Load 0x0,0x7
0322 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0323 00da | | Load_Top At_Offset_2
0324 e22b | + | Load 0x1,0x2b
0325 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0326 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0327 TRAP_0308:
0327 0007 | | Action Break_Optional
0328 0092 0426 | &| Action Push_String_Extended,0x426 ; "set_job_information"
032a e009 | | Load 0x0,0x9
032b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032c a5ff | | Store_Unchecked 0x2,-0x1
032d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032e 0000 0000 | | .XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 4608 |F | Jump_Case 0x9
0334 7808 |x | Jump 0x33d ; case 0x0
0335 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0336 780d |x | Jump 0x344 ; case 0x2
0337 780c |x | Jump 0x344 ; case 0x3
0338 780b |x | Jump 0x344 ; case 0x4
0339 780a |x | Jump 0x344 ; case 0x5
033a 7809 |x | Jump 0x344 ; case 0x6
033b 7808 |x | Jump 0x344 ; case 0x7
033c 7807 |x | Jump 0x344 ; case 0x8
033d 00da | | Load_Top At_Offset_2
033e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
033f 0125 | % | Execute Any,Set_Constraint
0340 00da | | Load_Top At_Offset_2
0341 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0342 1c00 | | Execute_Immediate Run_Utility,0x0
0343 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0344 0869 | i | Execute_Immediate Raise,0x69
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0358 | X | .CONST 0x0358 ; Address of begin
0349 037f | | .CONST 0x037f ; Address of exception handler
034a 0003 | | .CONST 0x0003 ; Number of locals
034b INIT_0348:
034b e228 | ( | Load 0x1,0x28
034c e00e | | Load 0x0,0xe
034d 180d | | Execute Package,Field_Execute,Field_Number 0xd
034e 039c | | Declare_Variable Heap_Access,By_Allocation
034f 00d8 | | Load_Top At_Offset_0
0350 0217 | | Execute Heap_Access,All_Reference
0351 1c00 | | Execute_Immediate Run_Utility,0x0
0352 e00b | | Load 0x0,0xb
0353 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0354 02c7 | | Declare_Variable Any
0355 e00b | | Load 0x0,0xb
0356 180e | | Execute Package,Field_Execute,Field_Number 0xe
0357 a403 | | Store_Unchecked 0x2,0x3
0358 BODY_0348:
0358 4801 |H | Short_Literal 0x1
0359 e008 | | Load 0x0,0x8
035a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
035b 4801 |H | Short_Literal 0x1
035c e008 | | Load 0x0,0x8
035d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
035e e007 | | Load 0x0,0x7
035f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0360 e00d | | Load 0x0,0xd
0361 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0362 00da | | Load_Top At_Offset_2
0363 0217 | | Execute Heap_Access,All_Reference
0364 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0365 4800 |H | Short_Literal 0x0
0366 00da | | Load_Top At_Offset_2
0367 0217 | | Execute Heap_Access,All_Reference
0368 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0369 e001 | | Load 0x0,0x1
036a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
036b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
036c 00da | | Load_Top At_Offset_2
036d 0217 | | Execute Heap_Access,All_Reference
036e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
036f e003 | | Load 0x0,0x3
0370 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0371 00da | | Load_Top At_Offset_2
0372 0217 | | Execute Heap_Access,All_Reference
0373 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0374 4801 |H | Short_Literal 0x1
0375 00da | | Load_Top At_Offset_2
0376 0217 | | Execute Heap_Access,All_Reference
0377 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0378 4800 |H | Short_Literal 0x0
0379 00da | | Load_Top At_Offset_2
037a 0217 | | Execute Heap_Access,All_Reference
037b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
037c 00d9 | | Load_Top At_Offset_1
037d a5ff | | Store_Unchecked 0x2,-0x1
037e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037f TRAP_0348:
037f 0007 | | Action Break_Optional
0380 00d9 | | Load_Top At_Offset_1
0381 0092 0427 | '| Action Push_String_Extended,0x427 ; "Initialize"
0383 e009 | | Load 0x0,0x9
0384 180f | | Execute Package,Field_Execute,Field_Number 0xf
0385 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0386 0000 0000 | | .XXX[0x2]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0393 | | .CONST 0x0393 ; Address of begin
0389 03d3 | | .CONST 0x03d3 ; Address of exception handler
038a 0005 | | .CONST 0x0005 ; Number of locals
038b INIT_0388:
038b e008 | | Load 0x0,0x8
038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038d e20d | | Load 0x1,0xd
038e 0007 | | Action Break_Optional
038f e00f | | Load 0x0,0xf
0390 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0391 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
0393 BODY_0388:
0393 4800 |H | Short_Literal 0x0
0394 e008 | | Load 0x0,0x8
0395 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0396 4800 |H | Short_Literal 0x0
0397 e008 | | Load 0x0,0x8
0398 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0399 e007 | | Load 0x0,0x7
039a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
039b e00d | | Load 0x0,0xd
039c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
039d 701c |p | Jump_Nonzero 0x3ba
039e 0092 0428 | (| Action Push_String_Extended,0x428 ; "Job Id "
03a0 e007 | | Load 0x0,0x7
03a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a2 00e0 | | Load_Encached Standard_Cache
03a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a4 01cc | | Execute Vector,Catenate
03a5 0092 0429 | )| Action Push_String_Extended,0x429 ; " <"
03a7 01cc | | Execute Vector,Catenate
03a8 e007 | | Load 0x0,0x7
03a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03aa e00d | | Load 0x0,0xd
03ab 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03ac 01cc | | Execute Vector,Catenate
03ad 0092 042a | *| Action Push_String_Extended,0x42a ; "> is finalizing with nil root task"
03af 01cc | | Execute Vector,Catenate
03b0 4801 |H | Short_Literal 0x1
03b1 0092 042b | +| Action Push_String_Extended,0x42b ; "Nil_Root_Task"
03b3 e010 | | Load 0x0,0x10
03b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b5 0092 042c | ,| Action Push_String_Extended,0x42c ; "Domain.Finalize"
03b7 e010 | | Load 0x0,0x10
03b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ba e5ff | | Load 0x2,-0x1
03bb 0217 | | Execute Heap_Access,All_Reference
03bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03bd e002 | | Load 0x0,0x2
03be 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03bf e011 | | Load 0x0,0x11
03c0 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
03c1 00d9 | | Load_Top At_Offset_1
03c2 00d0 | | Action Swap_Control
03c3 0260 | ` | Execute Discrete,In_Type
03c4 7001 |p | Jump_Nonzero 0x3c6
03c5 0801 | | Execute_Immediate Raise,0x1
03c6 e012 | | Load 0x0,0x12
03c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c8 4800 |H | Short_Literal 0x0
03c9 e5ff | | Load 0x2,-0x1
03ca 0217 | | Execute Heap_Access,All_Reference
03cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03cc 4800 |H | Short_Literal 0x0
03cd e5ff | | Load 0x2,-0x1
03ce 0217 | | Execute Heap_Access,All_Reference
03cf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03d0 4800 |H | Short_Literal 0x0
03d1 a402 | | Store_Unchecked 0x2,0x2
03d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d3 TRAP_0388:
03d3 e008 | | Load 0x0,0x8
03d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03d5 010f | | Execute Exception,Equal
03d6 6801 |h | Jump_Zero 0x3d8
03d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d8 8405 | | Call 0x2,0x5
03d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03da 0000 0000 | | .BLANK 0000[0x6]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e7 | | .CONST 0x03e7 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0002 | | .CONST 0x0002 ; Number of locals
03e3 INIT_03e0:
03e3 4800 |H | Short_Literal 0x0
03e4 4801 |H | Short_Literal 0x1
03e5 e013 | | Load 0x0,0x13
03e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e7 BODY_03e0:
03e7 0092 0428 | (| Action Push_String_Extended,0x428 ; "Job Id "
03e9 e007 | | Load 0x0,0x7
03ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03eb 00e0 | | Load_Encached Standard_Cache
03ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03ed 01cc | | Execute Vector,Catenate
03ee 0092 0429 | )| Action Push_String_Extended,0x429 ; " <"
03f0 01cc | | Execute Vector,Catenate
03f1 e007 | | Load 0x0,0x7
03f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f3 e00d | | Load 0x0,0xd
03f4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03f5 01cc | | Execute Vector,Catenate
03f6 0092 042d | -| Action Push_String_Extended,0x42d ; "> raised "
03f8 01cc | | Execute Vector,Catenate
03f9 00d9 | | Load_Top At_Offset_1
03fa 01cc | | Execute Vector,Catenate
03fb 4801 |H | Short_Literal 0x1
03fc 00ea | | Load_Encached Null_String_Cache
03fd e010 | | Load 0x0,0x10
03fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ff 0092 042c | ,| Action Push_String_Extended,0x42c ; "Domain.Finalize"
0401 e010 | | Load 0x0,0x10
0402 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0403 e00b | | Load 0x0,0xb
0404 180e | | Execute Package,Field_Execute,Field_Number 0xe
0405 4802 |H | Short_Literal 0x2
0406 0092 042e | .| Action Push_String_Extended,0x42e ; "Unhandled exception "
0408 00db | | Load_Top At_Offset_3
0409 01cc | | Execute Vector,Catenate
040a 0092 042f | /| Action Push_String_Extended,0x42f ; " in Domain.Finalize"
040c 01cc | | Execute Vector,Catenate
040d e014 | | Load 0x0,0x14
040e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0410 ; --------------------------------------------------------------------------------------
0410 ; STRING TABLE
0410 ; --------------------------------------------------------------------------------------
0410 0042 | B | .STRTAB 0x0042->0x0431 ; "READ_ONLY"
0411 0049 | I | .STRTAB 0x0049->0x0435 ; "READ_WRITE"
0412 0051 | Q | .STRTAB 0x0051->0x043a ; "UNKNOWN"
0413 0056 | V | .STRTAB 0x0056->0x043e ; "Domain.Open"
0414 005f | _ | .STRTAB 0x005f->0x0443 ; "Open"
0415 0061 | a | .STRTAB 0x0061->0x0445 ; "Domain.Close"
0416 006b | k | .STRTAB 0x006b->0x044b ; "Close"
0417 006e | n | .STRTAB 0x006e->0x044e ; "Domain.Abandon"
0418 007a | z | .STRTAB 0x007a->0x0455 ; "Abandon"
0419 007f | | .STRTAB 0x007f->0x0458 ; "Domain.Add"
041a 0087 | | .STRTAB 0x0087->0x045d ; "Add"
041b 0088 | | .STRTAB 0x0088->0x045f ; "Domain.Remove"
041c 0093 | | .STRTAB 0x0093->0x0465 ; "Remove"
041d 0097 | | .STRTAB 0x0097->0x0468 ; "Domain.Member_Of_Domain"
041e 00ac | | .STRTAB 0x00ac->0x0474 ; "<PROFILE>"
041f 00b3 | | .STRTAB 0x00b3->0x0478 ; "Member_Of_Domain"
0420 00c1 | | .STRTAB 0x00c1->0x0480 ; "Domain.Referencer_Domain"
0421 00d7 | | .STRTAB 0x00d7->0x048c ; "Before Open in Referencer_Domain"
0422 00f5 | | .STRTAB 0x00f5->0x049c ; "After Open in Referencer_Domain"
0423 0112 | | .STRTAB 0x0112->0x04ac ; "Referencer_Domain"
0424 0121 | ! | .STRTAB 0x0121->0x04b4 ; "Domain.Supplier_Domain"
0425 0135 | 5 | .STRTAB 0x0135->0x04bf ; "Supplier_Domain"
0426 0142 | B | .STRTAB 0x0142->0x04c7 ; "set_job_information"
0427 0153 | S | .STRTAB 0x0153->0x04d0 ; "Initialize"
0428 015b | [ | .STRTAB 0x015b->0x04d5 ; "Job Id "
0429 0160 | ` | .STRTAB 0x0160->0x04d9 ; " <"
042a 0160 | ` | .STRTAB 0x0160->0x04da ; "> is finalizing with nil root task"
042b 0180 | | .STRTAB 0x0180->0x04eb ; "Nil_Root_Task"
042c 018b | | .STRTAB 0x018b->0x04f1 ; "Domain.Finalize"
042d 0198 | | .STRTAB 0x0198->0x04f9 ; "> raised "
042e 019f | | .STRTAB 0x019f->0x04fd ; "Unhandled exception "
042f 01b1 | | .STRTAB 0x01b1->0x0507 ; " in Domain.Finalize"
0430 01c2 | | .STREND 0x01c2->0x0511
0431 5245 4144 |READ| .STRTAB_STRINGS
0511 0000 0000 | | .BLANK 0000[0x7]
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug Table
0518 ; --------------------------------------------------------------------------------------
0518 0004 000d | | .DEBUG4 0x0004,0x000d,0x6e15,0x0000,0x0001,0x0000
051e 1039 32b8 | 92 | .XXX[0xe2]
0520 bab4 b932 | 2|
0522 b210 3a37 | :7|
0524 9032 3790 | 27 |
0526 3a34 3280 |:42 |
0528 0000 0e80 | |
052a 0000 2490 | $ |
052c 29b8 32b1 |) 2 |
052e b4b3 34b2 | 4 |
0530 b990 3bb4 | ; |
0532 32ba 3432 |2 42|
0534 b910 3a34 | :4|
0536 3290 3839 |2 89|
0538 37b1 b2b2 |7 |
053a 3ab9 3290 |: 2 |
053c 31b4 32b1 |1 2 |
053e b5b9 9033 | 3|
0540 37b9 103a |7 :|
0542 3432 9032 |42 2|
0544 b333 37b9 | 37 |
0546 3a10 3932 |: 92|
0548 b8ba b4b9 | |
054a 32b2 103a |2 :|
054c 3790 3237 |7 27|
054e 903a 3432 | :42|
0550 8000 0034 | 4|
0552 0000 0022 | "|
0554 b839 37b6 | 97 |
0556 b7ba 34b7 | 4 |
0558 b710 37b9 | 7 |
055a 1030 b1ba | 0 |
055c 3ab0 b636 |: 6|
055e 3c90 3237 |< 27|
0560 b2b9 903a | :|
0562 3432 9038 |42 8|
0564 3937 b6b7 |97 |
0566 ba34 b7b7 | 4 |
0568 1710 2bb4 | + |
056a 32b7 103a |2 :|
056c 3432 903b |42 ;|
056e 30b6 3ab2 |0 : |
0570 9034 b990 | 4 |
0572 2a39 3ab2 |*9: |
0574 9610 3a34 | :4|
0576 3280 0000 |2 |
0578 3380 0000 |3 |
057a 2310 3839 |# 89|
057c 37b6 b7ba |7 |
057e 34b7 b710 |4 |
0580 37b9 1030 |7 0|
0582 b1ba 3ab0 | : |
0584 b636 3c90 | 6< |
0586 3237 b2b9 |27 |
0588 903a 3432 | :42|
058a 9038 3937 | 897|
058c b6b7 ba34 | 4|
058e b7b7 1710 | |
0590 2bb4 32b7 |+ 2 |
0592 103a 3432 | :42|
0594 903b 30b6 | ;0 |
0596 3ab2 9034 |: 4|
0598 b990 2a39 | *9|
059a 3ab2 9610 |: |
059c 3a34 3280 |:42 |
059e 0000 3380 | 3 |
05a0 0000 2310 | # |
05a2 3839 37b6 |897 |
05a4 b7ba 34b7 | 4 |
05a6 b710 37b9 | 7 |
05a8 1030 b1ba | 0 |
05aa 3ab0 b636 |: 6|
05ac 3c90 3237 |< 27|
05ae b2b9 903a | :|
05b0 3432 9038 |42 8|
05b2 3937 b6b7 |97 |
05b4 ba34 b7b7 | 4 |
05b6 1710 2bb4 | + |
05b8 32b7 103a |2 :|
05ba 3432 903b |42 ;|
05bc 30b6 3ab2 |0 : |
05be 9034 b990 | 4 |
05c0 2a39 3ab2 |*9: |
05c2 9610 3a34 | :4|
05c4 3280 0000 |2 |
05c6 1780 0000 | |
05c8 23b8 3937 |# 97|
05ca b1b2 b23a | :|
05cc b932 9038 | 2 8|
05ce 3937 b23a |97 :|
05d0 b1b2 b990 | |
05d2 3090 3634 |0 64|
05d4 b9ba 1037 | 7|
05d6 b310 3a34 | :4|
05d8 3290 37b8 |2 7 |
05da 32b9 30ba |2 0 |
05dc 34b7 b739 |4 9|
05de 903a 3430 | :40|
05e0 ba10 3bb7 | ; |
05e2 bab6 3210 | 2 |
05e4 3132 9038 |12 8|
05e6 32b9 3337 |2 37|
05e8 b936 b2b2 | 6 |
05ea 1030 b732 | 0 2|
05ec 0000 0017 | |
05ee 0000 0024 | $|
05f0 1038 3937 | 897|
05f2 b1b2 b23a | :|
05f4 b932 9038 | 2 8|
05f6 3937 b23a |97 :|
05f8 b1b2 b990 | |
05fa 3090 3634 |0 64|
05fc b9ba 1037 | 7|
05fe b310 3a34 | :4|