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

⟦6319154a6⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04e0       |    |		.CONST	0x04e0								; 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 0033       | 3  |		.CONST	0x0033								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b 4800       |H   |		Short_Literal	0x0
001c 0093 004b  |   K|		push_full_address	INIT_0048
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 038e       |    |		Declare_Type	Package,Defined
0020 0387       |    |		Declare_Variable	Package
0021 e001       |    |		Load	0x0,0x1
0022 e002       |    |		Load	0x0,0x2
0023 e003       |    |		Load	0x0,0x3
0024 e004       |    |		Load	0x0,0x4
0025 e005       |    |		Load	0x0,0x5
0026 e006       |    |		Load	0x0,0x6
0027 e007       |    |		Load	0x0,0x7
0028 e008       |    |		Load	0x0,0x8
0029 e009       |    |		Load	0x0,0x9
002a e00a       |    |		Load	0x0,0xa
002b e00b       |    |		Load	0x0,0xb
002c e00c       |    |		Load	0x0,0xc
002d e00d       |    |		Load	0x0,0xd
002e 480d       |H   |		Short_Literal	0xd
002f e402       |    |		Load	0x2,0x2
0030 020e       |    |		Execute	Module,Augment_Imports
0031 00d8       |    |		Load_Top	At_Offset_0
0032 020f       |    |		Execute	Module,Activate
0033			BODY_0018:
0033 4800       |H   |		Short_Literal	0x0
0034 e001       |    |		Load	0x0,0x1
0035 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0036 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0037 480b       |H   |		Short_Literal	0xb
0038 e001       |    |		Load	0x0,0x1
0039 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
003a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
003b e001       |    |		Load	0x0,0x1
003c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
003d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
003e 4804       |H   |		Short_Literal	0x4
003f e001       |    |		Load	0x0,0x1
0040 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0041 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0042 00d8       |    |		Load_Top	At_Offset_0
0043 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0044 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0045 0000 0000  |    |		.XXX[0x3]
0047 0000       |    |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 01d4       |    |		.CONST	0x01d4								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 002a       | *  |		.CONST	0x002a								; Number of locals
004b			INIT_0048:
004b 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
004d 00bf       |    |		Action	Accept_Activation
004e 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call
0050 e001       |    |		Load	0x0,0x1
0051 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0052 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0053 00c6       |    |		Action	Check_Subprogram_Elaborated
0054 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0055 e002       |    |		Load	0x0,0x2
0056 e003       |    |		Load	0x0,0x3
0057 4800       |H   |		Short_Literal	0x0
0058 0007       |    |		Action	Break_Optional
0059 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call
005b 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call
005d 029d 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call
005f e001       |    |		Load	0x0,0x1
0060 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0061 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0062 00c6       |    |		Action	Check_Subprogram_Elaborated
0063 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0064 e004       |    |		Load	0x0,0x4
0065 e005       |    |		Load	0x0,0x5
0066 4800       |H   |		Short_Literal	0x0
0067 0007       |    |		Action	Break_Optional
0068 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call
006a 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
006c 029d 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call
006e e001       |    |		Load	0x0,0x1
006f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0070 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0071 00c6       |    |		Action	Check_Subprogram_Elaborated
0072 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0073 e006       |    |		Load	0x0,0x6
0074 e007       |    |		Load	0x0,0x7
0075 4800       |H   |		Short_Literal	0x0
0076 0007       |    |		Action	Break_Optional
0077 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
0079 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
007b 029d 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call
007d e001       |    |		Load	0x0,0x1
007e 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
007f 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0080 00c6       |    |		Action	Check_Subprogram_Elaborated
0081 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0082 e008       |    |		Load	0x0,0x8
0083 e009       |    |		Load	0x0,0x9
0084 4800       |H   |		Short_Literal	0x0
0085 0007       |    |		Action	Break_Optional
0086 029d 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call
0088 029d 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call
008a e00a       |    |		Load	0x0,0xa
008b e00b       |    |		Load	0x0,0xb
008c 0092 036c  |   l|		Action	Push_String_Extended,0x36c					; "BricAndBox"
008e e001       |    |		Load	0x0,0x1
008f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0090 01c7       |    |		Execute	Vector,Convert
0091 4801       |H   |		Short_Literal	0x1
0092 0092 036d  |   m|		Action	Push_String_Extended,0x36d					; "saisir         "
0094 e001       |    |		Load	0x0,0x1
0095 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0096 01c7       |    |		Execute	Vector,Convert
0097 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0098 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0099 0092 036e  |   n|		Action	Push_String_Extended,0x36e					; "tenir          "
009b e001       |    |		Load	0x0,0x1
009c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
009d 01c7       |    |		Execute	Vector,Convert
009e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
009f 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a0 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; "caser          "
00a2 e001       |    |		Load	0x0,0x1
00a3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00a4 01c7       |    |		Execute	Vector,Convert
00a5 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a6 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a7 0092 0370  |   p|		Action	Push_String_Extended,0x370					; "arreter        "
00a9 e001       |    |		Load	0x0,0x1
00aa 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00ab 01c7       |    |		Execute	Vector,Convert
00ac 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ad 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00ae 0092 0371  |   q|		Action	Push_String_Extended,0x371					; "Rule number  05"
00b0 e001       |    |		Load	0x0,0x1
00b1 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00b2 01c7       |    |		Execute	Vector,Convert
00b3 e001       |    |		Load	0x0,0x1
00b4 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00b5 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00b6 e001       |    |		Load	0x0,0x1
00b7 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00b8 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00b9 0092 0372  |   r|		Action	Push_String_Extended,0x372					; "Rule number  06"
00bb e001       |    |		Load	0x0,0x1
00bc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00bd 01c7       |    |		Execute	Vector,Convert
00be e001       |    |		Load	0x0,0x1
00bf 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00c0 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00c1 e001       |    |		Load	0x0,0x1
00c2 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00c3 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00c4 0092 0373  |   s|		Action	Push_String_Extended,0x373					; "Rule number  07"
00c6 e001       |    |		Load	0x0,0x1
00c7 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00c8 01c7       |    |		Execute	Vector,Convert
00c9 e001       |    |		Load	0x0,0x1
00ca 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00cb 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00cc e001       |    |		Load	0x0,0x1
00cd 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00ce 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00cf 0092 0374  |   t|		Action	Push_String_Extended,0x374					; "Rule number  08"
00d1 e001       |    |		Load	0x0,0x1
00d2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d3 01c7       |    |		Execute	Vector,Convert
00d4 e001       |    |		Load	0x0,0x1
00d5 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00d6 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00d7 e001       |    |		Load	0x0,0x1
00d8 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00d9 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00da 0092 0375  |   u|		Action	Push_String_Extended,0x375					; "Rule number  09"
00dc e001       |    |		Load	0x0,0x1
00dd 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00de 01c7       |    |		Execute	Vector,Convert
00df e001       |    |		Load	0x0,0x1
00e0 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00e1 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00e2 e001       |    |		Load	0x0,0x1
00e3 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00e4 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00e5 0092 0376  |   v|		Action	Push_String_Extended,0x376					; "Rule number  10"
00e7 e001       |    |		Load	0x0,0x1
00e8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00e9 01c7       |    |		Execute	Vector,Convert
00ea e001       |    |		Load	0x0,0x1
00eb 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00ec 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00ed e001       |    |		Load	0x0,0x1
00ee 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00ef 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00f0 0092 0377  |   w|		Action	Push_String_Extended,0x377					; "Rule number  11"
00f2 e001       |    |		Load	0x0,0x1
00f3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00f4 01c7       |    |		Execute	Vector,Convert
00f5 e001       |    |		Load	0x0,0x1
00f6 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00f7 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00f8 e001       |    |		Load	0x0,0x1
00f9 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00fa 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00fb 0092 0378  |   x|		Action	Push_String_Extended,0x378					; "Rule number  12"
00fd e001       |    |		Load	0x0,0x1
00fe 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00ff 01c7       |    |		Execute	Vector,Convert
0100 e001       |    |		Load	0x0,0x1
0101 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0102 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0103 e001       |    |		Load	0x0,0x1
0104 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0105 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0106 0092 0379  |   y|		Action	Push_String_Extended,0x379					; "Rule number  13"
0108 e001       |    |		Load	0x0,0x1
0109 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
010a 01c7       |    |		Execute	Vector,Convert
010b e001       |    |		Load	0x0,0x1
010c 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
010d 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
010e e001       |    |		Load	0x0,0x1
010f 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0110 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0111 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; "Rule number  14"
0113 e001       |    |		Load	0x0,0x1
0114 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0115 01c7       |    |		Execute	Vector,Convert
0116 e001       |    |		Load	0x0,0x1
0117 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0118 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0119 e001       |    |		Load	0x0,0x1
011a 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
011b 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
011c 0092 037b  |   {|		Action	Push_String_Extended,0x37b					; "Rule number  15"
011e e001       |    |		Load	0x0,0x1
011f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0120 01c7       |    |		Execute	Vector,Convert
0121 e001       |    |		Load	0x0,0x1
0122 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0123 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0124 e001       |    |		Load	0x0,0x1
0125 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0126 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0127 0092 037c  |   ||		Action	Push_String_Extended,0x37c					; "Rule number  16"
0129 e001       |    |		Load	0x0,0x1
012a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
012b 01c7       |    |		Execute	Vector,Convert
012c e001       |    |		Load	0x0,0x1
012d 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
012e 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
012f e001       |    |		Load	0x0,0x1
0130 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0131 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0132 0092 037d  |   }|		Action	Push_String_Extended,0x37d					; "Rule number  17"
0134 e001       |    |		Load	0x0,0x1
0135 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0136 01c7       |    |		Execute	Vector,Convert
0137 e001       |    |		Load	0x0,0x1
0138 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0139 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
013a e001       |    |		Load	0x0,0x1
013b 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
013c 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
013d 0092 037e  |   ~|		Action	Push_String_Extended,0x37e					; "Rule number  18"
013f e001       |    |		Load	0x0,0x1
0140 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0141 01c7       |    |		Execute	Vector,Convert
0142 e001       |    |		Load	0x0,0x1
0143 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0144 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0145 e001       |    |		Load	0x0,0x1
0146 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0147 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0148 0092 037f  |    |		Action	Push_String_Extended,0x37f					; "Rule number  19"
014a e001       |    |		Load	0x0,0x1
014b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
014c 01c7       |    |		Execute	Vector,Convert
014d e001       |    |		Load	0x0,0x1
014e 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
014f 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0150 e001       |    |		Load	0x0,0x1
0151 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0152 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0153 0092 0380  |    |		Action	Push_String_Extended,0x380					; "Rule number  20"
0155 e001       |    |		Load	0x0,0x1
0156 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0157 01c7       |    |		Execute	Vector,Convert
0158 e001       |    |		Load	0x0,0x1
0159 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
015a 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
015b e001       |    |		Load	0x0,0x1
015c 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
015d 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
015e 0092 0381  |    |		Action	Push_String_Extended,0x381					; "Rule number  21"
0160 e001       |    |		Load	0x0,0x1
0161 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0162 01c7       |    |		Execute	Vector,Convert
0163 e001       |    |		Load	0x0,0x1
0164 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0165 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0166 e001       |    |		Load	0x0,0x1
0167 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0168 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0169 0092 0382  |    |		Action	Push_String_Extended,0x382					; "Rule number  22"
016b e001       |    |		Load	0x0,0x1
016c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
016d 01c7       |    |		Execute	Vector,Convert
016e e001       |    |		Load	0x0,0x1
016f 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0170 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0171 e001       |    |		Load	0x0,0x1
0172 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0173 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0174 0092 0383  |    |		Action	Push_String_Extended,0x383					; "Rule number  23"
0176 e001       |    |		Load	0x0,0x1
0177 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0178 01c7       |    |		Execute	Vector,Convert
0179 e001       |    |		Load	0x0,0x1
017a 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
017b 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
017c e001       |    |		Load	0x0,0x1
017d 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
017e 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
017f 0092 0384  |    |		Action	Push_String_Extended,0x384					; "Rule number  24"
0181 e001       |    |		Load	0x0,0x1
0182 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0183 01c7       |    |		Execute	Vector,Convert
0184 e001       |    |		Load	0x0,0x1
0185 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0186 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0187 e001       |    |		Load	0x0,0x1
0188 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0189 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
018a 0092 0385  |    |		Action	Push_String_Extended,0x385					; "Rule number  25"
018c e001       |    |		Load	0x0,0x1
018d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
018e 01c7       |    |		Execute	Vector,Convert
018f e001       |    |		Load	0x0,0x1
0190 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0191 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0192 e001       |    |		Load	0x0,0x1
0193 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0194 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0195 0092 0386  |    |		Action	Push_String_Extended,0x386					; "Rule number  26"
0197 e001       |    |		Load	0x0,0x1
0198 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0199 01c7       |    |		Execute	Vector,Convert
019a e001       |    |		Load	0x0,0x1
019b 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
019c 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
019d e001       |    |		Load	0x0,0x1
019e 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
019f 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01a0 0092 0387  |    |		Action	Push_String_Extended,0x387					; "Rule number  27"
01a2 e001       |    |		Load	0x0,0x1
01a3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01a4 01c7       |    |		Execute	Vector,Convert
01a5 e001       |    |		Load	0x0,0x1
01a6 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01a7 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01a8 e001       |    |		Load	0x0,0x1
01a9 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01aa 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01ab 0092 0388  |    |		Action	Push_String_Extended,0x388					; "Rule number  28"
01ad e001       |    |		Load	0x0,0x1
01ae 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01af 01c7       |    |		Execute	Vector,Convert
01b0 e001       |    |		Load	0x0,0x1
01b1 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01b2 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01b3 e001       |    |		Load	0x0,0x1
01b4 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01b5 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01b6 0092 0389  |    |		Action	Push_String_Extended,0x389					; "Rule number  29"
01b8 e001       |    |		Load	0x0,0x1
01b9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01ba 01c7       |    |		Execute	Vector,Convert
01bb e001       |    |		Load	0x0,0x1
01bc 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01bd 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01be e001       |    |		Load	0x0,0x1
01bf 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01c0 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01c1 0092 038a  |    |		Action	Push_String_Extended,0x38a					; "Rule number  30"
01c3 e001       |    |		Load	0x0,0x1
01c4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01c5 01c7       |    |		Execute	Vector,Convert
01c6 e001       |    |		Load	0x0,0x1
01c7 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01c8 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01c9 e001       |    |		Load	0x0,0x1
01ca 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01cb 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01cc 4804       |H   |		Short_Literal	0x4
01cd e001       |    |		Load	0x0,0x1
01ce 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
01cf 0387       |    |		Declare_Variable	Package
01d0 00d8       |    |		Load_Top	At_Offset_0
01d1 020f       |    |		Execute	Module,Activate
01d2 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
01d3 00c7       |    |		Action	Elaborate_Subprogram
01d4			BODY_0048:
01d4 00bc       |    |		Action	Signal_Activated
01d5 00bb       |    |		Action	Signal_Completion
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dc       |    |		.CONST	0x01dc								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0002       |    |		.CONST	0x0002								; Number of locals
01db			INIT_01d8:
01db 00e1       |    |		Load_Encached	Boolean_Cache
01dc			BODY_01d8:
01dc 0092 038b  |    |		Action	Push_String_Extended,0x38b					; "-------------------------------------------------"
01de e001       |    |		Load	0x0,0x1
01df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01e0 e00c       |    |		Load	0x0,0xc
01e1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01e2 e00d       |    |		Load	0x0,0xd
01e3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01e4 4800       |H   |		Short_Literal	0x0
01e5 e22a       | *  |		Load	0x1,0x2a
01e6 186c       | l  |		Execute	Package,Field_Execute,Field_Number 0x6c
01e7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01e8 0092 038b  |    |		Action	Push_String_Extended,0x38b					; "-------------------------------------------------"
01ea e001       |    |		Load	0x0,0x1
01eb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01ec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ed 0000 0000  |    |		.XXX[0x3]
01ef 0000       |    |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4800       |H   |		Short_Literal	0x0
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 e00c       |    |		Load	0x0,0xc
01f6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01f7 6811       |h   |		Jump_Zero	0x209
01f8 00da       |    |		Load_Top	At_Offset_2
01f9 e00c       |    |		Load	0x0,0xc
01fa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01fb 700b       |p   |		Jump_Nonzero	0x207
01fc 4800       |H   |		Short_Literal	0x0
01fd e5fe       |    |		Load	0x2,-0x2
01fe e00d       |    |		Load	0x0,0xd
01ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0200 6804       |h   |		Jump_Zero	0x205
0201 00db       |    |		Load_Top	At_Offset_3
0202 e00d       |    |		Load	0x0,0xd
0203 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0204 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0205 4800       |H   |		Short_Literal	0x0
0206 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0207 4800       |H   |		Short_Literal	0x0
0208 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0209 4800       |H   |		Short_Literal	0x0
020a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020b 0000 0000  |    |		.BLANK	0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4801       |H   |		Short_Literal	0x1
0214 e00d       |    |		Load	0x0,0xd
0215 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0216 e00c       |    |		Load	0x0,0xc
0217 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0218 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0219 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
021a e001       |    |		Load	0x0,0x1
021b 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
021c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021d 00ca       |    |		Action	Exit_Nullary_Function
021e 0000 0000  |    |		.XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022d       | -  |		.CONST	0x022d								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0003       |    |		.CONST	0x0003								; Number of locals
0223			INIT_0220:
0223 e001       |    |		Load	0x0,0x1
0224 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0225 02c7       |    |		Declare_Variable	Any
0226 00d8       |    |		Load_Top	At_Offset_0
0227 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0228 e001       |    |		Load	0x0,0x1
0229 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022a 02c7       |    |		Declare_Variable	Any
022b 00d8       |    |		Load_Top	At_Offset_0
022c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022d			BODY_0220:
022d e5ff       |    |		Load	0x2,-0x1
022e e001       |    |		Load	0x0,0x1
022f 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0230 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0231 c402       |    |		Store	0x2,0x2
0232 e5ff       |    |		Load	0x2,-0x1
0233 e001       |    |		Load	0x0,0x1
0234 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0235 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0236 c403       |    |		Store	0x2,0x3
0237 4801       |H   |		Short_Literal	0x1
0238 00d9       |    |		Load_Top	At_Offset_1
0239 e00d       |    |		Load	0x0,0xd
023a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
023b 4801       |H   |		Short_Literal	0x1
023c 00da       |    |		Load_Top	At_Offset_2
023d e00c       |    |		Load	0x0,0xc
023e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
023f 0092 038c  |    |		Action	Push_String_Extended,0x38c					; "RegleSaisir  : "
0241 00da       |    |		Load_Top	At_Offset_2
0242 e00c       |    |		Load	0x0,0xc
0243 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0244 01cc       |    |		Execute	Vector,Catenate
0245 0092 038d  |    |		Action	Push_String_Extended,0x38d					; " prend brique ("
0247 01cc       |    |		Execute	Vector,Catenate
0248 00d9       |    |		Load_Top	At_Offset_1
0249 e00d       |    |		Load	0x0,0xd
024a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
024b 00e0       |    |		Load_Encached	Standard_Cache
024c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
024d 01cc       |    |		Execute	Vector,Catenate
024e 0092 038e  |    |		Action	Push_String_Extended,0x38e					; " / "
0250 01cc       |    |		Execute	Vector,Catenate
0251 00d9       |    |		Load_Top	At_Offset_1
0252 e00d       |    |		Load	0x0,0xd
0253 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0254 e00d       |    |		Load	0x0,0xd
0255 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0256 011c       |    |		Execute	Any,Convert_Unchecked
0257 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0258 01cc       |    |		Execute	Vector,Catenate
0259 0092 038f  |    |		Action	Push_String_Extended,0x38f					; ")"
025b 01cc       |    |		Execute	Vector,Catenate
025c e001       |    |		Load	0x0,0x1
025d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
025e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
025f 0000       |    |		.XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 4800       |H   |		Short_Literal	0x0
0264 00db       |    |		Load_Top	At_Offset_3
0265 e00c       |    |		Load	0x0,0xc
0266 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0267 680b       |h   |		Jump_Zero	0x273
0268 00da       |    |		Load_Top	At_Offset_2
0269 e00c       |    |		Load	0x0,0xc
026a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
026b 6805       |h   |		Jump_Zero	0x271
026c 4801       |H   |		Short_Literal	0x1
026d e5fe       |    |		Load	0x2,-0x2
026e e00d       |    |		Load	0x0,0xd
026f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0270 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0271 4800       |H   |		Short_Literal	0x0
0272 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0273 4800       |H   |		Short_Literal	0x0
0274 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 4801       |H   |		Short_Literal	0x1
027c e00d       |    |		Load	0x0,0xd
027d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
027e e00c       |    |		Load	0x0,0xc
027f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0280 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0281 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0282 e001       |    |		Load	0x0,0x1
0283 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0284 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0285 00ca       |    |		Action	Exit_Nullary_Function
0286 0000 0000  |    |		.XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0295       |    |		.CONST	0x0295								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0003       |    |		.CONST	0x0003								; Number of locals
028b			INIT_0288:
028b e001       |    |		Load	0x0,0x1
028c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028d 02c7       |    |		Declare_Variable	Any
028e 00d8       |    |		Load_Top	At_Offset_0
028f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0290 e001       |    |		Load	0x0,0x1
0291 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0292 02c7       |    |		Declare_Variable	Any
0293 00d8       |    |		Load_Top	At_Offset_0
0294 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0295			BODY_0288:
0295 e5ff       |    |		Load	0x2,-0x1
0296 e001       |    |		Load	0x0,0x1
0297 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0298 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0299 c402       |    |		Store	0x2,0x2
029a e5ff       |    |		Load	0x2,-0x1
029b e001       |    |		Load	0x0,0x1
029c 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
029d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
029e c403       |    |		Store	0x2,0x3
029f 4801       |H   |		Short_Literal	0x1
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 e00c       |    |		Load	0x0,0xc
02a2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a3 0092 0390  |    |		Action	Push_String_Extended,0x390					; "RegleTenir   : "
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 e00c       |    |		Load	0x0,0xc
02a7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a8 01cc       |    |		Execute	Vector,Catenate
02a9 0092 0391  |    |		Action	Push_String_Extended,0x391					; " tient brique ("
02ab 01cc       |    |		Execute	Vector,Catenate
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad e00d       |    |		Load	0x0,0xd
02ae 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02af 00e0       |    |		Load_Encached	Standard_Cache
02b0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02b1 01cc       |    |		Execute	Vector,Catenate
02b2 0092 038e  |    |		Action	Push_String_Extended,0x38e					; " / "
02b4 01cc       |    |		Execute	Vector,Catenate
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 e00d       |    |		Load	0x0,0xd
02b7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02b8 e00d       |    |		Load	0x0,0xd
02b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ba 011c       |    |		Execute	Any,Convert_Unchecked
02bb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02bc 01cc       |    |		Execute	Vector,Catenate
02bd 0092 038f  |    |		Action	Push_String_Extended,0x38f					; ")"
02bf 01cc       |    |		Execute	Vector,Catenate
02c0 e001       |    |		Load	0x0,0x1
02c1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c3 0000 0000  |    |		.BLANK	0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4801       |H   |		Short_Literal	0x1
02cc 00db       |    |		Load_Top	At_Offset_3
02cd e00c       |    |		Load	0x0,0xc
02ce 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02cf 6805       |h   |		Jump_Zero	0x2d5
02d0 4801       |H   |		Short_Literal	0x1
02d1 e5fe       |    |		Load	0x2,-0x2
02d2 e00d       |    |		Load	0x0,0xd
02d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02d5 4800       |H   |		Short_Literal	0x0
02d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02d7 0000       |    |		.XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 4801       |H   |		Short_Literal	0x1
02dc e00d       |    |		Load	0x0,0xd
02dd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02de e00c       |    |		Load	0x0,0xc
02df 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02e0 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
02e1 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
02e2 e001       |    |		Load	0x0,0x1
02e3 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
02e4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e5 00ca       |    |		Action	Exit_Nullary_Function
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f5       |    |		.CONST	0x02f5								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0003       |    |		.CONST	0x0003								; Number of locals
02eb			INIT_02e8:
02eb e001       |    |		Load	0x0,0x1
02ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ed 02c7       |    |		Declare_Variable	Any
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f0 e001       |    |		Load	0x0,0x1
02f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f2 02c7       |    |		Declare_Variable	Any
02f3 00d8       |    |		Load_Top	At_Offset_0
02f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f5			BODY_02e8:
02f5 e5ff       |    |		Load	0x2,-0x1
02f6 e001       |    |		Load	0x0,0x1
02f7 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
02f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f9 c403       |    |		Store	0x2,0x3
02fa e5ff       |    |		Load	0x2,-0x1
02fb e001       |    |		Load	0x0,0x1
02fc 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
02fd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02fe c402       |    |		Store	0x2,0x2
02ff 4800       |H   |		Short_Literal	0x0
0300 00d9       |    |		Load_Top	At_Offset_1
0301 e00c       |    |		Load	0x0,0xc
0302 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0303 e00c       |    |		Load	0x0,0xc
0304 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0305 00d9       |    |		Load_Top	At_Offset_1
0306 e00c       |    |		Load	0x0,0xc
0307 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0308 4802       |H   |		Short_Literal	0x2
0309 00da       |    |		Load_Top	At_Offset_2
030a e00d       |    |		Load	0x0,0xd
030b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
030c 00d8       |    |		Load_Top	At_Offset_0
030d e00c       |    |		Load	0x0,0xc
030e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
030f 00da       |    |		Load_Top	At_Offset_2
0310 e00d       |    |		Load	0x0,0xd
0311 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0312 0092 0392  |    |		Action	Push_String_Extended,0x392					; "RegleCaser   : "
0314 00d9       |    |		Load_Top	At_Offset_1
0315 e00c       |    |		Load	0x0,0xc
0316 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0317 01cc       |    |		Execute	Vector,Catenate
0318 0092 0393  |    |		Action	Push_String_Extended,0x393					; " depose brique ("
031a 01cc       |    |		Execute	Vector,Catenate
031b 00da       |    |		Load_Top	At_Offset_2
031c e00d       |    |		Load	0x0,0xd
031d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
031e 00e0       |    |		Load_Encached	Standard_Cache
031f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0320 01cc       |    |		Execute	Vector,Catenate
0321 0092 038e  |    |		Action	Push_String_Extended,0x38e					; " / "
0323 01cc       |    |		Execute	Vector,Catenate
0324 00da       |    |		Load_Top	At_Offset_2
0325 e00d       |    |		Load	0x0,0xd
0326 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0327 e00d       |    |		Load	0x0,0xd
0328 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0329 011c       |    |		Execute	Any,Convert_Unchecked
032a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
032b 01cc       |    |		Execute	Vector,Catenate
032c 0092 038f  |    |		Action	Push_String_Extended,0x38f					; ")"
032e 01cc       |    |		Execute	Vector,Catenate
032f 0092 0394  |    |		Action	Push_String_Extended,0x394					; " dans case "
0331 01cc       |    |		Execute	Vector,Catenate
0332 00d9       |    |		Load_Top	At_Offset_1
0333 e00c       |    |		Load	0x0,0xc
0334 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0335 00e0       |    |		Load_Encached	Standard_Cache
0336 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0337 01cc       |    |		Execute	Vector,Catenate
0338 e001       |    |		Load	0x0,0x1
0339 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
033a 0092 0395  |    |		Action	Push_String_Extended,0x395					; " "
033c e001       |    |		Load	0x0,0x1
033d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
033e 4800       |H   |		Short_Literal	0x0
033f 00d9       |    |		Load_Top	At_Offset_1
0340 e00c       |    |		Load	0x0,0xc
0341 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0342 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0343 0000 0000  |    |		.BLANK	0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 4800       |H   |		Short_Literal	0x0
034c 00db       |    |		Load_Top	At_Offset_3
034d e00d       |    |		Load	0x0,0xd
034e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
034f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 4801       |H   |		Short_Literal	0x1
0354 e00c       |    |		Load	0x0,0xc
0355 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0356 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0357 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0358 e001       |    |		Load	0x0,0x1
0359 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
035a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
035b 00ca       |    |		Action	Exit_Nullary_Function
035c 0000 0000  |    |		.BLANK	0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 0092 0396  |    |		Action	Push_String_Extended,0x396					; "RegleArreter : Fin de recherche"
0365 e001       |    |		Load	0x0,0x1
0366 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0367 0092 0395  |    |		Action	Push_String_Extended,0x395					; " "
0369 e001       |    |		Load	0x0,0x1
036a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
036b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036c ; --------------------------------------------------------------------------------------
036c ; STRING TABLE
036c ; --------------------------------------------------------------------------------------
036c 0058       | X  |		.STRTAB	0x0058->0x0398							; "BricAndBox"
036d 0060       | `  |		.STRTAB	0x0060->0x039d							; "saisir         "
036e 006d       | m  |		.STRTAB	0x006d->0x03a4							; "tenir          "
036f 007a       | z  |		.STRTAB	0x007a->0x03ac							; "caser          "
0370 0087       |    |		.STRTAB	0x0087->0x03b3							; "arreter        "
0371 0094       |    |		.STRTAB	0x0094->0x03bb							; "Rule number  05"
0372 00a1       |    |		.STRTAB	0x00a1->0x03c2							; "Rule number  06"
0373 00ae       |    |		.STRTAB	0x00ae->0x03ca							; "Rule number  07"
0374 00bb       |    |		.STRTAB	0x00bb->0x03d1							; "Rule number  08"
0375 00c8       |    |		.STRTAB	0x00c8->0x03d9							; "Rule number  09"
0376 00d5       |    |		.STRTAB	0x00d5->0x03e0							; "Rule number  10"
0377 00e2       |    |		.STRTAB	0x00e2->0x03e8							; "Rule number  11"
0378 00ef       |    |		.STRTAB	0x00ef->0x03ef							; "Rule number  12"
0379 00fc       |    |		.STRTAB	0x00fc->0x03f7							; "Rule number  13"
037a 0109       |    |		.STRTAB	0x0109->0x03fe							; "Rule number  14"
037b 0116       |    |		.STRTAB	0x0116->0x0406							; "Rule number  15"
037c 0123       | #  |		.STRTAB	0x0123->0x040d							; "Rule number  16"
037d 0130       | 0  |		.STRTAB	0x0130->0x0415							; "Rule number  17"
037e 013d       | =  |		.STRTAB	0x013d->0x041c							; "Rule number  18"
037f 014a       | J  |		.STRTAB	0x014a->0x0424							; "Rule number  19"
0380 0157       | W  |		.STRTAB	0x0157->0x042b							; "Rule number  20"
0381 0164       | d  |		.STRTAB	0x0164->0x0433							; "Rule number  21"
0382 0171       | q  |		.STRTAB	0x0171->0x043a							; "Rule number  22"
0383 017e       | ~  |		.STRTAB	0x017e->0x0442							; "Rule number  23"
0384 018b       |    |		.STRTAB	0x018b->0x0449							; "Rule number  24"
0385 0198       |    |		.STRTAB	0x0198->0x0451							; "Rule number  25"
0386 01a5       |    |		.STRTAB	0x01a5->0x0458							; "Rule number  26"
0387 01b2       |    |		.STRTAB	0x01b2->0x0460							; "Rule number  27"
0388 01bf       |    |		.STRTAB	0x01bf->0x0467							; "Rule number  28"
0389 01cc       |    |		.STRTAB	0x01cc->0x046f							; "Rule number  29"
038a 01d9       |    |		.STRTAB	0x01d9->0x0476							; "Rule number  30"
038b 01e6       |    |		.STRTAB	0x01e6->0x047e							; "-------------------------------------------------"
038c 0215       |    |		.STRTAB	0x0215->0x0496							; "RegleSaisir  : "
038d 0222       | "  |		.STRTAB	0x0222->0x049e							; " prend brique ("
038e 022f       | /  |		.STRTAB	0x022f->0x04a5							; " / "
038f 0230       | 0  |		.STRTAB	0x0230->0x04a7							; ")"
0390 022f       | /  |		.STRTAB	0x022f->0x04a7							; "RegleTenir   : "
0391 023c       | <  |		.STRTAB	0x023c->0x04af							; " tient brique ("
0392 0249       | I  |		.STRTAB	0x0249->0x04b6							; "RegleCaser   : "
0393 0256       | V  |		.STRTAB	0x0256->0x04be							; " depose brique ("
0394 0264       | d  |		.STRTAB	0x0264->0x04c6							; " dans case "
0395 026d       | m  |		.STRTAB	0x026d->0x04cb							; " "
0396 026c       | l  |		.STRTAB	0x026c->0x04cc							; "RegleArreter : Fin de recherche"
0397 0289       |    |		.STREND 0x0289->0x04db
0398 4272 6963  |Bric|		.STRTAB_STRINGS
04dc 0000 0000  |    |		.BLANK	0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug Table
04e0 ; --------------------------------------------------------------------------------------
04e0 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x8a14,0x0000,0x0001,0x0011
04e6 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
04ea 001b 052a  |   *|		.DBG4T	0x001b,0x052a,0x8001,0x0000
04ee 004b 0533  | K 3|		.DBG4T	0x004b,0x0533,0x0000,0x0000
04f2 004e 0536  | N 6|		.DBG4T	0x004e,0x0536,0x0000,0x0000
04f6 01db 054a  |   J|		.DBG4T	0x01db,0x054a,0x0001,0x0000
04fa 01f3 0552  |   R|		.DBG4T	0x01f3,0x0552,0x0002,0x0000
04fe 0213 0555  |   U|		.DBG4T	0x0213,0x0555,0x0002,0x0000
0502 0223 0558  | # X|		.DBG4T	0x0223,0x0558,0x0001,0x0000
0506 0263 0560  | c `|		.DBG4T	0x0263,0x0560,0x0002,0x0000
050a 027b 0563  | { c|		.DBG4T	0x027b,0x0563,0x0002,0x0000
050e 028b 0566  |   f|		.DBG4T	0x028b,0x0566,0x0001,0x0000
0512 02cb 056d  |   m|		.DBG4T	0x02cb,0x056d,0x0002,0x0000
0516 02db 0570  |   p|		.DBG4T	0x02db,0x0570,0x0002,0x0000
051a 02eb 0573  |   s|		.DBG4T	0x02eb,0x0573,0x0001,0x0000
051e 034b 057f  | K  |		.DBG4T	0x034b,0x057f,0x0002,0x0000
0522 0353 0582  | S  |		.DBG4T	0x0353,0x0582,0x0002,0x0000
0526 0363 0585  | c  |		.DBG4T	0x0363,0x0585,0x0001,0x0000
052a ; --------------------------------------------------------------------------------------
052a ; Debug chain
052a ; --------------------------------------------------------------------------------------
052a 0002 0005  |    |		.DBGLEN	0x0002,0x0005
052c 001b 0021  |   !|		.DBGLNO	0x001b,0x0021,0x0033,0x0037,0x003b,0x003e,0x0042
0533 ; --------------------------------------------------------------------------------------
0533 ; Debug chain
0533 ; --------------------------------------------------------------------------------------
0533 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0535 004b       | K  |		.DBGLNO	0x004b
0536 ; --------------------------------------------------------------------------------------
0536 ; Debug chain
0536 ; --------------------------------------------------------------------------------------
0536 0012 0000  |    |		.DBGLEN	0x0012,0x0000
0538 004e 0050  | N P|		.DBGLNO	0x004e,0x0050,0x0059,0x005b,0x005d,0x005f,0x0068,0x006a,0x006c,0x006e,0x0077,0x0079,0x007b,0x007d,0x0086,0x0088,0x008a,0x01d2
054a ; --------------------------------------------------------------------------------------
054a ; Debug chain
054a ; --------------------------------------------------------------------------------------
054a 0001 0005  |    |		.DBGLEN	0x0001,0x0005
054c 01db 01dc  |    |		.DBGLNO	0x01db,0x01dc,0x01e0,0x01e2,0x01e4,0x01e8
0552 ; --------------------------------------------------------------------------------------
0552 ; Debug chain
0552 ; --------------------------------------------------------------------------------------
0552 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0554 01f3       |    |		.DBGLNO	0x01f3
0555 ; --------------------------------------------------------------------------------------
0555 ; Debug chain
0555 ; --------------------------------------------------------------------------------------
0555 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0557 0213       |    |		.DBGLNO	0x0213
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug chain
0558 ; --------------------------------------------------------------------------------------
0558 0001 0005  |    |		.DBGLEN	0x0001,0x0005
055a 0223 022d  | # -|		.DBGLNO	0x0223,0x022d,0x0232,0x0237,0x023b,0x023f
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug chain
0560 ; --------------------------------------------------------------------------------------
0560 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0562 0263       | c  |		.DBGLNO	0x0263
0563 ; --------------------------------------------------------------------------------------
0563 ; Debug chain
0563 ; --------------------------------------------------------------------------------------
0563 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0565 027b       | {  |		.DBGLNO	0x027b
0566 ; --------------------------------------------------------------------------------------
0566 ; Debug chain
0566 ; --------------------------------------------------------------------------------------
0566 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0568 028b 0295  |    |		.DBGLNO	0x028b,0x0295,0x029a,0x029f,0x02a3
056d ; --------------------------------------------------------------------------------------
056d ; Debug chain
056d ; --------------------------------------------------------------------------------------
056d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
056f 02cb       |    |		.DBGLNO	0x02cb
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug chain
0570 ; --------------------------------------------------------------------------------------
0570 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0572 02db       |    |		.DBGLNO	0x02db
0573 ; --------------------------------------------------------------------------------------
0573 ; Debug chain
0573 ; --------------------------------------------------------------------------------------
0573 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0575 02eb 02f5  |    |		.DBGLNO	0x02eb,0x02f5,0x02fa,0x02ff,0x0303,0x0308,0x030c,0x0312,0x033a,0x033e
057f ; --------------------------------------------------------------------------------------
057f ; Debug chain
057f ; --------------------------------------------------------------------------------------
057f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0581 034b       | K  |		.DBGLNO	0x034b
0582 ; --------------------------------------------------------------------------------------
0582 ; Debug chain
0582 ; --------------------------------------------------------------------------------------
0582 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0584 0353       | S  |		.DBGLNO	0x0353
0585 ; --------------------------------------------------------------------------------------
0585 ; Debug chain
0585 ; --------------------------------------------------------------------------------------
0585 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0587 0363 0367  | c g|		.DBGLNO	0x0363,0x0367
0589 0000 0000  |    |		.BLANK	0000[0x77]