DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦4d8393579⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1c7cc3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0418       |    |		.CONST	0x0418								; 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 000d       |    |		.CONST	0x000d								; 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 0023       | #  |		.CONST	0x0023								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0005       |    |		.CONST	0x0005								; Number of locals
001b			INIT_0018:
001b 00e3       |    |		Load_Encached	Natural_Cache
001c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001d 00e3       |    |		Load_Encached	Natural_Cache
001e 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
001f 00e3       |    |		Load_Encached	Natural_Cache
0020 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0021 00e1       |    |		Load_Encached	Boolean_Cache
0022 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0023			BODY_0018:
0023 e5ff       |    |		Load	0x2,-0x1
0024 8002       |    |		Call	0x0,0x2
0025 460c       |F   |		Jump_Case	0xd
0026 7811       |x   |		Jump	0x38								; case 0x0
0027 7839       |x9  |		Jump	0x61								; case 0x1
0028 785f       |x_  |		Jump	0x88								; case 0x2
0029 78b7       |x   |		Jump	0xe1								; case 0x3
002a 78ea       |x   |		Jump	0x115								; case 0x4
002b 78f2       |x   |		Jump	0x11e								; case 0x5
002c 7933       |y3  |		Jump	0x160								; case 0x6
002d 7940       |y@  |		Jump	0x16e								; case 0x7
002e 794d       |yM  |		Jump	0x17c								; case 0x8
002f 795c       |y\  |		Jump	0x18c								; case 0x9
0030 7967       |yg  |		Jump	0x198								; case 0xa
0031 7976       |yv  |		Jump	0x1a8								; case 0xb
0032 7800       |x   |		Jump	0x33								; case 0xc
0033 0092 01b4  |    |		Action	Push_String_Extended,0x1b4					; "Le type de requete ne convient pas"
0035 e003       |    |		Load	0x0,0x3
0036 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0037 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0038 0092 01b5  |    |		Action	Push_String_Extended,0x1b5					; "demande d'enregistrement d'un objet"
003a e003       |    |		Load	0x0,0x3
003b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
003c e5ff       |    |		Load	0x2,-0x1
003d 8004       |    |		Call	0x0,0x4
003e e5ff       |    |		Load	0x2,-0x1
003f 8005       |    |		Call	0x0,0x5
0040 8006       |    |		Call	0x0,0x6
0041 a402       |    |		Store_Unchecked	0x2,0x2
0042 e5ff       |    |		Load	0x2,-0x1
0043 e402       |    |		Load	0x2,0x2
0044 8007       |    |		Call	0x0,0x7
0045 00d1       |    |		Pop_Control	Pop_Count_1
0046 e5ff       |    |		Load	0x2,-0x1
0047 8008       |    |		Call	0x0,0x8
0048 8009       |    |		Call	0x0,0x9
0049 e5ff       |    |		Load	0x2,-0x1
004a 8008       |    |		Call	0x0,0x8
004b 800a       |    |		Call	0x0,0xa
004c e5ff       |    |		Load	0x2,-0x1
004d 800b       |    |		Call	0x0,0xb
004e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
004f 00d8       |    |		Load_Top	At_Offset_0
0050 6809       |h   |		Jump_Zero	0x5a
0051 0092 01b6  |    |		Action	Push_String_Extended,0x1b6					; "enregistrement realise : numero Id = "
0053 e402       |    |		Load	0x2,0x2
0054 00e0       |    |		Load_Encached	Standard_Cache
0055 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0056 01cc       |    |		Execute	Vector,Catenate
0057 e003       |    |		Load	0x0,0x3
0058 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0059 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
005a 0092 01b7  |    |		Action	Push_String_Extended,0x1b7					; "enregistrement non realise car la connexion a echoue"
005c e003       |    |		Load	0x0,0x3
005d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
005e 00db       |    |		Load_Top	At_Offset_3
005f 800c       |    |		Call	0x0,0xc
0060 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0061 0092 01b8  |    |		Action	Push_String_Extended,0x1b8					; "demande de retrait d'un objet "
0063 e003       |    |		Load	0x0,0x3
0064 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0065 e5ff       |    |		Load	0x2,-0x1
0066 0092 01b9  |    |		Action	Push_String_Extended,0x1b9					; "confirmation : ordre d'unregistration recu"
0068 800d       |    |		Call	0x0,0xd
0069 00d1       |    |		Pop_Control	Pop_Count_1
006a e5ff       |    |		Load	0x2,-0x1
006b 8008       |    |		Call	0x0,0x8
006c a402       |    |		Store_Unchecked	0x2,0x2
006d 00db       |    |		Load_Top	At_Offset_3
006e 8009       |    |		Call	0x0,0x9
006f e402       |    |		Load	0x2,0x2
0070 800a       |    |		Call	0x0,0xa
0071 e5ff       |    |		Load	0x2,-0x1
0072 800b       |    |		Call	0x0,0xb
0073 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0074 00d8       |    |		Load_Top	At_Offset_0
0075 680d       |h   |		Jump_Zero	0x83
0076 00db       |    |		Load_Top	At_Offset_3
0077 800c       |    |		Call	0x0,0xc
0078 00db       |    |		Load_Top	At_Offset_3
0079 800e       |    |		Call	0x0,0xe
007a 00db       |    |		Load_Top	At_Offset_3
007b 800f       |    |		Call	0x0,0xf
007c 00db       |    |		Load_Top	At_Offset_3
007d 8010       |    |		Call	0x0,0x10
007e 0092 01ba  |    |		Action	Push_String_Extended,0x1ba					; "enregistrement resilie "
0080 e003       |    |		Load	0x0,0x3
0081 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0082 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0083 0092 01bb  |    |		Action	Push_String_Extended,0x1bb					; "enregistrement non resilie car la connexion de confirmation a echoue"
0085 e003       |    |		Load	0x0,0x3
0086 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0087 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0088 0092 01bc  |    |		Action	Push_String_Extended,0x1bc					; "demande de maintenance"
008a e003       |    |		Load	0x0,0x3
008b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
008c e5ff       |    |		Load	0x2,-0x1
008d 8008       |    |		Call	0x0,0x8
008e a402       |    |		Store_Unchecked	0x2,0x2
008f 00cf       |    |		Action	Mark_Auxiliary
0090 783b       |x;  |		Jump	0xcc
0091 e402       |    |		Load	0x2,0x2
0092 8009       |    |		Call	0x0,0x9
0093 e402       |    |		Load	0x2,0x2
0094 800a       |    |		Call	0x0,0xa
0095 e5ff       |    |		Load	0x2,-0x1
0096 8011       |    |		Call	0x0,0x11
0097 e5ff       |    |		Load	0x2,-0x1
0098 8008       |    |		Call	0x0,0x8
0099 e5ff       |    |		Load	0x2,-0x1
009a 8008       |    |		Call	0x0,0x8
009b 480a       |H   |		Short_Literal	0xa
009c 480a       |H   |		Short_Literal	0xa
009d 0092 01bd  |    |		Action	Push_String_Extended,0x1bd					; " N.Identification : "
009f e403       |    |		Load	0x2,0x3
00a0 00e0       |    |		Load_Encached	Standard_Cache
00a1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00a2 01cc       |    |		Execute	Vector,Catenate
00a3 01cb       |    |		Execute	Vector,Append
00a4 0092 01be  |    |		Action	Push_String_Extended,0x1be					; "               "
00a6 01cc       |    |		Execute	Vector,Catenate
00a7 0092 01bf  |    |		Action	Push_String_Extended,0x1bf					; "N.Socket: "
00a9 01cc       |    |		Execute	Vector,Catenate
00aa e403       |    |		Load	0x2,0x3
00ab 8009       |    |		Call	0x0,0x9
00ac e012       |    |		Load	0x0,0x12
00ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ae 01cc       |    |		Execute	Vector,Catenate
00af 01cb       |    |		Execute	Vector,Append
00b0 0092 01c0  |    |		Action	Push_String_Extended,0x1c0					; "              "
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 0092 01c1  |    |		Action	Push_String_Extended,0x1c1					; " Adr. IP machine: "
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 e403       |    |		Load	0x2,0x3
00b7 800a       |    |		Call	0x0,0xa
00b8 e012       |    |		Load	0x0,0x12
00b9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ba 01cc       |    |		Execute	Vector,Catenate
00bb 8013       |    |		Call	0x0,0x13
00bc 4805       |H   |		Short_Literal	0x5
00bd 8014       |    |		Call	0x0,0x14
00be 800b       |    |		Call	0x0,0xb
00bf 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00c0 0092 01c2  |    |		Action	Push_String_Extended,0x1c2					; "envoie info de maintenance : "
00c2 e403       |    |		Load	0x2,0x3
00c3 00e0       |    |		Load_Encached	Standard_Cache
00c4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c5 01cc       |    |		Execute	Vector,Catenate
00c6 e003       |    |		Load	0x0,0x3
00c7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 0a01       |    |		Execute_Immediate	Plus,0x1
00ca c403       |    |		Store	0x2,0x3
00cb 00c9       |    |		Action	Pop_Auxiliary_Loop
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 8015       |    |		Call	0x0,0x15
00ce 77c2       |w   |		Jump_Nonzero	0x91
00cf 00ce       |    |		Action	Pop_Auxiliary
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 8009       |    |		Call	0x0,0x9
00d2 e402       |    |		Load	0x2,0x2
00d3 800a       |    |		Call	0x0,0xa
00d4 4800       |H   |		Short_Literal	0x0
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 8008       |    |		Call	0x0,0x8
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 8008       |    |		Call	0x0,0x8
00d9 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "---------- Fin de la liste des abonnes ----------"
00db 8013       |    |		Call	0x0,0x13
00dc 4805       |H   |		Short_Literal	0x5
00dd 8014       |    |		Call	0x0,0x14
00de 800b       |    |		Call	0x0,0xb
00df 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e1 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; "demande de travail"
00e3 e003       |    |		Load	0x0,0x3
00e4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 8016       |    |		Call	0x0,0x16
00e8 8017       |    |		Call	0x0,0x17
00e9 a402       |    |		Store_Unchecked	0x2,0x2
00ea 00cf       |    |		Action	Mark_Auxiliary
00eb e402       |    |		Load	0x2,0x2
00ec 8015       |    |		Call	0x0,0x15
00ed 6823       |h#  |		Jump_Zero	0x111
00ee e402       |    |		Load	0x2,0x2
00ef 8009       |    |		Call	0x0,0x9
00f0 e402       |    |		Load	0x2,0x2
00f1 800a       |    |		Call	0x0,0xa
00f2 e5ff       |    |		Load	0x2,-0x1
00f3 800b       |    |		Call	0x0,0xb
00f4 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 6807       |h   |		Jump_Zero	0xfe
00f7 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "message envoye pour la requete"
00f9 e003       |    |		Load	0x0,0x3
00fa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 7016       |p   |		Jump_Nonzero	0x113
00fd 7813       |x   |		Jump	0x111
00fe 0092 01c6  |    |		Action	Push_String_Extended,0x1c6					; "le serveur concerne  n'est plus enregistre, recherche d'un autre"
0100 e003       |    |		Load	0x0,0x3
0101 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0102 00da       |    |		Load_Top	At_Offset_2
0103 0a01       |    |		Execute_Immediate	Plus,0x1
0104 005b       | [  |		Store_Top	Discrete,At_Offset_3
0105 00da       |    |		Load_Top	At_Offset_2
0106 e5ff       |    |		Load	0x2,-0x1
0107 8016       |    |		Call	0x0,0x16
0108 8017       |    |		Call	0x0,0x17
0109 a402       |    |		Store_Unchecked	0x2,0x2
010a e402       |    |		Load	0x2,0x2
010b 7005       |p   |		Jump_Nonzero	0x111
010c 0092 01c7  |    |		Action	Push_String_Extended,0x1c7					; "Il n'y a plus de serveur concerne, la connexion a echouee"
010e e003       |    |		Load	0x0,0x3
010f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0110 7802       |x   |		Jump	0x113
0111 00c9       |    |		Action	Pop_Auxiliary_Loop
0112 7fd8       |    |		Jump	0xeb
0113 00ce       |    |		Action	Pop_Auxiliary
0114 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0115 0092 01c8  |    |		Action	Push_String_Extended,0x1c8					; "demande d'information"
0117 e003       |    |		Load	0x0,0x3
0118 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0119 0092 01c9  |    |		Action	Push_String_Extended,0x1c9					; " non realise"
011b e003       |    |		Load	0x0,0x3
011c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
011d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
011e 0092 01ca  |    |		Action	Push_String_Extended,0x1ca					; "demande de propagation de message"
0120 e003       |    |		Load	0x0,0x3
0121 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0122 8018       |    |		Call	0x0,0x18
0123 8019       |    |		Call	0x0,0x19
0124 0f00       |    |		Execute_Immediate	Equal,0x0
0125 e5ff       |    |		Load	0x2,-0x1
0126 8011       |    |		Call	0x0,0x11
0127 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0128 0279       | y  |		Execute	Discrete,And
0129 6810       |h   |		Jump_Zero	0x13a
012a 00cf       |    |		Action	Mark_Auxiliary
012b 780a       |x   |		Jump	0x136
012c 801a       |    |		Call	0x0,0x1a
012d a402       |    |		Store_Unchecked	0x2,0x2
012e e402       |    |		Load	0x2,0x2
012f 8009       |    |		Call	0x0,0x9
0130 e402       |    |		Load	0x2,0x2
0131 800a       |    |		Call	0x0,0xa
0132 e5ff       |    |		Load	0x2,-0x1
0133 800b       |    |		Call	0x0,0xb
0134 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0135 00c9       |    |		Action	Pop_Auxiliary_Loop
0136 8019       |    |		Call	0x0,0x19
0137 6ff4       |o   |		Jump_Zero	0x12c
0138 00ce       |    |		Action	Pop_Auxiliary
0139 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
013a e5ff       |    |		Load	0x2,-0x1
013b 801b       |    |		Call	0x0,0x1b
013c a402       |    |		Store_Unchecked	0x2,0x2
013d 00db       |    |		Load_Top	At_Offset_3
013e 8009       |    |		Call	0x0,0x9
013f e402       |    |		Load	0x2,0x2
0140 800a       |    |		Call	0x0,0xa
0141 e5ff       |    |		Load	0x2,-0x1
0142 800b       |    |		Call	0x0,0xb
0143 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0144 00d8       |    |		Load_Top	At_Offset_0
0145 6805       |h   |		Jump_Zero	0x14b
0146 0092 01cb  |    |		Action	Push_String_Extended,0x1cb					; "envoi  realise"
0148 e003       |    |		Load	0x0,0x3
0149 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
014a 7804       |x   |		Jump	0x14f
014b 0092 01cc  |    |		Action	Push_String_Extended,0x1cc					; "l'envoi n'a pu etre realise car la cible est absente"
014d e003       |    |		Load	0x0,0x3
014e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
014f 801c       |    |		Call	0x0,0x1c
0150 00cf       |    |		Action	Mark_Auxiliary
0151 780a       |x   |		Jump	0x15c
0152 801d       |    |		Call	0x0,0x1d
0153 a402       |    |		Store_Unchecked	0x2,0x2
0154 e402       |    |		Load	0x2,0x2
0155 8009       |    |		Call	0x0,0x9
0156 e402       |    |		Load	0x2,0x2
0157 800a       |    |		Call	0x0,0xa
0158 e5ff       |    |		Load	0x2,-0x1
0159 800b       |    |		Call	0x0,0xb
015a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
015b 00c9       |    |		Action	Pop_Auxiliary_Loop
015c 801e       |    |		Call	0x0,0x1e
015d 6ff4       |o   |		Jump_Zero	0x152
015e 00ce       |    |		Action	Pop_Auxiliary
015f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0160 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; "demande d'enregistrement de contrat"
0162 e003       |    |		Load	0x0,0x3
0163 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0164 e5ff       |    |		Load	0x2,-0x1
0165 8008       |    |		Call	0x0,0x8
0166 e5ff       |    |		Load	0x2,-0x1
0167 8016       |    |		Call	0x0,0x16
0168 801f       |    |		Call	0x0,0x1f
0169 0092 01ce  |    |		Action	Push_String_Extended,0x1ce					; "stockage du contrat realise"
016b e003       |    |		Load	0x0,0x3
016c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
016d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
016e 0092 01cf  |    |		Action	Push_String_Extended,0x1cf					; "demande de retrait de contrat"
0170 e003       |    |		Load	0x0,0x3
0171 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0172 e5ff       |    |		Load	0x2,-0x1
0173 8008       |    |		Call	0x0,0x8
0174 e5ff       |    |		Load	0x2,-0x1
0175 8016       |    |		Call	0x0,0x16
0176 8020       |    |		Call	0x0,0x20
0177 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; " retrait de contrat realise"
0179 e003       |    |		Load	0x0,0x3
017a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
017b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017c 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "demande d'abonnement espion"
017e e003       |    |		Load	0x0,0x3
017f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0180 e5ff       |    |		Load	0x2,-0x1
0181 8008       |    |		Call	0x0,0x8
0182 8015       |    |		Call	0x0,0x15
0183 6807       |h   |		Jump_Zero	0x18b
0184 e5ff       |    |		Load	0x2,-0x1
0185 8008       |    |		Call	0x0,0x8
0186 8021       | !  |		Call	0x0,0x21
0187 0092 01d2  |    |		Action	Push_String_Extended,0x1d2					; " abonnement espion realise"
0189 e003       |    |		Load	0x0,0x3
018a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
018b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018c 0092 01d3  |    |		Action	Push_String_Extended,0x1d3					; "demande de retrait d'abonnement espion"
018e e003       |    |		Load	0x0,0x3
018f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0190 e5ff       |    |		Load	0x2,-0x1
0191 8008       |    |		Call	0x0,0x8
0192 800f       |    |		Call	0x0,0xf
0193 0092 01d4  |    |		Action	Push_String_Extended,0x1d4					; "abonnement espion resilie "
0195 e003       |    |		Load	0x0,0x3
0196 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0197 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0198 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; "demande d'enregistrement de filtre"
019a e003       |    |		Load	0x0,0x3
019b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
019c e5ff       |    |		Load	0x2,-0x1
019d 8008       |    |		Call	0x0,0x8
019e 8015       |    |		Call	0x0,0x15
019f 6807       |h   |		Jump_Zero	0x1a7
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 8008       |    |		Call	0x0,0x8
01a2 8022       | "  |		Call	0x0,0x22
01a3 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; " abonnement filtre realise"
01a5 e003       |    |		Load	0x0,0x3
01a6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a8 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; "demande de retrait  de filtre"
01aa e003       |    |		Load	0x0,0x3
01ab 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01ac e5ff       |    |		Load	0x2,-0x1
01ad 8008       |    |		Call	0x0,0x8
01ae 8010       |    |		Call	0x0,0x10
01af 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; "abonnement filtre resilie"
01b1 e003       |    |		Load	0x0,0x3
01b2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b4 ; --------------------------------------------------------------------------------------
01b4 ; STRING TABLE
01b4 ; --------------------------------------------------------------------------------------
01b4 004c       | L  |		.STRTAB	0x004c->0x01da							; "Le type de requete ne convient pas"
01b5 006c       | l  |		.STRTAB	0x006c->0x01eb							; "demande d'enregistrement d'un objet"
01b6 008d       |    |		.STRTAB	0x008d->0x01fc							; "enregistrement realise : numero Id = "
01b7 00b0       |    |		.STRTAB	0x00b0->0x020f							; "enregistrement non realise car la connexion a echoue"
01b8 00e2       |    |		.STRTAB	0x00e2->0x0229							; "demande de retrait d'un objet "
01b9 00fe       |    |		.STRTAB	0x00fe->0x0238							; "confirmation : ordre d'unregistration recu"
01ba 0126       | &  |		.STRTAB	0x0126->0x024d							; "enregistrement resilie "
01bb 013b       | ;  |		.STRTAB	0x013b->0x0258							; "enregistrement non resilie car la connexion de confirmation a echoue"
01bc 017d       | }  |		.STRTAB	0x017d->0x027a							; "demande de maintenance"
01bd 0191       |    |		.STRTAB	0x0191->0x0285							; " N.Identification : "
01be 01a3       |    |		.STRTAB	0x01a3->0x028f							; "               "
01bf 01b0       |    |		.STRTAB	0x01b0->0x0297							; "N.Socket: "
01c0 01b8       |    |		.STRTAB	0x01b8->0x029c							; "              "
01c1 01c4       |    |		.STRTAB	0x01c4->0x02a3							; " Adr. IP machine: "
01c2 01d4       |    |		.STRTAB	0x01d4->0x02ac							; "envoie info de maintenance : "
01c3 01ef       |    |		.STRTAB	0x01ef->0x02ba							; "---------- Fin de la liste des abonnes ----------"
01c4 021e       |    |		.STRTAB	0x021e->0x02d3							; "demande de travail"
01c5 022e       | .  |		.STRTAB	0x022e->0x02dc							; "message envoye pour la requete"
01c6 024a       | J  |		.STRTAB	0x024a->0x02eb							; "le serveur concerne  n'est plus enregistre, recherche d'un autre"
01c7 0288       |    |		.STRTAB	0x0288->0x030b							; "Il n'y a plus de serveur concerne, la connexion a echouee"
01c8 02bf       |    |		.STRTAB	0x02bf->0x0327							; "demande d'information"
01c9 02d2       |    |		.STRTAB	0x02d2->0x0332							; " non realise"
01ca 02dc       |    |		.STRTAB	0x02dc->0x0338							; "demande de propagation de message"
01cb 02fb       |    |		.STRTAB	0x02fb->0x0348							; "envoi  realise"
01cc 0307       |    |		.STRTAB	0x0307->0x034f							; "l'envoi n'a pu etre realise car la cible est absente"
01cd 0339       | 9  |		.STRTAB	0x0339->0x0369							; "demande d'enregistrement de contrat"
01ce 035a       | Z  |		.STRTAB	0x035a->0x037b							; "stockage du contrat realise"
01cf 0373       | s  |		.STRTAB	0x0373->0x0388							; "demande de retrait de contrat"
01d0 038e       |    |		.STRTAB	0x038e->0x0397							; " retrait de contrat realise"
01d1 03a7       |    |		.STRTAB	0x03a7->0x03a4							; "demande d'abonnement espion"
01d2 03c0       |    |		.STRTAB	0x03c0->0x03b2							; " abonnement espion realise"
01d3 03d8       |    |		.STRTAB	0x03d8->0x03bf							; "demande de retrait d'abonnement espion"
01d4 03fc       |    |		.STRTAB	0x03fc->0x03d2							; "abonnement espion resilie "
01d5 0414       |    |		.STRTAB	0x0414->0x03df							; "demande d'enregistrement de filtre"
01d6 0434       | 4  |		.STRTAB	0x0434->0x03f0							; " abonnement filtre realise"
01d7 044c       | L  |		.STRTAB	0x044c->0x03fd							; "demande de retrait  de filtre"
01d8 0467       | g  |		.STRTAB	0x0467->0x040b							; "abonnement filtre resilie"
01d9 047e       | ~  |		.STREND 0x047e->0x0418
01da 4c65 2074  |Le t|		.STRTAB_STRINGS
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug Table
0418 ; --------------------------------------------------------------------------------------
0418 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x875b,0x0000,0x0001,0x0003
041e 000b 042a  |   *|		.DBG4T	0x000b,0x042a,0x8000,0x0000
0422 000e 042d  |   -|		.DBG4T	0x000e,0x042d,0x8000,0x0000
0426 001b 0430  |   0|		.DBG4T	0x001b,0x0430,0x0001,0x4000
042a ; --------------------------------------------------------------------------------------
042a ; Debug chain
042a ; --------------------------------------------------------------------------------------
042a 0001 0000  |    |		.DBGLEN	0x0001,0x0000
042c 000b       |    |		.DBGLNO	0x000b
042d ; --------------------------------------------------------------------------------------
042d ; Debug chain
042d ; --------------------------------------------------------------------------------------
042d 0001 0000  |    |		.DBGLEN	0x0001,0x0000
042f 000e       |    |		.DBGLNO	0x000e
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug chain
0430 ; --------------------------------------------------------------------------------------
0430 0004 004e  |   N|		.DBGLEN	0x0004,0x004e
0432 001b 001d  |    |		.DBGLNO	0x001b,0x001d,0x001f,0x0021,0x0023,0x0033,0x0038,0x003c,0x0042,0x0046,0x004f,0x0051,0x005a,0x005e,0x0061,0x0065,0x006a,0x006d,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0083,0x0088,0x008c,0x0091,0x00c0,0x00c8,0x00cc,0x00d0,0x00e1,0x00e5,0x00eb,0x00ee,0x00f5,0x00f7,0x00fb,0x00fe,0x0102,0x0105,0x010a,0x010c,0x0110,0x0115,0x0119,0x011e,0x0122,0x0123,0x012c,0x012e,0x0136,0x013a,0x013d,0x0144,0x0146,0x014b,0x014f,0x0152,0x0154,0x015c,0x0160,0x0164,0x0169,0x016e,0x0172,0x0177,0x017c,0x0180,0x0184,0x0187,0x018c,0x0190,0x0193,0x0198,0x019c,0x01a0,0x01a3,0x01a8,0x01ac,0x01af
0484 0001 004f  |   O|		.XXX[0x4e]
0486 0002 0003  |    |
0488 0004 0005  |    |
048a 0006 0007  |    |
048c 0008 0009  |    |
048e 000a 000b  |    |
0490 000c 000d  |    |
0492 000e 000f  |    |
0494 0010 0011  |    |
0496 0012 0013  |    |
0498 0014 0015  |    |
049a 0016 0018  |    |
049c 0019 001a  |    |
049e 0017 001b  |    |
04a0 001c 001d  |    |
04a2 001f 0020  |    |
04a4 0021 0022  | ! "|
04a6 0023 0024  | # $|
04a8 0025 0026  | % &|
04aa 0027 0028  | ' (|
04ac 0029 002a  | ) *|
04ae 002b 002c  | + ,|
04b0 002d 002e  | - .|
04b2 0030 0031  | 0 1|
04b4 002f 0032  | / 2|
04b6 0033 0034  | 3 4|
04b8 0035 0036  | 5 6|
04ba 0037 0039  | 7 9|
04bc 003a 0038  | : 8|
04be 003b 003c  | ; <|
04c0 003d 003e  | = >|
04c2 003f 0040  | ? @|
04c4 0041 0042  | A B|
04c6 0043 0044  | C D|
04c8 0045 0046  | E F|
04ca 0047 0048  | G H|
04cc 0049 004a  | I J|
04ce 004b 004c  | K L|
04d0 004d 004e  | M N|
04d2 0000 0000  |    |		.BLANK	0000[0x12e]