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

⟦603a15483⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 07b0       |    |		.CONST	0x07b0								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0065       | e  |		.CONST	0x0065								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0023       | #  |		.CONST	0x0023								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 e002       |    |		Load	0x0,0x2
0011 0129       | )  |		Execute	Any,Make_Visible
0012 e003       |    |		Load	0x0,0x3
0013 0129       | )  |		Execute	Any,Make_Visible
0014 03bd       |    |		Declare_Variable	Access,Duplicate
0015 03bd       |    |		Declare_Variable	Access,Duplicate
0016 0093 0000  |    |		push_full_address	0x0
0018 608b       |`   |		Indirect_Literal	Discrete,0xa4,{0x80000000, 0x00010000}
0019 0273       | s  |		Execute	Discrete,Plus
001a 0129       | )  |		Execute	Any,Make_Visible
001b 0093 0000  |    |		push_full_address	0x0
001d 6082       |`   |		Indirect_Literal	Discrete,0xa0,{0x80000000, 0x00020000}
001e 0273       | s  |		Execute	Discrete,Plus
001f 0129       | )  |		Execute	Any,Make_Visible
0020 0093 0000  |    |		push_full_address	0x0
0022 6079       |`y  |		Indirect_Literal	Discrete,0x9c,{0x80000000, 0x00030000}
0023 0273       | s  |		Execute	Discrete,Plus
0024 0129       | )  |		Execute	Any,Make_Visible
0025 0093 0000  |    |		push_full_address	0x0
0027 6070       |`p  |		Indirect_Literal	Discrete,0x98,{0x80000000, 0x00040000}
0028 0273       | s  |		Execute	Discrete,Plus
0029 0129       | )  |		Execute	Any,Make_Visible
002a 0093 0000  |    |		push_full_address	0x0
002c 6067       |`g  |		Indirect_Literal	Discrete,0x94,{0x80000000, 0x00050000}
002d 0273       | s  |		Execute	Discrete,Plus
002e 0129       | )  |		Execute	Any,Make_Visible
002f 0093 0000  |    |		push_full_address	0x0
0031 605e       |`^  |		Indirect_Literal	Discrete,0x90,{0x80000000, 0x00060000}
0032 0273       | s  |		Execute	Discrete,Plus
0033 0129       | )  |		Execute	Any,Make_Visible
0034 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0036 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0038 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
003a 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
003c 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
003e 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0040 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
0042 029a 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call,Visible,Unelaborated
0044 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
0046 029a 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call,Visible,Unelaborated
0048 029a 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call,Visible,Unelaborated
004a 029a 077b  |   {|		Declare_Subprogram	INIT_0778,For_Outer_Call,Visible,Unelaborated
004c 00bf       |    |		Action	Accept_Activation
004d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0064 00c7       |    |		Action	Elaborate_Subprogram
0065			BODY_0008:
0065 00bc       |    |		Action	Signal_Activated
0066 00bb       |    |		Action	Signal_Completion
0067 0000       |    |		.XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4607       |F   |		Jump_Case	0x8
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
006d 7807       |x   |		Jump	0x75								; case 0x1
006e 780a       |x   |		Jump	0x79								; case 0x2
006f 780e       |x   |		Jump	0x7e								; case 0x3
0070 7811       |x   |		Jump	0x82								; case 0x4
0071 7812       |x   |		Jump	0x84								; case 0x5
0072 7813       |x   |		Jump	0x86								; case 0x6
0073 7816       |x   |		Jump	0x8a								; case 0x7
0074 4302       |C   |		.XXX[0x1]
0075 00da       |    |		Load_Top	At_Offset_2
0076 0091 0794  |    |		Action	Push_String_Extended_Indexed,0x794				; "MODE_FIRST"
0078 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0079 00db       |    |		Load_Top	At_Offset_3
007a 00db       |    |		Load_Top	At_Offset_3
007b 00e0       |    |		Load_Encached	Standard_Cache
007c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
007d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007e 00da       |    |		Load_Top	At_Offset_2
007f 00e0       |    |		Load_Encached	Standard_Cache
0080 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0081 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0082 00db       |    |		Load_Top	At_Offset_3
0083 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0084 00db       |    |		Load_Top	At_Offset_3
0085 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0086 e20d       |    |		Load	0x1,0xd
0087 00dc       |    |		Load_Top	At_Offset_4
0088 0267       | g  |		Execute	Discrete,Predecessor
0089 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008a e20d       |    |		Load	0x1,0xd
008b 00dc       |    |		Load_Top	At_Offset_4
008c 0268       | h  |		Execute	Discrete,Successor
008d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008e 0000 0000  |    |		.XXX[0x2]
0090 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0094 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0098 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
009c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00a0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00a4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ac       |    |		.CONST	0x00ac								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab 00e1       |    |		Load_Encached	Boolean_Cache
00ac			BODY_00a8:
00ac 4800       |H   |		Short_Literal	0x0
00ad 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 4801       |H   |		Short_Literal	0x1
00b0 e211       |    |		Load	0x1,0x11
00b1 8219       |    |		Call	0x1,0x19
00b2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b3 00d8       |    |		Load_Top	At_Offset_0
00b4 4801       |H   |		Short_Literal	0x1
00b5 e20e       |    |		Load	0x1,0xe
00b6 821a       |    |		Call	0x1,0x1a
00b7 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b8 00d8       |    |		Load_Top	At_Offset_0
00b9 7005       |p   |		Jump_Nonzero	0xbf
00ba 00d8       |    |		Load_Top	At_Offset_0
00bb 4800       |H   |		Short_Literal	0x0
00bc e210       |    |		Load	0x1,0x10
00bd 8219       |    |		Call	0x1,0x19
00be 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c7       |    |		.CONST	0x00c7								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 e004       |    |		Load	0x0,0x4
00c4 0007       |    |		Action	Break_Optional
00c5 00e1       |    |		Load_Encached	Boolean_Cache
00c6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00c7			BODY_00c0:
00c7 4800       |H   |		Short_Literal	0x0
00c8 a5fd       |    |		Store_Unchecked	0x2,-0x3
00c9 e5ff       |    |		Load	0x2,-0x1
00ca 8005       |    |		Call	0x0,0x5
00cb 003a       | :  |		Store_Top	Access,At_Offset_2
00cc 00cf       |    |		Action	Mark_Auxiliary
00cd 7811       |x   |		Jump	0xdf
00ce 00da       |    |		Load_Top	At_Offset_2
00cf 8006       |    |		Call	0x0,0x6
00d0 821b       |    |		Call	0x1,0x1b
00d1 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00d2 00d9       |    |		Load_Top	At_Offset_1
00d3 6802       |h   |		Jump_Zero	0xd6
00d4 4801       |H   |		Short_Literal	0x1
00d5 a5fd       |    |		Store_Unchecked	0x2,-0x3
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 0f01       |    |		Execute_Immediate	Equal,0x1
00d8 6802       |h   |		Jump_Zero	0xdb
00d9 4800       |H   |		Short_Literal	0x0
00da 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00db 00da       |    |		Load_Top	At_Offset_2
00dc 8007       |    |		Call	0x0,0x7
00dd 003b       | ;  |		Store_Top	Access,At_Offset_3
00de 00c9       |    |		Action	Pop_Auxiliary_Loop
00df 00da       |    |		Load_Top	At_Offset_2
00e0 8008       |    |		Call	0x0,0x8
00e1 00da       |    |		Load_Top	At_Offset_2
00e2 0f00       |    |		Execute_Immediate	Equal,0x0
00e3 0279       | y  |		Execute	Discrete,And
00e4 77e9       |w   |		Jump_Nonzero	0xce
00e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e6 0000 0000  |    |		.XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f5       |    |		.CONST	0x00f5								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0005       |    |		.CONST	0x0005								; Number of locals
00eb			INIT_00e8:
00eb e009       |    |		Load	0x0,0x9
00ec 0007       |    |		Action	Break_Optional
00ed e00a       |    |		Load	0x0,0xa
00ee 0322       | "  |		Declare_Variable	Record
00ef 00d8       |    |		Load_Top	At_Offset_0
00f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f1 00e1       |    |		Load_Encached	Boolean_Cache
00f2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00f3 00e1       |    |		Load_Encached	Boolean_Cache
00f4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00f5			BODY_00e8:
00f5 4800       |H   |		Short_Literal	0x0
00f6 a5fd       |    |		Store_Unchecked	0x2,-0x3
00f7 e5ff       |    |		Load	0x2,-0x1
00f8 800b       |    |		Call	0x0,0xb
00f9 a402       |    |		Store_Unchecked	0x2,0x2
00fa 00cf       |    |		Action	Mark_Auxiliary
00fb 781a       |x   |		Jump	0x116
00fc e402       |    |		Load	0x2,0x2
00fd 800c       |    |		Call	0x0,0xc
00fe e403       |    |		Load	0x2,0x3
00ff 017d       | }  |		Execute	Record,Structure_Write
0100 00db       |    |		Load_Top	At_Offset_3
0101 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0102 800d       |    |		Call	0x0,0xd
0103 e00e       |    |		Load	0x0,0xe
0104 800f       |    |		Call	0x0,0xf
0105 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0106 800d       |    |		Call	0x0,0xd
0107 01df       |    |		Execute	Vector,Equal
0108 6809       |h   |		Jump_Zero	0x112
0109 e5fd       |    |		Load	0x2,-0x3
010a 4801       |H   |		Short_Literal	0x1
010b e403       |    |		Load	0x2,0x3
010c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
010d 8219       |    |		Call	0x1,0x19
010e c5fd       |    |		Store	0x2,-0x3
010f 4801       |H   |		Short_Literal	0x1
0110 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0111 7803       |x   |		Jump	0x115
0112 e402       |    |		Load	0x2,0x2
0113 8010       |    |		Call	0x0,0x10
0114 c402       |    |		Store	0x2,0x2
0115 00c9       |    |		Action	Pop_Auxiliary_Loop
0116 e402       |    |		Load	0x2,0x2
0117 8011       |    |		Call	0x0,0x11
0118 00db       |    |		Load_Top	At_Offset_3
0119 0f00       |    |		Execute_Immediate	Equal,0x0
011a 0279       | y  |		Execute	Discrete,And
011b 77e0       |w   |		Jump_Nonzero	0xfc
011c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0124       | $  |		.CONST	0x0124								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 00e1       |    |		Load_Encached	Boolean_Cache
0124			BODY_0120:
0124 00d8       |    |		Load_Top	At_Offset_0
0125 e5ff       |    |		Load	0x2,-0x1
0126 821c       |    |		Call	0x1,0x1c
0127 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0128 00d8       |    |		Load_Top	At_Offset_0
0129 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 014d       | M  |		.CONST	0x014d								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 000a       |    |		.CONST	0x000a								; Number of locals
0133			INIT_0130:
0133 e012       |    |		Load	0x0,0x12
0134 0007       |    |		Action	Break_Optional
0135 e013       |    |		Load	0x0,0x13
0136 0322       | "  |		Declare_Variable	Record
0137 00d8       |    |		Load_Top	At_Offset_0
0138 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0139 e014       |    |		Load	0x0,0x14
013a 0007       |    |		Action	Break_Optional
013b e015       |    |		Load	0x0,0x15
013c 0322       | "  |		Declare_Variable	Record
013d 00d8       |    |		Load_Top	At_Offset_0
013e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013f 00e1       |    |		Load_Encached	Boolean_Cache
0140 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0141 00e1       |    |		Load_Encached	Boolean_Cache
0142 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0143 00e3       |    |		Load_Encached	Natural_Cache
0144 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0145 e016       |    |		Load	0x0,0x16
0146 02ff       |    |		Declare_Variable	Variant_Record
0147 00d8       |    |		Load_Top	At_Offset_0
0148 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0149 00d8       |    |		Load_Top	At_Offset_0
014a 02ff       |    |		Declare_Variable	Variant_Record
014b 00d8       |    |		Load_Top	At_Offset_0
014c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014d			BODY_0130:
014d 00d9       |    |		Load_Top	At_Offset_1
014e 00ea       |    |		Load_Encached	Null_String_Cache
014f 8017       |    |		Call	0x0,0x17
0150 00d1       |    |		Pop_Control	Pop_Count_1
0151 e00e       |    |		Load	0x0,0xe
0152 a404       |    |		Store_Unchecked	0x2,0x4
0153 e404       |    |		Load	0x2,0x4
0154 800f       |    |		Call	0x0,0xf
0155 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0156 8018       |    |		Call	0x0,0x18
0157 a402       |    |		Store_Unchecked	0x2,0x2
0158 e5ff       |    |		Load	0x2,-0x1
0159 0227       | '  |		Execute	Access,All_Reference
015a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015b 4618       |F   |		Jump_Case	0x19
015c 7818       |x   |		Jump	0x175								; case 0x0
015d 7817       |x   |		Jump	0x175								; case 0x1
015e 7816       |x   |		Jump	0x175								; case 0x2
015f 7815       |x   |		Jump	0x175								; case 0x3
0160 7814       |x   |		Jump	0x175								; case 0x4
0161 78ca       |x   |		Jump	0x22c								; case 0x5
0162 7812       |x   |		Jump	0x175								; case 0x6
0163 7811       |x   |		Jump	0x175								; case 0x7
0164 7810       |x   |		Jump	0x175								; case 0x8
0165 7968       |yh  |		Jump	0x2ce								; case 0x9
0166 7810       |x   |		Jump	0x177								; case 0xa
0167 780d       |x   |		Jump	0x175								; case 0xb
0168 78aa       |x   |		Jump	0x213								; case 0xc
0169 7980       |y   |		Jump	0x2ea								; case 0xd
016a 79be       |y   |		Jump	0x329								; case 0xe
016b 7809       |x   |		Jump	0x175								; case 0xf
016c 7808       |x   |		Jump	0x175								; case 0x10
016d 7965       |ye  |		Jump	0x2d3								; case 0x11
016e 7806       |x   |		Jump	0x175								; case 0x12
016f 7805       |x   |		Jump	0x175								; case 0x13
0170 7804       |x   |		Jump	0x175								; case 0x14
0171 7803       |x   |		Jump	0x175								; case 0x15
0172 7802       |x   |		Jump	0x175								; case 0x16
0173 7801       |x   |		Jump	0x175								; case 0x17
0174 7800       |x   |		Jump	0x175								; case 0x18
0175 e216       |    |		Load	0x1,0x16
0176 0257       | W  |		Execute	Discrete,Raise
0177 4800       |H   |		Short_Literal	0x0
0178 a5fe       |    |		Store_Unchecked	0x2,-0x2
0179 e406       |    |		Load	0x2,0x6
017a e402       |    |		Load	0x2,0x2
017b e5ff       |    |		Load	0x2,-0x1
017c 0227       | '  |		Execute	Access,All_Reference
017d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
017e 821e       |    |		Call	0x1,0x1e
017f c402       |    |		Store	0x2,0x2
0180 c406       |    |		Store	0x2,0x6
0181 e406       |    |		Load	0x2,0x6
0182 7002       |p   |		Jump_Nonzero	0x185
0183 e215       |    |		Load	0x1,0x15
0184 0257       | W  |		Execute	Discrete,Raise
0185 e402       |    |		Load	0x2,0x2
0186 8019       |    |		Call	0x0,0x19
0187 e403       |    |		Load	0x2,0x3
0188 017d       | }  |		Execute	Record,Structure_Write
0189 e5ff       |    |		Load	0x2,-0x1
018a 0227       | '  |		Execute	Access,All_Reference
018b 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
018c 0227       | '  |		Execute	Access,All_Reference
018d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018e 4618       |F   |		Jump_Case	0x19
018f 781a       |x   |		Jump	0x1aa								; case 0x0
0190 7819       |x   |		Jump	0x1aa								; case 0x1
0191 7818       |x   |		Jump	0x1aa								; case 0x2
0192 7817       |x   |		Jump	0x1aa								; case 0x3
0193 7814       |x   |		Jump	0x1a8								; case 0x4
0194 7813       |x   |		Jump	0x1a8								; case 0x5
0195 7812       |x   |		Jump	0x1a8								; case 0x6
0196 7811       |x   |		Jump	0x1a8								; case 0x7
0197 7812       |x   |		Jump	0x1aa								; case 0x8
0198 780f       |x   |		Jump	0x1a8								; case 0x9
0199 780e       |x   |		Jump	0x1a8								; case 0xa
019a 780d       |x   |		Jump	0x1a8								; case 0xb
019b 780c       |x   |		Jump	0x1a8								; case 0xc
019c 780b       |x   |		Jump	0x1a8								; case 0xd
019d 780a       |x   |		Jump	0x1a8								; case 0xe
019e 782a       |x*  |		Jump	0x1c9								; case 0xf
019f 7859       |xY  |		Jump	0x1f9								; case 0x10
01a0 7807       |x   |		Jump	0x1a8								; case 0x11
01a1 783f       |x?  |		Jump	0x1e1								; case 0x12
01a2 7856       |xV  |		Jump	0x1f9								; case 0x13
01a3 7804       |x   |		Jump	0x1a8								; case 0x14
01a4 7803       |x   |		Jump	0x1a8								; case 0x15
01a5 7802       |x   |		Jump	0x1a8								; case 0x16
01a6 7801       |x   |		Jump	0x1a8								; case 0x17
01a7 7800       |x   |		Jump	0x1a8								; case 0x18
01a8 e215       |    |		Load	0x1,0x15
01a9 0257       | W  |		Execute	Discrete,Raise
01aa e406       |    |		Load	0x2,0x6
01ab e404       |    |		Load	0x2,0x4
01ac e5ff       |    |		Load	0x2,-0x1
01ad 0227       | '  |		Execute	Access,All_Reference
01ae 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01af 821f       |    |		Call	0x1,0x1f
01b0 c404       |    |		Store	0x2,0x4
01b1 c406       |    |		Store	0x2,0x6
01b2 e406       |    |		Load	0x2,0x6
01b3 6812       |h   |		Jump_Zero	0x1c6
01b4 e404       |    |		Load	0x2,0x4
01b5 800f       |    |		Call	0x0,0xf
01b6 e405       |    |		Load	0x2,0x5
01b7 017d       | }  |		Execute	Record,Structure_Write
01b8 e402       |    |		Load	0x2,0x2
01b9 801a       |    |		Call	0x0,0x1a
01ba 800d       |    |		Call	0x0,0xd
01bb e405       |    |		Load	0x2,0x5
01bc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01bd 800d       |    |		Call	0x0,0xd
01be 01df       |    |		Execute	Vector,Equal
01bf 6803       |h   |		Jump_Zero	0x1c3
01c0 4801       |H   |		Short_Literal	0x1
01c1 a5fe       |    |		Store_Unchecked	0x2,-0x2
01c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c3 4800       |H   |		Short_Literal	0x0
01c4 a5fe       |    |		Store_Unchecked	0x2,-0x2
01c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c6 4800       |H   |		Short_Literal	0x0
01c7 a5fe       |    |		Store_Unchecked	0x2,-0x2
01c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c9 e406       |    |		Load	0x2,0x6
01ca e407       |    |		Load	0x2,0x7
01cb e5ff       |    |		Load	0x2,-0x1
01cc 0227       | '  |		Execute	Access,All_Reference
01cd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ce 8220       |    |		Call	0x1,0x20
01cf c407       |    |		Store	0x2,0x7
01d0 c406       |    |		Store	0x2,0x6
01d1 e406       |    |		Load	0x2,0x6
01d2 680b       |h   |		Jump_Zero	0x1de
01d3 e402       |    |		Load	0x2,0x2
01d4 801b       |    |		Call	0x0,0x1b
01d5 e407       |    |		Load	0x2,0x7
01d6 027f       |    |		Execute	Discrete,Equal
01d7 6803       |h   |		Jump_Zero	0x1db
01d8 4801       |H   |		Short_Literal	0x1
01d9 a5fe       |    |		Store_Unchecked	0x2,-0x2
01da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01db 4800       |H   |		Short_Literal	0x0
01dc a5fe       |    |		Store_Unchecked	0x2,-0x2
01dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01de 4800       |H   |		Short_Literal	0x0
01df a5fe       |    |		Store_Unchecked	0x2,-0x2
01e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e1 e406       |    |		Load	0x2,0x6
01e2 00db       |    |		Load_Top	At_Offset_3
01e3 e5ff       |    |		Load	0x2,-0x1
01e4 0227       | '  |		Execute	Access,All_Reference
01e5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01e6 8221       | !  |		Call	0x1,0x21
01e7 c408       |    |		Store	0x2,0x8
01e8 c406       |    |		Store	0x2,0x6
01e9 e406       |    |		Load	0x2,0x6
01ea 680b       |h   |		Jump_Zero	0x1f6
01eb e402       |    |		Load	0x2,0x2
01ec 801c       |    |		Call	0x0,0x1c
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 027f       |    |		Execute	Discrete,Equal
01ef 6803       |h   |		Jump_Zero	0x1f3
01f0 4801       |H   |		Short_Literal	0x1
01f1 a5fe       |    |		Store_Unchecked	0x2,-0x2
01f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f3 4800       |H   |		Short_Literal	0x0
01f4 a5fe       |    |		Store_Unchecked	0x2,-0x2
01f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f6 4800       |H   |		Short_Literal	0x0
01f7 a5fe       |    |		Store_Unchecked	0x2,-0x2
01f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f9 e406       |    |		Load	0x2,0x6
01fa 00da       |    |		Load_Top	At_Offset_2
01fb e5ff       |    |		Load	0x2,-0x1
01fc 0227       | '  |		Execute	Access,All_Reference
01fd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01fe 8222       | "  |		Call	0x1,0x22
01ff 00d1       |    |		Pop_Control	Pop_Count_1
0200 c406       |    |		Store	0x2,0x6
0201 e406       |    |		Load	0x2,0x6
0202 680d       |h   |		Jump_Zero	0x210
0203 e402       |    |		Load	0x2,0x2
0204 801a       |    |		Call	0x0,0x1a
0205 800d       |    |		Call	0x0,0xd
0206 00da       |    |		Load_Top	At_Offset_2
0207 800d       |    |		Call	0x0,0xd
0208 01df       |    |		Execute	Vector,Equal
0209 6803       |h   |		Jump_Zero	0x20d
020a 4801       |H   |		Short_Literal	0x1
020b a5fe       |    |		Store_Unchecked	0x2,-0x2
020c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020d 4800       |H   |		Short_Literal	0x0
020e a5fe       |    |		Store_Unchecked	0x2,-0x2
020f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0210 4800       |H   |		Short_Literal	0x0
0211 a5fe       |    |		Store_Unchecked	0x2,-0x2
0212 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0213 e406       |    |		Load	0x2,0x6
0214 e5ff       |    |		Load	0x2,-0x1
0215 0227       | '  |		Execute	Access,All_Reference
0216 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0217 821c       |    |		Call	0x1,0x1c
0218 c406       |    |		Store	0x2,0x6
0219 e406       |    |		Load	0x2,0x6
021a 680e       |h   |		Jump_Zero	0x229
021b e406       |    |		Load	0x2,0x6
021c e5ff       |    |		Load	0x2,-0x1
021d 0227       | '  |		Execute	Access,All_Reference
021e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
021f 821c       |    |		Call	0x1,0x1c
0220 c406       |    |		Store	0x2,0x6
0221 e406       |    |		Load	0x2,0x6
0222 6803       |h   |		Jump_Zero	0x226
0223 4801       |H   |		Short_Literal	0x1
0224 a5fe       |    |		Store_Unchecked	0x2,-0x2
0225 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0226 4800       |H   |		Short_Literal	0x0
0227 a5fe       |    |		Store_Unchecked	0x2,-0x2
0228 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0229 4800       |H   |		Short_Literal	0x0
022a a5fe       |    |		Store_Unchecked	0x2,-0x2
022b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022c e5ff       |    |		Load	0x2,-0x1
022d 0227       | '  |		Execute	Access,All_Reference
022e 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
022f e01d       |    |		Load	0x0,0x1d
0230 801e       |    |		Call	0x0,0x1e
0231 4801       |H   |		Short_Literal	0x1
0232 e01f       |    |		Load	0x0,0x1f
0233 01d5       |    |		Execute	Vector,Field_Reference
0234 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0235 027f       |    |		Execute	Discrete,Equal
0236 6894       |h   |		Jump_Zero	0x2cb
0237 e5ff       |    |		Load	0x2,-0x1
0238 0227       | '  |		Execute	Access,All_Reference
0239 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
023a 022d       | -  |		Execute	Access,Is_Null
023b 4802       |H   |		Short_Literal	0x2
023c e01f       |    |		Load	0x0,0x1f
023d 01d5       |    |		Execute	Vector,Field_Reference
023e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
023f 0f32       | 2  |		Execute_Immediate	Equal,0x32
0240 0279       | y  |		Execute	Discrete,And
0241 6803       |h   |		Jump_Zero	0x245
0242 4801       |H   |		Short_Literal	0x1
0243 a5fe       |    |		Store_Unchecked	0x2,-0x2
0244 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0245 e5ff       |    |		Load	0x2,-0x1
0246 0227       | '  |		Execute	Access,All_Reference
0247 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0248 687f       |h   |		Jump_Zero	0x2c8
0249 4802       |H   |		Short_Literal	0x2
024a e01f       |    |		Load	0x0,0x1f
024b 01d5       |    |		Execute	Vector,Field_Reference
024c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024d 0f20       |    |		Execute_Immediate	Equal,0x20
024e 684d       |hM  |		Jump_Zero	0x29c
024f e5ff       |    |		Load	0x2,-0x1
0250 0227       | '  |		Execute	Access,All_Reference
0251 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0252 0227       | '  |		Execute	Access,All_Reference
0253 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0254 0b06       |    |		Execute_Immediate	Case_Compare,0x6
0255 7003       |p   |		Jump_Nonzero	0x259
0256 680c       |h   |		Jump_Zero	0x263
0257 e215       |    |		Load	0x1,0x15
0258 0257       | W  |		Execute	Discrete,Raise
0259 00d1       |    |		Pop_Control	Pop_Count_1
025a 00d8       |    |		Load_Top	At_Offset_0
025b e5ff       |    |		Load	0x2,-0x1
025c 0227       | '  |		Execute	Access,All_Reference
025d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
025e 0227       | '  |		Execute	Access,All_Reference
025f 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0260 8020       |    |		Call	0x0,0x20
0261 00d1       |    |		Pop_Control	Pop_Count_1
0262 7805       |x   |		Jump	0x268
0263 00d8       |    |		Load_Top	At_Offset_0
0264 e021       | !  |		Load	0x0,0x21
0265 8022       | "  |		Call	0x0,0x22
0266 8020       |    |		Call	0x0,0x20
0267 00d1       |    |		Pop_Control	Pop_Count_1
0268 00d8       |    |		Load_Top	At_Offset_0
0269 e023       | #  |		Load	0x0,0x23
026a 801e       |    |		Call	0x0,0x1e
026b 4802       |H   |		Short_Literal	0x2
026c e01f       |    |		Load	0x0,0x1f
026d 01d5       |    |		Execute	Vector,Field_Reference
026e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026f 027f       |    |		Execute	Discrete,Equal
0270 6828       |h(  |		Jump_Zero	0x299
0271 e5ff       |    |		Load	0x2,-0x1
0272 0227       | '  |		Execute	Access,All_Reference
0273 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0274 022d       | -  |		Execute	Access,Is_Null
0275 4803       |H   |		Short_Literal	0x3
0276 e01f       |    |		Load	0x0,0x1f
0277 01d5       |    |		Execute	Vector,Field_Reference
0278 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0279 0f32       | 2  |		Execute_Immediate	Equal,0x32
027a 0279       | y  |		Execute	Discrete,And
027b 6803       |h   |		Jump_Zero	0x27f
027c 4801       |H   |		Short_Literal	0x1
027d a5fe       |    |		Store_Unchecked	0x2,-0x2
027e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
027f e5ff       |    |		Load	0x2,-0x1
0280 0227       | '  |		Execute	Access,All_Reference
0281 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0282 6813       |h   |		Jump_Zero	0x296
0283 e5ff       |    |		Load	0x2,-0x1
0284 0227       | '  |		Execute	Access,All_Reference
0285 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0286 0227       | '  |		Execute	Access,All_Reference
0287 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0288 e023       | #  |		Load	0x0,0x23
0289 801e       |    |		Call	0x0,0x1e
028a 4803       |H   |		Short_Literal	0x3
028b e01f       |    |		Load	0x0,0x1f
028c 01d5       |    |		Execute	Vector,Field_Reference
028d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028e 027f       |    |		Execute	Discrete,Equal
028f 6803       |h   |		Jump_Zero	0x293
0290 4801       |H   |		Short_Literal	0x1
0291 a5fe       |    |		Store_Unchecked	0x2,-0x2
0292 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0293 4800       |H   |		Short_Literal	0x0
0294 a5fe       |    |		Store_Unchecked	0x2,-0x2
0295 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0296 4800       |H   |		Short_Literal	0x0
0297 a5fe       |    |		Store_Unchecked	0x2,-0x2
0298 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0299 4800       |H   |		Short_Literal	0x0
029a a5fe       |    |		Store_Unchecked	0x2,-0x2
029b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029c 4802       |H   |		Short_Literal	0x2
029d e01f       |    |		Load	0x0,0x1f
029e 01d5       |    |		Execute	Vector,Field_Reference
029f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a0 0f22       | "  |		Execute_Immediate	Equal,0x22
02a1 6823       |h#  |		Jump_Zero	0x2c5
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 0227       | '  |		Execute	Access,All_Reference
02a4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a5 0227       | '  |		Execute	Access,All_Reference
02a6 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
02a7 e024       | $  |		Load	0x0,0x24
02a8 801e       |    |		Call	0x0,0x1e
02a9 4802       |H   |		Short_Literal	0x2
02aa e01f       |    |		Load	0x0,0x1f
02ab 01d5       |    |		Execute	Vector,Field_Reference
02ac 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ad 027f       |    |		Execute	Discrete,Equal
02ae 6813       |h   |		Jump_Zero	0x2c2
02af e5ff       |    |		Load	0x2,-0x1
02b0 0227       | '  |		Execute	Access,All_Reference
02b1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b2 0227       | '  |		Execute	Access,All_Reference
02b3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b4 022d       | -  |		Execute	Access,Is_Null
02b5 4803       |H   |		Short_Literal	0x3
02b6 e01f       |    |		Load	0x0,0x1f
02b7 01d5       |    |		Execute	Vector,Field_Reference
02b8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b9 0f32       | 2  |		Execute_Immediate	Equal,0x32
02ba 0279       | y  |		Execute	Discrete,And
02bb 6803       |h   |		Jump_Zero	0x2bf
02bc 4801       |H   |		Short_Literal	0x1
02bd a5fe       |    |		Store_Unchecked	0x2,-0x2
02be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02bf 4800       |H   |		Short_Literal	0x0
02c0 a5fe       |    |		Store_Unchecked	0x2,-0x2
02c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c2 4800       |H   |		Short_Literal	0x0
02c3 a5fe       |    |		Store_Unchecked	0x2,-0x2
02c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c5 4800       |H   |		Short_Literal	0x0
02c6 a5fe       |    |		Store_Unchecked	0x2,-0x2
02c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c8 4800       |H   |		Short_Literal	0x0
02c9 a5fe       |    |		Store_Unchecked	0x2,-0x2
02ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02cb 4800       |H   |		Short_Literal	0x0
02cc a5fe       |    |		Store_Unchecked	0x2,-0x2
02cd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ce e5fe       |    |		Load	0x2,-0x2
02cf e5ff       |    |		Load	0x2,-0x1
02d0 821d       |    |		Call	0x1,0x1d
02d1 c5fe       |    |		Store	0x2,-0x2
02d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d3 e406       |    |		Load	0x2,0x6
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 0227       | '  |		Execute	Access,All_Reference
02d6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02d7 821c       |    |		Call	0x1,0x1c
02d8 c406       |    |		Store	0x2,0x6
02d9 e406       |    |		Load	0x2,0x6
02da 680c       |h   |		Jump_Zero	0x2e7
02db e406       |    |		Load	0x2,0x6
02dc 4801       |H   |		Short_Literal	0x1
02dd e5ff       |    |		Load	0x2,-0x1
02de 0227       | '  |		Execute	Access,All_Reference
02df 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02e0 0227       | '  |		Execute	Access,All_Reference
02e1 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
02e2 8219       |    |		Call	0x1,0x19
02e3 c406       |    |		Store	0x2,0x6
02e4 4801       |H   |		Short_Literal	0x1
02e5 a5fe       |    |		Store_Unchecked	0x2,-0x2
02e6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e7 4800       |H   |		Short_Literal	0x0
02e8 a5fe       |    |		Store_Unchecked	0x2,-0x2
02e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ea e5ff       |    |		Load	0x2,-0x1
02eb 0227       | '  |		Execute	Access,All_Reference
02ec 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02ed 0227       | '  |		Execute	Access,All_Reference
02ee 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ef 4618       |F   |		Jump_Case	0x19
02f0 7825       |x%  |		Jump	0x316								; case 0x0
02f1 7824       |x$  |		Jump	0x316								; case 0x1
02f2 7823       |x#  |		Jump	0x316								; case 0x2
02f3 7822       |x"  |		Jump	0x316								; case 0x3
02f4 7814       |x   |		Jump	0x309								; case 0x4
02f5 7813       |x   |		Jump	0x309								; case 0x5
02f6 7812       |x   |		Jump	0x309								; case 0x6
02f7 781e       |x   |		Jump	0x316								; case 0x7
02f8 7810       |x   |		Jump	0x309								; case 0x8
02f9 780f       |x   |		Jump	0x309								; case 0x9
02fa 780e       |x   |		Jump	0x309								; case 0xa
02fb 780d       |x   |		Jump	0x309								; case 0xb
02fc 780c       |x   |		Jump	0x309								; case 0xc
02fd 780b       |x   |		Jump	0x309								; case 0xd
02fe 780a       |x   |		Jump	0x309								; case 0xe
02ff 7809       |x   |		Jump	0x309								; case 0xf
0300 7808       |x   |		Jump	0x309								; case 0x10
0301 7807       |x   |		Jump	0x309								; case 0x11
0302 7806       |x   |		Jump	0x309								; case 0x12
0303 7807       |x   |		Jump	0x30b								; case 0x13
0304 7804       |x   |		Jump	0x309								; case 0x14
0305 7803       |x   |		Jump	0x309								; case 0x15
0306 7802       |x   |		Jump	0x309								; case 0x16
0307 7801       |x   |		Jump	0x309								; case 0x17
0308 7800       |x   |		Jump	0x309								; case 0x18
0309 e213       |    |		Load	0x1,0x13
030a 0257       | W  |		Execute	Discrete,Raise
030b e5ff       |    |		Load	0x2,-0x1
030c 0227       | '  |		Execute	Access,All_Reference
030d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
030e 0227       | '  |		Execute	Access,All_Reference
030f 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0310 800d       |    |		Call	0x0,0xd
0311 e025       | %  |		Load	0x0,0x25
0312 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0313 4801       |H   |		Short_Literal	0x1
0314 a5fe       |    |		Store_Unchecked	0x2,-0x2
0315 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0316 e406       |    |		Load	0x2,0x6
0317 e402       |    |		Load	0x2,0x2
0318 e5ff       |    |		Load	0x2,-0x1
0319 0227       | '  |		Execute	Access,All_Reference
031a 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
031b 821e       |    |		Call	0x1,0x1e
031c c402       |    |		Store	0x2,0x2
031d c406       |    |		Store	0x2,0x6
031e e402       |    |		Load	0x2,0x2
031f 8019       |    |		Call	0x0,0x19
0320 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0321 0227       | '  |		Execute	Access,All_Reference
0322 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0323 800d       |    |		Call	0x0,0xd
0324 e025       | %  |		Load	0x0,0x25
0325 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0326 4801       |H   |		Short_Literal	0x1
0327 a5fe       |    |		Store_Unchecked	0x2,-0x2
0328 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0329 0092 0796  |    |		Action	Push_String_Extended,0x796					; "Le jeu est termine."
032b e025       | %  |		Load	0x0,0x25
032c 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
032d 4801       |H   |		Short_Literal	0x1
032e a5fe       |    |		Store_Unchecked	0x2,-0x2
032f e214       |    |		Load	0x1,0x14
0330 0257       | W  |		Execute	Discrete,Raise
0331 0000 0000  |    |		.BLANK	0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 035b       | [  |		.CONST	0x035b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 000d       |    |		.CONST	0x000d								; Number of locals
033b			INIT_0338:
033b e012       |    |		Load	0x0,0x12
033c 0007       |    |		Action	Break_Optional
033d e013       |    |		Load	0x0,0x13
033e 0322       | "  |		Declare_Variable	Record
033f 00d8       |    |		Load_Top	At_Offset_0
0340 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0341 e012       |    |		Load	0x0,0x12
0342 0007       |    |		Action	Break_Optional
0343 e013       |    |		Load	0x0,0x13
0344 0322       | "  |		Declare_Variable	Record
0345 00d8       |    |		Load_Top	At_Offset_0
0346 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0347 e014       |    |		Load	0x0,0x14
0348 0007       |    |		Action	Break_Optional
0349 00d8       |    |		Load_Top	At_Offset_0
034a 0007       |    |		Action	Break_Optional
034b e015       |    |		Load	0x0,0x15
034c 0322       | "  |		Declare_Variable	Record
034d 00d8       |    |		Load_Top	At_Offset_0
034e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
034f 00e1       |    |		Load_Encached	Boolean_Cache
0350 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0351 00e1       |    |		Load_Encached	Boolean_Cache
0352 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0353 00e3       |    |		Load_Encached	Natural_Cache
0354 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0355 e016       |    |		Load	0x0,0x16
0356 02ff       |    |		Declare_Variable	Variant_Record
0357 00d8       |    |		Load_Top	At_Offset_0
0358 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0359 e026       | &  |		Load	0x0,0x26
035a 0007       |    |		Action	Break_Optional
035b			BODY_0338:
035b 00d9       |    |		Load_Top	At_Offset_1
035c 00ea       |    |		Load_Encached	Null_String_Cache
035d 8017       |    |		Call	0x0,0x17
035e 00d1       |    |		Pop_Control	Pop_Count_1
035f e00e       |    |		Load	0x0,0xe
0360 a406       |    |		Store_Unchecked	0x2,0x6
0361 e406       |    |		Load	0x2,0x6
0362 800f       |    |		Call	0x0,0xf
0363 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0364 8018       |    |		Call	0x0,0x18
0365 a402       |    |		Store_Unchecked	0x2,0x2
0366 e406       |    |		Load	0x2,0x6
0367 800f       |    |		Call	0x0,0xf
0368 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0369 8018       |    |		Call	0x0,0x18
036a a404       |    |		Store_Unchecked	0x2,0x4
036b e00e       |    |		Load	0x0,0xe
036c a407       |    |		Store_Unchecked	0x2,0x7
036d e5ff       |    |		Load	0x2,-0x1
036e 0227       | '  |		Execute	Access,All_Reference
036f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0370 0227       | '  |		Execute	Access,All_Reference
0371 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0372 0b07       |    |		Execute_Immediate	Case_Compare,0x7
0373 7006       |p   |		Jump_Nonzero	0x37a
0374 4800       |H   |		Short_Literal	0x0
0375 4803       |H   |		Short_Literal	0x3
0376 0262       | b  |		Execute	Discrete,In_Range
0377 7160       |q`  |		Jump_Nonzero	0x4d8
0378 e212       |    |		Load	0x1,0x12
0379 0257       | W  |		Execute	Discrete,Raise
037a 00d1       |    |		Pop_Control	Pop_Count_1
037b e409       |    |		Load	0x2,0x9
037c e402       |    |		Load	0x2,0x2
037d e5ff       |    |		Load	0x2,-0x1
037e 0227       | '  |		Execute	Access,All_Reference
037f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0380 821e       |    |		Call	0x1,0x1e
0381 c402       |    |		Store	0x2,0x2
0382 c409       |    |		Store	0x2,0x9
0383 e402       |    |		Load	0x2,0x2
0384 8019       |    |		Call	0x0,0x19
0385 e403       |    |		Load	0x2,0x3
0386 017d       | }  |		Execute	Record,Structure_Write
0387 e5ff       |    |		Load	0x2,-0x1
0388 0227       | '  |		Execute	Access,All_Reference
0389 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
038a 0227       | '  |		Execute	Access,All_Reference
038b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
038c 4618       |F   |		Jump_Case	0x19
038d 7846       |xF  |		Jump	0x3d4								; case 0x0
038e 7845       |xE  |		Jump	0x3d4								; case 0x1
038f 7844       |xD  |		Jump	0x3d4								; case 0x2
0390 7843       |xC  |		Jump	0x3d4								; case 0x3
0391 7814       |x   |		Jump	0x3a6								; case 0x4
0392 7813       |x   |		Jump	0x3a6								; case 0x5
0393 7812       |x   |		Jump	0x3a6								; case 0x6
0394 7814       |x   |		Jump	0x3a9								; case 0x7
0395 7825       |x%  |		Jump	0x3bb								; case 0x8
0396 780f       |x   |		Jump	0x3a6								; case 0x9
0397 780e       |x   |		Jump	0x3a6								; case 0xa
0398 780d       |x   |		Jump	0x3a6								; case 0xb
0399 780c       |x   |		Jump	0x3a6								; case 0xc
039a 780b       |x   |		Jump	0x3a6								; case 0xd
039b 780a       |x   |		Jump	0x3a6								; case 0xe
039c 786e       |xn  |		Jump	0x40b								; case 0xf
039d 789d       |x   |		Jump	0x43b								; case 0x10
039e 7807       |x   |		Jump	0x3a6								; case 0x11
039f 7883       |x   |		Jump	0x423								; case 0x12
03a0 789a       |x   |		Jump	0x43b								; case 0x13
03a1 78cc       |x   |		Jump	0x46e								; case 0x14
03a2 78cb       |x   |		Jump	0x46e								; case 0x15
03a3 78ca       |x   |		Jump	0x46e								; case 0x16
03a4 78c9       |x   |		Jump	0x46e								; case 0x17
03a5 7800       |x   |		Jump	0x3a6								; case 0x18
03a6 4800       |H   |		Short_Literal	0x0
03a7 a5fe       |    |		Store_Unchecked	0x2,-0x2
03a8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a9 e409       |    |		Load	0x2,0x9
03aa e404       |    |		Load	0x2,0x4
03ab e5ff       |    |		Load	0x2,-0x1
03ac 0227       | '  |		Execute	Access,All_Reference
03ad 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03ae 821e       |    |		Call	0x1,0x1e
03af c404       |    |		Store	0x2,0x4
03b0 c409       |    |		Store	0x2,0x9
03b1 e409       |    |		Load	0x2,0x9
03b2 6ac8       |j   |		Jump_Zero	0x67b
03b3 e402       |    |		Load	0x2,0x2
03b4 e404       |    |		Load	0x2,0x4
03b5 8019       |    |		Call	0x0,0x19
03b6 8027       | '  |		Call	0x0,0x27
03b7 c402       |    |		Store	0x2,0x2
03b8 4801       |H   |		Short_Literal	0x1
03b9 a5fe       |    |		Store_Unchecked	0x2,-0x2
03ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03bb e409       |    |		Load	0x2,0x9
03bc e406       |    |		Load	0x2,0x6
03bd e5ff       |    |		Load	0x2,-0x1
03be 0227       | '  |		Execute	Access,All_Reference
03bf 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03c0 821f       |    |		Call	0x1,0x1f
03c1 c406       |    |		Store	0x2,0x6
03c2 c409       |    |		Store	0x2,0x9
03c3 e409       |    |		Load	0x2,0x9
03c4 680c       |h   |		Jump_Zero	0x3d1
03c5 e403       |    |		Load	0x2,0x3
03c6 e406       |    |		Load	0x2,0x6
03c7 8022       | "  |		Call	0x0,0x22
03c8 8028       | (  |		Call	0x0,0x28
03c9 00d1       |    |		Pop_Control	Pop_Count_1
03ca e402       |    |		Load	0x2,0x2
03cb e403       |    |		Load	0x2,0x3
03cc 8027       | '  |		Call	0x0,0x27
03cd c402       |    |		Store	0x2,0x2
03ce 4801       |H   |		Short_Literal	0x1
03cf a5fe       |    |		Store_Unchecked	0x2,-0x2
03d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d1 4800       |H   |		Short_Literal	0x0
03d2 a5fe       |    |		Store_Unchecked	0x2,-0x2
03d3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d4 e5ff       |    |		Load	0x2,-0x1
03d5 0227       | '  |		Execute	Access,All_Reference
03d6 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03d7 0227       | '  |		Execute	Access,All_Reference
03d8 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
03d9 800d       |    |		Call	0x0,0xd
03da 01db       |    |		Execute	Vector,Length
03db 701f       |p   |		Jump_Nonzero	0x3fb
03dc e409       |    |		Load	0x2,0x9
03dd e406       |    |		Load	0x2,0x6
03de e5ff       |    |		Load	0x2,-0x1
03df 0227       | '  |		Execute	Access,All_Reference
03e0 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03e1 821f       |    |		Call	0x1,0x1f
03e2 c406       |    |		Store	0x2,0x6
03e3 c409       |    |		Store	0x2,0x9
03e4 e402       |    |		Load	0x2,0x2
03e5 8019       |    |		Call	0x0,0x19
03e6 e403       |    |		Load	0x2,0x3
03e7 017d       | }  |		Execute	Record,Structure_Write
03e8 e403       |    |		Load	0x2,0x3
03e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ea e406       |    |		Load	0x2,0x6
03eb 8022       | "  |		Call	0x0,0x22
03ec e403       |    |		Load	0x2,0x3
03ed 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ee 0227       | '  |		Execute	Access,All_Reference
03ef 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
03f0 8029       | )  |		Call	0x0,0x29
03f1 802a       | *  |		Call	0x0,0x2a
03f2 e403       |    |		Load	0x2,0x3
03f3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03f4 e402       |    |		Load	0x2,0x2
03f5 e403       |    |		Load	0x2,0x3
03f6 8027       | '  |		Call	0x0,0x27
03f7 c402       |    |		Store	0x2,0x2
03f8 4801       |H   |		Short_Literal	0x1
03f9 a5fe       |    |		Store_Unchecked	0x2,-0x2
03fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fb e409       |    |		Load	0x2,0x9
03fc e404       |    |		Load	0x2,0x4
03fd e5ff       |    |		Load	0x2,-0x1
03fe 0227       | '  |		Execute	Access,All_Reference
03ff 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0400 821e       |    |		Call	0x1,0x1e
0401 c404       |    |		Store	0x2,0x4
0402 c409       |    |		Store	0x2,0x9
0403 e402       |    |		Load	0x2,0x2
0404 e404       |    |		Load	0x2,0x4
0405 8019       |    |		Call	0x0,0x19
0406 8027       | '  |		Call	0x0,0x27
0407 c402       |    |		Store	0x2,0x2
0408 4801       |H   |		Short_Literal	0x1
0409 a5fe       |    |		Store_Unchecked	0x2,-0x2
040a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
040b e409       |    |		Load	0x2,0x9
040c e40a       |    |		Load	0x2,0xa
040d e5ff       |    |		Load	0x2,-0x1
040e 0227       | '  |		Execute	Access,All_Reference
040f 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0410 8220       |    |		Call	0x1,0x20
0411 c40a       |    |		Store	0x2,0xa
0412 c409       |    |		Store	0x2,0x9
0413 e409       |    |		Load	0x2,0x9
0414 680b       |h   |		Jump_Zero	0x420
0415 e403       |    |		Load	0x2,0x3
0416 e40a       |    |		Load	0x2,0xa
0417 802b       | +  |		Call	0x0,0x2b
0418 00d1       |    |		Pop_Control	Pop_Count_1
0419 e402       |    |		Load	0x2,0x2
041a e403       |    |		Load	0x2,0x3
041b 8027       | '  |		Call	0x0,0x27
041c c402       |    |		Store	0x2,0x2
041d 4801       |H   |		Short_Literal	0x1
041e a5fe       |    |		Store_Unchecked	0x2,-0x2
041f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0420 4800       |H   |		Short_Literal	0x0
0421 a5fe       |    |		Store_Unchecked	0x2,-0x2
0422 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0423 e409       |    |		Load	0x2,0x9
0424 00db       |    |		Load_Top	At_Offset_3
0425 e5ff       |    |		Load	0x2,-0x1
0426 0227       | '  |		Execute	Access,All_Reference
0427 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0428 8221       | !  |		Call	0x1,0x21
0429 c40b       |    |		Store	0x2,0xb
042a c409       |    |		Store	0x2,0x9
042b e409       |    |		Load	0x2,0x9
042c 680b       |h   |		Jump_Zero	0x438
042d e403       |    |		Load	0x2,0x3
042e 00db       |    |		Load_Top	At_Offset_3
042f 802c       | ,  |		Call	0x0,0x2c
0430 00d1       |    |		Pop_Control	Pop_Count_1
0431 e402       |    |		Load	0x2,0x2
0432 e403       |    |		Load	0x2,0x3
0433 8027       | '  |		Call	0x0,0x27
0434 c402       |    |		Store	0x2,0x2
0435 4801       |H   |		Short_Literal	0x1
0436 a5fe       |    |		Store_Unchecked	0x2,-0x2
0437 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0438 4800       |H   |		Short_Literal	0x0
0439 a5fe       |    |		Store_Unchecked	0x2,-0x2
043a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
043b e409       |    |		Load	0x2,0x9
043c 00da       |    |		Load_Top	At_Offset_2
043d e5ff       |    |		Load	0x2,-0x1
043e 0227       | '  |		Execute	Access,All_Reference
043f 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0440 8222       | "  |		Call	0x1,0x22
0441 00d1       |    |		Pop_Control	Pop_Count_1
0442 c409       |    |		Store	0x2,0x9
0443 e409       |    |		Load	0x2,0x9
0444 6826       |h&  |		Jump_Zero	0x46b
0445 e5ff       |    |		Load	0x2,-0x1
0446 0227       | '  |		Execute	Access,All_Reference
0447 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0448 0227       | '  |		Execute	Access,All_Reference
0449 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
044a 0f10       |    |		Execute_Immediate	Equal,0x10
044b 6814       |h   |		Jump_Zero	0x460
044c 00d9       |    |		Load_Top	At_Offset_1
044d e403       |    |		Load	0x2,0x3
044e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044f 0227       | '  |		Execute	Access,All_Reference
0450 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0451 802d       | -  |		Call	0x0,0x2d
0452 680b       |h   |		Jump_Zero	0x45e
0453 e403       |    |		Load	0x2,0x3
0454 00da       |    |		Load_Top	At_Offset_2
0455 8028       | (  |		Call	0x0,0x28
0456 00d1       |    |		Pop_Control	Pop_Count_1
0457 e402       |    |		Load	0x2,0x2
0458 e403       |    |		Load	0x2,0x3
0459 8027       | '  |		Call	0x0,0x27
045a c402       |    |		Store	0x2,0x2
045b 4801       |H   |		Short_Literal	0x1
045c a5fe       |    |		Store_Unchecked	0x2,-0x2
045d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
045e e212       |    |		Load	0x1,0x12
045f 0257       | W  |		Execute	Discrete,Raise
0460 e403       |    |		Load	0x2,0x3
0461 00da       |    |		Load_Top	At_Offset_2
0462 8028       | (  |		Call	0x0,0x28
0463 00d1       |    |		Pop_Control	Pop_Count_1
0464 e402       |    |		Load	0x2,0x2
0465 e403       |    |		Load	0x2,0x3
0466 8027       | '  |		Call	0x0,0x27
0467 c402       |    |		Store	0x2,0x2
0468 4801       |H   |		Short_Literal	0x1
0469 a5fe       |    |		Store_Unchecked	0x2,-0x2
046a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
046b 4800       |H   |		Short_Literal	0x0
046c a5fe       |    |		Store_Unchecked	0x2,-0x2
046d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
046e e409       |    |		Load	0x2,0x9
046f 00db       |    |		Load_Top	At_Offset_3
0470 00da       |    |		Load_Top	At_Offset_2
0471 e5ff       |    |		Load	0x2,-0x1
0472 0227       | '  |		Execute	Access,All_Reference
0473 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0474 8223       | #  |		Call	0x1,0x23
0475 005b       | [  |		Store_Top	Discrete,At_Offset_3
0476 c40b       |    |		Store	0x2,0xb
0477 c409       |    |		Store	0x2,0x9
0478 e409       |    |		Load	0x2,0x9
0479 685c       |h\  |		Jump_Zero	0x4d6
047a 4801       |H   |		Short_Literal	0x1
047b a5fe       |    |		Store_Unchecked	0x2,-0x2
047c 00d8       |    |		Load_Top	At_Offset_0
047d 4618       |F   |		Jump_Case	0x19
047e 7818       |x   |		Jump	0x497								; case 0x0
047f 7817       |x   |		Jump	0x497								; case 0x1
0480 7816       |x   |		Jump	0x497								; case 0x2
0481 7815       |x   |		Jump	0x497								; case 0x3
0482 7814       |x   |		Jump	0x497								; case 0x4
0483 7813       |x   |		Jump	0x497								; case 0x5
0484 7812       |x   |		Jump	0x497								; case 0x6
0485 7811       |x   |		Jump	0x497								; case 0x7
0486 7810       |x   |		Jump	0x497								; case 0x8
0487 780f       |x   |		Jump	0x497								; case 0x9
0488 780e       |x   |		Jump	0x497								; case 0xa
0489 780d       |x   |		Jump	0x497								; case 0xb
048a 780c       |x   |		Jump	0x497								; case 0xc
048b 780b       |x   |		Jump	0x497								; case 0xd
048c 780a       |x   |		Jump	0x497								; case 0xe
048d 7809       |x   |		Jump	0x497								; case 0xf
048e 7808       |x   |		Jump	0x497								; case 0x10
048f 7807       |x   |		Jump	0x497								; case 0x11
0490 7806       |x   |		Jump	0x497								; case 0x12
0491 7805       |x   |		Jump	0x497								; case 0x13
0492 7807       |x   |		Jump	0x49a								; case 0x14
0493 7813       |x   |		Jump	0x4a7								; case 0x15
0494 781f       |x   |		Jump	0x4b4								; case 0x16
0495 782b       |x+  |		Jump	0x4c1								; case 0x17
0496 7800       |x   |		Jump	0x497								; case 0x18
0497 4800       |H   |		Short_Literal	0x0
0498 a5fe       |    |		Store_Unchecked	0x2,-0x2
0499 7833       |x3  |		Jump	0x4cd
049a e403       |    |		Load	0x2,0x3
049b e402       |    |		Load	0x2,0x2
049c 801c       |    |		Call	0x0,0x1c
049d e40b       |    |		Load	0x2,0xb
049e 0273       | s  |		Execute	Discrete,Plus
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 00e3       |    |		Load_Encached	Natural_Cache
04a1 0260       | `  |		Execute	Discrete,In_Type
04a2 7001       |p   |		Jump_Nonzero	0x4a4
04a3 0801       |    |		Execute_Immediate	Raise,0x1
04a4 802c       | ,  |		Call	0x0,0x2c
04a5 00d1       |    |		Pop_Control	Pop_Count_1
04a6 7826       |x&  |		Jump	0x4cd
04a7 e403       |    |		Load	0x2,0x3
04a8 e402       |    |		Load	0x2,0x2
04a9 801c       |    |		Call	0x0,0x1c
04aa e40b       |    |		Load	0x2,0xb
04ab 0272       | r  |		Execute	Discrete,Minus
04ac 00d8       |    |		Load_Top	At_Offset_0
04ad 00e3       |    |		Load_Encached	Natural_Cache
04ae 0260       | `  |		Execute	Discrete,In_Type
04af 7001       |p   |		Jump_Nonzero	0x4b1
04b0 0801       |    |		Execute_Immediate	Raise,0x1
04b1 802c       | ,  |		Call	0x0,0x2c
04b2 00d1       |    |		Pop_Control	Pop_Count_1
04b3 7819       |x   |		Jump	0x4cd
04b4 e403       |    |		Load	0x2,0x3
04b5 e402       |    |		Load	0x2,0x2
04b6 801c       |    |		Call	0x0,0x1c
04b7 e40b       |    |		Load	0x2,0xb
04b8 0271       | q  |		Execute	Discrete,Times
04b9 00d8       |    |		Load_Top	At_Offset_0
04ba 00e3       |    |		Load_Encached	Natural_Cache
04bb 0260       | `  |		Execute	Discrete,In_Type
04bc 7001       |p   |		Jump_Nonzero	0x4be
04bd 0801       |    |		Execute_Immediate	Raise,0x1
04be 802c       | ,  |		Call	0x0,0x2c
04bf 00d1       |    |		Pop_Control	Pop_Count_1
04c0 780c       |x   |		Jump	0x4cd
04c1 e403       |    |		Load	0x2,0x3
04c2 e402       |    |		Load	0x2,0x2
04c3 801c       |    |		Call	0x0,0x1c
04c4 e40b       |    |		Load	0x2,0xb
04c5 0270       | p  |		Execute	Discrete,Divide
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 00e3       |    |		Load_Encached	Natural_Cache
04c8 0260       | `  |		Execute	Discrete,In_Type
04c9 7001       |p   |		Jump_Nonzero	0x4cb
04ca 0801       |    |		Execute_Immediate	Raise,0x1
04cb 802c       | ,  |		Call	0x0,0x2c
04cc 00d1       |    |		Pop_Control	Pop_Count_1
04cd e5fe       |    |		Load	0x2,-0x2
04ce 6805       |h   |		Jump_Zero	0x4d4
04cf e402       |    |		Load	0x2,0x2
04d0 e403       |    |		Load	0x2,0x3
04d1 8027       | '  |		Call	0x0,0x27
04d2 c402       |    |		Store	0x2,0x2
04d3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d4 e217       |    |		Load	0x1,0x17
04d5 0257       | W  |		Execute	Discrete,Raise
04d6 e212       |    |		Load	0x1,0x12
04d7 0257       | W  |		Execute	Discrete,Raise
04d8 e5ff       |    |		Load	0x2,-0x1
04d9 0227       | '  |		Execute	Access,All_Reference
04da 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04db 0227       | '  |		Execute	Access,All_Reference
04dc 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04dd 800d       |    |		Call	0x0,0xd
04de 01db       |    |		Execute	Vector,Length
04df 703e       |p>  |		Jump_Nonzero	0x51e
04e0 e409       |    |		Load	0x2,0x9
04e1 e406       |    |		Load	0x2,0x6
04e2 e5ff       |    |		Load	0x2,-0x1
04e3 0227       | '  |		Execute	Access,All_Reference
04e4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e5 821f       |    |		Call	0x1,0x1f
04e6 c406       |    |		Store	0x2,0x6
04e7 c409       |    |		Store	0x2,0x9
04e8 e409       |    |		Load	0x2,0x9
04e9 e407       |    |		Load	0x2,0x7
04ea e5ff       |    |		Load	0x2,-0x1
04eb 0227       | '  |		Execute	Access,All_Reference
04ec 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
04ed 821f       |    |		Call	0x1,0x1f
04ee c407       |    |		Store	0x2,0x7
04ef c409       |    |		Store	0x2,0x9
04f0 e409       |    |		Load	0x2,0x9
04f1 6810       |h   |		Jump_Zero	0x502
04f2 e409       |    |		Load	0x2,0x9
04f3 e00e       |    |		Load	0x0,0xe
04f4 e02e       | .  |		Load	0x0,0x2e
04f5 e407       |    |		Load	0x2,0x7
04f6 8022       | "  |		Call	0x0,0x22
04f7 800d       |    |		Call	0x0,0xd
04f8 802f       | /  |		Call	0x0,0x2f
04f9 c00e       |    |		Store	0x0,0xe
04fa c409       |    |		Store	0x2,0x9
04fb e409       |    |		Load	0x2,0x9
04fc 6803       |h   |		Jump_Zero	0x500
04fd 4801       |H   |		Short_Literal	0x1
04fe a5fe       |    |		Store_Unchecked	0x2,-0x2
04ff 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0500 e212       |    |		Load	0x1,0x12
0501 0257       | W  |		Execute	Discrete,Raise
0502 e409       |    |		Load	0x2,0x9
0503 e402       |    |		Load	0x2,0x2
0504 e5ff       |    |		Load	0x2,-0x1
0505 0227       | '  |		Execute	Access,All_Reference
0506 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0507 821e       |    |		Call	0x1,0x1e
0508 c402       |    |		Store	0x2,0x2
0509 c409       |    |		Store	0x2,0x9
050a e409       |    |		Load	0x2,0x9
050b 6810       |h   |		Jump_Zero	0x51c
050c e409       |    |		Load	0x2,0x9
050d e00e       |    |		Load	0x0,0xe
050e e02e       | .  |		Load	0x0,0x2e
050f e402       |    |		Load	0x2,0x2
0510 801a       |    |		Call	0x0,0x1a
0511 800d       |    |		Call	0x0,0xd
0512 802f       | /  |		Call	0x0,0x2f
0513 c00e       |    |		Store	0x0,0xe
0514 c409       |    |		Store	0x2,0x9
0515 e409       |    |		Load	0x2,0x9
0516 6803       |h   |		Jump_Zero	0x51a
0517 4801       |H   |		Short_Literal	0x1
0518 a5fe       |    |		Store_Unchecked	0x2,-0x2
0519 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
051a e212       |    |		Load	0x1,0x12
051b 0257       | W  |		Execute	Discrete,Raise
051c e212       |    |		Load	0x1,0x12
051d 0257       | W  |		Execute	Discrete,Raise
051e e409       |    |		Load	0x2,0x9
051f e402       |    |		Load	0x2,0x2
0520 e5ff       |    |		Load	0x2,-0x1
0521 0227       | '  |		Execute	Access,All_Reference
0522 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0523 821e       |    |		Call	0x1,0x1e
0524 c402       |    |		Store	0x2,0x2
0525 c409       |    |		Store	0x2,0x9
0526 e402       |    |		Load	0x2,0x2
0527 8019       |    |		Call	0x0,0x19
0528 e403       |    |		Load	0x2,0x3
0529 017d       | }  |		Execute	Record,Structure_Write
052a e5ff       |    |		Load	0x2,-0x1
052b 0227       | '  |		Execute	Access,All_Reference
052c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
052d 0227       | '  |		Execute	Access,All_Reference
052e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052f 4618       |F   |		Jump_Case	0x19
0530 7846       |xF  |		Jump	0x577								; case 0x0
0531 7845       |xE  |		Jump	0x577								; case 0x1
0532 7844       |xD  |		Jump	0x577								; case 0x2
0533 7843       |xC  |		Jump	0x577								; case 0x3
0534 7814       |x   |		Jump	0x549								; case 0x4
0535 7813       |x   |		Jump	0x549								; case 0x5
0536 7812       |x   |		Jump	0x549								; case 0x6
0537 7814       |x   |		Jump	0x54c								; case 0x7
0538 7825       |x%  |		Jump	0x55e								; case 0x8
0539 780f       |x   |		Jump	0x549								; case 0x9
053a 780e       |x   |		Jump	0x549								; case 0xa
053b 780d       |x   |		Jump	0x549								; case 0xb
053c 780c       |x   |		Jump	0x549								; case 0xc
053d 780b       |x   |		Jump	0x549								; case 0xd
053e 780a       |x   |		Jump	0x549								; case 0xe
053f 786e       |xn  |		Jump	0x5ae								; case 0xf
0540 789d       |x   |		Jump	0x5de								; case 0x10
0541 7807       |x   |		Jump	0x549								; case 0x11
0542 7883       |x   |		Jump	0x5c6								; case 0x12
0543 789a       |x   |		Jump	0x5de								; case 0x13
0544 78cc       |x   |		Jump	0x611								; case 0x14
0545 78cb       |x   |		Jump	0x611								; case 0x15
0546 78ca       |x   |		Jump	0x611								; case 0x16
0547 78c9       |x   |		Jump	0x611								; case 0x17
0548 7800       |x   |		Jump	0x549								; case 0x18
0549 4800       |H   |		Short_Literal	0x0
054a a5fe       |    |		Store_Unchecked	0x2,-0x2
054b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
054c e409       |    |		Load	0x2,0x9
054d e404       |    |		Load	0x2,0x4
054e e5ff       |    |		Load	0x2,-0x1
054f 0227       | '  |		Execute	Access,All_Reference
0550 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0551 821e       |    |		Call	0x1,0x1e
0552 c404       |    |		Store	0x2,0x4
0553 c409       |    |		Store	0x2,0x9
0554 e409       |    |		Load	0x2,0x9
0555 6925       |i%  |		Jump_Zero	0x67b
0556 e402       |    |		Load	0x2,0x2
0557 e404       |    |		Load	0x2,0x4
0558 8019       |    |		Call	0x0,0x19
0559 8027       | '  |		Call	0x0,0x27
055a c402       |    |		Store	0x2,0x2
055b 4801       |H   |		Short_Literal	0x1
055c a5fe       |    |		Store_Unchecked	0x2,-0x2
055d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
055e e409       |    |		Load	0x2,0x9
055f e406       |    |		Load	0x2,0x6
0560 e5ff       |    |		Load	0x2,-0x1
0561 0227       | '  |		Execute	Access,All_Reference
0562 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0563 821f       |    |		Call	0x1,0x1f
0564 c406       |    |		Store	0x2,0x6
0565 c409       |    |		Store	0x2,0x9
0566 e409       |    |		Load	0x2,0x9
0567 680c       |h   |		Jump_Zero	0x574
0568 e403       |    |		Load	0x2,0x3
0569 e406       |    |		Load	0x2,0x6
056a 8022       | "  |		Call	0x0,0x22
056b 8028       | (  |		Call	0x0,0x28
056c 00d1       |    |		Pop_Control	Pop_Count_1
056d e402       |    |		Load	0x2,0x2
056e e403       |    |		Load	0x2,0x3
056f 8027       | '  |		Call	0x0,0x27
0570 c402       |    |		Store	0x2,0x2
0571 4801       |H   |		Short_Literal	0x1
0572 a5fe       |    |		Store_Unchecked	0x2,-0x2
0573 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0574 4800       |H   |		Short_Literal	0x0
0575 a5fe       |    |		Store_Unchecked	0x2,-0x2
0576 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0577 e5ff       |    |		Load	0x2,-0x1
0578 0227       | '  |		Execute	Access,All_Reference
0579 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
057a 0227       | '  |		Execute	Access,All_Reference
057b 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
057c 800d       |    |		Call	0x0,0xd
057d 01db       |    |		Execute	Vector,Length
057e 701f       |p   |		Jump_Nonzero	0x59e
057f e409       |    |		Load	0x2,0x9
0580 e406       |    |		Load	0x2,0x6
0581 e5ff       |    |		Load	0x2,-0x1
0582 0227       | '  |		Execute	Access,All_Reference
0583 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0584 821f       |    |		Call	0x1,0x1f
0585 c406       |    |		Store	0x2,0x6
0586 c409       |    |		Store	0x2,0x9
0587 e402       |    |		Load	0x2,0x2
0588 8019       |    |		Call	0x0,0x19
0589 e403       |    |		Load	0x2,0x3
058a 017d       | }  |		Execute	Record,Structure_Write
058b e403       |    |		Load	0x2,0x3
058c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
058d e406       |    |		Load	0x2,0x6
058e 8022       | "  |		Call	0x0,0x22
058f e403       |    |		Load	0x2,0x3
0590 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0591 0227       | '  |		Execute	Access,All_Reference
0592 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0593 8029       | )  |		Call	0x0,0x29
0594 802a       | *  |		Call	0x0,0x2a
0595 e403       |    |		Load	0x2,0x3
0596 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0597 e402       |    |		Load	0x2,0x2
0598 e403       |    |		Load	0x2,0x3
0599 8027       | '  |		Call	0x0,0x27
059a c402       |    |		Store	0x2,0x2
059b 4801       |H   |		Short_Literal	0x1
059c a5fe       |    |		Store_Unchecked	0x2,-0x2
059d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
059e e409       |    |		Load	0x2,0x9
059f e404       |    |		Load	0x2,0x4
05a0 e5ff       |    |		Load	0x2,-0x1
05a1 0227       | '  |		Execute	Access,All_Reference
05a2 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05a3 821e       |    |		Call	0x1,0x1e
05a4 c404       |    |		Store	0x2,0x4
05a5 c409       |    |		Store	0x2,0x9
05a6 e402       |    |		Load	0x2,0x2
05a7 e404       |    |		Load	0x2,0x4
05a8 8019       |    |		Call	0x0,0x19
05a9 8027       | '  |		Call	0x0,0x27
05aa c402       |    |		Store	0x2,0x2
05ab 4801       |H   |		Short_Literal	0x1
05ac a5fe       |    |		Store_Unchecked	0x2,-0x2
05ad 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ae e409       |    |		Load	0x2,0x9
05af e40a       |    |		Load	0x2,0xa
05b0 e5ff       |    |		Load	0x2,-0x1
05b1 0227       | '  |		Execute	Access,All_Reference
05b2 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05b3 8220       |    |		Call	0x1,0x20
05b4 c40a       |    |		Store	0x2,0xa
05b5 c409       |    |		Store	0x2,0x9
05b6 e409       |    |		Load	0x2,0x9
05b7 680b       |h   |		Jump_Zero	0x5c3
05b8 e403       |    |		Load	0x2,0x3
05b9 e40a       |    |		Load	0x2,0xa
05ba 802b       | +  |		Call	0x0,0x2b
05bb 00d1       |    |		Pop_Control	Pop_Count_1
05bc e402       |    |		Load	0x2,0x2
05bd e403       |    |		Load	0x2,0x3
05be 8027       | '  |		Call	0x0,0x27
05bf c402       |    |		Store	0x2,0x2
05c0 4801       |H   |		Short_Literal	0x1
05c1 a5fe       |    |		Store_Unchecked	0x2,-0x2
05c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c3 4800       |H   |		Short_Literal	0x0
05c4 a5fe       |    |		Store_Unchecked	0x2,-0x2
05c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05c6 e409       |    |		Load	0x2,0x9
05c7 00db       |    |		Load_Top	At_Offset_3
05c8 e5ff       |    |		Load	0x2,-0x1
05c9 0227       | '  |		Execute	Access,All_Reference
05ca 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05cb 8221       | !  |		Call	0x1,0x21
05cc c40b       |    |		Store	0x2,0xb
05cd c409       |    |		Store	0x2,0x9
05ce e409       |    |		Load	0x2,0x9
05cf 680b       |h   |		Jump_Zero	0x5db
05d0 e403       |    |		Load	0x2,0x3
05d1 00db       |    |		Load_Top	At_Offset_3
05d2 802c       | ,  |		Call	0x0,0x2c
05d3 00d1       |    |		Pop_Control	Pop_Count_1
05d4 e402       |    |		Load	0x2,0x2
05d5 e403       |    |		Load	0x2,0x3
05d6 8027       | '  |		Call	0x0,0x27
05d7 c402       |    |		Store	0x2,0x2
05d8 4801       |H   |		Short_Literal	0x1
05d9 a5fe       |    |		Store_Unchecked	0x2,-0x2
05da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05db 4800       |H   |		Short_Literal	0x0
05dc a5fe       |    |		Store_Unchecked	0x2,-0x2
05dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05de e409       |    |		Load	0x2,0x9
05df 00da       |    |		Load_Top	At_Offset_2
05e0 e5ff       |    |		Load	0x2,-0x1
05e1 0227       | '  |		Execute	Access,All_Reference
05e2 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05e3 8222       | "  |		Call	0x1,0x22
05e4 00d1       |    |		Pop_Control	Pop_Count_1
05e5 c409       |    |		Store	0x2,0x9
05e6 e409       |    |		Load	0x2,0x9
05e7 6826       |h&  |		Jump_Zero	0x60e
05e8 e5ff       |    |		Load	0x2,-0x1
05e9 0227       | '  |		Execute	Access,All_Reference
05ea 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05eb 0227       | '  |		Execute	Access,All_Reference
05ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ed 0f10       |    |		Execute_Immediate	Equal,0x10
05ee 6814       |h   |		Jump_Zero	0x603
05ef 00d9       |    |		Load_Top	At_Offset_1
05f0 e403       |    |		Load	0x2,0x3
05f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05f2 0227       | '  |		Execute	Access,All_Reference
05f3 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
05f4 802d       | -  |		Call	0x0,0x2d
05f5 680b       |h   |		Jump_Zero	0x601
05f6 e403       |    |		Load	0x2,0x3
05f7 00da       |    |		Load_Top	At_Offset_2
05f8 8028       | (  |		Call	0x0,0x28
05f9 00d1       |    |		Pop_Control	Pop_Count_1
05fa e402       |    |		Load	0x2,0x2
05fb e403       |    |		Load	0x2,0x3
05fc 8027       | '  |		Call	0x0,0x27
05fd c402       |    |		Store	0x2,0x2
05fe 4801       |H   |		Short_Literal	0x1
05ff a5fe       |    |		Store_Unchecked	0x2,-0x2
0600 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0601 e212       |    |		Load	0x1,0x12
0602 0257       | W  |		Execute	Discrete,Raise
0603 e403       |    |		Load	0x2,0x3
0604 00da       |    |		Load_Top	At_Offset_2
0605 8028       | (  |		Call	0x0,0x28
0606 00d1       |    |		Pop_Control	Pop_Count_1
0607 e402       |    |		Load	0x2,0x2
0608 e403       |    |		Load	0x2,0x3
0609 8027       | '  |		Call	0x0,0x27
060a c402       |    |		Store	0x2,0x2
060b 4801       |H   |		Short_Literal	0x1
060c a5fe       |    |		Store_Unchecked	0x2,-0x2
060d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060e 4800       |H   |		Short_Literal	0x0
060f a5fe       |    |		Store_Unchecked	0x2,-0x2
0610 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0611 e409       |    |		Load	0x2,0x9
0612 00db       |    |		Load_Top	At_Offset_3
0613 00da       |    |		Load_Top	At_Offset_2
0614 e5ff       |    |		Load	0x2,-0x1
0615 0227       | '  |		Execute	Access,All_Reference
0616 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0617 8223       | #  |		Call	0x1,0x23
0618 005b       | [  |		Store_Top	Discrete,At_Offset_3
0619 c40b       |    |		Store	0x2,0xb
061a c409       |    |		Store	0x2,0x9
061b e409       |    |		Load	0x2,0x9
061c 685c       |h\  |		Jump_Zero	0x679
061d 4801       |H   |		Short_Literal	0x1
061e a5fe       |    |		Store_Unchecked	0x2,-0x2
061f 00d8       |    |		Load_Top	At_Offset_0
0620 4618       |F   |		Jump_Case	0x19
0621 7818       |x   |		Jump	0x63a								; case 0x0
0622 7817       |x   |		Jump	0x63a								; case 0x1
0623 7816       |x   |		Jump	0x63a								; case 0x2
0624 7815       |x   |		Jump	0x63a								; case 0x3
0625 7814       |x   |		Jump	0x63a								; case 0x4
0626 7813       |x   |		Jump	0x63a								; case 0x5
0627 7812       |x   |		Jump	0x63a								; case 0x6
0628 7811       |x   |		Jump	0x63a								; case 0x7
0629 7810       |x   |		Jump	0x63a								; case 0x8
062a 780f       |x   |		Jump	0x63a								; case 0x9
062b 780e       |x   |		Jump	0x63a								; case 0xa
062c 780d       |x   |		Jump	0x63a								; case 0xb
062d 780c       |x   |		Jump	0x63a								; case 0xc
062e 780b       |x   |		Jump	0x63a								; case 0xd
062f 780a       |x   |		Jump	0x63a								; case 0xe
0630 7809       |x   |		Jump	0x63a								; case 0xf
0631 7808       |x   |		Jump	0x63a								; case 0x10
0632 7807       |x   |		Jump	0x63a								; case 0x11
0633 7806       |x   |		Jump	0x63a								; case 0x12
0634 7805       |x   |		Jump	0x63a								; case 0x13
0635 7807       |x   |		Jump	0x63d								; case 0x14
0636 7813       |x   |		Jump	0x64a								; case 0x15
0637 781f       |x   |		Jump	0x657								; case 0x16
0638 782b       |x+  |		Jump	0x664								; case 0x17
0639 7800       |x   |		Jump	0x63a								; case 0x18
063a 4800       |H   |		Short_Literal	0x0
063b a5fe       |    |		Store_Unchecked	0x2,-0x2
063c 7833       |x3  |		Jump	0x670
063d e403       |    |		Load	0x2,0x3
063e e402       |    |		Load	0x2,0x2
063f 801c       |    |		Call	0x0,0x1c
0640 e40b       |    |		Load	0x2,0xb
0641 0273       | s  |		Execute	Discrete,Plus
0642 00d8       |    |		Load_Top	At_Offset_0
0643 00e3       |    |		Load_Encached	Natural_Cache
0644 0260       | `  |		Execute	Discrete,In_Type
0645 7001       |p   |		Jump_Nonzero	0x647
0646 0801       |    |		Execute_Immediate	Raise,0x1
0647 802c       | ,  |		Call	0x0,0x2c
0648 00d1       |    |		Pop_Control	Pop_Count_1
0649 7826       |x&  |		Jump	0x670
064a e403       |    |		Load	0x2,0x3
064b e402       |    |		Load	0x2,0x2
064c 801c       |    |		Call	0x0,0x1c
064d e40b       |    |		Load	0x2,0xb
064e 0272       | r  |		Execute	Discrete,Minus
064f 00d8       |    |		Load_Top	At_Offset_0
0650 00e3       |    |		Load_Encached	Natural_Cache
0651 0260       | `  |		Execute	Discrete,In_Type
0652 7001       |p   |		Jump_Nonzero	0x654
0653 0801       |    |		Execute_Immediate	Raise,0x1
0654 802c       | ,  |		Call	0x0,0x2c
0655 00d1       |    |		Pop_Control	Pop_Count_1
0656 7819       |x   |		Jump	0x670
0657 e403       |    |		Load	0x2,0x3
0658 e402       |    |		Load	0x2,0x2
0659 801c       |    |		Call	0x0,0x1c
065a e40b       |    |		Load	0x2,0xb
065b 0271       | q  |		Execute	Discrete,Times
065c 00d8       |    |		Load_Top	At_Offset_0
065d 00e3       |    |		Load_Encached	Natural_Cache
065e 0260       | `  |		Execute	Discrete,In_Type
065f 7001       |p   |		Jump_Nonzero	0x661
0660 0801       |    |		Execute_Immediate	Raise,0x1
0661 802c       | ,  |		Call	0x0,0x2c
0662 00d1       |    |		Pop_Control	Pop_Count_1
0663 780c       |x   |		Jump	0x670
0664 e403       |    |		Load	0x2,0x3
0665 e402       |    |		Load	0x2,0x2
0666 801c       |    |		Call	0x0,0x1c
0667 e40b       |    |		Load	0x2,0xb
0668 0270       | p  |		Execute	Discrete,Divide
0669 00d8       |    |		Load_Top	At_Offset_0
066a 00e3       |    |		Load_Encached	Natural_Cache
066b 0260       | `  |		Execute	Discrete,In_Type
066c 7001       |p   |		Jump_Nonzero	0x66e
066d 0801       |    |		Execute_Immediate	Raise,0x1
066e 802c       | ,  |		Call	0x0,0x2c
066f 00d1       |    |		Pop_Control	Pop_Count_1
0670 e5fe       |    |		Load	0x2,-0x2
0671 6805       |h   |		Jump_Zero	0x677
0672 e402       |    |		Load	0x2,0x2
0673 e403       |    |		Load	0x2,0x3
0674 8027       | '  |		Call	0x0,0x27
0675 c402       |    |		Store	0x2,0x2
0676 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0677 e217       |    |		Load	0x1,0x17
0678 0257       | W  |		Execute	Discrete,Raise
0679 e212       |    |		Load	0x1,0x12
067a 0257       | W  |		Execute	Discrete,Raise
067b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
067c 0000 0000  |    |		.BLANK	0000[0x4]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0687       |    |		.CONST	0x0687								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0002       |    |		.CONST	0x0002								; Number of locals
0683			INIT_0680:
0683 e016       |    |		Load	0x0,0x16
0684 02ff       |    |		Declare_Variable	Variant_Record
0685 00d8       |    |		Load_Top	At_Offset_0
0686 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0687			BODY_0680:
0687 00db       |    |		Load_Top	At_Offset_3
0688 0227       | '  |		Execute	Access,All_Reference
0689 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
068a 0e07       |    |		Execute_Immediate	Not_Equal,0x7
068b 6857       |hW  |		Jump_Zero	0x6e3
068c 00db       |    |		Load_Top	At_Offset_3
068d 0227       | '  |		Execute	Access,All_Reference
068e 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
068f 800d       |    |		Call	0x0,0xd
0690 01db       |    |		Execute	Vector,Length
0691 7003       |p   |		Jump_Nonzero	0x695
0692 4800       |H   |		Short_Literal	0x0
0693 a5fd       |    |		Store_Unchecked	0x2,-0x3
0694 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0695 00db       |    |		Load_Top	At_Offset_3
0696 0227       | '  |		Execute	Access,All_Reference
0697 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0698 4800       |H   |		Short_Literal	0x0
0699 4803       |H   |		Short_Literal	0x3
069a 0262       | b  |		Execute	Discrete,In_Range
069b 7008       |p   |		Jump_Nonzero	0x6a4
069c e00e       |    |		Load	0x0,0xe
069d 800f       |    |		Call	0x0,0xf
069e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
069f 8018       |    |		Call	0x0,0x18
06a0 a5fe       |    |		Store_Unchecked	0x2,-0x2
06a1 4800       |H   |		Short_Literal	0x0
06a2 a5fd       |    |		Store_Unchecked	0x2,-0x3
06a3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06a4 00d8       |    |		Load_Top	At_Offset_0
06a5 e5ff       |    |		Load	0x2,-0x1
06a6 0227       | '  |		Execute	Access,All_Reference
06a7 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
06a8 8020       |    |		Call	0x0,0x20
06a9 00d1       |    |		Pop_Control	Pop_Count_1
06aa 00db       |    |		Load_Top	At_Offset_3
06ab 0227       | '  |		Execute	Access,All_Reference
06ac 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06ad 0b01       |    |		Execute_Immediate	Case_Compare,0x1
06ae 7009       |p   |		Jump_Nonzero	0x6b8
06af 0b02       |    |		Execute_Immediate	Case_Compare,0x2
06b0 7012       |p   |		Jump_Nonzero	0x6c3
06b1 0b00       |    |		Execute_Immediate	Case_Compare,0x0
06b2 701b       |p   |		Jump_Nonzero	0x6ce
06b3 0f03       |    |		Execute_Immediate	Equal,0x3
06b4 7024       |p$  |		Jump_Nonzero	0x6d9
06b5 4800       |H   |		Short_Literal	0x0
06b6 a5fd       |    |		Store_Unchecked	0x2,-0x3
06b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06b8 00d1       |    |		Pop_Control	Pop_Count_1
06b9 e5fd       |    |		Load	0x2,-0x3
06ba e5fe       |    |		Load	0x2,-0x2
06bb e00e       |    |		Load	0x0,0xe
06bc 8030       | 0  |		Call	0x0,0x30
06bd 00db       |    |		Load_Top	At_Offset_3
06be 800d       |    |		Call	0x0,0xd
06bf 8031       | 1  |		Call	0x0,0x31
06c0 c5fe       |    |		Store	0x2,-0x2
06c1 c5fd       |    |		Store	0x2,-0x3
06c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06c3 00d1       |    |		Pop_Control	Pop_Count_1
06c4 e5fd       |    |		Load	0x2,-0x3
06c5 e5fe       |    |		Load	0x2,-0x2
06c6 e032       | 2  |		Load	0x0,0x32
06c7 8030       | 0  |		Call	0x0,0x30
06c8 00db       |    |		Load_Top	At_Offset_3
06c9 800d       |    |		Call	0x0,0xd
06ca 8031       | 1  |		Call	0x0,0x31
06cb c5fe       |    |		Store	0x2,-0x2
06cc c5fd       |    |		Store	0x2,-0x3
06cd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06ce 00d1       |    |		Pop_Control	Pop_Count_1
06cf e5fd       |    |		Load	0x2,-0x3
06d0 e5fe       |    |		Load	0x2,-0x2
06d1 e021       | !  |		Load	0x0,0x21
06d2 8030       | 0  |		Call	0x0,0x30
06d3 00db       |    |		Load_Top	At_Offset_3
06d4 800d       |    |		Call	0x0,0xd
06d5 8031       | 1  |		Call	0x0,0x31
06d6 c5fe       |    |		Store	0x2,-0x2
06d7 c5fd       |    |		Store	0x2,-0x3
06d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06d9 e5fd       |    |		Load	0x2,-0x3
06da e5fe       |    |		Load	0x2,-0x2
06db e033       | 3  |		Load	0x0,0x33
06dc 8030       | 0  |		Call	0x0,0x30
06dd 00db       |    |		Load_Top	At_Offset_3
06de 800d       |    |		Call	0x0,0xd
06df 8031       | 1  |		Call	0x0,0x31
06e0 c5fe       |    |		Store	0x2,-0x2
06e1 c5fd       |    |		Store	0x2,-0x3
06e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06e3 00db       |    |		Load_Top	At_Offset_3
06e4 0227       | '  |		Execute	Access,All_Reference
06e5 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
06e6 a5fe       |    |		Store_Unchecked	0x2,-0x2
06e7 4801       |H   |		Short_Literal	0x1
06e8 a5fd       |    |		Store_Unchecked	0x2,-0x3
06e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06ea 0000 0000  |    |		.BLANK	0000[0x6]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3       |    |		.CONST	0x06f3								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 0001       |    |		.CONST	0x0001								; Number of locals
06f3			BODY_06f0:
06f3			INIT_06f0:
06f3 4801       |H   |		Short_Literal	0x1
06f4 a5fd       |    |		Store_Unchecked	0x2,-0x3
06f5 00da       |    |		Load_Top	At_Offset_2
06f6 0227       | '  |		Execute	Access,All_Reference
06f7 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06f8 4618       |F   |		Jump_Case	0x19
06f9 7829       |x)  |		Jump	0x723								; case 0x0
06fa 781f       |x   |		Jump	0x71a								; case 0x1
06fb 7821       |x!  |		Jump	0x71d								; case 0x2
06fc 7823       |x#  |		Jump	0x720								; case 0x3
06fd 7814       |x   |		Jump	0x712								; case 0x4
06fe 7813       |x   |		Jump	0x712								; case 0x5
06ff 7812       |x   |		Jump	0x712								; case 0x6
0700 7811       |x   |		Jump	0x712								; case 0x7
0701 7813       |x   |		Jump	0x715								; case 0x8
0702 780f       |x   |		Jump	0x712								; case 0x9
0703 780e       |x   |		Jump	0x712								; case 0xa
0704 780d       |x   |		Jump	0x712								; case 0xb
0705 780c       |x   |		Jump	0x712								; case 0xc
0706 780b       |x   |		Jump	0x712								; case 0xd
0707 780a       |x   |		Jump	0x712								; case 0xe
0708 7809       |x   |		Jump	0x712								; case 0xf
0709 7808       |x   |		Jump	0x712								; case 0x10
070a 7807       |x   |		Jump	0x712								; case 0x11
070b 7806       |x   |		Jump	0x712								; case 0x12
070c 7805       |x   |		Jump	0x712								; case 0x13
070d 7804       |x   |		Jump	0x712								; case 0x14
070e 7803       |x   |		Jump	0x712								; case 0x15
070f 7802       |x   |		Jump	0x712								; case 0x16
0710 7801       |x   |		Jump	0x712								; case 0x17
0711 7800       |x   |		Jump	0x712								; case 0x18
0712 4800       |H   |		Short_Literal	0x0
0713 a5fd       |    |		Store_Unchecked	0x2,-0x3
0714 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0715 00da       |    |		Load_Top	At_Offset_2
0716 0227       | '  |		Execute	Access,All_Reference
0717 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0718 a5fe       |    |		Store_Unchecked	0x2,-0x2
0719 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
071a e00e       |    |		Load	0x0,0xe
071b a5fe       |    |		Store_Unchecked	0x2,-0x2
071c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
071d e032       | 2  |		Load	0x0,0x32
071e a5fe       |    |		Store_Unchecked	0x2,-0x2
071f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0720 e033       | 3  |		Load	0x0,0x33
0721 a5fe       |    |		Store_Unchecked	0x2,-0x2
0722 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0723 e021       | !  |		Load	0x0,0x21
0724 a5fe       |    |		Store_Unchecked	0x2,-0x2
0725 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0726 0000 0000  |    |		.XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b 4801       |H   |		Short_Literal	0x1
072c a5fd       |    |		Store_Unchecked	0x2,-0x3
072d 00da       |    |		Load_Top	At_Offset_2
072e 0227       | '  |		Execute	Access,All_Reference
072f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0730 0f0f       |    |		Execute_Immediate	Equal,0xf
0731 7003       |p   |		Jump_Nonzero	0x735
0732 4800       |H   |		Short_Literal	0x0
0733 a5fd       |    |		Store_Unchecked	0x2,-0x3
0734 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0735 00da       |    |		Load_Top	At_Offset_2
0736 0227       | '  |		Execute	Access,All_Reference
0737 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0738 a5fe       |    |		Store_Unchecked	0x2,-0x2
0739 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
073a 0000 0000  |    |		.BLANK	0000[0x6]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743       | C  |		.CONST	0x0743								; Address of begin
0741 0004       |    |		.CONST	0x0004								; Address of exception handler
0742 0001       |    |		.CONST	0x0001								; Number of locals
0743			BODY_0740:
0743			INIT_0740:
0743 00da       |    |		Load_Top	At_Offset_2
0744 0227       | '  |		Execute	Access,All_Reference
0745 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0746 0f12       |    |		Execute_Immediate	Equal,0x12
0747 6807       |h   |		Jump_Zero	0x74f
0748 00da       |    |		Load_Top	At_Offset_2
0749 0227       | '  |		Execute	Access,All_Reference
074a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
074b a5fe       |    |		Store_Unchecked	0x2,-0x2
074c 4801       |H   |		Short_Literal	0x1
074d a5fd       |    |		Store_Unchecked	0x2,-0x3
074e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
074f 4800       |H   |		Short_Literal	0x0
0750 a5fd       |    |		Store_Unchecked	0x2,-0x3
0751 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0752 0000 0000  |    |		.BLANK	0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b       | [  |		.CONST	0x075b								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0001       |    |		.CONST	0x0001								; Number of locals
075b			BODY_0758:
075b			INIT_0758:
075b 00da       |    |		Load_Top	At_Offset_2
075c 0227       | '  |		Execute	Access,All_Reference
075d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
075e 0f13       |    |		Execute_Immediate	Equal,0x13
075f 6808       |h   |		Jump_Zero	0x768
0760 00da       |    |		Load_Top	At_Offset_2
0761 0227       | '  |		Execute	Access,All_Reference
0762 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0763 e5fe       |    |		Load	0x2,-0x2
0764 016d       | m  |		Execute	Variant_Record,Structure_Write
0765 4801       |H   |		Short_Literal	0x1
0766 a5fd       |    |		Store_Unchecked	0x2,-0x3
0767 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0768 00da       |    |		Load_Top	At_Offset_2
0769 0227       | '  |		Execute	Access,All_Reference
076a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
076b 0f10       |    |		Execute_Immediate	Equal,0x10
076c 6808       |h   |		Jump_Zero	0x775
076d 00da       |    |		Load_Top	At_Offset_2
076e 0227       | '  |		Execute	Access,All_Reference
076f 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0770 e5fe       |    |		Load	0x2,-0x2
0771 016d       | m  |		Execute	Variant_Record,Structure_Write
0772 4801       |H   |		Short_Literal	0x1
0773 a5fd       |    |		Store_Unchecked	0x2,-0x3
0774 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0775 4800       |H   |		Short_Literal	0x0
0776 a5fd       |    |		Store_Unchecked	0x2,-0x3
0777 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b       | {  |		.CONST	0x077b								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0001       |    |		.CONST	0x0001								; Number of locals
077b			BODY_0778:
077b			INIT_0778:
077b 00da       |    |		Load_Top	At_Offset_2
077c 0227       | '  |		Execute	Access,All_Reference
077d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
077e 4814       |H   |		Short_Literal	0x14
077f 4817       |H   |		Short_Literal	0x17
0780 0262       | b  |		Execute	Discrete,In_Range
0781 7003       |p   |		Jump_Nonzero	0x785
0782 4800       |H   |		Short_Literal	0x0
0783 a5fc       |    |		Store_Unchecked	0x2,-0x4
0784 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0785 e5fc       |    |		Load	0x2,-0x4
0786 e5fd       |    |		Load	0x2,-0x3
0787 e5ff       |    |		Load	0x2,-0x1
0788 0227       | '  |		Execute	Access,All_Reference
0789 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
078a 8221       | !  |		Call	0x1,0x21
078b c5fd       |    |		Store	0x2,-0x3
078c c5fc       |    |		Store	0x2,-0x4
078d e5fc       |    |		Load	0x2,-0x4
078e 6804       |h   |		Jump_Zero	0x793
078f 00da       |    |		Load_Top	At_Offset_2
0790 0227       | '  |		Execute	Access,All_Reference
0791 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0792 a5fe       |    |		Store_Unchecked	0x2,-0x2
0793 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0794 ; --------------------------------------------------------------------------------------
0794 ; STRING TABLE
0794 ; --------------------------------------------------------------------------------------
0794 0008       |    |		.STRTAB	0x0008->0x0798							; "MODE_FIRST"
0795 0010       |    |		.STRTAB	0x0010->0x079d							; "MODE_ALL"
0796 0016       |    |		.STRTAB	0x0016->0x07a1							; "Le jeu est termine."
0797 0027       | '  |		.STREND 0x0027->0x07aa
0798 4d4f 4445  |MODE|		.STRTAB_STRINGS
07ab 0000 0000  |    |		.BLANK	0000[0x5]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; Debug Table
07b0 ; --------------------------------------------------------------------------------------
07b0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdf05,0x0000,0x0001,0x000f
07b6 000b 07f2  |    |		.DBG4T	0x000b,0x07f2,0x8000,0x0000
07ba 004d 0809  | M  |		.DBG4T	0x004d,0x0809,0x8000,0x0000
07be 006b 0000  | k  |		.DBG4T	0x006b,0x0000,0x0005,0x0000
07c2 00ab 0817  |    |		.DBG4T	0x00ab,0x0817,0x0001,0x0000
07c6 00c3 081f  |    |		.DBG4T	0x00c3,0x081f,0x0001,0x4000
07ca 00eb 0835  |   5|		.DBG4T	0x00eb,0x0835,0x0001,0x4000
07ce 0123 084b  | # K|		.DBG4T	0x0123,0x084b,0x0002,0x0000
07d2 0133 0850  | 3 P|		.DBG4T	0x0133,0x0850,0x0001,0x4000
07d6 033b 0908  | ;  |		.DBG4T	0x033b,0x0908,0x0001,0x4000
07da 0683 0a32  |   2|		.DBG4T	0x0683,0x0a32,0x0001,0x4000
07de 06f3 0a53  |   S|		.DBG4T	0x06f3,0x0a53,0x0001,0x4000
07e2 072b 0a65  | + e|		.DBG4T	0x072b,0x0a65,0x0001,0x4000
07e6 0743 0a6f  | C o|		.DBG4T	0x0743,0x0a6f,0x0001,0x0000
07ea 075b 0a75  | [ u|		.DBG4T	0x075b,0x0a75,0x0001,0x0000
07ee 077b 0a7e  | { ~|		.DBG4T	0x077b,0x0a7e,0x0001,0x4000
07f2 ; --------------------------------------------------------------------------------------
07f2 ; Debug chain
07f2 ; --------------------------------------------------------------------------------------
07f2 0015 0000  |    |		.DBGLEN	0x0015,0x0000
07f4 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0016,0x001b,0x0020,0x0025,0x002a,0x002f,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a
0809 ; --------------------------------------------------------------------------------------
0809 ; Debug chain
0809 ; --------------------------------------------------------------------------------------
0809 000c 0000  |    |		.DBGLEN	0x000c,0x0000
080b 004d 004f  | M O|		.DBGLNO	0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063
0817 ; --------------------------------------------------------------------------------------
0817 ; Debug chain
0817 ; --------------------------------------------------------------------------------------
0817 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0819 00ab 00ac  |    |		.DBGLNO	0x00ab,0x00ac,0x00ae,0x00b3,0x00b8,0x00ba
081f ; --------------------------------------------------------------------------------------
081f ; Debug chain
081f ; --------------------------------------------------------------------------------------
081f 0002 0009  |    |		.DBGLEN	0x0002,0x0009
0821 00c3 00c5  |    |		.DBGLNO	0x00c3,0x00c5,0x00c7,0x00c9,0x00ce,0x00d2,0x00d4,0x00d6,0x00d9,0x00db,0x00df
082c 0001 0002  |    |		.XXX[0x9]
082e 0004 0005  |    |
0830 0006 0007  |    |
0832 0008 0009  |    |
0834 0003       |    |
0835 ; --------------------------------------------------------------------------------------
0835 ; Debug chain
0835 ; --------------------------------------------------------------------------------------
0835 0004 0008  |    |		.DBGLEN	0x0004,0x0008
0837 00eb 00ed  |    |		.DBGLNO	0x00eb,0x00ed,0x00f1,0x00f3,0x00f5,0x00f7,0x00fc,0x0100,0x0109,0x010f,0x0112,0x0116
0843 0001 0002  |    |		.XXX[0x8]
0845 0004 0005  |    |
0847 0006 0007  |    |
0849 0008 0003  |    |
084b ; --------------------------------------------------------------------------------------
084b ; Debug chain
084b ; --------------------------------------------------------------------------------------
084b 0001 0002  |    |		.DBGLEN	0x0001,0x0002
084d 0123 0124  | # $|		.DBGLNO	0x0123,0x0124,0x0128
0850 ; --------------------------------------------------------------------------------------
0850 ; Debug chain
0850 ; --------------------------------------------------------------------------------------
0850 0008 0057  |   W|		.DBGLEN	0x0008,0x0057
0852 0133 0135  | 3 5|		.DBGLNO	0x0133,0x0135,0x0139,0x013b,0x013f,0x0141,0x0143,0x0145,0x014d,0x0151,0x0153,0x0158,0x0175,0x0177,0x0179,0x0181,0x0183,0x0185,0x0189,0x01a8,0x01aa,0x01b2,0x01b4,0x01b8,0x01c0,0x01c3,0x01c6,0x01c9,0x01d1,0x01d3,0x01d8,0x01db,0x01de,0x01e1,0x01e9,0x01eb,0x01f0,0x01f3,0x01f6,0x01f9,0x0201,0x0203,0x020a,0x020d,0x0210,0x0213,0x0219,0x021b,0x0221,0x0223,0x0226,0x0229,0x022c,0x0237,0x0242,0x0245,0x0249,0x024f,0x0257,0x025a,0x0263,0x0268,0x0271,0x027c,0x027f,0x0283,0x0290,0x0293,0x0296,0x0299,0x029c,0x02a2,0x02af,0x02bc,0x02bf,0x02c2,0x02c5,0x02c8,0x02cb,0x02ce,0x02d3,0x02d9,0x02db,0x02e4,0x02e7,0x02ea,0x0309,0x030b,0x0313,0x0316,0x031e,0x0326,0x0329,0x032d,0x032f
08b1 0001 0002  |    |		.XXX[0x57]
08b3 0003 0004  |    |
08b5 0058 0005  | X  |
08b7 0006 0007  |    |
08b9 0008 0009  |    |
08bb 000a 0024  |   $|
08bd 000b 000c  |    |
08bf 000d 000e  |    |
08c1 000f 0010  |    |
08c3 0011 0012  |    |
08c5 0013 0014  |    |
08c7 0015 0016  |    |
08c9 0017 0018  |    |
08cb 0019 001a  |    |
08cd 001b 001c  |    |
08cf 001d 001e  |    |
08d1 001f 0020  |    |
08d3 0021 0022  | ! "|
08d5 0023 0026  | # &|
08d7 0027 0028  | ' (|
08d9 0029 002a  | ) *|
08db 002b 002c  | + ,|
08dd 002d 002e  | - .|
08df 002f 0030  | / 0|
08e1 0031 0032  | 1 2|
08e3 0035 0033  | 5 3|
08e5 0034 0036  | 4 6|
08e7 0037 0038  | 7 8|
08e9 0039 003a  | 9 :|
08eb 003b 003c  | ; <|
08ed 003d 003e  | = >|
08ef 003f 0040  | ? @|
08f1 0041 0042  | A B|
08f3 0043 0044  | C D|
08f5 0045 0046  | E F|
08f7 0047 0048  | G H|
08f9 0049 004a  | I J|
08fb 004b 004c  | K L|
08fd 004d 004e  | M N|
08ff 0054 004f  | T O|
0901 0050 0051  | P Q|
0903 0052 0053  | R S|
0905 0055 0056  | U V|
0907 0057       | W  |
0908 ; --------------------------------------------------------------------------------------
0908 ; Debug chain
0908 ; --------------------------------------------------------------------------------------
0908 000c 008e  |    |		.DBGLEN	0x000c,0x008e
090a 033b 033d  | ; =|		.DBGLNO	0x033b,0x033d,0x0341,0x0343,0x0347,0x0349,0x034b,0x034f,0x0351,0x0353,0x0355,0x0359,0x035b,0x035f,0x0361,0x0366,0x036b,0x036d,0x0378,0x037b,0x0383,0x0387,0x03a6,0x03a9,0x03b1,0x03b3,0x03b8,0x03bb,0x03c3,0x03c5,0x03ca,0x03ce,0x03d1,0x03d4,0x03dc,0x03e4,0x03e8,0x03f4,0x03f8,0x03fb,0x0403,0x0408,0x040b,0x0413,0x0415,0x0419,0x041d,0x0420,0x0423,0x042b,0x042d,0x0431,0x0435,0x0438,0x043b,0x0443,0x0445,0x044c,0x0453,0x0457,0x045b,0x045e,0x0460,0x0464,0x0468,0x046b,0x046e,0x0478,0x047a,0x047c,0x0497,0x049a,0x04a7,0x04b4,0x04c1,0x04cd,0x04cf,0x04d4,0x04d6,0x04d8,0x04e0,0x04e8,0x04f0,0x04f2,0x04fb,0x04fd,0x0500,0x0502,0x050a,0x050c,0x0515,0x0517,0x051a,0x051c,0x051e,0x0526,0x052a,0x0549,0x054c,0x0554,0x0556,0x055b,0x055e,0x0566,0x0568,0x056d,0x0571,0x0574,0x0577,0x057f,0x0587,0x058b,0x0597,0x059b,0x059e,0x05a6,0x05ab,0x05ae,0x05b6,0x05b8,0x05bc,0x05c0,0x05c3,0x05c6,0x05ce,0x05d0,0x05d4,0x05d8,0x05db,0x05de,0x05e6,0x05e8,0x05ef,0x05f6,0x05fa,0x05fe,0x0601,0x0603,0x0607,0x060b,0x060e,0x0611,0x061b,0x061d,0x061f,0x063a,0x063d,0x064a,0x0657,0x0664,0x0670,0x0672,0x0677,0x0679
09a4 0001 0002  |    |		.XXX[0x8e]
09a6 0003 0004  |    |
09a8 0005 0006  |    |
09aa 008e 0007  |    |
09ac 0008 0009  |    |
09ae 0042 000a  | B  |
09b0 000b 000c  |    |
09b2 000d 000e  |    |
09b4 000f 0010  |    |
09b6 0011 0012  |    |
09b8 0013 0014  |    |
09ba 0015 0016  |    |
09bc 0017 0018  |    |
09be 0019 001a  |    |
09c0 001b 001c  |    |
09c2 001d 001e  |    |
09c4 001f 0020  |    |
09c6 0021 0022  | ! "|
09c8 0023 0024  | # $|
09ca 0025 0026  | % &|
09cc 0027 0028  | ' (|
09ce 0029 002a  | ) *|
09d0 002b 002c  | + ,|
09d2 002d 002e  | - .|
09d4 002f 0030  | / 0|
09d6 0031 0032  | 1 2|
09d8 0033 0034  | 3 4|
09da 0035 0036  | 5 6|
09dc 0037 0038  | 7 8|
09de 003d 0039  | = 9|
09e0 003a 003b  | : ;|
09e2 003c 003e  | < >|
09e4 003f 0040  | ? @|
09e6 0041 0043  | A C|
09e8 0044 0045  | D E|
09ea 0046 0047  | F G|
09ec 0048 0049  | H I|
09ee 004a 004b  | J K|
09f0 004c 004d  | L M|
09f2 004e 004f  | N O|
09f4 0050 0051  | P Q|
09f6 0052 0053  | R S|
09f8 0054 008d  | T  |
09fa 0055 0056  | U V|
09fc 0057 0058  | W X|
09fe 0059 005a  | Y Z|
0a00 005b 005c  | [ \|
0a02 005d 005e  | ] ^|
0a04 005f 0060  | _ `|
0a06 0061 0062  | a b|
0a08 0063 0064  | c d|
0a0a 0065 0066  | e f|
0a0c 0067 0068  | g h|
0a0e 0069 006a  | i j|
0a10 006b 006c  | k l|
0a12 006d 006e  | m n|
0a14 006f 0070  | o p|
0a16 0071 0072  | q r|
0a18 0073 0074  | s t|
0a1a 0075 0076  | u v|
0a1c 0077 0078  | w x|
0a1e 0079 007a  | y z|
0a20 007b 007c  | { ||
0a22 007d 007e  | } ~|
0a24 007f 0080  |    |
0a26 0081 0082  |    |
0a28 0083 0088  |    |
0a2a 0084 0085  |    |
0a2c 0086 0087  |    |
0a2e 0089 008a  |    |
0a30 008b 008c  |    |
0a32 ; --------------------------------------------------------------------------------------
0a32 ; Debug chain
0a32 ; --------------------------------------------------------------------------------------
0a32 0001 000f  |    |		.DBGLEN	0x0001,0x000f
0a34 0683 0687  |    |		.DBGLNO	0x0683,0x0687,0x068c,0x0692,0x0695,0x069c,0x06a1,0x06a4,0x06aa,0x06b5,0x06b9,0x06c4,0x06cf,0x06d9,0x06e3,0x06e7
0a44 0001 0002  |    |		.XXX[0xf]
0a46 0003 0004  |    |
0a48 000c 000d  |    |
0a4a 0005 0006  |    |
0a4c 000b 0007  |    |
0a4e 0008 0009  |    |
0a50 000a 000e  |    |
0a52 000f       |    |
0a53 ; --------------------------------------------------------------------------------------
0a53 ; Debug chain
0a53 ; --------------------------------------------------------------------------------------
0a53 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0a55 06f3 06f5  |    |		.DBGLNO	0x06f3,0x06f5,0x0712,0x0715,0x071a,0x071d,0x0720,0x0723
0a5d 0001 0002  |    |		.XXX[0x8]
0a5f 0008 0003  |    |
0a61 0004 0005  |    |
0a63 0006 0007  |    |
0a65 ; --------------------------------------------------------------------------------------
0a65 ; Debug chain
0a65 ; --------------------------------------------------------------------------------------
0a65 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0a67 072b 072d  | + -|		.DBGLNO	0x072b,0x072d,0x0732,0x0735
0a6b 0001 0002  |    |		.XXX[0x4]
0a6d 0004 0003  |    |
0a6f ; --------------------------------------------------------------------------------------
0a6f ; Debug chain
0a6f ; --------------------------------------------------------------------------------------
0a6f 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0a71 0743 0748  | C H|		.DBGLNO	0x0743,0x0748,0x074c,0x074f
0a75 ; --------------------------------------------------------------------------------------
0a75 ; Debug chain
0a75 ; --------------------------------------------------------------------------------------
0a75 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0a77 075b 0760  | [ `|		.DBGLNO	0x075b,0x0760,0x0765,0x0768,0x076d,0x0772,0x0775
0a7e ; --------------------------------------------------------------------------------------
0a7e ; Debug chain
0a7e ; --------------------------------------------------------------------------------------
0a7e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0a80 077b 0782  | {  |		.DBGLNO	0x077b,0x0782,0x0785,0x078d,0x078f
0a85 0001 0005  |    |		.XXX[0x5]
0a87 0002 0003  |    |
0a89 0004       |    |
0a8a 0000 0000  |    |		.BLANK	0000[0x176]