|
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 - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_185ca9
└─⟦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 05d8 | | .CONST 0x05d8 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0097 | | .CONST 0x0097 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
000d 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
000f 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0011 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0013 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0015 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
0017 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0019 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
001b 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
001d e002 | | Load 0x0,0x2
001e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 032e | . | Declare_Type Record,Defined,Visible
0022 00bf | | Action Accept_Activation
0023 e003 | | Load 0x0,0x3
0024 e004 | | Load 0x0,0x4
0025 e005 | | Load 0x0,0x5
0026 e006 | | Load 0x0,0x6
0027 0387 | | Declare_Variable Package
0028 00d8 | | Load_Top At_Offset_0
0029 020f | | Execute Module,Activate
002a e007 | | Load 0x0,0x7
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c 02c7 | | Declare_Variable Any
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f 00e1 | | Load_Encached Boolean_Cache
0030 e008 | | Load 0x0,0x8
0031 0337 | 7 | Declare_Variable Array
0032 e009 | | Load 0x0,0x9
0033 00d9 | | Load_Top At_Offset_1
0034 01d4 | | Execute Vector,Structure_Write
0035 00e1 | | Load_Encached Boolean_Cache
0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0037 4800 |H | Short_Literal 0x0
0038 0093 03d3 | | PushFullAddress InMicrocode,INIT_03d0
003a 00f5 | | Load_Encached Unused21
003b 037d | } | Declare_Type Task,Defined
003c 036f | o | Declare_Variable Task
003d 4800 |H | Short_Literal 0x0
003e 0093 032b | +| PushFullAddress InMicrocode,INIT_0328
0040 00f5 | | Load_Encached Unused21
0041 037d | } | Declare_Type Task,Defined
0042 036f | o | Declare_Variable Task
0043 4800 |H | Short_Literal 0x0
0044 0093 02b3 | | PushFullAddress InMicrocode,INIT_02b0
0046 00f5 | | Load_Encached Unused21
0047 037d | } | Declare_Type Task,Defined
0048 036f | o | Declare_Variable Task
0049 029d 01cb | | Declare_Subprogram For_Outer_Call,INIT_01c8
004b 029d 01d3 | | Declare_Subprogram For_Outer_Call,INIT_01d0
004d 0093 0000 | | PushFullAddress InMicrocode
004f 6080 |` | Indirect_Literal Discrete,0xd0,{0x80000000, 0x00010000}
0050 0273 | s | Execute Discrete,Plus
0051 e20d | | Load 0x1,0xd
0052 6079 |`y | Indirect_Literal Discrete,0xcc,{0x00000000, 0x0000ffff}
0053 0279 | y | Execute Discrete,And
0054 0273 | s | Execute Discrete,Plus
0055 e00a | | Load 0x0,0xa
0056 0273 | s | Execute Discrete,Plus
0057 e005 | | Load 0x0,0x5
0058 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0059 e00b | | Load 0x0,0xb
005a 0387 | | Declare_Variable Package
005b 00d8 | | Load_Top At_Offset_0
005c 020f | | Execute Module,Activate
005d 029d 01e3 | | Declare_Subprogram For_Outer_Call,INIT_01e0
005f 029d 01fb | | Declare_Subprogram For_Outer_Call,INIT_01f8
0061 029d 022b | +| Declare_Subprogram For_Outer_Call,INIT_0228
0063 029d 027b | {| Declare_Subprogram For_Outer_Call,INIT_0278
0065 e005 | | Load 0x0,0x5
0066 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0067 a00c | | Reference 0x0,0xc
0068 a00d | | Reference 0x0,0xd
0069 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
006a 4805 |H | Short_Literal 0x5
006b e21f | | Load 0x1,0x1f
006c 020e | | Execute Module,Augment_Imports
006d 0007 | | Action Break_Optional
006e e21a | | Load 0x1,0x1a
006f e00e | | Load 0x0,0xe
0070 4802 |H | Short_Literal 0x2
0071 e221 | ! | Load 0x1,0x21
0072 020e | | Execute Module,Augment_Imports
0073 0007 | | Action Break_Optional
0074 e21a | | Load 0x1,0x1a
0075 e00e | | Load 0x0,0xe
0076 e005 | | Load 0x0,0x5
0077 e00f | | Load 0x0,0xf
0078 e010 | | Load 0x0,0x10
0079 e002 | | Load 0x0,0x2
007a a011 | | Reference 0x0,0x11
007b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007c e20f | | Load 0x1,0xf
007d a012 | | Reference 0x0,0x12
007e a013 | | Reference 0x0,0x13
007f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0080 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0081 480d |H | Short_Literal 0xd
0082 e220 | | Load 0x1,0x20
0083 020e | | Execute Module,Augment_Imports
0084 0007 | | Action Break_Optional
0085 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0086 00c7 | | Action Elaborate_Subprogram
0087 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0088 00c7 | | Action Elaborate_Subprogram
0089 1d12 | | Execute_Immediate Reference_Lex_1,0x12
008a 00c7 | | Action Elaborate_Subprogram
008b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008c 00c7 | | Action Elaborate_Subprogram
008d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
008e 00c7 | | Action Elaborate_Subprogram
008f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0090 00c7 | | Action Elaborate_Subprogram
0091 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0092 00c7 | | Action Elaborate_Subprogram
0093 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0094 00c7 | | Action Elaborate_Subprogram
0095 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0096 00c7 | | Action Elaborate_Subprogram
0097 BODY_0008:
0097 00be | | Action Activate_Tasks
0098 00bc | | Action Signal_Activated
0099 00bb | | Action Signal_Completion
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e21b | | Load 0x1,0x1b
00a4 e014 | | Load 0x0,0x14
00a5 e224 | $ | Load 0x1,0x24
00a6 0096 | | Execute Package,Field_Execute_Dynamic
00a7 0092 03fe | | Action Push_String_Extended,0x3fe ; "The connection was closed by the Agent."
00a9 e00e | | Load 0x0,0xe
00aa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ab 8015 | | Call 0x0,0x15
00ac 0092 03ff | | Action Push_String_Extended,0x3ff ; "Letter box's agent disposed."
00ae e00e | | Load 0x0,0xe
00af 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b0 8016 | | Call 0x0,0x16
00b1 0092 0400 | | Action Push_String_Extended,0x400 ; "Connector's agent disposed."
00b3 e00e | | Load 0x0,0xe
00b4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b5 4800 |H | Short_Literal 0x0
00b6 e220 | | Load 0x1,0x20
00b7 170d | | Execute Task,Entry_Call,Field_Number 0xd
00b8 0092 0401 | | Action Push_String_Extended,0x401 ; "Server task disposed."
00ba e00e | | Load 0x0,0xe
00bb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bc 4800 |H | Short_Literal 0x0
00bd e221 | ! | Load 0x1,0x21
00be 170d | | Execute Task,Entry_Call,Field_Number 0xd
00bf 0092 0402 | | Action Push_String_Extended,0x402 ; "Customer task disposed."
00c1 e00e | | Load 0x0,0xe
00c2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c3 4800 |H | Short_Literal 0x0
00c4 e21f | | Load 0x1,0x1f
00c5 170d | | Execute Task,Entry_Call,Field_Number 0xd
00c6 0092 0403 | | Action Push_String_Extended,0x403 ; "Dispatcher task disposed."
00c8 e00e | | Load 0x0,0xe
00c9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ca 4501 |E | Exit_Subprogram 0x1
00cb 0000 | | .XXX[0x1]
00cc 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00d0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e005 | | Load 0x0,0x5
00dc 0322 | " | Declare_Variable Record
00dd BODY_00d8:
00dd 00d8 | | Load_Top At_Offset_0
00de e5ff | | Load 0x2,-0x1
00df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e0 e002 | | Load 0x0,0x2
00e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e2 0092 0404 | | Action Push_String_Extended,0x404 ; "serv"
00e4 0092 0405 | | Action Push_String_Extended,0x405 ; "regi"
00e6 4800 |H | Short_Literal 0x0
00e7 4800 |H | Short_Literal 0x0
00e8 e017 | | Load 0x0,0x17
00e9 e007 | | Load 0x0,0x7
00ea 180f | | Execute Package,Field_Execute,Field_Number 0xf
00eb e018 | | Load 0x0,0x18
00ec 01c3 | | Execute Vector,Check_In_Type
00ed 8019 | | Call 0x0,0x19
00ee e01a | | Load 0x0,0x1a
00ef e01b | | Load 0x0,0x1b
00f0 e20f | | Load 0x1,0xf
00f1 801c | | Call 0x0,0x1c
00f2 00d1 | | Pop_Control Pop_Count_1
00f3 00e1 | | Load_Encached Boolean_Cache
00f4 00d9 | | Load_Top At_Offset_1
00f5 4864 |Hd | Short_Literal 0x64
00f6 8226 | & | Call 0x1,0x26
00f7 c21c | | Store 0x1,0x1c
00f8 e21c | | Load 0x1,0x1c
00f9 0f01 | | Execute_Immediate Equal,0x1
00fa 6805 |h | Jump_Zero 0x100
00fb 0092 0406 | | Action Push_String_Extended,0x406 ; "Registration Contract sending was successfull !"
00fd e00e | | Load 0x0,0xe
00fe 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ff 4502 |E | Exit_Subprogram 0x2
0100 0092 0407 | | Action Push_String_Extended,0x407 ; "Registration Contract sending failed !!!"
0102 e00e | | Load 0x0,0xe
0103 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0104 4502 |E | Exit_Subprogram 0x2
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e005 | | Load 0x0,0x5
010c 0322 | " | Declare_Variable Record
010d BODY_0108:
010d 00d8 | | Load_Top At_Offset_0
010e 0092 0408 | | Action Push_String_Extended,0x408 ; "Happy to unregister"
0110 0092 0404 | | Action Push_String_Extended,0x404 ; "serv"
0112 0092 0409 | | Action Push_String_Extended,0x409 ; "unre"
0114 4800 |H | Short_Literal 0x0
0115 4800 |H | Short_Literal 0x0
0116 e017 | | Load 0x0,0x17
0117 e007 | | Load 0x0,0x7
0118 180f | | Execute Package,Field_Execute,Field_Number 0xf
0119 e018 | | Load 0x0,0x18
011a 01c3 | | Execute Vector,Check_In_Type
011b 8019 | | Call 0x0,0x19
011c e01a | | Load 0x0,0x1a
011d e01b | | Load 0x0,0x1b
011e e20f | | Load 0x1,0xf
011f 801c | | Call 0x0,0x1c
0120 00d1 | | Pop_Control Pop_Count_1
0121 00e1 | | Load_Encached Boolean_Cache
0122 00d9 | | Load_Top At_Offset_1
0123 4864 |Hd | Short_Literal 0x64
0124 8226 | & | Call 0x1,0x26
0125 c21c | | Store 0x1,0x1c
0126 e21c | | Load 0x1,0x1c
0127 0f01 | | Execute_Immediate Equal,0x1
0128 6805 |h | Jump_Zero 0x12e
0129 0092 040a | | Action Push_String_Extended,0x40a ; "Unregistration Contract sending was successfull !"
012b e00e | | Load 0x0,0xe
012c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
012d 4501 |E | Exit_Subprogram 0x1
012e 0092 040b | | Action Push_String_Extended,0x40b ; "Unregistration Contract sending failed !!!"
0130 e00e | | Load 0x0,0xe
0131 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0132 4501 |E | Exit_Subprogram 0x1
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e21e | | Load 0x1,0x1e
013c 00ca | | Action Exit_Nullary_Function
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145 | E | .CONST 0x0145 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e005 | | Load 0x0,0x5
0144 0322 | " | Declare_Variable Record
0145 BODY_0140:
0145 00d8 | | Load_Top At_Offset_0
0146 0092 040c | | Action Push_String_Extended,0x40c ; "I want you to find a worker for me !"
0148 e5fe | | Load 0x2,-0x2
0149 e5ff | | Load 0x2,-0x1
014a e5fd | | Load 0x2,-0x3
014b 4800 |H | Short_Literal 0x0
014c e017 | | Load 0x0,0x17
014d e007 | | Load 0x0,0x7
014e 180f | | Execute Package,Field_Execute,Field_Number 0xf
014f e018 | | Load 0x0,0x18
0150 01c3 | | Execute Vector,Check_In_Type
0151 8019 | | Call 0x0,0x19
0152 e01d | | Load 0x0,0x1d
0153 e009 | | Load 0x0,0x9
0154 e20f | | Load 0x1,0xf
0155 801c | | Call 0x0,0x1c
0156 00d1 | | Pop_Control Pop_Count_1
0157 00e1 | | Load_Encached Boolean_Cache
0158 00d9 | | Load_Top At_Offset_1
0159 4864 |Hd | Short_Literal 0x64
015a 8226 | & | Call 0x1,0x26
015b c21c | | Store 0x1,0x1c
015c e21c | | Load 0x1,0x1c
015d 0f01 | | Execute_Immediate Equal,0x1
015e 6805 |h | Jump_Zero 0x164
015f 0092 040d | | Action Push_String_Extended,0x40d ; "Ask for a job sending was successfull !"
0161 e00e | | Load 0x0,0xe
0162 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0163 4504 |E | Exit_Subprogram 0x4
0164 0092 040e | | Action Push_String_Extended,0x40e ; "Ask for a job sending sending failed !!!"
0166 e00e | | Load 0x0,0xe
0167 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0168 4504 |E | Exit_Subprogram 0x4
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177 | w | .CONST 0x0177 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e005 | | Load 0x0,0x5
0174 0322 | " | Declare_Variable Record
0175 e010 | | Load 0x0,0x10
0176 0337 | 7 | Declare_Variable Array
0177 BODY_0170:
0177 00d9 | | Load_Top At_Offset_1
0178 4801 |H | Short_Literal 0x1
0179 e221 | ! | Load 0x1,0x21
017a 1710 | | Execute Task,Entry_Call,Field_Number 0x10
017b 00d1 | | Pop_Control Pop_Count_1
017c 00e3 | | Load_Encached Natural_Cache
017d 00da | | Load_Top At_Offset_2
017e 4801 |H | Short_Literal 0x1
017f 801e | | Call 0x0,0x1e
0180 c5ff | | Store 0x2,-0x1
0181 00d8 | | Load_Top At_Offset_0
0182 00da | | Load_Top At_Offset_2
0183 4802 |H | Short_Literal 0x2
0184 8011 | | Call 0x0,0x11
0185 00d1 | | Pop_Control Pop_Count_1
0186 00d8 | | Load_Top At_Offset_0
0187 0092 040f | | Action Push_String_Extended,0x40f ; "fail"
0189 01df | | Execute Vector,Equal
018a 6806 |h | Jump_Zero 0x191
018b 0092 040f | | Action Push_String_Extended,0x40f ; "fail"
018d e002 | | Load 0x0,0x2
018e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
018f a5fe | | Store_Unchecked 0x2,-0x2
0190 4501 |E | Exit_Subprogram 0x1
0191 e5fe | | Load 0x2,-0x2
0192 00da | | Load_Top At_Offset_2
0193 4803 |H | Short_Literal 0x3
0194 801f | | Call 0x0,0x1f
0195 c5fe | | Store 0x2,-0x2
0196 4501 |E | Exit_Subprogram 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019c | | .CONST 0x019c ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 00e1 | | Load_Encached Boolean_Cache
019c BODY_0198:
019c 00e1 | | Load_Encached Boolean_Cache
019d 4801 |H | Short_Literal 0x1
019e e221 | ! | Load 0x1,0x21
019f 170f | | Execute Task,Entry_Call,Field_Number 0xf
01a0 0059 | Y | Store_Top Discrete,At_Offset_1
01a1 00d8 | | Load_Top At_Offset_0
01a2 00ca | | Action Exit_Nullary_Function
01a3 0000 0000 | | .BLANK 0000[0x5]
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 00db | | Load_Top At_Offset_3
01ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ad 00db | | Load_Top At_Offset_3
01ae e002 | | Load 0x0,0x2
01af 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b0 e5fe | | Load 0x2,-0x2
01b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b2 4502 |E | Exit_Subprogram 0x2
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00db | | Load_Top At_Offset_3
01bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01bd 00db | | Load_Top At_Offset_3
01be 00e0 | | Load_Encached Standard_Cache
01bf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c0 e002 | | Load 0x0,0x2
01c1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c2 e5fe | | Load 0x2,-0x2
01c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c4 4502 |E | Exit_Subprogram 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 00db | | Load_Top At_Offset_3
01cd 8020 | | Call 0x0,0x20
01ce 4502 |E | Exit_Subprogram 0x2
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00db | | Load_Top At_Offset_3
01d4 e021 | ! | Load 0x0,0x21
01d5 01c3 | | Execute Vector,Check_In_Type
01d6 00db | | Load_Top At_Offset_3
01d7 8222 | " | Call 0x1,0x22
01d8 4502 |E | Exit_Subprogram 0x2
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 0092 0410 | | Action Push_String_Extended,0x410 ; "Generic_Agent is going to initiate its letter box."
01e5 e00e | | Load 0x0,0xe
01e6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e7 8022 | " | Call 0x0,0x22
01e8 0092 0411 | | Action Push_String_Extended,0x411 ; "Generic_Agent is going to initiate its connector."
01ea e00e | | Load 0x0,0xe
01eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ec e21d | | Load 0x1,0x1d
01ed 8023 | # | Call 0x0,0x23
01ee e21d | | Load 0x1,0x1d
01ef e21b | | Load 0x1,0x1b
01f0 e017 | | Load 0x0,0x17
01f1 e024 | $ | Load 0x0,0x24
01f2 e224 | $ | Load 0x1,0x24
01f3 0096 | | Execute Package,Field_Execute_Dynamic
01f4 c21b | | Store 0x1,0x1b
01f5 4501 |E | Exit_Subprogram 0x1
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 0092 0412 | | Action Push_String_Extended,0x412 ; "Agent is going to send :"
01fd e00e | | Load 0x0,0xe
01fe 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ff 00db | | Load_Top At_Offset_3
0200 8025 | % | Call 0x0,0x25
0201 e00e | | Load 0x0,0xe
0202 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0203 00e1 | | Load_Encached Boolean_Cache
0204 e5fe | | Load 0x2,-0x2
0205 e5ff | | Load 0x2,-0x1
0206 e01b | | Load 0x0,0x1b
0207 4800 |H | Short_Literal 0x0
0208 4803 |H | Short_Literal 0x3
0209 e026 | & | Load 0x0,0x26
020a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
020b 035b | [ | Declare_Type Array,Constrained
020c 0337 | 7 | Declare_Variable Array
020d 48c1 |H | Short_Literal 0xc1
020e 4800 |H | Short_Literal 0x0
020f 00da | | Load_Top At_Offset_2
0210 01d6 | | Execute Vector,Field_Write
0211 4836 |H6 | Short_Literal 0x36
0212 4801 |H | Short_Literal 0x1
0213 00da | | Load_Top At_Offset_2
0214 01d6 | | Execute Vector,Field_Write
0215 4892 |H | Short_Literal 0x92
0216 4802 |H | Short_Literal 0x2
0217 00da | | Load_Top At_Offset_2
0218 01d6 | | Execute Vector,Field_Write
0219 4884 |H | Short_Literal 0x84
021a 4803 |H | Short_Literal 0x3
021b 00da | | Load_Top At_Offset_2
021c 01d6 | | Execute Vector,Field_Write
021d e21b | | Load 0x1,0x1b
021e e027 | ' | Load 0x0,0x27
021f e224 | $ | Load 0x1,0x24
0220 0096 | | Execute Package,Field_Execute_Dynamic
0221 c5fd | | Store 0x2,-0x3
0222 0092 0413 | | Action Push_String_Extended,0x413 ; "Going out of send_mail_to_orb"
0224 e00e | | Load 0x0,0xe
0225 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0226 4503 |E | Exit_Subprogram 0x3
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f | / | .CONST 0x022f ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b e00f | | Load 0x0,0xf
022c 0337 | 7 | Declare_Variable Array
022d e010 | | Load 0x0,0x10
022e 0337 | 7 | Declare_Variable Array
022f BODY_0228:
022f 00d9 | | Load_Top At_Offset_1
0230 e5ff | | Load 0x2,-0x1
0231 4801 |H | Short_Literal 0x1
0232 8011 | | Call 0x0,0x11
0233 00d1 | | Pop_Control Pop_Count_1
0234 00d8 | | Load_Top At_Offset_0
0235 e5ff | | Load 0x2,-0x1
0236 4802 |H | Short_Literal 0x2
0237 8011 | | Call 0x0,0x11
0238 00d1 | | Pop_Control Pop_Count_1
0239 0092 0414 | | Action Push_String_Extended,0x414 ; "DISPATCHER working on "
023b 00da | | Load_Top At_Offset_2
023c 01cc | | Execute Vector,Catenate
023d 0092 0415 | | Action Push_String_Extended,0x415 ; " "
023f 01cc | | Execute Vector,Catenate
0240 00d9 | | Load_Top At_Offset_1
0241 01cc | | Execute Vector,Catenate
0242 e00e | | Load 0x0,0xe
0243 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0244 00d9 | | Load_Top At_Offset_1
0245 0092 0416 | | Action Push_String_Extended,0x416 ; "rjob"
0247 01df | | Execute Vector,Equal
0248 6805 |h | Jump_Zero 0x24e
0249 e5ff | | Load 0x2,-0x1
024a 4801 |H | Short_Literal 0x1
024b e221 | ! | Load 0x1,0x21
024c 170e | | Execute Task,Entry_Call,Field_Number 0xe
024d 4502 |E | Exit_Subprogram 0x2
024e 00d9 | | Load_Top At_Offset_1
024f 0092 0405 | | Action Push_String_Extended,0x405 ; "regi"
0251 01df | | Execute Vector,Equal
0252 6808 |h | Jump_Zero 0x25b
0253 00d8 | | Load_Top At_Offset_0
0254 0092 0417 | | Action Push_String_Extended,0x417 ; "ok "
0256 01df | | Execute Vector,Equal
0257 6802 |h | Jump_Zero 0x25a
0258 4801 |H | Short_Literal 0x1
0259 a21e | | Store_Unchecked 0x1,0x1e
025a 4502 |E | Exit_Subprogram 0x2
025b 00d9 | | Load_Top At_Offset_1
025c 0092 0409 | | Action Push_String_Extended,0x409 ; "unre"
025e 01df | | Execute Vector,Equal
025f 6808 |h | Jump_Zero 0x268
0260 00d8 | | Load_Top At_Offset_0
0261 0092 0417 | | Action Push_String_Extended,0x417 ; "ok "
0263 01df | | Execute Vector,Equal
0264 6802 |h | Jump_Zero 0x267
0265 4800 |H | Short_Literal 0x0
0266 a21e | | Store_Unchecked 0x1,0x1e
0267 4502 |E | Exit_Subprogram 0x2
0268 00d9 | | Load_Top At_Offset_1
0269 0092 0418 | | Action Push_String_Extended,0x418 ; "chck"
026b 01de | | Execute Vector,Not_Equal
026c 6804 |h | Jump_Zero 0x271
026d e5ff | | Load 0x2,-0x1
026e 4801 |H | Short_Literal 0x1
026f e220 | | Load 0x1,0x20
0270 170e | | Execute Task,Entry_Call,Field_Number 0xe
0271 4502 |E | Exit_Subprogram 0x2
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0283 | | .CONST 0x0283 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0005 | | .CONST 0x0005 ; Number of locals
027b INIT_0278:
027b e018 | | Load 0x0,0x18
027c 0337 | 7 | Declare_Variable Array
027d 00d8 | | Load_Top At_Offset_0
027e 0337 | 7 | Declare_Variable Array
027f e008 | | Load 0x0,0x8
0280 0337 | 7 | Declare_Variable Array
0281 00d8 | | Load_Top At_Offset_0
0282 0337 | 7 | Declare_Variable Array
0283 BODY_0278:
0283 00da | | Load_Top At_Offset_2
0284 e5ff | | Load 0x2,-0x1
0285 4801 |H | Short_Literal 0x1
0286 8028 | ( | Call 0x0,0x28
0287 00d1 | | Pop_Control Pop_Count_1
0288 00db | | Load_Top At_Offset_3
0289 e5ff | | Load 0x2,-0x1
028a 4800 |H | Short_Literal 0x0
028b 8028 | ( | Call 0x0,0x28
028c 00d1 | | Pop_Control Pop_Count_1
028d e5ff | | Load 0x2,-0x1
028e e402 | | Load 0x2,0x2
028f 4801 |H | Short_Literal 0x1
0290 8029 | ) | Call 0x0,0x29
0291 00d1 | | Pop_Control Pop_Count_1
0292 e5ff | | Load 0x2,-0x1
0293 00db | | Load_Top At_Offset_3
0294 4800 |H | Short_Literal 0x0
0295 8029 | ) | Call 0x0,0x29
0296 00d1 | | Pop_Control Pop_Count_1
0297 00d8 | | Load_Top At_Offset_0
0298 e5ff | | Load 0x2,-0x1
0299 4801 |H | Short_Literal 0x1
029a 802a | * | Call 0x0,0x2a
029b 00d1 | | Pop_Control Pop_Count_1
029c 00d9 | | Load_Top At_Offset_1
029d e5ff | | Load 0x2,-0x1
029e 4800 |H | Short_Literal 0x0
029f 802a | * | Call 0x0,0x2a
02a0 00d1 | | Pop_Control Pop_Count_1
02a1 e5ff | | Load 0x2,-0x1
02a2 00da | | Load_Top At_Offset_2
02a3 4801 |H | Short_Literal 0x1
02a4 802b | + | Call 0x0,0x2b
02a5 00d1 | | Pop_Control Pop_Count_1
02a6 e5ff | | Load 0x2,-0x1
02a7 00d9 | | Load_Top At_Offset_1
02a8 4800 |H | Short_Literal 0x0
02a9 802b | + | Call 0x0,0x2b
02aa 4501 |E | Exit_Subprogram 0x1
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02cf | | .CONST 0x02cf ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0013 | | .CONST 0x0013 ; Number of locals
02b3 INIT_02b0:
02b3 4800 |H | Short_Literal 0x0
02b4 02cb | | Declare_Variable Entry
02b5 4801 |H | Short_Literal 0x1
02b6 02cb | | Declare_Variable Entry
02b7 4801 |H | Short_Literal 0x1
02b8 02cb | | Declare_Variable Entry
02b9 4801 |H | Short_Literal 0x1
02ba 02cb | | Declare_Variable Entry
02bb 00bf | | Action Accept_Activation
02bc e001 | | Load 0x0,0x1
02bd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02be 0322 | " | Declare_Variable Record
02bf 00e1 | | Load_Encached Boolean_Cache
02c0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c1 480d 485c |H H\| Declare_Variable Select 0x000, 0x004,
02c3 480f 485e |H H^| [0x000]: 0x000 = 0x0000,
02c5 4810 4860 |H H`| [0x00e]: 0x063 = 0x0318,
02c7 480e 4863 |H Hc| [0x010]: 0x060 = 0x0300,
02c9 4800 4800 |H H | [0x00f]: 0x05e = 0x02f0,
02cb 4800 4804 |H H | [0x00d]: 0x05c = 0x02e0
02cd 02cf | |
02ce 00bc | | Action Signal_Activated
02cf BODY_02b0:
02cf 00cf | | Action Mark_Auxiliary
02d0 00d9 | | Load_Top At_Offset_1
02d1 013f | ? | Execute Select,Rendezvous
02d2 00d1 | | Pop_Control Pop_Count_1
02d3 6014 |` | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x00018000}
02d4 00ba | | Action Initiate_Delay
02d5 0092 0419 | | Action Push_String_Extended,0x419 ; "Agent as a customer is alive."
02d7 e002 | | Load 0x0,0x2
02d8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02d9 00da | | Load_Top At_Offset_2
02da 0f01 | | Execute_Immediate Equal,0x1
02db 7002 |p | Jump_Nonzero 0x2de
02dc 00c9 | | Action Pop_Auxiliary_Loop
02dd 7ff2 | | Jump 0x2d0
02de 00ce | | Action Pop_Auxiliary
02df 00bb | | Action Signal_Completion
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; See instruction 0x02cf at 0x2c1, index=0xd
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 4801 |H | Short_Literal 0x1
02e4 a212 | | Store_Unchecked 0x1,0x12
02e5 4100 |A | End_Rendezvous 0x0
02e6 0000 0000 | | .XXX[0x2]
02e8 0000 0000 | | .LITERAL {0x00000000, 0x00018000}
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; See instruction 0x02cf at 0x2c1, index=0xf
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e211 | | Load 0x1,0x11
02f4 e001 | | Load 0x0,0x1
02f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02f6 0f00 | | Execute_Immediate Equal,0x0
02f7 a5fe | | Store_Unchecked 0x2,-0x2
02f8 4101 |A | End_Rendezvous 0x1
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; See instruction 0x02cf at 0x2c1, index=0x10
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 e211 | | Load 0x1,0x11
0304 e001 | | Load 0x0,0x1
0305 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0306 e5fe | | Load 0x2,-0x2
0307 017d | } | Execute Record,Structure_Write
0308 e211 | | Load 0x1,0x11
0309 e001 | | Load 0x0,0x1
030a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030b 00d1 | | Pop_Control Pop_Count_1
030c 0092 041a | | Action Push_String_Extended,0x41a ; "Job answer extracted from the fifo."
030e e002 | | Load 0x0,0x2
030f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0310 4101 |A | End_Rendezvous 0x1
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; See instruction 0x02cf at 0x2c1, index=0xe
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b e211 | | Load 0x1,0x11
031c e5fe | | Load 0x2,-0x2
031d e001 | | Load 0x0,0x1
031e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
031f 00d1 | | Pop_Control Pop_Count_1
0320 0092 041b | | Action Push_String_Extended,0x41b ; "Job answer added to the answer fifo."
0322 e002 | | Load 0x0,0x2
0323 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0324 4100 |A | End_Rendezvous 0x0
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0341 | A | .CONST 0x0341 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0012 | | .CONST 0x0012 ; Number of locals
032b INIT_0328:
032b 4800 |H | Short_Literal 0x0
032c 02cb | | Declare_Variable Entry
032d 4801 |H | Short_Literal 0x1
032e 02cb | | Declare_Variable Entry
032f 00bf | | Action Accept_Activation
0330 e001 | | Load 0x0,0x1
0331 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0332 0322 | " | Declare_Variable Record
0333 00e1 | | Load_Encached Boolean_Cache
0334 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0335 029f 0363 | c| Declare_Subprogram For_Call,INIT_0360
0337 480d 4877 |H Hw| Declare_Variable Select 0x000, 0x002,
0339 480e 4878 |H Hx| [0x001]: 0x000 = 0x0000,
033b 4801 4800 |H H | [0x00e]: 0x078 = 0x03c0,
033d 4800 4802 |H H | [0x00d]: 0x077 = 0x03b8
033f 02cf | |
0340 00bc | | Action Signal_Activated
0341 BODY_0328:
0341 00cf | | Action Mark_Auxiliary
0342 00d9 | | Load_Top At_Offset_1
0343 013f | ? | Execute Select,Rendezvous
0344 4603 |F | Jump_Case 0x3
0345 7807 |x | Jump 0x34d ; case 0x0
0346 7806 |x | Jump 0x34d ; case 0x1
0347 7800 |x | Jump 0x348 ; case 0x2
0348 e20f | | Load 0x1,0xf ; case 0x3
0349 e001 | | Load 0x0,0x1
034a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
034b 7001 |p | Jump_Nonzero 0x34d
034c 8211 | | Call 0x1,0x11
034d 6062 |`b | Indirect_Literal Discrete,0x3b0,{0x00000000, 0x00018000}
034e 00ba | | Action Initiate_Delay
034f 0092 041c | | Action Push_String_Extended,0x41c ; "Agent as a server is alive."
0351 e002 | | Load 0x0,0x2
0352 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0353 00db | | Load_Top At_Offset_3
0354 0f01 | | Execute_Immediate Equal,0x1
0355 7002 |p | Jump_Nonzero 0x358
0356 00c9 | | Action Pop_Auxiliary_Loop
0357 7fea | | Jump 0x342
0358 00ce | | Action Pop_Auxiliary
0359 00bb | | Action Signal_Completion
035a 0000 0000 | | .BLANK 0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036c | l | .CONST 0x036c ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0006 | | .CONST 0x0006 ; Number of locals
0363 INIT_0360:
0363 e003 | | Load 0x0,0x3
0364 0322 | " | Declare_Variable Record
0365 e004 | | Load 0x0,0x4
0366 0337 | 7 | Declare_Variable Array
0367 e005 | | Load 0x0,0x5
0368 0337 | 7 | Declare_Variable Array
0369 e006 | | Load 0x0,0x6
036a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
036b 00e1 | | Load_Encached Boolean_Cache
036c BODY_0360:
036c e20f | | Load 0x1,0xf
036d e001 | | Load 0x0,0x1
036e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
036f e402 | | Load 0x2,0x2
0370 017d | } | Execute Record,Structure_Write
0371 e20f | | Load 0x1,0xf
0372 e001 | | Load 0x0,0x1
0373 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0374 00d1 | | Pop_Control Pop_Count_1
0375 00db | | Load_Top At_Offset_3
0376 e402 | | Load 0x2,0x2
0377 4801 |H | Short_Literal 0x1
0378 8007 | | Call 0x0,0x7
0379 00d1 | | Pop_Control Pop_Count_1
037a 00da | | Load_Top At_Offset_2
037b e402 | | Load 0x2,0x2
037c 4802 |H | Short_Literal 0x2
037d 8007 | | Call 0x0,0x7
037e 00d1 | | Pop_Control Pop_Count_1
037f 0092 041d | | Action Push_String_Extended,0x41d ; "Agent is going to treat with "
0381 e403 | | Load 0x2,0x3
0382 01cc | | Execute Vector,Catenate
0383 0092 041e | | Action Push_String_Extended,0x41e ; " and "
0385 01cc | | Execute Vector,Catenate
0386 00db | | Load_Top At_Offset_3
0387 01cc | | Execute Vector,Catenate
0388 e002 | | Load 0x0,0x2
0389 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
038a 00da | | Load_Top At_Offset_2
038b e403 | | Load 0x2,0x3
038c 8008 | | Call 0x0,0x8
038d e006 | | Load 0x0,0x6
038e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
038f 003a | : | Store_Top Access,At_Offset_2
0390 e402 | | Load 0x2,0x2
0391 e009 | | Load 0x0,0x9
0392 4800 |H | Short_Literal 0x0
0393 800a | | Call 0x0,0xa
0394 00d1 | | Pop_Control Pop_Count_1
0395 e402 | | Load 0x2,0x2
0396 0092 0416 | | Action Push_String_Extended,0x416 ; "rjob"
0398 4801 |H | Short_Literal 0x1
0399 800a | | Call 0x0,0xa
039a 00d1 | | Pop_Control Pop_Count_1
039b e402 | | Load 0x2,0x2
039c 0092 0416 | | Action Push_String_Extended,0x416 ; "rjob"
039e 4802 |H | Short_Literal 0x2
039f 800a | | Call 0x0,0xa
03a0 00d1 | | Pop_Control Pop_Count_1
03a1 e402 | | Load 0x2,0x2
03a2 00da | | Load_Top At_Offset_2
03a3 4803 |H | Short_Literal 0x3
03a4 800b | | Call 0x0,0xb
03a5 00d1 | | Pop_Control Pop_Count_1
03a6 e402 | | Load 0x2,0x2
03a7 800c | | Call 0x0,0xc
03a8 00d1 | | Pop_Control Pop_Count_1
03a9 00e1 | | Load_Encached Boolean_Cache
03aa e402 | | Load 0x2,0x2
03ab 48c8 |H | Short_Literal 0xc8
03ac 800d | | Call 0x0,0xd
03ad 0059 | Y | Store_Top Discrete,At_Offset_1
03ae 4501 |E | Exit_Subprogram 0x1
03af 0000 | | .XXX[0x1]
03b0 0000 0000 | | .LITERAL {0x00000000, 0x00018000}
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; See instruction 0x02cf at 0x337, index=0xd
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 4801 |H | Short_Literal 0x1
03bc a210 | | Store_Unchecked 0x1,0x10
03bd 4100 |A | End_Rendezvous 0x0
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; See instruction 0x02cf at 0x337, index=0xe
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 e20f | | Load 0x1,0xf
03c4 e5fe | | Load 0x2,-0x2
03c5 e001 | | Load 0x0,0x1
03c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c7 00d1 | | Pop_Control Pop_Count_1
03c8 0092 041f | | Action Push_String_Extended,0x41f ; "Request added to the request fifo."
03ca e002 | | Load 0x0,0x2
03cb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
03cc 4100 |A | End_Rendezvous 0x0
03cd 0000 0000 | | .XXX[0x3]
03cf 0000 | |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e2 | | .CONST 0x03e2 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0010 | | .CONST 0x0010 ; Number of locals
03d3 INIT_03d0:
03d3 4800 |H | Short_Literal 0x0
03d4 02cb | | Declare_Variable Entry
03d5 00bf | | Action Accept_Activation
03d6 00e1 | | Load_Encached Boolean_Cache
03d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03d8 e001 | | Load 0x0,0x1
03d9 0322 | " | Declare_Variable Record
03da 480d 487f |H H | Declare_Variable Select 0x000, 0x001,
03dc 4801 4800 |H H | [0x001]: 0x000 = 0x0000,
03de 4800 4801 |H H | [0x00d]: 0x07f = 0x03f8
03e0 02cf | |
03e1 00bc | | Action Signal_Activated
03e2 BODY_03d0:
03e2 8002 | | Call 0x0,0x2
03e3 00cf | | Action Mark_Auxiliary
03e4 00d9 | | Load_Top At_Offset_1
03e5 013f | ? | Execute Select,Rendezvous
03e6 4602 |F | Jump_Case 0x2
03e7 780c |x | Jump 0x3f4 ; case 0x0
03e8 7800 |x | Jump 0x3e9 ; case 0x1
03e9 8003 | | Call 0x0,0x3 ; case 0x2
03ea 0f01 | | Execute_Immediate Equal,0x1
03eb 6805 |h | Jump_Zero 0x3f1
03ec 00da | | Load_Top At_Offset_2
03ed 8004 | | Call 0x0,0x4
03ee 00d1 | | Pop_Control Pop_Count_1
03ef 00da | | Load_Top At_Offset_2
03f0 8005 | | Call 0x0,0x5
03f1 00db | | Load_Top At_Offset_3
03f2 0f01 | | Execute_Immediate Equal,0x1
03f3 7002 |p | Jump_Nonzero 0x3f6
03f4 00c9 | | Action Pop_Auxiliary_Loop
03f5 7fee | | Jump 0x3e4
03f6 00ce | | Action Pop_Auxiliary
03f7 00bb | | Action Signal_Completion
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; See instruction 0x02cf at 0x3da, index=0xd
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4801 |H | Short_Literal 0x1
03fc a20e | | Store_Unchecked 0x1,0xe
03fd 4100 |A | End_Rendezvous 0x0
03fe ; --------------------------------------------------------------------------------------
03fe ; STRING TABLE
03fe ; --------------------------------------------------------------------------------------
03fe 0046 | F | .STRTAB 0x0046->0x0421 ; "The connection was closed by the Agent."
03ff 006b | k | .STRTAB 0x006b->0x0434 ; "Letter box's agent disposed."
0400 0085 | | .STRTAB 0x0085->0x0442 ; "Connector's agent disposed."
0401 009e | | .STRTAB 0x009e->0x0450 ; "Server task disposed."
0402 00b1 | | .STRTAB 0x00b1->0x045a ; "Customer task disposed."
0403 00c6 | | .STRTAB 0x00c6->0x0466 ; "Dispatcher task disposed."
0404 00dd | | .STRTAB 0x00dd->0x0472 ; "serv"
; "serv"
0405 00df | | .STRTAB 0x00df->0x0474 ; "regi"
; "regi"
0406 00e1 | | .STRTAB 0x00e1->0x0476 ; "Registration Contract sending was successfull !"
0407 010e | | .STRTAB 0x010e->0x048e ; "Registration Contract sending failed !!!"
0408 0134 | 4 | .STRTAB 0x0134->0x04a2 ; "Happy to unregister"
0409 0145 | E | .STRTAB 0x0145->0x04ab ; "unre"
; "unre"
040a 0147 | G | .STRTAB 0x0147->0x04ad ; "Unregistration Contract sending was successfull !"
040b 0176 | v | .STRTAB 0x0176->0x04c6 ; "Unregistration Contract sending failed !!!"
040c 019e | | .STRTAB 0x019e->0x04db ; "I want you to find a worker for me !"
040d 01c0 | | .STRTAB 0x01c0->0x04ed ; "Ask for a job sending was successfull !"
040e 01e5 | | .STRTAB 0x01e5->0x0500 ; "Ask for a job sending sending failed !!!"
040f 020b | | .STRTAB 0x020b->0x0514 ; "fail"
; "fail"
0410 020d | | .STRTAB 0x020d->0x0516 ; "Generic_Agent is going to initiate its letter box."
0411 023d | = | .STRTAB 0x023d->0x052f ; "Generic_Agent is going to initiate its connector."
0412 026c | l | .STRTAB 0x026c->0x0548 ; "Agent is going to send :"
0413 0282 | | .STRTAB 0x0282->0x0554 ; "Going out of send_mail_to_orb"
0414 029d | | .STRTAB 0x029d->0x0562 ; "DISPATCHER working on "
0415 02b1 | | .STRTAB 0x02b1->0x056d ; " "
0416 02b0 | | .STRTAB 0x02b0->0x056e ; "rjob"
; "rjob"
; "rjob"
0417 02b2 | | .STRTAB 0x02b2->0x0570 ; "ok "
; "ok "
0418 02b4 | | .STRTAB 0x02b4->0x0572 ; "chck"
0419 02b6 | | .STRTAB 0x02b6->0x0574 ; "Agent as a customer is alive."
041a 02d1 | | .STRTAB 0x02d1->0x0582 ; "Job answer extracted from the fifo."
041b 02f2 | | .STRTAB 0x02f2->0x0594 ; "Job answer added to the answer fifo."
041c 0314 | | .STRTAB 0x0314->0x05a6 ; "Agent as a server is alive."
041d 032d | - | .STRTAB 0x032d->0x05b3 ; "Agent is going to treat with "
041e 0348 | H | .STRTAB 0x0348->0x05c2 ; " and "
041f 034b | K | .STRTAB 0x034b->0x05c4 ; "Request added to the request fifo."
0420 036b | k | .STREND 0x036b->0x05d5
0421 5468 6520 |The | .STRTAB_STRINGS
05d6 0000 0000 | | .XXX[0x2]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; Debug Table
05d8 ; --------------------------------------------------------------------------------------
05d8 0004 000a | | .DEBUG4 0x0004,0x000a,0x7b95,0x0000,0x0001,0x001f
05de 000b 065a | Z| .DBG4T 0x000b,0x065a,0xc000,0x8000
05e2 0023 0670 | # p| .DBG4T 0x0023,0x0670,0xc000,0x0000
05e6 00a3 068c | | .DBG4T 0x00a3,0x068c,0x1001,0x0000
05ea 00db 069a | | .DBG4T 0x00db,0x069a,0x1001,0x0000
05ee 010b 06a2 | | .DBG4T 0x010b,0x06a2,0x1001,0x0000
05f2 013b 06aa | ; | .DBG4T 0x013b,0x06aa,0x1002,0x0000
05f6 0143 06ad | C | .DBG4T 0x0143,0x06ad,0x1001,0x0000
05fa 0173 06b5 | s | .DBG4T 0x0173,0x06b5,0x1001,0x0000
05fe 019b 06bf | | .DBG4T 0x019b,0x06bf,0x1002,0x0000
0602 01ab 06c4 | | .DBG4T 0x01ab,0x06c4,0x1001,0x0000
0606 01bb 06c7 | | .DBG4T 0x01bb,0x06c7,0x1001,0x0000
060a 01cb 06ca | | .DBG4T 0x01cb,0x06ca,0x1001,0x0000
060e 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x100b,0x0000
0612 01e3 06cd | | .DBG4T 0x01e3,0x06cd,0x1001,0x0000
0616 01fb 06d4 | | .DBG4T 0x01fb,0x06d4,0x1001,0x0000
061a 022b 06da | + | .DBG4T 0x022b,0x06da,0x1001,0x0000
061e 027b 06eb | { | .DBG4T 0x027b,0x06eb,0x1001,0x0000
0622 02b3 06f7 | | .DBG4T 0x02b3,0x06f7,0x0000,0x0000
0626 02bc 06fd | | .DBG4T 0x02bc,0x06fd,0x0000,0x4000
062a 02e3 0709 | | .DBG4T 0x02e3,0x0709,0x0003,0x0000
062e 02f3 070c | | .DBG4T 0x02f3,0x070c,0x0003,0x0000
0632 0303 070f | | .DBG4T 0x0303,0x070f,0x0003,0x0000
0636 031b 0714 | | .DBG4T 0x031b,0x0714,0x0003,0x0000
063a 032b 0718 | + | .DBG4T 0x032b,0x0718,0x0000,0x0000
063e 0330 071c | 0 | .DBG4T 0x0330,0x071c,0x0000,0x4000
0642 0363 072c | c ,| .DBG4T 0x0363,0x072c,0x0004,0x0000
0646 03bb 073f | ?| .DBG4T 0x03bb,0x073f,0x0003,0x0000
064a 03c3 0742 | B| .DBG4T 0x03c3,0x0742,0x0003,0x0000
064e 03d3 0746 | F| .DBG4T 0x03d3,0x0746,0x0000,0x0000
0652 03d6 0749 | I| .DBG4T 0x03d6,0x0749,0x0000,0x4000
0656 03fb 0759 | Y| .DBG4T 0x03fb,0x0759,0x0003,0x0000
065a ; --------------------------------------------------------------------------------------
065a ; Debug chain
065a ; --------------------------------------------------------------------------------------
065a 000a 0000 | | .DBGLEN 0x000a,0x0000
065c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d
0666 0002 0003 | | .XXX[0xa]
0668 0004 0005 | |
066a 0006 0007 | |
066c 0008 0009 | |
066e 000a 000b | |
0670 ; --------------------------------------------------------------------------------------
0670 ; Debug chain
0670 ; --------------------------------------------------------------------------------------
0670 001a 0000 | | .DBGLEN 0x001a,0x0000
0672 0023 002a | # *| .DBGLNO 0x0023,0x002a,0x002f,0x0030,0x0035,0x0037,0x003d,0x0043,0x0049,0x004b,0x005d,0x005f,0x0061,0x0063,0x0065,0x006e,0x0074,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095
068c ; --------------------------------------------------------------------------------------
068c ; Debug chain
068c ; --------------------------------------------------------------------------------------
068c 0000 000c | | .DBGLEN 0x0000,0x000c
068e 00a3 00a7 | | .DBGLNO 0x00a3,0x00a7,0x00ab,0x00ac,0x00b0,0x00b1,0x00b5,0x00b8,0x00bc,0x00bf,0x00c3,0x00c6
069a ; --------------------------------------------------------------------------------------
069a ; Debug chain
069a ; --------------------------------------------------------------------------------------
069a 0001 0005 | | .DBGLEN 0x0001,0x0005
069c 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00f3,0x00f8,0x00fb,0x0100
06a2 ; --------------------------------------------------------------------------------------
06a2 ; Debug chain
06a2 ; --------------------------------------------------------------------------------------
06a2 0001 0005 | | .DBGLEN 0x0001,0x0005
06a4 010b 010d | | .DBGLNO 0x010b,0x010d,0x0121,0x0126,0x0129,0x012e
06aa ; --------------------------------------------------------------------------------------
06aa ; Debug chain
06aa ; --------------------------------------------------------------------------------------
06aa 0000 0001 | | .DBGLEN 0x0000,0x0001
06ac 013b | ; | .DBGLNO 0x013b
06ad ; --------------------------------------------------------------------------------------
06ad ; Debug chain
06ad ; --------------------------------------------------------------------------------------
06ad 0001 0005 | | .DBGLEN 0x0001,0x0005
06af 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0157,0x015c,0x015f,0x0164
06b5 ; --------------------------------------------------------------------------------------
06b5 ; Debug chain
06b5 ; --------------------------------------------------------------------------------------
06b5 0002 0006 | | .DBGLEN 0x0002,0x0006
06b7 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0177,0x017c,0x0181,0x0186,0x018b,0x0191
06bf ; --------------------------------------------------------------------------------------
06bf ; Debug chain
06bf ; --------------------------------------------------------------------------------------
06bf 0001 0002 | | .DBGLEN 0x0001,0x0002
06c1 019b 019c | | .DBGLNO 0x019b,0x019c,0x01a1
06c4 ; --------------------------------------------------------------------------------------
06c4 ; Debug chain
06c4 ; --------------------------------------------------------------------------------------
06c4 0000 0001 | | .DBGLEN 0x0000,0x0001
06c6 01ab | | .DBGLNO 0x01ab
06c7 ; --------------------------------------------------------------------------------------
06c7 ; Debug chain
06c7 ; --------------------------------------------------------------------------------------
06c7 0000 0001 | | .DBGLEN 0x0000,0x0001
06c9 01bb | | .DBGLNO 0x01bb
06ca ; --------------------------------------------------------------------------------------
06ca ; Debug chain
06ca ; --------------------------------------------------------------------------------------
06ca 0000 0001 | | .DBGLEN 0x0000,0x0001
06cc 01cb | | .DBGLNO 0x01cb
06cd ; --------------------------------------------------------------------------------------
06cd ; Debug chain
06cd ; --------------------------------------------------------------------------------------
06cd 0000 0005 | | .DBGLEN 0x0000,0x0005
06cf 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01e8,0x01ec,0x01ee
06d4 ; --------------------------------------------------------------------------------------
06d4 ; Debug chain
06d4 ; --------------------------------------------------------------------------------------
06d4 0000 0004 | | .DBGLEN 0x0000,0x0004
06d6 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0203,0x0222
06da ; --------------------------------------------------------------------------------------
06da ; Debug chain
06da ; --------------------------------------------------------------------------------------
06da 0002 000d | | .DBGLEN 0x0002,0x000d
06dc 022b 022d | + -| .DBGLNO 0x022b,0x022d,0x022f,0x0234,0x0239,0x0244,0x0249,0x024e,0x0253,0x0258,0x025b,0x0260,0x0265,0x0268,0x026d
06eb ; --------------------------------------------------------------------------------------
06eb ; Debug chain
06eb ; --------------------------------------------------------------------------------------
06eb 0002 0008 | | .DBGLEN 0x0002,0x0008
06ed 027b 027f | { | .DBGLNO 0x027b,0x027f,0x0283,0x0288,0x028d,0x0292,0x0297,0x029c,0x02a1,0x02a6
06f7 ; --------------------------------------------------------------------------------------
06f7 ; Debug chain
06f7 ; --------------------------------------------------------------------------------------
06f7 0004 0000 | | .DBGLEN 0x0004,0x0000
06f9 02b3 02b5 | | .DBGLNO 0x02b3,0x02b5,0x02b7,0x02b9
06fd ; --------------------------------------------------------------------------------------
06fd ; Debug chain
06fd ; --------------------------------------------------------------------------------------
06fd 0002 0004 | | .DBGLEN 0x0002,0x0004
06ff 02bc 02bf | | .DBGLNO 0x02bc,0x02bf,0x02d0,0x02d3,0x02d5,0x02d9
0705 0002 0007 | | .XXX[0x4]
0707 0008 0009 | |
0709 ; --------------------------------------------------------------------------------------
0709 ; Debug chain
0709 ; --------------------------------------------------------------------------------------
0709 0000 0001 | | .DBGLEN 0x0000,0x0001
070b 02e3 | | .DBGLNO 0x02e3
070c ; --------------------------------------------------------------------------------------
070c ; Debug chain
070c ; --------------------------------------------------------------------------------------
070c 0000 0001 | | .DBGLEN 0x0000,0x0001
070e 02f3 | | .DBGLNO 0x02f3
070f ; --------------------------------------------------------------------------------------
070f ; Debug chain
070f ; --------------------------------------------------------------------------------------
070f 0000 0003 | | .DBGLEN 0x0000,0x0003
0711 0303 0308 | | .DBGLNO 0x0303,0x0308,0x030c
0714 ; --------------------------------------------------------------------------------------
0714 ; Debug chain
0714 ; --------------------------------------------------------------------------------------
0714 0000 0002 | | .DBGLEN 0x0000,0x0002
0716 031b 0320 | | .DBGLNO 0x031b,0x0320
0718 ; --------------------------------------------------------------------------------------
0718 ; Debug chain
0718 ; --------------------------------------------------------------------------------------
0718 0002 0000 | | .DBGLEN 0x0002,0x0000
071a 032b 032d | + -| .DBGLNO 0x032b,0x032d
071c ; --------------------------------------------------------------------------------------
071c ; Debug chain
071c ; --------------------------------------------------------------------------------------
071c 0002 0006 | | .DBGLEN 0x0002,0x0006
071e 0330 0333 | 0 3| .DBGLNO 0x0330,0x0333,0x0342,0x0348,0x034c,0x034d,0x034f,0x0353
0726 0002 0005 | | .XXX[0x6]
0728 0006 0007 | |
072a 0008 0009 | |
072c ; --------------------------------------------------------------------------------------
072c ; Debug chain
072c ; --------------------------------------------------------------------------------------
072c 0005 000c | | .DBGLEN 0x0005,0x000c
072e 0363 0365 | c e| .DBGLNO 0x0363,0x0365,0x0367,0x0369,0x036b,0x036c,0x0371,0x0375,0x037a,0x037f,0x038a,0x0390,0x0395,0x039b,0x03a1,0x03a6,0x03a9
073f ; --------------------------------------------------------------------------------------
073f ; Debug chain
073f ; --------------------------------------------------------------------------------------
073f 0000 0001 | | .DBGLEN 0x0000,0x0001
0741 03bb | | .DBGLNO 0x03bb
0742 ; --------------------------------------------------------------------------------------
0742 ; Debug chain
0742 ; --------------------------------------------------------------------------------------
0742 0000 0002 | | .DBGLEN 0x0000,0x0002
0744 03c3 03c8 | | .DBGLNO 0x03c3,0x03c8
0746 ; --------------------------------------------------------------------------------------
0746 ; Debug chain
0746 ; --------------------------------------------------------------------------------------
0746 0001 0000 | | .DBGLEN 0x0001,0x0000
0748 03d3 | | .DBGLNO 0x03d3
0749 ; --------------------------------------------------------------------------------------
0749 ; Debug chain
0749 ; --------------------------------------------------------------------------------------
0749 0002 0006 | | .DBGLEN 0x0002,0x0006
074b 03d6 03d8 | | .DBGLNO 0x03d6,0x03d8,0x03e2,0x03e4,0x03e9,0x03ec,0x03ef,0x03f1
0753 0001 0003 | | .XXX[0x6]
0755 0005 0006 | |
0757 0007 0008 | |
0759 ; --------------------------------------------------------------------------------------
0759 ; Debug chain
0759 ; --------------------------------------------------------------------------------------
0759 0000 0001 | | .DBGLEN 0x0000,0x0001
075b 03fb | | .DBGLNO 0x03fb
075c 0000 0000 | | .BLANK 0000[0xa4]