|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_07b0c5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02c0 | | .CONST 0x02c0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0074 | t | .CONST 0x0074 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 4800 |H | Short_Literal 0x0 000f 4801 |H | Short_Literal 0x1 0010 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0012 03fd | | Declare_Type Discrete,Defined 0013 4800 |H | Short_Literal 0x0 0014 0093 00bb | | push_full_address INIT_00b8 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 038e | | Declare_Type Package,Defined 0018 0387 | | Declare_Variable Package 0019 0093 0000 | | push_full_address 0x0 001b 606c |`l | Indirect_Literal Discrete,0x88,{0x80000000, 0x00020000} 001c 0273 | s | Execute Discrete,Plus 001d e002 | | Load 0x0,0x2 001e 0273 | s | Execute Discrete,Plus 001f e003 | | Load 0x0,0x3 0020 0273 | s | Execute Discrete,Plus 0021 00da | | Load_Top At_Offset_2 0022 4804 |H | Short_Literal 0x4 0023 8004 | | Call 0x0,0x4 0024 4801 |H | Short_Literal 0x1 0025 8004 | | Call 0x0,0x4 0026 4804 |H | Short_Literal 0x4 0027 8004 | | Call 0x0,0x4 0028 4801 |H | Short_Literal 0x1 0029 8004 | | Call 0x0,0x4 002a 4814 |H | Short_Literal 0x14 002b 8004 | | Call 0x0,0x4 002c 4814 |H | Short_Literal 0x14 002d 8004 | | Call 0x0,0x4 002e 4800 |H | Short_Literal 0x0 002f 4801 |H | Short_Literal 0x1 0030 e20f | | Load 0x1,0xf 0031 190d | | Execute Package,Field_Reference,Field_Number 0xd 0032 e20f | | Load 0x1,0xf 0033 190e | | Execute Package,Field_Reference,Field_Number 0xe 0034 e20f | | Load 0x1,0xf 0035 190f | | Execute Package,Field_Reference,Field_Number 0xf 0036 e20f | | Load 0x1,0xf 0037 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0038 e005 | | Load 0x0,0x5 0039 0387 | | Declare_Variable Package 003a 00d8 | | Load_Top At_Offset_0 003b 020f | | Execute Module,Activate 003c 0093 0000 | | push_full_address 0x0 003e 6045 |`E | Indirect_Literal Discrete,0x84,{0x80000000, 0x00010000} 003f 0273 | s | Execute Discrete,Plus 0040 e002 | | Load 0x0,0x2 0041 0273 | s | Execute Discrete,Plus 0042 e006 | | Load 0x0,0x6 0043 0273 | s | Execute Discrete,Plus 0044 00db | | Load_Top At_Offset_3 0045 4802 |H | Short_Literal 0x2 0046 8004 | | Call 0x0,0x4 0047 4801 |H | Short_Literal 0x1 0048 8004 | | Call 0x0,0x4 0049 4802 |H | Short_Literal 0x2 004a 8004 | | Call 0x0,0x4 004b 4801 |H | Short_Literal 0x1 004c 8004 | | Call 0x0,0x4 004d 480f |H | Short_Literal 0xf 004e 8004 | | Call 0x0,0x4 004f 480f |H | Short_Literal 0xf 0050 8004 | | Call 0x0,0x4 0051 4801 |H | Short_Literal 0x1 0052 4800 |H | Short_Literal 0x0 0053 e20f | | Load 0x1,0xf 0054 190d | | Execute Package,Field_Reference,Field_Number 0xd 0055 e20f | | Load 0x1,0xf 0056 190e | | Execute Package,Field_Reference,Field_Number 0xe 0057 e20f | | Load 0x1,0xf 0058 190f | | Execute Package,Field_Reference,Field_Number 0xf 0059 e20f | | Load 0x1,0xf 005a 1910 | | Execute Package,Field_Reference,Field_Number 0x10 005b e005 | | Load 0x0,0x5 005c 0387 | | Declare_Variable Package 005d 00d8 | | Load_Top At_Offset_0 005e 020f | | Execute Module,Activate 005f 00db | | Load_Top At_Offset_3 0060 e007 | | Load 0x0,0x7 0061 a004 | | Store_Unchecked 0x0,0x4 0062 e008 | | Load 0x0,0x8 0063 e009 | | Load 0x0,0x9 0064 e00a | | Load 0x0,0xa 0065 e210 | | Load 0x1,0x10 0066 0095 | | Execute Package,Field_Reference_Dynamic 0067 e00a | | Load 0x0,0xa 0068 e211 | | Load 0x1,0x11 0069 0095 | | Execute Package,Field_Reference_Dynamic 006a e00b | | Load 0x0,0xb 006b a00c | | Store_Unchecked 0x0,0xc 006c a00d | | Store_Unchecked 0x0,0xd 006d 480a |H | Short_Literal 0xa 006e e20f | | Load 0x1,0xf 006f 020e | | Execute Module,Augment_Imports 0070 00da | | Load_Top At_Offset_2 0071 020f | | Execute Module,Activate 0072 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0073 00c7 | | Action Elaborate_Subprogram 0074 BODY_0008: 0074 00bc | | Action Signal_Activated 0075 00bb | | Action Signal_Completion 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c e00e | | Load 0x0,0xe 007d e210 | | Load 0x1,0x10 007e 0096 | | Execute Package,Entry 007f 00da | | Load_Top At_Offset_2 0080 e00e | | Load 0x0,0xe 0081 e211 | | Load 0x1,0x11 0082 0096 | | Execute Package,Entry 0083 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0084 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0088 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4607 |F | Jump_Case 0x8 0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0095 7807 |x | Jump 0x9d ; case 0x1 0096 780a |x | Jump 0xa1 ; case 0x2 0097 780e |x | Jump 0xa6 ; case 0x3 0098 7811 |x | Jump 0xaa ; case 0x4 0099 7812 |x | Jump 0xac ; case 0x5 009a 7813 |x | Jump 0xae ; case 0x6 009b 7816 |x | Jump 0xb2 ; case 0x7 009c 4302 |C | .XXX[0x1] 009d 00da | | Load_Top At_Offset_2 009e 0091 02a8 | | Action Push_String_Extended_Indexed,0x2a8 ; "AGENT1" 00a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a1 00db | | Load_Top At_Offset_3 00a2 00db | | Load_Top At_Offset_3 00a3 00e0 | | Load_Encached Standard_Cache 00a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a6 00da | | Load_Top At_Offset_2 00a7 00e0 | | Load_Encached Standard_Cache 00a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00aa 00db | | Load_Top At_Offset_3 00ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ac 00db | | Load_Top At_Offset_3 00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ae e20e | | Load 0x1,0xe 00af 00dc | | Load_Top At_Offset_4 00b0 0267 | g | Execute Discrete,Predecessor 00b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b2 e20e | | Load 0x1,0xe 00b3 00dc | | Load_Top At_Offset_4 00b4 0268 | h | Execute Discrete,Successor 00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 012b | + | .CONST 0x012b ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 001a | | .CONST 0x001a ; Number of locals 00bb INIT_00b8: 00bb 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 00bd 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 00bf 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 00c1 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 00c3 00bf | | Action Accept_Activation 00c4 4800 |H | Short_Literal 0x0 00c5 4801 |H | Short_Literal 0x1 00c6 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 00c8 03fd | | Declare_Type Discrete,Defined 00c9 e001 | | Load 0x0,0x1 00ca 0266 | f | Execute Discrete,Bounds 00cb e002 | | Load 0x0,0x2 00cc 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 00ce 4801 |H | Short_Literal 0x1 00cf 035d | ] | Declare_Type Array,Defined 00d0 00d8 | | Load_Top At_Offset_0 00d1 0337 | 7 | Declare_Variable Array 00d2 00d8 | | Load_Top At_Offset_0 00d3 0335 | 5 | Declare_Variable Array,Duplicate 00d4 00cd | | Action Spare6_Action 00d5 4801 |H | Short_Literal 0x1 00d6 4800 |H | Short_Literal 0x0 00d7 4800 |H | Short_Literal 0x0 00d8 8003 | | Call 0x0,0x3 00d9 00d9 | | Load_Top At_Offset_1 00da e214 | | Load 0x1,0x14 00db 01d6 | | Execute Vector,Field_Write 00dc 3ffa |? | Loop_Increasing 0xd7 00dd 00d9 | | Load_Top At_Offset_1 00de 01d4 | | Execute Vector,Structure_Write 00df e001 | | Load 0x0,0x1 00e0 0266 | f | Execute Discrete,Bounds 00e1 e002 | | Load 0x0,0x2 00e2 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 00e4 4801 |H | Short_Literal 0x1 00e5 035d | ] | Declare_Type Array,Defined 00e6 00d8 | | Load_Top At_Offset_0 00e7 0337 | 7 | Declare_Variable Array 00e8 00d8 | | Load_Top At_Offset_0 00e9 0335 | 5 | Declare_Variable Array,Duplicate 00ea 00cd | | Action Spare6_Action 00eb 4801 |H | Short_Literal 0x1 00ec 4800 |H | Short_Literal 0x0 00ed 4801 |H | Short_Literal 0x1 00ee 8003 | | Call 0x0,0x3 00ef 00d9 | | Load_Top At_Offset_1 00f0 e216 | | Load 0x1,0x16 00f1 01d6 | | Execute Vector,Field_Write 00f2 3ffa |? | Loop_Increasing 0xed 00f3 00d9 | | Load_Top At_Offset_1 00f4 01d4 | | Execute Vector,Structure_Write 00f5 e001 | | Load 0x0,0x1 00f6 0266 | f | Execute Discrete,Bounds 00f7 e211 | | Load 0x1,0x11 00f8 02a0 | | Declare_Subprogram Null_Subprogram 00f9 4801 |H | Short_Literal 0x1 00fa 035d | ] | Declare_Type Array,Defined 00fb 00d8 | | Load_Top At_Offset_0 00fc 0337 | 7 | Declare_Variable Array 00fd 00d8 | | Load_Top At_Offset_0 00fe 0335 | 5 | Declare_Variable Array,Duplicate 00ff 00cd | | Action Spare6_Action 0100 4800 |H | Short_Literal 0x0 0101 4800 |H | Short_Literal 0x0 0102 00da | | Load_Top At_Offset_2 0103 01d6 | | Execute Vector,Field_Write 0104 4800 |H | Short_Literal 0x0 0105 4801 |H | Short_Literal 0x1 0106 00da | | Load_Top At_Offset_2 0107 01d6 | | Execute Vector,Field_Write 0108 00d9 | | Load_Top At_Offset_1 0109 01d4 | | Execute Vector,Structure_Write 010a 4800 |H | Short_Literal 0x0 010b 0093 0223 | #| push_full_address INIT_0220 010d 00f5 | | Load_Encached Unused21 010e 037d | } | Declare_Type Task,Defined 010f 036f | o | Declare_Variable Task 0110 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0112 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0114 e001 | | Load 0x0,0x1 0115 e002 | | Load 0x0,0x2 0116 e004 | | Load 0x0,0x4 0117 e005 | | Load 0x0,0x5 0118 e217 | | Load 0x1,0x17 0119 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 011a a006 | | Store_Unchecked 0x0,0x6 011b a007 | | Store_Unchecked 0x0,0x7 011c e215 | | Load 0x1,0x15 011d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 011e e213 | | Load 0x1,0x13 011f 480b |H | Short_Literal 0xb 0120 e218 | | Load 0x1,0x18 0121 020e | | Execute Module,Augment_Imports 0122 0007 | | Action Break_Optional 0123 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0124 00c7 | | Action Elaborate_Subprogram 0125 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0126 00c7 | | Action Elaborate_Subprogram 0127 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0128 00c7 | | Action Elaborate_Subprogram 0129 1d10 | | Execute_Immediate Reference_Lex_1,0x10 012a 00c7 | | Action Elaborate_Subprogram 012b BODY_00b8: 012b 00be | | Action Activate_Tasks 012c 00bc | | Action Signal_Activated 012d 00bb | | Action Signal_Completion 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00db | | Load_Top At_Offset_3 0134 00db | | Load_Top At_Offset_3 0135 4802 |H | Short_Literal 0x2 0136 e218 | | Load 0x1,0x18 0137 170d | | Execute Task,Entry_Call,Field_Number 0xd 0138 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0147 | G | .CONST 0x0147 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e002 | | Load 0x0,0x2 0144 02ff | | Declare_Variable Variant_Record 0145 00d8 | | Load_Top At_Offset_0 0146 1c00 | | Execute_Immediate Run_Utility,0x0 0147 BODY_0140: 0147 00d8 | | Load_Top At_Offset_0 0148 e5ff | | Load 0x2,-0x1 0149 4802 |H | Short_Literal 0x2 014a e218 | | Load 0x1,0x18 014b 170e | | Execute Task,Entry_Call,Field_Number 0xe 014c 00d1 | | Pop_Control Pop_Count_1 014d 00d8 | | Load_Top At_Offset_0 014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00db | | Load_Top At_Offset_3 0154 00db | | Load_Top At_Offset_3 0155 4802 |H | Short_Literal 0x2 0156 e218 | | Load 0x1,0x18 0157 170f | | Execute Task,Entry_Call,Field_Number 0xf 0158 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 4801 |H | Short_Literal 0x1 0165 e218 | | Load 0x1,0x18 0166 1710 | | Execute Task,Entry_Call,Field_Number 0x10 0167 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 4607 |F | Jump_Case 0x8 016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 016d 7807 |x | Jump 0x175 ; case 0x1 016e 780a |x | Jump 0x179 ; case 0x2 016f 780e |x | Jump 0x17e ; case 0x3 0170 7811 |x | Jump 0x182 ; case 0x4 0171 7812 |x | Jump 0x184 ; case 0x5 0172 7813 |x | Jump 0x186 ; case 0x6 0173 7816 |x | Jump 0x18a ; case 0x7 0174 4302 |C | .XXX[0x1] 0175 00da | | Load_Top At_Offset_2 0176 0091 02aa | | Action Push_String_Extended_Indexed,0x2aa ; "WORKING" 0178 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0179 00db | | Load_Top At_Offset_3 017a 00db | | Load_Top At_Offset_3 017b 00e0 | | Load_Encached Standard_Cache 017c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 017d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017e 00da | | Load_Top At_Offset_2 017f 00e0 | | Load_Encached Standard_Cache 0180 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0181 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0182 00db | | Load_Top At_Offset_3 0183 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0184 00db | | Load_Top At_Offset_3 0185 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0186 e211 | | Load 0x1,0x11 0187 00dc | | Load_Top At_Offset_4 0188 0267 | g | Execute Discrete,Predecessor 0189 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018a e211 | | Load 0x1,0x11 018b 00dc | | Load_Top At_Offset_4 018c 0268 | h | Execute Discrete,Successor 018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00d1 | | Pop_Control Pop_Count_1 0194 00da | | Load_Top At_Offset_2 0195 01d8 | | Execute Vector,Element_Type 0196 02ff | | Declare_Variable Variant_Record 0197 00d8 | | Load_Top At_Offset_0 0198 1c00 | | Execute_Immediate Run_Utility,0x0 0199 00db | | Load_Top At_Offset_3 019a 01dc | | Execute Vector,Last 019b e5ff | | Load 0x2,-0x1 019c 01dd | | Execute Vector,First 019d 0263 | c | Execute Discrete,Above_Bound 019e 7006 |p | Jump_Nonzero 0x1a5 019f 00da | | Load_Top At_Offset_2 01a0 00d9 | | Load_Top At_Offset_1 01a1 e5ff | | Load 0x2,-0x1 01a2 01d6 | | Execute Vector,Field_Write 01a3 0a01 | | Execute_Immediate Plus,0x1 01a4 7ff8 | | Jump 0x19d 01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00d1 | | Pop_Control Pop_Count_1 01ac 00da | | Load_Top At_Offset_2 01ad 01d8 | | Execute Vector,Element_Type 01ae 02ff | | Declare_Variable Variant_Record 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 00db | | Load_Top At_Offset_3 01b2 01dc | | Execute Vector,Last 01b3 e5ff | | Load 0x2,-0x1 01b4 01dd | | Execute Vector,First 01b5 0263 | c | Execute Discrete,Above_Bound 01b6 7006 |p | Jump_Nonzero 0x1bd 01b7 00da | | Load_Top At_Offset_2 01b8 00d9 | | Load_Top At_Offset_1 01b9 e5ff | | Load 0x2,-0x1 01ba 01d6 | | Execute Vector,Field_Write 01bb 0a01 | | Execute_Immediate Plus,0x1 01bc 7ff8 | | Jump 0x1b5 01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cc | | .CONST 0x01cc ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0005 | | .CONST 0x0005 ; Number of locals 01c3 INIT_01c0: 01c3 e002 | | Load 0x0,0x2 01c4 02ff | | Declare_Variable Variant_Record 01c5 00d8 | | Load_Top At_Offset_0 01c6 1c00 | | Execute_Immediate Run_Utility,0x0 01c7 00e7 | | Load_Encached Duration_Cache 01c8 e008 | | Load 0x0,0x8 01c9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 01ca 0322 | " | Declare_Variable Record 01cb 00e2 | | Load_Encached Integer_Cache 01cc BODY_01c0: 01cc e005 | | Load 0x0,0x5 01cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ce e005 | | Load 0x0,0x5 01cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01d1 00da | | Load_Top At_Offset_2 01d2 e5ff | | Load 0x2,-0x1 01d3 0272 | r | Execute Discrete,Minus 01d4 00d8 | | Load_Top At_Offset_0 01d5 00e7 | | Load_Encached Duration_Cache 01d6 0260 | ` | Execute Discrete,In_Type 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 0801 | | Execute_Immediate Raise,0x1 01d9 e008 | | Load 0x0,0x8 01da 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01db 00da | | Load_Top At_Offset_2 01dc 017d | } | Execute Record,Structure_Write 01dd 00d9 | | Load_Top At_Offset_1 01de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01df 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01e0 00d8 | | Load_Top At_Offset_0 01e1 0c01 | | Execute_Immediate Greater_Equal,0x1 01e2 6819 |h | Jump_Zero 0x1fc 01e3 00d8 | | Load_Top At_Offset_0 01e4 8003 | | Call 0x0,0x3 01e5 e402 | | Load 0x2,0x2 01e6 016d | m | Execute Variant_Record,Structure_Write 01e7 00da | | Load_Top At_Offset_2 01e8 a5ff | | Store_Unchecked 0x2,-0x1 01e9 00cf | | Action Mark_Auxiliary 01ea 4801 |H | Short_Literal 0x1 01eb 4800 |H | Short_Literal 0x0 01ec 0007 | | Action Break_Optional 01ed e402 | | Load 0x2,0x2 01ee 00d9 | | Load_Top At_Offset_1 01ef e215 | | Load 0x1,0x15 01f0 01d5 | | Execute Vector,Field_Reference 01f1 8009 | | Call 0x0,0x9 01f2 00d9 | | Load_Top At_Offset_1 01f3 e213 | | Load 0x1,0x13 01f4 01d5 | | Execute Vector,Field_Reference 01f5 800a | | Call 0x0,0xa 01f6 00d9 | | Load_Top At_Offset_1 01f7 e213 | | Load 0x1,0x13 01f8 01d6 | | Execute Vector,Field_Write 01f9 00c8 | | Action Pop_Auxiliary_Range 01fa 3ff2 |? | Loop_Increasing 0x1ed 01fb 00ce | | Action Pop_Auxiliary 01fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0207 | | .CONST 0x0207 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 00e1 | | Load_Encached Boolean_Cache 0204 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0205 e001 | | Load 0x0,0x1 0206 0007 | | Action Break_Optional 0207 BODY_0200: 0207 4800 |H | Short_Literal 0x0 0208 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0209 00cf | | Action Mark_Auxiliary 020a 780f |x | Jump 0x21a 020b 00d9 | | Load_Top At_Offset_1 020c e217 | | Load 0x1,0x17 020d 01d7 | | Execute Vector,Field_Read 020e 0e01 | | Execute_Immediate Not_Equal,0x1 020f 6802 |h | Jump_Zero 0x212 0210 4800 |H | Short_Literal 0x0 0211 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0212 00d9 | | Load_Top At_Offset_1 0213 0f01 | | Execute_Immediate Equal,0x1 0214 7007 |p | Jump_Nonzero 0x21c 0215 e001 | | Load 0x0,0x1 0216 00da | | Load_Top At_Offset_2 0217 0268 | h | Execute Discrete,Successor 0218 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0219 00c9 | | Action Pop_Auxiliary_Loop 021a 00da | | Load_Top At_Offset_2 021b 77ef |w | Jump_Nonzero 0x20b 021c 00ce | | Action Pop_Auxiliary 021d 00d9 | | Load_Top At_Offset_1 021e 00ca | | Action Exit_Nullary_Function 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0247 | G | .CONST 0x0247 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0016 | | .CONST 0x0016 ; Number of locals 0223 INIT_0220: 0223 4802 |H | Short_Literal 0x2 0224 02cb | | Declare_Variable Entry 0225 4802 |H | Short_Literal 0x2 0226 02cb | | Declare_Variable Entry 0227 4802 |H | Short_Literal 0x2 0228 02cb | | Declare_Variable Entry 0229 4801 |H | Short_Literal 0x1 022a 02cb | | Declare_Variable Entry 022b 00bf | | Action Accept_Activation 022c e001 | | Load 0x0,0x1 022d 0007 | | Action Break_Optional 022e e002 | | Load 0x0,0x2 022f 02ff | | Declare_Variable Variant_Record 0230 00d8 | | Load_Top At_Offset_0 0231 1c00 | | Execute_Immediate Run_Utility,0x0 0232 00d8 | | Load_Top At_Offset_0 0233 02ff | | Declare_Variable Variant_Record 0234 00d8 | | Load_Top At_Offset_0 0235 1c00 | | Execute_Immediate Run_Utility,0x0 0236 00e1 | | Load_Encached Boolean_Cache 0237 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0238 00e7 | | Load_Encached Duration_Cache 0239 4810 484f |H HO| Declare_Variable Select 0x000, 0x004, 023b 480f 4850 |H HP| [0x001]: 0x000 = 0x0000, 023d 480e 4852 |H HR| [0x00d]: 0x054 = 0x02a0, 023f 480d 4854 |H HT| [0x00e]: 0x052 = 0x0290, 0241 4801 4800 |H H | [0x00f]: 0x050 = 0x0280, 0243 4800 4804 |H H | [0x010]: 0x04f = 0x0278 0245 02cf | | 0246 00bc | | Action Signal_Activated 0247 BODY_0220: 0247 e003 | | Load 0x0,0x3 0248 e213 | | Load 0x1,0x13 0249 016d | m | Execute Variant_Record,Structure_Write 024a e004 | | Load 0x0,0x4 024b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024c e004 | | Load 0x0,0x4 024d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 024f 00cf | | Action Mark_Auxiliary 0250 781c |x | Jump 0x26d 0251 00d9 | | Load_Top At_Offset_1 0252 013f | ? | Execute Select,Rendezvous 0253 4605 |F | Jump_Case 0x6 0254 7804 |x | Jump 0x259 ; case 0x0 0255 780e |x | Jump 0x264 ; case 0x1 0256 7815 |x | Jump 0x26c ; case 0x2 0257 7814 |x | Jump 0x26c ; case 0x3 0258 7810 |x | Jump 0x269 ; case 0x4 0259 4801 |H | Short_Literal 0x1 ; case 0x5 025a e211 | | Load 0x1,0x11 025b e005 | | Load 0x0,0x5 025c 01d6 | | Execute Vector,Field_Write 025d 8006 | | Call 0x0,0x6 025e 680d |h | Jump_Zero 0x26c 025f 4801 |H | Short_Literal 0x1 0260 a214 | | Store_Unchecked 0x1,0x14 0261 8007 | | Call 0x0,0x7 0262 8008 | | Call 0x0,0x8 0263 7808 |x | Jump 0x26c 0264 e213 | | Load 0x1,0x13 0265 e211 | | Load 0x1,0x11 0266 e009 | | Load 0x0,0x9 0267 01d6 | | Execute Vector,Field_Write 0268 7803 |x | Jump 0x26c 0269 00da | | Load_Top At_Offset_2 026a 800a | | Call 0x0,0xa 026b 005b | [ | Store_Top Discrete,At_Offset_3 026c 00c9 | | Action Pop_Auxiliary_Loop 026d 00db | | Load_Top At_Offset_3 026e 6fe2 |o | Jump_Zero 0x251 026f 00ce | | Action Pop_Auxiliary 0270 00bb | | Action Signal_Completion 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; See instruction 0x02cf at 0x239, index=0x10 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00db | | Load_Top At_Offset_3 027c a211 | | Store_Unchecked 0x1,0x11 027d 4100 |A | End_Rendezvous 0x0 027e 0000 0000 | | .XXX[0x2] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; See instruction 0x02cf at 0x239, index=0xf 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00db | | Load_Top At_Offset_3 0284 a211 | | Store_Unchecked 0x1,0x11 0285 e5fd | | Load 0x2,-0x3 0286 e213 | | Load 0x1,0x13 0287 016d | m | Execute Variant_Record,Structure_Write 0288 4100 |A | End_Rendezvous 0x0 0289 0000 0000 | | .BLANK 0000[0x7] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; See instruction 0x02cf at 0x239, index=0xe 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00db | | Load_Top At_Offset_3 0294 e00b | | Load 0x0,0xb 0295 01d5 | | Execute Vector,Field_Reference 0296 e5fd | | Load 0x2,-0x3 0297 016d | m | Execute Variant_Record,Structure_Write 0298 4101 |A | End_Rendezvous 0x1 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; See instruction 0x02cf at 0x239, index=0xd 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 e5fd | | Load 0x2,-0x3 02a4 e5fe | | Load 0x2,-0x2 02a5 e00b | | Load 0x0,0xb 02a6 01d6 | | Execute Vector,Field_Write 02a7 4100 |A | End_Rendezvous 0x0 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; STRING TABLE 02a8 ; -------------------------------------------------------------------------------------- 02a8 000a | | .STRTAB 0x000a->0x02ad ; "AGENT1" 02a9 000e | | .STRTAB 0x000e->0x02b0 ; "AGENT2" 02aa 0012 | | .STRTAB 0x0012->0x02b3 ; "WORKING" 02ab 0017 | | .STRTAB 0x0017->0x02b6 ; "TERMINATED" 02ac 001f | | .STREND 0x001f->0x02bb 02ad 4147 454e |AGEN| .STRTAB_STRINGS 02bc 0000 0000 | | .BLANK 0000[0x4] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug Table 02c0 ; -------------------------------------------------------------------------------------- 02c0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x50b1,0x0000,0x0001,0x0015 02c6 000b 031a | | .DBG4T 0x000b,0x031a,0x8000,0x0000 02ca 000e 031d | | .DBG4T 0x000e,0x031d,0x8000,0x0000 02ce 007b 0325 | { %| .DBG4T 0x007b,0x0325,0x0001,0x0000 02d2 0093 0000 | | .DBG4T 0x0093,0x0000,0x0005,0x0000 02d6 00bb 0329 | )| .DBG4T 0x00bb,0x0329,0x0000,0x0000 02da 00c4 032f | /| .DBG4T 0x00c4,0x032f,0x0000,0x0000 02de 0133 033d | 3 =| .DBG4T 0x0133,0x033d,0x0001,0x0000 02e2 0143 0340 | C @| .DBG4T 0x0143,0x0340,0x0002,0x0000 02e6 0153 0345 | S E| .DBG4T 0x0153,0x0345,0x0001,0x0000 02ea 0163 0348 | c H| .DBG4T 0x0163,0x0348,0x0001,0x0000 02ee 016b 0000 | k | .DBG4T 0x016b,0x0000,0x0005,0x0000 02f2 0193 0000 | | .DBG4T 0x0193,0x0000,0x0005,0x0000 02f6 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x0005,0x0000 02fa 01c3 034b | K| .DBG4T 0x01c3,0x034b,0x0001,0x0000 02fe 0203 0359 | Y| .DBG4T 0x0203,0x0359,0x0002,0x4000 0302 0223 036b | # k| .DBG4T 0x0223,0x036b,0x0000,0x0000 0306 022c 0371 | , q| .DBG4T 0x022c,0x0371,0x0000,0x4000 030a 027b 038d | { | .DBG4T 0x027b,0x038d,0x0003,0x0000 030e 0283 0390 | | .DBG4T 0x0283,0x0390,0x0003,0x0000 0312 0293 0394 | | .DBG4T 0x0293,0x0394,0x0003,0x0000 0316 02a3 0397 | | .DBG4T 0x02a3,0x0397,0x0003,0x0000 031a ; -------------------------------------------------------------------------------------- 031a ; Debug chain 031a ; -------------------------------------------------------------------------------------- 031a 0001 0000 | | .DBGLEN 0x0001,0x0000 031c 000b | | .DBGLNO 0x000b 031d ; -------------------------------------------------------------------------------------- 031d ; Debug chain 031d ; -------------------------------------------------------------------------------------- 031d 0006 0000 | | .DBGLEN 0x0006,0x0000 031f 000e 0013 | | .DBGLNO 0x000e,0x0013,0x0019,0x003c,0x005f,0x0072 0325 ; -------------------------------------------------------------------------------------- 0325 ; Debug chain 0325 ; -------------------------------------------------------------------------------------- 0325 0000 0002 | | .DBGLEN 0x0000,0x0002 0327 007b 007f | { | .DBGLNO 0x007b,0x007f 0329 ; -------------------------------------------------------------------------------------- 0329 ; Debug chain 0329 ; -------------------------------------------------------------------------------------- 0329 0004 0000 | | .DBGLEN 0x0004,0x0000 032b 00bb 00bd | | .DBGLNO 0x00bb,0x00bd,0x00bf,0x00c1 032f ; -------------------------------------------------------------------------------------- 032f ; Debug chain 032f ; -------------------------------------------------------------------------------------- 032f 000c 0000 | | .DBGLEN 0x000c,0x0000 0331 00c4 00c9 | | .DBGLNO 0x00c4,0x00c9,0x00df,0x00f5,0x010a,0x0110,0x0112,0x0114,0x0123,0x0125,0x0127,0x0129 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0000 0001 | | .DBGLEN 0x0000,0x0001 033f 0133 | 3 | .DBGLNO 0x0133 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug chain 0340 ; -------------------------------------------------------------------------------------- 0340 0001 0002 | | .DBGLEN 0x0001,0x0002 0342 0143 0147 | C G| .DBGLNO 0x0143,0x0147,0x014d 0345 ; -------------------------------------------------------------------------------------- 0345 ; Debug chain 0345 ; -------------------------------------------------------------------------------------- 0345 0000 0001 | | .DBGLEN 0x0000,0x0001 0347 0153 | S | .DBGLNO 0x0153 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug chain 0348 ; -------------------------------------------------------------------------------------- 0348 0000 0001 | | .DBGLEN 0x0000,0x0001 034a 0163 | c | .DBGLNO 0x0163 034b ; -------------------------------------------------------------------------------------- 034b ; Debug chain 034b ; -------------------------------------------------------------------------------------- 034b 0004 0008 | | .DBGLEN 0x0004,0x0008 034d 01c3 01c7 | | .DBGLNO 0x01c3,0x01c7,0x01c8,0x01cb,0x01cc,0x01d1,0x01dd,0x01e0,0x01e3,0x01e7,0x01ea,0x01ed 0359 ; -------------------------------------------------------------------------------------- 0359 ; Debug chain 0359 ; -------------------------------------------------------------------------------------- 0359 0002 0007 | | .DBGLEN 0x0002,0x0007 035b 0203 0205 | | .DBGLNO 0x0203,0x0205,0x0207,0x020b,0x0210,0x0212,0x0215,0x021a,0x021d 0364 0001 0003 | | .XXX[0x7] 0366 0004 0005 | | 0368 0006 0002 | | 036a 0007 | | 036b ; -------------------------------------------------------------------------------------- 036b ; Debug chain 036b ; -------------------------------------------------------------------------------------- 036b 0004 0000 | | .DBGLEN 0x0004,0x0000 036d 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x0227,0x0229 0371 ; -------------------------------------------------------------------------------------- 0371 ; Debug chain 0371 ; -------------------------------------------------------------------------------------- 0371 0004 000b | | .DBGLEN 0x0004,0x000b 0373 022c 022e | , .| .DBGLNO 0x022c,0x022e,0x0236,0x0238,0x0247,0x024a,0x0251,0x0259,0x025d,0x025f,0x0261,0x0262,0x0264,0x0269,0x026d 0382 0001 0002 | | .XXX[0xb] 0384 0004 000a | | 0386 000b 000c | | 0388 000d 000e | | 038a 0008 000f | | 038c 0003 | | 038d ; -------------------------------------------------------------------------------------- 038d ; Debug chain 038d ; -------------------------------------------------------------------------------------- 038d 0000 0001 | | .DBGLEN 0x0000,0x0001 038f 027b | { | .DBGLNO 0x027b 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug chain 0390 ; -------------------------------------------------------------------------------------- 0390 0000 0002 | | .DBGLEN 0x0000,0x0002 0392 0283 0285 | | .DBGLNO 0x0283,0x0285 0394 ; -------------------------------------------------------------------------------------- 0394 ; Debug chain 0394 ; -------------------------------------------------------------------------------------- 0394 0000 0001 | | .DBGLEN 0x0000,0x0001 0396 0293 | | .DBGLNO 0x0293 0397 ; -------------------------------------------------------------------------------------- 0397 ; Debug chain 0397 ; -------------------------------------------------------------------------------------- 0397 0000 0001 | | .DBGLEN 0x0000,0x0001 0399 02a3 | | .DBGLNO 0x02a3 039a 0000 0000 | | .BLANK 0000[0x66]