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

⟦a780f33ea⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0168ee

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 0248       | H  |		.CONST	0x0248								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0066       | f  |		.CONST	0x0066								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 0093 0000  |    |		push_full_address	0x0
0012 6065       |`e  |		Indirect_Literal	Discrete,0x78,{0x80000000, 0x00010000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 e002       |    |		Load	0x0,0x2
0015 0273       | s  |		Execute	Discrete,Plus
0016 e003       |    |		Load	0x0,0x3
0017 0273       | s  |		Execute	Discrete,Plus
0018 e004       |    |		Load	0x0,0x4
0019 0387       |    |		Declare_Variable	Package
001a 00d8       |    |		Load_Top	At_Offset_0
001b 020f       |    |		Execute	Module,Activate
001c e005       |    |		Load	0x0,0x5
001d 036f       | o  |		Declare_Variable	Task
001e e005       |    |		Load	0x0,0x5
001f 036f       | o  |		Declare_Variable	Task
0020 e005       |    |		Load	0x0,0x5
0021 036f       | o  |		Declare_Variable	Task
0022 00e1       |    |		Load_Encached	Boolean_Cache
0023 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0024 4800       |H   |		Short_Literal	0x0
0025 0093 00ab  |    |		push_full_address	INIT_00a8
0027 00f5       |    |		Load_Encached	Unused21
0028 037d       | }  |		Declare_Type	Task,Defined
0029 036f       | o  |		Declare_Variable	Task
002a e006       |    |		Load	0x0,0x6
002b e007       |    |		Load	0x0,0x7
002c e008       |    |		Load	0x0,0x8
002d e20f       |    |		Load	0x1,0xf
002e 0095       |    |		Execute	Package,Field_Reference_Dynamic
002f e009       |    |		Load	0x0,0x9
0030 e20f       |    |		Load	0x1,0xf
0031 0095       |    |		Execute	Package,Field_Reference_Dynamic
0032 e00a       |    |		Load	0x0,0xa
0033 e20f       |    |		Load	0x1,0xf
0034 0095       |    |		Execute	Package,Field_Reference_Dynamic
0035 e00b       |    |		Load	0x0,0xb
0036 e20f       |    |		Load	0x1,0xf
0037 0095       |    |		Execute	Package,Field_Reference_Dynamic
0038 e00c       |    |		Load	0x0,0xc
0039 e20f       |    |		Load	0x1,0xf
003a 0095       |    |		Execute	Package,Field_Reference_Dynamic
003b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
003c a00d       |    |		Store_Unchecked	0x0,0xd
003d e210       |    |		Load	0x1,0x10
003e e00e       |    |		Load	0x0,0xe
003f e00f       |    |		Load	0x0,0xf
0040 a010       |    |		Store_Unchecked	0x0,0x10
0041 a011       |    |		Store_Unchecked	0x0,0x11
0042 e012       |    |		Load	0x0,0x12
0043 e20f       |    |		Load	0x1,0xf
0044 0095       |    |		Execute	Package,Field_Reference_Dynamic
0045 e013       |    |		Load	0x0,0x13
0046 e20f       |    |		Load	0x1,0xf
0047 0095       |    |		Execute	Package,Field_Reference_Dynamic
0048 e014       |    |		Load	0x0,0x14
0049 e20f       |    |		Load	0x1,0xf
004a 0095       |    |		Execute	Package,Field_Reference_Dynamic
004b a015       |    |		Store_Unchecked	0x0,0x15
004c e211       |    |		Load	0x1,0x11
004d e016       |    |		Load	0x0,0x16
004e e017       |    |		Load	0x0,0x17
004f a018       |    |		Store_Unchecked	0x0,0x18
0050 e019       |    |		Load	0x0,0x19
0051 e01a       |    |		Load	0x0,0x1a
0052 e01b       |    |		Load	0x0,0x1b
0053 4819       |H   |		Short_Literal	0x19
0054 e214       |    |		Load	0x1,0x14
0055 020e       |    |		Execute	Module,Augment_Imports
0056 0007       |    |		Action	Break_Optional
0057 4800       |H   |		Short_Literal	0x0
0058 0093 008b  |    |		push_full_address	INIT_0088
005a 00f5       |    |		Load_Encached	Unused21
005b 037d       | }  |		Declare_Type	Task,Defined
005c 036f       | o  |		Declare_Variable	Task
005d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005e 4801       |H   |		Short_Literal	0x1
005f 00da       |    |		Load_Top	At_Offset_2
0060 020e       |    |		Execute	Module,Augment_Imports
0061 0007       |    |		Action	Break_Optional
0062 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0065 00c7       |    |		Action	Elaborate_Subprogram
0066			BODY_0008:
0066 00be       |    |		Action	Activate_Tasks
0067 00bc       |    |		Action	Signal_Activated
0068 00bb       |    |		Action	Signal_Completion
0069 0000 0000  |    |		.BLANK	0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 4800       |H   |		Short_Literal	0x0
0074 e214       |    |		Load	0x1,0x14
0075 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0076 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0077 0000       |    |		.XXX[0x1]
0078 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 4800       |H   |		Short_Literal	0x0
0084 e215       |    |		Load	0x1,0x15
0085 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0086 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0096       |    |		.CONST	0x0096								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 000e       |    |		.CONST	0x000e								; Number of locals
008b			INIT_0088:
008b 4800       |H   |		Short_Literal	0x0
008c 02cb       |    |		Declare_Variable	Entry
008d 00bf       |    |		Action	Accept_Activation
008e 480d 4814  |H H |		Declare_Variable	Select	0x000, 0x001,
0090 4800 4800  |H H |				[0x000]: 0x000 = 0x0000,
0092 4800 4801  |H H |				[0x00d]: 0x014 = 0x00a0
0094 02cf       |    |
0095 00bc       |    |		Action	Signal_Activated
0096			BODY_0088:
0096 00cf       |    |		Action	Mark_Auxiliary
0097 00d9       |    |		Load_Top	At_Offset_1
0098 013f       | ?  |		Execute	Select,Rendezvous
0099 00d1       |    |		Pop_Control	Pop_Count_1
009a e001       |    |		Load	0x0,0x1
009b 7002       |p   |		Jump_Nonzero	0x9e
009c 00c9       |    |		Action	Pop_Auxiliary_Loop
009d 7ff9       |    |		Jump	0x97
009e 00ce       |    |		Action	Pop_Auxiliary
009f 00bb       |    |		Action	Signal_Completion
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; See instruction 0x02cf at 0x8e, index=0xd
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4801       |H   |		Short_Literal	0x1
00a4 c001       |    |		Store	0x0,0x1
00a5 4100       |A   |		End_Rendezvous	0x0
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00e3       |    |		.CONST	0x00e3								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 001d       |    |		.CONST	0x001d								; Number of locals
00ab			INIT_00a8:
00ab 4800       |H   |		Short_Literal	0x0
00ac 02cb       |    |		Declare_Variable	Entry
00ad 00bf       |    |		Action	Accept_Activation
00ae 00e4       |    |		Load_Encached	Positive_Cache
00af 03e9       |    |		Declare_Variable	Discrete,Duplicate
00b0 03e9       |    |		Declare_Variable	Discrete,Duplicate
00b1 613a       |a:  |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x00000400}
00b2 e001       |    |		Load	0x0,0x1
00b3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b7 6134       |a4  |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x00000400}
00b8 e001       |    |		Load	0x0,0x1
00b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ba 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bd 48ff       |H   |		Short_Literal	0xff
00be e001       |    |		Load	0x0,0x1
00bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c3 48ff       |H   |		Short_Literal	0xff
00c4 e001       |    |		Load	0x0,0x1
00c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c9 4801       |H   |		Short_Literal	0x1
00ca 6121       |a!  |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x00000400}
00cb e002       |    |		Load	0x0,0x2
00cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00cd 035b       | [  |		Declare_Type	Array,Constrained
00ce 0337       | 7  |		Declare_Variable	Array
00cf 4801       |H   |		Short_Literal	0x1
00d0 611b       |a   |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x00000400}
00d1 e002       |    |		Load	0x0,0x2
00d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d3 035b       | [  |		Declare_Type	Array,Constrained
00d4 0337       | 7  |		Declare_Variable	Array
00d5 00e4       |    |		Load_Encached	Positive_Cache
00d6 00e2       |    |		Load_Encached	Integer_Cache
00d7 03e9       |    |		Declare_Variable	Discrete,Duplicate
00d8 03e9       |    |		Declare_Variable	Discrete,Duplicate
00d9 00e1       |    |		Load_Encached	Boolean_Cache
00da 00e1       |    |		Load_Encached	Boolean_Cache
00db 480d 483d  |H H=|		Declare_Variable	Select	0x000, 0x001,
00dd 4800 4800  |H H |				[0x000]: 0x000 = 0x0000,
00df 4800 4801  |H H |				[0x00d]: 0x03d = 0x01e8
00e1 02cf       |    |
00e2 00bc       |    |		Action	Signal_Activated
00e3			BODY_00a8:
00e3 00e4       |    |		Load_Encached	Positive_Cache
00e4 8003       |    |		Call	0x0,0x3
00e5 c217       |    |		Store	0x1,0x17
00e6 8004       |    |		Call	0x0,0x4
00e7 8005       |    |		Call	0x0,0x5
00e8 00d8       |    |		Load_Top	At_Offset_0
00e9 013f       | ?  |		Execute	Select,Rendezvous
00ea 4601       |F   |		Jump_Case	0x2
00eb 7800       |x   |		Jump	0xec								; case 0x0
00ec 00cf       |    |		Action	Mark_Auxiliary							; case 0x1
00ed 00cf       |    |		Action	Mark_Auxiliary
00ee e217       |    |		Load	0x1,0x17
00ef 4801       |H   |		Short_Literal	0x1
00f0 0263       | c  |		Execute	Discrete,Above_Bound
00f1 70e8       |p   |		Jump_Nonzero	0x1da
00f2 e219       |    |		Load	0x1,0x19
00f3 4804       |H   |		Short_Literal	0x4
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 8006       |    |		Call	0x0,0x6
00f6 c219       |    |		Store	0x1,0x19
00f7 e219       |    |		Load	0x1,0x19
00f8 70df       |p   |		Jump_Nonzero	0x1d8
00f9 e218       |    |		Load	0x1,0x18
00fa 4801       |H   |		Short_Literal	0x1
00fb 00da       |    |		Load_Top	At_Offset_2
00fc 8006       |    |		Call	0x0,0x6
00fd c218       |    |		Store	0x1,0x18
00fe e215       |    |		Load	0x1,0x15
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 8007       |    |		Call	0x0,0x7
0101 00d1       |    |		Pop_Control	Pop_Count_1
0102 e218       |    |		Load	0x1,0x18
0103 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0104 7009       |p   |		Jump_Nonzero	0x10e
0105 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0106 7035       |p5  |		Jump_Nonzero	0x13c
0107 0b03       |    |		Execute_Immediate	Case_Compare,0x3
0108 7041       |pA  |		Jump_Nonzero	0x14a
0109 0f04       |    |		Execute_Immediate	Equal,0x4
010a 708d       |p   |		Jump_Nonzero	0x198
010b 4800       |H   |		Short_Literal	0x0
010c c008       |    |		Store	0x0,0x8
010d 78ca       |x   |		Jump	0x1d8
010e 00d1       |    |		Pop_Control	Pop_Count_1
010f 0092 01f0  |    |		Action	Push_String_Extended,0x1f0					; "!!! REQUETE !!!"
0111 8009       |    |		Call	0x0,0x9
0112 00e1       |    |		Load_Encached	Boolean_Cache
0113 00e4       |    |		Load_Encached	Positive_Cache
0114 4805       |H   |		Short_Literal	0x5
0115 e215       |    |		Load	0x1,0x15
0116 4804       |H   |		Short_Literal	0x4
0117 e00a       |    |		Load	0x0,0xa
0118 e00b       |    |		Load	0x0,0xb
0119 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
011a c20e       |    |		Store	0x1,0xe
011b c21b       |    |		Store	0x1,0x1b
011c e21b       |    |		Load	0x1,0x1b
011d 700f       |p   |		Jump_Nonzero	0x12d
011e e216       |    |		Load	0x1,0x16
011f e20e       |    |		Load	0x1,0xe
0120 4802       |H   |		Short_Literal	0x2
0121 e00a       |    |		Load	0x0,0xa
0122 e00c       |    |		Load	0x0,0xc
0123 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0124 00d1       |    |		Pop_Control	Pop_Count_1
0125 4803       |H   |		Short_Literal	0x3
0126 e216       |    |		Load	0x1,0x16
0127 800d       |    |		Call	0x0,0xd
0128 800e       |    |		Call	0x0,0xe
0129 800f       |    |		Call	0x0,0xf
012a e215       |    |		Load	0x1,0x15
012b 8010       |    |		Call	0x0,0x10
012c 780c       |x   |		Jump	0x139
012d 0092 01f1  |    |		Action	Push_String_Extended,0x1f1					; "Je ne peux satisfaire votre demande ...."
012f 8009       |    |		Call	0x0,0x9
0130 0092 01f2  |    |		Action	Push_String_Extended,0x1f2					; "Je ne connais pas ce contrat : "
0132 8009       |    |		Call	0x0,0x9
0133 4805       |H   |		Short_Literal	0x5
0134 e215       |    |		Load	0x1,0x15
0135 800d       |    |		Call	0x0,0xd
0136 e001       |    |		Load	0x0,0x1
0137 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0138 8009       |    |		Call	0x0,0x9
0139 00d8       |    |		Load_Top	At_Offset_0
013a 8011       |    |		Call	0x0,0x11
013b 789c       |x   |		Jump	0x1d8
013c 00d1       |    |		Pop_Control	Pop_Count_1
013d 0092 01f3  |    |		Action	Push_String_Extended,0x1f3					; "!!! PROPAGATION !!!"
013f 8009       |    |		Call	0x0,0x9
0140 4803       |H   |		Short_Literal	0x3
0141 e215       |    |		Load	0x1,0x15
0142 800d       |    |		Call	0x0,0xd
0143 800e       |    |		Call	0x0,0xe
0144 800f       |    |		Call	0x0,0xf
0145 e215       |    |		Load	0x1,0x15
0146 8010       |    |		Call	0x0,0x10
0147 00d8       |    |		Load_Top	At_Offset_0
0148 8011       |    |		Call	0x0,0x11
0149 788e       |x   |		Jump	0x1d8
014a 00d1       |    |		Pop_Control	Pop_Count_1
014b 0092 01f4  |    |		Action	Push_String_Extended,0x1f4					; "!!! REGISTRATION !!!"
014d 8009       |    |		Call	0x0,0x9
014e e212       |    |		Load	0x1,0x12
014f e215       |    |		Load	0x1,0x15
0150 8012       |    |		Call	0x0,0x12
0151 e001       |    |		Load	0x0,0x1
0152 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0153 00d1       |    |		Pop_Control	Pop_Count_1
0154 e213       |    |		Load	0x1,0x13
0155 4803       |H   |		Short_Literal	0x3
0156 e215       |    |		Load	0x1,0x15
0157 800d       |    |		Call	0x0,0xd
0158 e001       |    |		Load	0x0,0x1
0159 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015a 00d1       |    |		Pop_Control	Pop_Count_1
015b 4801       |H   |		Short_Literal	0x1
015c a21c       |    |		Store_Unchecked	0x1,0x1c
015d 00cf       |    |		Action	Mark_Auxiliary
015e e217       |    |		Load	0x1,0x17
015f 4801       |H   |		Short_Literal	0x1
0160 0263       | c  |		Execute	Discrete,Above_Bound
0161 7029       |p)  |		Jump_Nonzero	0x18b
0162 e21a       |    |		Load	0x1,0x1a
0163 4804       |H   |		Short_Literal	0x4
0164 00da       |    |		Load_Top	At_Offset_2
0165 4803       |H   |		Short_Literal	0x3
0166 e013       |    |		Load	0x0,0x13
0167 e014       |    |		Load	0x0,0x14
0168 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0169 c21a       |    |		Store	0x1,0x1a
016a e21a       |    |		Load	0x1,0x1a
016b 701d       |p   |		Jump_Nonzero	0x189
016c e211       |    |		Load	0x1,0x11
016d 00d9       |    |		Load_Top	At_Offset_1
016e 4802       |H   |		Short_Literal	0x2
016f e013       |    |		Load	0x0,0x13
0170 e015       |    |		Load	0x0,0x15
0171 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0172 00d1       |    |		Pop_Control	Pop_Count_1
0173 e211       |    |		Load	0x1,0x11
0174 e212       |    |		Load	0x1,0x12
0175 8016       |    |		Call	0x0,0x16
0176 6812       |h   |		Jump_Zero	0x189
0177 e214       |    |		Load	0x1,0x14
0178 4803       |H   |		Short_Literal	0x3
0179 00da       |    |		Load_Top	At_Offset_2
017a 4803       |H   |		Short_Literal	0x3
017b e013       |    |		Load	0x0,0x13
017c e017       |    |		Load	0x0,0x17
017d 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
017e 00d1       |    |		Pop_Control	Pop_Count_1
017f e214       |    |		Load	0x1,0x14
0180 e213       |    |		Load	0x1,0x13
0181 8016       |    |		Call	0x0,0x16
0182 6806       |h   |		Jump_Zero	0x189
0183 4800       |H   |		Short_Literal	0x0
0184 a21c       |    |		Store_Unchecked	0x1,0x1c
0185 e21c       |    |		Load	0x1,0x1c
0186 7002       |p   |		Jump_Nonzero	0x189
0187 00d2       |    |		Pop_Control	Pop_Count_2
0188 7802       |x   |		Jump	0x18b
0189 00c8       |    |		Action	Pop_Auxiliary_Range
018a 3fd7       |?   |		Loop_Increasing	0x162
018b 00ce       |    |		Action	Pop_Auxiliary
018c e21c       |    |		Load	0x1,0x1c
018d 6807       |h   |		Jump_Zero	0x195
018e 00e1       |    |		Load_Encached	Boolean_Cache
018f e215       |    |		Load	0x1,0x15
0190 4802       |H   |		Short_Literal	0x2
0191 e00a       |    |		Load	0x0,0xa
0192 e018       |    |		Load	0x0,0x18
0193 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0194 c21c       |    |		Store	0x1,0x1c
0195 00d8       |    |		Load_Top	At_Offset_0
0196 8011       |    |		Call	0x0,0x11
0197 7840       |x@  |		Jump	0x1d8
0198 0092 01f5  |    |		Action	Push_String_Extended,0x1f5					; "!!! DEREGISTRATION !!!"
019a 8009       |    |		Call	0x0,0x9
019b e212       |    |		Load	0x1,0x12
019c e215       |    |		Load	0x1,0x15
019d 8012       |    |		Call	0x0,0x12
019e e001       |    |		Load	0x0,0x1
019f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01a0 00d1       |    |		Pop_Control	Pop_Count_1
01a1 e213       |    |		Load	0x1,0x13
01a2 4803       |H   |		Short_Literal	0x3
01a3 e215       |    |		Load	0x1,0x15
01a4 800d       |    |		Call	0x0,0xd
01a5 e001       |    |		Load	0x0,0x1
01a6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01a7 00d1       |    |		Pop_Control	Pop_Count_1
01a8 4800       |H   |		Short_Literal	0x0
01a9 a21c       |    |		Store_Unchecked	0x1,0x1c
01aa 00cf       |    |		Action	Mark_Auxiliary
01ab e217       |    |		Load	0x1,0x17
01ac 4801       |H   |		Short_Literal	0x1
01ad 0263       | c  |		Execute	Discrete,Above_Bound
01ae 7026       |p&  |		Jump_Nonzero	0x1d5
01af e211       |    |		Load	0x1,0x11
01b0 00d9       |    |		Load_Top	At_Offset_1
01b1 4802       |H   |		Short_Literal	0x2
01b2 e013       |    |		Load	0x0,0x13
01b3 e015       |    |		Load	0x0,0x15
01b4 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01b5 00d1       |    |		Pop_Control	Pop_Count_1
01b6 e211       |    |		Load	0x1,0x11
01b7 e212       |    |		Load	0x1,0x12
01b8 8016       |    |		Call	0x0,0x16
01b9 6819       |h   |		Jump_Zero	0x1d3
01ba e214       |    |		Load	0x1,0x14
01bb 4803       |H   |		Short_Literal	0x3
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 4803       |H   |		Short_Literal	0x3
01be e013       |    |		Load	0x0,0x13
01bf e017       |    |		Load	0x0,0x17
01c0 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01c1 00d1       |    |		Pop_Control	Pop_Count_1
01c2 e214       |    |		Load	0x1,0x14
01c3 e213       |    |		Load	0x1,0x13
01c4 8016       |    |		Call	0x0,0x16
01c5 680d       |h   |		Jump_Zero	0x1d3
01c6 4801       |H   |		Short_Literal	0x1
01c7 a21c       |    |		Store_Unchecked	0x1,0x1c
01c8 00e1       |    |		Load_Encached	Boolean_Cache
01c9 00d9       |    |		Load_Top	At_Offset_1
01ca 4802       |H   |		Short_Literal	0x2
01cb e00a       |    |		Load	0x0,0xa
01cc e019       |    |		Load	0x0,0x19
01cd 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
01ce c21b       |    |		Store	0x1,0x1b
01cf e21c       |    |		Load	0x1,0x1c
01d0 7002       |p   |		Jump_Nonzero	0x1d3
01d1 00d2       |    |		Pop_Control	Pop_Count_2
01d2 7802       |x   |		Jump	0x1d5
01d3 00c8       |    |		Action	Pop_Auxiliary_Range
01d4 3fda       |?   |		Loop_Increasing	0x1af
01d5 00ce       |    |		Action	Pop_Auxiliary
01d6 00d8       |    |		Load_Top	At_Offset_0
01d7 8011       |    |		Call	0x0,0x11
01d8 00c8       |    |		Action	Pop_Auxiliary_Range
01d9 3f18       |?   |		Loop_Increasing	0xf2
01da 00ce       |    |		Action	Pop_Auxiliary
01db e008       |    |		Load	0x0,0x8
01dc 7002       |p   |		Jump_Nonzero	0x1df
01dd 00c9       |    |		Action	Pop_Auxiliary_Loop
01de 7f0e       |    |		Jump	0xed
01df 00ce       |    |		Action	Pop_Auxiliary
01e0 00bb       |    |		Action	Signal_Completion
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; See instruction 0x02cf at 0xdb, index=0xd
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4100       |A   |		End_Rendezvous	0x0
01ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
01f0 ; --------------------------------------------------------------------------------------
01f0 ; STRING TABLE
01f0 ; --------------------------------------------------------------------------------------
01f0 000e       |    |		.STRTAB	0x000e->0x01f7							; "!!! REQUETE !!!"
01f1 001b       |    |		.STRTAB	0x001b->0x01fe							; "Je ne peux satisfaire votre demande ...."
01f2 0041       | A  |		.STRTAB	0x0041->0x0212							; "Je ne connais pas ce contrat : "
01f3 005e       | ^  |		.STRTAB	0x005e->0x0222							; "!!! PROPAGATION !!!"
01f4 006f       | o  |		.STRTAB	0x006f->0x022b							; "!!! REGISTRATION !!!"
01f5 0081       |    |		.STRTAB	0x0081->0x0235							; "!!! DEREGISTRATION !!!"
01f6 0095       |    |		.STREND 0x0095->0x0240
01f7 2121 2120  |!!! |		.STRTAB_STRINGS
0241 0000 0000  |    |		.BLANK	0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7765,0x0000,0x0001,0x000a
024e 000b 0276  |   v|		.DBG4T	0x000b,0x0276,0x8000,0x0000
0252 0010 027a  |   z|		.DBG4T	0x0010,0x027a,0x8000,0x0000
0256 0073 0285  | s  |		.DBG4T	0x0073,0x0285,0x0001,0x0000
025a 0083 0288  |    |		.DBG4T	0x0083,0x0288,0x0001,0x0000
025e 008b 028b  |    |		.DBG4T	0x008b,0x028b,0x0000,0x0000
0262 008e 028e  |    |		.DBG4T	0x008e,0x028e,0x0000,0x4000
0266 00a3 0294  |    |		.DBG4T	0x00a3,0x0294,0x0003,0x0000
026a 00ab 0297  |    |		.DBG4T	0x00ab,0x0297,0x0000,0x0000
026e 00ae 029a  |    |		.DBG4T	0x00ae,0x029a,0x0000,0x4000
0272 01eb 0000  |    |		.DBG4T	0x01eb,0x0000,0x0003,0x0000
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0278 000b 000d  |    |		.DBGLNO	0x000b,0x000d
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 0009 0000  |    |		.DBGLEN	0x0009,0x0000
027c 0010 001c  |    |		.DBGLNO	0x0010,0x001c,0x0022,0x0024,0x002a,0x0057,0x005d,0x0062,0x0064
0285 ; --------------------------------------------------------------------------------------
0285 ; Debug chain
0285 ; --------------------------------------------------------------------------------------
0285 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0287 0073       | s  |		.DBGLNO	0x0073
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug chain
0288 ; --------------------------------------------------------------------------------------
0288 0000 0001  |    |		.DBGLEN	0x0000,0x0001
028a 0083       |    |		.DBGLNO	0x0083
028b ; --------------------------------------------------------------------------------------
028b ; Debug chain
028b ; --------------------------------------------------------------------------------------
028b 0001 0000  |    |		.DBGLEN	0x0001,0x0000
028d 008b       |    |		.DBGLNO	0x008b
028e ; --------------------------------------------------------------------------------------
028e ; Debug chain
028e ; --------------------------------------------------------------------------------------
028e 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0290 0097 009a  |    |		.DBGLNO	0x0097,0x009a
0292 0002 0004  |    |		.XXX[0x2]
0294 ; --------------------------------------------------------------------------------------
0294 ; Debug chain
0294 ; --------------------------------------------------------------------------------------
0294 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0296 00a3       |    |		.DBGLNO	0x00a3
0297 ; --------------------------------------------------------------------------------------
0297 ; Debug chain
0297 ; --------------------------------------------------------------------------------------
0297 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0299 00ab       |    |		.DBGLNO	0x00ab
029a ; --------------------------------------------------------------------------------------
029a ; Debug chain
029a ; --------------------------------------------------------------------------------------
029a 0008 0038  |   8|		.DBGLEN	0x0008,0x0038
029c 00ae 00b1  |    |		.DBGLNO	0x00ae,0x00b1,0x00bd,0x00c9,0x00d5,0x00d6,0x00d9,0x00da,0x00e3,0x00e6,0x00e7,0x00e8,0x00ed,0x00ee,0x00f2,0x00f7,0x00f9,0x00fe,0x0102,0x010b,0x010f,0x0112,0x011c,0x011e,0x0125,0x012a,0x012d,0x0130,0x0133,0x0139,0x013d,0x0140,0x0145,0x0147,0x014b,0x014e,0x0154,0x015b,0x015e,0x0162,0x016a,0x016c,0x0173,0x0177,0x017f,0x0183,0x0185,0x018c,0x018e,0x0195,0x0198,0x019b,0x01a1,0x01a8,0x01ab,0x01af,0x01b6,0x01ba,0x01c2,0x01c6,0x01c8,0x01cf,0x01d6,0x01db
02dc 0001 0002  |    |		.XXX[0x38]
02de 0003 0004  |    |
02e0 0006 0007  |    |
02e2 0008 0009  |    |
02e4 000a 000b  |    |
02e6 000c 0038  |   8|
02e8 000d 000e  |    |
02ea 000f 0010  |    |
02ec 0011 0012  |    |
02ee 0013 0014  |    |
02f0 0015 0016  |    |
02f2 0017 0018  |    |
02f4 0019 001a  |    |
02f6 001b 001c  |    |
02f8 001d 001e  |    |
02fa 001f 0020  |    |
02fc 0021 0022  | ! "|
02fe 0023 0024  | # $|
0300 0025 0026  | % &|
0302 0027 0028  | ' (|
0304 0029 002a  | ) *|
0306 002b 002c  | + ,|
0308 002d 002e  | - .|
030a 002f 0030  | / 0|
030c 0031 0032  | 1 2|
030e 0033 0034  | 3 4|
0310 0035 0036  | 5 6|
0312 0037 0039  | 7 9|
0314 0000 0000  |    |		.BLANK	0000[0xec]