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

⟦e4e57d36c⟧

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

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 0410       |    |		.CONST	0x0410								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0036       | 6  |		.CONST	0x0036								; Address of begin
0019 0058       | X  |		.CONST	0x0058								; Address of exception handler
001a 000d       |    |		.CONST	0x000d								; Number of locals
001b			INIT_0018:
001b 0092 033c  |   <|		Action	Push_String_Extended,0x33c					; "journal"
001d e002       |    |		Load	0x0,0x2
001e 0322       | "  |		Declare_Variable	Record
001f e003       |    |		Load	0x0,0x3
0020 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0021 02c7       |    |		Declare_Variable	Any
0022 00d8       |    |		Load_Top	At_Offset_0
0023 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0024 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
0026 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
0028 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
002a 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
002c 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
002e 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0030 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0032 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
0034 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
0036			BODY_0018:
0036 8004       |    |		Call	0x0,0x4
0037 0092 033d  |   =|		Action	Push_String_Extended,0x33d					; "Initialisation des lecteurs "
0039 e005       |    |		Load	0x0,0x5
003a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
003b 840a       |    |		Call	0x2,0xa
003c 8408       |    |		Call	0x2,0x8
003d 8409       |    |		Call	0x2,0x9
003e 0092 033e  |   >|		Action	Push_String_Extended,0x33e					; "terminee"
0040 e005       |    |		Load	0x0,0x5
0041 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0042 e404       |    |		Load	0x2,0x4
0043 00ea       |    |		Load_Encached	Null_String_Cache
0044 e402       |    |		Load	0x2,0x2
0045 4801       |H   |		Short_Literal	0x1
0046 e003       |    |		Load	0x0,0x3
0047 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0048 c404       |    |		Store	0x2,0x4
0049 4800       |H   |		Short_Literal	0x0
004a 4802       |H   |		Short_Literal	0x2
004b 4802       |H   |		Short_Literal	0x2
004c e006       |    |		Load	0x0,0x6
004d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
004e e006       |    |		Load	0x0,0x6
004f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0050 0092 033f  |   ?|		Action	Push_String_Extended,0x33f					; " Debut de supervision sur port "
0052 01cc       |    |		Execute	Vector,Catenate
0053 e007       |    |		Load	0x0,0x7
0054 01cc       |    |		Execute	Vector,Catenate
0055 8405       |    |		Call	0x2,0x5
0056 840d       |    |		Call	0x2,0xd
0057 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0058			TRAP_0018:
0058 e008       |    |		Load	0x0,0x8
0059 010f       |    |		Execute	Exception,Equal
005a 6805       |h   |		Jump_Zero	0x60
005b 0092 0340  |   @|		Action	Push_String_Extended,0x340					; "Erreur detectee a la lecture du fichier de configuration"
005d e005       |    |		Load	0x0,0x5
005e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
005f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0060 480a       |H   |		Short_Literal	0xa
0061 8407       |    |		Call	0x2,0x7
0062 01ca       |    |		Execute	Vector,Prepend
0063 0092 0341  |   A|		Action	Push_String_Extended,0x341					; " : "
0065 01cc       |    |		Execute	Vector,Catenate
0066 0092 0342  |   B|		Action	Push_String_Extended,0x342					; "Erreur d'acces"
0068 01cc       |    |		Execute	Vector,Catenate
0069 e005       |    |		Load	0x0,0x5
006a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
006b 00d8       |    |		Load_Top	At_Offset_0
006c 0101       |    |		Execute	Exception,Reraise
006d 0000 0000  |    |		.XXX[0x3]
006f 0000       |    |
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 480a       |H   |		Short_Literal	0xa
0074 0092 0343  |   C|		Action	Push_String_Extended,0x343					; "++\x0a"
0076 e7ff       |    |		Load	0x3,-0x1
0077 01cc       |    |		Execute	Vector,Catenate
0078 01cb       |    |		Execute	Vector,Append
0079 e005       |    |		Load	0x0,0x5
007a 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
007b 480a       |H   |		Short_Literal	0xa
007c 0092 0343  |   C|		Action	Push_String_Extended,0x343					; "++\x0a"
007e e7ff       |    |		Load	0x3,-0x1
007f 01cc       |    |		Execute	Vector,Catenate
0080 01cb       |    |		Execute	Vector,Append
0081 e404       |    |		Load	0x2,0x4
0082 e003       |    |		Load	0x0,0x3
0083 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0084 e404       |    |		Load	0x2,0x4
0085 e003       |    |		Load	0x0,0x3
0086 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0087 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008f       |    |		.CONST	0x008f								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b e00a       |    |		Load	0x0,0xa
008c 0322       | "  |		Declare_Variable	Record
008d e00b       |    |		Load	0x0,0xb
008e 0322       | "  |		Declare_Variable	Record
008f			BODY_0088:
008f 00d9       |    |		Load_Top	At_Offset_1
0090 00d9       |    |		Load_Top	At_Offset_1
0091 e7ff       |    |		Load	0x3,-0x1
0092 e00c       |    |		Load	0x0,0xc
0093 800d       |    |		Call	0x0,0xd
0094 00d2       |    |		Pop_Control	Pop_Count_2
0095 00d9       |    |		Load_Top	At_Offset_1
0096 800e       |    |		Call	0x0,0xe
0097 e00f       |    |		Load	0x0,0xf
0098 027f       |    |		Execute	Discrete,Equal
0099 6803       |h   |		Jump_Zero	0x9d
009a 0092 0344  |   D|		Action	Push_String_Extended,0x344					; "Porteur inconnu !"
009c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009d 0092 0345  |   E|		Action	Push_String_Extended,0x345					; "Groupe : "
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 8010       |    |		Call	0x0,0x10
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 0092 0346  |   F|		Action	Push_String_Extended,0x346					; ". "
00a4 01cc       |    |		Execute	Vector,Catenate
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 8011       |    |		Call	0x0,0x11
00a7 01cc       |    |		Execute	Vector,Catenate
00a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a9 0000 0000  |    |		.BLANK	0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7       |    |		.CONST	0x00b7								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e012       |    |		Load	0x0,0x12
00b4 0322       | "  |		Declare_Variable	Record
00b5 e013       |    |		Load	0x0,0x13
00b6 0322       | "  |		Declare_Variable	Record
00b7			BODY_00b0:
00b7 00d9       |    |		Load_Top	At_Offset_1
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 e403       |    |		Load	0x2,0x3
00ba 8014       |    |		Call	0x0,0x14
00bb e015       |    |		Load	0x0,0x15
00bc 8016       |    |		Call	0x0,0x16
00bd 00d2       |    |		Pop_Control	Pop_Count_2
00be 0092 0347  |   G|		Action	Push_String_Extended,0x347					; "Zone : "
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 8017       |    |		Call	0x0,0x17
00c2 01cc       |    |		Execute	Vector,Catenate
00c3 0092 0346  |   F|		Action	Push_String_Extended,0x346					; ". "
00c5 01cc       |    |		Execute	Vector,Catenate
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 8018       |    |		Call	0x0,0x18
00c8 01cc       |    |		Execute	Vector,Catenate
00c9 00ca       |    |		Action	Exit_Nullary_Function
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d9       |    |		.CONST	0x00d9								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0004       |    |		.CONST	0x0004								; Number of locals
00d3			INIT_00d0:
00d3 e013       |    |		Load	0x0,0x13
00d4 0322       | "  |		Declare_Variable	Record
00d5 e019       |    |		Load	0x0,0x19
00d6 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00d7 029f 0293  |    |		Declare_Subprogram	INIT_0290,For_Call
00d9			BODY_00d0:
00d9 e019       |    |		Load	0x0,0x19
00da 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00db e015       |    |		Load	0x0,0x15
00dc e019       |    |		Load	0x0,0x19
00dd 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00de 003a       | :  |		Store_Top	Access,At_Offset_2
00df 00cf       |    |		Action	Mark_Auxiliary
00e0 00da       |    |		Load_Top	At_Offset_2
00e1 e019       |    |		Load	0x0,0x19
00e2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00e3 700c       |p   |		Jump_Nonzero	0xf0
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 e019       |    |		Load	0x0,0x19
00e6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00e7 e602       |    |		Load	0x3,0x2
00e8 017d       | }  |		Execute	Record,Structure_Write
00e9 8604       |    |		Call	0x3,0x4
00ea 00da       |    |		Load_Top	At_Offset_2
00eb e019       |    |		Load	0x0,0x19
00ec 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00ed 003b       | ;  |		Store_Top	Access,At_Offset_3
00ee 00c9       |    |		Action	Pop_Auxiliary_Loop
00ef 7ff0       |    |		Jump	0xe0
00f0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0101       |    |		.CONST	0x0101								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0004       |    |		.CONST	0x0004								; Number of locals
00fb			INIT_00f8:
00fb e01a       |    |		Load	0x0,0x1a
00fc 0322       | "  |		Declare_Variable	Record
00fd e01b       |    |		Load	0x0,0x1b
00fe 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00ff 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
0101			BODY_00f8:
0101 e01b       |    |		Load	0x0,0x1b
0102 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0103 e01c       |    |		Load	0x0,0x1c
0104 e01b       |    |		Load	0x0,0x1b
0105 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0106 003a       | :  |		Store_Top	Access,At_Offset_2
0107 00cf       |    |		Action	Mark_Auxiliary
0108 00da       |    |		Load_Top	At_Offset_2
0109 e01b       |    |		Load	0x0,0x1b
010a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
010b 700c       |p   |		Jump_Nonzero	0x118
010c 00da       |    |		Load_Top	At_Offset_2
010d e01b       |    |		Load	0x0,0x1b
010e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
010f e602       |    |		Load	0x3,0x2
0110 017d       | }  |		Execute	Record,Structure_Write
0111 8604       |    |		Call	0x3,0x4
0112 00da       |    |		Load_Top	At_Offset_2
0113 e01b       |    |		Load	0x0,0x1b
0114 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0115 003b       | ;  |		Store_Top	Access,At_Offset_3
0116 00c9       |    |		Action	Pop_Auxiliary_Loop
0117 7ff0       |    |		Jump	0x108
0118 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0131       | 1  |		.CONST	0x0131								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0006       |    |		.CONST	0x0006								; Number of locals
0123			INIT_0120:
0123 e01d       |    |		Load	0x0,0x1d
0124 0322       | "  |		Declare_Variable	Record
0125 00e3       |    |		Load_Encached	Natural_Cache
0126 e01e       |    |		Load	0x0,0x1e
0127 0322       | "  |		Declare_Variable	Record
0128 00d8       |    |		Load_Top	At_Offset_0
0129 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012a 4801       |H   |		Short_Literal	0x1
012b 481e       |H   |		Short_Literal	0x1e
012c 00e9       |    |		Load_Encached	String_Cache
012d 035b       | [  |		Declare_Type	Array,Constrained
012e 0337       | 7  |		Declare_Variable	Array
012f e01f       |    |		Load	0x0,0x1f
0130 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0131			BODY_0120:
0131 e01f       |    |		Load	0x0,0x1f
0132 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0133 e020       |    |		Load	0x0,0x20
0134 e01f       |    |		Load	0x0,0x1f
0135 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0136 0039       | 9  |		Store_Top	Access,At_Offset_1
0137 00cf       |    |		Action	Mark_Auxiliary
0138 00d9       |    |		Load_Top	At_Offset_1
0139 e01f       |    |		Load	0x0,0x1f
013a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
013b 702f       |p/  |		Jump_Nonzero	0x16b
013c e602       |    |		Load	0x3,0x2
013d 00e3       |    |		Load_Encached	Natural_Cache
013e e605       |    |		Load	0x3,0x5
013f e606       |    |		Load	0x3,0x6
0140 e01f       |    |		Load	0x0,0x1f
0141 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0142 8021       | !  |		Call	0x0,0x21
0143 00d1       |    |		Pop_Control	Pop_Count_1
0144 c603       |    |		Store	0x3,0x3
0145 00d1       |    |		Pop_Control	Pop_Count_1
0146 8022       | "  |		Call	0x0,0x22
0147 e604       |    |		Load	0x3,0x4
0148 017d       | }  |		Execute	Record,Structure_Write
0149 e603       |    |		Load	0x3,0x3
014a 00d8       |    |		Load_Top	At_Offset_0
014b e023       | #  |		Load	0x0,0x23
014c 0260       | `  |		Execute	Discrete,In_Type
014d 7001       |p   |		Jump_Nonzero	0x14f
014e 0801       |    |		Execute_Immediate	Raise,0x1
014f 8024       | $  |		Call	0x0,0x24
0150 e403       |    |		Load	0x2,0x3
0151 017d       | }  |		Execute	Record,Structure_Write
0152 00db       |    |		Load_Top	At_Offset_3
0153 e403       |    |		Load	0x2,0x3
0154 8025       | %  |		Call	0x0,0x25
0155 e602       |    |		Load	0x3,0x2
0156 e403       |    |		Load	0x2,0x3
0157 8026       | &  |		Call	0x0,0x26
0158 e027       | '  |		Load	0x0,0x27
0159 e603       |    |		Load	0x3,0x3
015a 00d8       |    |		Load_Top	At_Offset_0
015b e023       | #  |		Load	0x0,0x23
015c 0260       | `  |		Execute	Discrete,In_Type
015d 7001       |p   |		Jump_Nonzero	0x15f
015e 0801       |    |		Execute_Immediate	Raise,0x1
015f 8024       | $  |		Call	0x0,0x24
0160 8028       | (  |		Call	0x0,0x28
0161 600a       |`   |		Indirect_Literal	Discrete,0x16c,{0x00000000, 0x00000fa0}
0162 4801       |H   |		Short_Literal	0x1
0163 e403       |    |		Load	0x2,0x3
0164 8029       | )  |		Call	0x0,0x29
0165 00d9       |    |		Load_Top	At_Offset_1
0166 e01f       |    |		Load	0x0,0x1f
0167 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0168 003a       | :  |		Store_Top	Access,At_Offset_2
0169 00c9       |    |		Action	Pop_Auxiliary_Loop
016a 7fcd       |    |		Jump	0x138
016b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
016c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000fa0}
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177       | w  |		.CONST	0x0177								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 e01e       |    |		Load	0x0,0x1e
0174 0322       | "  |		Declare_Variable	Record
0175 00d8       |    |		Load_Top	At_Offset_0
0176 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0177			BODY_0170:
0177 8022       | "  |		Call	0x0,0x22
0178 00d9       |    |		Load_Top	At_Offset_1
0179 017d       | }  |		Execute	Record,Structure_Write
017a 00d8       |    |		Load_Top	At_Offset_0
017b e7ff       |    |		Load	0x3,-0x1
017c 8025       | %  |		Call	0x0,0x25
017d 480a       |H   |		Short_Literal	0xa
017e 00d9       |    |		Load_Top	At_Offset_1
017f 802a       | *  |		Call	0x0,0x2a
0180 0092 0348  |   H|		Action	Push_String_Extended,0x348					; ", "
0182 01cc       |    |		Execute	Vector,Catenate
0183 0092 0349  |   I|		Action	Push_String_Extended,0x349					; "Mise a l'heure du lecteur"
0185 01cc       |    |		Execute	Vector,Catenate
0186 01cb       |    |		Execute	Vector,Append
0187 8407       |    |		Call	0x2,0x7
0188 01cc       |    |		Execute	Vector,Catenate
0189 8405       |    |		Call	0x2,0x5
018a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01ae       |    |		.CONST	0x01ae								; Address of begin
0191 01ef       |    |		.CONST	0x01ef								; Address of exception handler
0192 0007       |    |		.CONST	0x0007								; Number of locals
0193			INIT_0190:
0193 0093 0000  |    |		push_full_address	0x0
0195 60ae       |`   |		Indirect_Literal	Discrete,0x244,{0x80000000, 0x00010000}
0196 0273       | s  |		Execute	Discrete,Plus
0197 e02b       | +  |		Load	0x0,0x2b
0198 0273       | s  |		Execute	Discrete,Plus
0199 e02c       | ,  |		Load	0x0,0x2c
019a 0273       | s  |		Execute	Discrete,Plus
019b 4802       |H   |		Short_Literal	0x2
019c e02d       | -  |		Load	0x0,0x2d
019d 0387       |    |		Declare_Variable	Package
019e 00d8       |    |		Load_Top	At_Offset_0
019f 020f       |    |		Execute	Module,Activate
01a0 e02e       | .  |		Load	0x0,0x2e
01a1 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01a2 0322       | "  |		Declare_Variable	Record
01a3 e02f       | /  |		Load	0x0,0x2f
01a4 0322       | "  |		Declare_Variable	Record
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a7 e02e       | .  |		Load	0x0,0x2e
01a8 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01a9 0322       | "  |		Declare_Variable	Record
01aa 00e1       |    |		Load_Encached	Boolean_Cache
01ab 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01ac e030       | 0  |		Load	0x0,0x30
01ad 0007       |    |		Action	Break_Optional
01ae			BODY_0190:
01ae 8031       | 1  |		Call	0x0,0x31
01af e603       |    |		Load	0x3,0x3
01b0 e7ff       |    |		Load	0x3,-0x1
01b1 8032       | 2  |		Call	0x0,0x32
01b2 00d1       |    |		Pop_Control	Pop_Count_1
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 e603       |    |		Load	0x3,0x3
01b5 e02e       | .  |		Load	0x0,0x2e
01b6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01b7 00d1       |    |		Pop_Control	Pop_Count_1
01b8 00cf       |    |		Action	Mark_Auxiliary
01b9 00db       |    |		Load_Top	At_Offset_3
01ba e02e       | .  |		Load	0x0,0x2e
01bb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01bc 702b       |p+  |		Jump_Nonzero	0x1e8
01bd 00db       |    |		Load_Top	At_Offset_3
01be e02e       | .  |		Load	0x0,0x2e
01bf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c0 e604       |    |		Load	0x3,0x4
01c1 017d       | }  |		Execute	Record,Structure_Write
01c2 e604       |    |		Load	0x3,0x4
01c3 8033       | 3  |		Call	0x0,0x33
01c4 6802       |h   |		Jump_Zero	0x1c7
01c5 4801       |H   |		Short_Literal	0x1
01c6 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
01c7 e604       |    |		Load	0x3,0x4
01c8 8034       | 4  |		Call	0x0,0x34
01c9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb e00f       |    |		Load	0x0,0xf
01cc 027e       | ~  |		Execute	Discrete,Not_Equal
01cd 680d       |h   |		Jump_Zero	0x1db
01ce 480a       |H   |		Short_Literal	0xa
01cf 480a       |H   |		Short_Literal	0xa
01d0 e604       |    |		Load	0x3,0x4
01d1 8035       | 5  |		Call	0x0,0x35
01d2 01cb       |    |		Execute	Vector,Append
01d3 8407       |    |		Call	0x2,0x7
01d4 01cc       |    |		Execute	Vector,Catenate
01d5 01cb       |    |		Execute	Vector,Append
01d6 00da       |    |		Load_Top	At_Offset_2
01d7 8406       |    |		Call	0x2,0x6
01d8 01cc       |    |		Execute	Vector,Catenate
01d9 8405       |    |		Call	0x2,0x5
01da 7807       |x   |		Jump	0x1e2
01db 480a       |H   |		Short_Literal	0xa
01dc e604       |    |		Load	0x3,0x4
01dd 8035       | 5  |		Call	0x0,0x35
01de 01cb       |    |		Execute	Vector,Append
01df 8407       |    |		Call	0x2,0x7
01e0 01cc       |    |		Execute	Vector,Catenate
01e1 8405       |    |		Call	0x2,0x5
01e2 00db       |    |		Load_Top	At_Offset_3
01e3 e02e       | .  |		Load	0x0,0x2e
01e4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01e5 00d1       |    |		Pop_Control	Pop_Count_1
01e6 00c9       |    |		Action	Pop_Auxiliary_Loop
01e7 7fd1       |    |		Jump	0x1b9
01e8 00ce       |    |		Action	Pop_Auxiliary
01e9 e603       |    |		Load	0x3,0x3
01ea e02e       | .  |		Load	0x0,0x2e
01eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ec 00d1       |    |		Pop_Control	Pop_Count_1
01ed 00d9       |    |		Load_Top	At_Offset_1
01ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ef			TRAP_0190:
01ef e036       | 6  |		Load	0x0,0x36
01f0 e602       |    |		Load	0x3,0x2
01f1 0098       |    |		Execute	Package,Field_Read_Dynamic
01f2 010f       |    |		Execute	Exception,Equal
01f3 680f       |h   |		Jump_Zero	0x203
01f4 480a       |H   |		Short_Literal	0xa
01f5 8022       | "  |		Call	0x0,0x22
01f6 802a       | *  |		Call	0x0,0x2a
01f7 0092 034a  |   J|		Action	Push_String_Extended,0x34a					; ": "
01f9 01cc       |    |		Execute	Vector,Catenate
01fa 0092 034b  |   K|		Action	Push_String_Extended,0x34b					; "ne repond pas correctement => mauvais aquittement !"
01fc 01cc       |    |		Execute	Vector,Catenate
01fd 01cb       |    |		Execute	Vector,Append
01fe 8407       |    |		Call	0x2,0x7
01ff 01cc       |    |		Execute	Vector,Catenate
0200 8405       |    |		Call	0x2,0x5
0201 4800       |H   |		Short_Literal	0x0
0202 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0203 e037       | 7  |		Load	0x0,0x37
0204 e602       |    |		Load	0x3,0x2
0205 0098       |    |		Execute	Package,Field_Read_Dynamic
0206 010f       |    |		Execute	Exception,Equal
0207 7005       |p   |		Jump_Nonzero	0x20d
0208 e038       | 8  |		Load	0x0,0x38
0209 e602       |    |		Load	0x3,0x2
020a 0098       |    |		Execute	Package,Field_Read_Dynamic
020b 010f       |    |		Execute	Exception,Equal
020c 680f       |h   |		Jump_Zero	0x21c
020d 480a       |H   |		Short_Literal	0xa
020e 8022       | "  |		Call	0x0,0x22
020f 802a       | *  |		Call	0x0,0x2a
0210 0092 034a  |   J|		Action	Push_String_Extended,0x34a					; ": "
0212 01cc       |    |		Execute	Vector,Catenate
0213 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "ne repond pas correctement => erreur de trame !"
0215 01cc       |    |		Execute	Vector,Catenate
0216 01cb       |    |		Execute	Vector,Append
0217 8407       |    |		Call	0x2,0x7
0218 01cc       |    |		Execute	Vector,Catenate
0219 8405       |    |		Call	0x2,0x5
021a 4800       |H   |		Short_Literal	0x0
021b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021c e039       | 9  |		Load	0x0,0x39
021d 010f       |    |		Execute	Exception,Equal
021e 680f       |h   |		Jump_Zero	0x22e
021f 480a       |H   |		Short_Literal	0xa
0220 8022       | "  |		Call	0x0,0x22
0221 802a       | *  |		Call	0x0,0x2a
0222 0092 034a  |   J|		Action	Push_String_Extended,0x34a					; ": "
0224 01cc       |    |		Execute	Vector,Catenate
0225 0092 034d  |   M|		Action	Push_String_Extended,0x34d					; "n'est pas accessible => erreur a l'ouverture !"
0227 01cc       |    |		Execute	Vector,Catenate
0228 01cb       |    |		Execute	Vector,Append
0229 8407       |    |		Call	0x2,0x7
022a 01cc       |    |		Execute	Vector,Catenate
022b 8405       |    |		Call	0x2,0x5
022c 4800       |H   |		Short_Literal	0x0
022d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022e e03a       | :  |		Load	0x0,0x3a
022f 010f       |    |		Execute	Exception,Equal
0230 680f       |h   |		Jump_Zero	0x240
0231 480a       |H   |		Short_Literal	0xa
0232 8022       | "  |		Call	0x0,0x22
0233 802a       | *  |		Call	0x0,0x2a
0234 0092 034a  |   J|		Action	Push_String_Extended,0x34a					; ": "
0236 01cc       |    |		Execute	Vector,Catenate
0237 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "ne repond pas !"
0239 01cc       |    |		Execute	Vector,Catenate
023a 01cb       |    |		Execute	Vector,Append
023b 8407       |    |		Call	0x2,0x7
023c 01cc       |    |		Execute	Vector,Catenate
023d 8405       |    |		Call	0x2,0x5
023e 4800       |H   |		Short_Literal	0x0
023f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0240 0100       |    |		Execute	Exception,Raise
0241 0000 0000  |    |		.XXX[0x3]
0243 0000       |    |
0244 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0255       | U  |		.CONST	0x0255								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0005       |    |		.CONST	0x0005								; Number of locals
024b			INIT_0248:
024b e01d       |    |		Load	0x0,0x1d
024c 0322       | "  |		Declare_Variable	Record
024d 00e3       |    |		Load_Encached	Natural_Cache
024e 4801       |H   |		Short_Literal	0x1
024f 481e       |H   |		Short_Literal	0x1e
0250 00e9       |    |		Load_Encached	String_Cache
0251 035b       | [  |		Declare_Type	Array,Constrained
0252 0337       | 7  |		Declare_Variable	Array
0253 e01f       |    |		Load	0x0,0x1f
0254 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0255			BODY_0248:
0255 6036       |`6  |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x00008000}
0256 803b       | ;  |		Call	0x0,0x3b
0257 00cf       |    |		Action	Mark_Auxiliary
0258 e01f       |    |		Load	0x0,0x1f
0259 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
025a e020       |    |		Load	0x0,0x20
025b e01f       |    |		Load	0x0,0x1f
025c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
025d 003a       | :  |		Store_Top	Access,At_Offset_2
025e 00cf       |    |		Action	Mark_Auxiliary
025f 00da       |    |		Load_Top	At_Offset_2
0260 e01f       |    |		Load	0x0,0x1f
0261 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0262 701e       |p   |		Jump_Nonzero	0x281
0263 e602       |    |		Load	0x3,0x2
0264 00e3       |    |		Load_Encached	Natural_Cache
0265 e604       |    |		Load	0x3,0x4
0266 e605       |    |		Load	0x3,0x5
0267 e01f       |    |		Load	0x0,0x1f
0268 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0269 8021       | !  |		Call	0x0,0x21
026a 00d1       |    |		Pop_Control	Pop_Count_1
026b c603       |    |		Store	0x3,0x3
026c 00d1       |    |		Pop_Control	Pop_Count_1
026d e603       |    |		Load	0x3,0x3
026e 00d8       |    |		Load_Top	At_Offset_0
026f e023       | #  |		Load	0x0,0x23
0270 0260       | `  |		Execute	Discrete,In_Type
0271 7001       |p   |		Jump_Nonzero	0x273
0272 0801       |    |		Execute_Immediate	Raise,0x1
0273 8024       | $  |		Call	0x0,0x24
0274 e403       |    |		Load	0x2,0x3
0275 017d       | }  |		Execute	Record,Structure_Write
0276 e403       |    |		Load	0x2,0x3
0277 840c       |    |		Call	0x2,0xc
0278 6802       |h   |		Jump_Zero	0x27b
0279 e403       |    |		Load	0x2,0x3
027a 840b       |    |		Call	0x2,0xb
027b 00da       |    |		Load_Top	At_Offset_2
027c e01f       |    |		Load	0x0,0x1f
027d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
027e 003b       | ;  |		Store_Top	Access,At_Offset_3
027f 00c9       |    |		Action	Pop_Auxiliary_Loop
0280 7fde       |    |		Jump	0x25f
0281 00ce       |    |		Action	Pop_Auxiliary
0282 6005       |`   |		Indirect_Literal	Discrete,0x288,{0x00000000, 0x00050000}
0283 00ba       |    |		Action	Initiate_Delay
0284 00c9       |    |		Action	Pop_Auxiliary_Loop
0285 7fd2       |    |		Jump	0x258
0286 0000 0000  |    |		.XXX[0x2]
0288 0000 0000  |    |		.LITERAL	{0x00000000, 0x00050000}
028c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008000}
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029b       |    |		.CONST	0x029b								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0004       |    |		.CONST	0x0004								; Number of locals
0293			INIT_0290:
0293 e03c       | <  |		Load	0x0,0x3c
0294 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0295 e03c       | <  |		Load	0x0,0x3c
0296 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0297 e03d       | =  |		Load	0x0,0x3d
0298 0322       | "  |		Declare_Variable	Record
0299 00d8       |    |		Load_Top	At_Offset_0
029a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
029b			BODY_0290:
029b e602       |    |		Load	0x3,0x2
029c 803e       | >  |		Call	0x0,0x3e
029d 003a       | :  |		Store_Top	Access,At_Offset_2
029e e03c       | <  |		Load	0x0,0x3c
029f 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 e03c       | <  |		Load	0x0,0x3c
02a2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02a3 003b       | ;  |		Store_Top	Access,At_Offset_3
02a4 00cf       |    |		Action	Mark_Auxiliary
02a5 00db       |    |		Load_Top	At_Offset_3
02a6 e03c       | <  |		Load	0x0,0x3c
02a7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02a8 7026       |p&  |		Jump_Nonzero	0x2cf
02a9 00db       |    |		Load_Top	At_Offset_3
02aa e03c       | <  |		Load	0x0,0x3c
02ab 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02ac 803f       | ?  |		Call	0x0,0x3f
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae e023       | #  |		Load	0x0,0x23
02af 0260       | `  |		Execute	Discrete,In_Type
02b0 7001       |p   |		Jump_Nonzero	0x2b2
02b1 0801       |    |		Execute_Immediate	Raise,0x1
02b2 8024       | $  |		Call	0x0,0x24
02b3 e403       |    |		Load	0x2,0x3
02b4 017d       | }  |		Execute	Record,Structure_Write
02b5 00cf       |    |		Action	Mark_Auxiliary
02b6 4807       |H   |		Short_Literal	0x7
02b7 4801       |H   |		Short_Literal	0x1
02b8 0007       |    |		Action	Break_Optional
02b9 00d8       |    |		Load_Top	At_Offset_0
02ba e602       |    |		Load	0x3,0x2
02bb 8040       | @  |		Call	0x0,0x40
02bc e602       |    |		Load	0x3,0x2
02bd 8017       |    |		Call	0x0,0x17
02be e041       | A  |		Load	0x0,0x41
02bf 8042       | B  |		Call	0x0,0x42
02c0 8043       | C  |		Call	0x0,0x43
02c1 e804       |    |		Load	0x4,0x4
02c2 017d       | }  |		Execute	Record,Structure_Write
02c3 e804       |    |		Load	0x4,0x4
02c4 e403       |    |		Load	0x2,0x3
02c5 8044       | D  |		Call	0x0,0x44
02c6 00c8       |    |		Action	Pop_Auxiliary_Range
02c7 3ff1       |?   |		Loop_Increasing	0x2b9
02c8 00ce       |    |		Action	Pop_Auxiliary
02c9 00db       |    |		Load_Top	At_Offset_3
02ca e03c       | <  |		Load	0x0,0x3c
02cb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02cc c802       |    |		Store	0x4,0x2
02cd 00c9       |    |		Action	Pop_Auxiliary_Loop
02ce 7fd6       |    |		Jump	0x2a5
02cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02dd       |    |		.CONST	0x02dd								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0006       |    |		.CONST	0x0006								; Number of locals
02d3			INIT_02d0:
02d3 e045       | E  |		Load	0x0,0x45
02d4 0007       |    |		Action	Break_Optional
02d5 e013       |    |		Load	0x0,0x13
02d6 0322       | "  |		Declare_Variable	Record
02d7 e03c       | <  |		Load	0x0,0x3c
02d8 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02d9 e03c       | <  |		Load	0x0,0x3c
02da 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02db 029f 030b  |    |		Declare_Subprogram	INIT_0308,For_Call
02dd			BODY_02d0:
02dd e602       |    |		Load	0x3,0x2
02de 8046       | F  |		Call	0x0,0x46
02df c802       |    |		Store	0x4,0x2
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 e602       |    |		Load	0x3,0x2
02e2 8047       | G  |		Call	0x0,0x47
02e3 e015       |    |		Load	0x0,0x15
02e4 8048       | H  |		Call	0x0,0x48
02e5 00d1       |    |		Pop_Control	Pop_Count_1
02e6 00db       |    |		Load_Top	At_Offset_3
02e7 803e       | >  |		Call	0x0,0x3e
02e8 003a       | :  |		Store_Top	Access,At_Offset_2
02e9 e03c       | <  |		Load	0x0,0x3c
02ea 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02eb 00da       |    |		Load_Top	At_Offset_2
02ec e03c       | <  |		Load	0x0,0x3c
02ed 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02ee 003b       | ;  |		Store_Top	Access,At_Offset_3
02ef 00cf       |    |		Action	Mark_Auxiliary
02f0 00db       |    |		Load_Top	At_Offset_3
02f1 e03c       | <  |		Load	0x0,0x3c
02f2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02f3 7013       |p   |		Jump_Nonzero	0x307
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 e03c       | <  |		Load	0x0,0x3c
02f6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02f7 803f       | ?  |		Call	0x0,0x3f
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 e023       | #  |		Load	0x0,0x23
02fa 0260       | `  |		Execute	Discrete,In_Type
02fb 7001       |p   |		Jump_Nonzero	0x2fd
02fc 0801       |    |		Execute_Immediate	Raise,0x1
02fd 8024       | $  |		Call	0x0,0x24
02fe e403       |    |		Load	0x2,0x3
02ff 017d       | }  |		Execute	Record,Structure_Write
0300 8806       |    |		Call	0x4,0x6
0301 00db       |    |		Load_Top	At_Offset_3
0302 e03c       | <  |		Load	0x0,0x3c
0303 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0304 c804       |    |		Store	0x4,0x4
0305 00c9       |    |		Action	Pop_Auxiliary_Loop
0306 7fe9       |    |		Jump	0x2f0
0307 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0315       |    |		.CONST	0x0315								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0006       |    |		.CONST	0x0006								; Number of locals
030b			INIT_0308:
030b e00b       |    |		Load	0x0,0xb
030c 0322       | "  |		Declare_Variable	Record
030d e049       | I  |		Load	0x0,0x49
030e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
030f e049       | I  |		Load	0x0,0x49
0310 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0311 e00a       |    |		Load	0x0,0xa
0312 0322       | "  |		Declare_Variable	Record
0313 e030       | 0  |		Load	0x0,0x30
0314 0007       |    |		Action	Break_Optional
0315			BODY_0308:
0315 ea02       |    |		Load	0x5,0x2
0316 e602       |    |		Load	0x3,0x2
0317 804a       | J  |		Call	0x0,0x4a
0318 e00c       |    |		Load	0x0,0xc
0319 804b       | K  |		Call	0x0,0x4b
031a 00d1       |    |		Pop_Control	Pop_Count_1
031b ea02       |    |		Load	0x5,0x2
031c 804c       | L  |		Call	0x0,0x4c
031d aa03       |    |		Store_Unchecked	0x5,0x3
031e e049       | I  |		Load	0x0,0x49
031f 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0320 ea03       |    |		Load	0x5,0x3
0321 e049       | I  |		Load	0x0,0x49
0322 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0323 003b       | ;  |		Store_Top	Access,At_Offset_3
0324 00cf       |    |		Action	Mark_Auxiliary
0325 00db       |    |		Load_Top	At_Offset_3
0326 e049       | I  |		Load	0x0,0x49
0327 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0328 7012       |p   |		Jump_Nonzero	0x33b
0329 00db       |    |		Load_Top	At_Offset_3
032a e049       | I  |		Load	0x0,0x49
032b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
032c 00db       |    |		Load_Top	At_Offset_3
032d 017d       | }  |		Execute	Record,Structure_Write
032e 00da       |    |		Load_Top	At_Offset_2
032f 800e       |    |		Call	0x0,0xe
0330 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0331 e802       |    |		Load	0x4,0x2
0332 00da       |    |		Load_Top	At_Offset_2
0333 e403       |    |		Load	0x2,0x3
0334 804d       | M  |		Call	0x0,0x4d
0335 00db       |    |		Load_Top	At_Offset_3
0336 e049       | I  |		Load	0x0,0x49
0337 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0338 ca04       |    |		Store	0x5,0x4
0339 00c9       |    |		Action	Pop_Auxiliary_Loop
033a 7fea       |    |		Jump	0x325
033b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033c ; --------------------------------------------------------------------------------------
033c ; STRING TABLE
033c ; --------------------------------------------------------------------------------------
033c 0028       | (  |		.STRTAB	0x0028->0x0350							; "journal"
033d 002d       | -  |		.STRTAB	0x002d->0x0353							; "Initialisation des lecteurs "
033e 0047       | G  |		.STRTAB	0x0047->0x0361							; "terminee"
033f 004d       | M  |		.STRTAB	0x004d->0x0365							; " Debut de supervision sur port "
0340 006a       | j  |		.STRTAB	0x006a->0x0375							; "Erreur detectee a la lecture du fichier de configuration"
0341 00a0       |    |		.STRTAB	0x00a0->0x0391							; " : "
0342 00a1       |    |		.STRTAB	0x00a1->0x0392							; "Erreur d'acces"
0343 00ad       |    |		.STRTAB	0x00ad->0x0399							; "++\x0a"
0344 00ae       |    |		.STRTAB	0x00ae->0x039b							; "Porteur inconnu !"
0345 00bd       |    |		.STRTAB	0x00bd->0x03a3							; "Groupe : "
0346 00c4       |    |		.STRTAB	0x00c4->0x03a8							; ". "
0347 00c4       |    |		.STRTAB	0x00c4->0x03a9							; "Zone : "
0348 00c9       |    |		.STRTAB	0x00c9->0x03ac							; ", "
0349 00c9       |    |		.STRTAB	0x00c9->0x03ad							; "Mise a l'heure du lecteur"
034a 00e0       |    |		.STRTAB	0x00e0->0x03ba							; ": "
034b 00e0       |    |		.STRTAB	0x00e0->0x03bb							; "ne repond pas correctement => mauvais aquittement !"
034c 0111       |    |		.STRTAB	0x0111->0x03d4							; "ne repond pas correctement => erreur de trame !"
034d 013e       | >  |		.STRTAB	0x013e->0x03ec							; "n'est pas accessible => erreur a l'ouverture !"
034e 016a       | j  |		.STRTAB	0x016a->0x0403							; "ne repond pas !"
034f 0177       | w  |		.STREND 0x0177->0x040a
0350 6a6f 7572  |jour|		.STRTAB_STRINGS
040b 0000 0000  |    |		.BLANK	0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x55ff,0x0000,0x0001,0x000e
0416 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
041a 001b 044e  |   N|		.DBG4T	0x001b,0x044e,0x8001,0x8000
041e 0073 0474  | s t|		.DBG4T	0x0073,0x0474,0x0001,0x0000
0422 008b 0479  |   y|		.DBG4T	0x008b,0x0479,0x0002,0x0000
0426 00b3 0481  |    |		.DBG4T	0x00b3,0x0481,0x0002,0x0000
042a 00d3 0487  |    |		.DBG4T	0x00d3,0x0487,0x0001,0x4000
042e 00fb 0495  |    |		.DBG4T	0x00fb,0x0495,0x0001,0x4000
0432 0123 04a3  | #  |		.DBG4T	0x0123,0x04a3,0x0001,0x4000
0436 0173 04be  | s  |		.DBG4T	0x0173,0x04be,0x0001,0x0000
043a 0193 04c4  |    |		.DBG4T	0x0193,0x04c4,0x0002,0xc000
043e 024b 04fe  | K  |		.DBG4T	0x024b,0x04fe,0x0001,0x4000
0442 0293 0518  |    |		.DBG4T	0x0293,0x0518,0x0004,0x4000
0446 02d3 052d  |   -|		.DBG4T	0x02d3,0x052d,0x0004,0x4000
044a 030b 0543  |   C|		.DBG4T	0x030b,0x0543,0x0004,0x4000
044e ; --------------------------------------------------------------------------------------
044e ; Debug chain
044e ; --------------------------------------------------------------------------------------
044e 000c 000c  |    |		.DBGLEN	0x000c,0x000c
0450 001b 001d  |    |		.DBGLNO	0x001b,0x001d,0x001f,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0037,0x003b,0x003c,0x003d,0x003e,0x0042,0x0049,0x0056,0x005b,0x0060,0x006b
0468 0004 0005  |    |		.XXX[0xc]
046a 0006 0007  |    |
046c 0008 0009  |    |
046e 000a 000b  |    |
0470 000c 000d  |    |
0472 000e 000f  |    |
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug chain
0474 ; --------------------------------------------------------------------------------------
0474 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0476 0073 007b  | s {|		.DBGLNO	0x0073,0x007b,0x0084
0479 ; --------------------------------------------------------------------------------------
0479 ; Debug chain
0479 ; --------------------------------------------------------------------------------------
0479 0002 0004  |    |		.DBGLEN	0x0002,0x0004
047b 008b 008d  |    |		.DBGLNO	0x008b,0x008d,0x008f,0x0095,0x009a,0x009d
0481 ; --------------------------------------------------------------------------------------
0481 ; Debug chain
0481 ; --------------------------------------------------------------------------------------
0481 0002 0002  |    |		.DBGLEN	0x0002,0x0002
0483 00b3 00b5  |    |		.DBGLNO	0x00b3,0x00b5,0x00b7,0x00be
0487 ; --------------------------------------------------------------------------------------
0487 ; Debug chain
0487 ; --------------------------------------------------------------------------------------
0487 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0489 00d3 00d5  |    |		.DBGLNO	0x00d3,0x00d5,0x00d9,0x00e0,0x00e4,0x00e9,0x00ea
0490 0001 0003  |    |		.XXX[0x5]
0492 0004 0005  |    |
0494 0006       |    |
0495 ; --------------------------------------------------------------------------------------
0495 ; Debug chain
0495 ; --------------------------------------------------------------------------------------
0495 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0497 00fb 00fd  |    |		.DBGLNO	0x00fb,0x00fd,0x0101,0x0108,0x010c,0x0111,0x0112
049e 0001 0003  |    |		.XXX[0x5]
04a0 0004 0005  |    |
04a2 0006       |    |
04a3 ; --------------------------------------------------------------------------------------
04a3 ; Debug chain
04a3 ; --------------------------------------------------------------------------------------
04a3 0005 000a  |    |		.DBGLEN	0x0005,0x000a
04a5 0123 0125  | # %|		.DBGLNO	0x0123,0x0125,0x0126,0x012a,0x012f,0x0131,0x0138,0x013c,0x0146,0x0149,0x0152,0x0155,0x0158,0x0161,0x0165
04b4 0001 0003  |    |		.XXX[0xa]
04b6 0004 0005  |    |
04b8 0006 0007  |    |
04ba 0008 0009  |    |
04bc 000a 000b  |    |
04be ; --------------------------------------------------------------------------------------
04be ; Debug chain
04be ; --------------------------------------------------------------------------------------
04be 0001 0003  |    |		.DBGLEN	0x0001,0x0003
04c0 0173 0177  | s w|		.DBGLNO	0x0173,0x0177,0x017a,0x017d
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug chain
04c4 ; --------------------------------------------------------------------------------------
04c4 0006 0016  |    |		.DBGLEN	0x0006,0x0016
04c6 0193 01a0  |    |		.DBGLNO	0x0193,0x01a0,0x01a3,0x01a7,0x01aa,0x01ac,0x01ae,0x01af,0x01b3,0x01b9,0x01bd,0x01c2,0x01c5,0x01c7,0x01ca,0x01ce,0x01db,0x01e2,0x01e9,0x01ed,0x01f4,0x0201,0x020d,0x021a,0x021f,0x022c,0x0231,0x023e
04e2 0002 0003  |    |		.XXX[0x1c]
04e4 0004 0005  |    |
04e6 0006 0007  |    |
04e8 0001 0002  |    |
04ea 0003 0005  |    |
04ec 0006 0007  |    |
04ee 0008 0009  |    |
04f0 000a 000b  |    |
04f2 000c 000d  |    |
04f4 000e 000f  |    |
04f6 0010 0011  |    |
04f8 0012 0013  |    |
04fa 0014 0015  |    |
04fc 0016 0017  |    |
04fe ; --------------------------------------------------------------------------------------
04fe ; Debug chain
04fe ; --------------------------------------------------------------------------------------
04fe 0004 000a  |    |		.DBGLEN	0x0004,0x000a
0500 024b 024d  | K M|		.DBGLNO	0x024b,0x024d,0x024e,0x0253,0x0255,0x0257,0x0258,0x025f,0x0263,0x026d,0x0276,0x0279,0x027b,0x0282
050e 0001 0002  |    |		.XXX[0xa]
0510 0003 0005  |    |
0512 0006 0007  |    |
0514 0008 0009  |    |
0516 000a 000b  |    |
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug chain
0518 ; --------------------------------------------------------------------------------------
0518 0003 0008  |    |		.DBGLEN	0x0003,0x0008
051a 0293 0295  |    |		.DBGLNO	0x0293,0x0295,0x0297,0x029b,0x029e,0x02a5,0x02a9,0x02b6,0x02b9,0x02c3,0x02c9
0525 0001 0002  |    |		.XXX[0x8]
0527 0004 0005  |    |
0529 0006 0007  |    |
052b 0008 0009  |    |
052d ; --------------------------------------------------------------------------------------
052d ; Debug chain
052d ; --------------------------------------------------------------------------------------
052d 0004 0008  |    |		.DBGLEN	0x0004,0x0008
052f 02d3 02d5  |    |		.DBGLNO	0x02d3,0x02d5,0x02d7,0x02d9,0x02dd,0x02e0,0x02e6,0x02e9,0x02f0,0x02f4,0x0300,0x0301
053b 0001 0002  |    |		.XXX[0x8]
053d 0003 0004  |    |
053f 0006 0007  |    |
0541 0008 0009  |    |
0543 ; --------------------------------------------------------------------------------------
0543 ; Debug chain
0543 ; --------------------------------------------------------------------------------------
0543 0005 0008  |    |		.DBGLEN	0x0005,0x0008
0545 030b 030d  |    |		.DBGLNO	0x030b,0x030d,0x030f,0x0311,0x0313,0x0315,0x031b,0x031e,0x0325,0x0329,0x032e,0x0331,0x0335
0552 0001 0002  |    |		.XXX[0x8]
0554 0003 0005  |    |
0556 0006 0007  |    |
0558 0008 0009  |    |
055a 0000 0000  |    |		.BLANK	0000[0xa6]