|
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_0784cf
└─⟦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 0348 | H | .CONST 0x0348 ; 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 :" 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 :" 029d 0137 | 7 | .STRTAB 0x0137->0x0338 ; "Communication Init error => " 029e 0151 | Q | .STREND 0x0151->0x0346 029f 4f4b 4641 |OKFA| .STRTAB_STRINGS 0347 0000 | | .XXX[0x1] 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug Table 0348 ; -------------------------------------------------------------------------------------- 0348 0004 000a | | .DEBUG4 0x0004,0x000a,0x8c4f,0x0000,0x0001,0x000d 034e 000b 0382 | | .DBG4T 0x000b,0x0382,0x8000,0x0000 0352 0019 0389 | | .DBG4T 0x0019,0x0389,0x8000,0x8000 0356 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000 035a 007b 0399 | { | .DBG4T 0x007b,0x0399,0x0001,0x0000 035e 008b 039c | | .DBG4T 0x008b,0x039c,0x0002,0x0000 0362 009b 03a1 | | .DBG4T 0x009b,0x03a1,0x0001,0x0000 0366 0133 03c0 | 3 | .DBG4T 0x0133,0x03c0,0x0001,0x0000 036a 0153 03c9 | S | .DBG4T 0x0153,0x03c9,0x0000,0x0000 036e 015e 03d0 | ^ | .DBG4T 0x015e,0x03d0,0x0000,0x4000 0372 020b 03f3 | | .DBG4T 0x020b,0x03f3,0x0003,0x0000 0376 026b 03fd | k | .DBG4T 0x026b,0x03fd,0x0003,0x0000 037a 027b 0400 | { | .DBG4T 0x027b,0x0400,0x0003,0x0000 037e 028b 0404 | | .DBG4T 0x028b,0x0404,0x0003,0x0000 0382 ; -------------------------------------------------------------------------------------- 0382 ; Debug chain 0382 ; -------------------------------------------------------------------------------------- 0382 0005 0000 | | .DBGLEN 0x0005,0x0000 0384 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016 0389 ; -------------------------------------------------------------------------------------- 0389 ; Debug chain 0389 ; -------------------------------------------------------------------------------------- 0389 0007 0000 | | .DBGLEN 0x0007,0x0000 038b 0019 001e | | .DBGLNO 0x0019,0x001e,0x0024,0x0037,0x0039,0x003b,0x003d 0392 0003 0004 | | .XXX[0x7] 0394 0005 0006 | | 0396 0007 0008 | | 0398 0009 | | 0399 ; -------------------------------------------------------------------------------------- 0399 ; Debug chain 0399 ; -------------------------------------------------------------------------------------- 0399 0000 0001 | | .DBGLEN 0x0000,0x0001 039b 007b | { | .DBGLNO 0x007b 039c ; -------------------------------------------------------------------------------------- 039c ; Debug chain 039c ; -------------------------------------------------------------------------------------- 039c 0001 0002 | | .DBGLEN 0x0001,0x0002 039e 008b 008d | | .DBGLNO 0x008b,0x008d,0x0092 03a1 ; -------------------------------------------------------------------------------------- 03a1 ; Debug chain 03a1 ; -------------------------------------------------------------------------------------- 03a1 0003 001a | | .DBGLEN 0x0003,0x001a 03a3 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 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; Debug chain 03c0 ; -------------------------------------------------------------------------------------- 03c0 0001 0006 | | .DBGLEN 0x0001,0x0006 03c2 0133 0134 | 3 4| .DBGLNO 0x0133,0x0134,0x0139,0x013c,0x0141,0x0144,0x0149 03c9 ; -------------------------------------------------------------------------------------- 03c9 ; Debug chain 03c9 ; -------------------------------------------------------------------------------------- 03c9 0005 0000 | | .DBGLEN 0x0005,0x0000 03cb 0153 0155 | S U| .DBGLNO 0x0153,0x0155,0x0157,0x0159,0x015b 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug chain 03d0 ; -------------------------------------------------------------------------------------- 03d0 0009 000c | | .DBGLEN 0x0009,0x000c 03d2 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 03e7 0001 0002 | | .XXX[0xc] 03e9 0004 0008 | | 03eb 0009 000a | | 03ed 000b 000c | | 03ef 000d 000e | | 03f1 000f 0010 | | 03f3 ; -------------------------------------------------------------------------------------- 03f3 ; Debug chain 03f3 ; -------------------------------------------------------------------------------------- 03f3 0000 0008 | | .DBGLEN 0x0000,0x0008 03f5 020b 020e | | .DBGLNO 0x020b,0x020e,0x0212,0x0227,0x023b,0x023d,0x023f,0x0248 03fd ; -------------------------------------------------------------------------------------- 03fd ; Debug chain 03fd ; -------------------------------------------------------------------------------------- 03fd 0000 0001 | | .DBGLEN 0x0000,0x0001 03ff 026b | k | .DBGLNO 0x026b 0400 ; -------------------------------------------------------------------------------------- 0400 ; Debug chain 0400 ; -------------------------------------------------------------------------------------- 0400 0000 0002 | | .DBGLEN 0x0000,0x0002 0402 027b 0280 | { | .DBGLNO 0x027b,0x0280 0404 ; -------------------------------------------------------------------------------------- 0404 ; Debug chain 0404 ; -------------------------------------------------------------------------------------- 0404 0000 0001 | | .DBGLEN 0x0000,0x0001 0406 028b | | .DBGLNO 0x028b 0407 0000 0000 | | .BLANK 0000[0x1f9]