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

⟦790bf69b6⟧

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

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 7011 4887  |p H |		.XXX[0x83]
04a0 0257 e403  | W  |
04a2 e010 1811  |    |
04a4 780b e403  |x   |
04a6 e011 180f  |    |
04a8 e402 00eb  |    |
04aa 1865 00eb  | e  |
04ac 1813 7002  |  p |
04ae 4887 0257  |H  W|
04b0 00d1 e403  |    |
04b2 00eb 1813  |    |
04b4 700d e403  |p   |
04b6 e012 1815  |    |
04b8 00db 6808  |  h |
04ba 00da e403  |    |
04bc e00d 1832  |   2|
04be 00d9 e403  |    |
04c0 e00d 1836  |   6|
04c2 00c9 e402  |    |
04c4 00eb 1864  |   d|
04c6 6f9a 4502  |o E |
04c8 06cb 0004  |    |
04ca 0001 00da  |    |
04cc e001 1812  |    |
04ce 6806 00da  |h   |
04d0 00eb 1888  |    |
04d2 e00b 1818  |    |
04d4 4401 00eb  |D   |
04d6 1812 4401  |  D |
04d8 06e9 0004  |    |
04da 0004 00ec  |    |
04dc 4801 e5ff  |H   |
04de 00eb 1888  |    |
04e0 00eb 1859  |   Y|
04e2 4976 00eb  |Iv  |
04e4 0098 1815  |    |
04e6 0031 00ec  | 1  |
04e8 00ec 00cf  |    |
04ea 0007 00db  |    |
04ec 00eb 1813  |    |
04ee 702f 00db  |p/  |
04f0 4902 00eb  |I   |
04f2 0096 e007  |    |
04f4 1823 0032  | # 2|
04f6 00db 00eb  |    |
04f8 18ff 0033  |   3|
04fa 00da 00eb  |    |
04fc 1813 700d  |  p |
04fe 00d9 00eb  |    |
0500 1814 0f6b  |   k|
0502 6806 00da  |h   |
0504 e00d 1819  |    |
0506 700f 4801  |p H |
0508 4401 4801  |D H |
050a 4401 00d9  |D   |
050c e007 1828  |   (|
050e 7005 00d9  |p   |
0510 00eb 1814  |    |
0512 0f73 6802  | sh |
0514 4801 4401  |H D |
0516 00db 4976  |  Iv|
0518 00eb 0098  |    |
051a 1816 a402  |    |
051c 00c9 7fcd  |    |
051e 00ce 4800  |  H |
0520 4401       |D   |
0521 0000 0000  |    |		.BLANK	0000[0x7]
0528 072b 0004  | +  |		.XXX[0x62]
052a 0001 00da  |    |
052c e001 180f  |    |
052e 6804 00da  |h   |
0530 e007 1814  |    |
0532 4401 4800  |D H |
0534 4401 0000  |D   |
0536 0000 0000  |    |
0538 073b 0004  | ;  |
053a 0001 00da  |    |
053c e001 180f  |    |
053e 6805 00da  |h   |
0540 e007 1814  |    |
0542 0f00 4401  |  D |
0544 4800 4401  |H D |
0546 0000 0000  |    |
0548 0758 0004  | X  |
054a 0003 00ec  |    |
054c 4801 e5ff  |H   |
054e 00eb 1888  |    |
0550 00eb 1859  |   Y|
0552 4976 00eb  |Iv  |
0554 0098 1815  |    |
0556 0031 00ec  | 1  |
0558 00cf 0007  |    |
055a 00da 00eb  |    |
055c 1813 7029  |  p)|
055e 00da 4902  |  I |
0560 00eb 0096  |    |
0562 0032 e5fe  | 2  |
0564 680b 00d9  |h   |
0566 e001 180f  |    |
0568 7005 4801  |p H |
056a 00da e007  |    |
056c 182b 6811  | +h |
056e 4801 4402  |H D |
0570 00d9 822a  |   *|
0572 700a 00d9  |p   |
0574 822b 7005  | +p |
0576 4800 00da  |H   |
0578 e007 182b  |   +|
057a 7801 4800  |x H |
057c 6802 4801  |h H |
057e 4402 00da  |D   |
0580 4976 00eb  |Iv  |
0582 0098 1816  |    |
0584 0033 00c9  | 3  |
0586 7fd3 00ce  |    |
0588 4800 4402  |H D |
058a 0000 0000  |    |		.BLANK	0000[0x6]
0590 0793 0004  |    |		.XXX[0x69]
0592 0001 00db  |    |
0594 00db 822c  |   ,|
0596 7006 00da  |p   |
0598 8228 00eb  | (  |
059a 1813 0f00  |    |
059c 4402 4801  |D H |
059e 4402 0000  |D   |
05a0 07ac 0004  |    |
05a2 0002 00ee  |    |
05a4 00db 00eb  |    |
05a6 18ea 00eb  |    |
05a8 1888 e00b  |    |
05aa 1815 0031  |   1|
05ac 00cf 7811  |  x |
05ae e5fe 00da  |    |
05b0 00eb 1859  |   Y|
05b2 00eb 18de  |    |
05b4 822d 6802  | -h |
05b6 4801 4402  |H D |
05b8 00d9 00eb  |    |
05ba 185a e00b  | Z  |
05bc 1815 0032  |   2|
05be 00c9 00d9  |    |
05c0 00eb 1858  |   X|
05c2 6feb 00ce  |o   |
05c4 4800 4402  |H D |
05c6 0000 0000  |    |
05c8 07d8 0004  |    |
05ca 0003 00ec  |    |
05cc 4801 e5ff  |H   |
05ce 00eb 1888  |    |
05d0 00eb 1859  |   Y|
05d2 4976 00eb  |Iv  |
05d4 0098 1815  |    |
05d6 0031 00ec  | 1  |
05d8 00cf 0007  |    |
05da 00da 00eb  |    |
05dc 1813 7018  |  p |
05de 00da 4902  |  I |
05e0 00eb 0096  |    |
05e2 0032 00d9  | 2  |
05e4 e007 1824  |   $|
05e6 0f73 7004  | sp |
05e8 00d9 e007  |    |
05ea 182e 6802  | .h |
05ec 4801 4401  |H D |
05ee 00da 4976  |  Iv|
05f0 00eb 0098  |    |
05f2 1816 0033  |   3|
05f4 00c9 7fe4  |    |
05f6 00ce 4800  |  H |
05f8 4401       |D   |
05f9 0000 0000  |    |		.BLANK	0000[0x7]