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

⟦8d11fd21a⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_27d38cd

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 05c0       |    |		.CONST	0x05c0								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01bb       |    |		.CONST	0x01bb								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0023       | #  |		.CONST	0x0023								; Number of locals
000b			INIT_0008:
000b 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
000d 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 00e3       |    |		Load_Encached	Natural_Cache
0011 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0012 4800       |H   |		Short_Literal	0x0
0013 4809       |H   |		Short_Literal	0x9
0014 00e3       |    |		Load_Encached	Natural_Cache
0015 03f8       |    |		Declare_Type	Discrete,Constrained
0016 4800       |H   |		Short_Literal	0x0
0017 4809       |H   |		Short_Literal	0x9
0018 00da       |    |		Load_Top	At_Offset_2
0019 02a0       |    |		Declare_Subprogram	Null_Subprogram
001a 4801       |H   |		Short_Literal	0x1
001b 035d       | ]  |		Declare_Type	Array,Defined
001c 00d8       |    |		Load_Top	At_Offset_0
001d 00da       |    |		Load_Top	At_Offset_2
001e 00db       |    |		Load_Top	At_Offset_3
001f 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0021 4803       |H   |		Short_Literal	0x3
0022 032d       | -  |		Declare_Type	Record,Defined
0023 4801       |H   |		Short_Literal	0x1
0024 480a       |H   |		Short_Literal	0xa
0025 00e9       |    |		Load_Encached	String_Cache
0026 035b       | [  |		Declare_Type	Array,Constrained
0027 4801       |H   |		Short_Literal	0x1
0028 4806       |H   |		Short_Literal	0x6
0029 00e9       |    |		Load_Encached	String_Cache
002a 035b       | [  |		Declare_Type	Array,Constrained
002b 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
002d 4802       |H   |		Short_Literal	0x2
002e 032d       | -  |		Declare_Type	Record,Defined
002f 00db       |    |		Load_Top	At_Offset_3
0030 0609       |    |		Execute_Immediate	Set_Value_Unchecked,0x9
0031 e210       |    |		Load	0x1,0x10
0032 0609       |    |		Execute_Immediate	Set_Value_Unchecked,0x9
0033 00e1       |    |		Load_Encached	Boolean_Cache
0034 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0035 e001       |    |		Load	0x0,0x1
0036 e002       |    |		Load	0x0,0x2
0037 e212       |    |		Load	0x1,0x12
0038 0092 0492  |    |		Action	Push_String_Extended,0x492					; "QUEEN     "
003a e003       |    |		Load	0x0,0x3
003b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003c 01c7       |    |		Execute	Vector,Convert
003d 61c6       |a   |		Indirect_Literal	Discrete,0x204,{0x00000000, 0x00000bb8}
003e e003       |    |		Load	0x0,0x3
003f 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0040 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0041 e003       |    |		Load	0x0,0x3
0042 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0043 0387       |    |		Declare_Variable	Package
0044 00d8       |    |		Load_Top	At_Offset_0
0045 020f       |    |		Execute	Module,Activate
0046 e004       |    |		Load	0x0,0x4
0047 e005       |    |		Load	0x0,0x5
0048 e213       |    |		Load	0x1,0x13
0049 0092 0493  |    |		Action	Push_String_Extended,0x493					; "CHESSBOARD"
004b e003       |    |		Load	0x0,0x3
004c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004d 01c7       |    |		Execute	Vector,Convert
004e 48c8       |H   |		Short_Literal	0xc8
004f e003       |    |		Load	0x0,0x3
0050 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0051 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0052 e003       |    |		Load	0x0,0x3
0053 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0054 0387       |    |		Declare_Variable	Package
0055 00d8       |    |		Load_Top	At_Offset_0
0056 020f       |    |		Execute	Module,Activate
0057 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
005b 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
005d 029d 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call
005f 029d 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call
0061 029d 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call
0063 029d 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call
0065 029d 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call
0067 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
0069 029d 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call
006b 029d 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call
006d e006       |    |		Load	0x0,0x6
006e e007       |    |		Load	0x0,0x7
006f 0092 0494  |    |		Action	Push_String_Extended,0x494					; "the Queens"
0071 e003       |    |		Load	0x0,0x3
0072 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0073 01c7       |    |		Execute	Vector,Convert
0074 4800       |H   |		Short_Literal	0x0
0075 0092 0495  |    |		Action	Push_String_Extended,0x495					; "last level down"
0077 e003       |    |		Load	0x0,0x3
0078 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0079 01c7       |    |		Execute	Vector,Convert
007a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007b 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
007c 0092 0496  |    |		Action	Push_String_Extended,0x496					; "last level righ"
007e e003       |    |		Load	0x0,0x3
007f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0080 01c7       |    |		Execute	Vector,Convert
0081 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0082 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0083 0092 0497  |    |		Action	Push_String_Extended,0x497					; "go to right    "
0085 e003       |    |		Load	0x0,0x3
0086 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0087 01c7       |    |		Execute	Vector,Convert
0088 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0089 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008a 0092 0498  |    |		Action	Push_String_Extended,0x498					; "Rule number  04"
008c e003       |    |		Load	0x0,0x3
008d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
008e 01c7       |    |		Execute	Vector,Convert
008f e003       |    |		Load	0x0,0x3
0090 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0091 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0092 e003       |    |		Load	0x0,0x3
0093 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0094 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0095 0092 0499  |    |		Action	Push_String_Extended,0x499					; "Rule number  05"
0097 e003       |    |		Load	0x0,0x3
0098 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0099 01c7       |    |		Execute	Vector,Convert
009a e003       |    |		Load	0x0,0x3
009b 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
009c 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
009d e003       |    |		Load	0x0,0x3
009e 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
009f 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00a0 0092 049a  |    |		Action	Push_String_Extended,0x49a					; "Rule number  06"
00a2 e003       |    |		Load	0x0,0x3
00a3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00a4 01c7       |    |		Execute	Vector,Convert
00a5 e003       |    |		Load	0x0,0x3
00a6 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00a7 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00a8 e003       |    |		Load	0x0,0x3
00a9 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00aa 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00ab 0092 049b  |    |		Action	Push_String_Extended,0x49b					; "Rule number  07"
00ad e003       |    |		Load	0x0,0x3
00ae 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00af 01c7       |    |		Execute	Vector,Convert
00b0 e003       |    |		Load	0x0,0x3
00b1 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00b2 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00b3 e003       |    |		Load	0x0,0x3
00b4 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00b5 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00b6 0092 049c  |    |		Action	Push_String_Extended,0x49c					; "Rule number  08"
00b8 e003       |    |		Load	0x0,0x3
00b9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00ba 01c7       |    |		Execute	Vector,Convert
00bb e003       |    |		Load	0x0,0x3
00bc 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00bd 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00be e003       |    |		Load	0x0,0x3
00bf 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00c0 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00c1 0092 049d  |    |		Action	Push_String_Extended,0x49d					; "Rule number  09"
00c3 e003       |    |		Load	0x0,0x3
00c4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00c5 01c7       |    |		Execute	Vector,Convert
00c6 e003       |    |		Load	0x0,0x3
00c7 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00c8 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00c9 e003       |    |		Load	0x0,0x3
00ca 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00cb 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00cc 0092 049e  |    |		Action	Push_String_Extended,0x49e					; "Rule number  10"
00ce e003       |    |		Load	0x0,0x3
00cf 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d0 01c7       |    |		Execute	Vector,Convert
00d1 e003       |    |		Load	0x0,0x3
00d2 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00d3 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00d4 e003       |    |		Load	0x0,0x3
00d5 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00d6 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00d7 0092 049f  |    |		Action	Push_String_Extended,0x49f					; "Rule number  11"
00d9 e003       |    |		Load	0x0,0x3
00da 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00db 01c7       |    |		Execute	Vector,Convert
00dc e003       |    |		Load	0x0,0x3
00dd 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00de 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00df e003       |    |		Load	0x0,0x3
00e0 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00e1 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00e2 0092 04a0  |    |		Action	Push_String_Extended,0x4a0					; "Rule number  12"
00e4 e003       |    |		Load	0x0,0x3
00e5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00e6 01c7       |    |		Execute	Vector,Convert
00e7 e003       |    |		Load	0x0,0x3
00e8 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00e9 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00ea e003       |    |		Load	0x0,0x3
00eb 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00ec 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00ed 0092 04a1  |    |		Action	Push_String_Extended,0x4a1					; "Rule number  13"
00ef e003       |    |		Load	0x0,0x3
00f0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00f1 01c7       |    |		Execute	Vector,Convert
00f2 e003       |    |		Load	0x0,0x3
00f3 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00f4 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00f5 e003       |    |		Load	0x0,0x3
00f6 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00f7 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00f8 0092 04a2  |    |		Action	Push_String_Extended,0x4a2					; "Rule number  14"
00fa e003       |    |		Load	0x0,0x3
00fb 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00fc 01c7       |    |		Execute	Vector,Convert
00fd e003       |    |		Load	0x0,0x3
00fe 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
00ff 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0100 e003       |    |		Load	0x0,0x3
0101 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0102 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0103 0092 04a3  |    |		Action	Push_String_Extended,0x4a3					; "Rule number  15"
0105 e003       |    |		Load	0x0,0x3
0106 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0107 01c7       |    |		Execute	Vector,Convert
0108 e003       |    |		Load	0x0,0x3
0109 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
010a 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
010b e003       |    |		Load	0x0,0x3
010c 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
010d 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
010e 0092 04a4  |    |		Action	Push_String_Extended,0x4a4					; "Rule number  16"
0110 e003       |    |		Load	0x0,0x3
0111 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0112 01c7       |    |		Execute	Vector,Convert
0113 e003       |    |		Load	0x0,0x3
0114 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0115 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0116 e003       |    |		Load	0x0,0x3
0117 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0118 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0119 0092 04a5  |    |		Action	Push_String_Extended,0x4a5					; "Rule number  17"
011b e003       |    |		Load	0x0,0x3
011c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
011d 01c7       |    |		Execute	Vector,Convert
011e e003       |    |		Load	0x0,0x3
011f 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0120 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0121 e003       |    |		Load	0x0,0x3
0122 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0123 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0124 0092 04a6  |    |		Action	Push_String_Extended,0x4a6					; "Rule number  18"
0126 e003       |    |		Load	0x0,0x3
0127 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0128 01c7       |    |		Execute	Vector,Convert
0129 e003       |    |		Load	0x0,0x3
012a 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
012b 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
012c e003       |    |		Load	0x0,0x3
012d 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
012e 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
012f 0092 04a7  |    |		Action	Push_String_Extended,0x4a7					; "Rule number  19"
0131 e003       |    |		Load	0x0,0x3
0132 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0133 01c7       |    |		Execute	Vector,Convert
0134 e003       |    |		Load	0x0,0x3
0135 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0136 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0137 e003       |    |		Load	0x0,0x3
0138 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0139 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
013a 0092 04a8  |    |		Action	Push_String_Extended,0x4a8					; "Rule number  20"
013c e003       |    |		Load	0x0,0x3
013d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
013e 01c7       |    |		Execute	Vector,Convert
013f e003       |    |		Load	0x0,0x3
0140 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0141 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0142 e003       |    |		Load	0x0,0x3
0143 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0144 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0145 0092 04a9  |    |		Action	Push_String_Extended,0x4a9					; "Rule number  21"
0147 e003       |    |		Load	0x0,0x3
0148 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0149 01c7       |    |		Execute	Vector,Convert
014a e003       |    |		Load	0x0,0x3
014b 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
014c 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
014d e003       |    |		Load	0x0,0x3
014e 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
014f 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0150 0092 04aa  |    |		Action	Push_String_Extended,0x4aa					; "Rule number  22"
0152 e003       |    |		Load	0x0,0x3
0153 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0154 01c7       |    |		Execute	Vector,Convert
0155 e003       |    |		Load	0x0,0x3
0156 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0157 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0158 e003       |    |		Load	0x0,0x3
0159 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
015a 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
015b 0092 04ab  |    |		Action	Push_String_Extended,0x4ab					; "Rule number  23"
015d e003       |    |		Load	0x0,0x3
015e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
015f 01c7       |    |		Execute	Vector,Convert
0160 e003       |    |		Load	0x0,0x3
0161 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0162 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0163 e003       |    |		Load	0x0,0x3
0164 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0165 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0166 0092 04ac  |    |		Action	Push_String_Extended,0x4ac					; "Rule number  24"
0168 e003       |    |		Load	0x0,0x3
0169 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
016a 01c7       |    |		Execute	Vector,Convert
016b e003       |    |		Load	0x0,0x3
016c 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
016d 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
016e e003       |    |		Load	0x0,0x3
016f 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0170 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0171 0092 04ad  |    |		Action	Push_String_Extended,0x4ad					; "Rule number  25"
0173 e003       |    |		Load	0x0,0x3
0174 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0175 01c7       |    |		Execute	Vector,Convert
0176 e003       |    |		Load	0x0,0x3
0177 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0178 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0179 e003       |    |		Load	0x0,0x3
017a 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
017b 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
017c 0092 04ae  |    |		Action	Push_String_Extended,0x4ae					; "Rule number  26"
017e e003       |    |		Load	0x0,0x3
017f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0180 01c7       |    |		Execute	Vector,Convert
0181 e003       |    |		Load	0x0,0x3
0182 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0183 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0184 e003       |    |		Load	0x0,0x3
0185 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0186 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0187 0092 04af  |    |		Action	Push_String_Extended,0x4af					; "Rule number  27"
0189 e003       |    |		Load	0x0,0x3
018a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
018b 01c7       |    |		Execute	Vector,Convert
018c e003       |    |		Load	0x0,0x3
018d 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
018e 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
018f e003       |    |		Load	0x0,0x3
0190 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0191 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0192 0092 04b0  |    |		Action	Push_String_Extended,0x4b0					; "Rule number  28"
0194 e003       |    |		Load	0x0,0x3
0195 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0196 01c7       |    |		Execute	Vector,Convert
0197 e003       |    |		Load	0x0,0x3
0198 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0199 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
019a e003       |    |		Load	0x0,0x3
019b 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
019c 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
019d 0092 04b1  |    |		Action	Push_String_Extended,0x4b1					; "Rule number  29"
019f e003       |    |		Load	0x0,0x3
01a0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01a1 01c7       |    |		Execute	Vector,Convert
01a2 e003       |    |		Load	0x0,0x3
01a3 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01a4 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01a5 e003       |    |		Load	0x0,0x3
01a6 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01a7 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01a8 0092 04b2  |    |		Action	Push_String_Extended,0x4b2					; "Rule number  30"
01aa e003       |    |		Load	0x0,0x3
01ab 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01ac 01c7       |    |		Execute	Vector,Convert
01ad e003       |    |		Load	0x0,0x3
01ae 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01af 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01b0 e003       |    |		Load	0x0,0x3
01b1 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
01b2 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
01b3 4803       |H   |		Short_Literal	0x3
01b4 e003       |    |		Load	0x0,0x3
01b5 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
01b6 0387       |    |		Declare_Variable	Package
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 020f       |    |		Execute	Module,Activate
01b9 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
01ba 00c7       |    |		Action	Elaborate_Subprogram
01bb			BODY_0008:
01bb 00bc       |    |		Action	Signal_Activated
01bc 00bb       |    |		Action	Signal_Completion
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cb       |    |		.CONST	0x01cb								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0003       |    |		.CONST	0x0003								; Number of locals
01c3			INIT_01c0:
01c3 e212       |    |		Load	0x1,0x12
01c4 0322       | "  |		Declare_Variable	Record
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c7 e213       |    |		Load	0x1,0x13
01c8 0322       | "  |		Declare_Variable	Record
01c9 00d8       |    |		Load_Top	At_Offset_0
01ca 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01cb			BODY_01c0:
01cb e5fe       |    |		Load	0x2,-0x2
01cc 6807       |h   |		Jump_Zero	0x1d4
01cd 4800       |H   |		Short_Literal	0x0
01ce e003       |    |		Load	0x0,0x3
01cf 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01d0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d1 e003       |    |		Load	0x0,0x3
01d2 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01d3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01d4 e5fe       |    |		Load	0x2,-0x2
01d5 a216       |    |		Store_Unchecked	0x1,0x16
01d6 e5ff       |    |		Load	0x2,-0x1
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 e210       |    |		Load	0x1,0x10
01d9 0260       | `  |		Execute	Discrete,In_Type
01da 7001       |p   |		Jump_Nonzero	0x1dc
01db 0801       |    |		Execute_Immediate	Raise,0x1
01dc a214       |    |		Store_Unchecked	0x1,0x14
01dd e214       |    |		Load	0x1,0x14
01de a215       |    |		Store_Unchecked	0x1,0x15
01df e217       |    |		Load	0x1,0x17
01e0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 0335       | 5  |		Declare_Variable	Array,Duplicate
01e6 00cd       |    |		Action	Spare6_Action
01e7 4809       |H   |		Short_Literal	0x9
01e8 4800       |H   |		Short_Literal	0x0
01e9 4800       |H   |		Short_Literal	0x0
01ea 00d9       |    |		Load_Top	At_Offset_1
01eb e406       |    |		Load	0x2,0x6
01ec 01d6       |    |		Execute	Vector,Field_Write
01ed 3ffb       |?   |		Loop_Increasing	0x1e9
01ee 00cd       |    |		Action	Spare6_Action
01ef 00d9       |    |		Load_Top	At_Offset_1
01f0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f1 00d1       |    |		Pop_Control	Pop_Count_1
01f2 4800       |H   |		Short_Literal	0x0
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f5 4800       |H   |		Short_Literal	0x0
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01f8 00d9       |    |		Load_Top	At_Offset_1
01f9 e217       |    |		Load	0x1,0x17
01fa 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01fb e218       |    |		Load	0x1,0x18
01fc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01fd 00d8       |    |		Load_Top	At_Offset_0
01fe e218       |    |		Load	0x1,0x18
01ff 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0200 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0201 0000 0000  |    |		.XXX[0x3]
0203 0000       |    |
0204 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000bb8}
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4801       |H   |		Short_Literal	0x1
020c e223       | #  |		Load	0x1,0x23
020d 186c       | l  |		Execute	Package,Field_Execute,Field_Number 0x6c
020e 00ca       |    |		Action	Exit_Nullary_Function
020f 0000       |    |		.XXX[0x1]
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 4608       |F   |		Jump_Case	0x9
0214 7808       |x   |		Jump	0x21d								; case 0x0
0215 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0216 781e       |x   |		Jump	0x235								; case 0x2
0217 781d       |x   |		Jump	0x235								; case 0x3
0218 781c       |x   |		Jump	0x235								; case 0x4
0219 781b       |x   |		Jump	0x235								; case 0x5
021a 781a       |x   |		Jump	0x235								; case 0x6
021b 7819       |x   |		Jump	0x235								; case 0x7
021c 7818       |x   |		Jump	0x235								; case 0x8
021d e212       |    |		Load	0x1,0x12
021e 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
021f 0337       | 7  |		Declare_Variable	Array
0220 4809       |H   |		Short_Literal	0x9
0221 4800       |H   |		Short_Literal	0x0
0222 4800       |H   |		Short_Literal	0x0
0223 00d9       |    |		Load_Top	At_Offset_1
0224 e402       |    |		Load	0x2,0x2
0225 01d6       |    |		Execute	Vector,Field_Write
0226 3ffb       |?   |		Loop_Increasing	0x222
0227 00db       |    |		Load_Top	At_Offset_3
0228 00d9       |    |		Load_Top	At_Offset_1
0229 00d9       |    |		Load_Top	At_Offset_1
022a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
022b 0119       |    |		Execute	Any,Check_In_Formal_Type
022c 00d1       |    |		Pop_Control	Pop_Count_1
022d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
022e 4800       |H   |		Short_Literal	0x0
022f 00db       |    |		Load_Top	At_Offset_3
0230 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0231 4800       |H   |		Short_Literal	0x0
0232 00db       |    |		Load_Top	At_Offset_3
0233 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0234 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0235 0869       | i  |		Execute_Immediate	Raise,0x69
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 4608       |F   |		Jump_Case	0x9
023c 7808       |x   |		Jump	0x245								; case 0x0
023d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
023e 785b       |x[  |		Jump	0x29a								; case 0x2
023f 785a       |xZ  |		Jump	0x29a								; case 0x3
0240 7859       |xY  |		Jump	0x29a								; case 0x4
0241 7858       |xX  |		Jump	0x29a								; case 0x5
0242 7857       |xW  |		Jump	0x29a								; case 0x6
0243 7856       |xV  |		Jump	0x29a								; case 0x7
0244 7855       |xU  |		Jump	0x29a								; case 0x8
0245 e213       |    |		Load	0x1,0x13
0246 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0247 0337       | 7  |		Declare_Variable	Array
0248 4877       |Hw  |		Short_Literal	0x77
0249 4801       |H   |		Short_Literal	0x1
024a 00da       |    |		Load_Top	At_Offset_2
024b 01d6       |    |		Execute	Vector,Field_Write
024c 486f       |Ho  |		Short_Literal	0x6f
024d 4802       |H   |		Short_Literal	0x2
024e 00da       |    |		Load_Top	At_Offset_2
024f 01d6       |    |		Execute	Vector,Field_Write
0250 486f       |Ho  |		Short_Literal	0x6f
0251 4803       |H   |		Short_Literal	0x3
0252 00da       |    |		Load_Top	At_Offset_2
0253 01d6       |    |		Execute	Vector,Field_Write
0254 4864       |Hd  |		Short_Literal	0x64
0255 4804       |H   |		Short_Literal	0x4
0256 00da       |    |		Load_Top	At_Offset_2
0257 01d6       |    |		Execute	Vector,Field_Write
0258 4820       |H   |		Short_Literal	0x20
0259 4805       |H   |		Short_Literal	0x5
025a 00da       |    |		Load_Top	At_Offset_2
025b 01d6       |    |		Execute	Vector,Field_Write
025c 4874       |Ht  |		Short_Literal	0x74
025d 4806       |H   |		Short_Literal	0x6
025e 00da       |    |		Load_Top	At_Offset_2
025f 01d6       |    |		Execute	Vector,Field_Write
0260 4861       |Ha  |		Short_Literal	0x61
0261 4807       |H   |		Short_Literal	0x7
0262 00da       |    |		Load_Top	At_Offset_2
0263 01d6       |    |		Execute	Vector,Field_Write
0264 4862       |Hb  |		Short_Literal	0x62
0265 4808       |H   |		Short_Literal	0x8
0266 00da       |    |		Load_Top	At_Offset_2
0267 01d6       |    |		Execute	Vector,Field_Write
0268 486c       |Hl  |		Short_Literal	0x6c
0269 4809       |H   |		Short_Literal	0x9
026a 00da       |    |		Load_Top	At_Offset_2
026b 01d6       |    |		Execute	Vector,Field_Write
026c 4865       |He  |		Short_Literal	0x65
026d 480a       |H   |		Short_Literal	0xa
026e 00da       |    |		Load_Top	At_Offset_2
026f 01d6       |    |		Execute	Vector,Field_Write
0270 00db       |    |		Load_Top	At_Offset_3
0271 00d9       |    |		Load_Top	At_Offset_1
0272 00d9       |    |		Load_Top	At_Offset_1
0273 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0274 0119       |    |		Execute	Any,Check_In_Formal_Type
0275 00d1       |    |		Pop_Control	Pop_Count_1
0276 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0277 e213       |    |		Load	0x1,0x13
0278 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0279 0337       | 7  |		Declare_Variable	Array
027a 4873       |Hs  |		Short_Literal	0x73
027b 4801       |H   |		Short_Literal	0x1
027c 00da       |    |		Load_Top	At_Offset_2
027d 01d6       |    |		Execute	Vector,Field_Write
027e 4861       |Ha  |		Short_Literal	0x61
027f 4802       |H   |		Short_Literal	0x2
0280 00da       |    |		Load_Top	At_Offset_2
0281 01d6       |    |		Execute	Vector,Field_Write
0282 486c       |Hl  |		Short_Literal	0x6c
0283 4803       |H   |		Short_Literal	0x3
0284 00da       |    |		Load_Top	At_Offset_2
0285 01d6       |    |		Execute	Vector,Field_Write
0286 486f       |Ho  |		Short_Literal	0x6f
0287 4804       |H   |		Short_Literal	0x4
0288 00da       |    |		Load_Top	At_Offset_2
0289 01d6       |    |		Execute	Vector,Field_Write
028a 486f       |Ho  |		Short_Literal	0x6f
028b 4805       |H   |		Short_Literal	0x5
028c 00da       |    |		Load_Top	At_Offset_2
028d 01d6       |    |		Execute	Vector,Field_Write
028e 486e       |Hn  |		Short_Literal	0x6e
028f 4806       |H   |		Short_Literal	0x6
0290 00da       |    |		Load_Top	At_Offset_2
0291 01d6       |    |		Execute	Vector,Field_Write
0292 00db       |    |		Load_Top	At_Offset_3
0293 00d9       |    |		Load_Top	At_Offset_1
0294 00d9       |    |		Load_Top	At_Offset_1
0295 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0296 0119       |    |		Execute	Any,Check_In_Formal_Type
0297 00d1       |    |		Pop_Control	Pop_Count_1
0298 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0299 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
029a 0869       | i  |		Execute_Immediate	Raise,0x69
029b 0000 0000  |    |		.BLANK	0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7       |    |		.CONST	0x02a7								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 e212       |    |		Load	0x1,0x12
02a4 0322       | "  |		Declare_Variable	Record
02a5 00d8       |    |		Load_Top	At_Offset_0
02a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a7			BODY_02a0:
02a7 00db       |    |		Load_Top	At_Offset_3
02a8 e217       |    |		Load	0x1,0x17
02a9 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab 017d       | }  |		Execute	Record,Structure_Write
02ac e5fd       |    |		Load	0x2,-0x3
02ad e5fe       |    |		Load	0x2,-0x2
02ae 00da       |    |		Load_Top	At_Offset_2
02af 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02b0 01d6       |    |		Execute	Vector,Field_Write
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b3 0a01       |    |		Execute_Immediate	Plus,0x1
02b4 00d9       |    |		Load_Top	At_Offset_1
02b5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b6 4800       |H   |		Short_Literal	0x0
02b7 00d9       |    |		Load_Top	At_Offset_1
02b8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b9 00d8       |    |		Load_Top	At_Offset_0
02ba e217       |    |		Load	0x1,0x17
02bb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02bc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02bd 0000 0000  |    |		.XXX[0x3]
02bf 0000       |    |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c7       |    |		.CONST	0x02c7								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0002       |    |		.CONST	0x0002								; Number of locals
02c3			INIT_02c0:
02c3 e212       |    |		Load	0x1,0x12
02c4 0322       | "  |		Declare_Variable	Record
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c7			BODY_02c0:
02c7 00db       |    |		Load_Top	At_Offset_3
02c8 e217       |    |		Load	0x1,0x17
02c9 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 017d       | }  |		Execute	Record,Structure_Write
02cc 00cf       |    |		Action	Mark_Auxiliary
02cd e5fe       |    |		Load	0x2,-0x2
02ce 0aff       |    |		Execute_Immediate	Plus,-0x1
02cf 4801       |H   |		Short_Literal	0x1
02d0 0263       | c  |		Execute	Discrete,Above_Bound
02d1 7017       |p   |		Jump_Nonzero	0x2e9
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 e402       |    |		Load	0x2,0x2
02d4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d5 01d7       |    |		Execute	Vector,Field_Read
02d6 e5fd       |    |		Load	0x2,-0x3
02d7 027f       |    |		Execute	Discrete,Equal
02d8 e5fe       |    |		Load	0x2,-0x2
02d9 00da       |    |		Load_Top	At_Offset_2
02da 0272       | r  |		Execute	Discrete,Minus
02db e5fd       |    |		Load	0x2,-0x3
02dc 00db       |    |		Load_Top	At_Offset_3
02dd e402       |    |		Load	0x2,0x2
02de 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02df 01d7       |    |		Execute	Vector,Field_Read
02e0 0272       | r  |		Execute	Discrete,Minus
02e1 0274       | t  |		Execute	Discrete,Absolute_Value
02e2 027f       |    |		Execute	Discrete,Equal
02e3 0278       | x  |		Execute	Discrete,Or
02e4 6802       |h   |		Jump_Zero	0x2e7
02e5 4800       |H   |		Short_Literal	0x0
02e6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02e7 00c8       |    |		Action	Pop_Auxiliary_Range
02e8 3fe9       |?   |		Loop_Increasing	0x2d2
02e9 00ce       |    |		Action	Pop_Auxiliary
02ea 4801       |H   |		Short_Literal	0x1
02eb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 0300       |    |		.CONST	0x0300								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0006       |    |		.CONST	0x0006								; Number of locals
02f3			INIT_02f0:
02f3 029f 046b  |   k|		Declare_Subprogram	INIT_0468,For_Call
02f5 e003       |    |		Load	0x0,0x3
02f6 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
02f7 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
02f8 00c6       |    |		Action	Check_Subprogram_Elaborated
02f9 4802       |H   |		Short_Literal	0x2
02fa 4802       |H   |		Short_Literal	0x2
02fb 0099       |    |		Action	Reference_Dynamic
02fc e008       |    |		Load	0x0,0x8
02fd e009       |    |		Load	0x0,0x9
02fe 4806       |H   |		Short_Literal	0x6
02ff 0007       |    |		Action	Break_Optional
0300			BODY_02f0:
0300 4801       |H   |		Short_Literal	0x1
0301 e218       |    |		Load	0x1,0x18
0302 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0303 e217       |    |		Load	0x1,0x17
0304 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0305 4803       |H   |		Short_Literal	0x3
0306 4802       |H   |		Short_Literal	0x2
0307 0099       |    |		Action	Reference_Dynamic
0308 4804       |H   |		Short_Literal	0x4
0309 4802       |H   |		Short_Literal	0x2
030a 0099       |    |		Action	Reference_Dynamic
030b e003       |    |		Load	0x0,0x3
030c 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
030d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
030e e003       |    |		Load	0x0,0x3
030f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0310 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0311 0165       | e  |		Execute	Variant_Record,Convert
0312 00ca       |    |		Action	Exit_Nullary_Function
0313 0000 0000  |    |		.BLANK	0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00cf       |    |		Action	Mark_Auxiliary
031c 00db       |    |		Load_Top	At_Offset_3
031d 0aff       |    |		Execute_Immediate	Plus,-0x1
031e 4801       |H   |		Short_Literal	0x1
031f 0263       | c  |		Execute	Discrete,Above_Bound
0320 7006       |p   |		Jump_Nonzero	0x327
0321 0092 04b3  |    |		Action	Push_String_Extended,0x4b3					; "|   "
0323 e003       |    |		Load	0x0,0x3
0324 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0325 00c8       |    |		Action	Pop_Auxiliary_Range
0326 3ffa       |?   |		Loop_Increasing	0x321
0327 00ce       |    |		Action	Pop_Auxiliary
0328 00da       |    |		Load_Top	At_Offset_2
0329 6804       |h   |		Jump_Zero	0x32e
032a 0092 04b4  |    |		Action	Push_String_Extended,0x4b4					; "| o "
032c e003       |    |		Load	0x0,0x3
032d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
032e 00cf       |    |		Action	Mark_Auxiliary
032f e214       |    |		Load	0x1,0x14
0330 e5ff       |    |		Load	0x2,-0x1
0331 0a01       |    |		Execute_Immediate	Plus,0x1
0332 00d8       |    |		Load_Top	At_Offset_0
0333 00e2       |    |		Load_Encached	Integer_Cache
0334 0260       | `  |		Execute	Discrete,In_Type
0335 7001       |p   |		Jump_Nonzero	0x337
0336 0801       |    |		Execute_Immediate	Raise,0x1
0337 0263       | c  |		Execute	Discrete,Above_Bound
0338 7006       |p   |		Jump_Nonzero	0x33f
0339 0092 04b3  |    |		Action	Push_String_Extended,0x4b3					; "|   "
033b e003       |    |		Load	0x0,0x3
033c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
033d 00c8       |    |		Action	Pop_Auxiliary_Range
033e 3ffa       |?   |		Loop_Increasing	0x339
033f 00ce       |    |		Action	Pop_Auxiliary
0340 0092 04b5  |    |		Action	Push_String_Extended,0x4b5					; "|"
0342 e003       |    |		Load	0x0,0x3
0343 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0344 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0345 0000 0000  |    |		.XXX[0x3]
0347 0000       |    |
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 00cf       |    |		Action	Mark_Auxiliary
034c e214       |    |		Load	0x1,0x14
034d 0902       |    |		Execute_Immediate	Binary_Scale,0x2
034e 0a01       |    |		Execute_Immediate	Plus,0x1
034f 00d8       |    |		Load_Top	At_Offset_0
0350 00e2       |    |		Load_Encached	Integer_Cache
0351 0260       | `  |		Execute	Discrete,In_Type
0352 7001       |p   |		Jump_Nonzero	0x354
0353 0801       |    |		Execute_Immediate	Raise,0x1
0354 4801       |H   |		Short_Literal	0x1
0355 0263       | c  |		Execute	Discrete,Above_Bound
0356 7006       |p   |		Jump_Nonzero	0x35d
0357 0092 04b6  |    |		Action	Push_String_Extended,0x4b6					; "="
0359 e003       |    |		Load	0x0,0x3
035a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
035b 00c8       |    |		Action	Pop_Auxiliary_Range
035c 3ffa       |?   |		Loop_Increasing	0x357
035d 00ce       |    |		Action	Pop_Auxiliary
035e 0092 04b7  |    |		Action	Push_String_Extended,0x4b7					; " "
0360 e003       |    |		Load	0x0,0x3
0361 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0362 00cf       |    |		Action	Mark_Auxiliary
0363 e214       |    |		Load	0x1,0x14
0364 4801       |H   |		Short_Literal	0x1
0365 0263       | c  |		Execute	Discrete,Above_Bound
0366 7020       |p   |		Jump_Nonzero	0x387
0367 00d8       |    |		Load_Top	At_Offset_0
0368 e5ff       |    |		Load	0x2,-0x1
0369 e217       |    |		Load	0x1,0x17
036a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
036b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
036c 01d7       |    |		Execute	Vector,Field_Read
036d 821c       |    |		Call	0x1,0x1c
036e 00cf       |    |		Action	Mark_Auxiliary
036f e214       |    |		Load	0x1,0x14
0370 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0371 0a01       |    |		Execute_Immediate	Plus,0x1
0372 00d8       |    |		Load_Top	At_Offset_0
0373 00e2       |    |		Load_Encached	Integer_Cache
0374 0260       | `  |		Execute	Discrete,In_Type
0375 7001       |p   |		Jump_Nonzero	0x377
0376 0801       |    |		Execute_Immediate	Raise,0x1
0377 4801       |H   |		Short_Literal	0x1
0378 0263       | c  |		Execute	Discrete,Above_Bound
0379 7006       |p   |		Jump_Nonzero	0x380
037a 0092 04b6  |    |		Action	Push_String_Extended,0x4b6					; "="
037c e003       |    |		Load	0x0,0x3
037d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
037e 00c8       |    |		Action	Pop_Auxiliary_Range
037f 3ffa       |?   |		Loop_Increasing	0x37a
0380 00ce       |    |		Action	Pop_Auxiliary
0381 0092 04b7  |    |		Action	Push_String_Extended,0x4b7					; " "
0383 e003       |    |		Load	0x0,0x3
0384 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0385 00c8       |    |		Action	Pop_Auxiliary_Range
0386 3fe0       |?   |		Loop_Increasing	0x367
0387 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b e216       |    |		Load	0x1,0x16
038c 680d       |h   |		Jump_Zero	0x39a
038d 0092 04b8  |    |		Action	Push_String_Extended,0x4b8					; "  "
038f e003       |    |		Load	0x0,0x3
0390 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0391 0092 04b9  |    |		Action	Push_String_Extended,0x4b9					; "Voici une solution : "
0393 e003       |    |		Load	0x0,0x3
0394 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0395 00da       |    |		Load_Top	At_Offset_2
0396 e003       |    |		Load	0x0,0x3
0397 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0398 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0399 821d       |    |		Call	0x1,0x1d
039a 00da       |    |		Load_Top	At_Offset_2
039b e003       |    |		Load	0x0,0x3
039c 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
039d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039e e217       |    |		Load	0x1,0x17
039f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a1 0000 0000  |    |		.BLANK	0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03be       |    |		.CONST	0x03be								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0007       |    |		.CONST	0x0007								; Number of locals
03ab			INIT_03a8:
03ab e003       |    |		Load	0x0,0x3
03ac 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ae 02ff       |    |		Declare_Variable	Variant_Record
03af 00d8       |    |		Load_Top	At_Offset_0
03b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b1 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
03b3 e003       |    |		Load	0x0,0x3
03b4 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03b5 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
03b6 00c6       |    |		Action	Check_Subprogram_Elaborated
03b7 4803       |H   |		Short_Literal	0x3
03b8 4802       |H   |		Short_Literal	0x2
03b9 0099       |    |		Action	Reference_Dynamic
03ba e00a       |    |		Load	0x0,0xa
03bb e00b       |    |		Load	0x0,0xb
03bc 4807       |H   |		Short_Literal	0x7
03bd 0007       |    |		Action	Break_Optional
03be			BODY_03a8:
03be 4801       |H   |		Short_Literal	0x1
03bf e218       |    |		Load	0x1,0x18
03c0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03c1 e217       |    |		Load	0x1,0x17
03c2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03c3 4804       |H   |		Short_Literal	0x4
03c4 4802       |H   |		Short_Literal	0x2
03c5 0099       |    |		Action	Reference_Dynamic
03c6 4805       |H   |		Short_Literal	0x5
03c7 4802       |H   |		Short_Literal	0x2
03c8 0099       |    |		Action	Reference_Dynamic
03c9 e003       |    |		Load	0x0,0x3
03ca 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03cc e402       |    |		Load	0x2,0x2
03cd 016d       | m  |		Execute	Variant_Record,Structure_Write
03ce e402       |    |		Load	0x2,0x2
03cf e003       |    |		Load	0x0,0x3
03d0 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03d1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03d2 a20f       |    |		Store_Unchecked	0x1,0xf
03d3 e402       |    |		Load	0x2,0x2
03d4 00ca       |    |		Action	Exit_Nullary_Function
03d5 0000 0000  |    |		.XXX[0x3]
03d7 0000       |    |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e2       |    |		.CONST	0x03e2								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0003       |    |		.CONST	0x0003								; Number of locals
03db			INIT_03d8:
03db e003       |    |		Load	0x0,0x3
03dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03dd 0322       | "  |		Declare_Variable	Record
03de e212       |    |		Load	0x1,0x12
03df 0322       | "  |		Declare_Variable	Record
03e0 00d8       |    |		Load_Top	At_Offset_0
03e1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e2			BODY_03d8:
03e2 e5ff       |    |		Load	0x2,-0x1
03e3 e003       |    |		Load	0x0,0x3
03e4 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
03e5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e6 00da       |    |		Load_Top	At_Offset_2
03e7 017d       | }  |		Execute	Record,Structure_Write
03e8 00d9       |    |		Load_Top	At_Offset_1
03e9 e217       |    |		Load	0x1,0x17
03ea 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03eb 00d9       |    |		Load_Top	At_Offset_1
03ec 017d       | }  |		Execute	Record,Structure_Write
03ed e215       |    |		Load	0x1,0x15
03ee 00d9       |    |		Load_Top	At_Offset_1
03ef 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03f0 00d8       |    |		Load_Top	At_Offset_0
03f1 00da       |    |		Load_Top	At_Offset_2
03f2 e217       |    |		Load	0x1,0x17
03f3 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 e217       |    |		Load	0x1,0x17
03f6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03f7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0408       |    |		.CONST	0x0408								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0006       |    |		.CONST	0x0006								; Number of locals
03fb			INIT_03f8:
03fb 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
03fd e003       |    |		Load	0x0,0x3
03fe 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03ff 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0400 00c6       |    |		Action	Check_Subprogram_Elaborated
0401 4802       |H   |		Short_Literal	0x2
0402 4802       |H   |		Short_Literal	0x2
0403 0099       |    |		Action	Reference_Dynamic
0404 e00c       |    |		Load	0x0,0xc
0405 e00d       |    |		Load	0x0,0xd
0406 4806       |H   |		Short_Literal	0x6
0407 0007       |    |		Action	Break_Optional
0408			BODY_03f8:
0408 4801       |H   |		Short_Literal	0x1
0409 e218       |    |		Load	0x1,0x18
040a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
040b e217       |    |		Load	0x1,0x17
040c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
040d 4803       |H   |		Short_Literal	0x3
040e 4802       |H   |		Short_Literal	0x2
040f 0099       |    |		Action	Reference_Dynamic
0410 4804       |H   |		Short_Literal	0x4
0411 4802       |H   |		Short_Literal	0x2
0412 0099       |    |		Action	Reference_Dynamic
0413 e003       |    |		Load	0x0,0x3
0414 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0415 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0416 e003       |    |		Load	0x0,0x3
0417 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0418 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0419 0165       | e  |		Execute	Variant_Record,Convert
041a 00ca       |    |		Action	Exit_Nullary_Function
041b 0000 0000  |    |		.BLANK	0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 042b       | +  |		.CONST	0x042b								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0004       |    |		.CONST	0x0004								; Number of locals
0423			INIT_0420:
0423 e212       |    |		Load	0x1,0x12
0424 0322       | "  |		Declare_Variable	Record
0425 00d8       |    |		Load_Top	At_Offset_0
0426 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0427 e003       |    |		Load	0x0,0x3
0428 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0429 0322       | "  |		Declare_Variable	Record
042a 00e3       |    |		Load_Encached	Natural_Cache
042b			BODY_0420:
042b e5ff       |    |		Load	0x2,-0x1
042c e003       |    |		Load	0x0,0x3
042d 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
042e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
042f 00da       |    |		Load_Top	At_Offset_2
0430 017d       | }  |		Execute	Record,Structure_Write
0431 00d9       |    |		Load_Top	At_Offset_1
0432 e217       |    |		Load	0x1,0x17
0433 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0434 00db       |    |		Load_Top	At_Offset_3
0435 017d       | }  |		Execute	Record,Structure_Write
0436 00da       |    |		Load_Top	At_Offset_2
0437 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0438 0a01       |    |		Execute_Immediate	Plus,0x1
0439 00d8       |    |		Load_Top	At_Offset_0
043a e210       |    |		Load	0x1,0x10
043b 0260       | `  |		Execute	Discrete,In_Type
043c 7001       |p   |		Jump_Nonzero	0x43e
043d 0801       |    |		Execute_Immediate	Raise,0x1
043e 00db       |    |		Load_Top	At_Offset_3
043f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0440 0a01       |    |		Execute_Immediate	Plus,0x1
0441 00d8       |    |		Load_Top	At_Offset_0
0442 e210       |    |		Load	0x1,0x10
0443 0260       | `  |		Execute	Discrete,In_Type
0444 7001       |p   |		Jump_Nonzero	0x446
0445 0801       |    |		Execute_Immediate	Raise,0x1
0446 00db       |    |		Load_Top	At_Offset_3
0447 821a       |    |		Call	0x1,0x1a
0448 6812       |h   |		Jump_Zero	0x45b
0449 00da       |    |		Load_Top	At_Offset_2
044a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
044b 0a01       |    |		Execute_Immediate	Plus,0x1
044c 00d8       |    |		Load_Top	At_Offset_0
044d e210       |    |		Load	0x1,0x10
044e 0260       | `  |		Execute	Discrete,In_Type
044f 7001       |p   |		Jump_Nonzero	0x451
0450 0801       |    |		Execute_Immediate	Raise,0x1
0451 00db       |    |		Load_Top	At_Offset_3
0452 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0453 0a01       |    |		Execute_Immediate	Plus,0x1
0454 00d8       |    |		Load_Top	At_Offset_0
0455 e210       |    |		Load	0x1,0x10
0456 0260       | `  |		Execute	Discrete,In_Type
0457 7001       |p   |		Jump_Nonzero	0x459
0458 0801       |    |		Execute_Immediate	Raise,0x1
0459 00db       |    |		Load_Top	At_Offset_3
045a 8219       |    |		Call	0x1,0x19
045b 00da       |    |		Load_Top	At_Offset_2
045c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
045d 0a01       |    |		Execute_Immediate	Plus,0x1
045e 00db       |    |		Load_Top	At_Offset_3
045f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0460 00da       |    |		Load_Top	At_Offset_2
0461 00da       |    |		Load_Top	At_Offset_2
0462 e217       |    |		Load	0x1,0x17
0463 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0464 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0465 0000 0000  |    |		.XXX[0x3]
0467 0000       |    |
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00da       |    |		Load_Top	At_Offset_2
046c e217       |    |		Load	0x1,0x17
046d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
046e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
046f e214       |    |		Load	0x1,0x14
0470 027f       |    |		Execute	Discrete,Equal
0471 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0472 0000 0000  |    |		.BLANK	0000[0x6]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00da       |    |		Load_Top	At_Offset_2
047c e217       |    |		Load	0x1,0x17
047d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
047e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
047f e215       |    |		Load	0x1,0x15
0480 027f       |    |		Execute	Discrete,Equal
0481 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0482 0000 0000  |    |		.BLANK	0000[0x6]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 00da       |    |		Load_Top	At_Offset_2
048c e217       |    |		Load	0x1,0x17
048d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
048e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
048f e215       |    |		Load	0x1,0x15
0490 027e       | ~  |		Execute	Discrete,Not_Equal
0491 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0492 ; --------------------------------------------------------------------------------------
0492 ; STRING TABLE
0492 ; --------------------------------------------------------------------------------------
0492 0052       | R  |		.STRTAB	0x0052->0x04bb							; "QUEEN     "
0493 005a       | Z  |		.STRTAB	0x005a->0x04c0							; "CHESSBOARD"
0494 0062       | b  |		.STRTAB	0x0062->0x04c5							; "the Queens"
0495 006a       | j  |		.STRTAB	0x006a->0x04ca							; "last level down"
0496 0077       | w  |		.STRTAB	0x0077->0x04d1							; "last level righ"
0497 0084       |    |		.STRTAB	0x0084->0x04d9							; "go to right    "
0498 0091       |    |		.STRTAB	0x0091->0x04e0							; "Rule number  04"
0499 009e       |    |		.STRTAB	0x009e->0x04e8							; "Rule number  05"
049a 00ab       |    |		.STRTAB	0x00ab->0x04ef							; "Rule number  06"
049b 00b8       |    |		.STRTAB	0x00b8->0x04f7							; "Rule number  07"
049c 00c5       |    |		.STRTAB	0x00c5->0x04fe							; "Rule number  08"
049d 00d2       |    |		.STRTAB	0x00d2->0x0506							; "Rule number  09"
049e 00df       |    |		.STRTAB	0x00df->0x050d							; "Rule number  10"
049f 00ec       |    |		.STRTAB	0x00ec->0x0515							; "Rule number  11"
04a0 00f9       |    |		.STRTAB	0x00f9->0x051c							; "Rule number  12"
04a1 0106       |    |		.STRTAB	0x0106->0x0524							; "Rule number  13"
04a2 0113       |    |		.STRTAB	0x0113->0x052b							; "Rule number  14"
04a3 0120       |    |		.STRTAB	0x0120->0x0533							; "Rule number  15"
04a4 012d       | -  |		.STRTAB	0x012d->0x053a							; "Rule number  16"
04a5 013a       | :  |		.STRTAB	0x013a->0x0542							; "Rule number  17"
04a6 0147       | G  |		.STRTAB	0x0147->0x0549							; "Rule number  18"
04a7 0154       | T  |		.STRTAB	0x0154->0x0551							; "Rule number  19"
04a8 0161       | a  |		.STRTAB	0x0161->0x0558							; "Rule number  20"
04a9 016e       | n  |		.STRTAB	0x016e->0x0560							; "Rule number  21"
04aa 017b       | {  |		.STRTAB	0x017b->0x0567							; "Rule number  22"
04ab 0188       |    |		.STRTAB	0x0188->0x056f							; "Rule number  23"
04ac 0195       |    |		.STRTAB	0x0195->0x0576							; "Rule number  24"
04ad 01a2       |    |		.STRTAB	0x01a2->0x057e							; "Rule number  25"
04ae 01af       |    |		.STRTAB	0x01af->0x0585							; "Rule number  26"
04af 01bc       |    |		.STRTAB	0x01bc->0x058d							; "Rule number  27"
04b0 01c9       |    |		.STRTAB	0x01c9->0x0594							; "Rule number  28"
04b1 01d6       |    |		.STRTAB	0x01d6->0x059c							; "Rule number  29"
04b2 01e3       |    |		.STRTAB	0x01e3->0x05a3							; "Rule number  30"
04b3 01f0       |    |		.STRTAB	0x01f0->0x05ab							; "|   "
04b4 01f2       |    |		.STRTAB	0x01f2->0x05ad							; "| o "
04b5 01f4       |    |		.STRTAB	0x01f4->0x05af							; "|"
04b6 01f3       |    |		.STRTAB	0x01f3->0x05af							; "="
04b7 01f2       |    |		.STRTAB	0x01f2->0x05b0							; " "
04b8 01f1       |    |		.STRTAB	0x01f1->0x05b0							; "  "
04b9 01f1       |    |		.STRTAB	0x01f1->0x05b1							; "Voici une solution : "
04ba 0204       |    |		.STREND 0x0204->0x05bc
04bb 5155 4545  |QUEE|		.STRTAB_STRINGS
05bc 0000 0000  |    |		.BLANK	0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; Debug Table
05c0 ; --------------------------------------------------------------------------------------
05c0 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x64f0,0x0000,0x0001,0x0013
05c6 000b 0612  |    |		.DBG4T	0x000b,0x0612,0x8000,0x0000
05ca 0010 0616  |    |		.DBG4T	0x0010,0x0616,0x8000,0x0000
05ce 01c3 062f  |   /|		.DBG4T	0x01c3,0x062f,0x0001,0x0000
05d2 020b 0640  |   @|		.DBG4T	0x020b,0x0640,0x0002,0x0000
05d6 0213 0000  |    |		.DBG4T	0x0213,0x0000,0x0005,0x0000
05da 023b 0000  | ;  |		.DBG4T	0x023b,0x0000,0x0005,0x0000
05de 02a3 0643  |   C|		.DBG4T	0x02a3,0x0643,0x0001,0x0000
05e2 02c3 064b  |   K|		.DBG4T	0x02c3,0x064b,0x0002,0x0000
05e6 02f3 0653  |   S|		.DBG4T	0x02f3,0x0653,0x0002,0x0000
05ea 031b 0658  |   X|		.DBG4T	0x031b,0x0658,0x0001,0x0000
05ee 034b 0661  | K a|		.DBG4T	0x034b,0x0661,0x0001,0x0000
05f2 038b 066b  |   k|		.DBG4T	0x038b,0x066b,0x0001,0x0000
05f6 03ab 0672  |   r|		.DBG4T	0x03ab,0x0672,0x0002,0x0000
05fa 03db 067a  |   z|		.DBG4T	0x03db,0x067a,0x0001,0x0000
05fe 03fb 0683  |    |		.DBG4T	0x03fb,0x0683,0x0002,0x0000
0602 0423 0688  | #  |		.DBG4T	0x0423,0x0688,0x0001,0x0000
0606 046b 0693  | k  |		.DBG4T	0x046b,0x0693,0x0002,0x0000
060a 047b 0696  | {  |		.DBG4T	0x047b,0x0696,0x0002,0x0000
060e 048b 0699  |    |		.DBG4T	0x048b,0x0699,0x0002,0x0000
0612 ; --------------------------------------------------------------------------------------
0612 ; Debug chain
0612 ; --------------------------------------------------------------------------------------
0612 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0614 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0616 ; --------------------------------------------------------------------------------------
0616 ; Debug chain
0616 ; --------------------------------------------------------------------------------------
0616 0017 0000  |    |		.DBGLEN	0x0017,0x0000
0618 0010 0012  |    |		.DBGLNO	0x0010,0x0012,0x0016,0x001c,0x0023,0x002f,0x0031,0x0033,0x0035,0x0046,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x01b9
062f ; --------------------------------------------------------------------------------------
062f ; Debug chain
062f ; --------------------------------------------------------------------------------------
062f 0002 000d  |    |		.DBGLEN	0x0002,0x000d
0631 01c3 01c7  |    |		.DBGLNO	0x01c3,0x01c7,0x01cb,0x01cd,0x01d1,0x01d4,0x01d6,0x01dd,0x01df,0x01e1,0x01f2,0x01f5,0x01f8,0x01fb,0x01fd
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug chain
0640 ; --------------------------------------------------------------------------------------
0640 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0642 020b       |    |		.DBGLNO	0x020b
0643 ; --------------------------------------------------------------------------------------
0643 ; Debug chain
0643 ; --------------------------------------------------------------------------------------
0643 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0645 02a3 02a7  |    |		.DBGLNO	0x02a3,0x02a7,0x02ac,0x02b1,0x02b6,0x02b9
064b ; --------------------------------------------------------------------------------------
064b ; Debug chain
064b ; --------------------------------------------------------------------------------------
064b 0001 0005  |    |		.DBGLEN	0x0001,0x0005
064d 02c3 02c7  |    |		.DBGLNO	0x02c3,0x02c7,0x02cd,0x02d2,0x02e5,0x02ea
0653 ; --------------------------------------------------------------------------------------
0653 ; Debug chain
0653 ; --------------------------------------------------------------------------------------
0653 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0655 02f3 02f5  |    |		.DBGLNO	0x02f3,0x02f5,0x0300
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug chain
0658 ; --------------------------------------------------------------------------------------
0658 0000 0007  |    |		.DBGLEN	0x0000,0x0007
065a 031c 0321  |   !|		.DBGLNO	0x031c,0x0321,0x0328,0x032a,0x032f,0x0339,0x0340
0661 ; --------------------------------------------------------------------------------------
0661 ; Debug chain
0661 ; --------------------------------------------------------------------------------------
0661 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0663 034c 0357  | L W|		.DBGLNO	0x034c,0x0357,0x035e,0x0363,0x0367,0x036f,0x037a,0x0381
066b ; --------------------------------------------------------------------------------------
066b ; Debug chain
066b ; --------------------------------------------------------------------------------------
066b 0000 0005  |    |		.DBGLEN	0x0000,0x0005
066d 038b 038d  |    |		.DBGLNO	0x038b,0x038d,0x0391,0x0395,0x039a
0672 ; --------------------------------------------------------------------------------------
0672 ; Debug chain
0672 ; --------------------------------------------------------------------------------------
0672 0003 0003  |    |		.DBGLEN	0x0003,0x0003
0674 03ab 03b1  |    |		.DBGLNO	0x03ab,0x03b1,0x03b3,0x03be,0x03ce,0x03d3
067a ; --------------------------------------------------------------------------------------
067a ; Debug chain
067a ; --------------------------------------------------------------------------------------
067a 0002 0005  |    |		.DBGLEN	0x0002,0x0005
067c 03db 03de  |    |		.DBGLNO	0x03db,0x03de,0x03e2,0x03e8,0x03ed,0x03f0,0x03f4
0683 ; --------------------------------------------------------------------------------------
0683 ; Debug chain
0683 ; --------------------------------------------------------------------------------------
0683 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0685 03fb 03fd  |    |		.DBGLNO	0x03fb,0x03fd,0x0408
0688 ; --------------------------------------------------------------------------------------
0688 ; Debug chain
0688 ; --------------------------------------------------------------------------------------
0688 0003 0006  |    |		.DBGLEN	0x0003,0x0006
068a 0423 0427  | # '|		.DBGLNO	0x0423,0x0427,0x042a,0x042b,0x0431,0x0436,0x0449,0x045b,0x0460
0693 ; --------------------------------------------------------------------------------------
0693 ; Debug chain
0693 ; --------------------------------------------------------------------------------------
0693 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0695 046b       | k  |		.DBGLNO	0x046b
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug chain
0696 ; --------------------------------------------------------------------------------------
0696 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0698 047b       | {  |		.DBGLNO	0x047b
0699 ; --------------------------------------------------------------------------------------
0699 ; Debug chain
0699 ; --------------------------------------------------------------------------------------
0699 0000 0001  |    |		.DBGLEN	0x0000,0x0001
069b 048b       |    |		.DBGLNO	0x048b
069c 0000 0000  |    |		.BLANK	0000[0x164]