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

⟦7fcfdb35d⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 03b0       |    |		.CONST	0x03b0								; 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 0038       | 8  |		.CONST	0x0038								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0013 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0015 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0017 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a 029d 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call
001c 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call
001e 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call
0020 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
0022 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
0024 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
0026 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call
0028 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
002a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0037 00c7       |    |		Action	Elaborate_Subprogram
0038			BODY_0008:
0038 00bc       |    |		Action	Signal_Activated
0039 00bb       |    |		Action	Signal_Completion
003a 0000 0000  |    |		.BLANK	0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0046       | F  |		.CONST	0x0046								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0003       |    |		.CONST	0x0003								; Number of locals
0043			INIT_0040:
0043 00e1       |    |		Load_Encached	Boolean_Cache
0044 e002       |    |		Load	0x0,0x2
0045 0322       | "  |		Declare_Variable	Record
0046			BODY_0040:
0046 00d8       |    |		Load_Top	At_Offset_0
0047 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0048 e5ff       |    |		Load	0x2,-0x1
0049 8003       |    |		Call	0x0,0x3
004a 00d9       |    |		Load_Top	At_Offset_1
004b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
004c 00e1       |    |		Load_Encached	Boolean_Cache
004d 00d9       |    |		Load_Top	At_Offset_1
004e 8004       |    |		Call	0x0,0x4
004f 00d1       |    |		Pop_Control	Pop_Count_1
0050 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0051 00d9       |    |		Load_Top	At_Offset_1
0052 6832       |h2  |		Jump_Zero	0x85
0053 00d8       |    |		Load_Top	At_Offset_0
0054 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0055 4607       |F   |		Jump_Case	0x8
0056 781a       |x   |		Jump	0x71								; case 0x0
0057 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
0058 7806       |x   |		Jump	0x5f								; case 0x2
0059 780b       |x   |		Jump	0x65								; case 0x3
005a 7810       |x   |		Jump	0x6b								; case 0x4
005b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x5
005c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
005d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
005e 4503       |E   |		.XXX[0x1]
005f 00d8       |    |		Load_Top	At_Offset_0
0060 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0061 0227       | '  |		Execute	Access,All_Reference
0062 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0063 8218       |    |		Call	0x1,0x18
0064 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0065 00d8       |    |		Load_Top	At_Offset_0
0066 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0067 0227       | '  |		Execute	Access,All_Reference
0068 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0069 8218       |    |		Call	0x1,0x18
006a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
006b 00d8       |    |		Load_Top	At_Offset_0
006c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
006d 0227       | '  |		Execute	Access,All_Reference
006e 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
006f 8218       |    |		Call	0x1,0x18
0070 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0071 e5fe       |    |		Load	0x2,-0x2
0072 4603       |F   |		Jump_Case	0x4
0073 780b       |x   |		Jump	0x7f								; case 0x0
0074 7803       |x   |		Jump	0x78								; case 0x1
0075 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x2
0076 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
0077 4503       |E   |		.XXX[0x1]
0078 00d8       |    |		Load_Top	At_Offset_0
0079 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
007a 0227       | '  |		Execute	Access,All_Reference
007b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
007c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
007d 8218       |    |		Call	0x1,0x18
007e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
007f 00d8       |    |		Load_Top	At_Offset_0
0080 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0081 0227       | '  |		Execute	Access,All_Reference
0082 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0083 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0084 8218       |    |		Call	0x1,0x18
0085 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008e       |    |		.CONST	0x008e								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b 00e1       |    |		Load_Encached	Boolean_Cache
008c e002       |    |		Load	0x0,0x2
008d 0322       | "  |		Declare_Variable	Record
008e			BODY_0088:
008e 00d8       |    |		Load_Top	At_Offset_0
008f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0090 e5ff       |    |		Load	0x2,-0x1
0091 8003       |    |		Call	0x0,0x3
0092 00d9       |    |		Load_Top	At_Offset_1
0093 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0094 00e1       |    |		Load_Encached	Boolean_Cache
0095 00d9       |    |		Load_Top	At_Offset_1
0096 8004       |    |		Call	0x0,0x4
0097 00d1       |    |		Pop_Control	Pop_Count_1
0098 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0099 00d9       |    |		Load_Top	At_Offset_1
009a 6817       |h   |		Jump_Zero	0xb2
009b 00d8       |    |		Load_Top	At_Offset_0
009c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
009d 4607       |F   |		Jump_Case	0x8
009e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
009f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
00a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
00a1 780b       |x   |		Jump	0xad								; case 0x3
00a2 7804       |x   |		Jump	0xa7								; case 0x4
00a3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x5
00a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x6
00a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
00a6 4502       |E   |		.XXX[0x1]
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00a9 0227       | '  |		Execute	Access,All_Reference
00aa 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
00ab 821a       |    |		Call	0x1,0x1a
00ac 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00af 0227       | '  |		Execute	Access,All_Reference
00b0 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
00b1 8219       |    |		Call	0x1,0x19
00b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b3 0000 0000  |    |		.BLANK	0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 0092 031d  |    |		Action	Push_String_Extended,0x31d					; "NOM : "
00bd e005       |    |		Load	0x0,0x5
00be 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00bf 00da       |    |		Load_Top	At_Offset_2
00c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00c1 8006       |    |		Call	0x0,0x6
00c2 0092 031e  |    |		Action	Push_String_Extended,0x31e					; "EXISTENCE : "
00c4 e005       |    |		Load	0x0,0x5
00c5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00c8 00e1       |    |		Load_Encached	Boolean_Cache
00c9 011c       |    |		Execute	Any,Convert_Unchecked
00ca 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00cb e005       |    |		Load	0x0,0x5
00cc 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00cd 0092 031f  |    |		Action	Push_String_Extended,0x31f					; "COMPLET : "
00cf e005       |    |		Load	0x0,0x5
00d0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00d1 00da       |    |		Load_Top	At_Offset_2
00d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d3 00e1       |    |		Load_Encached	Boolean_Cache
00d4 011c       |    |		Execute	Any,Convert_Unchecked
00d5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d6 e005       |    |		Load	0x0,0x5
00d7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00d8 0092 0320  |    |		Action	Push_String_Extended,0x320					; "TYPE : "
00da e005       |    |		Load	0x0,0x5
00db 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00de e007       |    |		Load	0x0,0x7
00df 011c       |    |		Execute	Any,Convert_Unchecked
00e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00e1 e005       |    |		Load	0x0,0x5
00e2 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e5 4607       |F   |		Jump_Case	0x8
00e6 786a       |xj  |		Jump	0x151								; case 0x0
00e7 7807       |x   |		Jump	0xef								; case 0x1
00e8 7813       |x   |		Jump	0xfc								; case 0x2
00e9 7826       |x&  |		Jump	0x110								; case 0x3
00ea 783f       |x?  |		Jump	0x12a								; case 0x4
00eb 7858       |xX  |		Jump	0x144								; case 0x5
00ec 7857       |xW  |		Jump	0x144								; case 0x6
00ed 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
00ee 4502       |E   |		.XXX[0x1]
00ef 0092 0321  |   !|		Action	Push_String_Extended,0x321					; "Valeur : "
00f1 e005       |    |		Load	0x0,0x5
00f2 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00f5 0227       | '  |		Execute	Access,All_Reference
00f6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00f7 00e0       |    |		Load_Encached	Standard_Cache
00f8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f9 e005       |    |		Load	0x0,0x5
00fa 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00fe 0227       | '  |		Execute	Access,All_Reference
00ff 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0100 8214       |    |		Call	0x1,0x14
0101 0092 0322  |   "|		Action	Push_String_Extended,0x322					; "Etat : "
0103 e005       |    |		Load	0x0,0x5
0104 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0105 00da       |    |		Load_Top	At_Offset_2
0106 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0107 0227       | '  |		Execute	Access,All_Reference
0108 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0109 8218       |    |		Call	0x1,0x18
010a 00da       |    |		Load_Top	At_Offset_2
010b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
010c 0227       | '  |		Execute	Access,All_Reference
010d 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
010e 821b       |    |		Call	0x1,0x1b
010f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0110 00da       |    |		Load_Top	At_Offset_2
0111 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0112 0227       | '  |		Execute	Access,All_Reference
0113 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0114 8214       |    |		Call	0x1,0x14
0115 0092 0322  |   "|		Action	Push_String_Extended,0x322					; "Etat : "
0117 e005       |    |		Load	0x0,0x5
0118 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0119 00da       |    |		Load_Top	At_Offset_2
011a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
011b 0227       | '  |		Execute	Access,All_Reference
011c 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
011d 8218       |    |		Call	0x1,0x18
011e 00da       |    |		Load_Top	At_Offset_2
011f 8217       |    |		Call	0x1,0x17
0120 0092 0323  |   #|		Action	Push_String_Extended,0x323					; "Contenu : "
0122 e005       |    |		Load	0x0,0x5
0123 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0124 00da       |    |		Load_Top	At_Offset_2
0125 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0126 0227       | '  |		Execute	Access,All_Reference
0127 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0128 8219       |    |		Call	0x1,0x19
0129 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
012a 00da       |    |		Load_Top	At_Offset_2
012b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
012c 0227       | '  |		Execute	Access,All_Reference
012d 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
012e 8214       |    |		Call	0x1,0x14
012f 0092 0322  |   "|		Action	Push_String_Extended,0x322					; "Etat : "
0131 e005       |    |		Load	0x0,0x5
0132 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0133 00da       |    |		Load_Top	At_Offset_2
0134 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0135 0227       | '  |		Execute	Access,All_Reference
0136 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0137 8218       |    |		Call	0x1,0x18
0138 00da       |    |		Load_Top	At_Offset_2
0139 8217       |    |		Call	0x1,0x17
013a 0092 0324  |   $|		Action	Push_String_Extended,0x324					; "Possession : "
013c e005       |    |		Load	0x0,0x5
013d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
013e 00da       |    |		Load_Top	At_Offset_2
013f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0140 0227       | '  |		Execute	Access,All_Reference
0141 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0142 821a       |    |		Call	0x1,0x1a
0143 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0144 0092 0325  |   %|		Action	Push_String_Extended,0x325					; "Signification : "
0146 e005       |    |		Load	0x0,0x5
0147 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0148 00da       |    |		Load_Top	At_Offset_2
0149 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
014a 0227       | '  |		Execute	Access,All_Reference
014b 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
014c e008       |    |		Load	0x0,0x8
014d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
014e e005       |    |		Load	0x0,0x5
014f 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0150 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0151 0092 0326  |   &|		Action	Push_String_Extended,0x326					; "Sens1 : "
0153 e005       |    |		Load	0x0,0x5
0154 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0155 00da       |    |		Load_Top	At_Offset_2
0156 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0157 0227       | '  |		Execute	Access,All_Reference
0158 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0159 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015a 8215       |    |		Call	0x1,0x15
015b 00da       |    |		Load_Top	At_Offset_2
015c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
015d 0227       | '  |		Execute	Access,All_Reference
015e 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
015f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0160 8216       |    |		Call	0x1,0x16
0161 00da       |    |		Load_Top	At_Offset_2
0162 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0163 0227       | '  |		Execute	Access,All_Reference
0164 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0165 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0166 8214       |    |		Call	0x1,0x14
0167 0092 0322  |   "|		Action	Push_String_Extended,0x322					; "Etat : "
0169 e005       |    |		Load	0x0,0x5
016a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
016b 00da       |    |		Load_Top	At_Offset_2
016c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
016d 0227       | '  |		Execute	Access,All_Reference
016e 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
016f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0170 8218       |    |		Call	0x1,0x18
0171 0092 0327  |   '|		Action	Push_String_Extended,0x327					; "Sens2 : "
0173 e005       |    |		Load	0x0,0x5
0174 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0175 00da       |    |		Load_Top	At_Offset_2
0176 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0177 0227       | '  |		Execute	Access,All_Reference
0178 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0179 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017a 8215       |    |		Call	0x1,0x15
017b 00da       |    |		Load_Top	At_Offset_2
017c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
017d 0227       | '  |		Execute	Access,All_Reference
017e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
017f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0180 8216       |    |		Call	0x1,0x16
0181 00da       |    |		Load_Top	At_Offset_2
0182 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0183 0227       | '  |		Execute	Access,All_Reference
0184 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0185 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0186 8214       |    |		Call	0x1,0x14
0187 0092 0322  |   "|		Action	Push_String_Extended,0x322					; "Etat : "
0189 e005       |    |		Load	0x0,0x5
018a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
018b 00da       |    |		Load_Top	At_Offset_2
018c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
018d 0227       | '  |		Execute	Access,All_Reference
018e 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
018f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0190 8218       |    |		Call	0x1,0x18
0191 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0192 0000 0000  |    |		.BLANK	0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e       |    |		.CONST	0x019e								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b 00e1       |    |		Load_Encached	Boolean_Cache
019c e002       |    |		Load	0x0,0x2
019d 0322       | "  |		Declare_Variable	Record
019e			BODY_0198:
019e 00d8       |    |		Load_Top	At_Offset_0
019f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 8003       |    |		Call	0x0,0x3
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a4 00e1       |    |		Load_Encached	Boolean_Cache
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 8004       |    |		Call	0x0,0x4
01a7 00d1       |    |		Pop_Control	Pop_Count_1
01a8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01a9 00d9       |    |		Load_Top	At_Offset_1
01aa 6802       |h   |		Jump_Zero	0x1ad
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac 820f       |    |		Call	0x1,0xf
01ad 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5       |    |		.CONST	0x01b5								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 e002       |    |		Load	0x0,0x2
01b4 0322       | "  |		Declare_Variable	Record
01b5			BODY_01b0:
01b5 8009       |    |		Call	0x0,0x9
01b6 00cf       |    |		Action	Mark_Auxiliary
01b7 7807       |x   |		Jump	0x1bf
01b8 800a       |    |		Call	0x0,0xa
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 017d       | }  |		Execute	Record,Structure_Write
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01bd 8006       |    |		Call	0x0,0x6
01be 00c9       |    |		Action	Pop_Auxiliary_Loop
01bf 800b       |    |		Call	0x0,0xb
01c0 6ff7       |o   |		Jump_Zero	0x1b8
01c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd       |    |		.CONST	0x01cd								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb e002       |    |		Load	0x0,0x2
01cc 0322       | "  |		Declare_Variable	Record
01cd			BODY_01c8:
01cd 8009       |    |		Call	0x0,0x9
01ce 00cf       |    |		Action	Mark_Auxiliary
01cf 780a       |x   |		Jump	0x1da
01d0 800a       |    |		Call	0x0,0xa
01d1 00da       |    |		Load_Top	At_Offset_2
01d2 017d       | }  |		Execute	Record,Structure_Write
01d3 00d9       |    |		Load_Top	At_Offset_1
01d4 820f       |    |		Call	0x1,0xf
01d5 0092 0328  |   (|		Action	Push_String_Extended,0x328					; "--------------------------------------------------"
01d7 e005       |    |		Load	0x0,0x5
01d8 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01d9 00c9       |    |		Action	Pop_Auxiliary_Loop
01da 800b       |    |		Call	0x0,0xb
01db 6ff4       |o   |		Jump_Zero	0x1d0
01dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e9       |    |		.CONST	0x01e9								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0004       |    |		.CONST	0x0004								; Number of locals
01e3			INIT_01e0:
01e3 e002       |    |		Load	0x0,0x2
01e4 0322       | "  |		Declare_Variable	Record
01e5 00e1       |    |		Load_Encached	Boolean_Cache
01e6 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01e7 00e2       |    |		Load_Encached	Integer_Cache
01e8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01e9			BODY_01e0:
01e9 0092 0329  |   )|		Action	Push_String_Extended,0x329					; "Les actions disponibles sont :"
01eb 800c       |    |		Call	0x0,0xc
01ec 8009       |    |		Call	0x0,0x9
01ed 00cf       |    |		Action	Mark_Auxiliary
01ee 781e       |x   |		Jump	0x20d
01ef 800a       |    |		Call	0x0,0xa
01f0 e402       |    |		Load	0x2,0x2
01f1 017d       | }  |		Execute	Record,Structure_Write
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01f4 0f05       |    |		Execute_Immediate	Equal,0x5
01f5 6816       |h   |		Jump_Zero	0x20c
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 700c       |p   |		Jump_Nonzero	0x204
01f8 00d9       |    |		Load_Top	At_Offset_1
01f9 0f06       |    |		Execute_Immediate	Equal,0x6
01fa 6805       |h   |		Jump_Zero	0x200
01fb 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; ", "
01fd 800d       |    |		Call	0x0,0xd
01fe 800e       |    |		Call	0x0,0xe
01ff 7806       |x   |		Jump	0x206
0200 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; ", "
0202 800d       |    |		Call	0x0,0xd
0203 7802       |x   |		Jump	0x206
0204 4800       |H   |		Short_Literal	0x0
0205 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0206 00db       |    |		Load_Top	At_Offset_3
0207 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0208 800f       |    |		Call	0x0,0xf
0209 00d9       |    |		Load_Top	At_Offset_1
020a 0a01       |    |		Execute_Immediate	Plus,0x1
020b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
020c 00c9       |    |		Action	Pop_Auxiliary_Loop
020d 800b       |    |		Call	0x0,0xb
020e 6fe0       |o   |		Jump_Zero	0x1ef
020f 00ce       |    |		Action	Pop_Auxiliary
0210 800e       |    |		Call	0x0,0xe
0211 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0212 0000 0000  |    |		.BLANK	0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 0092 032b  |   +|		Action	Push_String_Extended,0x32b					; "Description : "
021d e005       |    |		Load	0x0,0x5
021e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
021f 00da       |    |		Load_Top	At_Offset_2
0220 8006       |    |		Call	0x0,0x6
0221 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0222 0000 0000  |    |		.BLANK	0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 0092 032c  |   ,|		Action	Push_String_Extended,0x32c					; "Source : "
022d e005       |    |		Load	0x0,0x5
022e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
022f 00da       |    |		Load_Top	At_Offset_2
0230 6805       |h   |		Jump_Zero	0x236
0231 00da       |    |		Load_Top	At_Offset_2
0232 0227       | '  |		Execute	Access,All_Reference
0233 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0234 8006       |    |		Call	0x0,0x6
0235 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0236 0092 032d  |   -|		Action	Push_String_Extended,0x32d					; " "
0238 e005       |    |		Load	0x0,0x5
0239 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
023a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
023b 0000 0000  |    |		.BLANK	0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 0092 032e  |   .|		Action	Push_String_Extended,0x32e					; "Destination : "
0245 e005       |    |		Load	0x0,0x5
0246 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0247 00da       |    |		Load_Top	At_Offset_2
0248 6805       |h   |		Jump_Zero	0x24e
0249 00da       |    |		Load_Top	At_Offset_2
024a 0227       | '  |		Execute	Access,All_Reference
024b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024c 8006       |    |		Call	0x0,0x6
024d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024e 0092 032d  |   -|		Action	Push_String_Extended,0x32d					; " "
0250 e005       |    |		Load	0x0,0x5
0251 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0252 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0253 0000 0000  |    |		.BLANK	0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 0092 032f  |   /|		Action	Push_String_Extended,0x32f					; "Position : "
025d e005       |    |		Load	0x0,0x5
025e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
025f 00da       |    |		Load_Top	At_Offset_2
0260 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0261 8010       |    |		Call	0x0,0x10
0262 8006       |    |		Call	0x0,0x6
0263 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026d       | m  |		.CONST	0x026d								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0002       |    |		.CONST	0x0002								; Number of locals
026b			INIT_0268:
026b e011       |    |		Load	0x0,0x11
026c 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
026d			BODY_0268:
026d e011       |    |		Load	0x0,0x11
026e 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
026f e5ff       |    |		Load	0x2,-0x1
0270 8012       |    |		Call	0x0,0x12
0271 0039       | 9  |		Store_Top	Access,At_Offset_1
0272 00cf       |    |		Action	Mark_Auxiliary
0273 780d       |x   |		Jump	0x281
0274 00d9       |    |		Load_Top	At_Offset_1
0275 8013       |    |		Call	0x0,0x13
0276 800f       |    |		Call	0x0,0xf
0277 00d9       |    |		Load_Top	At_Offset_1
0278 8014       |    |		Call	0x0,0x14
0279 003a       | :  |		Store_Top	Access,At_Offset_2
027a 00d9       |    |		Load_Top	At_Offset_1
027b 8015       |    |		Call	0x0,0x15
027c 7003       |p   |		Jump_Nonzero	0x280
027d 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; ", "
027f 800d       |    |		Call	0x0,0xd
0280 00c9       |    |		Action	Pop_Auxiliary_Loop
0281 00d9       |    |		Load_Top	At_Offset_1
0282 8015       |    |		Call	0x0,0x15
0283 6ff0       |o   |		Jump_Zero	0x274
0284 00ce       |    |		Action	Pop_Auxiliary
0285 800e       |    |		Call	0x0,0xe
0286 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0287 0000       |    |		.XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028f       |    |		.CONST	0x028f								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0003       |    |		.CONST	0x0003								; Number of locals
028b			INIT_0288:
028b e016       |    |		Load	0x0,0x16
028c 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
028d e017       |    |		Load	0x0,0x17
028e 0007       |    |		Action	Break_Optional
028f			BODY_0288:
028f e016       |    |		Load	0x0,0x16
0290 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0291 e5ff       |    |		Load	0x2,-0x1
0292 8018       |    |		Call	0x0,0x18
0293 003a       | :  |		Store_Top	Access,At_Offset_2
0294 00cf       |    |		Action	Mark_Auxiliary
0295 7818       |x   |		Jump	0x2ae
0296 00da       |    |		Load_Top	At_Offset_2
0297 8019       |    |		Call	0x0,0x19
0298 003a       | :  |		Store_Top	Access,At_Offset_2
0299 00d9       |    |		Load_Top	At_Offset_1
029a 6809       |h   |		Jump_Zero	0x2a4
029b 00d9       |    |		Load_Top	At_Offset_1
029c 0227       | '  |		Execute	Access,All_Reference
029d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029e 801a       |    |		Call	0x0,0x1a
029f 6804       |h   |		Jump_Zero	0x2a4
02a0 00d9       |    |		Load_Top	At_Offset_1
02a1 0227       | '  |		Execute	Access,All_Reference
02a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a3 800f       |    |		Call	0x0,0xf
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 801b       |    |		Call	0x0,0x1b
02a6 003b       | ;  |		Store_Top	Access,At_Offset_3
02a7 00da       |    |		Load_Top	At_Offset_2
02a8 801c       |    |		Call	0x0,0x1c
02a9 7003       |p   |		Jump_Nonzero	0x2ad
02aa 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; ", "
02ac 800d       |    |		Call	0x0,0xd
02ad 00c9       |    |		Action	Pop_Auxiliary_Loop
02ae 00da       |    |		Load_Top	At_Offset_2
02af 801c       |    |		Call	0x0,0x1c
02b0 6fe5       |o   |		Jump_Zero	0x296
02b1 00ce       |    |		Action	Pop_Auxiliary
02b2 800e       |    |		Call	0x0,0xe
02b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bf       |    |		.CONST	0x02bf								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0003       |    |		.CONST	0x0003								; Number of locals
02bb			INIT_02b8:
02bb e01d       |    |		Load	0x0,0x1d
02bc 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02bd e017       |    |		Load	0x0,0x17
02be 0007       |    |		Action	Break_Optional
02bf			BODY_02b8:
02bf e01d       |    |		Load	0x0,0x1d
02c0 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02c1 e5ff       |    |		Load	0x2,-0x1
02c2 801e       |    |		Call	0x0,0x1e
02c3 003a       | :  |		Store_Top	Access,At_Offset_2
02c4 00cf       |    |		Action	Mark_Auxiliary
02c5 7818       |x   |		Jump	0x2de
02c6 00da       |    |		Load_Top	At_Offset_2
02c7 801f       |    |		Call	0x0,0x1f
02c8 003a       | :  |		Store_Top	Access,At_Offset_2
02c9 00d9       |    |		Load_Top	At_Offset_1
02ca 6809       |h   |		Jump_Zero	0x2d4
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ce 801a       |    |		Call	0x0,0x1a
02cf 6804       |h   |		Jump_Zero	0x2d4
02d0 00d9       |    |		Load_Top	At_Offset_1
02d1 0227       | '  |		Execute	Access,All_Reference
02d2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d3 800f       |    |		Call	0x0,0xf
02d4 00da       |    |		Load_Top	At_Offset_2
02d5 8020       |    |		Call	0x0,0x20
02d6 003b       | ;  |		Store_Top	Access,At_Offset_3
02d7 00da       |    |		Load_Top	At_Offset_2
02d8 8021       | !  |		Call	0x0,0x21
02d9 7003       |p   |		Jump_Nonzero	0x2dd
02da 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; ", "
02dc 800d       |    |		Call	0x0,0xd
02dd 00c9       |    |		Action	Pop_Auxiliary_Loop
02de 00da       |    |		Load_Top	At_Offset_2
02df 8021       | !  |		Call	0x0,0x21
02e0 6fe5       |o   |		Jump_Zero	0x2c6
02e1 00ce       |    |		Action	Pop_Auxiliary
02e2 800e       |    |		Call	0x0,0xe
02e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef       |    |		.CONST	0x02ef								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0003       |    |		.CONST	0x0003								; Number of locals
02eb			INIT_02e8:
02eb e022       | "  |		Load	0x0,0x22
02ec 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02ed e023       | #  |		Load	0x0,0x23
02ee 0322       | "  |		Declare_Variable	Record
02ef			BODY_02e8:
02ef 0092 0330  |   0|		Action	Push_String_Extended,0x330					; "Direction : "
02f1 e005       |    |		Load	0x0,0x5
02f2 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02f3 e022       | "  |		Load	0x0,0x22
02f4 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02f5 e5ff       |    |		Load	0x2,-0x1
02f6 8024       | $  |		Call	0x0,0x24
02f7 003a       | :  |		Store_Top	Access,At_Offset_2
02f8 00cf       |    |		Action	Mark_Auxiliary
02f9 781a       |x   |		Jump	0x314
02fa 00da       |    |		Load_Top	At_Offset_2
02fb 8025       | %  |		Call	0x0,0x25
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 017d       | }  |		Execute	Record,Structure_Write
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0300 8026       | &  |		Call	0x0,0x26
0301 00d9       |    |		Load_Top	At_Offset_1
0302 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0303 6805       |h   |		Jump_Zero	0x309
0304 00d9       |    |		Load_Top	At_Offset_1
0305 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0306 0227       | '  |		Execute	Access,All_Reference
0307 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0308 8026       | &  |		Call	0x0,0x26
0309 00da       |    |		Load_Top	At_Offset_2
030a 8027       | '  |		Call	0x0,0x27
030b 003b       | ;  |		Store_Top	Access,At_Offset_3
030c 00da       |    |		Load_Top	At_Offset_2
030d 8028       | (  |		Call	0x0,0x28
030e 7004       |p   |		Jump_Nonzero	0x313
030f 0092 032a  |   *|		Action	Push_String_Extended,0x32a					; ", "
0311 e005       |    |		Load	0x0,0x5
0312 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0313 00c9       |    |		Action	Pop_Auxiliary_Loop
0314 00da       |    |		Load_Top	At_Offset_2
0315 8028       | (  |		Call	0x0,0x28
0316 6fe3       |o   |		Jump_Zero	0x2fa
0317 00ce       |    |		Action	Pop_Auxiliary
0318 0092 032d  |   -|		Action	Push_String_Extended,0x32d					; " "
031a e005       |    |		Load	0x0,0x5
031b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
031c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
031d ; --------------------------------------------------------------------------------------
031d ; STRING TABLE
031d ; --------------------------------------------------------------------------------------
031d 002a       | *  |		.STRTAB	0x002a->0x0332							; "NOM : "
031e 002e       | .  |		.STRTAB	0x002e->0x0335							; "EXISTENCE : "
031f 0038       | 8  |		.STRTAB	0x0038->0x033b							; "COMPLET : "
0320 0040       | @  |		.STRTAB	0x0040->0x0340							; "TYPE : "
0321 0045       | E  |		.STRTAB	0x0045->0x0343							; "Valeur : "
0322 004c       | L  |		.STRTAB	0x004c->0x0348							; "Etat : "
0323 0051       | Q  |		.STRTAB	0x0051->0x034b							; "Contenu : "
0324 0059       | Y  |		.STRTAB	0x0059->0x0350							; "Possession : "
0325 0064       | d  |		.STRTAB	0x0064->0x0357							; "Signification : "
0326 0072       | r  |		.STRTAB	0x0072->0x035f							; "Sens1 : "
0327 0078       | x  |		.STRTAB	0x0078->0x0363							; "Sens2 : "
0328 007e       | ~  |		.STRTAB	0x007e->0x0367							; "--------------------------------------------------"
0329 00ae       |    |		.STRTAB	0x00ae->0x0380							; "Les actions disponibles sont :"
032a 00ca       |    |		.STRTAB	0x00ca->0x038f							; ", "
032b 00ca       |    |		.STRTAB	0x00ca->0x0390							; "Description : "
032c 00d6       |    |		.STRTAB	0x00d6->0x0397							; "Source : "
032d 00dd       |    |		.STRTAB	0x00dd->0x039b							; " "
032e 00dc       |    |		.STRTAB	0x00dc->0x039c							; "Destination : "
032f 00e8       |    |		.STRTAB	0x00e8->0x03a3							; "Position : "
0330 00f1       |    |		.STRTAB	0x00f1->0x03a8							; "Direction : "
0331 00fb       |    |		.STREND 0x00fb->0x03ae
0332 4e4f 4d20  |NOM |		.STRTAB_STRINGS
03af 0000       |    |		.XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug Table
03b0 ; --------------------------------------------------------------------------------------
03b0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xe3fd,0x0000,0x0001,0x0011
03b6 000b 03fa  |    |		.DBG4T	0x000b,0x03fa,0x8000,0x0000
03ba 001a 0403  |    |		.DBG4T	0x001a,0x0403,0x8000,0x0000
03be 0043 0414  | C  |		.DBG4T	0x0043,0x0414,0x0001,0x4000
03c2 008b 042c  |   ,|		.DBG4T	0x008b,0x042c,0x0001,0x4000
03c6 00bb 043c  |   <|		.DBG4T	0x00bb,0x043c,0x0001,0x4000
03ca 019b 0490  |    |		.DBG4T	0x019b,0x0490,0x0001,0x0000
03ce 01b3 0498  |    |		.DBG4T	0x01b3,0x0498,0x0001,0x4000
03d2 01cb 04a3  |    |		.DBG4T	0x01cb,0x04a3,0x0001,0x4000
03d6 01e3 04b0  |    |		.DBG4T	0x01e3,0x04b0,0x0001,0x4000
03da 021b 04d1  |    |		.DBG4T	0x021b,0x04d1,0x0001,0x0000
03de 022b 04d5  | +  |		.DBG4T	0x022b,0x04d5,0x0001,0x0000
03e2 0243 04db  | C  |		.DBG4T	0x0243,0x04db,0x0001,0x0000
03e6 025b 04e1  | [  |		.DBG4T	0x025b,0x04e1,0x0001,0x0000
03ea 026b 04e5  | k  |		.DBG4T	0x026b,0x04e5,0x0001,0x4000
03ee 028b 04f6  |    |		.DBG4T	0x028b,0x04f6,0x0001,0x4000
03f2 02bb 050e  |    |		.DBG4T	0x02bb,0x050e,0x0001,0x4000
03f6 02eb 0526  |   &|		.DBG4T	0x02eb,0x0526,0x0001,0x4000
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug chain
03fa ; --------------------------------------------------------------------------------------
03fa 0007 0000  |    |		.DBGLEN	0x0007,0x0000
03fc 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017
0403 ; --------------------------------------------------------------------------------------
0403 ; Debug chain
0403 ; --------------------------------------------------------------------------------------
0403 000f 0000  |    |		.DBGLEN	0x000f,0x0000
0405 001a 001c  |    |		.DBGLNO	0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug chain
0414 ; --------------------------------------------------------------------------------------
0414 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0416 0043 0044  | C D|		.DBGLNO	0x0043,0x0044,0x0046,0x004c,0x0051,0x0053,0x005f,0x0065,0x006b,0x0071,0x0078,0x007f
0422 0001 0002  |    |		.XXX[0xa]
0424 0003 0004  |    |
0426 0009 000a  |    |
0428 000b 0005  |    |
042a 0007 0006  |    |
042c ; --------------------------------------------------------------------------------------
042c ; Debug chain
042c ; --------------------------------------------------------------------------------------
042c 0002 0006  |    |		.DBGLEN	0x0002,0x0006
042e 008b 008c  |    |		.DBGLNO	0x008b,0x008c,0x008e,0x0094,0x0099,0x009b,0x00a7,0x00ad
0436 0001 0002  |    |		.XXX[0x6]
0438 0003 0004  |    |
043a 0006 0005  |    |
043c ; --------------------------------------------------------------------------------------
043c ; Debug chain
043c ; --------------------------------------------------------------------------------------
043c 0000 0029  |   )|		.DBGLEN	0x0000,0x0029
043e 00bb 00bf  |    |		.DBGLNO	0x00bb,0x00bf,0x00c2,0x00c6,0x00cd,0x00d1,0x00d8,0x00dc,0x00e3,0x00ef,0x00f3,0x00fc,0x0101,0x0105,0x010a,0x0110,0x0115,0x0119,0x011e,0x0120,0x0124,0x012a,0x012f,0x0133,0x0138,0x013a,0x013e,0x0144,0x0148,0x0151,0x0155,0x015b,0x0161,0x0167,0x016b,0x0171,0x0175,0x017b,0x0181,0x0187,0x018b
0467 0001 0002  |    |		.XXX[0x29]
0469 0003 0004  |    |
046b 0005 0006  |    |
046d 0007 0008  |    |
046f 0009 0016  |    |
0471 0017 0018  |    |
0473 0019 001a  |    |
0475 001b 001c  |    |
0477 001d 001e  |    |
0479 001f 0020  |    |
047b 0021 0022  | ! "|
047d 0023 0024  | # $|
047f 0025 0026  | % &|
0481 0027 0028  | ' (|
0483 0029 000a  | )  |
0485 000b 000c  |    |
0487 000d 000e  |    |
0489 000f 0010  |    |
048b 0011 0012  |    |
048d 0013 0014  |    |
048f 0015       |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0492 019b 019c  |    |		.DBGLNO	0x019b,0x019c,0x019e,0x01a4,0x01a9,0x01ab
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug chain
0498 ; --------------------------------------------------------------------------------------
0498 0001 0004  |    |		.DBGLEN	0x0001,0x0004
049a 01b3 01b5  |    |		.DBGLNO	0x01b3,0x01b5,0x01b8,0x01bb,0x01bf
049f 0001 0003  |    |		.XXX[0x4]
04a1 0004 0002  |    |
04a3 ; --------------------------------------------------------------------------------------
04a3 ; Debug chain
04a3 ; --------------------------------------------------------------------------------------
04a3 0001 0005  |    |		.DBGLEN	0x0001,0x0005
04a5 01cb 01cd  |    |		.DBGLNO	0x01cb,0x01cd,0x01d0,0x01d3,0x01d5,0x01da
04ab 0001 0003  |    |		.XXX[0x5]
04ad 0004 0005  |    |
04af 0002       |    |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug chain
04b0 ; --------------------------------------------------------------------------------------
04b0 0003 000e  |    |		.DBGLEN	0x0003,0x000e
04b2 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e7,0x01e9,0x01ec,0x01ef,0x01f2,0x01f6,0x01f8,0x01fb,0x01fe,0x0200,0x0204,0x0206,0x0209,0x020d,0x0210
04c3 0001 0002  |    |		.XXX[0xe]
04c5 0004 0005  |    |
04c7 0006 0007  |    |
04c9 0008 0009  |    |
04cb 000a 000b  |    |
04cd 000c 000d  |    |
04cf 0003 000e  |    |
04d1 ; --------------------------------------------------------------------------------------
04d1 ; Debug chain
04d1 ; --------------------------------------------------------------------------------------
04d1 0000 0002  |    |		.DBGLEN	0x0000,0x0002
04d3 021b 021f  |    |		.DBGLNO	0x021b,0x021f
04d5 ; --------------------------------------------------------------------------------------
04d5 ; Debug chain
04d5 ; --------------------------------------------------------------------------------------
04d5 0000 0004  |    |		.DBGLEN	0x0000,0x0004
04d7 022b 022f  | + /|		.DBGLNO	0x022b,0x022f,0x0231,0x0236
04db ; --------------------------------------------------------------------------------------
04db ; Debug chain
04db ; --------------------------------------------------------------------------------------
04db 0000 0004  |    |		.DBGLEN	0x0000,0x0004
04dd 0243 0247  | C G|		.DBGLNO	0x0243,0x0247,0x0249,0x024e
04e1 ; --------------------------------------------------------------------------------------
04e1 ; Debug chain
04e1 ; --------------------------------------------------------------------------------------
04e1 0000 0002  |    |		.DBGLEN	0x0000,0x0002
04e3 025b 025f  | [ _|		.DBGLNO	0x025b,0x025f
04e5 ; --------------------------------------------------------------------------------------
04e5 ; Debug chain
04e5 ; --------------------------------------------------------------------------------------
04e5 0001 0007  |    |		.DBGLEN	0x0001,0x0007
04e7 026b 026d  | k m|		.DBGLNO	0x026b,0x026d,0x0274,0x0277,0x027a,0x027d,0x0281,0x0285
04ef 0001 0003  |    |		.XXX[0x7]
04f1 0004 0005  |    |
04f3 0006 0002  |    |
04f5 0007       |    |
04f6 ; --------------------------------------------------------------------------------------
04f6 ; Debug chain
04f6 ; --------------------------------------------------------------------------------------
04f6 0002 000a  |    |		.DBGLEN	0x0002,0x000a
04f8 028b 028d  |    |		.DBGLNO	0x028b,0x028d,0x028f,0x0296,0x0299,0x029b,0x02a0,0x02a4,0x02a7,0x02aa,0x02ae,0x02b2
0504 0001 0003  |    |		.XXX[0xa]
0506 0004 0005  |    |
0508 0006 0007  |    |
050a 0008 0009  |    |
050c 0002 000a  |    |
050e ; --------------------------------------------------------------------------------------
050e ; Debug chain
050e ; --------------------------------------------------------------------------------------
050e 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0510 02bb 02bd  |    |		.DBGLNO	0x02bb,0x02bd,0x02bf,0x02c6,0x02c9,0x02cb,0x02d0,0x02d4,0x02d7,0x02da,0x02de,0x02e2
051c 0001 0003  |    |		.XXX[0xa]
051e 0004 0005  |    |
0520 0006 0007  |    |
0522 0008 0009  |    |
0524 0002 000a  |    |
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug chain
0526 ; --------------------------------------------------------------------------------------
0526 0002 000b  |    |		.DBGLEN	0x0002,0x000b
0528 02eb 02ed  |    |		.DBGLNO	0x02eb,0x02ed,0x02ef,0x02f3,0x02fa,0x02fe,0x0301,0x0304,0x0309,0x030c,0x030f,0x0314,0x0318
0535 0001 0002  |    |		.XXX[0xb]
0537 0004 0005  |    |
0539 0006 0007  |    |
053b 0008 0009  |    |
053d 000a 0003  |    |
053f 000b       |    |
0540 0000 0000  |    |		.BLANK	0000[0xc0]