|
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_0a40b1
└─⟦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 0328 | ( | .CONST 0x0328 ; 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 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 e002 | | Load 0x0,0x2
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 e002 | | Load 0x0,0x2
0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0017 02c7 | | Declare_Variable Any
0018 00d8 | | Load_Top At_Offset_0
0019 1c00 | | Execute_Immediate Run_Utility,0x0
001a 00e1 | | Load_Encached Boolean_Cache
001b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001c 00e1 | | Load_Encached Boolean_Cache
001d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001e 00e1 | | Load_Encached Boolean_Cache
001f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0020 4800 |H | Short_Literal 0x0
0021 0093 0163 | c| push_full_address INIT_0160
0023 00f5 | | Load_Encached Unused21
0024 037d | } | Declare_Type Task,Defined
0025 036f | o | Declare_Variable Task
0026 4800 |H | Short_Literal 0x0
0027 0093 00f3 | | push_full_address INIT_00f0
0029 00f5 | | Load_Encached Unused21
002a 037d | } | Declare_Type Task,Defined
002b 036f | o | Declare_Variable Task
002c 029b 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Unelaborated
002e e003 | | Load 0x0,0x3
002f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0030 a004 | | Store_Unchecked 0x0,0x4
0031 a005 | | Store_Unchecked 0x0,0x5
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0033 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0034 a006 | | Store_Unchecked 0x0,0x6
0035 e007 | | Load 0x0,0x7
0036 a008 | | Store_Unchecked 0x0,0x8
0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0038 a009 | | Store_Unchecked 0x0,0x9
0039 a00a | | Store_Unchecked 0x0,0xa
003a a00b | | Store_Unchecked 0x0,0xb
003b a00c | | Store_Unchecked 0x0,0xc
003c 480e |H | Short_Literal 0xe
003d e216 | | Load 0x1,0x16
003e 020e | | Execute Module,Augment_Imports
003f 0007 | | Action Break_Optional
0040 e003 | | Load 0x0,0x3
0041 e007 | | Load 0x0,0x7
0042 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0043 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0044 a00a | | Store_Unchecked 0x0,0xa
0045 a00d | | Store_Unchecked 0x0,0xd
0046 a00e | | Store_Unchecked 0x0,0xe
0047 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0048 a008 | | Store_Unchecked 0x0,0x8
0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004a 480a |H | Short_Literal 0xa
004b e217 | | Load 0x1,0x17
004c 020e | | Execute Module,Augment_Imports
004d 0007 | | Action Break_Optional
004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004f 00c7 | | Action Elaborate_Subprogram
0050 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0051 00c7 | | Action Elaborate_Subprogram
0052 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0053 00c7 | | Action Elaborate_Subprogram
0054 BODY_0008:
0054 00be | | Action Activate_Tasks
0055 00bc | | Action Signal_Activated
0056 00bb | | Action Signal_Completion
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4800 |H | Short_Literal 0x0
005c e217 | | Load 0x1,0x17
005d 170e | | Execute Task,Entry_Call,Field_Number 0xe
005e 4800 |H | Short_Literal 0x0
005f e216 | | Load 0x1,0x16
0060 170f | | Execute Task,Entry_Call,Field_Number 0xf
0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4800 |H | Short_Literal 0x0
006c e216 | | Load 0x1,0x16
006d 170e | | Execute Task,Entry_Call,Field_Number 0xe
006e 4801 |H | Short_Literal 0x1
006f a214 | | Store_Unchecked 0x1,0x14
0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007e | ~ | .CONST 0x007e ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e00f | | Load 0x0,0xf
007c 0007 | | Action Break_Optional
007d 8010 | | Call 0x0,0x10
007e BODY_0078:
007e 0092 01ed | | Action Push_String_Extended,0x1ed ; "debut traitement"
0080 e007 | | Load 0x0,0x7
0081 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0082 e5ff | | Load 0x2,-0x1
0083 800b | | Call 0x0,0xb
0084 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0085 00d9 | | Load_Top At_Offset_1
0086 460e |F | Jump_Case 0xf
0087 785b |x[ | Jump 0xe3 ; case 0x0
0088 785a |xZ | Jump 0xe3 ; case 0x1
0089 783f |x? | Jump 0xc9 ; case 0x2
008a 7858 |xX | Jump 0xe3 ; case 0x3
008b 7857 |xW | Jump 0xe3 ; case 0x4
008c 7842 |xB | Jump 0xcf ; case 0x5
008d 7855 |xU | Jump 0xe3 ; case 0x6
008e 7854 |xT | Jump 0xe3 ; case 0x7
008f 7853 |xS | Jump 0xe3 ; case 0x8
0090 7852 |xR | Jump 0xe3 ; case 0x9
0091 7851 |xQ | Jump 0xe3 ; case 0xa
0092 7815 |x | Jump 0xa8 ; case 0xb
0093 7841 |xA | Jump 0xd5 ; case 0xc
0094 7846 |xF | Jump 0xdb ; case 0xd
0095 7800 |x | Jump 0x96 ; case 0xe
0096 0092 01ee | | Action Push_String_Extended,0x1ee ; "demande de service pour le serveur"
0098 e007 | | Load 0x0,0x7
0099 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
009a e5ff | | Load 0x2,-0x1
009b 8011 | | Call 0x0,0x11
009c 8012 | | Call 0x0,0x12
009d 00d1 | | Pop_Control Pop_Count_1
009e e5ff | | Load 0x2,-0x1
009f 4806 |H | Short_Literal 0x6
00a0 8004 | | Call 0x0,0x4
00a1 00d1 | | Pop_Control Pop_Count_1
00a2 e5ff | | Load 0x2,-0x1
00a3 4801 |H | Short_Literal 0x1
00a4 e216 | | Load 0x1,0x16
00a5 170d | | Execute Task,Entry_Call,Field_Number 0xd
00a6 00d1 | | Pop_Control Pop_Count_1
00a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a8 0092 01ef | | Action Push_String_Extended,0x1ef ; "answer_registration arrive du cote client"
00aa e007 | | Load 0x0,0x7
00ab 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ac 0092 01f0 | | Action Push_String_Extended,0x1f0 ; "**************************************"
00ae e007 | | Load 0x0,0x7
00af 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b0 0092 01f1 | | Action Push_String_Extended,0x1f1 ; " mon identificateur unique est : "
00b2 e5ff | | Load 0x2,-0x1
00b3 8013 | | Call 0x0,0x13
00b4 00e0 | | Load_Encached Standard_Cache
00b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b6 01cc | | Execute Vector,Catenate
00b7 e007 | | Load 0x0,0x7
00b8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b9 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "*************************************"
00bb e007 | | Load 0x0,0x7
00bc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bd e5ff | | Load 0x2,-0x1
00be 8014 | | Call 0x0,0x14
00bf 00d1 | | Pop_Control Pop_Count_1
00c0 e5ff | | Load 0x2,-0x1
00c1 820e | | Call 0x1,0xe
00c2 00d1 | | Pop_Control Pop_Count_1
00c3 e5ff | | Load 0x2,-0x1
00c4 4801 |H | Short_Literal 0x1
00c5 e216 | | Load 0x1,0x16
00c6 170d | | Execute Task,Entry_Call,Field_Number 0xd
00c7 00d1 | | Pop_Control Pop_Count_1
00c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c9 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "accuse reception unregistration"
00cb e007 | | Load 0x0,0x7
00cc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00cd 8210 | | Call 0x1,0x10
00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cf 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "reponse au service demande arrive chez le client"
00d1 e007 | | Load 0x0,0x7
00d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d3 8210 | | Call 0x1,0x10
00d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d5 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "je suis decu, le service demande n'existe pas"
00d7 e007 | | Load 0x0,0x7
00d8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d9 8210 | | Call 0x1,0x10
00da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00db 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "accuse reception de l'enregistrement du service"
00dd e007 | | Load 0x0,0x7
00de 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00df e5ff | | Load 0x2,-0x1
00e0 8014 | | Call 0x0,0x14
00e1 00d1 | | Pop_Control Pop_Count_1
00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e3 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "autre cas non traite donc arret de l'orb"
00e5 e007 | | Load 0x0,0x7
00e6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e7 8210 | | Call 0x1,0x10
00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0109 | | .CONST 0x0109 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0012 | | .CONST 0x0012 ; Number of locals
00f3 INIT_00f0:
00f3 4800 |H | Short_Literal 0x0
00f4 02cb | | Declare_Variable Entry
00f5 4800 |H | Short_Literal 0x0
00f6 02cb | | Declare_Variable Entry
00f7 00bf | | Action Accept_Activation
00f8 e001 | | Load 0x0,0x1
00f9 0322 | " | Declare_Variable Record
00fa 00d8 | | Load_Top At_Offset_0
00fb 1c00 | | Execute_Immediate Run_Utility,0x0
00fc 00e1 | | Load_Encached Boolean_Cache
00fd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00fe 480e |H | Short_Literal 0xe
00ff 0299 014b | K| Declare_Subprogram INIT_0148,For_Accept
0101 480d 482b |H H+| Declare_Variable Select 0x000, 0x001,
0103 4801 4800 |H H | [0x001]: 0x000 = 0x0000,
0105 4800 4801 |H H | [0x00d]: 0x02b = 0x0158
0107 02cf | |
0108 00bc | | Action Signal_Activated
0109 BODY_00f0:
0109 00cf | | Action Mark_Auxiliary
010a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
010b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
010c 0137 | 7 | Execute Entry,Rendezvous
010d 00cf | | Action Mark_Auxiliary
010e 00da | | Load_Top At_Offset_2
010f 013f | ? | Execute Select,Rendezvous
0110 4602 |F | Jump_Case 0x3
0111 781e |x | Jump 0x130 ; case 0x0
0112 7800 |x | Jump 0x113 ; case 0x1
0113 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "avant reception client"
; case 0x2
0115 e002 | | Load 0x0,0x2
0116 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0117 e003 | | Load 0x0,0x3
0118 0f01 | | Execute_Immediate Equal,0x1
0119 6805 |h | Jump_Zero 0x11f
011a e004 | | Load 0x0,0x4
011b 8005 | | Call 0x0,0x5
011c 4801 |H | Short_Literal 0x1
011d a210 | | Store_Unchecked 0x1,0x10
011e 7811 |x | Jump 0x130
011f e20f | | Load 0x1,0xf
0120 e004 | | Load 0x0,0x4
0121 8006 | | Call 0x0,0x6
0122 00d1 | | Pop_Control Pop_Count_1
0123 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "apres reception client"
0125 e002 | | Load 0x0,0x2
0126 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0127 e20f | | Load 0x1,0xf
0128 8007 | | Call 0x0,0x7
0129 0092 01fa | | Action Push_String_Extended,0x1fa ; "fin affichage"
012b e002 | | Load 0x0,0x2
012c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
012d e20f | | Load 0x1,0xf
012e 8008 | | Call 0x0,0x8
012f 00d1 | | Pop_Control Pop_Count_1
0130 e210 | | Load 0x1,0x10
0131 7002 |p | Jump_Nonzero 0x134
0132 00c9 | | Action Pop_Auxiliary_Loop
0133 7fda | | Jump 0x10e
0134 00ce | | Action Pop_Auxiliary
0135 00db | | Load_Top At_Offset_3
0136 7002 |p | Jump_Nonzero 0x139
0137 00c9 | | Action Pop_Auxiliary_Loop
0138 7fd1 | | Jump 0x10a
0139 00ce | | Action Pop_Auxiliary
013a 0092 01fb | | Action Push_String_Extended,0x1fb ; "fin reception"
013c e002 | | Load 0x0,0x2
013d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
013e 0092 01fc | | Action Push_String_Extended,0x1fc ; "fermeture generale"
0140 e002 | | Load 0x0,0x2
0141 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0142 00bb | | Action Signal_Completion
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e004 | | Load 0x0,0x4
014c 8009 | | Call 0x0,0x9
014d c004 | | Store 0x0,0x4
014e 4801 |H | Short_Literal 0x1
014f c00a | | Store 0x0,0xa
0150 4100 |A | End_Rendezvous 0x0
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; See instruction 0x02cf at 0x101, index=0xd
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e004 | | Load 0x0,0x4
015c 8005 | | Call 0x0,0x5
015d 4801 |H | Short_Literal 0x1
015e a210 | | Store_Unchecked 0x1,0x10
015f 4100 |A | End_Rendezvous 0x0
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 017f | | .CONST 0x017f ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0014 | | .CONST 0x0014 ; Number of locals
0163 INIT_0160:
0163 4801 |H | Short_Literal 0x1
0164 02cb | | Declare_Variable Entry
0165 4800 |H | Short_Literal 0x0
0166 02cb | | Declare_Variable Entry
0167 4800 |H | Short_Literal 0x0
0168 02cb | | Declare_Variable Entry
0169 00bf | | Action Accept_Activation
016a e001 | | Load 0x0,0x1
016b 0322 | " | Declare_Variable Record
016c 00d8 | | Load_Top At_Offset_0
016d 1c00 | | Execute_Immediate Run_Utility,0x0
016e 00e1 | | Load_Encached Boolean_Cache
016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0170 00e2 | | Load_Encached Integer_Cache
0171 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0172 480f |H | Short_Literal 0xf
0173 0299 01b3 | | Declare_Subprogram INIT_01b0,For_Accept
0175 480e 483a |H H:| Declare_Variable Select 0x000, 0x002,
0177 480d 483b |H H;| [0x001]: 0x000 = 0x0000,
0179 4801 4800 |H H | [0x00d]: 0x03b = 0x01d8,
017b 4800 4802 |H H | [0x00e]: 0x03a = 0x01d0
017d 02cf | |
017e 00bc | | Action Signal_Activated
017f BODY_0160:
017f 00cf | | Action Mark_Auxiliary
0180 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0181 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0182 0137 | 7 | Execute Entry,Rendezvous
0183 00cf | | Action Mark_Auxiliary
0184 00da | | Load_Top At_Offset_2
0185 013f | ? | Execute Select,Rendezvous
0186 4603 |F | Jump_Case 0x4
0187 7812 |x | Jump 0x19a ; case 0x0
0188 7811 |x | Jump 0x19a ; case 0x1
0189 7800 |x | Jump 0x18a ; case 0x2
018a e002 | | Load 0x0,0x2 ; case 0x3
018b 680e |h | Jump_Zero 0x19a
018c 4800 |H | Short_Literal 0x0
018d c002 | | Store 0x0,0x2
018e e210 | | Load 0x1,0x10
018f 4801 |H | Short_Literal 0x1
0190 8003 | | Call 0x0,0x3
0191 00d1 | | Pop_Control Pop_Count_1
0192 e210 | | Load 0x1,0x10
0193 e212 | | Load 0x1,0x12
0194 8004 | | Call 0x0,0x4
0195 00d1 | | Pop_Control Pop_Count_1
0196 e005 | | Load 0x0,0x5
0197 e006 | | Load 0x0,0x6
0198 e210 | | Load 0x1,0x10
0199 8007 | | Call 0x0,0x7
019a e211 | | Load 0x1,0x11
019b 7002 |p | Jump_Nonzero 0x19e
019c 00c9 | | Action Pop_Auxiliary_Loop
019d 7fe6 | | Jump 0x184
019e 00ce | | Action Pop_Auxiliary
019f e211 | | Load 0x1,0x11
01a0 7002 |p | Jump_Nonzero 0x1a3
01a1 00c9 | | Action Pop_Auxiliary_Loop
01a2 7fdd | | Jump 0x180
01a3 00ce | | Action Pop_Auxiliary
01a4 0092 01fd | | Action Push_String_Extended,0x1fd ; "fin emission"
01a6 e008 | | Load 0x0,0x8
01a7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a8 00bb | | Action Signal_Completion
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e006 | | Load 0x0,0x6
01b4 8009 | | Call 0x0,0x9
01b5 c006 | | Store 0x0,0x6
01b6 00cf | | Action Mark_Auxiliary
01b7 7805 |x | Jump 0x1bd
01b8 0092 01fe | | Action Push_String_Extended,0x1fe ; "reception non ouverte"
01ba e008 | | Load 0x0,0x8
01bb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01bc 00c9 | | Action Pop_Auxiliary_Loop
01bd e00a | | Load 0x0,0xa
01be 6ff9 |o | Jump_Zero 0x1b8
01bf 00ce | | Action Pop_Auxiliary
01c0 e210 | | Load 0x1,0x10
01c1 800b | | Call 0x0,0xb
01c2 00d1 | | Pop_Control Pop_Count_1
01c3 e005 | | Load 0x0,0x5
01c4 e006 | | Load 0x0,0x6
01c5 e210 | | Load 0x1,0x10
01c6 8007 | | Call 0x0,0x7
01c7 0092 01ff | | Action Push_String_Extended,0x1ff ; "enregistrement client effectue"
01c9 e008 | | Load 0x0,0x8
01ca 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01cb 4100 |A | End_Rendezvous 0x0
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; See instruction 0x02cf at 0x175, index=0xe
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e006 | | Load 0x0,0x6
01d4 800c | | Call 0x0,0xc
01d5 4801 |H | Short_Literal 0x1
01d6 a211 | | Store_Unchecked 0x1,0x11
01d7 4100 |A | End_Rendezvous 0x0
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; See instruction 0x02cf at 0x175, index=0xd
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e005 | | Load 0x0,0x5
01dc e006 | | Load 0x0,0x6
01dd e5fe | | Load 0x2,-0x2
01de 8007 | | Call 0x0,0x7
01df 00db | | Load_Top At_Offset_3
01e0 800d | | Call 0x0,0xd
01e1 0f06 | | Execute_Immediate Equal,0x6
01e2 6805 |h | Jump_Zero 0x1e8
01e3 4801 |H | Short_Literal 0x1
01e4 c002 | | Store 0x0,0x2
01e5 00db | | Load_Top At_Offset_3
01e6 800e | | Call 0x0,0xe
01e7 a212 | | Store_Unchecked 0x1,0x12
01e8 0092 0200 | | Action Push_String_Extended,0x200 ; "message transmis"
01ea e008 | | Load 0x0,0x8
01eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ec 4101 |A | End_Rendezvous 0x1
01ed ; --------------------------------------------------------------------------------------
01ed ; STRING TABLE
01ed ; --------------------------------------------------------------------------------------
01ed 002a | * | .STRTAB 0x002a->0x0202 ; "debut traitement"
01ee 0038 | 8 | .STRTAB 0x0038->0x020a ; "demande de service pour le serveur"
01ef 0058 | X | .STRTAB 0x0058->0x021b ; "answer_registration arrive du cote client"
01f0 007f | | .STRTAB 0x007f->0x022f ; "**************************************"
01f1 00a3 | | .STRTAB 0x00a3->0x0242 ; " mon identificateur unique est : "
01f2 00c2 | | .STRTAB 0x00c2->0x0253 ; "*************************************"
01f3 00e5 | | .STRTAB 0x00e5->0x0265 ; "accuse reception unregistration"
01f4 0102 | | .STRTAB 0x0102->0x0275 ; "reponse au service demande arrive chez le client"
01f5 0130 | 0 | .STRTAB 0x0130->0x028d ; "je suis decu, le service demande n'existe pas"
01f6 015b | [ | .STRTAB 0x015b->0x02a3 ; "accuse reception de l'enregistrement du service"
01f7 0188 | | .STRTAB 0x0188->0x02bb ; "autre cas non traite donc arret de l'orb"
01f8 01ae | | .STRTAB 0x01ae->0x02cf ; "avant reception client"
01f9 01c2 | | .STRTAB 0x01c2->0x02da ; "apres reception client"
01fa 01d6 | | .STRTAB 0x01d6->0x02e5 ; "fin affichage"
01fb 01e1 | | .STRTAB 0x01e1->0x02eb ; "fin reception"
01fc 01ec | | .STRTAB 0x01ec->0x02f2 ; "fermeture generale"
01fd 01fc | | .STRTAB 0x01fc->0x02fb ; "fin emission"
01fe 0206 | | .STRTAB 0x0206->0x0301 ; "reception non ouverte"
01ff 0219 | | .STRTAB 0x0219->0x030b ; "enregistrement client effectue"
0200 0235 | 5 | .STRTAB 0x0235->0x031a ; "message transmis"
0201 0243 | C | .STREND 0x0243->0x0322
0202 6465 6275 |debu| .STRTAB_STRINGS
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 000a | | .DEBUG4 0x0004,0x000a,0x622a,0x0000,0x0001,0x000e
032e 000b 0366 | f| .DBG4T 0x000b,0x0366,0xc000,0x0000
0332 0010 036a | j| .DBG4T 0x0010,0x036a,0xc000,0x0000
0336 005b 0378 | [ x| .DBG4T 0x005b,0x0378,0x1001,0x0000
033a 006b 037c | k || .DBG4T 0x006b,0x037c,0x1001,0x0000
033e 007b 0380 | { | .DBG4T 0x007b,0x0380,0x1001,0x4000
0342 00f3 03b4 | | .DBG4T 0x00f3,0x03b4,0x0000,0x0000
0346 00f8 03b8 | | .DBG4T 0x00f8,0x03b8,0x0000,0x4000
034a 014b 03da | K | .DBG4T 0x014b,0x03da,0x0003,0x0000
034e 015b 03de | [ | .DBG4T 0x015b,0x03de,0x0003,0x0000
0352 0163 03e2 | c | .DBG4T 0x0163,0x03e2,0x0000,0x0000
0356 016a 03e7 | j | .DBG4T 0x016a,0x03e7,0x0000,0x4000
035a 01b3 0400 | | .DBG4T 0x01b3,0x0400,0x0003,0x4000
035e 01d3 040e | | .DBG4T 0x01d3,0x040e,0x0003,0x0000
0362 01db 0412 | | .DBG4T 0x01db,0x0412,0x0003,0x0000
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0002 0000 | | .DBGLEN 0x0002,0x0000
0368 000b 000d | | .DBGLNO 0x000b,0x000d
036a ; --------------------------------------------------------------------------------------
036a ; Debug chain
036a ; --------------------------------------------------------------------------------------
036a 000c 0000 | | .DBGLEN 0x000c,0x0000
036c 0010 001a | | .DBGLNO 0x0010,0x001a,0x001c,0x001e,0x0020,0x0026,0x002c,0x002e,0x0040,0x004e,0x0050,0x0052
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug chain
0378 ; --------------------------------------------------------------------------------------
0378 0000 0002 | | .DBGLEN 0x0000,0x0002
037a 005b 005e | [ ^| .DBGLNO 0x005b,0x005e
037c ; --------------------------------------------------------------------------------------
037c ; Debug chain
037c ; --------------------------------------------------------------------------------------
037c 0000 0002 | | .DBGLEN 0x0000,0x0002
037e 006b 006e | k n| .DBGLNO 0x006b,0x006e
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug chain
0380 ; --------------------------------------------------------------------------------------
0380 0002 0018 | | .DBGLEN 0x0002,0x0018
0382 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x007e,0x0082,0x0085,0x0096,0x009a,0x009e,0x00a2,0x00a8,0x00ac,0x00b0,0x00b9,0x00bd,0x00c0,0x00c3,0x00c9,0x00cd,0x00cf,0x00d3,0x00d5,0x00d9,0x00db,0x00df,0x00e3,0x00e7
039c 0001 0002 | | .XXX[0x18]
039e 0003 0013 | |
03a0 0014 0015 | |
03a2 0016 0004 | |
03a4 0005 0006 | |
03a6 0007 0008 | |
03a8 0009 000a | |
03aa 000b 000c | |
03ac 000d 000e | |
03ae 000f 0010 | |
03b0 0011 0012 | |
03b2 0017 0018 | |
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug chain
03b4 ; --------------------------------------------------------------------------------------
03b4 0002 0000 | | .DBGLEN 0x0002,0x0000
03b6 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0002 000f | | .DBGLEN 0x0002,0x000f
03ba 00f8 00fc | | .DBGLNO 0x00f8,0x00fc,0x010a,0x010e,0x0113,0x0117,0x011a,0x011c,0x011f,0x0123,0x0127,0x0129,0x012d,0x0130,0x0135,0x013a,0x013e
03cb 0002 0004 | | .XXX[0xf]
03cd 0006 0007 | |
03cf 0008 0009 | |
03d1 000a 000b | |
03d3 000c 000d | |
03d5 000e 000f | |
03d7 0010 0011 | |
03d9 0012 | |
03da ; --------------------------------------------------------------------------------------
03da ; Debug chain
03da ; --------------------------------------------------------------------------------------
03da 0000 0002 | | .DBGLEN 0x0000,0x0002
03dc 014b 014e | K N| .DBGLNO 0x014b,0x014e
03de ; --------------------------------------------------------------------------------------
03de ; Debug chain
03de ; --------------------------------------------------------------------------------------
03de 0000 0002 | | .DBGLEN 0x0000,0x0002
03e0 015b 015d | [ ]| .DBGLNO 0x015b,0x015d
03e2 ; --------------------------------------------------------------------------------------
03e2 ; Debug chain
03e2 ; --------------------------------------------------------------------------------------
03e2 0003 0000 | | .DBGLEN 0x0003,0x0000
03e4 0163 0165 | c e| .DBGLNO 0x0163,0x0165,0x0167
03e7 ; --------------------------------------------------------------------------------------
03e7 ; Debug chain
03e7 ; --------------------------------------------------------------------------------------
03e7 0003 000a | | .DBGLEN 0x0003,0x000a
03e9 016a 016e | j n| .DBGLNO 0x016a,0x016e,0x0170,0x0180,0x0184,0x018a,0x018c,0x018e,0x0192,0x0196,0x019a,0x019f,0x01a4
03f6 0002 0004 | | .XXX[0xa]
03f8 0007 0008 | |
03fa 0009 000a | |
03fc 000b 000c | |
03fe 000d 000e | |
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug chain
0400 ; --------------------------------------------------------------------------------------
0400 0000 0006 | | .DBGLEN 0x0000,0x0006
0402 01b3 01b8 | | .DBGLNO 0x01b3,0x01b8,0x01bd,0x01c0,0x01c3,0x01c7
0408 0001 0003 | | .XXX[0x6]
040a 0002 0004 | |
040c 0005 0006 | |
040e ; --------------------------------------------------------------------------------------
040e ; Debug chain
040e ; --------------------------------------------------------------------------------------
040e 0000 0002 | | .DBGLEN 0x0000,0x0002
0410 01d3 01d5 | | .DBGLNO 0x01d3,0x01d5
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug chain
0412 ; --------------------------------------------------------------------------------------
0412 0000 0005 | | .DBGLEN 0x0000,0x0005
0414 01db 01df | | .DBGLNO 0x01db,0x01df,0x01e3,0x01e5,0x01e8
0419 0000 0000 | | .BLANK 0000[0x1e7]