|
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_0a4ca3
└─⟦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 03e0 | | .CONST 0x03e0 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0062 | b | .CONST 0x0062 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0014 | | .CONST 0x0014 ; Number of locals
001b INIT_0018:
001b 4801 |H | Short_Literal 0x1
001c 61ff |a | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00000400}
001d 00e9 | | Load_Encached String_Cache
001e 035b | [ | Declare_Type Array,Constrained
001f 0337 | 7 | Declare_Variable Array
0020 e002 | | Load 0x0,0x2
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e002 | | Load 0x0,0x2
0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0027 02c7 | | Declare_Variable Any
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a e003 | | Load 0x0,0x3
002b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
002c e003 | | Load 0x0,0x3
002d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
002e 4801 |H | Short_Literal 0x1
002f 4806 |H | Short_Literal 0x6
0030 00e9 | | Load_Encached String_Cache
0031 0334 | 4 | Declare_Variable Array,With_Constraint
0032 51ed |Q | Indirect_Literal Any,0x220,{0x5443502f, 0x49502020}
0033 4801 |H | Short_Literal 0x1
0034 4802 |H | Short_Literal 0x2
0035 e003 | | Load 0x0,0x3
0036 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0037 035b | [ | Declare_Type Array,Constrained
0038 0337 | 7 | Declare_Variable Array
0039 4801 |H | Short_Literal 0x1
003a 4802 |H | Short_Literal 0x2
003b e003 | | Load 0x0,0x3
003c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
003d 035b | [ | Declare_Type Array,Constrained
003e 0337 | 7 | Declare_Variable Array
003f 4801 |H | Short_Literal 0x1
0040 4804 |H | Short_Literal 0x4
0041 e003 | | Load 0x0,0x3
0042 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0043 035b | [ | Declare_Type Array,Constrained
0044 0337 | 7 | Declare_Variable Array
0045 4801 |H | Short_Literal 0x1
0046 61d5 |a | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00000400}
0047 e004 | | Load 0x0,0x4
0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0049 035b | [ | Declare_Type Array,Constrained
004a 0337 | 7 | Declare_Variable Array
004b 00e3 | | Load_Encached Natural_Cache
004c 61cb |a | Indirect_Literal Discrete,0x218,{0x00000000, 0x00030000}
004d 00e7 | | Load_Encached Duration_Cache
004e 03f1 | | Declare_Variable Discrete,With_Value
004f 00e1 | | Load_Encached Boolean_Cache
0050 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0051 00e2 | | Load_Encached Integer_Cache
0052 00e2 | | Load_Encached Integer_Cache
0053 00e2 | | Load_Encached Integer_Cache
0054 4801 |H | Short_Literal 0x1
0055 61c6 |a | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00000400}
0056 00e9 | | Load_Encached String_Cache
0057 035b | [ | Declare_Type Array,Constrained
0058 0337 | 7 | Declare_Variable Array
0059 00e1 | | Load_Encached Boolean_Cache
005a e005 | | Load 0x0,0x5
005b e006 | | Load 0x0,0x6
005c 00e2 | | Load_Encached Integer_Cache
005d e007 | | Load 0x0,0x7
005e 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
005f 0387 | | Declare_Variable Package
0060 00d8 | | Load_Top At_Offset_0
0061 020f | | Execute Module,Activate
0062 BODY_0018:
0062 482e |H. | Short_Literal 0x2e
0063 480a |H | Short_Literal 0xa
0064 8008 | | Call 0x0,0x8
0065 8009 | | Call 0x0,0x9
0066 e409 | | Load 0x2,0x9
0067 01d4 | | Execute Vector,Structure_Write
0068 e003 | | Load 0x0,0x3
0069 1b19 | | Execute Package,Field_Read,Field_Number 0x19
006a e404 | | Load 0x2,0x4
006b 0120 | | Execute Any,Is_Value
006c 6803 |h | Jump_Zero 0x70
006d e002 | | Load 0x0,0x2
006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006f 7801 |x | Jump 0x71
0070 e404 | | Load 0x2,0x4
0071 e409 | | Load 0x2,0x9
0072 e407 | | Load 0x2,0x7
0073 e002 | | Load 0x0,0x2
0074 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0075 c404 | | Store 0x2,0x4
0076 c405 | | Store 0x2,0x5
0077 00cf | | Action Mark_Auxiliary
0078 7810 |x | Jump 0x89
0079 e003 | | Load 0x0,0x3
007a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
007b e404 | | Load 0x2,0x4
007c 0120 | | Execute Any,Is_Value
007d 6803 |h | Jump_Zero 0x81
007e e002 | | Load 0x0,0x2
007f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0080 7801 |x | Jump 0x82
0081 e404 | | Load 0x2,0x4
0082 e409 | | Load 0x2,0x9
0083 e407 | | Load 0x2,0x7
0084 e002 | | Load 0x0,0x2
0085 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0086 c404 | | Store 0x2,0x4
0087 c405 | | Store 0x2,0x5
0088 00c9 | | Action Pop_Auxiliary_Loop
0089 e404 | | Load 0x2,0x4
008a e002 | | Load 0x0,0x2
008b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
008c 6fec |o | Jump_Zero 0x79
008d 00ce | | Action Pop_Auxiliary
008e e404 | | Load 0x2,0x4
008f e002 | | Load 0x0,0x2
0090 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0091 6808 |h | Jump_Zero 0x9a
0092 4801 |H | Short_Literal 0x1
0093 e007 | | Load 0x0,0x7
0094 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0095 0092 0224 | $| Action Push_String_Extended,0x224 ; "OK: Connect. ouverte...Socket trouve"
0097 e007 | | Load 0x0,0x7
0098 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0099 7807 |x | Jump 0xa1
009a 4801 |H | Short_Literal 0x1
009b e007 | | Load 0x0,0x7
009c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
009d 0092 0225 | %| Action Push_String_Extended,0x225 ; "ERREUR: Connect. pas ouverte...Socket pas trouve"
009f e007 | | Load 0x0,0x7
00a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a1 0092 0226 | &| Action Push_String_Extended,0x226 ; "==> "
00a3 e007 | | Load 0x0,0x7
00a4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00a5 e409 | | Load 0x2,0x9
00a6 800a | | Call 0x0,0xa
00a7 e00b | | Load 0x0,0xb
00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a9 e007 | | Load 0x0,0x7
00aa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ab 4817 |H | Short_Literal 0x17
00ac 4811 |H | Short_Literal 0x11
00ad 8008 | | Call 0x0,0x8
00ae 8009 | | Call 0x0,0x9
00af e408 | | Load 0x2,0x8
00b0 01d4 | | Execute Vector,Structure_Write
00b1 4884 |H | Short_Literal 0x84
00b2 4892 |H | Short_Literal 0x92
00b3 4836 |H6 | Short_Literal 0x36
00b4 48c1 |H | Short_Literal 0xc1
00b5 800c | | Call 0x0,0xc
00b6 800d | | Call 0x0,0xd
00b7 e40a | | Load 0x2,0xa
00b8 01d4 | | Execute Vector,Structure_Write
00b9 e003 | | Load 0x0,0x3
00ba 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00bb e403 | | Load 0x2,0x3
00bc 0120 | | Execute Any,Is_Value
00bd 6803 |h | Jump_Zero 0xc1
00be e002 | | Load 0x0,0x2
00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c0 7801 |x | Jump 0xc2
00c1 e403 | | Load 0x2,0x3
00c2 e003 | | Load 0x0,0x3
00c3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c4 e407 | | Load 0x2,0x7
00c5 e002 | | Load 0x0,0x2
00c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c7 c403 | | Store 0x2,0x3
00c8 c405 | | Store 0x2,0x5
00c9 00cf | | Action Mark_Auxiliary
00ca 7811 |x | Jump 0xdc
00cb e003 | | Load 0x0,0x3
00cc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00cd e403 | | Load 0x2,0x3
00ce 0120 | | Execute Any,Is_Value
00cf 6803 |h | Jump_Zero 0xd3
00d0 e002 | | Load 0x0,0x2
00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d2 7801 |x | Jump 0xd4
00d3 e403 | | Load 0x2,0x3
00d4 e003 | | Load 0x0,0x3
00d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d6 e407 | | Load 0x2,0x7
00d7 e002 | | Load 0x0,0x2
00d8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d9 c403 | | Store 0x2,0x3
00da c405 | | Store 0x2,0x5
00db 00c9 | | Action Pop_Auxiliary_Loop
00dc e403 | | Load 0x2,0x3
00dd e002 | | Load 0x0,0x2
00de 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00df 6feb |o | Jump_Zero 0xcb
00e0 00ce | | Action Pop_Auxiliary
00e1 e403 | | Load 0x2,0x3
00e2 e002 | | Load 0x0,0x2
00e3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00e4 6808 |h | Jump_Zero 0xed
00e5 4801 |H | Short_Literal 0x1
00e6 e007 | | Load 0x0,0x7
00e7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00e8 0092 0227 | '| Action Push_String_Extended,0x227 ; "OK: La connection vers ORB est ouverte..."
00ea e007 | | Load 0x0,0x7
00eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ec 7807 |x | Jump 0xf4
00ed 4801 |H | Short_Literal 0x1
00ee e007 | | Load 0x0,0x7
00ef 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00f0 0092 0228 | (| Action Push_String_Extended,0x228 ; "ERREUR: La connection vers ORB n'est pas ouverte..."
00f2 e007 | | Load 0x0,0x7
00f3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f4 0092 0229 | )| Action Push_String_Extended,0x229 ; "Je tente de me connecter a l ORB..."
00f6 e007 | | Load 0x0,0x7
00f7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f8 00cf | | Action Mark_Auxiliary
00f9 780a |x | Jump 0x104
00fa e003 | | Load 0x0,0x3
00fb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00fc e40d | | Load 0x2,0xd
00fd e408 | | Load 0x2,0x8
00fe e40a | | Load 0x2,0xa
00ff e403 | | Load 0x2,0x3
0100 e002 | | Load 0x0,0x2
0101 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0102 c405 | | Store 0x2,0x5
0103 00c9 | | Action Pop_Auxiliary_Loop
0104 e403 | | Load 0x2,0x3
0105 e002 | | Load 0x0,0x2
0106 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0107 6ff2 |o | Jump_Zero 0xfa
0108 00ce | | Action Pop_Auxiliary
0109 e403 | | Load 0x2,0x3
010a e002 | | Load 0x0,0x2
010b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010c 6805 |h | Jump_Zero 0x112
010d 0092 022a | *| Action Push_String_Extended,0x22a ; "OK: On est connecte a l ORB..."
010f e007 | | Load 0x0,0x7
0110 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0111 7804 |x | Jump 0x116
0112 0092 022b | +| Action Push_String_Extended,0x22b ; "ERREUR: On n'est pas connecte a l ORB..."
0114 e007 | | Load 0x0,0x7
0115 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0116 0092 022c | ,| Action Push_String_Extended,0x22c ; "Je tente de transmettre le message..."
0118 e007 | | Load 0x0,0x7
0119 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
011a 00e3 | | Load_Encached Natural_Cache
011b e003 | | Load 0x0,0x3
011c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
011d e40e | | Load 0x2,0xe
011e e40d | | Load 0x2,0xd
011f 0092 022d | -| Action Push_String_Extended,0x22d ; "Donne_Phil()\x00"
0121 e00b | | Load 0x0,0xb
0122 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0123 4801 |H | Short_Literal 0x1
0124 e409 | | Load 0x2,0x9
0125 800a | | Call 0x0,0xa
0126 e40a | | Load 0x2,0xa
0127 800e | | Call 0x0,0xe
0128 4801 |H | Short_Literal 0x1
0129 800f | | Call 0x0,0xf
012a e403 | | Load 0x2,0x3
012b e002 | | Load 0x0,0x2
012c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
012d c405 | | Store 0x2,0x5
012e c40c | | Store 0x2,0xc
012f e40c | | Load 0x2,0xc
0130 00e0 | | Load_Encached Standard_Cache
0131 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0132 e007 | | Load 0x0,0x7
0133 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0134 0092 022e | .| Action Push_String_Extended,0x22e ; " caracteres ont ete envoyes."
0136 e007 | | Load 0x0,0x7
0137 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0138 e403 | | Load 0x2,0x3
0139 e002 | | Load 0x0,0x2
013a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
013b e403 | | Load 0x2,0x3
013c e002 | | Load 0x0,0x2
013d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
013e 6805 |h | Jump_Zero 0x144
013f 0092 022f | /| Action Push_String_Extended,0x22f ; "ERREUR: On est encore connecte..."
0141 e007 | | Load 0x0,0x7
0142 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0143 7804 |x | Jump 0x148
0144 0092 0230 | 0| Action Push_String_Extended,0x230 ; "OK: On n'est plus connecte.."
0146 e007 | | Load 0x0,0x7
0147 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0148 e403 | | Load 0x2,0x3
0149 e002 | | Load 0x0,0x2
014a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014b e403 | | Load 0x2,0x3
014c e002 | | Load 0x0,0x2
014d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
014e 6805 |h | Jump_Zero 0x154
014f 0092 0231 | 1| Action Push_String_Extended,0x231 ; "ERREUR: La connection n'est pas fermee..."
0151 e007 | | Load 0x0,0x7
0152 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0153 7804 |x | Jump 0x158
0154 0092 0232 | 2| Action Push_String_Extended,0x232 ; "OK: La connection est maintenant fermee..."
0156 e007 | | Load 0x0,0x7
0157 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0158 0092 0229 | )| Action Push_String_Extended,0x229 ; "Je tente de me connecter a l ORB..."
015a e007 | | Load 0x0,0x7
015b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015c e003 | | Load 0x0,0x3
015d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
015e e40d | | Load 0x2,0xd
015f e404 | | Load 0x2,0x4
0160 e002 | | Load 0x0,0x2
0161 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0162 c405 | | Store 0x2,0x5
0163 00cf | | Action Mark_Auxiliary
0164 7808 |x | Jump 0x16d
0165 e003 | | Load 0x0,0x3
0166 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0167 e40d | | Load 0x2,0xd
0168 e404 | | Load 0x2,0x4
0169 e002 | | Load 0x0,0x2
016a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
016b c405 | | Store 0x2,0x5
016c 00c9 | | Action Pop_Auxiliary_Loop
016d e404 | | Load 0x2,0x4
016e e002 | | Load 0x0,0x2
016f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0170 6ff4 |o | Jump_Zero 0x165
0171 00ce | | Action Pop_Auxiliary
0172 e404 | | Load 0x2,0x4
0173 e002 | | Load 0x0,0x2
0174 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0175 6805 |h | Jump_Zero 0x17b
0176 0092 022a | *| Action Push_String_Extended,0x22a ; "OK: On est connecte a l ORB..."
0178 e007 | | Load 0x0,0x7
0179 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
017a 7804 |x | Jump 0x17f
017b 0092 0233 | 3| Action Push_String_Extended,0x233 ; "ERREUR: On n'est pas connecte a l ORB ..."
017d e007 | | Load 0x0,0x7
017e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
017f 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Je tente de recevoir..."
0181 e007 | | Load 0x0,0x7
0182 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0183 00e3 | | Load_Encached Natural_Cache
0184 e40b | | Load 0x2,0xb
0185 e003 | | Load 0x0,0x3
0186 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0187 e40d | | Load 0x2,0xd
0188 e404 | | Load 0x2,0x4
0189 e002 | | Load 0x0,0x2
018a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
018b c405 | | Store 0x2,0x5
018c 00d1 | | Pop_Control Pop_Count_1
018d c40c | | Store 0x2,0xc
018e 0092 0235 | 5| Action Push_String_Extended,0x235 ; "J'ai recu "
0190 e007 | | Load 0x0,0x7
0191 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0192 e40c | | Load 0x2,0xc
0193 00e0 | | Load_Encached Standard_Cache
0194 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0195 e007 | | Load 0x0,0x7
0196 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0197 0092 0236 | 6| Action Push_String_Extended,0x236 ; " octets: "
0199 e007 | | Load 0x0,0x7
019a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
019b 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Message: "
019d e007 | | Load 0x0,0x7
019e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
019f e40b | | Load 0x2,0xb
01a0 e010 | | Load 0x0,0x10
01a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a2 e402 | | Load 0x2,0x2
01a3 01d4 | | Execute Vector,Structure_Write
01a4 00cf | | Action Mark_Auxiliary
01a5 4864 |Hd | Short_Literal 0x64
01a6 4801 |H | Short_Literal 0x1
01a7 0007 | | Action Break_Optional
01a8 00d8 | | Load_Top At_Offset_0
01a9 e402 | | Load 0x2,0x2
01aa 01d7 | | Execute Vector,Field_Read
01ab e007 | | Load 0x0,0x7
01ac 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01ad 00c8 | | Action Pop_Auxiliary_Range
01ae 3ff9 |? | Loop_Increasing 0x1a8
01af 00ce | | Action Pop_Auxiliary
01b0 4801 |H | Short_Literal 0x1
01b1 e007 | | Load 0x0,0x7
01b2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01b3 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Index: "
01b5 e007 | | Load 0x0,0x7
01b6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01b7 4801 |H | Short_Literal 0x1
01b8 e40b | | Load 0x2,0xb
01b9 8011 | | Call 0x0,0x11
01ba 00e0 | | Load_Encached Standard_Cache
01bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01bc e007 | | Load 0x0,0x7
01bd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01be 0092 0239 | 9| Action Push_String_Extended,0x239 ; "Host: "
01c0 e007 | | Load 0x0,0x7
01c1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01c2 4802 |H | Short_Literal 0x2
01c3 e40b | | Load 0x2,0xb
01c4 8012 | | Call 0x0,0x12
01c5 800d | | Call 0x0,0xd
01c6 800e | | Call 0x0,0xe
01c7 e00b | | Load 0x0,0xb
01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c9 e007 | | Load 0x0,0x7
01ca 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01cb 0092 023a | :| Action Push_String_Extended,0x23a ; "Socket: "
01cd e007 | | Load 0x0,0x7
01ce 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01cf 4803 |H | Short_Literal 0x3
01d0 e40b | | Load 0x2,0xb
01d1 8012 | | Call 0x0,0x12
01d2 8009 | | Call 0x0,0x9
01d3 800a | | Call 0x0,0xa
01d4 e00b | | Load 0x0,0xb
01d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d6 e007 | | Load 0x0,0x7
01d7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d8 0092 023b | ;| Action Push_String_Extended,0x23b ; "Codage: "
01da e007 | | Load 0x0,0x7
01db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01dc 4804 |H | Short_Literal 0x4
01dd e40b | | Load 0x2,0xb
01de 8011 | | Call 0x0,0x11
01df 00e0 | | Load_Encached Standard_Cache
01e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e1 e007 | | Load 0x0,0x7
01e2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e3 0092 023c | <| Action Push_String_Extended,0x23c ; "Commande: "
01e5 e007 | | Load 0x0,0x7
01e6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01e7 4805 |H | Short_Literal 0x5
01e8 e40b | | Load 0x2,0xb
01e9 8013 | | Call 0x0,0x13
01ea 8014 | | Call 0x0,0x14
01eb e007 | | Load 0x0,0x7
01ec 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ed 4805 |H | Short_Literal 0x5
01ee e40b | | Load 0x2,0xb
01ef 8012 | | Call 0x0,0x12
01f0 e00b | | Load 0x0,0xb
01f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f2 e007 | | Load 0x0,0x7
01f3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01f4 4801 |H | Short_Literal 0x1
01f5 e007 | | Load 0x0,0x7
01f6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01f7 e404 | | Load 0x2,0x4
01f8 e002 | | Load 0x0,0x2
01f9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01fa e404 | | Load 0x2,0x4
01fb e002 | | Load 0x0,0x2
01fc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01fd 6805 |h | Jump_Zero 0x203
01fe 0092 023d | =| Action Push_String_Extended,0x23d ; "ERREUR: On est encore connecte a l ORB..."
0200 e007 | | Load 0x0,0x7
0201 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0202 7804 |x | Jump 0x207
0203 0092 023e | >| Action Push_String_Extended,0x23e ; "OK: On n'est plus connecte a l ORB..."
0205 e007 | | Load 0x0,0x7
0206 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0207 e404 | | Load 0x2,0x4
0208 e002 | | Load 0x0,0x2
0209 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020a e404 | | Load 0x2,0x4
020b e002 | | Load 0x0,0x2
020c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
020d 6805 |h | Jump_Zero 0x213
020e 0092 023f | ?| Action Push_String_Extended,0x23f ; "ERREUR: La connection a l ORB n'est pas fermee..."
0210 e007 | | Load 0x0,0x7
0211 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0212 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0213 0092 0240 | @| Action Push_String_Extended,0x240 ; "OK: La connection l ORB est maintenant fermee..."
0215 e007 | | Load 0x0,0x7
0216 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0217 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0218 0000 0000 | | .LITERAL {0x00000000, 0x00030000}
021c 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0220 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0224 ; --------------------------------------------------------------------------------------
0224 ; STRING TABLE
0224 ; --------------------------------------------------------------------------------------
0224 003c | < | .STRTAB 0x003c->0x0242 ; "OK: Connect. ouverte...Socket trouve"
0225 005e | ^ | .STRTAB 0x005e->0x0254 ; "ERREUR: Connect. pas ouverte...Socket pas trouve"
0226 008c | | .STRTAB 0x008c->0x026c ; "==> "
0227 008f | | .STRTAB 0x008f->0x026e ; "OK: La connection vers ORB est ouverte..."
0228 00b6 | | .STRTAB 0x00b6->0x0283 ; "ERREUR: La connection vers ORB n'est pas ouverte..."
0229 00e7 | | .STRTAB 0x00e7->0x029c ; "Je tente de me connecter a l ORB..."
022a 0108 | | .STRTAB 0x0108->0x02ae ; "OK: On est connecte a l ORB..."
022b 0124 | $ | .STRTAB 0x0124->0x02bd ; "ERREUR: On n'est pas connecte a l ORB..."
022c 014a | J | .STRTAB 0x014a->0x02d1 ; "Je tente de transmettre le message..."
022d 016d | m | .STRTAB 0x016d->0x02e3 ; "Donne_Phil()\x00"
022e 0178 | x | .STRTAB 0x0178->0x02ea ; " caracteres ont ete envoyes."
022f 0193 | | .STRTAB 0x0193->0x02f8 ; "ERREUR: On est encore connecte..."
0230 01b2 | | .STRTAB 0x01b2->0x0309 ; "OK: On n'est plus connecte.."
0231 01cc | | .STRTAB 0x01cc->0x0317 ; "ERREUR: La connection n'est pas fermee..."
0232 01f3 | | .STRTAB 0x01f3->0x032b ; "OK: La connection est maintenant fermee..."
0233 021b | | .STRTAB 0x021b->0x0340 ; "ERREUR: On n'est pas connecte a l ORB ..."
0234 0242 | B | .STRTAB 0x0242->0x0355 ; "Je tente de recevoir..."
0235 0257 | W | .STRTAB 0x0257->0x0360 ; "J'ai recu "
0236 025f | _ | .STRTAB 0x025f->0x0365 ; " octets: "
0237 0267 | g | .STRTAB 0x0267->0x036a ; "Message: "
0238 026f | o | .STRTAB 0x026f->0x036f ; "Index: "
0239 0275 | u | .STRTAB 0x0275->0x0373 ; "Host: "
023a 027a | z | .STRTAB 0x027a->0x0377 ; "Socket: "
023b 0281 | | .STRTAB 0x0281->0x037b ; "Codage: "
023c 0288 | | .STRTAB 0x0288->0x0380 ; "Commande: "
023d 0291 | | .STRTAB 0x0291->0x0385 ; "ERREUR: On est encore connecte a l ORB..."
023e 02b8 | | .STRTAB 0x02b8->0x039a ; "OK: On n'est plus connecte a l ORB..."
023f 02db | | .STRTAB 0x02db->0x03ac ; "ERREUR: La connection a l ORB n'est pas fermee..."
0240 030a | | .STRTAB 0x030a->0x03c5 ; "OK: La connection l ORB est maintenant fermee..."
0241 0338 | 8 | .STREND 0x0338->0x03dd
0242 4f4b 3a20 |OK: | .STRTAB_STRINGS
03dd 0000 0000 | | .XXX[0x3]
03df 0000 | |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug Table
03e0 ; --------------------------------------------------------------------------------------
03e0 0004 000a | | .DEBUG4 0x0004,0x000a,0x64bf,0x0000,0x0001,0x0002
03e6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
03ea 001b 03ee | | .DBG4T 0x001b,0x03ee,0x8001,0x4000
03ee ; --------------------------------------------------------------------------------------
03ee ; Debug chain
03ee ; --------------------------------------------------------------------------------------
03ee 0013 004c | L| .DBGLEN 0x0013,0x004c
03f0 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0025,0x002a,0x002c,0x002e,0x0033,0x0039,0x003f,0x0045,0x004b,0x004c,0x004f,0x0051,0x0052,0x0053,0x0054,0x0059,0x005a,0x0062,0x0068,0x0079,0x0089,0x008e,0x0092,0x0095,0x009a,0x009d,0x00a1,0x00a5,0x00ab,0x00b1,0x00b9,0x00cb,0x00dc,0x00e1,0x00e5,0x00e8,0x00ed,0x00f0,0x00f4,0x00fa,0x0104,0x0109,0x010d,0x0112,0x0116,0x011a,0x012f,0x0134,0x0138,0x013b,0x013f,0x0144,0x0148,0x014b,0x014f,0x0154,0x0158,0x015c,0x0165,0x016d,0x0172,0x0176,0x017b,0x017f,0x0183,0x018e,0x0192,0x0197,0x019b,0x019f,0x01a5,0x01a8,0x01b0,0x01b3,0x01b7,0x01be,0x01c2,0x01cb,0x01cf,0x01d8,0x01dc,0x01e3,0x01e7,0x01ed,0x01f4,0x01f7,0x01fa,0x01fe,0x0203,0x0207,0x020a,0x020e,0x0213
044f 0001 0002 | | .XXX[0x4c]
0451 0004 0003 | |
0453 0005 0006 | |
0455 0007 0008 | |
0457 0009 000a | |
0459 000b 000c | |
045b 000d 000e | |
045d 0010 000f | |
045f 0011 0012 | |
0461 0013 0014 | |
0463 0015 0016 | |
0465 0018 0017 | |
0467 0019 001a | |
0469 001b 001c | |
046b 001d 001e | |
046d 001f 0020 | |
046f 0021 0022 | ! "|
0471 0023 0024 | # $|
0473 0025 0026 | % &|
0475 0027 0028 | ' (|
0477 0029 002b | ) +|
0479 002a 002c | * ,|
047b 002d 002e | - .|
047d 002f 0030 | / 0|
047f 0031 0032 | 1 2|
0481 0033 0034 | 3 4|
0483 0035 0036 | 5 6|
0485 0037 0038 | 7 8|
0487 0039 003a | 9 :|
0489 003b 003c | ; <|
048b 003d 003e | = >|
048d 003f 0040 | ? @|
048f 0041 0042 | A B|
0491 0043 0044 | C D|
0493 0045 0046 | E F|
0495 0047 0048 | G H|
0497 0049 004a | I J|
0499 004b 004c | K L|
049b 0000 0000 | | .BLANK 0000[0x165]