|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a8cec
└─⟦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 0358 | X | .CONST 0x0358 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003f | ? | .CONST 0x003f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0016 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0018 00bf | | Action Accept_Activation
0019 4801 |H | Short_Literal 0x1
001a 4806 |H | Short_Literal 0x6
001b 00e9 | | Load_Encached String_Cache
001c 0334 | 4 | Declare_Variable Array,With_Constraint
001d 5052 |PR | Indirect_Literal Any,0x70,{0x5443502f, 0x49502020}
001e 4800 |H | Short_Literal 0x0
001f 0093 0153 | S| push_full_address INIT_0150
0021 00f5 | | Load_Encached Unused21
0022 037d | } | Declare_Type Task,Defined
0023 036f | o | Declare_Variable Task
0024 e002 | | Load 0x0,0x2
0025 e003 | | Load 0x0,0x3
0026 e004 | | Load 0x0,0x4
0027 e005 | | Load 0x0,0x5
0028 e006 | | Load 0x0,0x6
0029 e007 | | Load 0x0,0x7
002a e008 | | Load 0x0,0x8
002b e009 | | Load 0x0,0x9
002c e00a | | Load 0x0,0xa
002d a00b | | Store_Unchecked 0x0,0xb
002e e00c | | Load 0x0,0xc
002f e00d | | Load 0x0,0xd
0030 a00e | | Store_Unchecked 0x0,0xe
0031 a00f | | Store_Unchecked 0x0,0xf
0032 a010 | | Store_Unchecked 0x0,0x10
0033 480f |H | Short_Literal 0xf
0034 e213 | | Load 0x1,0x13
0035 020e | | Execute Module,Augment_Imports
0036 0007 | | Action Break_Optional
0037 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0038 00c7 | | Action Elaborate_Subprogram
0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003a 00c7 | | Action Elaborate_Subprogram
003b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003c 00c7 | | Action Elaborate_Subprogram
003d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003e 00c7 | | Action Elaborate_Subprogram
003f BODY_0008:
003f 00be | | Action Activate_Tasks
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4607 |F | Jump_Case 0x8
004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
004d 7807 |x | Jump 0x55 ; case 0x1
004e 780a |x | Jump 0x59 ; case 0x2
004f 780e |x | Jump 0x5e ; case 0x3
0050 7811 |x | Jump 0x62 ; case 0x4
0051 7812 |x | Jump 0x64 ; case 0x5
0052 7813 |x | Jump 0x66 ; case 0x6
0053 7816 |x | Jump 0x6a ; case 0x7
0054 4302 |C | .XXX[0x1]
0055 00da | | Load_Top At_Offset_2
0056 0091 028f | | Action Push_String_Extended_Indexed,0x28f ; "OK"
0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0059 00db | | Load_Top At_Offset_3
005a 00db | | Load_Top At_Offset_3
005b 00e0 | | Load_Encached Standard_Cache
005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005e 00da | | Load_Top At_Offset_2
005f 00e0 | | Load_Encached Standard_Cache
0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0062 00db | | Load_Top At_Offset_3
0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0064 00db | | Load_Top At_Offset_3
0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0066 e20d | | Load 0x1,0xd
0067 00dc | | Load_Top At_Offset_4
0068 0267 | g | Execute Discrete,Predecessor
0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006a e20d | | Load 0x1,0xd
006b 00dc | | Load_Top At_Offset_4
006c 0268 | h | Execute Discrete,Successor
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e 0000 0000 | | .XXX[0x2]
0070 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0074 0000 0000 | | .BLANK 0000[0x4]
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 e20d | | Load 0x1,0xd
007c 00db | | Load_Top At_Offset_3
007d 4802 |H | Short_Literal 0x2
007e e213 | | Load 0x1,0x13
007f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0080 c5fe | | Store 0x2,-0x2
0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d | | .CONST 0x008d ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e006 | | Load 0x0,0x6
008c 0322 | " | Declare_Variable Record
008d BODY_0088:
008d 00d8 | | Load_Top At_Offset_0
008e 4801 |H | Short_Literal 0x1
008f e213 | | Load 0x1,0x13
0090 170e | | Execute Task,Entry_Call,Field_Number 0xe
0091 00d1 | | Pop_Control Pop_Count_1
0092 00d8 | | Load_Top At_Offset_0
0093 00ca | | Action Exit_Nullary_Function
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a3 | | .CONST 0x00a3 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0004 | | .CONST 0x0004 ; Number of locals
009b INIT_0098:
009b e008 | | Load 0x0,0x8
009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009d 02c7 | | Declare_Variable Any
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 e009 | | Load 0x0,0x9
00a1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a2 00e3 | | Load_Encached Natural_Cache
00a3 BODY_0098:
00a3 4800 |H | Short_Literal 0x0
00a4 a5fc | | Store_Unchecked 0x2,-0x4
00a5 e009 | | Load 0x0,0x9
00a6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a7 00db | | Load_Top At_Offset_3
00a8 0120 | | Execute Any,Is_Value
00a9 6803 |h | Jump_Zero 0xad
00aa e008 | | Load 0x0,0x8
00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ac 7801 |x | Jump 0xae
00ad 00db | | Load_Top At_Offset_3
00ae e009 | | Load 0x0,0x9
00af 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b0 e212 | | Load 0x1,0x12
00b1 e008 | | Load 0x0,0x8
00b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b3 c402 | | Store 0x2,0x2
00b4 005a | Z | Store_Top Discrete,At_Offset_2
00b5 00d9 | | Load_Top At_Offset_1
00b6 680b |h | Jump_Zero 0xc2
00b7 4801 |H | Short_Literal 0x1
00b8 a5fc | | Store_Unchecked 0x2,-0x4
00b9 0092 0292 | | Action Push_String_Extended,0x292 ; "Communication Send Open error => "
00bb 00da | | Load_Top At_Offset_2
00bc e009 | | Load 0x0,0x9
00bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00be 01cc | | Execute Vector,Catenate
00bf e00c | | Load 0x0,0xc
00c0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c2 00cf | | Action Mark_Auxiliary
00c3 480a |H | Short_Literal 0xa
00c4 4801 |H | Short_Literal 0x1
00c5 0007 | | Action Break_Optional
00c6 e009 | | Load 0x0,0x9
00c7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00c8 605f |`_ | Indirect_Literal Discrete,0x128,{0x00000000, 0x00050000}
00c9 e5fd | | Load 0x2,-0x3
00ca e5fe | | Load 0x2,-0x2
00cb e402 | | Load 0x2,0x2
00cc e008 | | Load 0x0,0x8
00cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ce c403 | | Store 0x2,0x3
00cf e403 | | Load 0x2,0x3
00d0 7006 |p | Jump_Nonzero 0xd7
00d1 0092 0293 | | Action Push_String_Extended,0x293 ; "Communication Send Connect => Ok"
00d3 e00c | | Load 0x0,0xc
00d4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d5 00d2 | | Pop_Control Pop_Count_2
00d6 7821 |x! | Jump 0xf8
00d7 00d8 | | Load_Top At_Offset_0
00d8 0f0a | | Execute_Immediate Equal,0xa
00d9 680e |h | Jump_Zero 0xe8
00da 4801 |H | Short_Literal 0x1
00db a5fc | | Store_Unchecked 0x2,-0x4
00dc e402 | | Load 0x2,0x2
00dd e008 | | Load 0x0,0x8
00de 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00df 0092 0294 | | Action Push_String_Extended,0x294 ; "Communication Send Connect error => "
00e1 e403 | | Load 0x2,0x3
00e2 e009 | | Load 0x0,0x9
00e3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00e4 01cc | | Execute Vector,Catenate
00e5 e00c | | Load 0x0,0xc
00e6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e8 0092 0295 | | Action Push_String_Extended,0x295 ; "Communication Send Connect error => "
00ea e403 | | Load 0x2,0x3
00eb e009 | | Load 0x0,0x9
00ec 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ed 01cc | | Execute Vector,Catenate
00ee e00c | | Load 0x0,0xc
00ef 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f0 6033 |`3 | Indirect_Literal Discrete,0x124,{0x00000000, 0x00028000}
00f1 00ba | | Action Initiate_Delay
00f2 0092 0296 | | Action Push_String_Extended,0x296 ; "Communication Send Connect Next retry"
00f4 e00c | | Load 0x0,0xc
00f5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f6 00c8 | | Action Pop_Auxiliary_Range
00f7 3fce |? | Loop_Increasing 0xc6
00f8 00ce | | Action Pop_Auxiliary
00f9 00e3 | | Load_Encached Natural_Cache
00fa e009 | | Load 0x0,0x9
00fb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00fc 4800 |H | Short_Literal 0x0
00fd 6022 |`" | Indirect_Literal Discrete,0x120,{0x00007fff, 0xffffffff}
00fe e5ff | | Load 0x2,-0x1
00ff 800f | | Call 0x0,0xf
0100 e00d | | Load 0x0,0xd
0101 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0102 e402 | | Load 0x2,0x2
0103 e008 | | Load 0x0,0x8
0104 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0105 005b | [ | Store_Top Discrete,At_Offset_3
0106 0059 | Y | Store_Top Discrete,At_Offset_1
0107 00d9 | | Load_Top At_Offset_1
0108 7005 |p | Jump_Nonzero 0x10e
0109 0092 0297 | | Action Push_String_Extended,0x297 ; "Communication Send Transmit => Ok"
010b e00c | | Load 0x0,0xc
010c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010d 780d |x | Jump 0x11b
010e 4801 |H | Short_Literal 0x1
010f a5fc | | Store_Unchecked 0x2,-0x4
0110 00da | | Load_Top At_Offset_2
0111 e008 | | Load 0x0,0x8
0112 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0113 0092 0298 | | Action Push_String_Extended,0x298 ; "Communication Send Transmit error => "
0115 00da | | Load_Top At_Offset_2
0116 e009 | | Load 0x0,0x9
0117 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0118 01cc | | Execute Vector,Catenate
0119 e00c | | Load 0x0,0xc
011a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
011b 00da | | Load_Top At_Offset_2
011c e008 | | Load 0x0,0x8
011d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
011e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
011f 0000 | | .XXX[0x1]
0120 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0124 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0128 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0134 | 4 | .CONST 0x0134 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 00e1 | | Load_Encached Boolean_Cache
0134 BODY_0130:
0134 00e1 | | Load_Encached Boolean_Cache
0135 4801 |H | Short_Literal 0x1
0136 e213 | | Load 0x1,0x13
0137 1710 | | Execute Task,Entry_Call,Field_Number 0x10
0138 0059 | Y | Store_Top Discrete,At_Offset_1
0139 00d8 | | Load_Top At_Offset_0
013a 0f01 | | Execute_Immediate Equal,0x1
013b 6808 |h | Jump_Zero 0x144
013c 00db | | Load_Top At_Offset_3
013d 4801 |H | Short_Literal 0x1
013e e213 | | Load 0x1,0x13
013f 170f | | Execute Task,Entry_Call,Field_Number 0xf
0140 00d1 | | Pop_Control Pop_Count_1
0141 4800 |H | Short_Literal 0x0
0142 a5fe | | Store_Unchecked 0x2,-0x2
0143 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0144 0092 0299 | | Action Push_String_Extended,0x299 ; "RIEN"
0146 800e | | Call 0x0,0xe
0147 e5ff | | Load 0x2,-0x1
0148 016d | m | Execute Variant_Record,Structure_Write
0149 4802 |H | Short_Literal 0x2
014a a5fe | | Store_Unchecked 0x2,-0x2
014b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0194 | | .CONST 0x0194 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 001c | | .CONST 0x001c ; Number of locals
0153 INIT_0150:
0153 4802 |H | Short_Literal 0x2
0154 02cb | | Declare_Variable Entry
0155 4801 |H | Short_Literal 0x1
0156 02cb | | Declare_Variable Entry
0157 4801 |H | Short_Literal 0x1
0158 02cb | | Declare_Variable Entry
0159 4801 |H | Short_Literal 0x1
015a 02cb | | Declare_Variable Entry
015b 4800 |H | Short_Literal 0x0
015c 02cb | | Declare_Variable Entry
015d 00bf | | Action Accept_Activation
015e e001 | | Load 0x0,0x1
015f e002 | | Load 0x0,0x2
0160 e003 | | Load 0x0,0x3
0161 e004 | | Load 0x0,0x4
0162 0387 | | Declare_Variable Package
0163 00d8 | | Load_Top At_Offset_0
0164 020f | | Execute Module,Activate
0165 00d8 | | Load_Top At_Offset_0
0166 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0167 0322 | " | Declare_Variable Record
0168 e005 | | Load 0x0,0x5
0169 0322 | " | Declare_Variable Record
016a e006 | | Load 0x0,0x6
016b 00d9 | | Load_Top At_Offset_1
016c 017d | } | Execute Record,Structure_Write
016d e007 | | Load 0x0,0x7
016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016f 02c7 | | Declare_Variable Any
0170 00d8 | | Load_Top At_Offset_0
0171 1c00 | | Execute_Immediate Run_Utility,0x0
0172 e008 | | Load 0x0,0x8
0173 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0174 4801 |H | Short_Literal 0x1
0175 4802 |H | Short_Literal 0x2
0176 e008 | | Load 0x0,0x8
0177 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0178 035b | [ | Declare_Type Array,Constrained
0179 0337 | 7 | Declare_Variable Array
017a e003 | | Load 0x0,0x3
017b 02ff | | Declare_Variable Variant_Record
017c 00d8 | | Load_Top At_Offset_0
017d 1c00 | | Execute_Immediate Run_Utility,0x0
017e 4801 |H | Short_Literal 0x1
017f 4be8 |K | Short_Literal 0x3e8
0180 e009 | | Load 0x0,0x9
0181 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0182 035b | [ | Declare_Type Array,Constrained
0183 0337 | 7 | Declare_Variable Array
0184 00e3 | | Load_Encached Natural_Cache
0185 480d |H | Short_Literal 0xd
0186 0299 020b | | Declare_Subprogram INIT_0208,For_Accept
0188 4810 484d |H HM| Declare_Variable Select 0x000, 0x003,
018a 480f 484f |H HO| [0x001]: 0x000 = 0x0000,
018c 480e 4851 |H HQ| [0x00e]: 0x051 = 0x0288,
018e 4801 4800 |H H | [0x00f]: 0x04f = 0x0278,
0190 4800 4803 |H H | [0x010]: 0x04d = 0x0268
0192 02cf | |
0193 00bc | | Action Signal_Activated
0194 BODY_0150:
0194 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0195 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0196 0137 | 7 | Execute Entry,Rendezvous
0197 e214 | | Load 0x1,0x14
0198 e215 | | Load 0x1,0x15
0199 e007 | | Load 0x0,0x7
019a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
019b 4801 |H | Short_Literal 0x1
019c 4806 |H | Short_Literal 0x6
019d 00e9 | | Load_Encached String_Cache
019e 0334 | 4 | Declare_Variable Array,With_Constraint
019f 50b8 |P | Indirect_Literal Any,0x258,{0x5443502f, 0x49502020}
01a0 e007 | | Load 0x0,0x7
01a1 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a2 800a | | Call 0x0,0xa
01a3 00d1 | | Pop_Control Pop_Count_1
01a4 00cf | | Action Mark_Auxiliary
01a5 00e1 | | Load_Encached Boolean_Cache
01a6 4800 |H | Short_Literal 0x0
01a7 c21e | | Store 0x1,0x1e
01a8 00e7 | | Load_Encached Duration_Cache
01a9 00e3 | | Load_Encached Natural_Cache
01aa 60a9 |` | Indirect_Literal Discrete,0x254,{0x00000000, 0x00010000}
01ab 00db | | Load_Top At_Offset_3
01ac 7002 |p | Jump_Nonzero 0x1af
01ad c21f | | Store 0x1,0x1f
01ae 7805 |x | Jump 0x1b4
01af 00d8 | | Load_Top At_Offset_0
01b0 00db | | Load_Top At_Offset_3
01b1 027c | | | Execute Discrete,Less
01b2 6806 |h | Jump_Zero 0x1b9
01b3 c21f | | Store 0x1,0x1f
01b4 4801 |H | Short_Literal 0x1
01b5 c21e | | Store 0x1,0x1e
01b6 4803 |H | Short_Literal 0x3
01b7 c220 | | Store 0x1,0x20
01b8 7801 |x | Jump 0x1ba
01b9 00d1 | | Pop_Control Pop_Count_1
01ba 00da | | Load_Top At_Offset_2
01bb 00d8 | | Load_Top At_Offset_0
01bc e21c | | Load 0x1,0x1c
01bd 013e | > | Execute Select,Timed_Guard_Write
01be 6804 |h | Jump_Zero 0x1c3
01bf 00d8 | | Load_Top At_Offset_0
01c0 00da | | Load_Top At_Offset_2
01c1 e21c | | Load 0x1,0x1c
01c2 013d | = | Execute Select,Timed_Duration_Write
01c3 00d3 | | Pop_Control Pop_Count_3
01c4 00d9 | | Load_Top At_Offset_1
01c5 013f | ? | Execute Select,Rendezvous
01c6 4604 |F | Jump_Case 0x5
01c7 783c |x< | Jump 0x204 ; case 0x0
01c8 783b |x; | Jump 0x204 ; case 0x1
01c9 783a |x: | Jump 0x204 ; case 0x2
01ca 7800 |x | Jump 0x1cb ; case 0x3
01cb 0092 029a | | Action Push_String_Extended,0x29a ; "try to connect"
; case 0x4
01cd e00b | | Load 0x0,0xb
01ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01cf e008 | | Load 0x0,0x8
01d0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01d1 607e |`~ | Indirect_Literal Discrete,0x250,{0x00000000, 0x00050000}
01d2 e215 | | Load 0x1,0x15
01d3 e007 | | Load 0x0,0x7
01d4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01d5 c216 | | Store 0x1,0x16
01d6 e216 | | Load 0x1,0x16
01d7 702c |p, | Jump_Nonzero 0x204
01d8 0092 029b | | Action Push_String_Extended,0x29b ; "Connect Ok"
01da e00b | | Load 0x0,0xb
01db 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01dc 00e3 | | Load_Encached Natural_Cache
01dd e219 | | Load 0x1,0x19
01de e008 | | Load 0x0,0x8
01df 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01e0 606b |`k | Indirect_Literal Discrete,0x24c,{0x00007fff, 0xffffffff}
01e1 e215 | | Load 0x1,0x15
01e2 e007 | | Load 0x0,0x7
01e3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01e4 c216 | | Store 0x1,0x16
01e5 00d1 | | Pop_Control Pop_Count_1
01e6 c21a | | Store 0x1,0x1a
01e7 4801 |H | Short_Literal 0x1
01e8 e21a | | Load 0x1,0x1a
01e9 00d8 | | Load_Top At_Offset_0
01ea 00e2 | | Load_Encached Integer_Cache
01eb 0260 | ` | Execute Discrete,In_Type
01ec 7001 |p | Jump_Nonzero 0x1ee
01ed 0801 | | Execute_Immediate Raise,0x1
01ee e219 | | Load 0x1,0x19
01ef 01cf | | Execute Vector,Slice_Read
01f0 e00c | | Load 0x0,0xc
01f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f2 800d | | Call 0x0,0xd
01f3 e218 | | Load 0x1,0x18
01f4 016d | m | Execute Variant_Record,Structure_Write
01f5 e213 | | Load 0x1,0x13
01f6 e218 | | Load 0x1,0x18
01f7 e212 | | Load 0x1,0x12
01f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f9 00d1 | | Pop_Control Pop_Count_1
01fa 0092 029c | | Action Push_String_Extended,0x29c ; "Ajout message a la file d'attente :"
01fc e218 | | Load 0x1,0x18
01fd 800e | | Call 0x0,0xe
01fe 01cc | | Execute Vector,Catenate
01ff e00b | | Load 0x0,0xb
0200 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0201 e215 | | Load 0x1,0x15
0202 e007 | | Load 0x0,0x7
0203 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0204 00c9 | | Action Pop_Auxiliary_Loop
0205 7f9f | | Jump 0x1a5
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3
020c e214 | | Load 0x1,0x14
020d 017d | } | Execute Record,Structure_Write
020e 00db | | Load_Top At_Offset_3
020f e006 | | Load 0x0,0x6
0210 017f | | Execute Record,Equal
0211 6815 |h | Jump_Zero 0x227
0212 e008 | | Load 0x0,0x8
0213 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0214 e215 | | Load 0x1,0x15
0215 0120 | | Execute Any,Is_Value
0216 6803 |h | Jump_Zero 0x21a
0217 e007 | | Load 0x0,0x7
0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0219 7801 |x | Jump 0x21b
021a e215 | | Load 0x1,0x15
021b e008 | | Load 0x0,0x8
021c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
021d 4801 |H | Short_Literal 0x1
021e 4806 |H | Short_Literal 0x6
021f 00e9 | | Load_Encached String_Cache
0220 0334 | 4 | Declare_Variable Array,With_Constraint
0221 503a |P: | Indirect_Literal Any,0x25c,{0x5443502f, 0x49502020}
0222 e007 | | Load 0x0,0x7
0223 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0224 c215 | | Store 0x1,0x15
0225 c216 | | Store 0x1,0x16
0226 7814 |x | Jump 0x23b
0227 e008 | | Load 0x0,0x8
0228 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0229 e215 | | Load 0x1,0x15
022a 0120 | | Execute Any,Is_Value
022b 6803 |h | Jump_Zero 0x22f
022c e007 | | Load 0x0,0x7
022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022e 7801 |x | Jump 0x230
022f e215 | | Load 0x1,0x15
0230 e5fe | | Load 0x2,-0x2
0231 800f | | Call 0x0,0xf
0232 4801 |H | Short_Literal 0x1
0233 4806 |H | Short_Literal 0x6
0234 00e9 | | Load_Encached String_Cache
0235 0334 | 4 | Declare_Variable Array,With_Constraint
0236 5029 |P) | Indirect_Literal Any,0x260,{0x5443502f, 0x49502020}
0237 e007 | | Load 0x0,0x7
0238 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0239 c215 | | Store 0x1,0x15
023a c216 | | Store 0x1,0x16
023b e216 | | Load 0x1,0x16
023c 680b |h | Jump_Zero 0x248
023d 4801 |H | Short_Literal 0x1
023e a5fd | | Store_Unchecked 0x2,-0x3
023f 0092 029d | | Action Push_String_Extended,0x29d ; "Communication Init error => "
0241 e216 | | Load 0x1,0x16
0242 e008 | | Load 0x0,0x8
0243 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0244 01cc | | Execute Vector,Catenate
0245 e00b | | Load 0x0,0xb
0246 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0247 4101 |A | End_Rendezvous 0x1
0248 4800 |H | Short_Literal 0x0
0249 a5fd | | Store_Unchecked 0x2,-0x3
024a 4101 |A | End_Rendezvous 0x1
024b 0000 | | .XXX[0x1]
024c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0250 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
0254 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
0258 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
025c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0260 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; See instruction 0x02cf at 0x188, index=0x10
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e213 | | Load 0x1,0x13
026c e212 | | Load 0x1,0x12
026d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
026e 0f00 | | Execute_Immediate Equal,0x0
026f a5fe | | Store_Unchecked 0x2,-0x2
0270 4101 |A | End_Rendezvous 0x1
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; See instruction 0x02cf at 0x188, index=0xf
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e213 | | Load 0x1,0x13
027c e212 | | Load 0x1,0x12
027d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
027e e5fe | | Load 0x2,-0x2
027f 016d | m | Execute Variant_Record,Structure_Write
0280 e213 | | Load 0x1,0x13
0281 e212 | | Load 0x1,0x12
0282 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0283 4101 |A | End_Rendezvous 0x1
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; See instruction 0x02cf at 0x188, index=0xe
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e214 | | Load 0x1,0x14
028c e5fe | | Load 0x2,-0x2
028d 017d | } | Execute Record,Structure_Write
028e 4101 |A | End_Rendezvous 0x1
028f ; --------------------------------------------------------------------------------------
028f ; STRING TABLE
028f ; --------------------------------------------------------------------------------------
028f 0020 | | .STRTAB 0x0020->0x029f ; "OK"
0290 0020 | | .STRTAB 0x0020->0x02a0 ; "FAILED"
0291 0024 | $ | .STRTAB 0x0024->0x02a3 ; "NO_MESSAGE"
0292 002c | , | .STRTAB 0x002c->0x02a8 ; "Communication Send Open error => "
0293 004b | K | .STRTAB 0x004b->0x02b8 ; "Communication Send Connect => Ok"
0294 0069 | i | .STRTAB 0x0069->0x02c8 ; "Communication Send Connect error => "
0295 008b | | .STRTAB 0x008b->0x02da ; "Communication Send Connect error => "
0296 00ae | | .STRTAB 0x00ae->0x02ed ; "Communication Send Connect Next retry"
0297 00d1 | | .STRTAB 0x00d1->0x02ff ; "Communication Send Transmit => Ok"
0298 00f0 | | .STRTAB 0x00f0->0x0310 ; "Communication Send Transmit error => "
0299 0114 | | .STRTAB 0x0114->0x0323 ; "RIEN"
029a 0116 | | .STRTAB 0x0116->0x0325 ; "try to connect"
029b 0122 | " | .STRTAB 0x0122->0x032c ; "Connect Ok"
029c 012a | * | .STRTAB 0x012a->0x0331 ; "Ajout message a la file d'attente :"
029d 014b | K | .STRTAB 0x014b->0x0342 ; "Communication Init error => "
029e 0165 | e | .STREND 0x0165->0x0350
029f 4f4b 4641 |OKFA| .STRTAB_STRINGS
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0004 000a | | .DEBUG4 0x0004,0x000a,0x8d4e,0x0000,0x0001,0x000d
035e 000b 0392 | | .DBG4T 0x000b,0x0392,0x8000,0x0000
0362 0019 0399 | | .DBG4T 0x0019,0x0399,0x8000,0x8000
0366 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000
036a 007b 03a9 | { | .DBG4T 0x007b,0x03a9,0x0001,0x0000
036e 008b 03ac | | .DBG4T 0x008b,0x03ac,0x0002,0x0000
0372 009b 03b1 | | .DBG4T 0x009b,0x03b1,0x0001,0x0000
0376 0133 03d0 | 3 | .DBG4T 0x0133,0x03d0,0x0001,0x0000
037a 0153 03d9 | S | .DBG4T 0x0153,0x03d9,0x0000,0x0000
037e 015e 03e0 | ^ | .DBG4T 0x015e,0x03e0,0x0000,0x4000
0382 020b 0403 | | .DBG4T 0x020b,0x0403,0x0003,0x0000
0386 026b 040d | k | .DBG4T 0x026b,0x040d,0x0003,0x0000
038a 027b 0410 | { | .DBG4T 0x027b,0x0410,0x0003,0x0000
038e 028b 0414 | | .DBG4T 0x028b,0x0414,0x0003,0x0000
0392 ; --------------------------------------------------------------------------------------
0392 ; Debug chain
0392 ; --------------------------------------------------------------------------------------
0392 0005 0000 | | .DBGLEN 0x0005,0x0000
0394 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016
0399 ; --------------------------------------------------------------------------------------
0399 ; Debug chain
0399 ; --------------------------------------------------------------------------------------
0399 0007 0000 | | .DBGLEN 0x0007,0x0000
039b 0019 001e | | .DBGLNO 0x0019,0x001e,0x0024,0x0037,0x0039,0x003b,0x003d
03a2 0003 0004 | | .XXX[0x7]
03a4 0005 0006 | |
03a6 0007 0008 | |
03a8 0009 | |
03a9 ; --------------------------------------------------------------------------------------
03a9 ; Debug chain
03a9 ; --------------------------------------------------------------------------------------
03a9 0000 0001 | | .DBGLEN 0x0000,0x0001
03ab 007b | { | .DBGLNO 0x007b
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug chain
03ac ; --------------------------------------------------------------------------------------
03ac 0001 0002 | | .DBGLEN 0x0001,0x0002
03ae 008b 008d | | .DBGLNO 0x008b,0x008d,0x0092
03b1 ; --------------------------------------------------------------------------------------
03b1 ; Debug chain
03b1 ; --------------------------------------------------------------------------------------
03b1 0003 001a | | .DBGLEN 0x0003,0x001a
03b3 009b 00a0 | | .DBGLNO 0x009b,0x00a0,0x00a2,0x00a3,0x00a5,0x00b5,0x00b7,0x00b9,0x00c1,0x00c3,0x00c6,0x00cf,0x00d1,0x00d5,0x00d7,0x00da,0x00dc,0x00df,0x00e7,0x00e8,0x00f0,0x00f2,0x00f9,0x0107,0x0109,0x010e,0x0110,0x0113,0x011b
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug chain
03d0 ; --------------------------------------------------------------------------------------
03d0 0001 0006 | | .DBGLEN 0x0001,0x0006
03d2 0133 0134 | 3 4| .DBGLNO 0x0133,0x0134,0x0139,0x013c,0x0141,0x0144,0x0149
03d9 ; --------------------------------------------------------------------------------------
03d9 ; Debug chain
03d9 ; --------------------------------------------------------------------------------------
03d9 0005 0000 | | .DBGLEN 0x0005,0x0000
03db 0153 0155 | S U| .DBGLNO 0x0153,0x0155,0x0157,0x0159,0x015b
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug chain
03e0 ; --------------------------------------------------------------------------------------
03e0 0009 000c | | .DBGLEN 0x0009,0x000c
03e2 015e 0165 | ^ e| .DBGLNO 0x015e,0x0165,0x0168,0x016d,0x0172,0x0174,0x017a,0x017e,0x0184,0x0194,0x0197,0x01a5,0x01cb,0x01cf,0x01d6,0x01d8,0x01dc,0x01e7,0x01f5,0x01fa,0x0201
03f7 0001 0002 | | .XXX[0xc]
03f9 0004 0008 | |
03fb 0009 000a | |
03fd 000b 000c | |
03ff 000d 000e | |
0401 000f 0010 | |
0403 ; --------------------------------------------------------------------------------------
0403 ; Debug chain
0403 ; --------------------------------------------------------------------------------------
0403 0000 0008 | | .DBGLEN 0x0000,0x0008
0405 020b 020e | | .DBGLNO 0x020b,0x020e,0x0212,0x0227,0x023b,0x023d,0x023f,0x0248
040d ; --------------------------------------------------------------------------------------
040d ; Debug chain
040d ; --------------------------------------------------------------------------------------
040d 0000 0001 | | .DBGLEN 0x0000,0x0001
040f 026b | k | .DBGLNO 0x026b
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug chain
0410 ; --------------------------------------------------------------------------------------
0410 0000 0002 | | .DBGLEN 0x0000,0x0002
0412 027b 0280 | { | .DBGLNO 0x027b,0x0280
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug chain
0414 ; --------------------------------------------------------------------------------------
0414 0000 0001 | | .DBGLEN 0x0000,0x0001
0416 028b | | .DBGLNO 0x028b
0417 0000 0000 | | .BLANK 0000[0x1e9]