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

⟦3d8c330b3⟧

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

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 0498       |    |		.CONST	0x0498								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00aa       |    |		.CONST	0x00aa								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003c       | <  |		.CONST	0x003c								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 4818       |H   |		Short_Literal	0x18
000e 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 e001       |    |		Load	0x0,0x1
0012 0129       | )  |		Execute	Any,Make_Visible
0013 e002       |    |		Load	0x0,0x2
0014 0129       | )  |		Execute	Any,Make_Visible
0015 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0019 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001b 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
001d 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001f 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0021 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0023 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0025 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0027 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0029 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
002b 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
002d 4802       |H   |		Short_Literal	0x2
002e 032a       | *  |		Declare_Type	Record,Incomplete
002f 4804       |H   |		Short_Literal	0x4
0030 032a       | *  |		Declare_Type	Record,Incomplete
0031 00d8       |    |		Load_Top	At_Offset_0
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 4818       |H   |		Short_Literal	0x18
0034 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0035 00d8       |    |		Load_Top	At_Offset_0
0036 0221       | !  |		Execute	Access,Allow_Deallocate
0037 00da       |    |		Load_Top	At_Offset_2
0038 02a0       |    |		Declare_Subprogram	Null_Subprogram
0039 e212       |    |		Load	0x1,0x12
003a 03c7       |    |		Complete_Type	Access,By_Defining
003b e212       |    |		Load	0x1,0x12
003c 0221       | !  |		Execute	Access,Allow_Deallocate
003d e212       |    |		Load	0x1,0x12
003e 0129       | )  |		Execute	Any,Make_Visible
003f c214       |    |		Store	0x1,0x14
0040 e212       |    |		Load	0x1,0x12
0041 00d9       |    |		Load_Top	At_Offset_1
0042 00e3       |    |		Load_Encached	Natural_Cache
0043 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
0045 4803       |H   |		Short_Literal	0x3
0046 032d       | -  |		Declare_Type	Record,Defined
0047 00d8       |    |		Load_Top	At_Offset_0
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 e213       |    |		Load	0x1,0x13
004a 03c7       |    |		Complete_Type	Access,By_Defining
004b e213       |    |		Load	0x1,0x13
004c 0129       | )  |		Execute	Any,Make_Visible
004d c215       |    |		Store	0x1,0x15
004e 0007       |    |		Action	Break_Optional
004f 00bf       |    |		Action	Accept_Activation
0050 00e3       |    |		Load_Encached	Natural_Cache
0051 0266       | f  |		Execute	Discrete,Bounds
0052 00e3       |    |		Load_Encached	Natural_Cache
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 4801       |H   |		Short_Literal	0x1
0055 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0056 00e9       |    |		Load_Encached	String_Cache
0057 02a0       |    |		Declare_Subprogram	Null_Subprogram
0058 4818       |H   |		Short_Literal	0x18
0059 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
005a 00d8       |    |		Load_Top	At_Offset_0
005b 0221       | !  |		Execute	Access,Allow_Deallocate
005c 0007       |    |		Action	Break_Optional
005d 00e3       |    |		Load_Encached	Natural_Cache
005e 00d9       |    |		Load_Top	At_Offset_1
005f e20f       |    |		Load	0x1,0xf
0060 e226       | &  |		Load	0x1,0x26
0061 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
0063 e225       | %  |		Load	0x1,0x25
0064 0326       | &  |		Complete_Type	Record,By_Defining
0065 4800       |H   |		Short_Literal	0x0
0066 e210       |    |		Load	0x1,0x10
0067 0aff       |    |		Execute_Immediate	Plus,-0x1
0068 00e3       |    |		Load_Encached	Natural_Cache
0069 025d       | ]  |		Execute	Discrete,Bounds_Check
006a e226       | &  |		Load	0x1,0x26
006b 02a0       |    |		Declare_Subprogram	Null_Subprogram
006c 4801       |H   |		Short_Literal	0x1
006d 035d       | ]  |		Declare_Type	Array,Defined
006e 00e3       |    |		Load_Encached	Natural_Cache
006f 00d9       |    |		Load_Top	At_Offset_1
0070 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
0072 e224       | $  |		Load	0x1,0x24
0073 0326       | &  |		Complete_Type	Record,By_Defining
0074 a003       |    |		Store_Unchecked	0x0,0x3
0075 00c6       |    |		Action	Check_Subprogram_Elaborated
0076 00e9       |    |		Load_Encached	String_Cache
0077 00da       |    |		Load_Top	At_Offset_2
0078 e004       |    |		Load	0x0,0x4
0079 e005       |    |		Load	0x0,0x5
007a 4800       |H   |		Short_Literal	0x0
007b 0007       |    |		Action	Break_Optional
007c a003       |    |		Store_Unchecked	0x0,0x3
007d 00c6       |    |		Action	Check_Subprogram_Elaborated
007e e225       | %  |		Load	0x1,0x25
007f e226       | &  |		Load	0x1,0x26
0080 e006       |    |		Load	0x0,0x6
0081 e007       |    |		Load	0x0,0x7
0082 4800       |H   |		Short_Literal	0x0
0083 0007       |    |		Action	Break_Optional
0084 a003       |    |		Store_Unchecked	0x0,0x3
0085 00c6       |    |		Action	Check_Subprogram_Elaborated
0086 e224       | $  |		Load	0x1,0x24
0087 e212       |    |		Load	0x1,0x12
0088 e008       |    |		Load	0x0,0x8
0089 e009       |    |		Load	0x0,0x9
008a 4800       |H   |		Short_Literal	0x0
008b 0007       |    |		Action	Break_Optional
008c 029d 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call
008e 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
0090 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
0092 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa			BODY_0008:
00aa 00bc       |    |		Action	Signal_Activated
00ab 00bb       |    |		Action	Signal_Completion
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 e212       |    |		Load	0x1,0x12
00b4 03bc       |    |		Declare_Variable	Access,By_Allocation
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 0227       | '  |		Execute	Access,All_Reference
00b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b8 003b       | ;  |		Store_Top	Access,At_Offset_3
00b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ba 0000 0000  |    |		.BLANK	0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c7       |    |		.CONST	0x00c7								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 e226       | &  |		Load	0x1,0x26
00c4 0007       |    |		Action	Break_Optional
00c5 e226       | &  |		Load	0x1,0x26
00c6 0007       |    |		Action	Break_Optional
00c7			BODY_00c0:
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 0227       | '  |		Execute	Access,All_Reference
00c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ca 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00cb 682d       |h-  |		Jump_Zero	0xf9
00cc 00cf       |    |		Action	Mark_Auxiliary
00cd e5ff       |    |		Load	0x2,-0x1
00ce 0227       | '  |		Execute	Access,All_Reference
00cf 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00d0 01d9       |    |		Execute	Vector,Reverse_Bounds
00d1 0263       | c  |		Execute	Discrete,Above_Bound
00d2 7025       |p%  |		Jump_Nonzero	0xf8
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 0227       | '  |		Execute	Access,All_Reference
00d6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00d7 01d7       |    |		Execute	Vector,Field_Read
00d8 a402       |    |		Store_Unchecked	0x2,0x2
00d9 00cf       |    |		Action	Mark_Auxiliary
00da 7818       |x   |		Jump	0xf3
00db e402       |    |		Load	0x2,0x2
00dc 0227       | '  |		Execute	Access,All_Reference
00dd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00de a403       |    |		Store_Unchecked	0x2,0x3
00df e402       |    |		Load	0x2,0x2
00e0 0229       | )  |		Execute	Access,All_Read
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e3 e22b       | +  |		Load	0x1,0x2b
00e4 e22c       | ,  |		Load	0x1,0x2c
00e5 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00e6 8003       |    |		Call	0x0,0x3
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e9 00d1       |    |		Pop_Control	Pop_Count_1
00ea e402       |    |		Load	0x2,0x2
00eb e230       | 0  |		Load	0x1,0x30
00ec e231       | 1  |		Load	0x1,0x31
00ed 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00ee 8003       |    |		Call	0x0,0x3
00ef c402       |    |		Store	0x2,0x2
00f0 e403       |    |		Load	0x2,0x3
00f1 a402       |    |		Store_Unchecked	0x2,0x2
00f2 00c9       |    |		Action	Pop_Auxiliary_Loop
00f3 e402       |    |		Load	0x2,0x2
00f4 77e6       |w   |		Jump_Nonzero	0xdb
00f5 00ce       |    |		Action	Pop_Auxiliary
00f6 00c8       |    |		Action	Pop_Auxiliary_Range
00f7 3fdb       |?   |		Loop_Increasing	0xd3
00f8 00ce       |    |		Action	Pop_Auxiliary
00f9 e5ff       |    |		Load	0x2,-0x1
00fa e235       | 5  |		Load	0x1,0x35
00fb e236       | 6  |		Load	0x1,0x36
00fc 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
00fd 8003       |    |		Call	0x0,0x3
00fe c5ff       |    |		Store	0x2,-0x1
00ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 0227       | '  |		Execute	Access,All_Reference
0105 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0106 0f00       |    |		Execute_Immediate	Equal,0x0
0107 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 011a       |    |		.CONST	0x011a								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0004       |    |		.CONST	0x0004								; Number of locals
010b			INIT_0108:
010b 00db       |    |		Load_Top	At_Offset_3
010c 823a       | :  |		Call	0x1,0x3a
010d 00e3       |    |		Load_Encached	Natural_Cache
010e 03f1       |    |		Declare_Variable	Discrete,With_Value
010f e226       | &  |		Load	0x1,0x26
0110 0007       |    |		Action	Break_Optional
0111 e226       | &  |		Load	0x1,0x26
0112 00da       |    |		Load_Top	At_Offset_2
0113 e210       |    |		Load	0x1,0x10
0114 026f       | o  |		Execute	Discrete,Remainder
0115 e5ff       |    |		Load	0x2,-0x1
0116 0227       | '  |		Execute	Access,All_Reference
0117 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0118 01d7       |    |		Execute	Vector,Field_Read
0119 0039       | 9  |		Store_Top	Access,At_Offset_1
011a			BODY_0108:
011a 00d8       |    |		Load_Top	At_Offset_0
011b e226       | &  |		Load	0x1,0x26
011c e5fe       |    |		Load	0x2,-0x2
011d e402       |    |		Load	0x2,0x2
011e 823c       | <  |		Call	0x1,0x3c
011f 003b       | ;  |		Store_Top	Access,At_Offset_3
0120 0039       | 9  |		Store_Top	Access,At_Offset_1
0121 00d8       |    |		Load_Top	At_Offset_0
0122 6807       |h   |		Jump_Zero	0x12a
0123 00d8       |    |		Load_Top	At_Offset_0
0124 0227       | '  |		Execute	Access,All_Reference
0125 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0126 c5fd       |    |		Store	0x2,-0x3
0127 4801       |H   |		Short_Literal	0x1
0128 a5fc       |    |		Store_Unchecked	0x2,-0x4
0129 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012a 4800       |H   |		Short_Literal	0x0
012b a5fc       |    |		Store_Unchecked	0x2,-0x4
012c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0142       | B  |		.CONST	0x0142								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 00db       |    |		Load_Top	At_Offset_3
0134 823a       | :  |		Call	0x1,0x3a
0135 00e3       |    |		Load_Encached	Natural_Cache
0136 03f1       |    |		Declare_Variable	Discrete,With_Value
0137 e226       | &  |		Load	0x1,0x26
0138 0007       |    |		Action	Break_Optional
0139 e226       | &  |		Load	0x1,0x26
013a 00da       |    |		Load_Top	At_Offset_2
013b e210       |    |		Load	0x1,0x10
013c 026f       | o  |		Execute	Discrete,Remainder
013d e5ff       |    |		Load	0x2,-0x1
013e 0227       | '  |		Execute	Access,All_Reference
013f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0140 01d7       |    |		Execute	Vector,Field_Read
0141 0039       | 9  |		Store_Top	Access,At_Offset_1
0142			BODY_0130:
0142 00d8       |    |		Load_Top	At_Offset_0
0143 e226       | &  |		Load	0x1,0x26
0144 e5fe       |    |		Load	0x2,-0x2
0145 e402       |    |		Load	0x2,0x2
0146 823c       | <  |		Call	0x1,0x3c
0147 003b       | ;  |		Store_Top	Access,At_Offset_3
0148 0039       | 9  |		Store_Top	Access,At_Offset_1
0149 00d8       |    |		Load_Top	At_Offset_0
014a 680b       |h   |		Jump_Zero	0x156
014b 00d8       |    |		Load_Top	At_Offset_0
014c 0227       | '  |		Execute	Access,All_Reference
014d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
014e 00d8       |    |		Load_Top	At_Offset_0
014f 0120       |    |		Execute	Any,Is_Value
0150 7002       |p   |		Jump_Nonzero	0x153
0151 00d8       |    |		Load_Top	At_Offset_0
0152 011e       |    |		Execute	Any,Convert
0153 e20f       |    |		Load	0x1,0xf
0154 0119       |    |		Execute	Any,Check_In_Formal_Type
0155 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0156 e217       |    |		Load	0x1,0x17
0157 0257       | W  |		Execute	Discrete,Raise
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 016a       | j  |		.CONST	0x016a								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0004       |    |		.CONST	0x0004								; Number of locals
015b			INIT_0158:
015b 00db       |    |		Load_Top	At_Offset_3
015c 823a       | :  |		Call	0x1,0x3a
015d 00e3       |    |		Load_Encached	Natural_Cache
015e 03f1       |    |		Declare_Variable	Discrete,With_Value
015f e226       | &  |		Load	0x1,0x26
0160 0007       |    |		Action	Break_Optional
0161 e226       | &  |		Load	0x1,0x26
0162 00da       |    |		Load_Top	At_Offset_2
0163 e210       |    |		Load	0x1,0x10
0164 026f       | o  |		Execute	Discrete,Remainder
0165 e5ff       |    |		Load	0x2,-0x1
0166 0227       | '  |		Execute	Access,All_Reference
0167 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0168 01d7       |    |		Execute	Vector,Field_Read
0169 0039       | 9  |		Store_Top	Access,At_Offset_1
016a			BODY_0158:
016a 00d8       |    |		Load_Top	At_Offset_0
016b e226       | &  |		Load	0x1,0x26
016c e5fe       |    |		Load	0x2,-0x2
016d e402       |    |		Load	0x2,0x2
016e 823c       | <  |		Call	0x1,0x3c
016f 003b       | ;  |		Store_Top	Access,At_Offset_3
0170 0039       | 9  |		Store_Top	Access,At_Offset_1
0171 00d8       |    |		Load_Top	At_Offset_0
0172 6809       |h   |		Jump_Zero	0x17c
0173 e5fc       |    |		Load	0x2,-0x4
0174 6805       |h   |		Jump_Zero	0x17a
0175 e5fd       |    |		Load	0x2,-0x3
0176 00d9       |    |		Load_Top	At_Offset_1
0177 0227       | '  |		Execute	Access,All_Reference
0178 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0179 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017a e216       |    |		Load	0x1,0x16
017b 0257       | W  |		Execute	Discrete,Raise
017c e225       | %  |		Load	0x1,0x25
017d 0322       | "  |		Declare_Variable	Record
017e 00db       |    |		Load_Top	At_Offset_3
017f 00d9       |    |		Load_Top	At_Offset_1
0180 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0181 e5fe       |    |		Load	0x2,-0x2
0182 e229       | )  |		Load	0x1,0x29
0183 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0184 00d9       |    |		Load_Top	At_Offset_1
0185 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0186 e5fd       |    |		Load	0x2,-0x3
0187 e225       | %  |		Load	0x1,0x25
0188 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0189 0119       |    |		Execute	Any,Check_In_Formal_Type
018a 00d9       |    |		Load_Top	At_Offset_1
018b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018c e226       | &  |		Load	0x1,0x26
018d 00d9       |    |		Load_Top	At_Offset_1
018e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
018f e226       | &  |		Load	0x1,0x26
0190 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0191 0039       | 9  |		Store_Top	Access,At_Offset_1
0192 00da       |    |		Load_Top	At_Offset_2
0193 e210       |    |		Load	0x1,0x10
0194 026f       | o  |		Execute	Discrete,Remainder
0195 005b       | [  |		Store_Top	Discrete,At_Offset_3
0196 00da       |    |		Load_Top	At_Offset_2
0197 e5ff       |    |		Load	0x2,-0x1
0198 0227       | '  |		Execute	Access,All_Reference
0199 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
019a 01d7       |    |		Execute	Vector,Field_Read
019b 00d9       |    |		Load_Top	At_Offset_1
019c 0227       | '  |		Execute	Access,All_Reference
019d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
019e 00d8       |    |		Load_Top	At_Offset_0
019f 00db       |    |		Load_Top	At_Offset_3
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 0227       | '  |		Execute	Access,All_Reference
01a2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01a3 01d6       |    |		Execute	Vector,Field_Write
01a4 e211       |    |		Load	0x1,0x11
01a5 701a       |p   |		Jump_Nonzero	0x1c0
01a6 00cf       |    |		Action	Mark_Auxiliary
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 0227       | '  |		Execute	Access,All_Reference
01a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01aa 0227       | '  |		Execute	Access,All_Reference
01ab 01d9       |    |		Execute	Vector,Reverse_Bounds
01ac 0263       | c  |		Execute	Discrete,Above_Bound
01ad 7011       |p   |		Jump_Nonzero	0x1bf
01ae 00d8       |    |		Load_Top	At_Offset_0
01af e404       |    |		Load	0x2,0x4
01b0 0227       | '  |		Execute	Access,All_Reference
01b1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b2 0227       | '  |		Execute	Access,All_Reference
01b3 01d7       |    |		Execute	Vector,Field_Read
01b4 e00a       |    |		Load	0x0,0xa
01b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b6 01d7       |    |		Execute	Vector,Field_Read
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 e404       |    |		Load	0x2,0x4
01b9 0227       | '  |		Execute	Access,All_Reference
01ba 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01bb 0227       | '  |		Execute	Access,All_Reference
01bc 01d6       |    |		Execute	Vector,Field_Write
01bd 00c8       |    |		Action	Pop_Auxiliary_Range
01be 3fef       |?   |		Loop_Increasing	0x1ae
01bf 00ce       |    |		Action	Pop_Auxiliary
01c0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01c1 0000 0000  |    |		.BLANK	0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01dd       |    |		.CONST	0x01dd								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0005       |    |		.CONST	0x0005								; Number of locals
01cb			INIT_01c8:
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 823a       | :  |		Call	0x1,0x3a
01cd 00e3       |    |		Load_Encached	Natural_Cache
01ce 03f1       |    |		Declare_Variable	Discrete,With_Value
01cf 00d8       |    |		Load_Top	At_Offset_0
01d0 e210       |    |		Load	0x1,0x10
01d1 026f       | o  |		Execute	Discrete,Remainder
01d2 00e3       |    |		Load_Encached	Natural_Cache
01d3 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01d4 e226       | &  |		Load	0x1,0x26
01d5 0007       |    |		Action	Break_Optional
01d6 e226       | &  |		Load	0x1,0x26
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 e5ff       |    |		Load	0x2,-0x1
01d9 0227       | '  |		Execute	Access,All_Reference
01da 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01db 01d7       |    |		Execute	Vector,Field_Read
01dc 0039       | 9  |		Store_Top	Access,At_Offset_1
01dd			BODY_01c8:
01dd 00d8       |    |		Load_Top	At_Offset_0
01de e226       | &  |		Load	0x1,0x26
01df e5fe       |    |		Load	0x2,-0x2
01e0 e402       |    |		Load	0x2,0x2
01e1 823c       | <  |		Call	0x1,0x3c
01e2 003b       | ;  |		Store_Top	Access,At_Offset_3
01e3 0039       | 9  |		Store_Top	Access,At_Offset_1
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 6823       |h#  |		Jump_Zero	0x209
01e6 00d9       |    |		Load_Top	At_Offset_1
01e7 7009       |p   |		Jump_Nonzero	0x1f1
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 0227       | '  |		Execute	Access,All_Reference
01ea 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01eb 00db       |    |		Load_Top	At_Offset_3
01ec e5ff       |    |		Load	0x2,-0x1
01ed 0227       | '  |		Execute	Access,All_Reference
01ee 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01ef 01d6       |    |		Execute	Vector,Field_Write
01f0 7806       |x   |		Jump	0x1f7
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 0227       | '  |		Execute	Access,All_Reference
01f3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01f4 00da       |    |		Load_Top	At_Offset_2
01f5 0227       | '  |		Execute	Access,All_Reference
01f6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 0229       | )  |		Execute	Access,All_Read
01f9 00d8       |    |		Load_Top	At_Offset_0
01fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01fb e22b       | +  |		Load	0x1,0x2b
01fc e22c       | ,  |		Load	0x1,0x2c
01fd 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
01fe 8003       |    |		Call	0x0,0x3
01ff 00d9       |    |		Load_Top	At_Offset_1
0200 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0201 00d1       |    |		Pop_Control	Pop_Count_1
0202 00d8       |    |		Load_Top	At_Offset_0
0203 e230       | 0  |		Load	0x1,0x30
0204 e231       | 1  |		Load	0x1,0x31
0205 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0206 8003       |    |		Call	0x0,0x3
0207 0039       | 9  |		Store_Top	Access,At_Offset_1
0208 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0209 e5fd       |    |		Load	0x2,-0x3
020a 6801       |h   |		Jump_Zero	0x20c
020b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
020c e217       |    |		Load	0x1,0x17
020d 0257       | W  |		Execute	Discrete,Raise
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0225       | %  |		.CONST	0x0225								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0005       |    |		.CONST	0x0005								; Number of locals
0213			INIT_0210:
0213 00db       |    |		Load_Top	At_Offset_3
0214 823a       | :  |		Call	0x1,0x3a
0215 00e3       |    |		Load_Encached	Natural_Cache
0216 03f1       |    |		Declare_Variable	Discrete,With_Value
0217 00d8       |    |		Load_Top	At_Offset_0
0218 e210       |    |		Load	0x1,0x10
0219 026f       | o  |		Execute	Discrete,Remainder
021a 00e3       |    |		Load_Encached	Natural_Cache
021b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
021c e226       | &  |		Load	0x1,0x26
021d 0007       |    |		Action	Break_Optional
021e e226       | &  |		Load	0x1,0x26
021f 00da       |    |		Load_Top	At_Offset_2
0220 e5ff       |    |		Load	0x2,-0x1
0221 0227       | '  |		Execute	Access,All_Reference
0222 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0223 01d7       |    |		Execute	Vector,Field_Read
0224 0039       | 9  |		Store_Top	Access,At_Offset_1
0225			BODY_0210:
0225 00d8       |    |		Load_Top	At_Offset_0
0226 e226       | &  |		Load	0x1,0x26
0227 e5fe       |    |		Load	0x2,-0x2
0228 e402       |    |		Load	0x2,0x2
0229 823c       | <  |		Call	0x1,0x3c
022a 003b       | ;  |		Store_Top	Access,At_Offset_3
022b 0039       | 9  |		Store_Top	Access,At_Offset_1
022c 00d8       |    |		Load_Top	At_Offset_0
022d 6829       |h)  |		Jump_Zero	0x257
022e 00d9       |    |		Load_Top	At_Offset_1
022f 7009       |p   |		Jump_Nonzero	0x239
0230 00d8       |    |		Load_Top	At_Offset_0
0231 0227       | '  |		Execute	Access,All_Reference
0232 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0233 00db       |    |		Load_Top	At_Offset_3
0234 e5ff       |    |		Load	0x2,-0x1
0235 0227       | '  |		Execute	Access,All_Reference
0236 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0237 01d6       |    |		Execute	Vector,Field_Write
0238 7806       |x   |		Jump	0x23f
0239 00d8       |    |		Load_Top	At_Offset_0
023a 0227       | '  |		Execute	Access,All_Reference
023b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
023c 00da       |    |		Load_Top	At_Offset_2
023d 0227       | '  |		Execute	Access,All_Reference
023e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
023f 00d8       |    |		Load_Top	At_Offset_0
0240 0227       | '  |		Execute	Access,All_Reference
0241 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0242 c5fd       |    |		Store	0x2,-0x3
0243 00d8       |    |		Load_Top	At_Offset_0
0244 0229       | )  |		Execute	Access,All_Read
0245 00d8       |    |		Load_Top	At_Offset_0
0246 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0247 e22b       | +  |		Load	0x1,0x2b
0248 e22c       | ,  |		Load	0x1,0x2c
0249 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
024a 8003       |    |		Call	0x0,0x3
024b 00d9       |    |		Load_Top	At_Offset_1
024c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
024d 00d1       |    |		Pop_Control	Pop_Count_1
024e 00d8       |    |		Load_Top	At_Offset_0
024f e230       | 0  |		Load	0x1,0x30
0250 e231       | 1  |		Load	0x1,0x31
0251 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0252 8003       |    |		Call	0x0,0x3
0253 0039       | 9  |		Store_Top	Access,At_Offset_1
0254 4801       |H   |		Short_Literal	0x1
0255 a5fc       |    |		Store_Unchecked	0x2,-0x4
0256 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0257 4800       |H   |		Short_Literal	0x0
0258 a5fc       |    |		Store_Unchecked	0x2,-0x4
0259 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
025a 0000 0000  |    |		.BLANK	0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 e5fe       |    |		Load	0x2,-0x2
0265 0227       | '  |		Execute	Access,All_Reference
0266 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0267 00cf       |    |		Action	Mark_Auxiliary
0268 e210       |    |		Load	0x1,0x10
0269 0aff       |    |		Execute_Immediate	Plus,-0x1
026a 4800       |H   |		Short_Literal	0x0
026b 0263       | c  |		Execute	Discrete,Above_Bound
026c 7015       |p   |		Jump_Nonzero	0x282
026d 00d8       |    |		Load_Top	At_Offset_0
026e e5ff       |    |		Load	0x2,-0x1
026f 0227       | '  |		Execute	Access,All_Reference
0270 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0271 01d7       |    |		Execute	Vector,Field_Read
0272 680d       |h   |		Jump_Zero	0x280
0273 00d8       |    |		Load_Top	At_Offset_0
0274 e5ff       |    |		Load	0x2,-0x1
0275 0227       | '  |		Execute	Access,All_Reference
0276 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0277 01d7       |    |		Execute	Vector,Field_Read
0278 e5fe       |    |		Load	0x2,-0x2
0279 0227       | '  |		Execute	Access,All_Reference
027a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
027b 00d8       |    |		Load_Top	At_Offset_0
027c e5fe       |    |		Load	0x2,-0x2
027d 0227       | '  |		Execute	Access,All_Reference
027e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
027f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0280 00c8       |    |		Action	Pop_Auxiliary_Range
0281 3feb       |?   |		Loop_Increasing	0x26d
0282 00ce       |    |		Action	Pop_Auxiliary
0283 e226       | &  |		Load	0x1,0x26
0284 e5fe       |    |		Load	0x2,-0x2
0285 0227       | '  |		Execute	Access,All_Reference
0286 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0287 e210       |    |		Load	0x1,0x10
0288 e5fe       |    |		Load	0x2,-0x2
0289 0227       | '  |		Execute	Access,All_Reference
028a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
028b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
028c 0000 0000  |    |		.BLANK	0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 0227       | '  |		Execute	Access,All_Reference
0295 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0296 6802       |h   |		Jump_Zero	0x299
0297 4800       |H   |		Short_Literal	0x0
0298 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0299 4801       |H   |		Short_Literal	0x1
029a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029b 0000 0000  |    |		.BLANK	0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 0227       | '  |		Execute	Access,All_Reference
02a5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a6 7002       |p   |		Jump_Nonzero	0x2a9
02a7 e217       |    |		Load	0x1,0x17
02a8 0257       | W  |		Execute	Discrete,Raise
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ac 0227       | '  |		Execute	Access,All_Reference
02ad 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ae 00d8       |    |		Load_Top	At_Offset_0
02af 0120       |    |		Execute	Any,Is_Value
02b0 7002       |p   |		Jump_Nonzero	0x2b3
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 011e       |    |		Execute	Any,Convert
02b3 e20f       |    |		Load	0x1,0xf
02b4 0119       |    |		Execute	Any,Check_In_Formal_Type
02b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b6 0000 0000  |    |		.XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd       |    |		.CONST	0x02bd								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e226       | &  |		Load	0x1,0x26
02bc 0007       |    |		Action	Break_Optional
02bd			BODY_02b8:
02bd 00db       |    |		Load_Top	At_Offset_3
02be 0227       | '  |		Execute	Access,All_Reference
02bf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c0 7002       |p   |		Jump_Nonzero	0x2c3
02c1 e217       |    |		Load	0x1,0x17
02c2 0257       | W  |		Execute	Discrete,Raise
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 0227       | '  |		Execute	Access,All_Reference
02c5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c6 0227       | '  |		Execute	Access,All_Reference
02c7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02c8 6809       |h   |		Jump_Zero	0x2d2
02c9 00db       |    |		Load_Top	At_Offset_3
02ca 0227       | '  |		Execute	Access,All_Reference
02cb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02ce e5ff       |    |		Load	0x2,-0x1
02cf 0227       | '  |		Execute	Access,All_Reference
02d0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d2 00cf       |    |		Action	Mark_Auxiliary
02d3 e210       |    |		Load	0x1,0x10
02d4 0aff       |    |		Execute_Immediate	Plus,-0x1
02d5 e5ff       |    |		Load	0x2,-0x1
02d6 0227       | '  |		Execute	Access,All_Reference
02d7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d8 0a01       |    |		Execute_Immediate	Plus,0x1
02d9 0263       | c  |		Execute	Discrete,Above_Bound
02da 7019       |p   |		Jump_Nonzero	0x2f4
02db 00d8       |    |		Load_Top	At_Offset_0
02dc e5ff       |    |		Load	0x2,-0x1
02dd 0227       | '  |		Execute	Access,All_Reference
02de 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02df 0227       | '  |		Execute	Access,All_Reference
02e0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02e1 01d7       |    |		Execute	Vector,Field_Read
02e2 680f       |h   |		Jump_Zero	0x2f2
02e3 00d8       |    |		Load_Top	At_Offset_0
02e4 e5ff       |    |		Load	0x2,-0x1
02e5 0227       | '  |		Execute	Access,All_Reference
02e6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e7 0227       | '  |		Execute	Access,All_Reference
02e8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02e9 01d7       |    |		Execute	Vector,Field_Read
02ea e5ff       |    |		Load	0x2,-0x1
02eb 0227       | '  |		Execute	Access,All_Reference
02ec 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee e5ff       |    |		Load	0x2,-0x1
02ef 0227       | '  |		Execute	Access,All_Reference
02f0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f2 00c8       |    |		Action	Pop_Auxiliary_Range
02f3 3fe7       |?   |		Loop_Increasing	0x2db
02f4 00ce       |    |		Action	Pop_Auxiliary
02f5 e226       | &  |		Load	0x1,0x26
02f6 e5ff       |    |		Load	0x2,-0x1
02f7 0227       | '  |		Execute	Access,All_Reference
02f8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02f9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02fa 0000 0000  |    |		.BLANK	0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 4608       |F   |		Jump_Case	0x9
0304 7808       |x   |		Jump	0x30d								; case 0x0
0305 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0306 780a       |x   |		Jump	0x311								; case 0x2
0307 7809       |x   |		Jump	0x311								; case 0x3
0308 7808       |x   |		Jump	0x311								; case 0x4
0309 7807       |x   |		Jump	0x311								; case 0x5
030a 7806       |x   |		Jump	0x311								; case 0x6
030b 7805       |x   |		Jump	0x311								; case 0x7
030c 7804       |x   |		Jump	0x311								; case 0x8
030d 4800       |H   |		Short_Literal	0x0
030e 00db       |    |		Load_Top	At_Offset_3
030f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0310 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0311 0869       | i  |		Execute_Immediate	Raise,0x69
0312 0000 0000  |    |		.BLANK	0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 4608       |F   |		Jump_Case	0x9
031c 7808       |x   |		Jump	0x325								; case 0x0
031d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
031e 7810       |x   |		Jump	0x32f								; case 0x2
031f 780f       |x   |		Jump	0x32f								; case 0x3
0320 780e       |x   |		Jump	0x32f								; case 0x4
0321 780d       |x   |		Jump	0x32f								; case 0x5
0322 780c       |x   |		Jump	0x32f								; case 0x6
0323 780b       |x   |		Jump	0x32f								; case 0x7
0324 780a       |x   |		Jump	0x32f								; case 0x8
0325 4800       |H   |		Short_Literal	0x0
0326 00db       |    |		Load_Top	At_Offset_3
0327 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0328 00da       |    |		Load_Top	At_Offset_2
0329 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
032a 0125       | %  |		Execute	Any,Set_Constraint
032b 00da       |    |		Load_Top	At_Offset_2
032c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
032d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
032e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
032f 0869       | i  |		Execute_Immediate	Raise,0x69
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 4608       |F   |		Jump_Case	0x9
0334 7808       |x   |		Jump	0x33d								; case 0x0
0335 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0336 7820       |x   |		Jump	0x357								; case 0x2
0337 781f       |x   |		Jump	0x357								; case 0x3
0338 781e       |x   |		Jump	0x357								; case 0x4
0339 781d       |x   |		Jump	0x357								; case 0x5
033a 781c       |x   |		Jump	0x357								; case 0x6
033b 781b       |x   |		Jump	0x357								; case 0x7
033c 781a       |x   |		Jump	0x357								; case 0x8
033d 4800       |H   |		Short_Literal	0x0
033e 00db       |    |		Load_Top	At_Offset_3
033f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0340 4800       |H   |		Short_Literal	0x0
0341 e210       |    |		Load	0x1,0x10
0342 0aff       |    |		Execute_Immediate	Plus,-0x1
0343 e22a       | *  |		Load	0x1,0x2a
0344 0334       | 4  |		Declare_Variable	Array,With_Constraint
0345 00d8       |    |		Load_Top	At_Offset_0
0346 01dc       |    |		Execute	Vector,Last
0347 4800       |H   |		Short_Literal	0x0
0348 0263       | c  |		Execute	Discrete,Above_Bound
0349 7005       |p   |		Jump_Nonzero	0x34f
034a e226       | &  |		Load	0x1,0x26
034b 00d9       |    |		Load_Top	At_Offset_1
034c e402       |    |		Load	0x2,0x2
034d 01d6       |    |		Execute	Vector,Field_Write
034e 3ffb       |?   |		Loop_Increasing	0x34a
034f 00db       |    |		Load_Top	At_Offset_3
0350 00d9       |    |		Load_Top	At_Offset_1
0351 00d9       |    |		Load_Top	At_Offset_1
0352 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0353 0119       |    |		Execute	Any,Check_In_Formal_Type
0354 00d1       |    |		Pop_Control	Pop_Count_1
0355 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0356 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0357 0869       | i  |		Execute_Immediate	Raise,0x69
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0361       | a  |		.CONST	0x0361								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0003       |    |		.CONST	0x0003								; Number of locals
035b			INIT_0358:
035b 00da       |    |		Load_Top	At_Offset_2
035c 01da       |    |		Execute	Vector,Bounds
035d e228       | (  |		Load	0x1,0x28
035e 0334       | 4  |		Declare_Variable	Array,With_Constraint
035f 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
0361			BODY_0358:
0361 e211       |    |		Load	0x1,0x11
0362 680f       |h   |		Jump_Zero	0x372
0363 00cf       |    |		Action	Mark_Auxiliary
0364 e5ff       |    |		Load	0x2,-0x1
0365 01d9       |    |		Execute	Vector,Reverse_Bounds
0366 0263       | c  |		Execute	Discrete,Above_Bound
0367 7008       |p   |		Jump_Nonzero	0x370
0368 00d8       |    |		Load_Top	At_Offset_0
0369 e5ff       |    |		Load	0x2,-0x1
036a 01d7       |    |		Execute	Vector,Field_Read
036b 00d9       |    |		Load_Top	At_Offset_1
036c e402       |    |		Load	0x2,0x2
036d 01d6       |    |		Execute	Vector,Field_Write
036e 00c8       |    |		Action	Pop_Auxiliary_Range
036f 3ff8       |?   |		Loop_Increasing	0x368
0370 00ce       |    |		Action	Pop_Auxiliary
0371 7811       |x   |		Jump	0x383
0372 00cf       |    |		Action	Mark_Auxiliary
0373 e5ff       |    |		Load	0x2,-0x1
0374 01d9       |    |		Execute	Vector,Reverse_Bounds
0375 0263       | c  |		Execute	Discrete,Above_Bound
0376 700b       |p   |		Jump_Nonzero	0x382
0377 00d8       |    |		Load_Top	At_Offset_0
0378 e5ff       |    |		Load	0x2,-0x1
0379 01d7       |    |		Execute	Vector,Field_Read
037a e00a       |    |		Load	0x0,0xa
037b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037c 01d7       |    |		Execute	Vector,Field_Read
037d 00d9       |    |		Load_Top	At_Offset_1
037e e402       |    |		Load	0x2,0x2
037f 01d6       |    |		Execute	Vector,Field_Write
0380 00c8       |    |		Action	Pop_Auxiliary_Range
0381 3ff5       |?   |		Loop_Increasing	0x377
0382 00ce       |    |		Action	Pop_Auxiliary
0383 e5ff       |    |		Load	0x2,-0x1
0384 01db       |    |		Execute	Vector,Length
0385 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0386 700a       |p   |		Jump_Nonzero	0x391
0387 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0388 700a       |p   |		Jump_Nonzero	0x393
0389 0b02       |    |		Execute_Immediate	Case_Compare,0x2
038a 700d       |p   |		Jump_Nonzero	0x398
038b 0b03       |    |		Execute_Immediate	Case_Compare,0x3
038c 7018       |p   |		Jump_Nonzero	0x3a5
038d 0b04       |    |		Execute_Immediate	Case_Compare,0x4
038e 702a       |p*  |		Jump_Nonzero	0x3b9
038f 8403       |    |		Call	0x2,0x3
0390 7843       |xC  |		Jump	0x3d4
0391 4800       |H   |		Short_Literal	0x0
0392 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0393 00da       |    |		Load_Top	At_Offset_2
0394 01dd       |    |		Execute	Vector,First
0395 00db       |    |		Load_Top	At_Offset_3
0396 01d7       |    |		Execute	Vector,Field_Read
0397 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0398 00da       |    |		Load_Top	At_Offset_2
0399 01dd       |    |		Execute	Vector,First
039a 00db       |    |		Load_Top	At_Offset_3
039b 01d7       |    |		Execute	Vector,Field_Read
039c 0907       |    |		Execute_Immediate	Binary_Scale,0x7
039d 00db       |    |		Load_Top	At_Offset_3
039e 01dc       |    |		Execute	Vector,Last
039f e402       |    |		Load	0x2,0x2
03a0 01d7       |    |		Execute	Vector,Field_Read
03a1 0273       | s  |		Execute	Discrete,Plus
03a2 00e3       |    |		Load_Encached	Natural_Cache
03a3 025b       | [  |		Execute	Discrete,Check_In_Type
03a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 01dd       |    |		Execute	Vector,First
03a7 00db       |    |		Load_Top	At_Offset_3
03a8 01d7       |    |		Execute	Vector,Field_Read
03a9 090e       |    |		Execute_Immediate	Binary_Scale,0xe
03aa 00db       |    |		Load_Top	At_Offset_3
03ab 01dd       |    |		Execute	Vector,First
03ac 0a01       |    |		Execute_Immediate	Plus,0x1
03ad e402       |    |		Load	0x2,0x2
03ae 01d7       |    |		Execute	Vector,Field_Read
03af 0907       |    |		Execute_Immediate	Binary_Scale,0x7
03b0 0273       | s  |		Execute	Discrete,Plus
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 01dc       |    |		Execute	Vector,Last
03b3 e402       |    |		Load	0x2,0x2
03b4 01d7       |    |		Execute	Vector,Field_Read
03b5 0273       | s  |		Execute	Discrete,Plus
03b6 00e3       |    |		Load_Encached	Natural_Cache
03b7 025b       | [  |		Execute	Discrete,Check_In_Type
03b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b9 00da       |    |		Load_Top	At_Offset_2
03ba 01dd       |    |		Execute	Vector,First
03bb 00db       |    |		Load_Top	At_Offset_3
03bc 01d7       |    |		Execute	Vector,Field_Read
03bd 0915       |    |		Execute_Immediate	Binary_Scale,0x15
03be 00db       |    |		Load_Top	At_Offset_3
03bf 01dd       |    |		Execute	Vector,First
03c0 0a01       |    |		Execute_Immediate	Plus,0x1
03c1 e402       |    |		Load	0x2,0x2
03c2 01d7       |    |		Execute	Vector,Field_Read
03c3 090e       |    |		Execute_Immediate	Binary_Scale,0xe
03c4 0273       | s  |		Execute	Discrete,Plus
03c5 00db       |    |		Load_Top	At_Offset_3
03c6 01dd       |    |		Execute	Vector,First
03c7 0a02       |    |		Execute_Immediate	Plus,0x2
03c8 e402       |    |		Load	0x2,0x2
03c9 01d7       |    |		Execute	Vector,Field_Read
03ca 0907       |    |		Execute_Immediate	Binary_Scale,0x7
03cb 0273       | s  |		Execute	Discrete,Plus
03cc 00db       |    |		Load_Top	At_Offset_3
03cd 01dc       |    |		Execute	Vector,Last
03ce e402       |    |		Load	0x2,0x2
03cf 01d7       |    |		Execute	Vector,Field_Read
03d0 0273       | s  |		Execute	Discrete,Plus
03d1 00e3       |    |		Load_Encached	Natural_Cache
03d2 025b       | [  |		Execute	Discrete,Check_In_Type
03d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d4 00d1       |    |		Pop_Control	Pop_Count_1
03d5 0831       | 1  |		Execute_Immediate	Raise,0x31
03d6 0000 0000  |    |		.XXX[0x2]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e3       |    |		.CONST	0x03e3								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0003       |    |		.CONST	0x0003								; Number of locals
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 01dd       |    |		Execute	Vector,First
03dd 00e3       |    |		Load_Encached	Natural_Cache
03de 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03df e5fe       |    |		Load	0x2,-0x2
03e0 01dd       |    |		Execute	Vector,First
03e1 00e3       |    |		Load_Encached	Natural_Cache
03e2 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03e3			BODY_03d8:
03e3 e5ff       |    |		Load	0x2,-0x1
03e4 01db       |    |		Execute	Vector,Length
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 01db       |    |		Execute	Vector,Length
03e7 027e       | ~  |		Execute	Discrete,Not_Equal
03e8 6802       |h   |		Jump_Zero	0x3eb
03e9 4800       |H   |		Short_Literal	0x0
03ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03eb 00cf       |    |		Action	Mark_Auxiliary
03ec e5ff       |    |		Load	0x2,-0x1
03ed 01db       |    |		Execute	Vector,Length
03ee 0aff       |    |		Execute_Immediate	Plus,-0x1
03ef 4800       |H   |		Short_Literal	0x0
03f0 00e3       |    |		Load_Encached	Natural_Cache
03f1 025c       | \  |		QQucode_0x025c
03f2 0263       | c  |		Execute	Discrete,Above_Bound
03f3 7013       |p   |		Jump_Nonzero	0x407
03f4 e402       |    |		Load	0x2,0x2
03f5 00d9       |    |		Load_Top	At_Offset_1
03f6 0273       | s  |		Execute	Discrete,Plus
03f7 e5ff       |    |		Load	0x2,-0x1
03f8 01d7       |    |		Execute	Vector,Field_Read
03f9 e00a       |    |		Load	0x0,0xa
03fa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03fb 01d7       |    |		Execute	Vector,Field_Read
03fc e403       |    |		Load	0x2,0x3
03fd 00da       |    |		Load_Top	At_Offset_2
03fe 0273       | s  |		Execute	Discrete,Plus
03ff e5fe       |    |		Load	0x2,-0x2
0400 01d7       |    |		Execute	Vector,Field_Read
0401 027e       | ~  |		Execute	Discrete,Not_Equal
0402 6802       |h   |		Jump_Zero	0x405
0403 4800       |H   |		Short_Literal	0x0
0404 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0405 00c8       |    |		Action	Pop_Auxiliary_Range
0406 3fed       |?   |		Loop_Increasing	0x3f4
0407 00ce       |    |		Action	Pop_Auxiliary
0408 4801       |H   |		Short_Literal	0x1
0409 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
040a 0000 0000  |    |		.BLANK	0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0416       |    |		.CONST	0x0416								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0002       |    |		.CONST	0x0002								; Number of locals
0413			INIT_0410:
0413 e226       | &  |		Load	0x1,0x26
0414 e5fc       |    |		Load	0x2,-0x4
0415 0039       | 9  |		Store_Top	Access,At_Offset_1
0416			BODY_0410:
0416 e226       | &  |		Load	0x1,0x26
0417 a5fd       |    |		Store_Unchecked	0x2,-0x3
0418 00cf       |    |		Action	Mark_Auxiliary
0419 7823       |x#  |		Jump	0x43d
041a 00d9       |    |		Load_Top	At_Offset_1
041b 0227       | '  |		Execute	Access,All_Reference
041c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041d e5ff       |    |		Load	0x2,-0x1
041e 027f       |    |		Execute	Discrete,Equal
041f 6816       |h   |		Jump_Zero	0x436
0420 e211       |    |		Load	0x1,0x11
0421 680a       |h   |		Jump_Zero	0x42c
0422 00d9       |    |		Load_Top	At_Offset_1
0423 0227       | '  |		Execute	Access,All_Reference
0424 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0425 0227       | '  |		Execute	Access,All_Reference
0426 e5fe       |    |		Load	0x2,-0x2
0427 01df       |    |		Execute	Vector,Equal
0428 680d       |h   |		Jump_Zero	0x436
0429 00d9       |    |		Load_Top	At_Offset_1
042a a5fc       |    |		Store_Unchecked	0x2,-0x4
042b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
042c 00d9       |    |		Load_Top	At_Offset_1
042d 0227       | '  |		Execute	Access,All_Reference
042e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
042f 0227       | '  |		Execute	Access,All_Reference
0430 e5fe       |    |		Load	0x2,-0x2
0431 823b       | ;  |		Call	0x1,0x3b
0432 6803       |h   |		Jump_Zero	0x436
0433 00d9       |    |		Load_Top	At_Offset_1
0434 a5fc       |    |		Store_Unchecked	0x2,-0x4
0435 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0436 00d9       |    |		Load_Top	At_Offset_1
0437 a5fd       |    |		Store_Unchecked	0x2,-0x3
0438 00d9       |    |		Load_Top	At_Offset_1
0439 0227       | '  |		Execute	Access,All_Reference
043a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
043b 003a       | :  |		Store_Top	Access,At_Offset_2
043c 00c9       |    |		Action	Pop_Auxiliary_Loop
043d 00d9       |    |		Load_Top	At_Offset_1
043e 77db       |w   |		Jump_Nonzero	0x41a
043f 00ce       |    |		Action	Pop_Auxiliary
0440 e226       | &  |		Load	0x1,0x26
0441 a5fc       |    |		Store_Unchecked	0x2,-0x4
0442 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0443 0000 0000  |    |		.BLANK	0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0451       | Q  |		.CONST	0x0451								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0003       |    |		.CONST	0x0003								; Number of locals
044b			INIT_0448:
044b e402       |    |		Load	0x2,0x2
044c 01dd       |    |		Execute	Vector,First
044d 00e3       |    |		Load_Encached	Natural_Cache
044e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
044f 00e3       |    |		Load_Encached	Natural_Cache
0450 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0451			BODY_0448:
0451 00cf       |    |		Action	Mark_Auxiliary
0452 7824       |x$  |		Jump	0x477
0453 00d9       |    |		Load_Top	At_Offset_1
0454 603b       |`;  |		Indirect_Literal	Discrete,0x490,{0x00000000, 0x6fffffff}
0455 027d       | }  |		Execute	Discrete,Greater
0456 6804       |h   |		Jump_Zero	0x45b
0457 00d9       |    |		Load_Top	At_Offset_1
0458 4803       |H   |		Short_Literal	0x3
0459 0270       | p  |		Execute	Discrete,Divide
045a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
045b 00d9       |    |		Load_Top	At_Offset_1
045c 00db       |    |		Load_Top	At_Offset_3
045d e402       |    |		Load	0x2,0x2
045e 01d7       |    |		Execute	Vector,Field_Read
045f 0915       |    |		Execute_Immediate	Binary_Scale,0x15
0460 0273       | s  |		Execute	Discrete,Plus
0461 00db       |    |		Load_Top	At_Offset_3
0462 0a01       |    |		Execute_Immediate	Plus,0x1
0463 e402       |    |		Load	0x2,0x2
0464 01d7       |    |		Execute	Vector,Field_Read
0465 090e       |    |		Execute_Immediate	Binary_Scale,0xe
0466 0273       | s  |		Execute	Discrete,Plus
0467 00db       |    |		Load_Top	At_Offset_3
0468 0a02       |    |		Execute_Immediate	Plus,0x2
0469 e402       |    |		Load	0x2,0x2
046a 01d7       |    |		Execute	Vector,Field_Read
046b 0907       |    |		Execute_Immediate	Binary_Scale,0x7
046c 0273       | s  |		Execute	Discrete,Plus
046d 00db       |    |		Load_Top	At_Offset_3
046e 0a03       |    |		Execute_Immediate	Plus,0x3
046f e402       |    |		Load	0x2,0x2
0470 01d7       |    |		Execute	Vector,Field_Read
0471 0273       | s  |		Execute	Discrete,Plus
0472 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0473 00da       |    |		Load_Top	At_Offset_2
0474 0a04       |    |		Execute_Immediate	Plus,0x4
0475 005b       | [  |		Store_Top	Discrete,At_Offset_3
0476 00c9       |    |		Action	Pop_Auxiliary_Loop
0477 00da       |    |		Load_Top	At_Offset_2
0478 0a03       |    |		Execute_Immediate	Plus,0x3
0479 e402       |    |		Load	0x2,0x2
047a 01dc       |    |		Execute	Vector,Last
047b 027a       | z  |		Execute	Discrete,Less_Equal
047c 77d6       |w   |		Jump_Nonzero	0x453
047d 00c9       |    |		Action	Pop_Auxiliary_Loop
047e e402       |    |		Load	0x2,0x2
047f 01dc       |    |		Execute	Vector,Last
0480 00db       |    |		Load_Top	At_Offset_3
0481 0263       | c  |		Execute	Discrete,Above_Bound
0482 7008       |p   |		Jump_Nonzero	0x48b
0483 00db       |    |		Load_Top	At_Offset_3
0484 00d9       |    |		Load_Top	At_Offset_1
0485 e402       |    |		Load	0x2,0x2
0486 01d7       |    |		Execute	Vector,Field_Read
0487 0273       | s  |		Execute	Discrete,Plus
0488 c603       |    |		Store	0x3,0x3
0489 00c8       |    |		Action	Pop_Auxiliary_Range
048a 3ff8       |?   |		Loop_Increasing	0x483
048b 00ce       |    |		Action	Pop_Auxiliary
048c 00d8       |    |		Load_Top	At_Offset_0
048d 00cb       |    |		Action	Pop_Block_With_Result
048e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048f 0000       |    |		.XXX[0x1]
0490 0000 0000  |    |		.LITERAL	{0x00000000, 0x6fffffff}
0494 0000 0000  |    |		.BLANK	0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug Table
0498 ; --------------------------------------------------------------------------------------
0498 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0xa8f8,0x0000,0x0001,0x0000
049e 0001 0020  |    |		.XXX[0x4]
04a0 0000 03b9  |    |
04a2 0000 0000  |    |		.BLANK	0000[0x4]
04a6 42f8 0000  |B   |		.XXX[0x4]
04a8 0150 4000  | P@ |
04aa 0000 0000  |    |		.BLANK	0000[0x7]
04b1 0001 0d20  |    |		.XXX[0x5]
04b3 2380 0527  |#  '|
04b5 8000       |    |
04b6 0000 0000  |    |		.BLANK	0000[0x5]
04bb 0106 0022  |   "|		.XXX[0x1d]
04bd 0005 2d80  |  - |
04bf 0000 0000  |    |
04c1 0000 0044  |   D|
04c3 8000 0000  |    |
04c5 0000 0000  |    |
04c7 0407 0084  |    |
04c9 0014 cc00  |    |
04cb 0000 4fc8  |  O |
04cd 0910 0000  |    |
04cf 0000 0004  |    |
04d1 2180 0000  |!   |
04d3 0e82 0000  |    |
04d5 003c b808  | <  |
04d7 1000       |    |
04d8 0000 0000  |    |		.BLANK	0000[0x7]
04df 5528 0000  |U(  |		.XXX[0xd]
04e1 0000 0000  |    |
04e3 0005 1880  |    |
04e5 0000 0000  |    |
04e7 0000 003c  |   <|
04e9 1000 0001  |    |
04eb 2b00       |+   |
04ec 0000 0000  |    |		.BLANK	0000[0x8]
04f4 0109 a000  |    |		.XXX[0xd]
04f6 0004 0c00  |    |
04f8 8300 0000  |    |
04fa 0000 0049  |   I|
04fc f000 0000  |    |
04fe 0000 0000  |    |
0500 03e4       |    |
0501 0000 0000  |    |		.BLANK	0000[0x4]
0505 3d80 0000  |=   |		.XXX[0x14]
0507 013c 0000  | <  |
0509 0003 9b80  |    |
050b 0000 0000  |    |
050d 0000 0039  |   9|
050f 5008 0000  |P   |
0511 0000 0000  |    |
0513 03b4 0000  |    |
0515 000e ae00  |    |
0517 0000 3a68  |  :h|
0519 0000 0000  |    |		.BLANK	0000[0x8]
0521 004c 1800  | L  |		.XXX[0x2]
0523 0000 0000  |    |		.BLANK	0000[0xc]
052f 0003 fb80  |    |		.XXX[0x7]
0531 8b00 0000  |    |
0533 0000 0048  |   H|
0535 9000       |    |
0536 0000 0000  |    |		.BLANK	0000[0xf]
0545 1164 0218  | d  |		.XXX[0x5]
0547 003f 0008  | ?  |
0549 2000       |    |
054a 0000 0000  |    |		.BLANK	0000[0x7]
0551 54d0 0000  |T   |		.XXX[0x6]
0553 0000 0000  |    |
0555 0004 c980  |    |
0557 0000 0000  |    |		.BLANK	0000[0x5]
055c 0001 0f20  |    |		.XXX[0x7]
055e 21c0 0000  |!   |
0560 0000 0013  |    |
0562 a200       |    |
0563 0000 0000  |    |		.BLANK	0000[0x5]
0568 0004 e300  |    |		.XXX[0x73]
056a 0000 0000  |    |
056c 0000 003f  |   ?|
056e 5008 9001  |P   |
0570 5820 0000  |X   |
0572 0000 0000  |    |
0574 000f a400  |    |
0576 0000 4130  |  A0|
0578 0000 0113  |    |
057a 4000 0004  |@   |
057c 7a00 0000  |z   |
057e 11fc 0000  |    |
0580 0049 3800  | I8 |
0582 0001 2ce0  |  , |
0584 23c0 04d5  |#   |
0586 8000 0013  |    |
0588 7000 0000  |p   |
058a 4ea0 0000  |N   |
058c 013d c000  | =  |
058e 0005 0a80  |    |
0590 0000 144c  |   L|
0592 0000 0052  |   R|
0594 2009 0001  |    |
0596 4ee0 0000  |N   |
0598 055b 0000  | [  |
059a 0015 a800  |    |
059c 0000 56f8  |  V |
059e 0000 2854  |  (T|
05a0 203a 2044  | : D|
05a2 6961 6e61  |iana|
05a4 2e54 7265  |.Tre|
05a6 6529 2072  |e) r|
05a8 6574 7572  |etur|
05aa 6e20 426f  |n Bo|
05ac 6f6c 6561  |olea|
05ae 6e3b 4300  |n;C |
05b0 4c20 2020  |L   |
05b2 2020 2020  |    |
05b4 2066 756e  | fun|
05b6 6374 696f  |ctio|
05b8 6e20 4765  |n Ge|
05ba 745f 456c  |t_El|
05bc 6162 5f41  |ab_A|
05be 736d 5f46  |sm_F|
05c0 696c 6520  |ile |
05c2 2854 203a  |(T :|
05c4 2044 6961  | Dia|
05c6 6e61 2e54  |na.T|
05c8 7265 6529  |ree)|
05ca 2072 6574  | ret|
05cc 7572 6e20  |urn |
05ce 4469 7265  |Dire|
05d0 6374 6f72  |ctor|
05d2 792e 4f62  |y.Ob|
05d4 6a65 6374  |ject|
05d6 3b4c 0000  |;L  |
05d8 0000 0000  |    |
05da 0013       |    |
05db 2020 2020  |    |		.BLANK	2020[0x4]
05df 2d2d 2043  |-- C|		.XXX[0x7]
05e1 475f 4c45  |G_LE|
05e3 5645 4c13  |VEL |
05e5 0033       | 3  |
05e6 2020 2020  |    |		.BLANK	2020[0x4]
05ea 2d2d 2054  |-- T|		.XXX[0x16]
05ec 6865 2063  |he c|
05ee 6f6e 7472  |ontr|
05f0 6f6c 2073  |ol s|
05f2 7461 636b  |tack|
05f4 206c 6578  | lex|
05f6 6963 616c  |ical|
05f8 206c 6576  | lev|
05fa 656c 2066  |el f|
05fc 6f72 2061  |or a|
05fe 6e20 6f33  |n o3|