|
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_0d8cf4
└─⟦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 02b8 | | .CONST 0x02b8 ; 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 4803 |H | Short_Literal 0x3
0023 8004 | | Call 0x0,0x4
0024 4801 |H | Short_Literal 0x1
0025 8004 | | Call 0x0,0x4
0026 4803 |H | Short_Literal 0x3
0027 8004 | | Call 0x0,0x4
0028 4801 |H | Short_Literal 0x1
0029 8004 | | Call 0x0,0x4
002a 480a |H | Short_Literal 0xa
002b 8004 | | Call 0x0,0x4
002c 480a |H | Short_Literal 0xa
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 4808 |H | Short_Literal 0x8
004e 8004 | | Call 0x0,0x4
004f 4808 |H | Short_Literal 0x8
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 02a0 | | Action Push_String_Extended_Indexed,0x2a0 ; "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 0128 | ( | .CONST 0x0128 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0019 | | .CONST 0x0019 ; 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 0203 | | push_full_address INIT_0200
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 e001 | | Load 0x0,0x1
0113 e002 | | Load 0x0,0x2
0114 e004 | | Load 0x0,0x4
0115 e005 | | Load 0x0,0x5
0116 e217 | | Load 0x1,0x17
0117 a006 | | Store_Unchecked 0x0,0x6
0118 a007 | | Store_Unchecked 0x0,0x7
0119 e215 | | Load 0x1,0x15
011a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
011b e213 | | Load 0x1,0x13
011c 480a |H | Short_Literal 0xa
011d e218 | | Load 0x1,0x18
011e 020e | | Execute Module,Augment_Imports
011f 0007 | | Action Break_Optional
0120 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0121 00c7 | | Action Elaborate_Subprogram
0122 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0123 00c7 | | Action Elaborate_Subprogram
0124 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0125 00c7 | | Action Elaborate_Subprogram
0126 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0127 00c7 | | Action Elaborate_Subprogram
0128 BODY_00b8:
0128 00be | | Action Activate_Tasks
0129 00bc | | Action Signal_Activated
012a 00bb | | Action Signal_Completion
012b 0000 0000 | | .BLANK 0000[0x5]
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 02a2 | | Action Push_String_Extended_Indexed,0x2a2 ; "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 0228 | ( | .CONST 0x0228 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0018 | | .CONST 0x0018 ; Number of locals
0203 INIT_0200:
0203 4802 |H | Short_Literal 0x2
0204 02cb | | Declare_Variable Entry
0205 4802 |H | Short_Literal 0x2
0206 02cb | | Declare_Variable Entry
0207 4802 |H | Short_Literal 0x2
0208 02cb | | Declare_Variable Entry
0209 4801 |H | Short_Literal 0x1
020a 02cb | | Declare_Variable Entry
020b 00bf | | Action Accept_Activation
020c e001 | | Load 0x0,0x1
020d 03e9 | | Declare_Variable Discrete,Duplicate
020e e002 | | Load 0x0,0x2
020f 02ff | | Declare_Variable Variant_Record
0210 00d8 | | Load_Top At_Offset_0
0211 1c00 | | Execute_Immediate Run_Utility,0x0
0212 00d8 | | Load_Top At_Offset_0
0213 02ff | | Declare_Variable Variant_Record
0214 00d8 | | Load_Top At_Offset_0
0215 1c00 | | Execute_Immediate Run_Utility,0x0
0216 00e1 | | Load_Encached Boolean_Cache
0217 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0218 03e9 | | Declare_Variable Discrete,Duplicate
0219 00e7 | | Load_Encached Duration_Cache
021a 4810 484e |H HN| Declare_Variable Select 0x000, 0x004,
021c 480f 484f |H HO| [0x001]: 0x000 = 0x0000,
021e 480e 4851 |H HQ| [0x00d]: 0x053 = 0x0298,
0220 480d 4853 |H HS| [0x00e]: 0x051 = 0x0288,
0222 4801 4800 |H H | [0x00f]: 0x04f = 0x0278,
0224 4800 4804 |H H | [0x010]: 0x04e = 0x0270
0226 02cf | |
0227 00bc | | Action Signal_Activated
0228 BODY_0200:
0228 e003 | | Load 0x0,0x3
0229 e214 | | Load 0x1,0x14
022a 016d | m | Execute Variant_Record,Structure_Write
022b e004 | | Load 0x0,0x4
022c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022d e004 | | Load 0x0,0x4
022e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
022f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0230 00cf | | Action Mark_Auxiliary
0231 7834 |x4 | Jump 0x266
0232 00d9 | | Load_Top At_Offset_1
0233 013f | ? | Execute Select,Rendezvous
0234 4605 |F | Jump_Case 0x6
0235 7804 |x | Jump 0x23a ; case 0x0
0236 7826 |x& | Jump 0x25d ; case 0x1
0237 782d |x- | Jump 0x265 ; case 0x2
0238 782c |x, | Jump 0x265 ; case 0x3
0239 7828 |x( | Jump 0x262 ; case 0x4
023a 4801 |H | Short_Literal 0x1 ; case 0x5
023b e211 | | Load 0x1,0x11
023c e005 | | Load 0x0,0x5
023d 01d6 | | Execute Vector,Field_Write
023e 4800 |H | Short_Literal 0x0
023f a212 | | Store_Unchecked 0x1,0x12
0240 4801 |H | Short_Literal 0x1
0241 a216 | | Store_Unchecked 0x1,0x16
0242 00cf | | Action Mark_Auxiliary
0243 780f |x | Jump 0x253
0244 e212 | | Load 0x1,0x12
0245 e005 | | Load 0x0,0x5
0246 01d7 | | Execute Vector,Field_Read
0247 0e01 | | Execute_Immediate Not_Equal,0x1
0248 6802 |h | Jump_Zero 0x24b
0249 4800 |H | Short_Literal 0x0
024a a216 | | Store_Unchecked 0x1,0x16
024b e212 | | Load 0x1,0x12
024c 0f01 | | Execute_Immediate Equal,0x1
024d 7007 |p | Jump_Nonzero 0x255
024e e001 | | Load 0x0,0x1
024f e212 | | Load 0x1,0x12
0250 0268 | h | Execute Discrete,Successor
0251 a212 | | Store_Unchecked 0x1,0x12
0252 00c9 | | Action Pop_Auxiliary_Loop
0253 e216 | | Load 0x1,0x16
0254 77ef |w | Jump_Nonzero 0x244
0255 00ce | | Action Pop_Auxiliary
0256 00db | | Load_Top At_Offset_3
0257 680d |h | Jump_Zero 0x265
0258 4801 |H | Short_Literal 0x1
0259 a215 | | Store_Unchecked 0x1,0x15
025a 8006 | | Call 0x0,0x6
025b 8007 | | Call 0x0,0x7
025c 7808 |x | Jump 0x265
025d e214 | | Load 0x1,0x14
025e e211 | | Load 0x1,0x11
025f e008 | | Load 0x0,0x8
0260 01d6 | | Execute Vector,Field_Write
0261 7803 |x | Jump 0x265
0262 00da | | Load_Top At_Offset_2
0263 8009 | | Call 0x0,0x9
0264 005b | [ | Store_Top Discrete,At_Offset_3
0265 00c9 | | Action Pop_Auxiliary_Loop
0266 e215 | | Load 0x1,0x15
0267 6fca |o | Jump_Zero 0x232
0268 00ce | | Action Pop_Auxiliary
0269 00bb | | Action Signal_Completion
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; See instruction 0x02cf at 0x21a, index=0x10
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00db | | Load_Top At_Offset_3
0274 a211 | | Store_Unchecked 0x1,0x11
0275 4100 |A | End_Rendezvous 0x0
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; See instruction 0x02cf at 0x21a, index=0xf
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 e5fd | | Load 0x2,-0x3
027e e214 | | Load 0x1,0x14
027f 016d | m | Execute Variant_Record,Structure_Write
0280 4100 |A | End_Rendezvous 0x0
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; See instruction 0x02cf at 0x21a, index=0xe
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00db | | Load_Top At_Offset_3
028c e00a | | Load 0x0,0xa
028d 01d5 | | Execute Vector,Field_Reference
028e e5fd | | Load 0x2,-0x3
028f 016d | m | Execute Variant_Record,Structure_Write
0290 4101 |A | End_Rendezvous 0x1
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; See instruction 0x02cf at 0x21a, index=0xd
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e5fd | | Load 0x2,-0x3
029c e5fe | | Load 0x2,-0x2
029d e00a | | Load 0x0,0xa
029e 01d6 | | Execute Vector,Field_Write
029f 4100 |A | End_Rendezvous 0x0
02a0 ; --------------------------------------------------------------------------------------
02a0 ; STRING TABLE
02a0 ; --------------------------------------------------------------------------------------
02a0 000a | | .STRTAB 0x000a->0x02a5 ; "AGENT1"
02a1 000e | | .STRTAB 0x000e->0x02a8 ; "AGENT2"
02a2 0012 | | .STRTAB 0x0012->0x02ab ; "WORKING"
02a3 0017 | | .STRTAB 0x0017->0x02ae ; "TERMINATED"
02a4 001f | | .STREND 0x001f->0x02b3
02a5 4147 454e |AGEN| .STRTAB_STRINGS
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x4a26,0x0000,0x0001,0x0014
02be 000b 030e | | .DBG4T 0x000b,0x030e,0x8000,0x0000
02c2 000e 0311 | | .DBG4T 0x000e,0x0311,0x8000,0x0000
02c6 007b 0319 | { | .DBG4T 0x007b,0x0319,0x0001,0x0000
02ca 0093 0000 | | .DBG4T 0x0093,0x0000,0x0005,0x0000
02ce 00bb 031d | | .DBG4T 0x00bb,0x031d,0x0000,0x0000
02d2 00c4 0323 | #| .DBG4T 0x00c4,0x0323,0x0000,0x0000
02d6 0133 0330 | 3 0| .DBG4T 0x0133,0x0330,0x0001,0x0000
02da 0143 0333 | C 3| .DBG4T 0x0143,0x0333,0x0002,0x0000
02de 0153 0338 | S 8| .DBG4T 0x0153,0x0338,0x0001,0x0000
02e2 0163 033b | c ;| .DBG4T 0x0163,0x033b,0x0001,0x0000
02e6 016b 0000 | k | .DBG4T 0x016b,0x0000,0x0005,0x0000
02ea 0193 0000 | | .DBG4T 0x0193,0x0000,0x0005,0x0000
02ee 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x0005,0x0000
02f2 01c3 033e | >| .DBG4T 0x01c3,0x033e,0x0001,0x0000
02f6 0203 034c | L| .DBG4T 0x0203,0x034c,0x0000,0x0000
02fa 020c 0352 | R| .DBG4T 0x020c,0x0352,0x0000,0x4000
02fe 0273 037c | s || .DBG4T 0x0273,0x037c,0x0003,0x0000
0302 027b 037f | { | .DBG4T 0x027b,0x037f,0x0003,0x0000
0306 028b 0383 | | .DBG4T 0x028b,0x0383,0x0003,0x0000
030a 029b 0386 | | .DBG4T 0x029b,0x0386,0x0003,0x0000
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 0001 0000 | | .DBGLEN 0x0001,0x0000
0310 000b | | .DBGLNO 0x000b
0311 ; --------------------------------------------------------------------------------------
0311 ; Debug chain
0311 ; --------------------------------------------------------------------------------------
0311 0006 0000 | | .DBGLEN 0x0006,0x0000
0313 000e 0013 | | .DBGLNO 0x000e,0x0013,0x0019,0x003c,0x005f,0x0072
0319 ; --------------------------------------------------------------------------------------
0319 ; Debug chain
0319 ; --------------------------------------------------------------------------------------
0319 0000 0002 | | .DBGLEN 0x0000,0x0002
031b 007b 007f | { | .DBGLNO 0x007b,0x007f
031d ; --------------------------------------------------------------------------------------
031d ; Debug chain
031d ; --------------------------------------------------------------------------------------
031d 0004 0000 | | .DBGLEN 0x0004,0x0000
031f 00bb 00bd | | .DBGLNO 0x00bb,0x00bd,0x00bf,0x00c1
0323 ; --------------------------------------------------------------------------------------
0323 ; Debug chain
0323 ; --------------------------------------------------------------------------------------
0323 000b 0000 | | .DBGLEN 0x000b,0x0000
0325 00c4 00c9 | | .DBGLNO 0x00c4,0x00c9,0x00df,0x00f5,0x010a,0x0110,0x0112,0x0120,0x0122,0x0124,0x0126
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug chain
0330 ; --------------------------------------------------------------------------------------
0330 0000 0001 | | .DBGLEN 0x0000,0x0001
0332 0133 | 3 | .DBGLNO 0x0133
0333 ; --------------------------------------------------------------------------------------
0333 ; Debug chain
0333 ; --------------------------------------------------------------------------------------
0333 0001 0002 | | .DBGLEN 0x0001,0x0002
0335 0143 0147 | C G| .DBGLNO 0x0143,0x0147,0x014d
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0000 0001 | | .DBGLEN 0x0000,0x0001
033a 0153 | S | .DBGLNO 0x0153
033b ; --------------------------------------------------------------------------------------
033b ; Debug chain
033b ; --------------------------------------------------------------------------------------
033b 0000 0001 | | .DBGLEN 0x0000,0x0001
033d 0163 | c | .DBGLNO 0x0163
033e ; --------------------------------------------------------------------------------------
033e ; Debug chain
033e ; --------------------------------------------------------------------------------------
033e 0004 0008 | | .DBGLEN 0x0004,0x0008
0340 01c3 01c7 | | .DBGLNO 0x01c3,0x01c7,0x01c8,0x01cb,0x01cc,0x01d1,0x01dd,0x01e0,0x01e3,0x01e7,0x01ea,0x01ed
034c ; --------------------------------------------------------------------------------------
034c ; Debug chain
034c ; --------------------------------------------------------------------------------------
034c 0004 0000 | | .DBGLEN 0x0004,0x0000
034e 0203 0205 | | .DBGLNO 0x0203,0x0205,0x0207,0x0209
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0004 0012 | | .DBGLEN 0x0004,0x0012
0354 020c 020e | | .DBGLNO 0x020c,0x020e,0x0216,0x0219,0x0228,0x022b,0x0232,0x023a,0x023e,0x0240,0x0244,0x0249,0x024b,0x024e,0x0253,0x0256,0x0258,0x025a,0x025b,0x025d,0x0262,0x0266
036a 0001 0002 | | .XXX[0x12]
036c 0004 000a | |
036e 000b 000c | |
0370 000e 000f | |
0372 0010 0011 | |
0374 000d 0012 | |
0376 0013 0014 | |
0378 0015 0008 | |
037a 0016 0003 | |
037c ; --------------------------------------------------------------------------------------
037c ; Debug chain
037c ; --------------------------------------------------------------------------------------
037c 0000 0001 | | .DBGLEN 0x0000,0x0001
037e 0273 | s | .DBGLNO 0x0273
037f ; --------------------------------------------------------------------------------------
037f ; Debug chain
037f ; --------------------------------------------------------------------------------------
037f 0000 0002 | | .DBGLEN 0x0000,0x0002
0381 027b 027d | { }| .DBGLNO 0x027b,0x027d
0383 ; --------------------------------------------------------------------------------------
0383 ; Debug chain
0383 ; --------------------------------------------------------------------------------------
0383 0000 0001 | | .DBGLEN 0x0000,0x0001
0385 028b | | .DBGLNO 0x028b
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug chain
0386 ; --------------------------------------------------------------------------------------
0386 0000 0001 | | .DBGLEN 0x0000,0x0001
0388 029b | | .DBGLNO 0x029b
0389 0000 0000 | | .BLANK 0000[0x77]