|
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_07e8b1
└─⟦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 03c8 | | .CONST 0x03c8 ; 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 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0011 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0019 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
001b 00bf | | Action Accept_Activation
001c 4801 |H | Short_Literal 0x1
001d 4806 |H | Short_Literal 0x6
001e 00e9 | | Load_Encached String_Cache
001f 0334 | 4 | Declare_Variable Array,With_Constraint
0020 5057 |PW | Indirect_Literal Any,0x78,{0x5443502f, 0x49502020}
0021 00e3 | | Load_Encached Natural_Cache
0022 4801 |H | Short_Literal 0x1
0023 4802 |H | Short_Literal 0x2
0024 e002 | | Load 0x0,0x2
0025 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0026 035b | [ | Declare_Type Array,Constrained
0027 0337 | 7 | Declare_Variable Array
0028 00d8 | | Load_Top At_Offset_0
0029 0335 | 5 | Declare_Variable Array,Duplicate
002a 00cd | | Action Spare6_Action
002b 480a |H | Short_Literal 0xa
002c 4801 |H | Short_Literal 0x1
002d 00da | | Load_Top At_Offset_2
002e 01d6 | | Execute Vector,Field_Write
002f 482f |H/ | Short_Literal 0x2f
0030 4802 |H | Short_Literal 0x2
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 00d9 | | Load_Top At_Offset_1
0034 01d4 | | Execute Vector,Structure_Write
0035 029b 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Unelaborated
0037 029b 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Unelaborated
0039 1d0d | | Execute_Immediate Reference_Lex_1,0xd
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 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0040 00c7 | | Action Elaborate_Subprogram
0041 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0042 00c7 | | Action Elaborate_Subprogram
0043 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0044 00c7 | | Action Elaborate_Subprogram
0045 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0046 00c7 | | Action Elaborate_Subprogram
0047 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0048 00c7 | | Action Elaborate_Subprogram
0049 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004a 00c7 | | Action Elaborate_Subprogram
004b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055 | U | .CONST 0x0055 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 e002 | | Load 0x0,0x2
0054 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0055 BODY_0050:
0055 00db | | Load_Top At_Offset_3
0056 e003 | | Load 0x0,0x3
0057 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0058 7019 |p | Jump_Nonzero 0x72
0059 0092 0288 | | Action Push_String_Extended,0x288 ; "ouverture reception : "
005b e004 | | Load 0x0,0x4
005c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
005d e002 | | Load 0x0,0x2
005e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005f e5ff | | Load 0x2,-0x1
0060 0120 | | Execute Any,Is_Value
0061 6803 |h | Jump_Zero 0x65
0062 e003 | | Load 0x0,0x3
0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0064 7801 |x | Jump 0x66
0065 e5ff | | Load 0x2,-0x1
0066 e217 | | Load 0x1,0x17
0067 e215 | | Load 0x1,0x15
0068 e003 | | Load 0x0,0x3
0069 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006a c5ff | | Store 0x2,-0x1
006b 0059 | Y | Store_Top Discrete,At_Offset_1
006c 00d8 | | Load_Top At_Offset_0
006d e002 | | Load 0x0,0x2
006e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006f e004 | | Load 0x0,0x4
0070 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0071 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0072 0092 0289 | | Action Push_String_Extended,0x289 ; "connection deja ouverte"
0074 e004 | | Load 0x0,0x4
0075 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 0000 | | .XXX[0x1]
0078 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0085 | | .CONST 0x0085 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e002 | | Load 0x0,0x2
0084 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0085 BODY_0080:
0085 00db | | Load_Top At_Offset_3
0086 e003 | | Load 0x0,0x3
0087 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0088 701a |p | Jump_Nonzero 0xa3
0089 0092 028a | | Action Push_String_Extended,0x28a ; "ouverture emission : "
008b e004 | | Load 0x0,0x4
008c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
008d e002 | | Load 0x0,0x2
008e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
008f e5ff | | Load 0x2,-0x1
0090 0120 | | Execute Any,Is_Value
0091 6803 |h | Jump_Zero 0x95
0092 e003 | | Load 0x0,0x3
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 7801 |x | Jump 0x96
0095 e5ff | | Load 0x2,-0x1
0096 e002 | | Load 0x0,0x2
0097 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0098 e215 | | Load 0x1,0x15
0099 e003 | | Load 0x0,0x3
009a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009b c5ff | | Store 0x2,-0x1
009c 0059 | Y | Store_Top Discrete,At_Offset_1
009d 00d8 | | Load_Top At_Offset_0
009e e002 | | Load 0x0,0x2
009f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a0 e004 | | Load 0x0,0x4
00a1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a3 0092 0289 | | Action Push_String_Extended,0x289 ; "connection deja ouverte"
00a5 e004 | | Load 0x0,0x4
00a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e003 | | Load 0x0,0x3
00ad 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ae 6808 |h | Jump_Zero 0xb7
00af 0092 028b | | Action Push_String_Extended,0x28b ; "fermeture connection"
00b1 e004 | | Load 0x0,0x4
00b2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b3 00da | | Load_Top At_Offset_2
00b4 e003 | | Load 0x0,0x3
00b5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b7 0092 028c | | Action Push_String_Extended,0x28c ; "connection deja fermee"
00b9 e004 | | Load 0x0,0x4
00ba 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 e003 | | Load 0x0,0x3
00c5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00c6 6808 |h | Jump_Zero 0xcf
00c7 0092 028b | | Action Push_String_Extended,0x28b ; "fermeture connection"
00c9 e004 | | Load 0x0,0x4
00ca 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00cb 00da | | Load_Top At_Offset_2
00cc e003 | | Load 0x0,0x3
00cd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cf 0092 028c | | Action Push_String_Extended,0x28c ; "connection deja fermee"
00d1 e004 | | Load 0x0,0x4
00d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00df | | .CONST 0x00df ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db e002 | | Load 0x0,0x2
00dc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00dd e002 | | Load 0x0,0x2
00de 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00df BODY_00d8:
00df 0092 028d | | Action Push_String_Extended,0x28d ; " reception en attente d'un message "
00e1 e004 | | Load 0x0,0x4
00e2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e3 e002 | | Load 0x0,0x2
00e4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e5 6036 |`6 | Indirect_Literal Discrete,0x11c,{0x00007fff, 0xffffffff}
00e6 e5ff | | Load 0x2,-0x1
00e7 e003 | | Load 0x0,0x3
00e8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e9 005a | Z | Store_Top Discrete,At_Offset_2
00ea 0092 028e | | Action Push_String_Extended,0x28e ; "status connection reception : "
00ec 00da | | Load_Top At_Offset_2
00ed e002 | | Load 0x0,0x2
00ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ef 01cc | | Execute Vector,Catenate
00f0 e004 | | Load 0x0,0x4
00f1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f2 e5ff | | Load 0x2,-0x1
00f3 e003 | | Load 0x0,0x3
00f4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f5 681b |h | Jump_Zero 0x111
00f6 00e3 | | Load_Encached Natural_Cache
00f7 e5fe | | Load 0x2,-0x2
00f8 e002 | | Load 0x0,0x2
00f9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00fa 6021 |`! | Indirect_Literal Discrete,0x11c,{0x00007fff, 0xffffffff}
00fb e5ff | | Load 0x2,-0x1
00fc e003 | | Load 0x0,0x3
00fd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00fe 005b | [ | Store_Top Discrete,At_Offset_3
00ff 00d1 | | Pop_Control Pop_Count_1
0100 c216 | | Store 0x1,0x16
0101 0092 028f | | Action Push_String_Extended,0x28f ; "status reception : "
0103 00d9 | | Load_Top At_Offset_1
0104 e002 | | Load 0x0,0x2
0105 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0106 01cc | | Execute Vector,Catenate
0107 e004 | | Load 0x0,0x4
0108 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0109 e5ff | | Load 0x2,-0x1
010a e003 | | Load 0x0,0x3
010b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010c 0092 0290 | | Action Push_String_Extended,0x290 ; "reception deconnectee"
010e e004 | | Load 0x0,0x4
010f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0110 7804 |x | Jump 0x115
0111 0092 0291 | | Action Push_String_Extended,0x291 ; "message non recu car echec de connection"
0113 e004 | | Load 0x0,0x4
0114 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0115 0092 0292 | | Action Push_String_Extended,0x292 ; "fin reception"
0117 e004 | | Load 0x0,0x4
0118 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011a 0000 0000 | | .XXX[0x2]
011c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0127 | ' | .CONST 0x0127 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0003 | | .CONST 0x0003 ; Number of locals
0123 INIT_0120:
0123 e002 | | Load 0x0,0x2
0124 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0125 e002 | | Load 0x0,0x2
0126 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0127 BODY_0120:
0127 0092 028d | | Action Push_String_Extended,0x28d ; " reception en attente d'un message "
0129 e004 | | Load 0x0,0x4
012a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
012b e002 | | Load 0x0,0x2
012c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
012d 67ee |g | Indirect_Literal Discrete,0x11c,{0x00007fff, 0xffffffff}
012e e5ff | | Load 0x2,-0x1
012f e003 | | Load 0x0,0x3
0130 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0131 005a | Z | Store_Top Discrete,At_Offset_2
0132 0092 028e | | Action Push_String_Extended,0x28e ; "status connection reception : "
0134 00da | | Load_Top At_Offset_2
0135 e002 | | Load 0x0,0x2
0136 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0137 01cc | | Execute Vector,Catenate
0138 e004 | | Load 0x0,0x4
0139 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
013a e5ff | | Load 0x2,-0x1
013b e003 | | Load 0x0,0x3
013c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
013d 6820 |h | Jump_Zero 0x15e
013e 00e3 | | Load_Encached Natural_Cache
013f e5fe | | Load 0x2,-0x2
0140 e002 | | Load 0x0,0x2
0141 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0142 67d9 |g | Indirect_Literal Discrete,0x11c,{0x00007fff, 0xffffffff}
0143 e5ff | | Load 0x2,-0x1
0144 e003 | | Load 0x0,0x3
0145 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0146 005b | [ | Store_Top Discrete,At_Offset_3
0147 00d1 | | Pop_Control Pop_Count_1
0148 c216 | | Store 0x1,0x16
0149 0092 028f | | Action Push_String_Extended,0x28f ; "status reception : "
014b 00d9 | | Load_Top At_Offset_1
014c e002 | | Load 0x0,0x2
014d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014e 01cc | | Execute Vector,Catenate
014f e004 | | Load 0x0,0x4
0150 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0151 e5fc | | Load 0x2,-0x4
0152 e5fd | | Load 0x2,-0x3
0153 e5fe | | Load 0x2,-0x2
0154 8219 | | Call 0x1,0x19
0155 00d2 | | Pop_Control Pop_Count_2
0156 e5ff | | Load 0x2,-0x1
0157 e003 | | Load 0x0,0x3
0158 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0159 0092 0290 | | Action Push_String_Extended,0x290 ; "reception deconnectee"
015b e004 | | Load 0x0,0x4
015c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015d 7804 |x | Jump 0x162
015e 0092 0291 | | Action Push_String_Extended,0x291 ; "message non recu car echec de connection"
0160 e004 | | Load 0x0,0x4
0161 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0162 0092 0292 | | Action Push_String_Extended,0x292 ; "fin reception"
0164 e004 | | Load 0x0,0x4
0165 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0196 | | .CONST 0x0196 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0006 | | .CONST 0x0006 ; Number of locals
016b INIT_0168:
016b 4801 |H | Short_Literal 0x1
016c 4804 |H | Short_Literal 0x4
016d e002 | | Load 0x0,0x2
016e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
016f 035b | [ | Declare_Type Array,Constrained
0170 0337 | 7 | Declare_Variable Array
0171 00d8 | | Load_Top At_Offset_0
0172 0335 | 5 | Declare_Variable Array,Duplicate
0173 00cd | | Action Spare6_Action
0174 48c1 |H | Short_Literal 0xc1
0175 4801 |H | Short_Literal 0x1
0176 00da | | Load_Top At_Offset_2
0177 01d6 | | Execute Vector,Field_Write
0178 4836 |H6 | Short_Literal 0x36
0179 4802 |H | Short_Literal 0x2
017a 00da | | Load_Top At_Offset_2
017b 01d6 | | Execute Vector,Field_Write
017c 4892 |H | Short_Literal 0x92
017d 4803 |H | Short_Literal 0x3
017e 00da | | Load_Top At_Offset_2
017f 01d6 | | Execute Vector,Field_Write
0180 4884 |H | Short_Literal 0x84
0181 4804 |H | Short_Literal 0x4
0182 00da | | Load_Top At_Offset_2
0183 01d6 | | Execute Vector,Field_Write
0184 00d9 | | Load_Top At_Offset_1
0185 01d4 | | Execute Vector,Structure_Write
0186 e002 | | Load 0x0,0x2
0187 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0188 e002 | | Load 0x0,0x2
0189 1b19 | | Execute Package,Field_Read,Field_Number 0x19
018a 4801 |H | Short_Literal 0x1
018b 4802 |H | Short_Literal 0x2
018c e002 | | Load 0x0,0x2
018d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018e 035b | [ | Declare_Type Array,Constrained
018f 0337 | 7 | Declare_Variable Array
0190 4801 |H | Short_Literal 0x1
0191 4804 |H | Short_Literal 0x4
0192 e002 | | Load 0x0,0x2
0193 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0194 035b | [ | Declare_Type Array,Constrained
0195 0337 | 7 | Declare_Variable Array
0196 BODY_0168:
0196 00d8 | | Load_Top At_Offset_0
0197 00da | | Load_Top At_Offset_2
0198 e5fd | | Load 0x2,-0x3
0199 8218 | | Call 0x1,0x18
019a 00d2 | | Pop_Control Pop_Count_2
019b 0092 0293 | | Action Push_String_Extended,0x293 ; "debut emission"
019d e004 | | Load 0x0,0x4
019e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
019f 0092 0294 | | Action Push_String_Extended,0x294 ; "en attente de connection vers l'orb, veuillez patienter, ceci prend un certain temps"
01a1 e004 | | Load 0x0,0x4
01a2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a3 00cf | | Action Mark_Auxiliary
01a4 780a |x | Jump 0x1af
01a5 e002 | | Load 0x0,0x2
01a6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a7 604c |`L | Indirect_Literal Discrete,0x1f4,{0x00007fff, 0xffffffff}
01a8 e217 | | Load 0x1,0x17
01a9 e402 | | Load 0x2,0x2
01aa e5fe | | Load 0x2,-0x2
01ab e003 | | Load 0x0,0x3
01ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ad c403 | | Store 0x2,0x3
01ae 00c9 | | Action Pop_Auxiliary_Loop
01af e5fe | | Load 0x2,-0x2
01b0 e003 | | Load 0x0,0x3
01b1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b2 6ff2 |o | Jump_Zero 0x1a5
01b3 00ce | | Action Pop_Auxiliary
01b4 e5fe | | Load 0x2,-0x2
01b5 e003 | | Load 0x0,0x3
01b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b7 682f |h/ | Jump_Zero 0x1e7
01b8 0092 0295 | | Action Push_String_Extended,0x295 ; "status connection emission : "
01ba e403 | | Load 0x2,0x3
01bb e002 | | Load 0x0,0x2
01bc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01bd 01cc | | Execute Vector,Catenate
01be e004 | | Load 0x0,0x4
01bf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01c0 00e3 | | Load_Encached Natural_Cache
01c1 e002 | | Load 0x0,0x2
01c2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01c3 4800 |H | Short_Literal 0x0
01c4 602f |`/ | Indirect_Literal Discrete,0x1f4,{0x00007fff, 0xffffffff}
01c5 e405 | | Load 0x2,0x5
01c6 e406 | | Load 0x2,0x6
01c7 01cc | | Execute Vector,Catenate
01c8 e5ff | | Load 0x2,-0x1
01c9 01cc | | Execute Vector,Catenate
01ca e5fe | | Load 0x2,-0x2
01cb e003 | | Load 0x0,0x3
01cc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01cd c404 | | Store 0x2,0x4
01ce c216 | | Store 0x1,0x16
01cf 0092 0296 | | Action Push_String_Extended,0x296 ; "status transmission : "
01d1 00db | | Load_Top At_Offset_3
01d2 e002 | | Load 0x0,0x2
01d3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01d4 01cc | | Execute Vector,Catenate
01d5 e004 | | Load 0x0,0x4
01d6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d7 0092 0297 | | Action Push_String_Extended,0x297 ; "message transmis : "
01d9 e5ff | | Load 0x2,-0x1
01da e005 | | Load 0x0,0x5
01db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01dc 01cc | | Execute Vector,Catenate
01dd e004 | | Load 0x0,0x4
01de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01df e5fe | | Load 0x2,-0x2
01e0 e003 | | Load 0x0,0x3
01e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e2 0092 0298 | | Action Push_String_Extended,0x298 ; "emission deconnectee"
01e4 e004 | | Load 0x0,0x4
01e5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e6 7807 |x | Jump 0x1ee
01e7 0092 0299 | | Action Push_String_Extended,0x299 ; "message non transmis car echec de connection"
01e9 e004 | | Load 0x0,0x4
01ea 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01eb e5fe | | Load 0x2,-0x2
01ec e003 | | Load 0x0,0x3
01ed 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01ee 0092 029a | | Action Push_String_Extended,0x29a ; "fin emission"
01f0 e004 | | Load 0x0,0x4
01f1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f3 0000 | | .XXX[0x1]
01f4 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01ff | | .CONST 0x01ff ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e002 | | Load 0x0,0x2
01fc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01fd e002 | | Load 0x0,0x2
01fe 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01ff BODY_01f8:
01ff 0092 0293 | | Action Push_String_Extended,0x293 ; "debut emission"
0201 e004 | | Load 0x0,0x4
0202 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0203 0092 029b | | Action Push_String_Extended,0x29b ; "socket avant emission orb: "
0205 e5fd | | Load 0x2,-0x3
0206 e005 | | Load 0x0,0x5
0207 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0208 01cc | | Execute Vector,Catenate
0209 e004 | | Load 0x0,0x4
020a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
020b 0092 029c | | Action Push_String_Extended,0x29c ; "host avant emission orb : "
020d e5fc | | Load 0x2,-0x4
020e e005 | | Load 0x0,0x5
020f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0210 01cc | | Execute Vector,Catenate
0211 e004 | | Load 0x0,0x4
0212 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0213 0092 029d | | Action Push_String_Extended,0x29d ; "en attente de connection"
0215 e004 | | Load 0x0,0x4
0216 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0217 00cf | | Action Mark_Auxiliary
0218 780a |x | Jump 0x223
0219 e002 | | Load 0x0,0x2
021a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
021b 67d8 |g | Indirect_Literal Discrete,0x1f4,{0x00007fff, 0xffffffff}
021c e5fd | | Load 0x2,-0x3
021d e5fc | | Load 0x2,-0x4
021e e5fe | | Load 0x2,-0x2
021f e003 | | Load 0x0,0x3
0220 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0221 005b | [ | Store_Top Discrete,At_Offset_3
0222 00c9 | | Action Pop_Auxiliary_Loop
0223 e5fe | | Load 0x2,-0x2
0224 e003 | | Load 0x0,0x3
0225 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0226 6ff2 |o | Jump_Zero 0x219
0227 00ce | | Action Pop_Auxiliary
0228 e5fe | | Load 0x2,-0x2
0229 e003 | | Load 0x0,0x3
022a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
022b 682f |h/ | Jump_Zero 0x25b
022c 0092 0295 | | Action Push_String_Extended,0x295 ; "status connection emission : "
022e 00da | | Load_Top At_Offset_2
022f e002 | | Load 0x0,0x2
0230 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0231 01cc | | Execute Vector,Catenate
0232 e004 | | Load 0x0,0x4
0233 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0234 00e3 | | Load_Encached Natural_Cache
0235 e002 | | Load 0x0,0x2
0236 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0237 4800 |H | Short_Literal 0x0
0238 67bb |g | Indirect_Literal Discrete,0x1f4,{0x00007fff, 0xffffffff}
0239 e5fd | | Load 0x2,-0x3
023a e5fc | | Load 0x2,-0x4
023b 01cc | | Execute Vector,Catenate
023c e5ff | | Load 0x2,-0x1
023d 01cc | | Execute Vector,Catenate
023e e5fe | | Load 0x2,-0x2
023f e003 | | Load 0x0,0x3
0240 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0241 005a | Z | Store_Top Discrete,At_Offset_2
0242 c216 | | Store 0x1,0x16
0243 0092 0296 | | Action Push_String_Extended,0x296 ; "status transmission : "
0245 00d9 | | Load_Top At_Offset_1
0246 e002 | | Load 0x0,0x2
0247 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0248 01cc | | Execute Vector,Catenate
0249 e004 | | Load 0x0,0x4
024a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
024b 0092 0297 | | Action Push_String_Extended,0x297 ; "message transmis : "
024d e5ff | | Load 0x2,-0x1
024e e005 | | Load 0x0,0x5
024f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0250 01cc | | Execute Vector,Catenate
0251 e004 | | Load 0x0,0x4
0252 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0253 e5fe | | Load 0x2,-0x2
0254 e003 | | Load 0x0,0x3
0255 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0256 0092 0298 | | Action Push_String_Extended,0x298 ; "emission deconnectee"
0258 e004 | | Load 0x0,0x4
0259 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
025a 7807 |x | Jump 0x262
025b 0092 0299 | | Action Push_String_Extended,0x299 ; "message non transmis car echec de connection"
025d e004 | | Load 0x0,0x4
025e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
025f e5fe | | Load 0x2,-0x2
0260 e003 | | Load 0x0,0x3
0261 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0262 0092 029a | | Action Push_String_Extended,0x29a ; "fin emission"
0264 e004 | | Load 0x0,0x4
0265 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0266 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
026c e003 | | Load 0x0,0x3
026d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
026e e5fe | | Load 0x2,-0x2
026f 01d4 | | Execute Vector,Structure_Write
0270 00da | | Load_Top At_Offset_2
0271 e003 | | Load 0x0,0x3
0272 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0273 e5fd | | Load 0x2,-0x3
0274 01d4 | | Execute Vector,Structure_Write
0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
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 4801 |H | Short_Literal 0x1
027c 4802 |H | Short_Literal 0x2
027d e5ff | | Load 0x2,-0x1
027e 01cf | | Execute Vector,Slice_Read
027f e5fe | | Load 0x2,-0x2
0280 01d4 | | Execute Vector,Structure_Write
0281 4803 |H | Short_Literal 0x3
0282 4806 |H | Short_Literal 0x6
0283 e5ff | | Load 0x2,-0x1
0284 01cf | | Execute Vector,Slice_Read
0285 e5fd | | Load 0x2,-0x3
0286 01d4 | | Execute Vector,Structure_Write
0287 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0288 ; --------------------------------------------------------------------------------------
0288 ; STRING TABLE
0288 ; --------------------------------------------------------------------------------------
0288 002e | . | .STRTAB 0x002e->0x029f ; "ouverture reception : "
0289 0042 | B | .STRTAB 0x0042->0x02aa ; "connection deja ouverte"
028a 0057 | W | .STRTAB 0x0057->0x02b5 ; "ouverture emission : "
028b 006a | j | .STRTAB 0x006a->0x02c0 ; "fermeture connection"
028c 007c | | | .STRTAB 0x007c->0x02ca ; "connection deja fermee"
028d 0090 | | .STRTAB 0x0090->0x02d5 ; " reception en attente d'un message "
028e 00b1 | | .STRTAB 0x00b1->0x02e6 ; "status connection reception : "
028f 00cd | | .STRTAB 0x00cd->0x02f5 ; "status reception : "
0290 00de | | .STRTAB 0x00de->0x02ff ; "reception deconnectee"
0291 00f1 | | .STRTAB 0x00f1->0x0309 ; "message non recu car echec de connection"
0292 0117 | | .STRTAB 0x0117->0x031d ; "fin reception"
0293 0122 | " | .STRTAB 0x0122->0x0324 ; "debut emission"
0294 012e | . | .STRTAB 0x012e->0x032b ; "en attente de connection vers l'orb, veuillez patienter, ceci prend un certain temps"
0295 0180 | | .STRTAB 0x0180->0x0355 ; "status connection emission : "
0296 019b | | .STRTAB 0x019b->0x0363 ; "status transmission : "
0297 01af | | .STRTAB 0x01af->0x036e ; "message transmis : "
0298 01c0 | | .STRTAB 0x01c0->0x0378 ; "emission deconnectee"
0299 01d2 | | .STRTAB 0x01d2->0x0382 ; "message non transmis car echec de connection"
029a 01fc | | .STRTAB 0x01fc->0x0398 ; "fin emission"
029b 0206 | | .STRTAB 0x0206->0x039e ; "socket avant emission orb: "
029c 021f | | .STRTAB 0x021f->0x03ab ; "host avant emission orb : "
029d 0237 | 7 | .STRTAB 0x0237->0x03b8 ; "en attente de connection"
029e 024d | M | .STREND 0x024d->0x03c4
029f 6f75 7665 |ouve| .STRTAB_STRINGS
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug Table
03c8 ; --------------------------------------------------------------------------------------
03c8 0004 000a | | .DEBUG4 0x0004,0x000a,0x620c,0x0000,0x0001,0x000c
03ce 000b 03fe | | .DBG4T 0x000b,0x03fe,0x8000,0x0000
03d2 001c 0408 | | .DBG4T 0x001c,0x0408,0x8000,0x0000
03d6 0053 0419 | S | .DBG4T 0x0053,0x0419,0x0001,0x0000
03da 0083 0421 | !| .DBG4T 0x0083,0x0421,0x0001,0x0000
03de 00ab 0429 | )| .DBG4T 0x00ab,0x0429,0x0001,0x0000
03e2 00c3 042f | /| .DBG4T 0x00c3,0x042f,0x0001,0x0000
03e6 00db 0435 | 5| .DBG4T 0x00db,0x0435,0x0001,0x0000
03ea 0123 0443 | # C| .DBG4T 0x0123,0x0443,0x0001,0x0000
03ee 016b 0452 | k R| .DBG4T 0x016b,0x0452,0x0001,0x4000
03f2 01fb 0477 | w| .DBG4T 0x01fb,0x0477,0x0001,0x4000
03f6 026b 049b | k | .DBG4T 0x026b,0x049b,0x0001,0x0000
03fa 027b 049f | { | .DBG4T 0x027b,0x049f,0x0001,0x0000
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug chain
03fe ; --------------------------------------------------------------------------------------
03fe 0008 0000 | | .DBGLEN 0x0008,0x0000
0400 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 000f 0000 | | .DBGLEN 0x000f,0x0000
040a 001c 0021 | !| .DBGLNO 0x001c,0x0021,0x0022,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b
0419 ; --------------------------------------------------------------------------------------
0419 ; Debug chain
0419 ; --------------------------------------------------------------------------------------
0419 0001 0005 | | .DBGLEN 0x0001,0x0005
041b 0053 0055 | S U| .DBGLNO 0x0053,0x0055,0x0059,0x005d,0x006c,0x0072
0421 ; --------------------------------------------------------------------------------------
0421 ; Debug chain
0421 ; --------------------------------------------------------------------------------------
0421 0001 0005 | | .DBGLEN 0x0001,0x0005
0423 0083 0085 | | .DBGLNO 0x0083,0x0085,0x0089,0x008d,0x009d,0x00a3
0429 ; --------------------------------------------------------------------------------------
0429 ; Debug chain
0429 ; --------------------------------------------------------------------------------------
0429 0000 0004 | | .DBGLEN 0x0000,0x0004
042b 00ab 00af | | .DBGLNO 0x00ab,0x00af,0x00b3,0x00b7
042f ; --------------------------------------------------------------------------------------
042f ; Debug chain
042f ; --------------------------------------------------------------------------------------
042f 0000 0004 | | .DBGLEN 0x0000,0x0004
0431 00c3 00c7 | | .DBGLNO 0x00c3,0x00c7,0x00cb,0x00cf
0435 ; --------------------------------------------------------------------------------------
0435 ; Debug chain
0435 ; --------------------------------------------------------------------------------------
0435 0002 000a | | .DBGLEN 0x0002,0x000a
0437 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00df,0x00e3,0x00ea,0x00f2,0x00f6,0x0101,0x0109,0x010c,0x0111,0x0115
0443 ; --------------------------------------------------------------------------------------
0443 ; Debug chain
0443 ; --------------------------------------------------------------------------------------
0443 0002 000b | | .DBGLEN 0x0002,0x000b
0445 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0127,0x012b,0x0132,0x013a,0x013e,0x0149,0x0151,0x0156,0x0159,0x015e,0x0162
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug chain
0452 ; --------------------------------------------------------------------------------------
0452 0005 000f | | .DBGLEN 0x0005,0x000f
0454 016b 0186 | k | .DBGLNO 0x016b,0x0186,0x0188,0x018a,0x0190,0x0196,0x019b,0x019f,0x01a5,0x01af,0x01b4,0x01b8,0x01c0,0x01cf,0x01d7,0x01df,0x01e2,0x01e7,0x01eb,0x01ee
0468 0001 0002 | | .XXX[0xf]
046a 0003 0005 | |
046c 0004 0006 | |
046e 0007 0008 | |
0470 0009 000a | |
0472 000b 000c | |
0474 000d 000e | |
0476 000f | |
0477 ; --------------------------------------------------------------------------------------
0477 ; Debug chain
0477 ; --------------------------------------------------------------------------------------
0477 0002 0010 | | .DBGLEN 0x0002,0x0010
0479 01fb 01fd | | .DBGLNO 0x01fb,0x01fd,0x01ff,0x0203,0x020b,0x0213,0x0219,0x0223,0x0228,0x022c,0x0234,0x0243,0x024b,0x0253,0x0256,0x025b,0x025f,0x0262
048b 0001 0002 | | .XXX[0x10]
048d 0003 0004 | |
048f 0006 0005 | |
0491 0007 0008 | |
0493 0009 000a | |
0495 000b 000c | |
0497 000d 000e | |
0499 000f 0010 | |
049b ; --------------------------------------------------------------------------------------
049b ; Debug chain
049b ; --------------------------------------------------------------------------------------
049b 0000 0002 | | .DBGLEN 0x0000,0x0002
049d 026b 0270 | k p| .DBGLNO 0x026b,0x0270
049f ; --------------------------------------------------------------------------------------
049f ; Debug chain
049f ; --------------------------------------------------------------------------------------
049f 0000 0002 | | .DBGLEN 0x0000,0x0002
04a1 027b 0281 | { | .DBGLNO 0x027b,0x0281
04a3 0000 0000 | | .BLANK 0000[0x15d]