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