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

⟦bafc384e1⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 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 00af       |    |		.CONST	0x00af								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0034       | 4  |		.CONST	0x0034								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c 0129       | )  |		Execute	Any,Make_Visible
000d 4818       |H   |		Short_Literal	0x18
000e 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0015 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0017 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0019 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001b 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
001d 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
001f 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0021 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0023 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0025 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0027 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0029 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
002b 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002d 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
002f 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0031 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0033 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0035 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0037 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0039 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
003b 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
003d 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
003f 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0041 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0043 00e9       |    |		Load_Encached	String_Cache
0044 02a0       |    |		Declare_Subprogram	Null_Subprogram
0045 4818       |H   |		Short_Literal	0x18
0046 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0047 4803       |H   |		Short_Literal	0x3
0048 032a       | *  |		Declare_Type	Record,Incomplete
0049 00d8       |    |		Load_Top	At_Offset_0
004a 02a0       |    |		Declare_Subprogram	Null_Subprogram
004b e211       |    |		Load	0x1,0x11
004c 03c7       |    |		Complete_Type	Access,By_Defining
004d 4fff       |O   |		Short_Literal	-0x1
004e 6085       |`   |		Indirect_Literal	Discrete,0xd4,{0x00000000, 0x7fffffff}
004f 00e2       |    |		Load_Encached	Integer_Cache
0050 03f8       |    |		Declare_Type	Discrete,Constrained
0051 00d8       |    |		Load_Top	At_Offset_0
0052 00db       |    |		Load_Top	At_Offset_3
0053 e211       |    |		Load	0x1,0x11
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 e22d       | -  |		Load	0x1,0x2d
0056 0326       | &  |		Complete_Type	Record,By_Defining
0057 4801       |H   |		Short_Literal	0x1
0058 4800       |H   |		Short_Literal	0x0
0059 e22c       | ,  |		Load	0x1,0x2c
005a 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
005b 00da       |    |		Load_Top	At_Offset_2
005c 0322       | "  |		Declare_Variable	Record
005d 4fff       |O   |		Short_Literal	-0x1
005e 00d9       |    |		Load_Top	At_Offset_1
005f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0060 00d9       |    |		Load_Top	At_Offset_1
0061 00d9       |    |		Load_Top	At_Offset_1
0062 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0063 00db       |    |		Load_Top	At_Offset_3
0064 0322       | "  |		Declare_Variable	Record
0065 4fff       |O   |		Short_Literal	-0x1
0066 00d9       |    |		Load_Top	At_Offset_1
0067 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0068 00da       |    |		Load_Top	At_Offset_2
0069 00d9       |    |		Load_Top	At_Offset_1
006a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
006b e211       |    |		Load	0x1,0x11
006c 00d9       |    |		Load_Top	At_Offset_1
006d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006e e211       |    |		Load	0x1,0x11
006f 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0070 00d9       |    |		Load_Top	At_Offset_1
0071 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0072 00bf       |    |		Action	Accept_Activation
0073 029d 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call
0075 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 029d 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call
007b 029d 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call
007d 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 029d 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call
0081 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af			BODY_0008:
00af 00bc       |    |		Action	Signal_Activated
00b0 00bb       |    |		Action	Signal_Completion
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 6814       |h   |		Jump_Zero	0xd1
00bd 00da       |    |		Load_Top	At_Offset_2
00be 0227       | '  |		Execute	Access,All_Reference
00bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00c0 4fff       |O   |		Short_Literal	-0x1
00c1 027e       | ~  |		Execute	Discrete,Not_Equal
00c2 680c       |h   |		Jump_Zero	0xcf
00c3 e230       | 0  |		Load	0x1,0x30
00c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 0227       | '  |		Execute	Access,All_Reference
00c7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c8 4fff       |O   |		Short_Literal	-0x1
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 0227       | '  |		Execute	Access,All_Reference
00cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00cc 00da       |    |		Load_Top	At_Offset_2
00cd e230       | 0  |		Load	0x1,0x30
00ce 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00cf e211       |    |		Load	0x1,0x11
00d0 003b       | ;  |		Store_Top	Access,At_Offset_3
00d1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d2 0000 0000  |    |		.XXX[0x2]
00d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 00e8       |    |		.CONST	0x00e8								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc 6809       |h   |		Jump_Zero	0xe6
00dd 00da       |    |		Load_Top	At_Offset_2
00de 0227       | '  |		Execute	Access,All_Reference
00df 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e0 00d8       |    |		Load_Top	At_Offset_0
00e1 00e3       |    |		Load_Encached	Natural_Cache
00e2 0260       | `  |		Execute	Discrete,In_Type
00e3 7001       |p   |		Jump_Nonzero	0xe5
00e4 0801       |    |		Execute_Immediate	Raise,0x1
00e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e6 4800       |H   |		Short_Literal	0x0
00e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e8			TRAP_00d8:
00e8 0007       |    |		Action	Break_Optional
00e9 4800       |H   |		Short_Literal	0x0
00ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00eb 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
00f4 0227       | '  |		Execute	Access,All_Reference
00f5 0007       |    |		Action	Break_Optional
00f6			BODY_00f0:
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f9 027d       | }  |		Execute	Discrete,Greater
00fa 6801       |h   |		Jump_Zero	0xfc
00fb 08e0       |    |		Execute_Immediate	Raise,0xe0
00fc e5fe       |    |		Load	0x2,-0x2
00fd 00d9       |    |		Load_Top	At_Offset_1
00fe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ff 0227       | '  |		Execute	Access,All_Reference
0100 01d7       |    |		Execute	Vector,Field_Read
0101 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0102 0000 0000  |    |		.BLANK	0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e5fd       |    |		Load	0x2,-0x3
010c 00db       |    |		Load_Top	At_Offset_3
010d 0227       | '  |		Execute	Access,All_Reference
010e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
010f 027d       | }  |		Execute	Discrete,Greater
0110 6801       |h   |		Jump_Zero	0x112
0111 08e0       |    |		Execute_Immediate	Raise,0xe0
0112 00db       |    |		Load_Top	At_Offset_3
0113 e5fd       |    |		Load	0x2,-0x3
0114 e5ff       |    |		Load	0x2,-0x1
0115 0227       | '  |		Execute	Access,All_Reference
0116 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0117 0227       | '  |		Execute	Access,All_Reference
0118 01cf       |    |		Execute	Vector,Slice_Read
0119 0335       | 5  |		Declare_Variable	Array,Duplicate
011a 00cd       |    |		Action	Spare6_Action
011b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
011c 0000 0000  |    |		.BLANK	0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 012f       | /  |		.CONST	0x012f								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4801       |H   |		Short_Literal	0x1
0124 00db       |    |		Load_Top	At_Offset_3
0125 0227       | '  |		Execute	Access,All_Reference
0126 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0127 e5ff       |    |		Load	0x2,-0x1
0128 0227       | '  |		Execute	Access,All_Reference
0129 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
012a 0227       | '  |		Execute	Access,All_Reference
012b 01cf       |    |		Execute	Vector,Slice_Read
012c 0335       | 5  |		Declare_Variable	Array,Duplicate
012d 00cd       |    |		Action	Spare6_Action
012e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012f			TRAP_0120:
012f 0007       |    |		Action	Break_Optional
0130 4801       |H   |		Short_Literal	0x1
0131 4800       |H   |		Short_Literal	0x0
0132 00e9       |    |		Load_Encached	String_Cache
0133 035b       | [  |		Declare_Type	Array,Constrained
0134 0337       | 7  |		Declare_Variable	Array
0135 00e9       |    |		Load_Encached	String_Cache
0136 01c6       |    |		Execute	Vector,Convert_To_Formal
0137 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d       | =  |		.CONST	0x013d								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b e211       |    |		Load	0x1,0x11
013c 0007       |    |		Action	Break_Optional
013d			BODY_0138:
013d 00d8       |    |		Load_Top	At_Offset_0
013e 4800       |H   |		Short_Literal	0x0
013f e5ff       |    |		Load	0x2,-0x1
0140 01db       |    |		Execute	Vector,Length
0141 00d8       |    |		Load_Top	At_Offset_0
0142 00e3       |    |		Load_Encached	Natural_Cache
0143 0260       | `  |		Execute	Discrete,In_Type
0144 7001       |p   |		Jump_Nonzero	0x146
0145 0801       |    |		Execute_Immediate	Raise,0x1
0146 8233       | 3  |		Call	0x1,0x33
0147 0039       | 9  |		Store_Top	Access,At_Offset_1
0148 00d8       |    |		Load_Top	At_Offset_0
0149 e5ff       |    |		Load	0x2,-0x1
014a 8219       |    |		Call	0x1,0x19
014b 0039       | 9  |		Store_Top	Access,At_Offset_1
014c 00d8       |    |		Load_Top	At_Offset_0
014d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014e 0000 0000  |    |		.XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00db       |    |		Load_Top	At_Offset_3
0154 00db       |    |		Load_Top	At_Offset_3
0155 8216       |    |		Call	0x1,0x16
0156 8219       |    |		Call	0x1,0x19
0157 c5fe       |    |		Store	0x2,-0x2
0158 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165       | e  |		.CONST	0x0165								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0002       |    |		.CONST	0x0002								; Number of locals
0163			INIT_0160:
0163 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
0165			BODY_0160:
0165 e5fe       |    |		Load	0x2,-0x2
0166 4800       |H   |		Short_Literal	0x0
0167 e5ff       |    |		Load	0x2,-0x1
0168 01db       |    |		Execute	Vector,Length
0169 00d8       |    |		Load_Top	At_Offset_0
016a 00e3       |    |		Load_Encached	Natural_Cache
016b 0260       | `  |		Execute	Discrete,In_Type
016c 7001       |p   |		Jump_Nonzero	0x16e
016d 0801       |    |		Execute_Immediate	Raise,0x1
016e 8234       | 4  |		Call	0x1,0x34
016f c5fe       |    |		Store	0x2,-0x2
0170 8402       |    |		Call	0x2,0x2
0171 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0172 0000 0000  |    |		.BLANK	0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3
017c 4800       |H   |		Short_Literal	0x0
017d 4801       |H   |		Short_Literal	0x1
017e 8234       | 4  |		Call	0x1,0x34
017f c5fe       |    |		Store	0x2,-0x2
0180 00da       |    |		Load_Top	At_Offset_2
0181 4801       |H   |		Short_Literal	0x1
0182 e5fe       |    |		Load	0x2,-0x2
0183 0227       | '  |		Execute	Access,All_Reference
0184 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0185 0227       | '  |		Execute	Access,All_Reference
0186 01d6       |    |		Execute	Vector,Field_Write
0187 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 8212       |    |		Call	0x1,0x12
018d 003b       | ;  |		Store_Top	Access,At_Offset_3
018e 00db       |    |		Load_Top	At_Offset_3
018f 003b       | ;  |		Store_Top	Access,At_Offset_3
0190 e211       |    |		Load	0x1,0x11
0191 a5fe       |    |		Store_Unchecked	0x2,-0x2
0192 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0193 0000 0000  |    |		.BLANK	0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00db       |    |		Load_Top	At_Offset_3
019c 00db       |    |		Load_Top	At_Offset_3
019d 8216       |    |		Call	0x1,0x16
019e 821d       |    |		Call	0x1,0x1d
019f c5fe       |    |		Store	0x2,-0x2
01a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a1 0000 0000  |    |		.BLANK	0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b1       |    |		.CONST	0x01b1								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0003       |    |		.CONST	0x0003								; Number of locals
01ab			INIT_01a8:
01ab 00db       |    |		Load_Top	At_Offset_3
01ac 8213       |    |		Call	0x1,0x13
01ad e210       |    |		Load	0x1,0x10
01ae 03f1       |    |		Declare_Variable	Discrete,With_Value
01af 029f 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Call
01b1			BODY_01a8:
01b1 e5fe       |    |		Load	0x2,-0x2
01b2 4801       |H   |		Short_Literal	0x1
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 e5ff       |    |		Load	0x2,-0x1
01b5 01db       |    |		Execute	Vector,Length
01b6 0273       | s  |		Execute	Discrete,Plus
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 00e3       |    |		Load_Encached	Natural_Cache
01b9 0260       | `  |		Execute	Discrete,In_Type
01ba 7001       |p   |		Jump_Nonzero	0x1bc
01bb 0801       |    |		Execute_Immediate	Raise,0x1
01bc 8234       | 4  |		Call	0x1,0x34
01bd c5fe       |    |		Store	0x2,-0x2
01be 8403       |    |		Call	0x2,0x3
01bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c8       |    |		.CONST	0x01c8								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 8213       |    |		Call	0x1,0x13
01c5 0a01       |    |		Execute_Immediate	Plus,0x1
01c6 e210       |    |		Load	0x1,0x10
01c7 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01c8			BODY_01c0:
01c8 e5fe       |    |		Load	0x2,-0x2
01c9 4801       |H   |		Short_Literal	0x1
01ca 00da       |    |		Load_Top	At_Offset_2
01cb 8234       | 4  |		Call	0x1,0x34
01cc c5fe       |    |		Store	0x2,-0x2
01cd 00db       |    |		Load_Top	At_Offset_3
01ce 00d9       |    |		Load_Top	At_Offset_1
01cf e5fe       |    |		Load	0x2,-0x2
01d0 0227       | '  |		Execute	Access,All_Reference
01d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d2 0227       | '  |		Execute	Access,All_Reference
01d3 01d6       |    |		Execute	Vector,Field_Write
01d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f1       |    |		.CONST	0x01f1								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0002       |    |		.CONST	0x0002								; Number of locals
01db			INIT_01d8:
01db 4801       |H   |		Short_Literal	0x1
01dc e5fe       |    |		Load	0x2,-0x2
01dd 00e9       |    |		Load_Encached	String_Cache
01de 035b       | [  |		Declare_Type	Array,Constrained
01df 0337       | 7  |		Declare_Variable	Array
01e0 4801       |H   |		Short_Literal	0x1
01e1 e5fe       |    |		Load	0x2,-0x2
01e2 00e9       |    |		Load_Encached	String_Cache
01e3 035b       | [  |		Declare_Type	Array,Constrained
01e4 0337       | 7  |		Declare_Variable	Array
01e5 00d8       |    |		Load_Top	At_Offset_0
01e6 01dc       |    |		Execute	Vector,Last
01e7 4801       |H   |		Short_Literal	0x1
01e8 0263       | c  |		Execute	Discrete,Above_Bound
01e9 7005       |p   |		Jump_Nonzero	0x1ef
01ea e5ff       |    |		Load	0x2,-0x1
01eb 00d9       |    |		Load_Top	At_Offset_1
01ec e403       |    |		Load	0x2,0x3
01ed 01d6       |    |		Execute	Vector,Field_Write
01ee 3ffb       |?   |		Loop_Increasing	0x1ea
01ef 00d9       |    |		Load_Top	At_Offset_1
01f0 01d4       |    |		Execute	Vector,Structure_Write
01f1			BODY_01d8:
01f1 e5fd       |    |		Load	0x2,-0x3
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 821d       |    |		Call	0x1,0x1d
01f4 c5fd       |    |		Store	0x2,-0x3
01f5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e5fd       |    |		Load	0x2,-0x3
01fc e5fe       |    |		Load	0x2,-0x2
01fd 8216       |    |		Call	0x1,0x16
01fe e5ff       |    |		Load	0x2,-0x1
01ff 8221       | !  |		Call	0x1,0x21
0200 c5fd       |    |		Store	0x2,-0x3
0201 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0211       |    |		.CONST	0x0211								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0003       |    |		.CONST	0x0003								; Number of locals
020b			INIT_0208:
020b e5fd       |    |		Load	0x2,-0x3
020c 8213       |    |		Call	0x1,0x13
020d e210       |    |		Load	0x1,0x10
020e 03f1       |    |		Declare_Variable	Discrete,With_Value
020f 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
0211			BODY_0208:
0211 e5ff       |    |		Load	0x2,-0x1
0212 00da       |    |		Load_Top	At_Offset_2
0213 0a01       |    |		Execute_Immediate	Plus,0x1
0214 027f       |    |		Execute	Discrete,Equal
0215 6805       |h   |		Jump_Zero	0x21b
0216 e5fd       |    |		Load	0x2,-0x3
0217 e5fe       |    |		Load	0x2,-0x2
0218 821d       |    |		Call	0x1,0x1d
0219 c5fd       |    |		Store	0x2,-0x3
021a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021b e5ff       |    |		Load	0x2,-0x1
021c 00da       |    |		Load_Top	At_Offset_2
021d 027a       | z  |		Execute	Discrete,Less_Equal
021e 680f       |h   |		Jump_Zero	0x22e
021f e5fd       |    |		Load	0x2,-0x3
0220 4801       |H   |		Short_Literal	0x1
0221 00db       |    |		Load_Top	At_Offset_3
0222 e5fe       |    |		Load	0x2,-0x2
0223 01db       |    |		Execute	Vector,Length
0224 0273       | s  |		Execute	Discrete,Plus
0225 00d8       |    |		Load_Top	At_Offset_0
0226 00e3       |    |		Load_Encached	Natural_Cache
0227 0260       | `  |		Execute	Discrete,In_Type
0228 7001       |p   |		Jump_Nonzero	0x22a
0229 0801       |    |		Execute_Immediate	Raise,0x1
022a 8234       | 4  |		Call	0x1,0x34
022b c5fd       |    |		Store	0x2,-0x3
022c 8403       |    |		Call	0x2,0x3
022d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022e 08e0       |    |		Execute_Immediate	Raise,0xe0
022f 0000       |    |		.XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a       | :  |		.CONST	0x023a								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0003       |    |		.CONST	0x0003								; Number of locals
0233			INIT_0230:
0233 e5fd       |    |		Load	0x2,-0x3
0234 8213       |    |		Call	0x1,0x13
0235 0a01       |    |		Execute_Immediate	Plus,0x1
0236 e210       |    |		Load	0x1,0x10
0237 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0238 029f 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Call
023a			BODY_0230:
023a e5ff       |    |		Load	0x2,-0x1
023b 00da       |    |		Load_Top	At_Offset_2
023c 027f       |    |		Execute	Discrete,Equal
023d 6805       |h   |		Jump_Zero	0x243
023e e5fd       |    |		Load	0x2,-0x3
023f e5fe       |    |		Load	0x2,-0x2
0240 821e       |    |		Call	0x1,0x1e
0241 c5fd       |    |		Store	0x2,-0x3
0242 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0243 e5ff       |    |		Load	0x2,-0x1
0244 00da       |    |		Load_Top	At_Offset_2
0245 027d       | }  |		Execute	Discrete,Greater
0246 6801       |h   |		Jump_Zero	0x248
0247 08e0       |    |		Execute_Immediate	Raise,0xe0
0248 e5fd       |    |		Load	0x2,-0x3
0249 4801       |H   |		Short_Literal	0x1
024a 00db       |    |		Load_Top	At_Offset_3
024b 8234       | 4  |		Call	0x1,0x34
024c c5fd       |    |		Store	0x2,-0x3
024d 8403       |    |		Call	0x2,0x3
024e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0269       | i  |		.CONST	0x0269								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 4801       |H   |		Short_Literal	0x1
0254 e5fd       |    |		Load	0x2,-0x3
0255 00e9       |    |		Load_Encached	String_Cache
0256 035b       | [  |		Declare_Type	Array,Constrained
0257 0337       | 7  |		Declare_Variable	Array
0258 4801       |H   |		Short_Literal	0x1
0259 e5fd       |    |		Load	0x2,-0x3
025a 00e9       |    |		Load_Encached	String_Cache
025b 035b       | [  |		Declare_Type	Array,Constrained
025c 0337       | 7  |		Declare_Variable	Array
025d 00d8       |    |		Load_Top	At_Offset_0
025e 01dc       |    |		Execute	Vector,Last
025f 4801       |H   |		Short_Literal	0x1
0260 0263       | c  |		Execute	Discrete,Above_Bound
0261 7005       |p   |		Jump_Nonzero	0x267
0262 e5fe       |    |		Load	0x2,-0x2
0263 00d9       |    |		Load_Top	At_Offset_1
0264 e403       |    |		Load	0x2,0x3
0265 01d6       |    |		Execute	Vector,Field_Write
0266 3ffb       |?   |		Loop_Increasing	0x262
0267 00d9       |    |		Load_Top	At_Offset_1
0268 01d4       |    |		Execute	Vector,Structure_Write
0269			BODY_0250:
0269 e5fc       |    |		Load	0x2,-0x4
026a 00d9       |    |		Load_Top	At_Offset_1
026b e5ff       |    |		Load	0x2,-0x1
026c 8221       | !  |		Call	0x1,0x21
026d c5fc       |    |		Store	0x2,-0x4
026e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027c       | |  |		.CONST	0x027c								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 e5fd       |    |		Load	0x2,-0x3
0274 0227       | '  |		Execute	Access,All_Reference
0275 0007       |    |		Action	Break_Optional
0276 00d8       |    |		Load_Top	At_Offset_0
0277 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0278 e5fe       |    |		Load	0x2,-0x2
0279 0272       | r  |		Execute	Discrete,Minus
027a e210       |    |		Load	0x1,0x10
027b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
027c			BODY_0270:
027c e5ff       |    |		Load	0x2,-0x1
027d 0aff       |    |		Execute_Immediate	Plus,-0x1
027e 00d9       |    |		Load_Top	At_Offset_1
027f 027d       | }  |		Execute	Discrete,Greater
0280 6801       |h   |		Jump_Zero	0x282
0281 08e0       |    |		Execute_Immediate	Raise,0xe0
0282 e5ff       |    |		Load	0x2,-0x1
0283 00d9       |    |		Load_Top	At_Offset_1
0284 027a       | z  |		Execute	Discrete,Less_Equal
0285 6814       |h   |		Jump_Zero	0x29a
0286 e5ff       |    |		Load	0x2,-0x1
0287 e5fe       |    |		Load	0x2,-0x2
0288 0273       | s  |		Execute	Discrete,Plus
0289 00d8       |    |		Load_Top	At_Offset_0
028a 00e2       |    |		Load_Encached	Integer_Cache
028b 0260       | `  |		Execute	Discrete,In_Type
028c 7001       |p   |		Jump_Nonzero	0x28e
028d 0801       |    |		Execute_Immediate	Raise,0x1
028e 00da       |    |		Load_Top	At_Offset_2
028f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0290 00db       |    |		Load_Top	At_Offset_3
0291 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0292 0227       | '  |		Execute	Access,All_Reference
0293 01cf       |    |		Execute	Vector,Slice_Read
0294 e5ff       |    |		Load	0x2,-0x1
0295 00da       |    |		Load_Top	At_Offset_2
0296 e402       |    |		Load	0x2,0x2
0297 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0298 0229       | )  |		Execute	Access,All_Read
0299 01ce       |    |		Execute	Vector,Slice_Write
029a 00d8       |    |		Load_Top	At_Offset_0
029b 00da       |    |		Load_Top	At_Offset_2
029c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
029d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a6       |    |		.CONST	0x02a6								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 e5fd       |    |		Load	0x2,-0x3
02a4 0227       | '  |		Execute	Access,All_Reference
02a5 0007       |    |		Action	Break_Optional
02a6			BODY_02a0:
02a6 00db       |    |		Load_Top	At_Offset_3
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a9 027d       | }  |		Execute	Discrete,Greater
02aa 6801       |h   |		Jump_Zero	0x2ac
02ab 08e0       |    |		Execute_Immediate	Raise,0xe0
02ac e5fe       |    |		Load	0x2,-0x2
02ad e5ff       |    |		Load	0x2,-0x1
02ae 00da       |    |		Load_Top	At_Offset_2
02af 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b0 0227       | '  |		Execute	Access,All_Reference
02b1 01d6       |    |		Execute	Vector,Field_Write
02b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02d1       |    |		.CONST	0x02d1								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb 4801       |H   |		Short_Literal	0x1
02bc e5fd       |    |		Load	0x2,-0x3
02bd 00e9       |    |		Load_Encached	String_Cache
02be 035b       | [  |		Declare_Type	Array,Constrained
02bf 0337       | 7  |		Declare_Variable	Array
02c0 4801       |H   |		Short_Literal	0x1
02c1 e5fd       |    |		Load	0x2,-0x3
02c2 00e9       |    |		Load_Encached	String_Cache
02c3 035b       | [  |		Declare_Type	Array,Constrained
02c4 0337       | 7  |		Declare_Variable	Array
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 01dc       |    |		Execute	Vector,Last
02c7 4801       |H   |		Short_Literal	0x1
02c8 0263       | c  |		Execute	Discrete,Above_Bound
02c9 7005       |p   |		Jump_Nonzero	0x2cf
02ca e5fe       |    |		Load	0x2,-0x2
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc e403       |    |		Load	0x2,0x3
02cd 01d6       |    |		Execute	Vector,Field_Write
02ce 3ffb       |?   |		Loop_Increasing	0x2ca
02cf 00d9       |    |		Load_Top	At_Offset_1
02d0 01d4       |    |		Execute	Vector,Structure_Write
02d1			BODY_02b8:
02d1 e5fc       |    |		Load	0x2,-0x4
02d2 00d9       |    |		Load_Top	At_Offset_1
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 8227       | '  |		Call	0x1,0x27
02d5 c5fc       |    |		Store	0x2,-0x4
02d6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02d7 0000       |    |		.XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e5       |    |		.CONST	0x02e5								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0003       |    |		.CONST	0x0003								; Number of locals
02db			INIT_02d8:
02db e5fd       |    |		Load	0x2,-0x3
02dc 0227       | '  |		Execute	Access,All_Reference
02dd 0007       |    |		Action	Break_Optional
02de 00db       |    |		Load_Top	At_Offset_3
02df e5fe       |    |		Load	0x2,-0x2
02e0 01db       |    |		Execute	Vector,Length
02e1 0273       | s  |		Execute	Discrete,Plus
02e2 0aff       |    |		Execute_Immediate	Plus,-0x1
02e3 00e3       |    |		Load_Encached	Natural_Cache
02e4 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
02e5			BODY_02d8:
02e5 00d8       |    |		Load_Top	At_Offset_0
02e6 00da       |    |		Load_Top	At_Offset_2
02e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e8 027d       | }  |		Execute	Discrete,Greater
02e9 6801       |h   |		Jump_Zero	0x2eb
02ea 08e0       |    |		Execute_Immediate	Raise,0xe0
02eb e5fe       |    |		Load	0x2,-0x2
02ec e5ff       |    |		Load	0x2,-0x1
02ed 00da       |    |		Load_Top	At_Offset_2
02ee e402       |    |		Load	0x2,0x2
02ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f0 0229       | )  |		Execute	Access,All_Read
02f1 01ce       |    |		Execute	Vector,Slice_Write
02f2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f3 0000 0000  |    |		.BLANK	0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb e5fd       |    |		Load	0x2,-0x3
02fc e5fe       |    |		Load	0x2,-0x2
02fd 8216       |    |		Call	0x1,0x16
02fe e5ff       |    |		Load	0x2,-0x1
02ff 8227       | '  |		Call	0x1,0x27
0300 c5fd       |    |		Store	0x2,-0x3
0301 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0302 0000 0000  |    |		.BLANK	0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0311       |    |		.CONST	0x0311								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0003       |    |		.CONST	0x0003								; Number of locals
030b			INIT_0308:
030b e5fd       |    |		Load	0x2,-0x3
030c 8213       |    |		Call	0x1,0x13
030d e210       |    |		Load	0x1,0x10
030e 03f1       |    |		Declare_Variable	Discrete,With_Value
030f 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
0311			BODY_0308:
0311 e5ff       |    |		Load	0x2,-0x1
0312 00da       |    |		Load_Top	At_Offset_2
0313 027d       | }  |		Execute	Discrete,Greater
0314 6807       |h   |		Jump_Zero	0x31c
0315 e5fd       |    |		Load	0x2,-0x3
0316 4801       |H   |		Short_Literal	0x1
0317 e5ff       |    |		Load	0x2,-0x1
0318 8234       | 4  |		Call	0x1,0x34
0319 c5fd       |    |		Store	0x2,-0x3
031a 8403       |    |		Call	0x2,0x3
031b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
031c e5fd       |    |		Load	0x2,-0x3
031d 6804       |h   |		Jump_Zero	0x322
031e e5ff       |    |		Load	0x2,-0x1
031f e5fd       |    |		Load	0x2,-0x3
0320 0227       | '  |		Execute	Access,All_Reference
0321 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0322 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0323 0000 0000  |    |		.BLANK	0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 022d       | -  |		Execute	Access,Is_Null
032d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 e211       |    |		Load	0x1,0x11
0334 00ca       |    |		Action	Exit_Nullary_Function
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 00da       |    |		Load_Top	At_Offset_2
033c e5fe       |    |		Load	0x2,-0x2
033d 027d       | }  |		Execute	Discrete,Greater
033e 6802       |h   |		Jump_Zero	0x341
033f 00da       |    |		Load_Top	At_Offset_2
0340 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0341 00db       |    |		Load_Top	At_Offset_3
0342 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0343 0000 0000  |    |		.BLANK	0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 00da       |    |		Load_Top	At_Offset_2
034c 6811       |h   |		Jump_Zero	0x35e
034d 00da       |    |		Load_Top	At_Offset_2
034e 0227       | '  |		Execute	Access,All_Reference
034f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0350 4fff       |O   |		Short_Literal	-0x1
0351 027e       | ~  |		Execute	Discrete,Not_Equal
0352 680b       |h   |		Jump_Zero	0x35e
0353 00da       |    |		Load_Top	At_Offset_2
0354 0227       | '  |		Execute	Access,All_Reference
0355 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0356 0227       | '  |		Execute	Access,All_Reference
0357 01db       |    |		Execute	Vector,Length
0358 00d8       |    |		Load_Top	At_Offset_0
0359 00e3       |    |		Load_Encached	Natural_Cache
035a 0260       | `  |		Execute	Discrete,In_Type
035b 7001       |p   |		Jump_Nonzero	0x35d
035c 0801       |    |		Execute_Immediate	Raise,0x1
035d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035e 4800       |H   |		Short_Literal	0x0
035f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0367       | g  |		.CONST	0x0367								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0003       |    |		.CONST	0x0003								; Number of locals
0363			INIT_0360:
0363 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
0365 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
0367			BODY_0360:
0367 e5fd       |    |		Load	0x2,-0x3
0368 e230       | 0  |		Load	0x1,0x30
0369 8403       |    |		Call	0x2,0x3
036a 00d1       |    |		Pop_Control	Pop_Count_1
036b c5fd       |    |		Store	0x2,-0x3
036c e5fd       |    |		Load	0x2,-0x3
036d 7013       |p   |		Jump_Nonzero	0x381
036e e22d       | -  |		Load	0x1,0x2d
036f 0322       | "  |		Declare_Variable	Record
0370 e5ff       |    |		Load	0x2,-0x1
0371 00d9       |    |		Load_Top	At_Offset_1
0372 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0373 4801       |H   |		Short_Literal	0x1
0374 e5ff       |    |		Load	0x2,-0x1
0375 8402       |    |		Call	0x2,0x2
0376 e22c       | ,  |		Load	0x1,0x2c
0377 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0378 00d9       |    |		Load_Top	At_Offset_1
0379 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
037a e211       |    |		Load	0x1,0x11
037b 00d9       |    |		Load_Top	At_Offset_1
037c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
037d e211       |    |		Load	0x1,0x11
037e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
037f a5fd       |    |		Store_Unchecked	0x2,-0x3
0380 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0381 e5ff       |    |		Load	0x2,-0x1
0382 e5fd       |    |		Load	0x2,-0x3
0383 0227       | '  |		Execute	Access,All_Reference
0384 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0385 e211       |    |		Load	0x1,0x11
0386 e5fd       |    |		Load	0x2,-0x3
0387 0227       | '  |		Execute	Access,All_Reference
0388 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0389 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038a 0000 0000  |    |		.BLANK	0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0399       |    |		.CONST	0x0399								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0003       |    |		.CONST	0x0003								; Number of locals
0393			INIT_0390:
0393 e5fd       |    |		Load	0x2,-0x3
0394 8232       | 2  |		Call	0x1,0x32
0395 e210       |    |		Load	0x1,0x10
0396 03f1       |    |		Declare_Variable	Discrete,With_Value
0397 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
0399			BODY_0390:
0399 00d9       |    |		Load_Top	At_Offset_1
039a 7006       |p   |		Jump_Nonzero	0x3a1
039b e5fd       |    |		Load	0x2,-0x3
039c 4800       |H   |		Short_Literal	0x0
039d e5ff       |    |		Load	0x2,-0x1
039e 8233       | 3  |		Call	0x1,0x33
039f c5fd       |    |		Store	0x2,-0x3
03a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a1 00d9       |    |		Load_Top	At_Offset_1
03a2 e5ff       |    |		Load	0x2,-0x1
03a3 027b       | {  |		Execute	Discrete,Greater_Equal
03a4 6805       |h   |		Jump_Zero	0x3aa
03a5 e5ff       |    |		Load	0x2,-0x1
03a6 e5fd       |    |		Load	0x2,-0x3
03a7 0227       | '  |		Execute	Access,All_Reference
03a8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03a9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03aa 8403       |    |		Call	0x2,0x3
03ab 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b6       |    |		.CONST	0x03b6								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0002       |    |		.CONST	0x0002								; Number of locals
03b3			INIT_03b0:
03b3 e5fe       |    |		Load	0x2,-0x2
03b4 0227       | '  |		Execute	Access,All_Reference
03b5 0007       |    |		Action	Break_Optional
03b6			BODY_03b0:
03b6 e5ff       |    |		Load	0x2,-0x1
03b7 4801       |H   |		Short_Literal	0x1
03b8 e5ff       |    |		Load	0x2,-0x1
03b9 01db       |    |		Execute	Vector,Length
03ba 00d8       |    |		Load_Top	At_Offset_0
03bb 00e2       |    |		Load_Encached	Integer_Cache
03bc 0260       | `  |		Execute	Discrete,In_Type
03bd 7001       |p   |		Jump_Nonzero	0x3bf
03be 0801       |    |		Execute_Immediate	Raise,0x1
03bf 00db       |    |		Load_Top	At_Offset_3
03c0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c1 0229       | )  |		Execute	Access,All_Read
03c2 01ce       |    |		Execute	Vector,Slice_Write
03c3 e5ff       |    |		Load	0x2,-0x1
03c4 01db       |    |		Execute	Vector,Length
03c5 00d9       |    |		Load_Top	At_Offset_1
03c6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03ce       |    |		.CONST	0x03ce								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0002       |    |		.CONST	0x0002								; Number of locals
03cb			INIT_03c8:
03cb e5fe       |    |		Load	0x2,-0x2
03cc 0227       | '  |		Execute	Access,All_Reference
03cd 0007       |    |		Action	Break_Optional
03ce			BODY_03c8:
03ce e5ff       |    |		Load	0x2,-0x1
03cf e402       |    |		Load	0x2,0x2
03d0 0a01       |    |		Execute_Immediate	Plus,0x1
03d1 00d8       |    |		Load_Top	At_Offset_0
03d2 00e2       |    |		Load_Encached	Integer_Cache
03d3 0260       | `  |		Execute	Discrete,In_Type
03d4 7001       |p   |		Jump_Nonzero	0x3d6
03d5 0801       |    |		Execute_Immediate	Raise,0x1
03d6 00da       |    |		Load_Top	At_Offset_2
03d7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d8 00db       |    |		Load_Top	At_Offset_3
03d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03da 0229       | )  |		Execute	Access,All_Read
03db 01ce       |    |		Execute	Vector,Slice_Write
03dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e6       |    |		.CONST	0x03e6								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0002       |    |		.CONST	0x0002								; Number of locals
03e3			INIT_03e0:
03e3 e5fd       |    |		Load	0x2,-0x3
03e4 0227       | '  |		Execute	Access,All_Reference
03e5 0007       |    |		Action	Break_Optional
03e6			BODY_03e0:
03e6 e5fe       |    |		Load	0x2,-0x2
03e7 e5ff       |    |		Load	0x2,-0x1
03e8 e402       |    |		Load	0x2,0x2
03e9 00db       |    |		Load_Top	At_Offset_3
03ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03eb 0227       | '  |		Execute	Access,All_Reference
03ec 01cf       |    |		Execute	Vector,Slice_Read
03ed 01cc       |    |		Execute	Vector,Catenate
03ee e5ff       |    |		Load	0x2,-0x1
03ef 00da       |    |		Load_Top	At_Offset_2
03f0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03f1 00db       |    |		Load_Top	At_Offset_3
03f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f3 0229       | )  |		Execute	Access,All_Read
03f4 01ce       |    |		Execute	Vector,Slice_Write
03f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03f6 0000 0000  |    |		.XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fe       |    |		.CONST	0x03fe								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0002       |    |		.CONST	0x0002								; Number of locals
03fb			INIT_03f8:
03fb e5fd       |    |		Load	0x2,-0x3
03fc 0227       | '  |		Execute	Access,All_Reference
03fd 0007       |    |		Action	Break_Optional
03fe			BODY_03f8:
03fe e5ff       |    |		Load	0x2,-0x1
03ff e402       |    |		Load	0x2,0x2
0400 0aff       |    |		Execute_Immediate	Plus,-0x1
0401 00da       |    |		Load_Top	At_Offset_2
0402 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0403 0227       | '  |		Execute	Access,All_Reference
0404 01cf       |    |		Execute	Vector,Slice_Read
0405 e5ff       |    |		Load	0x2,-0x1
0406 0a01       |    |		Execute_Immediate	Plus,0x1
0407 00d8       |    |		Load_Top	At_Offset_0
0408 00e2       |    |		Load_Encached	Integer_Cache
0409 0260       | `  |		Execute	Discrete,In_Type
040a 7001       |p   |		Jump_Nonzero	0x40c
040b 0801       |    |		Execute_Immediate	Raise,0x1
040c e402       |    |		Load	0x2,0x2
040d 00db       |    |		Load_Top	At_Offset_3
040e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040f 0229       | )  |		Execute	Access,All_Read
0410 01ce       |    |		Execute	Vector,Slice_Write
0411 e5fe       |    |		Load	0x2,-0x2
0412 e5ff       |    |		Load	0x2,-0x1
0413 00da       |    |		Load_Top	At_Offset_2
0414 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0415 0227       | '  |		Execute	Access,All_Reference
0416 01d6       |    |		Execute	Vector,Field_Write
0417 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041f       |    |		.CONST	0x041f								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b e5fd       |    |		Load	0x2,-0x3
041c 0227       | '  |		Execute	Access,All_Reference
041d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
041e 0227       | '  |		Execute	Access,All_Reference
041f			BODY_0418:
041f 00cf       |    |		Action	Mark_Auxiliary
0420 e5ff       |    |		Load	0x2,-0x1
0421 e402       |    |		Load	0x2,0x2
0422 0a01       |    |		Execute_Immediate	Plus,0x1
0423 00d8       |    |		Load_Top	At_Offset_0
0424 00e2       |    |		Load_Encached	Integer_Cache
0425 0260       | `  |		Execute	Discrete,In_Type
0426 7001       |p   |		Jump_Nonzero	0x428
0427 0801       |    |		Execute_Immediate	Raise,0x1
0428 0263       | c  |		Execute	Discrete,Above_Bound
0429 7006       |p   |		Jump_Nonzero	0x430
042a e5fe       |    |		Load	0x2,-0x2
042b 00d9       |    |		Load_Top	At_Offset_1
042c e602       |    |		Load	0x3,0x2
042d 01d6       |    |		Execute	Vector,Field_Write
042e 00c8       |    |		Action	Pop_Auxiliary_Range
042f 3ffa       |?   |		Loop_Increasing	0x42a
0430 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0431 0000 0000  |    |		.BLANK	0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b e5fe       |    |		Load	0x2,-0x2
043c 680f       |h   |		Jump_Zero	0x44c
043d e20f       |    |		Load	0x1,0xf
043e 00db       |    |		Load_Top	At_Offset_3
043f 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0440 00d8       |    |		Load_Top	At_Offset_0
0441 00e2       |    |		Load_Encached	Integer_Cache
0442 0260       | `  |		Execute	Discrete,In_Type
0443 7001       |p   |		Jump_Nonzero	0x445
0444 0801       |    |		Execute_Immediate	Raise,0x1
0445 8231       | 1  |		Call	0x1,0x31
0446 00d8       |    |		Load_Top	At_Offset_0
0447 00e3       |    |		Load_Encached	Natural_Cache
0448 0260       | `  |		Execute	Discrete,In_Type
0449 7001       |p   |		Jump_Nonzero	0x44b
044a 0801       |    |		Execute_Immediate	Raise,0x1
044b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
044c e20f       |    |		Load	0x1,0xf
044d 00db       |    |		Load_Top	At_Offset_3
044e 8231       | 1  |		Call	0x1,0x31
044f 00d8       |    |		Load_Top	At_Offset_0
0450 00e3       |    |		Load_Encached	Natural_Cache
0451 0260       | `  |		Execute	Discrete,In_Type
0452 7001       |p   |		Jump_Nonzero	0x454
0453 0801       |    |		Execute_Immediate	Raise,0x1
0454 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0455 0000 0000  |    |		.XXX[0x3]
0457 0000       |    |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 00da       |    |		Load_Top	At_Offset_2
045c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
045d a7fe       |    |		Store_Unchecked	0x3,-0x2
045e 00db       |    |		Load_Top	At_Offset_3
045f 681a       |h   |		Jump_Zero	0x47a
0460 00db       |    |		Load_Top	At_Offset_3
0461 0227       | '  |		Execute	Access,All_Reference
0462 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0463 0227       | '  |		Execute	Access,All_Reference
0464 01db       |    |		Execute	Vector,Length
0465 e5ff       |    |		Load	0x2,-0x1
0466 027d       | }  |		Execute	Discrete,Greater
0467 680a       |h   |		Jump_Zero	0x472
0468 00db       |    |		Load_Top	At_Offset_3
0469 0227       | '  |		Execute	Access,All_Reference
046a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
046b 00db       |    |		Load_Top	At_Offset_3
046c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
046d e211       |    |		Load	0x1,0x11
046e e7fe       |    |		Load	0x3,-0x2
046f 0227       | '  |		Execute	Access,All_Reference
0470 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0471 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0472 00db       |    |		Load_Top	At_Offset_3
0473 0229       | )  |		Execute	Access,All_Read
0474 e7fe       |    |		Load	0x3,-0x2
0475 00d9       |    |		Load_Top	At_Offset_1
0476 8403       |    |		Call	0x2,0x3
0477 00d1       |    |		Pop_Control	Pop_Count_1
0478 c7fe       |    |		Store	0x3,-0x2
0479 00d1       |    |		Pop_Control	Pop_Count_1
047a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0485       |    |		.CONST	0x0485								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0002       |    |		.CONST	0x0002								; Number of locals
0483			INIT_0480:
0483 e211       |    |		Load	0x1,0x11
0484 0007       |    |		Action	Break_Optional
0485			BODY_0480:
0485 00d8       |    |		Load_Top	At_Offset_0
0486 e5fe       |    |		Load	0x2,-0x2
0487 e5ff       |    |		Load	0x2,-0x1
0488 8233       | 3  |		Call	0x1,0x33
0489 0039       | 9  |		Store_Top	Access,At_Offset_1
048a e5fe       |    |		Load	0x2,-0x2
048b 6812       |h   |		Jump_Zero	0x49e
048c 4801       |H   |		Short_Literal	0x1
048d e5fd       |    |		Load	0x2,-0x3
048e 0227       | '  |		Execute	Access,All_Reference
048f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0490 e5fd       |    |		Load	0x2,-0x3
0491 0227       | '  |		Execute	Access,All_Reference
0492 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0493 0227       | '  |		Execute	Access,All_Reference
0494 01cf       |    |		Execute	Vector,Slice_Read
0495 4801       |H   |		Short_Literal	0x1
0496 e5fd       |    |		Load	0x2,-0x3
0497 0227       | '  |		Execute	Access,All_Reference
0498 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0499 00db       |    |		Load_Top	At_Offset_3
049a 0229       | )  |		Execute	Access,All_Read
049b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
049c 0229       | )  |		Execute	Access,All_Read
049d 01ce       |    |		Execute	Vector,Slice_Write
049e 00d8       |    |		Load_Top	At_Offset_0
049f e5fd       |    |		Load	0x2,-0x3
04a0 821b       |    |		Call	0x1,0x1b
04a1 c5fd       |    |		Store	0x2,-0x3
04a2 0039       | 9  |		Store_Top	Access,At_Offset_1
04a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a4 0000 0000  |    |		.BLANK	0000[0x4]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug Table
04a8 ; --------------------------------------------------------------------------------------
04a8 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2ea0,0x0000,0x0001,0x0028
04ae 000b 054e  |   N|		.DBG4T	0x000b,0x054e,0xc000,0x8000
04b2 0073 0596  | s  |		.DBG4T	0x0073,0x0596,0xc000,0x8000
04b6 00bb 05d4  |    |		.DBG4T	0x00bb,0x05d4,0x1001,0x0000
04ba 00db 05dc  |    |		.DBG4T	0x00db,0x05dc,0x1002,0x0000
04be 00f3 05e2  |    |		.DBG4T	0x00f3,0x05e2,0x1002,0x0000
04c2 010b 05e8  |    |		.DBG4T	0x010b,0x05e8,0x1002,0x0000
04c6 0123 05ed  | #  |		.DBG4T	0x0123,0x05ed,0x1002,0x0000
04ca 013b 05f1  | ;  |		.DBG4T	0x013b,0x05f1,0x1002,0x0000
04ce 0153 05f7  | S  |		.DBG4T	0x0153,0x05f7,0x1001,0x0000
04d2 0163 05fa  | c  |		.DBG4T	0x0163,0x05fa,0x1001,0x0000
04d6 017b 05fe  | {  |		.DBG4T	0x017b,0x05fe,0x1001,0x0000
04da 018b 0602  |    |		.DBG4T	0x018b,0x0602,0x1001,0x0000
04de 019b 0607  |    |		.DBG4T	0x019b,0x0607,0x1001,0x0000
04e2 01ab 060a  |    |		.DBG4T	0x01ab,0x060a,0x1001,0x0000
04e6 01c3 060f  |    |		.DBG4T	0x01c3,0x060f,0x1001,0x0000
04ea 01db 0614  |    |		.DBG4T	0x01db,0x0614,0x1001,0x0000
04ee 01fb 0618  |    |		.DBG4T	0x01fb,0x0618,0x1001,0x0000
04f2 020b 061b  |    |		.DBG4T	0x020b,0x061b,0x1001,0x0000
04f6 0233 0624  | 3 $|		.DBG4T	0x0233,0x0624,0x1001,0x0000
04fa 0253 062d  | S -|		.DBG4T	0x0253,0x062d,0x1001,0x0000
04fe 0273 0631  | s 1|		.DBG4T	0x0273,0x0631,0x1001,0x0000
0502 02a3 063a  |   :|		.DBG4T	0x02a3,0x063a,0x1001,0x0000
0506 02bb 0640  |   @|		.DBG4T	0x02bb,0x0640,0x1001,0x0000
050a 02db 0644  |   D|		.DBG4T	0x02db,0x0644,0x1001,0x0000
050e 02fb 064b  |   K|		.DBG4T	0x02fb,0x064b,0x1001,0x0000
0512 030b 064e  |   N|		.DBG4T	0x030b,0x064e,0x1001,0x0000
0516 032b 0656  | + V|		.DBG4T	0x032b,0x0656,0x1002,0x0000
051a 0333 0659  | 3 Y|		.DBG4T	0x0333,0x0659,0x1002,0x0000
051e 033b 065c  | ; \|		.DBG4T	0x033b,0x065c,0x1002,0x0000
0522 034b 0661  | K a|		.DBG4T	0x034b,0x0661,0x1002,0x0000
0526 0363 0666  | c f|		.DBG4T	0x0363,0x0666,0x1001,0x0000
052a 0393 066f  |   o|		.DBG4T	0x0393,0x066f,0x1001,0x0000
052e 03b3 0677  |   w|		.DBG4T	0x03b3,0x0677,0x1004,0x0000
0532 03cb 067c  |   ||		.DBG4T	0x03cb,0x067c,0x1004,0x0000
0536 03e3 0680  |    |		.DBG4T	0x03e3,0x0680,0x1004,0x0000
053a 03fb 0684  |    |		.DBG4T	0x03fb,0x0684,0x1004,0x0000
053e 041b 0689  |    |		.DBG4T	0x041b,0x0689,0x1004,0x0000
0542 043b 068e  | ;  |		.DBG4T	0x043b,0x068e,0x1002,0x0000
0546 045b 0693  | [  |		.DBG4T	0x045b,0x0693,0x1001,0x0000
054a 0483 069b  |    |		.DBG4T	0x0483,0x069b,0x1004,0x0000
054e ; --------------------------------------------------------------------------------------
054e ; Debug chain
054e ; --------------------------------------------------------------------------------------
054e 0023 0000  | #  |		.DBGLEN	0x0023,0x0000
0550 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0047,0x0049,0x004d,0x0051,0x0057,0x005b
0573 0001 0002  |    |		.XXX[0x23]
0575 0003 0004  |    |
0577 0005 0006  |    |
0579 0007 0008  |    |
057b 0009 000a  |    |
057d 000b 000c  |    |
057f 000d 000e  |    |
0581 000f 0010  |    |
0583 0011 0012  |    |
0585 0013 0014  |    |
0587 0015 0016  |    |
0589 0017 0018  |    |
058b 0019 001a  |    |
058d 001b 001c  |    |
058f 001d 001e  |    |
0591 001f 0020  |    |
0593 0021 0022  | ! "|
0595 0024       | $  |
0596 ; --------------------------------------------------------------------------------------
0596 ; Debug chain
0596 ; --------------------------------------------------------------------------------------
0596 001e 0000  |    |		.DBGLEN	0x001e,0x0000
0598 0073 0075  | s u|		.DBGLNO	0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad
05b6 0001 0003  |    |		.XXX[0x1e]
05b8 0004 0005  |    |
05ba 0006 0007  |    |
05bc 0008 0009  |    |
05be 000a 000b  |    |
05c0 000c 000d  |    |
05c2 000e 000f  |    |
05c4 0010 0011  |    |
05c6 0012 0013  |    |
05c8 0014 0015  |    |
05ca 0016 0017  |    |
05cc 0018 0019  |    |
05ce 001a 001b  |    |
05d0 001c 001d  |    |
05d2 001e 001f  |    |
05d4 ; --------------------------------------------------------------------------------------
05d4 ; Debug chain
05d4 ; --------------------------------------------------------------------------------------
05d4 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05d6 00bb 00bd  |    |		.DBGLNO	0x00bb,0x00bd,0x00c3,0x00c8,0x00cc,0x00cf
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug chain
05dc ; --------------------------------------------------------------------------------------
05dc 0000 0004  |    |		.DBGLEN	0x0000,0x0004
05de 00db 00dd  |    |		.DBGLNO	0x00db,0x00dd,0x00e6,0x00e9
05e2 ; --------------------------------------------------------------------------------------
05e2 ; Debug chain
05e2 ; --------------------------------------------------------------------------------------
05e2 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05e4 00f3 00f6  |    |		.DBGLNO	0x00f3,0x00f6,0x00fb,0x00fc
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05ea 010b 0111  |    |		.DBGLNO	0x010b,0x0111,0x0112
05ed ; --------------------------------------------------------------------------------------
05ed ; Debug chain
05ed ; --------------------------------------------------------------------------------------
05ed 0000 0002  |    |		.DBGLEN	0x0000,0x0002
05ef 0123 0130  | # 0|		.DBGLNO	0x0123,0x0130
05f1 ; --------------------------------------------------------------------------------------
05f1 ; Debug chain
05f1 ; --------------------------------------------------------------------------------------
05f1 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05f3 013b 013d  | ; =|		.DBGLNO	0x013b,0x013d,0x0148,0x014c
05f7 ; --------------------------------------------------------------------------------------
05f7 ; Debug chain
05f7 ; --------------------------------------------------------------------------------------
05f7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05f9 0153       | S  |		.DBGLNO	0x0153
05fa ; --------------------------------------------------------------------------------------
05fa ; Debug chain
05fa ; --------------------------------------------------------------------------------------
05fa 0000 0002  |    |		.DBGLEN	0x0000,0x0002
05fc 0165 0170  | e p|		.DBGLNO	0x0165,0x0170
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug chain
05fe ; --------------------------------------------------------------------------------------
05fe 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0600 017b 0180  | {  |		.DBGLNO	0x017b,0x0180
0602 ; --------------------------------------------------------------------------------------
0602 ; Debug chain
0602 ; --------------------------------------------------------------------------------------
0602 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0604 018b 018e  |    |		.DBGLNO	0x018b,0x018e,0x0190
0607 ; --------------------------------------------------------------------------------------
0607 ; Debug chain
0607 ; --------------------------------------------------------------------------------------
0607 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0609 019b       |    |		.DBGLNO	0x019b
060a ; --------------------------------------------------------------------------------------
060a ; Debug chain
060a ; --------------------------------------------------------------------------------------
060a 0001 0002  |    |		.DBGLEN	0x0001,0x0002
060c 01ab 01b1  |    |		.DBGLNO	0x01ab,0x01b1,0x01be
060f ; --------------------------------------------------------------------------------------
060f ; Debug chain
060f ; --------------------------------------------------------------------------------------
060f 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0611 01c3 01c8  |    |		.DBGLNO	0x01c3,0x01c8,0x01cd
0614 ; --------------------------------------------------------------------------------------
0614 ; Debug chain
0614 ; --------------------------------------------------------------------------------------
0614 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0616 01db 01f1  |    |		.DBGLNO	0x01db,0x01f1
0618 ; --------------------------------------------------------------------------------------
0618 ; Debug chain
0618 ; --------------------------------------------------------------------------------------
0618 0000 0001  |    |		.DBGLEN	0x0000,0x0001
061a 01fb       |    |		.DBGLNO	0x01fb
061b ; --------------------------------------------------------------------------------------
061b ; Debug chain
061b ; --------------------------------------------------------------------------------------
061b 0001 0006  |    |		.DBGLEN	0x0001,0x0006
061d 020b 0211  |    |		.DBGLNO	0x020b,0x0211,0x0216,0x021b,0x021f,0x022c,0x022e
0624 ; --------------------------------------------------------------------------------------
0624 ; Debug chain
0624 ; --------------------------------------------------------------------------------------
0624 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0626 0233 023a  | 3 :|		.DBGLNO	0x0233,0x023a,0x023e,0x0243,0x0247,0x0248,0x024d
062d ; --------------------------------------------------------------------------------------
062d ; Debug chain
062d ; --------------------------------------------------------------------------------------
062d 0001 0001  |    |		.DBGLEN	0x0001,0x0001
062f 0253 0269  | S i|		.DBGLNO	0x0253,0x0269
0631 ; --------------------------------------------------------------------------------------
0631 ; Debug chain
0631 ; --------------------------------------------------------------------------------------
0631 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0633 0273 0276  | s v|		.DBGLNO	0x0273,0x0276,0x027c,0x0281,0x0282,0x0286,0x029a
063a ; --------------------------------------------------------------------------------------
063a ; Debug chain
063a ; --------------------------------------------------------------------------------------
063a 0001 0003  |    |		.DBGLEN	0x0001,0x0003
063c 02a3 02a6  |    |		.DBGLNO	0x02a3,0x02a6,0x02ab,0x02ac
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug chain
0640 ; --------------------------------------------------------------------------------------
0640 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0642 02bb 02d1  |    |		.DBGLNO	0x02bb,0x02d1
0644 ; --------------------------------------------------------------------------------------
0644 ; Debug chain
0644 ; --------------------------------------------------------------------------------------
0644 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0646 02db 02de  |    |		.DBGLNO	0x02db,0x02de,0x02e5,0x02ea,0x02eb
064b ; --------------------------------------------------------------------------------------
064b ; Debug chain
064b ; --------------------------------------------------------------------------------------
064b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
064d 02fb       |    |		.DBGLNO	0x02fb
064e ; --------------------------------------------------------------------------------------
064e ; Debug chain
064e ; --------------------------------------------------------------------------------------
064e 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0650 030b 0311  |    |		.DBGLNO	0x030b,0x0311,0x0315,0x031a,0x031c,0x031e
0656 ; --------------------------------------------------------------------------------------
0656 ; Debug chain
0656 ; --------------------------------------------------------------------------------------
0656 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0658 032b       | +  |		.DBGLNO	0x032b
0659 ; --------------------------------------------------------------------------------------
0659 ; Debug chain
0659 ; --------------------------------------------------------------------------------------
0659 0000 0001  |    |		.DBGLEN	0x0000,0x0001
065b 0333       | 3  |		.DBGLNO	0x0333
065c ; --------------------------------------------------------------------------------------
065c ; Debug chain
065c ; --------------------------------------------------------------------------------------
065c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
065e 033b 033f  | ; ?|		.DBGLNO	0x033b,0x033f,0x0341
0661 ; --------------------------------------------------------------------------------------
0661 ; Debug chain
0661 ; --------------------------------------------------------------------------------------
0661 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0663 034b 0353  | K S|		.DBGLNO	0x034b,0x0353,0x035e
0666 ; --------------------------------------------------------------------------------------
0666 ; Debug chain
0666 ; --------------------------------------------------------------------------------------
0666 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0668 0363 0365  | c e|		.DBGLNO	0x0363,0x0365,0x0367,0x036c,0x036e,0x0381,0x0385
066f ; --------------------------------------------------------------------------------------
066f ; Debug chain
066f ; --------------------------------------------------------------------------------------
066f 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0671 0393 0399  |    |		.DBGLNO	0x0393,0x0399,0x039b,0x03a1,0x03a5,0x03aa
0677 ; --------------------------------------------------------------------------------------
0677 ; Debug chain
0677 ; --------------------------------------------------------------------------------------
0677 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0679 03b3 03b6  |    |		.DBGLNO	0x03b3,0x03b6,0x03c3
067c ; --------------------------------------------------------------------------------------
067c ; Debug chain
067c ; --------------------------------------------------------------------------------------
067c 0001 0001  |    |		.DBGLEN	0x0001,0x0001
067e 03cb 03ce  |    |		.DBGLNO	0x03cb,0x03ce
0680 ; --------------------------------------------------------------------------------------
0680 ; Debug chain
0680 ; --------------------------------------------------------------------------------------
0680 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0682 03e3 03e6  |    |		.DBGLNO	0x03e3,0x03e6
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug chain
0684 ; --------------------------------------------------------------------------------------
0684 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0686 03fb 03fe  |    |		.DBGLNO	0x03fb,0x03fe,0x0411
0689 ; --------------------------------------------------------------------------------------
0689 ; Debug chain
0689 ; --------------------------------------------------------------------------------------
0689 0001 0002  |    |		.DBGLEN	0x0001,0x0002
068b 041b 0420  |    |		.DBGLNO	0x041b,0x0420,0x042a
068e ; --------------------------------------------------------------------------------------
068e ; Debug chain
068e ; --------------------------------------------------------------------------------------
068e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0690 043b 043d  | ; =|		.DBGLNO	0x043b,0x043d,0x044c
0693 ; --------------------------------------------------------------------------------------
0693 ; Debug chain
0693 ; --------------------------------------------------------------------------------------
0693 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0695 045b 045e  | [ ^|		.DBGLNO	0x045b,0x045e,0x0460,0x0468,0x046d,0x0472
069b ; --------------------------------------------------------------------------------------
069b ; Debug chain
069b ; --------------------------------------------------------------------------------------
069b 0001 0004  |    |		.DBGLEN	0x0001,0x0004
069d 0483 0485  |    |		.DBGLNO	0x0483,0x0485,0x048a,0x048c,0x049e
06a2 0000 0000  |    |		.BLANK	0000[0x15e]