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

⟦2b28df02f⟧

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

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 04a8       |    |		.CONST	0x04a8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004c       | L  |		.CONST	0x004c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0011 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0013 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0015 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0017 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0019 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
001b 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
001d 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
001f 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0021 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0023 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0025 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0027 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0029 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
002b 00bf       |    |		Action	Accept_Activation
002c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
004b 00c7       |    |		Action	Elaborate_Subprogram
004c			BODY_0008:
004c 00bc       |    |		Action	Signal_Activated
004d 00bb       |    |		Action	Signal_Completion
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005a       | Z  |		.CONST	0x005a								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0003       |    |		.CONST	0x0003								; Number of locals
0053			INIT_0050:
0053 6064       |`d  |		Indirect_Literal	Discrete,0xb8,{0x00000000, 0x00000400}
0054 e002       |    |		Load	0x0,0x2
0055 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0056 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0057 00d8       |    |		Load_Top	At_Offset_0
0058 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0059 00e4       |    |		Load_Encached	Positive_Cache
005a			BODY_0050:
005a 00d9       |    |		Load_Top	At_Offset_1
005b 4804       |H   |		Short_Literal	0x4
005c 4800       |H   |		Short_Literal	0x0
005d 4820       |H   |		Short_Literal	0x20
005e 4800       |H   |		Short_Literal	0x0
005f 480a       |H   |		Short_Literal	0xa
0060 e5ff       |    |		Load	0x2,-0x1
0061 e003       |    |		Load	0x0,0x3
0062 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0063 01cb       |    |		Execute	Vector,Append
0064 01cb       |    |		Execute	Vector,Append
0065 e002       |    |		Load	0x0,0x2
0066 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0067 00d1       |    |		Pop_Control	Pop_Count_1
0068 00d9       |    |		Load_Top	At_Offset_1
0069 e5fe       |    |		Load	0x2,-0x2
006a e002       |    |		Load	0x0,0x2
006b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
006c 00d1       |    |		Pop_Control	Pop_Count_1
006d 00d9       |    |		Load_Top	At_Offset_1
006e 4804       |H   |		Short_Literal	0x4
006f e002       |    |		Load	0x0,0x2
0070 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0071 00d1       |    |		Pop_Control	Pop_Count_1
0072 00d9       |    |		Load_Top	At_Offset_1
0073 e5fd       |    |		Load	0x2,-0x3
0074 e002       |    |		Load	0x0,0x2
0075 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0076 00d1       |    |		Pop_Control	Pop_Count_1
0077 00d9       |    |		Load_Top	At_Offset_1
0078 4804       |H   |		Short_Literal	0x4
0079 e002       |    |		Load	0x0,0x2
007a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
007b 00d1       |    |		Pop_Control	Pop_Count_1
007c 00d9       |    |		Load_Top	At_Offset_1
007d 4804       |H   |		Short_Literal	0x4
007e 4800       |H   |		Short_Literal	0x0
007f 4820       |H   |		Short_Literal	0x20
0080 4800       |H   |		Short_Literal	0x0
0081 480a       |H   |		Short_Literal	0xa
0082 e5fc       |    |		Load	0x2,-0x4
0083 e003       |    |		Load	0x0,0x3
0084 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0085 01cb       |    |		Execute	Vector,Append
0086 01cb       |    |		Execute	Vector,Append
0087 e002       |    |		Load	0x0,0x2
0088 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0089 00d1       |    |		Pop_Control	Pop_Count_1
008a 00d9       |    |		Load_Top	At_Offset_1
008b e5fb       |    |		Load	0x2,-0x5
008c e002       |    |		Load	0x0,0x2
008d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
008e 00d1       |    |		Pop_Control	Pop_Count_1
008f 00d9       |    |		Load_Top	At_Offset_1
0090 4804       |H   |		Short_Literal	0x4
0091 e002       |    |		Load	0x0,0x2
0092 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0093 00d1       |    |		Pop_Control	Pop_Count_1
0094 00d9       |    |		Load_Top	At_Offset_1
0095 e002       |    |		Load	0x0,0x2
0096 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0097 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0098 00cf       |    |		Action	Mark_Auxiliary
0099 601e       |`   |		Indirect_Literal	Discrete,0xb8,{0x00000000, 0x00000400}
009a 00da       |    |		Load_Top	At_Offset_2
009b 0a01       |    |		Execute_Immediate	Plus,0x1
009c 00d8       |    |		Load_Top	At_Offset_0
009d 00e2       |    |		Load_Encached	Integer_Cache
009e 0260       | `  |		Execute	Discrete,In_Type
009f 7001       |p   |		Jump_Nonzero	0xa1
00a0 0801       |    |		Execute_Immediate	Raise,0x1
00a1 0263       | c  |		Execute	Discrete,Above_Bound
00a2 700d       |p   |		Jump_Nonzero	0xb0
00a3 e402       |    |		Load	0x2,0x2
00a4 4800       |H   |		Short_Literal	0x0
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 00e4       |    |		Load_Encached	Positive_Cache
00a8 0260       | `  |		Execute	Discrete,In_Type
00a9 7001       |p   |		Jump_Nonzero	0xab
00aa 0801       |    |		Execute_Immediate	Raise,0x1
00ab e002       |    |		Load	0x0,0x2
00ac 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae 00c8       |    |		Action	Pop_Auxiliary_Range
00af 3ff3       |?   |		Loop_Increasing	0xa3
00b0 00ce       |    |		Action	Pop_Auxiliary
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 e002       |    |		Load	0x0,0x2
00b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b4 e004       |    |		Load	0x0,0x4
00b5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00b6 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00b7 0000       |    |		.XXX[0x1]
00b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
00bc 0000 0000  |    |		.BLANK	0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 00e4       |    |		Load_Encached	Positive_Cache
00c4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00c5			BODY_00c0:
00c5 00cf       |    |		Action	Mark_Auxiliary
00c6 67f1       |g   |		Indirect_Literal	Discrete,0xb8,{0x00000000, 0x00000400}
00c7 4801       |H   |		Short_Literal	0x1
00c8 0007       |    |		Action	Break_Optional
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca e5ff       |    |		Load	0x2,-0x1
00cb 01d7       |    |		Execute	Vector,Field_Read
00cc 7002       |p   |		Jump_Nonzero	0xcf
00cd 00d2       |    |		Pop_Control	Pop_Count_2
00ce 7805       |x   |		Jump	0xd4
00cf 00db       |    |		Load_Top	At_Offset_3
00d0 0a01       |    |		Execute_Immediate	Plus,0x1
00d1 c402       |    |		Store	0x2,0x2
00d2 00c8       |    |		Action	Pop_Auxiliary_Range
00d3 3ff5       |?   |		Loop_Increasing	0xc9
00d4 00ce       |    |		Action	Pop_Auxiliary
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e1       |    |		.CONST	0x00e1								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0004       |    |		.CONST	0x0004								; Number of locals
00db			INIT_00d8:
00db 00e4       |    |		Load_Encached	Positive_Cache
00dc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00dd 00e4       |    |		Load_Encached	Positive_Cache
00de 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00df 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
00e1			BODY_00d8:
00e1 e5fe       |    |		Load	0x2,-0x2
00e2 0e01       |    |		Execute_Immediate	Not_Equal,0x1
00e3 6802       |h   |		Jump_Zero	0xe6
00e4 8404       |    |		Call	0x2,0x4
00e5 7802       |x   |		Jump	0xe8
00e6 4801       |H   |		Short_Literal	0x1
00e7 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ea 0000 0000  |    |		.BLANK	0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f6       |    |		.CONST	0x00f6								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 00e4       |    |		Load_Encached	Positive_Cache
00f5 03f1       |    |		Declare_Variable	Discrete,With_Value
00f6			BODY_00f0:
00f6 00cf       |    |		Action	Mark_Auxiliary
00f7 6018       |`   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00000400}
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 0263       | c  |		Execute	Discrete,Above_Bound
00fa 700b       |p   |		Jump_Nonzero	0x106
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc e5ff       |    |		Load	0x2,-0x1
00fd 01d7       |    |		Execute	Vector,Field_Read
00fe 0f04       |    |		Execute_Immediate	Equal,0x4
00ff 6804       |h   |		Jump_Zero	0x104
0100 00d8       |    |		Load_Top	At_Offset_0
0101 a402       |    |		Store_Unchecked	0x2,0x2
0102 00d2       |    |		Pop_Control	Pop_Count_2
0103 7802       |x   |		Jump	0x106
0104 00c8       |    |		Action	Pop_Auxiliary_Range
0105 3ff5       |?   |		Loop_Increasing	0xfb
0106 00ce       |    |		Action	Pop_Auxiliary
0107 00d8       |    |		Load_Top	At_Offset_0
0108 0aff       |    |		Execute_Immediate	Plus,-0x1
0109 00d8       |    |		Load_Top	At_Offset_0
010a 00e4       |    |		Load_Encached	Positive_Cache
010b 0260       | `  |		Execute	Discrete,In_Type
010c 7001       |p   |		Jump_Nonzero	0x10e
010d 0801       |    |		Execute_Immediate	Raise,0x1
010e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010f 0000       |    |		.XXX[0x1]
0110 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0127       | '  |		.CONST	0x0127								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0005       |    |		.CONST	0x0005								; Number of locals
011b			INIT_0118:
011b 4801       |H   |		Short_Literal	0x1
011c 67f3       |g   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00000400}
011d 00e9       |    |		Load_Encached	String_Cache
011e 035b       | [  |		Declare_Type	Array,Constrained
011f 0337       | 7  |		Declare_Variable	Array
0120 4801       |H   |		Short_Literal	0x1
0121 67ee       |g   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00000400}
0122 00e9       |    |		Load_Encached	String_Cache
0123 035b       | [  |		Declare_Type	Array,Constrained
0124 0337       | 7  |		Declare_Variable	Array
0125 00e4       |    |		Load_Encached	Positive_Cache
0126 00e4       |    |		Load_Encached	Positive_Cache
0127			BODY_0118:
0127 e5ff       |    |		Load	0x2,-0x1
0128 e004       |    |		Load	0x0,0x4
0129 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
012a e402       |    |		Load	0x2,0x2
012b 01d4       |    |		Execute	Vector,Structure_Write
012c e5fe       |    |		Load	0x2,-0x2
012d e402       |    |		Load	0x2,0x2
012e 820f       |    |		Call	0x1,0xf
012f 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0130 00d9       |    |		Load_Top	At_Offset_1
0131 e402       |    |		Load	0x2,0x2
0132 8210       |    |		Call	0x1,0x10
0133 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0134 00cf       |    |		Action	Mark_Auxiliary
0135 00d9       |    |		Load_Top	At_Offset_1
0136 00db       |    |		Load_Top	At_Offset_3
0137 0263       | c  |		Execute	Discrete,Above_Bound
0138 700b       |p   |		Jump_Nonzero	0x144
0139 00d8       |    |		Load_Top	At_Offset_0
013a e402       |    |		Load	0x2,0x2
013b 01d7       |    |		Execute	Vector,Field_Read
013c 00d9       |    |		Load_Top	At_Offset_1
013d e404       |    |		Load	0x2,0x4
013e 0272       | r  |		Execute	Discrete,Minus
013f 0a01       |    |		Execute_Immediate	Plus,0x1
0140 e403       |    |		Load	0x2,0x3
0141 01d6       |    |		Execute	Vector,Field_Write
0142 00c8       |    |		Action	Pop_Auxiliary_Range
0143 3ff5       |?   |		Loop_Increasing	0x139
0144 00ce       |    |		Action	Pop_Auxiliary
0145 00d8       |    |		Load_Top	At_Offset_0
0146 67c9       |g   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00000400}
0147 027c       | |  |		Execute	Discrete,Less
0148 6815       |h   |		Jump_Zero	0x15e
0149 00cf       |    |		Action	Mark_Auxiliary
014a 67c5       |g   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00000400}
014b 00da       |    |		Load_Top	At_Offset_2
014c 0a01       |    |		Execute_Immediate	Plus,0x1
014d 00d8       |    |		Load_Top	At_Offset_0
014e 00e2       |    |		Load_Encached	Integer_Cache
014f 0260       | `  |		Execute	Discrete,In_Type
0150 7001       |p   |		Jump_Nonzero	0x152
0151 0801       |    |		Execute_Immediate	Raise,0x1
0152 0263       | c  |		Execute	Discrete,Above_Bound
0153 7009       |p   |		Jump_Nonzero	0x15d
0154 4800       |H   |		Short_Literal	0x0
0155 00d9       |    |		Load_Top	At_Offset_1
0156 e404       |    |		Load	0x2,0x4
0157 0272       | r  |		Execute	Discrete,Minus
0158 0a01       |    |		Execute_Immediate	Plus,0x1
0159 e403       |    |		Load	0x2,0x3
015a 01d6       |    |		Execute	Vector,Field_Write
015b 00c8       |    |		Action	Pop_Auxiliary_Range
015c 3ff7       |?   |		Loop_Increasing	0x154
015d 00ce       |    |		Action	Pop_Auxiliary
015e 00da       |    |		Load_Top	At_Offset_2
015f 00e9       |    |		Load_Encached	String_Cache
0160 01c6       |    |		Execute	Vector,Convert_To_Formal
0161 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0174       | t  |		.CONST	0x0174								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0005       |    |		.CONST	0x0005								; Number of locals
016b			INIT_0168:
016b 6044       |`D  |		Indirect_Literal	Discrete,0x1b0,{0x00000000, 0x00000400}
016c e002       |    |		Load	0x0,0x2
016d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
016e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
016f 00d8       |    |		Load_Top	At_Offset_0
0170 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0171 00e4       |    |		Load_Encached	Positive_Cache
0172 00e4       |    |		Load_Encached	Positive_Cache
0173 00e4       |    |		Load_Encached	Positive_Cache
0174			BODY_0168:
0174 00db       |    |		Load_Top	At_Offset_3
0175 e5ff       |    |		Load	0x2,-0x1
0176 e004       |    |		Load	0x0,0x4
0177 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0178 e002       |    |		Load	0x0,0x2
0179 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
017a 00d1       |    |		Pop_Control	Pop_Count_1
017b 00db       |    |		Load_Top	At_Offset_3
017c e002       |    |		Load	0x0,0x2
017d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
017e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
017f e5fe       |    |		Load	0x2,-0x2
0180 e5ff       |    |		Load	0x2,-0x1
0181 e004       |    |		Load	0x0,0x4
0182 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0183 820f       |    |		Call	0x1,0xf
0184 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0185 00da       |    |		Load_Top	At_Offset_2
0186 e5ff       |    |		Load	0x2,-0x1
0187 e004       |    |		Load	0x0,0x4
0188 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0189 8210       |    |		Call	0x1,0x10
018a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
018b 00db       |    |		Load_Top	At_Offset_3
018c 00db       |    |		Load_Top	At_Offset_3
018d 0aff       |    |		Execute_Immediate	Plus,-0x1
018e 00d8       |    |		Load_Top	At_Offset_0
018f 00e3       |    |		Load_Encached	Natural_Cache
0190 0260       | `  |		Execute	Discrete,In_Type
0191 7001       |p   |		Jump_Nonzero	0x193
0192 0801       |    |		Execute_Immediate	Raise,0x1
0193 4801       |H   |		Short_Literal	0x1
0194 e002       |    |		Load	0x0,0x2
0195 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0196 00d1       |    |		Pop_Control	Pop_Count_1
0197 00db       |    |		Load_Top	At_Offset_3
0198 00d9       |    |		Load_Top	At_Offset_1
0199 00db       |    |		Load_Top	At_Offset_3
019a 0272       | r  |		Execute	Discrete,Minus
019b 00d8       |    |		Load_Top	At_Offset_0
019c 00e3       |    |		Load_Encached	Natural_Cache
019d 0260       | `  |		Execute	Discrete,In_Type
019e 7001       |p   |		Jump_Nonzero	0x1a0
019f 0801       |    |		Execute_Immediate	Raise,0x1
01a0 00db       |    |		Load_Top	At_Offset_3
01a1 e403       |    |		Load	0x2,0x3
01a2 0272       | r  |		Execute	Discrete,Minus
01a3 0a02       |    |		Execute_Immediate	Plus,0x2
01a4 00d8       |    |		Load_Top	At_Offset_0
01a5 00e4       |    |		Load_Encached	Positive_Cache
01a6 0260       | `  |		Execute	Discrete,In_Type
01a7 7001       |p   |		Jump_Nonzero	0x1a9
01a8 0801       |    |		Execute_Immediate	Raise,0x1
01a9 e002       |    |		Load	0x0,0x2
01aa 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01ab 00d1       |    |		Pop_Control	Pop_Count_1
01ac 00db       |    |		Load_Top	At_Offset_3
01ad 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ae 0000 0000  |    |		.XXX[0x2]
01b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
01b4 0000 0000  |    |		.BLANK	0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c6       |    |		.CONST	0x01c6								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0005       |    |		.CONST	0x0005								; Number of locals
01bb			INIT_01b8:
01bb 67f4       |g   |		Indirect_Literal	Discrete,0x1b0,{0x00000000, 0x00000400}
01bc e002       |    |		Load	0x0,0x2
01bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01be 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c1 00e8       |    |		Load_Encached	Character_Cache
01c2 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
01c3 00e4       |    |		Load_Encached	Positive_Cache
01c4 00e4       |    |		Load_Encached	Positive_Cache
01c5 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01c6			BODY_01b8:
01c6 4805       |H   |		Short_Literal	0x5
01c7 e5ff       |    |		Load	0x2,-0x1
01c8 8212       |    |		Call	0x1,0x12
01c9 e402       |    |		Load	0x2,0x2
01ca 016d       | m  |		Execute	Variant_Record,Structure_Write
01cb 00db       |    |		Load_Top	At_Offset_3
01cc e002       |    |		Load	0x0,0x2
01cd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01ce 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01cf 00cf       |    |		Action	Mark_Auxiliary
01d0 7804       |x   |		Jump	0x1d5
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 0a01       |    |		Execute_Immediate	Plus,0x1
01d3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d4 00c9       |    |		Action	Pop_Auxiliary_Loop
01d5 00d9       |    |		Load_Top	At_Offset_1
01d6 e402       |    |		Load	0x2,0x2
01d7 e002       |    |		Load	0x0,0x2
01d8 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01d9 e403       |    |		Load	0x2,0x3
01da 027e       | ~  |		Execute	Discrete,Not_Equal
01db 00da       |    |		Load_Top	At_Offset_2
01dc e404       |    |		Load	0x2,0x4
01dd 027a       | z  |		Execute	Discrete,Less_Equal
01de 0279       | y  |		Execute	Discrete,And
01df 77f1       |w   |		Jump_Nonzero	0x1d1
01e0 00ce       |    |		Action	Pop_Auxiliary
01e1 00d8       |    |		Load_Top	At_Offset_0
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 027a       | z  |		Execute	Discrete,Less_Equal
01e4 680e       |h   |		Jump_Zero	0x1f3
01e5 00db       |    |		Load_Top	At_Offset_3
01e6 00da       |    |		Load_Top	At_Offset_2
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 0272       | r  |		Execute	Discrete,Minus
01e9 0a01       |    |		Execute_Immediate	Plus,0x1
01ea 00d8       |    |		Load_Top	At_Offset_0
01eb 00e3       |    |		Load_Encached	Natural_Cache
01ec 0260       | `  |		Execute	Discrete,In_Type
01ed 7001       |p   |		Jump_Nonzero	0x1ef
01ee 0801       |    |		Execute_Immediate	Raise,0x1
01ef 00da       |    |		Load_Top	At_Offset_2
01f0 e002       |    |		Load	0x0,0x2
01f1 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01f2 00d1       |    |		Pop_Control	Pop_Count_1
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0206       |    |		.CONST	0x0206								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0006       |    |		.CONST	0x0006								; Number of locals
01fb			INIT_01f8:
01fb 6020       |`   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x00000400}
01fc e002       |    |		Load	0x0,0x2
01fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01fe 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ff 00d8       |    |		Load_Top	At_Offset_0
0200 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0201 00e4       |    |		Load_Encached	Positive_Cache
0202 00e4       |    |		Load_Encached	Positive_Cache
0203 00e2       |    |		Load_Encached	Integer_Cache
0204 029f 0433  |   3|		Declare_Subprogram	INIT_0430,For_Call
0206			BODY_01f8:
0206 e5fe       |    |		Load	0x2,-0x2
0207 e5ff       |    |		Load	0x2,-0x1
0208 e004       |    |		Load	0x0,0x4
0209 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
020a 820f       |    |		Call	0x1,0xf
020b a403       |    |		Store_Unchecked	0x2,0x3
020c 00db       |    |		Load_Top	At_Offset_3
020d e5ff       |    |		Load	0x2,-0x1
020e e004       |    |		Load	0x0,0x4
020f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0210 8210       |    |		Call	0x1,0x10
0211 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0212 e5fe       |    |		Load	0x2,-0x2
0213 e5ff       |    |		Load	0x2,-0x1
0214 8211       |    |		Call	0x1,0x11
0215 e002       |    |		Load	0x0,0x2
0216 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0217 e402       |    |		Load	0x2,0x2
0218 016d       | m  |		Execute	Variant_Record,Structure_Write
0219 8406       |    |		Call	0x2,0x6
021a 00d9       |    |		Load_Top	At_Offset_1
021b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022a       | *  |		.CONST	0x022a								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0003       |    |		.CONST	0x0003								; Number of locals
0223			INIT_0220:
0223 67f8       |g   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x00000400}
0224 e002       |    |		Load	0x0,0x2
0225 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0226 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0227 00d8       |    |		Load_Top	At_Offset_0
0228 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0229 00e4       |    |		Load_Encached	Positive_Cache
022a			BODY_0220:
022a e5ff       |    |		Load	0x2,-0x1
022b 820e       |    |		Call	0x1,0xe
022c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
022d 00d9       |    |		Load_Top	At_Offset_1
022e e5ff       |    |		Load	0x2,-0x1
022f e002       |    |		Load	0x0,0x2
0230 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0231 00d1       |    |		Pop_Control	Pop_Count_1
0232 00d9       |    |		Load_Top	At_Offset_1
0233 67e8       |g   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x00000400}
0234 00da       |    |		Load_Top	At_Offset_2
0235 0272       | r  |		Execute	Discrete,Minus
0236 0a01       |    |		Execute_Immediate	Plus,0x1
0237 00d8       |    |		Load_Top	At_Offset_0
0238 00e3       |    |		Load_Encached	Natural_Cache
0239 0260       | `  |		Execute	Discrete,In_Type
023a 7001       |p   |		Jump_Nonzero	0x23c
023b 0801       |    |		Execute_Immediate	Raise,0x1
023c 00da       |    |		Load_Top	At_Offset_2
023d e002       |    |		Load	0x0,0x2
023e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
023f 00d1       |    |		Pop_Control	Pop_Count_1
0240 00d9       |    |		Load_Top	At_Offset_1
0241 e002       |    |		Load	0x0,0x2
0242 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0243 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0255       | U  |		.CONST	0x0255								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0009       |    |		.CONST	0x0009								; Number of locals
024b			INIT_0248:
024b 00e4       |    |		Load_Encached	Positive_Cache
024c 03e9       |    |		Declare_Variable	Discrete,Duplicate
024d 03e9       |    |		Declare_Variable	Discrete,Duplicate
024e 03e9       |    |		Declare_Variable	Discrete,Duplicate
024f 00e1       |    |		Load_Encached	Boolean_Cache
0250 00e2       |    |		Load_Encached	Integer_Cache
0251 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
0253 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
0255			BODY_0248:
0255 e5ff       |    |		Load	0x2,-0x1
0256 e002       |    |		Load	0x0,0x2
0257 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0258 c402       |    |		Store	0x2,0x2
0259 4801       |H   |		Short_Literal	0x1
025a a405       |    |		Store_Unchecked	0x2,0x5
025b e5fe       |    |		Load	0x2,-0x2
025c 0f01       |    |		Execute_Immediate	Equal,0x1
025d 6803       |h   |		Jump_Zero	0x261
025e 4801       |H   |		Short_Literal	0x1
025f a403       |    |		Store_Unchecked	0x2,0x3
0260 7817       |x   |		Jump	0x278
0261 00cf       |    |		Action	Mark_Auxiliary
0262 e402       |    |		Load	0x2,0x2
0263 4801       |H   |		Short_Literal	0x1
0264 0263       | c  |		Execute	Discrete,Above_Bound
0265 7011       |p   |		Jump_Nonzero	0x277
0266 00d8       |    |		Load_Top	At_Offset_0
0267 e5ff       |    |		Load	0x2,-0x1
0268 e002       |    |		Load	0x0,0x2
0269 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
026a 700a       |p   |		Jump_Nonzero	0x275
026b e405       |    |		Load	0x2,0x5
026c e5fe       |    |		Load	0x2,-0x2
026d 0aff       |    |		Execute_Immediate	Plus,-0x1
026e 027f       |    |		Execute	Discrete,Equal
026f 6802       |h   |		Jump_Zero	0x272
0270 8408       |    |		Call	0x2,0x8
0271 7803       |x   |		Jump	0x275
0272 e405       |    |		Load	0x2,0x5
0273 0a01       |    |		Execute_Immediate	Plus,0x1
0274 c405       |    |		Store	0x2,0x5
0275 00c8       |    |		Action	Pop_Auxiliary_Range
0276 3fef       |?   |		Loop_Increasing	0x266
0277 00ce       |    |		Action	Pop_Auxiliary
0278 4801       |H   |		Short_Literal	0x1
0279 a405       |    |		Store_Unchecked	0x2,0x5
027a 00cf       |    |		Action	Mark_Auxiliary
027b e402       |    |		Load	0x2,0x2
027c 4801       |H   |		Short_Literal	0x1
027d 0263       | c  |		Execute	Discrete,Above_Bound
027e 7010       |p   |		Jump_Nonzero	0x28f
027f 00d8       |    |		Load_Top	At_Offset_0
0280 e5ff       |    |		Load	0x2,-0x1
0281 e002       |    |		Load	0x0,0x2
0282 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0283 7009       |p   |		Jump_Nonzero	0x28d
0284 e405       |    |		Load	0x2,0x5
0285 e5fe       |    |		Load	0x2,-0x2
0286 027f       |    |		Execute	Discrete,Equal
0287 6802       |h   |		Jump_Zero	0x28a
0288 8409       |    |		Call	0x2,0x9
0289 7803       |x   |		Jump	0x28d
028a e405       |    |		Load	0x2,0x5
028b 0a01       |    |		Execute_Immediate	Plus,0x1
028c c405       |    |		Store	0x2,0x5
028d 00c8       |    |		Action	Pop_Auxiliary_Range
028e 3ff0       |?   |		Loop_Increasing	0x27f
028f 00ce       |    |		Action	Pop_Auxiliary
0290 00e1       |    |		Load_Encached	Boolean_Cache
0291 00e2       |    |		Load_Encached	Integer_Cache
0292 480a       |H   |		Short_Literal	0xa
0293 e404       |    |		Load	0x2,0x4
0294 e403       |    |		Load	0x2,0x3
0295 e5ff       |    |		Load	0x2,-0x1
0296 e002       |    |		Load	0x0,0x2
0297 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0298 e003       |    |		Load	0x0,0x3
0299 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
029a c407       |    |		Store	0x2,0x7
029b c406       |    |		Store	0x2,0x6
029c 00da       |    |		Load_Top	At_Offset_2
029d 4900       |I   |		Short_Literal	0x100
029e 027f       |    |		Execute	Discrete,Equal
029f 6802       |h   |		Jump_Zero	0x2a2
02a0 4800       |H   |		Short_Literal	0x0
02a1 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a4 0000 0000  |    |		.BLANK	0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b5       |    |		.CONST	0x02b5								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0006       |    |		.CONST	0x0006								; Number of locals
02ab			INIT_02a8:
02ab 00e2       |    |		Load_Encached	Integer_Cache
02ac 03e9       |    |		Declare_Variable	Discrete,Duplicate
02ad 03e9       |    |		Declare_Variable	Discrete,Duplicate
02ae 03e9       |    |		Declare_Variable	Discrete,Duplicate
02af 4801       |H   |		Short_Literal	0x1
02b0 4804       |H   |		Short_Literal	0x4
02b1 e005       |    |		Load	0x0,0x5
02b2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02b3 035b       | [  |		Declare_Type	Array,Constrained
02b4 0337       | 7  |		Declare_Variable	Array
02b5			BODY_02a8:
02b5 4801       |H   |		Short_Literal	0x1
02b6 e5ff       |    |		Load	0x2,-0x1
02b7 8216       |    |		Call	0x1,0x16
02b8 a402       |    |		Store_Unchecked	0x2,0x2
02b9 4802       |H   |		Short_Literal	0x2
02ba e5ff       |    |		Load	0x2,-0x1
02bb 8216       |    |		Call	0x1,0x16
02bc a403       |    |		Store_Unchecked	0x2,0x3
02bd 4803       |H   |		Short_Literal	0x3
02be e5ff       |    |		Load	0x2,-0x1
02bf 8216       |    |		Call	0x1,0x16
02c0 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02c1 4804       |H   |		Short_Literal	0x4
02c2 e5ff       |    |		Load	0x2,-0x1
02c3 8216       |    |		Call	0x1,0x16
02c4 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 4801       |H   |		Short_Literal	0x1
02c7 4804       |H   |		Short_Literal	0x4
02c8 00da       |    |		Load_Top	At_Offset_2
02c9 035b       | [  |		Declare_Type	Array,Constrained
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 01cd       |    |		Execute	Vector,Slice_Reference
02cc 4801       |H   |		Short_Literal	0x1
02cd 4804       |H   |		Short_Literal	0x4
02ce e006       |    |		Load	0x0,0x6
02cf 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
02d0 035b       | [  |		Declare_Type	Array,Constrained
02d1 0337       | 7  |		Declare_Variable	Array
02d2 e402       |    |		Load	0x2,0x2
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 e006       |    |		Load	0x0,0x6
02d5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02d6 0260       | `  |		Execute	Discrete,In_Type
02d7 7001       |p   |		Jump_Nonzero	0x2d9
02d8 0801       |    |		Execute_Immediate	Raise,0x1
02d9 4801       |H   |		Short_Literal	0x1
02da 00da       |    |		Load_Top	At_Offset_2
02db 01d6       |    |		Execute	Vector,Field_Write
02dc e403       |    |		Load	0x2,0x3
02dd 00d8       |    |		Load_Top	At_Offset_0
02de e006       |    |		Load	0x0,0x6
02df 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02e0 0260       | `  |		Execute	Discrete,In_Type
02e1 7001       |p   |		Jump_Nonzero	0x2e3
02e2 0801       |    |		Execute_Immediate	Raise,0x1
02e3 4802       |H   |		Short_Literal	0x2
02e4 00da       |    |		Load_Top	At_Offset_2
02e5 01d6       |    |		Execute	Vector,Field_Write
02e6 e404       |    |		Load	0x2,0x4
02e7 00d8       |    |		Load_Top	At_Offset_0
02e8 e006       |    |		Load	0x0,0x6
02e9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02ea 0260       | `  |		Execute	Discrete,In_Type
02eb 7001       |p   |		Jump_Nonzero	0x2ed
02ec 0801       |    |		Execute_Immediate	Raise,0x1
02ed 4803       |H   |		Short_Literal	0x3
02ee 00da       |    |		Load_Top	At_Offset_2
02ef 01d6       |    |		Execute	Vector,Field_Write
02f0 e405       |    |		Load	0x2,0x5
02f1 00d8       |    |		Load_Top	At_Offset_0
02f2 e006       |    |		Load	0x0,0x6
02f3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02f4 0260       | `  |		Execute	Discrete,In_Type
02f5 7001       |p   |		Jump_Nonzero	0x2f7
02f6 0801       |    |		Execute_Immediate	Raise,0x1
02f7 4804       |H   |		Short_Literal	0x4
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 01d6       |    |		Execute	Vector,Field_Write
02fa 00cd       |    |		Action	Spare6_Action
02fb 4801       |H   |		Short_Literal	0x1
02fc 4804       |H   |		Short_Literal	0x4
02fd 00db       |    |		Load_Top	At_Offset_3
02fe 01ce       |    |		Execute	Vector,Slice_Write
02ff 00d1       |    |		Pop_Control	Pop_Count_1
0300 00d8       |    |		Load_Top	At_Offset_0
0301 e005       |    |		Load	0x0,0x5
0302 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0303 01c6       |    |		Execute	Vector,Convert_To_Formal
0304 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0305 0000 0000  |    |		.XXX[0x3]
0307 0000       |    |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0313       |    |		.CONST	0x0313								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0004       |    |		.CONST	0x0004								; Number of locals
030b			INIT_0308:
030b 00e2       |    |		Load_Encached	Integer_Cache
030c 03e9       |    |		Declare_Variable	Discrete,Duplicate
030d 4801       |H   |		Short_Literal	0x1
030e 4802       |H   |		Short_Literal	0x2
030f e005       |    |		Load	0x0,0x5
0310 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0311 035b       | [  |		Declare_Type	Array,Constrained
0312 0337       | 7  |		Declare_Variable	Array
0313			BODY_0308:
0313 4801       |H   |		Short_Literal	0x1
0314 e5ff       |    |		Load	0x2,-0x1
0315 8216       |    |		Call	0x1,0x16
0316 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0317 4802       |H   |		Short_Literal	0x2
0318 e5ff       |    |		Load	0x2,-0x1
0319 8216       |    |		Call	0x1,0x16
031a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
031b 00d8       |    |		Load_Top	At_Offset_0
031c 4801       |H   |		Short_Literal	0x1
031d 4802       |H   |		Short_Literal	0x2
031e 00da       |    |		Load_Top	At_Offset_2
031f 035b       | [  |		Declare_Type	Array,Constrained
0320 00d9       |    |		Load_Top	At_Offset_1
0321 01cd       |    |		Execute	Vector,Slice_Reference
0322 4801       |H   |		Short_Literal	0x1
0323 4802       |H   |		Short_Literal	0x2
0324 e006       |    |		Load	0x0,0x6
0325 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0326 035b       | [  |		Declare_Type	Array,Constrained
0327 0337       | 7  |		Declare_Variable	Array
0328 e402       |    |		Load	0x2,0x2
0329 00d8       |    |		Load_Top	At_Offset_0
032a e006       |    |		Load	0x0,0x6
032b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
032c 0260       | `  |		Execute	Discrete,In_Type
032d 7001       |p   |		Jump_Nonzero	0x32f
032e 0801       |    |		Execute_Immediate	Raise,0x1
032f 4801       |H   |		Short_Literal	0x1
0330 00da       |    |		Load_Top	At_Offset_2
0331 01d6       |    |		Execute	Vector,Field_Write
0332 e403       |    |		Load	0x2,0x3
0333 00d8       |    |		Load_Top	At_Offset_0
0334 e006       |    |		Load	0x0,0x6
0335 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0336 0260       | `  |		Execute	Discrete,In_Type
0337 7001       |p   |		Jump_Nonzero	0x339
0338 0801       |    |		Execute_Immediate	Raise,0x1
0339 4802       |H   |		Short_Literal	0x2
033a 00da       |    |		Load_Top	At_Offset_2
033b 01d6       |    |		Execute	Vector,Field_Write
033c 00cd       |    |		Action	Spare6_Action
033d 4801       |H   |		Short_Literal	0x1
033e 4802       |H   |		Short_Literal	0x2
033f 00db       |    |		Load_Top	At_Offset_3
0340 01ce       |    |		Execute	Vector,Slice_Write
0341 00d1       |    |		Pop_Control	Pop_Count_1
0342 00d8       |    |		Load_Top	At_Offset_0
0343 e005       |    |		Load	0x0,0x5
0344 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0345 01c6       |    |		Execute	Vector,Convert_To_Formal
0346 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0347 0000       |    |		.XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0356       | V  |		.CONST	0x0356								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0007       |    |		.CONST	0x0007								; Number of locals
034b			INIT_0348:
034b 6054       |`T  |		Indirect_Literal	Discrete,0x3a0,{0x00000000, 0x00000400}
034c e002       |    |		Load	0x0,0x2
034d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
034f 00d8       |    |		Load_Top	At_Offset_0
0350 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0351 00e4       |    |		Load_Encached	Positive_Cache
0352 00e2       |    |		Load_Encached	Integer_Cache
0353 03e9       |    |		Declare_Variable	Discrete,Duplicate
0354 03e9       |    |		Declare_Variable	Discrete,Duplicate
0355 03e9       |    |		Declare_Variable	Discrete,Duplicate
0356			BODY_0348:
0356 e5ff       |    |		Load	0x2,-0x1
0357 a404       |    |		Store_Unchecked	0x2,0x4
0358 e5fe       |    |		Load	0x2,-0x2
0359 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
035a e5fd       |    |		Load	0x2,-0x3
035b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
035c e5fc       |    |		Load	0x2,-0x4
035d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
035e 00db       |    |		Load_Top	At_Offset_3
035f 7002       |p   |		Jump_Nonzero	0x362
0360 4900       |I   |		Short_Literal	0x100
0361 a404       |    |		Store_Unchecked	0x2,0x4
0362 00da       |    |		Load_Top	At_Offset_2
0363 7002       |p   |		Jump_Nonzero	0x366
0364 4900       |I   |		Short_Literal	0x100
0365 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0366 00d9       |    |		Load_Top	At_Offset_1
0367 7002       |p   |		Jump_Nonzero	0x36a
0368 4900       |I   |		Short_Literal	0x100
0369 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
036a 00d8       |    |		Load_Top	At_Offset_0
036b 7002       |p   |		Jump_Nonzero	0x36e
036c 4900       |I   |		Short_Literal	0x100
036d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
036e e402       |    |		Load	0x2,0x2
036f 4800       |H   |		Short_Literal	0x0
0370 4820       |H   |		Short_Literal	0x20
0371 4800       |H   |		Short_Literal	0x0
0372 480a       |H   |		Short_Literal	0xa
0373 e404       |    |		Load	0x2,0x4
0374 e003       |    |		Load	0x0,0x3
0375 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0376 01cb       |    |		Execute	Vector,Append
0377 e002       |    |		Load	0x0,0x2
0378 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0379 00d1       |    |		Pop_Control	Pop_Count_1
037a e402       |    |		Load	0x2,0x2
037b 4800       |H   |		Short_Literal	0x0
037c 4820       |H   |		Short_Literal	0x20
037d 4800       |H   |		Short_Literal	0x0
037e 480a       |H   |		Short_Literal	0xa
037f e405       |    |		Load	0x2,0x5
0380 e003       |    |		Load	0x0,0x3
0381 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0382 01cb       |    |		Execute	Vector,Append
0383 e002       |    |		Load	0x0,0x2
0384 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0385 00d1       |    |		Pop_Control	Pop_Count_1
0386 e402       |    |		Load	0x2,0x2
0387 4800       |H   |		Short_Literal	0x0
0388 4820       |H   |		Short_Literal	0x20
0389 4800       |H   |		Short_Literal	0x0
038a 480a       |H   |		Short_Literal	0xa
038b e406       |    |		Load	0x2,0x6
038c e003       |    |		Load	0x0,0x3
038d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
038e 01cb       |    |		Execute	Vector,Append
038f e002       |    |		Load	0x0,0x2
0390 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0391 00d1       |    |		Pop_Control	Pop_Count_1
0392 e402       |    |		Load	0x2,0x2
0393 4800       |H   |		Short_Literal	0x0
0394 4820       |H   |		Short_Literal	0x20
0395 4800       |H   |		Short_Literal	0x0
0396 480a       |H   |		Short_Literal	0xa
0397 e407       |    |		Load	0x2,0x7
0398 e003       |    |		Load	0x0,0x3
0399 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
039a 01cb       |    |		Execute	Vector,Append
039b e002       |    |		Load	0x0,0x2
039c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
039d 00d1       |    |		Pop_Control	Pop_Count_1
039e e402       |    |		Load	0x2,0x2
039f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
03a4 0000 0000  |    |		.BLANK	0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b4       |    |		.CONST	0x03b4								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0005       |    |		.CONST	0x0005								; Number of locals
03ab			INIT_03a8:
03ab 67f4       |g   |		Indirect_Literal	Discrete,0x3a0,{0x00000000, 0x00000400}
03ac e002       |    |		Load	0x0,0x2
03ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ae 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03af 00d8       |    |		Load_Top	At_Offset_0
03b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b1 00e4       |    |		Load_Encached	Positive_Cache
03b2 00e2       |    |		Load_Encached	Integer_Cache
03b3 03e9       |    |		Declare_Variable	Discrete,Duplicate
03b4			BODY_03a8:
03b4 e5ff       |    |		Load	0x2,-0x1
03b5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03b6 e5fe       |    |		Load	0x2,-0x2
03b7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03b8 00d9       |    |		Load_Top	At_Offset_1
03b9 7002       |p   |		Jump_Nonzero	0x3bc
03ba 4900       |I   |		Short_Literal	0x100
03bb 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03bc 00d8       |    |		Load_Top	At_Offset_0
03bd 7002       |p   |		Jump_Nonzero	0x3c0
03be 4900       |I   |		Short_Literal	0x100
03bf 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03c0 00db       |    |		Load_Top	At_Offset_3
03c1 4800       |H   |		Short_Literal	0x0
03c2 4820       |H   |		Short_Literal	0x20
03c3 4800       |H   |		Short_Literal	0x0
03c4 480a       |H   |		Short_Literal	0xa
03c5 e404       |    |		Load	0x2,0x4
03c6 e003       |    |		Load	0x0,0x3
03c7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03c8 01cb       |    |		Execute	Vector,Append
03c9 e002       |    |		Load	0x0,0x2
03ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03cb 00d1       |    |		Pop_Control	Pop_Count_1
03cc 00db       |    |		Load_Top	At_Offset_3
03cd 4800       |H   |		Short_Literal	0x0
03ce 4820       |H   |		Short_Literal	0x20
03cf 4800       |H   |		Short_Literal	0x0
03d0 480a       |H   |		Short_Literal	0xa
03d1 e405       |    |		Load	0x2,0x5
03d2 e003       |    |		Load	0x0,0x3
03d3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03d4 01cb       |    |		Execute	Vector,Append
03d5 e002       |    |		Load	0x0,0x2
03d6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03d7 00d1       |    |		Pop_Control	Pop_Count_1
03d8 00db       |    |		Load_Top	At_Offset_3
03d9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03da 0000 0000  |    |		.BLANK	0000[0x6]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e7       |    |		.CONST	0x03e7								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0005       |    |		.CONST	0x0005								; Number of locals
03e3			INIT_03e0:
03e3 00e2       |    |		Load_Encached	Integer_Cache
03e4 03e9       |    |		Declare_Variable	Discrete,Duplicate
03e5 03e9       |    |		Declare_Variable	Discrete,Duplicate
03e6 03e9       |    |		Declare_Variable	Discrete,Duplicate
03e7			BODY_03e0:
03e7 4801       |H   |		Short_Literal	0x1
03e8 e5ff       |    |		Load	0x2,-0x1
03e9 01d7       |    |		Execute	Vector,Field_Read
03ea a402       |    |		Store_Unchecked	0x2,0x2
03eb 4802       |H   |		Short_Literal	0x2
03ec e5ff       |    |		Load	0x2,-0x1
03ed 01d7       |    |		Execute	Vector,Field_Read
03ee 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
03ef 4803       |H   |		Short_Literal	0x3
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 01d7       |    |		Execute	Vector,Field_Read
03f2 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03f3 4804       |H   |		Short_Literal	0x4
03f4 e5ff       |    |		Load	0x2,-0x1
03f5 01d7       |    |		Execute	Vector,Field_Read
03f6 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03f7 00d8       |    |		Load_Top	At_Offset_0
03f8 00da       |    |		Load_Top	At_Offset_2
03f9 e403       |    |		Load	0x2,0x3
03fa e402       |    |		Load	0x2,0x2
03fb 8219       |    |		Call	0x1,0x19
03fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fd 0000 0000  |    |		.XXX[0x3]
03ff 0000       |    |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0405       |    |		.CONST	0x0405								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0003       |    |		.CONST	0x0003								; Number of locals
0403			INIT_0400:
0403 00e2       |    |		Load_Encached	Integer_Cache
0404 03e9       |    |		Declare_Variable	Discrete,Duplicate
0405			BODY_0400:
0405 4801       |H   |		Short_Literal	0x1
0406 e5ff       |    |		Load	0x2,-0x1
0407 01d7       |    |		Execute	Vector,Field_Read
0408 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0409 4802       |H   |		Short_Literal	0x2
040a e5ff       |    |		Load	0x2,-0x1
040b 01d7       |    |		Execute	Vector,Field_Read
040c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
040d 00d8       |    |		Load_Top	At_Offset_0
040e 00da       |    |		Load_Top	At_Offset_2
040f 821a       |    |		Call	0x1,0x1a
0410 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041d       |    |		.CONST	0x041d								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
041d			BODY_0418:
041d 00cf       |    |		Action	Mark_Auxiliary
041e 600d       |`   |		Indirect_Literal	Discrete,0x42c,{0x00000000, 0x00000400}
041f 4801       |H   |		Short_Literal	0x1
0420 0007       |    |		Action	Break_Optional
0421 00d8       |    |		Load_Top	At_Offset_0
0422 e5ff       |    |		Load	0x2,-0x1
0423 01d7       |    |		Execute	Vector,Field_Read
0424 0f04       |    |		Execute_Immediate	Equal,0x4
0425 6801       |h   |		Jump_Zero	0x427
0426 8602       |    |		Call	0x3,0x2
0427 00c8       |    |		Action	Pop_Auxiliary_Range
0428 3ff8       |?   |		Loop_Increasing	0x421
0429 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
042a 0000 0000  |    |		.XXX[0x2]
042c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 043b       | ;  |		.CONST	0x043b								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0003       |    |		.CONST	0x0003								; Number of locals
0433			INIT_0430:
0433 4801       |H   |		Short_Literal	0x1
0434 e404       |    |		Load	0x2,0x4
0435 e403       |    |		Load	0x2,0x3
0436 0272       | r  |		Execute	Discrete,Minus
0437 00e9       |    |		Load_Encached	String_Cache
0438 035b       | [  |		Declare_Type	Array,Constrained
0439 0337       | 7  |		Declare_Variable	Array
043a 00e1       |    |		Load_Encached	Boolean_Cache
043b			BODY_0430:
043b 00cf       |    |		Action	Mark_Auxiliary
043c e404       |    |		Load	0x2,0x4
043d e403       |    |		Load	0x2,0x3
043e 0272       | r  |		Execute	Discrete,Minus
043f 4801       |H   |		Short_Literal	0x1
0440 0263       | c  |		Execute	Discrete,Above_Bound
0441 7009       |p   |		Jump_Nonzero	0x44b
0442 00d8       |    |		Load_Top	At_Offset_0
0443 e402       |    |		Load	0x2,0x2
0444 e002       |    |		Load	0x0,0x2
0445 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0446 00d9       |    |		Load_Top	At_Offset_1
0447 e602       |    |		Load	0x3,0x2
0448 01d6       |    |		Execute	Vector,Field_Write
0449 00c8       |    |		Action	Pop_Auxiliary_Range
044a 3ff7       |?   |		Loop_Increasing	0x442
044b 00ce       |    |		Action	Pop_Auxiliary
044c 00e1       |    |		Load_Encached	Boolean_Cache
044d 00e2       |    |		Load_Encached	Integer_Cache
044e 480a       |H   |		Short_Literal	0xa
044f e602       |    |		Load	0x3,0x2
0450 e003       |    |		Load	0x0,0x3
0451 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0452 c405       |    |		Store	0x2,0x5
0453 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0454 00d8       |    |		Load_Top	At_Offset_0
0455 7004       |p   |		Jump_Nonzero	0x45a
0456 0092 0492  |    |		Action	Push_String_Extended,0x492					; " > Erreur conversion string->number < "
0458 e007       |    |		Load	0x0,0x7
0459 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
045a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
045b 0000 0000  |    |		.BLANK	0000[0x5]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 e40c       |    |		Load	0x2,0xc
0464 0a01       |    |		Execute_Immediate	Plus,0x1
0465 c403       |    |		Store	0x2,0x3
0466 00cc       |    |		Action	Pop_Block
0467 00d2       |    |		Pop_Control	Pop_Count_2
0468 7e0e       |~   |		Jump	0x277
0469 0000 0000  |    |		.BLANK	0000[0x7]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 e40c       |    |		Load	0x2,0xc
0474 0aff       |    |		Execute_Immediate	Plus,-0x1
0475 c404       |    |		Store	0x2,0x4
0476 00cc       |    |		Action	Pop_Block
0477 00d2       |    |		Pop_Control	Pop_Count_2
0478 7e16       |~   |		Jump	0x28f
0479 0000 0000  |    |		.BLANK	0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 e403       |    |		Load	0x2,0x3
0484 0a01       |    |		Execute_Immediate	Plus,0x1
0485 e5fe       |    |		Load	0x2,-0x2
0486 027f       |    |		Execute	Discrete,Equal
0487 6806       |h   |		Jump_Zero	0x48e
0488 e605       |    |		Load	0x3,0x5
0489 0a01       |    |		Execute_Immediate	Plus,0x1
048a c402       |    |		Store	0x2,0x2
048b 00cc       |    |		Action	Pop_Block
048c 00d2       |    |		Pop_Control	Pop_Count_2
048d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
048e e403       |    |		Load	0x2,0x3
048f 0a01       |    |		Execute_Immediate	Plus,0x1
0490 c403       |    |		Store	0x2,0x3
0491 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0492 ; --------------------------------------------------------------------------------------
0492 ; STRING TABLE
0492 ; --------------------------------------------------------------------------------------
0492 0004       |    |		.STRTAB	0x0004->0x0494							; " > Erreur conversion string->number < "
0493 0028       | (  |		.STREND 0x0028->0x04a7
0494 203e 2045  | > E|		.STRTAB_STRINGS
04a7 0000       |    |		.XXX[0x1]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug Table
04a8 ; --------------------------------------------------------------------------------------
04a8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x6f12,0x0000,0x0001,0x0017
04ae 000b 050a  |    |		.DBG4T	0x000b,0x050a,0x8000,0x0000
04b2 002c 051c  | ,  |		.DBG4T	0x002c,0x051c,0x8000,0x0000
04b6 0053 052e  | S .|		.DBG4T	0x0053,0x052e,0x0002,0x0000
04ba 00c3 053e  |   >|		.DBG4T	0x00c3,0x053e,0x0002,0x4000
04be 00db 054d  |   M|		.DBG4T	0x00db,0x054d,0x0002,0x0000
04c2 00f3 0555  |   U|		.DBG4T	0x00f3,0x0555,0x0002,0x4000
04c6 011b 0564  |   d|		.DBG4T	0x011b,0x0564,0x0002,0x0000
04ca 016b 0573  | k s|		.DBG4T	0x016b,0x0573,0x0002,0x0000
04ce 01bb 0580  |    |		.DBG4T	0x01bb,0x0580,0x0002,0x4000
04d2 01fb 0594  |    |		.DBG4T	0x01fb,0x0594,0x0002,0x0000
04d6 0223 059f  | #  |		.DBG4T	0x0223,0x059f,0x0002,0x0000
04da 024b 05a7  | K  |		.DBG4T	0x024b,0x05a7,0x0002,0x4000
04de 02ab 05d6  |    |		.DBG4T	0x02ab,0x05d6,0x0002,0x0000
04e2 030b 05e0  |    |		.DBG4T	0x030b,0x05e0,0x0002,0x0000
04e6 034b 05e8  | K  |		.DBG4T	0x034b,0x05e8,0x0002,0x0000
04ea 03ab 05fe  |    |		.DBG4T	0x03ab,0x05fe,0x0002,0x0000
04ee 03e3 060c  |    |		.DBG4T	0x03e3,0x060c,0x0002,0x0000
04f2 0403 0614  |    |		.DBG4T	0x0403,0x0614,0x0002,0x0000
04f6 041b 061a  |    |		.DBG4T	0x041b,0x061a,0x0004,0x4000
04fa 0433 0624  | 3 $|		.DBG4T	0x0433,0x0624,0x0004,0x0000
04fe 0463 062d  | c -|		.DBG4T	0x0463,0x062d,0x0004,0x0000
0502 0473 0631  | s 1|		.DBG4T	0x0473,0x0631,0x0004,0x0000
0506 0483 0635  |   5|		.DBG4T	0x0483,0x0635,0x0004,0x0000
050a ; --------------------------------------------------------------------------------------
050a ; Debug chain
050a ; --------------------------------------------------------------------------------------
050a 0010 0000  |    |		.DBGLEN	0x0010,0x0000
050c 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029
051c ; --------------------------------------------------------------------------------------
051c ; Debug chain
051c ; --------------------------------------------------------------------------------------
051c 0010 0000  |    |		.DBGLEN	0x0010,0x0000
051e 002c 002e  | , .|		.DBGLNO	0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a
052e ; --------------------------------------------------------------------------------------
052e ; Debug chain
052e ; --------------------------------------------------------------------------------------
052e 0002 000c  |    |		.DBGLEN	0x0002,0x000c
0530 0053 0059  | S Y|		.DBGLNO	0x0053,0x0059,0x005a,0x0068,0x006d,0x0072,0x0077,0x007c,0x008a,0x008f,0x0094,0x0099,0x00a3,0x00b1
053e ; --------------------------------------------------------------------------------------
053e ; Debug chain
053e ; --------------------------------------------------------------------------------------
053e 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0540 00c3 00c5  |    |		.DBGLNO	0x00c3,0x00c5,0x00c6,0x00c9,0x00cd,0x00cf,0x00d5
0547 0001 0001  |    |		.XXX[0x6]
0549 0002 0003  |    |
054b 0004 0005  |    |
054d ; --------------------------------------------------------------------------------------
054d ; Debug chain
054d ; --------------------------------------------------------------------------------------
054d 0002 0004  |    |		.DBGLEN	0x0002,0x0004
054f 00db 00dd  |    |		.DBGLNO	0x00db,0x00dd,0x00e1,0x00e4,0x00e6,0x00e8
0555 ; --------------------------------------------------------------------------------------
0555 ; Debug chain
0555 ; --------------------------------------------------------------------------------------
0555 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0557 00f3 00f6  |    |		.DBGLNO	0x00f3,0x00f6,0x00f7,0x00fb,0x0100,0x0102,0x0107
055e 0001 0001  |    |		.XXX[0x6]
0560 0002 0003  |    |
0562 0004 0005  |    |
0564 ; --------------------------------------------------------------------------------------
0564 ; Debug chain
0564 ; --------------------------------------------------------------------------------------
0564 0004 0009  |    |		.DBGLEN	0x0004,0x0009
0566 011b 0120  |    |		.DBGLNO	0x011b,0x0120,0x0125,0x0126,0x0127,0x012c,0x0130,0x0135,0x0139,0x0145,0x014a,0x0154,0x015e
0573 ; --------------------------------------------------------------------------------------
0573 ; Debug chain
0573 ; --------------------------------------------------------------------------------------
0573 0004 0007  |    |		.DBGLEN	0x0004,0x0007
0575 016b 0171  | k q|		.DBGLNO	0x016b,0x0171,0x0172,0x0173,0x0174,0x017b,0x017f,0x0185,0x018b,0x0197,0x01ac
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug chain
0580 ; --------------------------------------------------------------------------------------
0580 0004 0007  |    |		.DBGLEN	0x0004,0x0007
0582 01bb 01c1  |    |		.DBGLNO	0x01bb,0x01c1,0x01c3,0x01c4,0x01c6,0x01cb,0x01d1,0x01d5,0x01e1,0x01e5,0x01f3
058d 0001 0002  |    |		.XXX[0x7]
058f 0004 0003  |    |
0591 0005 0006  |    |
0593 0007       |    |
0594 ; --------------------------------------------------------------------------------------
0594 ; Debug chain
0594 ; --------------------------------------------------------------------------------------
0594 0004 0005  |    |		.DBGLEN	0x0004,0x0005
0596 01fb 0201  |    |		.DBGLNO	0x01fb,0x0201,0x0202,0x0203,0x0206,0x020c,0x0212,0x0219,0x021a
059f ; --------------------------------------------------------------------------------------
059f ; Debug chain
059f ; --------------------------------------------------------------------------------------
059f 0002 0004  |    |		.DBGLEN	0x0002,0x0004
05a1 0223 0229  | # )|		.DBGLNO	0x0223,0x0229,0x022a,0x022d,0x0232,0x0240
05a7 ; --------------------------------------------------------------------------------------
05a7 ; Debug chain
05a7 ; --------------------------------------------------------------------------------------
05a7 0003 0015  |    |		.DBGLEN	0x0003,0x0015
05a9 024b 024f  | K O|		.DBGLNO	0x024b,0x024f,0x0250,0x0255,0x0259,0x025b,0x025e,0x0261,0x0262,0x0266,0x026b,0x0270,0x0272,0x0278,0x027a,0x027b,0x027f,0x0284,0x0288,0x028a,0x0290,0x029c,0x02a0,0x02a2
05c1 0001 0002  |    |		.XXX[0x15]
05c3 0003 0004  |    |
05c5 0005 0005  |    |
05c7 0006 0007  |    |
05c9 0008 0009  |    |
05cb 000a 000b  |    |
05cd 000b 000c  |    |
05cf 000d 000e  |    |
05d1 000f 0010  |    |
05d3 0011 0012  |    |
05d5 0013       |    |
05d6 ; --------------------------------------------------------------------------------------
05d6 ; Debug chain
05d6 ; --------------------------------------------------------------------------------------
05d6 0002 0006  |    |		.DBGLEN	0x0002,0x0006
05d8 02ab 02af  |    |		.DBGLNO	0x02ab,0x02af,0x02b5,0x02b9,0x02bd,0x02c1,0x02c5,0x0300
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug chain
05e0 ; --------------------------------------------------------------------------------------
05e0 0002 0004  |    |		.DBGLEN	0x0002,0x0004
05e2 030b 030d  |    |		.DBGLNO	0x030b,0x030d,0x0313,0x0317,0x031b,0x0342
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0003 0011  |    |		.DBGLEN	0x0003,0x0011
05ea 034b 0351  | K Q|		.DBGLNO	0x034b,0x0351,0x0352,0x0356,0x0358,0x035a,0x035c,0x035e,0x0360,0x0362,0x0364,0x0366,0x0368,0x036a,0x036c,0x036e,0x037a,0x0386,0x0392,0x039e
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug chain
05fe ; --------------------------------------------------------------------------------------
05fe 0003 0009  |    |		.DBGLEN	0x0003,0x0009
0600 03ab 03b1  |    |		.DBGLNO	0x03ab,0x03b1,0x03b2,0x03b4,0x03b6,0x03b8,0x03ba,0x03bc,0x03be,0x03c0,0x03cc,0x03d8
060c ; --------------------------------------------------------------------------------------
060c ; Debug chain
060c ; --------------------------------------------------------------------------------------
060c 0001 0005  |    |		.DBGLEN	0x0001,0x0005
060e 03e3 03e7  |    |		.DBGLNO	0x03e3,0x03e7,0x03eb,0x03ef,0x03f3,0x03f7
0614 ; --------------------------------------------------------------------------------------
0614 ; Debug chain
0614 ; --------------------------------------------------------------------------------------
0614 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0616 0403 0405  |    |		.DBGLNO	0x0403,0x0405,0x0409,0x040d
061a ; --------------------------------------------------------------------------------------
061a ; Debug chain
061a ; --------------------------------------------------------------------------------------
061a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
061c 041d 041e  |    |		.DBGLNO	0x041d,0x041e,0x0421,0x0426
0620 0001 0001  |    |		.XXX[0x4]
0622 0002 0003  |    |
0624 ; --------------------------------------------------------------------------------------
0624 ; Debug chain
0624 ; --------------------------------------------------------------------------------------
0624 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0626 0433 043a  | 3 :|		.DBGLNO	0x0433,0x043a,0x043c,0x0442,0x044c,0x0454,0x0456
062d ; --------------------------------------------------------------------------------------
062d ; Debug chain
062d ; --------------------------------------------------------------------------------------
062d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
062f 0463 0466  | c f|		.DBGLNO	0x0463,0x0466
0631 ; --------------------------------------------------------------------------------------
0631 ; Debug chain
0631 ; --------------------------------------------------------------------------------------
0631 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0633 0473 0476  | s v|		.DBGLNO	0x0473,0x0476
0635 ; --------------------------------------------------------------------------------------
0635 ; Debug chain
0635 ; --------------------------------------------------------------------------------------
0635 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0637 0483 0488  |    |		.DBGLNO	0x0483,0x0488,0x048b,0x048e
063b 0000 0000  |    |		.BLANK	0000[0x1c5]