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

⟦3e64f8e98⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 04b8       |    |		.CONST	0x04b8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c0       |    |		.CONST	0x00c0								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003c       | <  |		.CONST	0x003c								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 0007       |    |		Action	Break_Optional
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 0093 0000  |    |		push_full_address	0x0
0011 60ca       |`   |		Indirect_Literal	Discrete,0xdc,{0x80000000, 0x00010000}
0012 0273       | s  |		Execute	Discrete,Plus
0013 e20d       |    |		Load	0x1,0xd
0014 60c3       |`   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x0000ffff}
0015 0279       | y  |		Execute	Discrete,And
0016 0273       | s  |		Execute	Discrete,Plus
0017 0129       | )  |		Execute	Any,Make_Visible
0018 0093 0000  |    |		push_full_address	0x0
001a 60b9       |`   |		Indirect_Literal	Discrete,0xd4,{0x80000000, 0x00020000}
001b 0273       | s  |		Execute	Discrete,Plus
001c e20d       |    |		Load	0x1,0xd
001d 60ba       |`   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x0000ffff}
001e 0279       | y  |		Execute	Discrete,And
001f 0273       | s  |		Execute	Discrete,Plus
0020 0129       | )  |		Execute	Any,Make_Visible
0021 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0023 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0025 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0027 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0029 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
002b 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
002d 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
002f 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0031 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0033 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0035 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0037 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0039 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
003b 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
003d 4802       |H   |		Short_Literal	0x2
003e 032b       | +  |		Declare_Type	Record,Incomplete,Visible
003f 4804       |H   |		Short_Literal	0x4
0040 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0041 00d8       |    |		Load_Top	At_Offset_0
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 4818       |H   |		Short_Literal	0x18
0044 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0045 00da       |    |		Load_Top	At_Offset_2
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 4818       |H   |		Short_Literal	0x18
0048 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0049 00d8       |    |		Load_Top	At_Offset_0
004a 0129       | )  |		Execute	Any,Make_Visible
004b c211       |    |		Store	0x1,0x11
004c 00d8       |    |		Load_Top	At_Offset_0
004d 00da       |    |		Load_Top	At_Offset_2
004e e002       |    |		Load	0x0,0x2
004f 029f 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Call
0051 4803       |H   |		Short_Literal	0x3
0052 032e       | .  |		Declare_Type	Record,Defined,Visible
0053 00d8       |    |		Load_Top	At_Offset_0
0054 0322       | "  |		Declare_Variable	Record
0055 00da       |    |		Load_Top	At_Offset_2
0056 00d9       |    |		Load_Top	At_Offset_1
0057 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0058 00db       |    |		Load_Top	At_Offset_3
0059 00d9       |    |		Load_Top	At_Offset_1
005a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
005b 4800       |H   |		Short_Literal	0x0
005c 00d9       |    |		Load_Top	At_Offset_1
005d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
005e 0129       | )  |		Execute	Any,Make_Visible
005f c212       |    |		Store	0x1,0x12
0060 00bf       |    |		Action	Accept_Activation
0061 e002       |    |		Load	0x0,0x2
0062 0266       | f  |		Execute	Discrete,Bounds
0063 e002       |    |		Load	0x0,0x2
0064 02a0       |    |		Declare_Subprogram	Null_Subprogram
0065 4801       |H   |		Short_Literal	0x1
0066 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0067 e003       |    |		Load	0x0,0x3
0068 02a0       |    |		Declare_Subprogram	Null_Subprogram
0069 4818       |H   |		Short_Literal	0x18
006a 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
006b e002       |    |		Load	0x0,0x2
006c 00d9       |    |		Load_Top	At_Offset_1
006d e20e       |    |		Load	0x1,0xe
006e e225       | %  |		Load	0x1,0x25
006f 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
0071 e224       | $  |		Load	0x1,0x24
0072 0326       | &  |		Complete_Type	Record,By_Defining
0073 e225       | %  |		Load	0x1,0x25
0074 03c4       |    |		Complete_Type	Access,By_Component_Completion
0075 4800       |H   |		Short_Literal	0x0
0076 e20f       |    |		Load	0x1,0xf
0077 0aff       |    |		Execute_Immediate	Plus,-0x1
0078 e002       |    |		Load	0x0,0x2
0079 025d       | ]  |		Execute	Discrete,Bounds_Check
007a e225       | %  |		Load	0x1,0x25
007b 02a0       |    |		Declare_Subprogram	Null_Subprogram
007c 4801       |H   |		Short_Literal	0x1
007d 035d       | ]  |		Declare_Type	Array,Defined
007e e002       |    |		Load	0x0,0x2
007f 00d9       |    |		Load_Top	At_Offset_1
0080 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
0082 e223       | #  |		Load	0x1,0x23
0083 0326       | &  |		Complete_Type	Record,By_Defining
0084 e226       | &  |		Load	0x1,0x26
0085 03c4       |    |		Complete_Type	Access,By_Component_Completion
0086 a004       |    |		Store_Unchecked	0x0,0x4
0087 00c6       |    |		Action	Check_Subprogram_Elaborated
0088 e003       |    |		Load	0x0,0x3
0089 00da       |    |		Load_Top	At_Offset_2
008a e005       |    |		Load	0x0,0x5
008b e006       |    |		Load	0x0,0x6
008c 4800       |H   |		Short_Literal	0x0
008d 0007       |    |		Action	Break_Optional
008e a004       |    |		Store_Unchecked	0x0,0x4
008f 00c6       |    |		Action	Check_Subprogram_Elaborated
0090 e224       | $  |		Load	0x1,0x24
0091 e225       | %  |		Load	0x1,0x25
0092 e007       |    |		Load	0x0,0x7
0093 e008       |    |		Load	0x0,0x8
0094 4800       |H   |		Short_Literal	0x0
0095 0007       |    |		Action	Break_Optional
0096 a004       |    |		Store_Unchecked	0x0,0x4
0097 00c6       |    |		Action	Check_Subprogram_Elaborated
0098 e223       | #  |		Load	0x1,0x23
0099 e226       | &  |		Load	0x1,0x26
009a e009       |    |		Load	0x0,0x9
009b e00a       |    |		Load	0x0,0xa
009c 4800       |H   |		Short_Literal	0x0
009d 0007       |    |		Action	Break_Optional
009e 029d 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call
00a0 029d 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call
00a2 029d 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call
00a4 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0			BODY_0008:
00c0 00bc       |    |		Action	Signal_Activated
00c1 00bb       |    |		Action	Signal_Completion
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e226       | &  |		Load	0x1,0x26
00cc 03bc       |    |		Declare_Variable	Access,By_Allocation
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce 0227       | '  |		Execute	Access,All_Reference
00cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d0 003b       | ;  |		Store_Top	Access,At_Offset_3
00d1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d2 0000 0000  |    |		.XXX[0x2]
00d4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e7       |    |		.CONST	0x00e7								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0003       |    |		.CONST	0x0003								; Number of locals
00e3			INIT_00e0:
00e3 e225       | %  |		Load	0x1,0x25
00e4 0007       |    |		Action	Break_Optional
00e5 e225       | %  |		Load	0x1,0x25
00e6 0007       |    |		Action	Break_Optional
00e7			BODY_00e0:
00e7 e5ff       |    |		Load	0x2,-0x1
00e8 0227       | '  |		Execute	Access,All_Reference
00e9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ea 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00eb 682d       |h-  |		Jump_Zero	0x119
00ec 00cf       |    |		Action	Mark_Auxiliary
00ed e5ff       |    |		Load	0x2,-0x1
00ee 0227       | '  |		Execute	Access,All_Reference
00ef 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f0 01d9       |    |		Execute	Vector,Reverse_Bounds
00f1 0263       | c  |		Execute	Discrete,Above_Bound
00f2 7025       |p%  |		Jump_Nonzero	0x118
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 e5ff       |    |		Load	0x2,-0x1
00f5 0227       | '  |		Execute	Access,All_Reference
00f6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f7 01d7       |    |		Execute	Vector,Field_Read
00f8 a402       |    |		Store_Unchecked	0x2,0x2
00f9 00cf       |    |		Action	Mark_Auxiliary
00fa 7818       |x   |		Jump	0x113
00fb e402       |    |		Load	0x2,0x2
00fc 0227       | '  |		Execute	Access,All_Reference
00fd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00fe a403       |    |		Store_Unchecked	0x2,0x3
00ff e402       |    |		Load	0x2,0x2
0100 0229       | )  |		Execute	Access,All_Read
0101 00d8       |    |		Load_Top	At_Offset_0
0102 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0103 e22b       | +  |		Load	0x1,0x2b
0104 e22c       | ,  |		Load	0x1,0x2c
0105 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0106 8004       |    |		Call	0x0,0x4
0107 00d9       |    |		Load_Top	At_Offset_1
0108 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0109 00d1       |    |		Pop_Control	Pop_Count_1
010a e402       |    |		Load	0x2,0x2
010b e230       | 0  |		Load	0x1,0x30
010c e231       | 1  |		Load	0x1,0x31
010d 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
010e 8004       |    |		Call	0x0,0x4
010f c402       |    |		Store	0x2,0x2
0110 e403       |    |		Load	0x2,0x3
0111 a402       |    |		Store_Unchecked	0x2,0x2
0112 00c9       |    |		Action	Pop_Auxiliary_Loop
0113 e402       |    |		Load	0x2,0x2
0114 77e6       |w   |		Jump_Nonzero	0xfb
0115 00ce       |    |		Action	Pop_Auxiliary
0116 00c8       |    |		Action	Pop_Auxiliary_Range
0117 3fdb       |?   |		Loop_Increasing	0xf3
0118 00ce       |    |		Action	Pop_Auxiliary
0119 e5ff       |    |		Load	0x2,-0x1
011a e235       | 5  |		Load	0x1,0x35
011b e236       | 6  |		Load	0x1,0x36
011c 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
011d 8004       |    |		Call	0x0,0x4
011e c5ff       |    |		Store	0x2,-0x1
011f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 0227       | '  |		Execute	Access,All_Reference
0125 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0126 0f00       |    |		Execute_Immediate	Equal,0x0
0127 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c 0227       | '  |		Execute	Access,All_Reference
012d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0141       | A  |		.CONST	0x0141								; 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 e002       |    |		Load	0x0,0x2
0136 03f1       |    |		Declare_Variable	Discrete,With_Value
0137 e225       | %  |		Load	0x1,0x25
0138 0007       |    |		Action	Break_Optional
0139 00d9       |    |		Load_Top	At_Offset_1
013a e20f       |    |		Load	0x1,0xf
013b 026f       | o  |		Execute	Discrete,Remainder
013c e5ff       |    |		Load	0x2,-0x1
013d 0227       | '  |		Execute	Access,All_Reference
013e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
013f 01d7       |    |		Execute	Vector,Field_Read
0140 0007       |    |		Action	Break_Optional
0141			BODY_0130:
0141 00d8       |    |		Load_Top	At_Offset_0
0142 e225       | %  |		Load	0x1,0x25
0143 e5fe       |    |		Load	0x2,-0x2
0144 e402       |    |		Load	0x2,0x2
0145 823c       | <  |		Call	0x1,0x3c
0146 003b       | ;  |		Store_Top	Access,At_Offset_3
0147 0039       | 9  |		Store_Top	Access,At_Offset_1
0148 00d8       |    |		Load_Top	At_Offset_0
0149 6807       |h   |		Jump_Zero	0x151
014a 00d8       |    |		Load_Top	At_Offset_0
014b 0227       | '  |		Execute	Access,All_Reference
014c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
014d c5fd       |    |		Store	0x2,-0x3
014e 4801       |H   |		Short_Literal	0x1
014f a5fc       |    |		Store_Unchecked	0x2,-0x4
0150 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0151 4800       |H   |		Short_Literal	0x0
0152 a5fc       |    |		Store_Unchecked	0x2,-0x4
0153 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0169       | i  |		.CONST	0x0169								; 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 e002       |    |		Load	0x0,0x2
015e 03f1       |    |		Declare_Variable	Discrete,With_Value
015f e225       | %  |		Load	0x1,0x25
0160 0007       |    |		Action	Break_Optional
0161 00d9       |    |		Load_Top	At_Offset_1
0162 e20f       |    |		Load	0x1,0xf
0163 026f       | o  |		Execute	Discrete,Remainder
0164 e5ff       |    |		Load	0x2,-0x1
0165 0227       | '  |		Execute	Access,All_Reference
0166 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0167 01d7       |    |		Execute	Vector,Field_Read
0168 0007       |    |		Action	Break_Optional
0169			BODY_0158:
0169 00d8       |    |		Load_Top	At_Offset_0
016a e225       | %  |		Load	0x1,0x25
016b e5fe       |    |		Load	0x2,-0x2
016c e402       |    |		Load	0x2,0x2
016d 823c       | <  |		Call	0x1,0x3c
016e 003b       | ;  |		Store_Top	Access,At_Offset_3
016f 0039       | 9  |		Store_Top	Access,At_Offset_1
0170 00d8       |    |		Load_Top	At_Offset_0
0171 680b       |h   |		Jump_Zero	0x17d
0172 00d8       |    |		Load_Top	At_Offset_0
0173 0227       | '  |		Execute	Access,All_Reference
0174 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0175 00d8       |    |		Load_Top	At_Offset_0
0176 0120       |    |		Execute	Any,Is_Value
0177 7002       |p   |		Jump_Nonzero	0x17a
0178 00d8       |    |		Load_Top	At_Offset_0
0179 011e       |    |		Execute	Any,Convert
017a e20e       |    |		Load	0x1,0xe
017b 0119       |    |		Execute	Any,Check_In_Formal_Type
017c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017d e214       |    |		Load	0x1,0x14
017e 0257       | W  |		Execute	Discrete,Raise
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0191       |    |		.CONST	0x0191								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0004       |    |		.CONST	0x0004								; Number of locals
0183			INIT_0180:
0183 00db       |    |		Load_Top	At_Offset_3
0184 823a       | :  |		Call	0x1,0x3a
0185 e002       |    |		Load	0x0,0x2
0186 03f1       |    |		Declare_Variable	Discrete,With_Value
0187 e225       | %  |		Load	0x1,0x25
0188 0007       |    |		Action	Break_Optional
0189 00d9       |    |		Load_Top	At_Offset_1
018a e20f       |    |		Load	0x1,0xf
018b 026f       | o  |		Execute	Discrete,Remainder
018c e5ff       |    |		Load	0x2,-0x1
018d 0227       | '  |		Execute	Access,All_Reference
018e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
018f 01d7       |    |		Execute	Vector,Field_Read
0190 0007       |    |		Action	Break_Optional
0191			BODY_0180:
0191 00d8       |    |		Load_Top	At_Offset_0
0192 e225       | %  |		Load	0x1,0x25
0193 e5fe       |    |		Load	0x2,-0x2
0194 e402       |    |		Load	0x2,0x2
0195 823c       | <  |		Call	0x1,0x3c
0196 003b       | ;  |		Store_Top	Access,At_Offset_3
0197 0039       | 9  |		Store_Top	Access,At_Offset_1
0198 00d8       |    |		Load_Top	At_Offset_0
0199 6809       |h   |		Jump_Zero	0x1a3
019a e5fc       |    |		Load	0x2,-0x4
019b 6805       |h   |		Jump_Zero	0x1a1
019c e5fd       |    |		Load	0x2,-0x3
019d 00d9       |    |		Load_Top	At_Offset_1
019e 0227       | '  |		Execute	Access,All_Reference
019f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a1 e213       |    |		Load	0x1,0x13
01a2 0257       | W  |		Execute	Discrete,Raise
01a3 e224       | $  |		Load	0x1,0x24
01a4 0322       | "  |		Declare_Variable	Record
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 00d9       |    |		Load_Top	At_Offset_1
01a7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a8 e5fe       |    |		Load	0x2,-0x2
01a9 e229       | )  |		Load	0x1,0x29
01aa 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01ad e5fd       |    |		Load	0x2,-0x3
01ae e224       | $  |		Load	0x1,0x24
01af 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
01b0 0119       |    |		Execute	Any,Check_In_Formal_Type
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b3 e225       | %  |		Load	0x1,0x25
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01b6 e225       | %  |		Load	0x1,0x25
01b7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01b8 0039       | 9  |		Store_Top	Access,At_Offset_1
01b9 00da       |    |		Load_Top	At_Offset_2
01ba e20f       |    |		Load	0x1,0xf
01bb 026f       | o  |		Execute	Discrete,Remainder
01bc 005b       | [  |		Store_Top	Discrete,At_Offset_3
01bd 00da       |    |		Load_Top	At_Offset_2
01be e5ff       |    |		Load	0x2,-0x1
01bf 0227       | '  |		Execute	Access,All_Reference
01c0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01c1 01d7       |    |		Execute	Vector,Field_Read
01c2 00d9       |    |		Load_Top	At_Offset_1
01c3 0227       | '  |		Execute	Access,All_Reference
01c4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 e5ff       |    |		Load	0x2,-0x1
01c8 0227       | '  |		Execute	Access,All_Reference
01c9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01ca 01d6       |    |		Execute	Vector,Field_Write
01cb e5ff       |    |		Load	0x2,-0x1
01cc 0227       | '  |		Execute	Access,All_Reference
01cd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ce 0a01       |    |		Execute_Immediate	Plus,0x1
01cf e5ff       |    |		Load	0x2,-0x1
01d0 0227       | '  |		Execute	Access,All_Reference
01d1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01d2 e210       |    |		Load	0x1,0x10
01d3 7019       |p   |		Jump_Nonzero	0x1ed
01d4 00cf       |    |		Action	Mark_Auxiliary
01d5 00d9       |    |		Load_Top	At_Offset_1
01d6 0227       | '  |		Execute	Access,All_Reference
01d7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d8 0227       | '  |		Execute	Access,All_Reference
01d9 01d9       |    |		Execute	Vector,Reverse_Bounds
01da 0263       | c  |		Execute	Discrete,Above_Bound
01db 7010       |p   |		Jump_Nonzero	0x1ec
01dc 00d8       |    |		Load_Top	At_Offset_0
01dd e404       |    |		Load	0x2,0x4
01de 0227       | '  |		Execute	Access,All_Reference
01df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01e0 0227       | '  |		Execute	Access,All_Reference
01e1 01d7       |    |		Execute	Vector,Field_Read
01e2 e00b       |    |		Load	0x0,0xb
01e3 01d7       |    |		Execute	Vector,Field_Read
01e4 00d9       |    |		Load_Top	At_Offset_1
01e5 e404       |    |		Load	0x2,0x4
01e6 0227       | '  |		Execute	Access,All_Reference
01e7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01e8 0227       | '  |		Execute	Access,All_Reference
01e9 01d6       |    |		Execute	Vector,Field_Write
01ea 00c8       |    |		Action	Pop_Auxiliary_Range
01eb 3ff0       |?   |		Loop_Increasing	0x1dc
01ec 00ce       |    |		Action	Pop_Auxiliary
01ed 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0204       |    |		.CONST	0x0204								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0005       |    |		.CONST	0x0005								; Number of locals
01f3			INIT_01f0:
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 823a       | :  |		Call	0x1,0x3a
01f5 e002       |    |		Load	0x0,0x2
01f6 03f1       |    |		Declare_Variable	Discrete,With_Value
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 e20f       |    |		Load	0x1,0xf
01f9 026f       | o  |		Execute	Discrete,Remainder
01fa e002       |    |		Load	0x0,0x2
01fb 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01fc e225       | %  |		Load	0x1,0x25
01fd 0007       |    |		Action	Break_Optional
01fe 00d9       |    |		Load_Top	At_Offset_1
01ff e5ff       |    |		Load	0x2,-0x1
0200 0227       | '  |		Execute	Access,All_Reference
0201 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0202 01d7       |    |		Execute	Vector,Field_Read
0203 0007       |    |		Action	Break_Optional
0204			BODY_01f0:
0204 00d8       |    |		Load_Top	At_Offset_0
0205 e225       | %  |		Load	0x1,0x25
0206 e5fe       |    |		Load	0x2,-0x2
0207 e402       |    |		Load	0x2,0x2
0208 823c       | <  |		Call	0x1,0x3c
0209 003b       | ;  |		Store_Top	Access,At_Offset_3
020a 0039       | 9  |		Store_Top	Access,At_Offset_1
020b 00d8       |    |		Load_Top	At_Offset_0
020c 682a       |h*  |		Jump_Zero	0x237
020d 00d9       |    |		Load_Top	At_Offset_1
020e 7009       |p   |		Jump_Nonzero	0x218
020f 00d8       |    |		Load_Top	At_Offset_0
0210 0227       | '  |		Execute	Access,All_Reference
0211 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0212 00db       |    |		Load_Top	At_Offset_3
0213 e5ff       |    |		Load	0x2,-0x1
0214 0227       | '  |		Execute	Access,All_Reference
0215 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0216 01d6       |    |		Execute	Vector,Field_Write
0217 7806       |x   |		Jump	0x21e
0218 00d8       |    |		Load_Top	At_Offset_0
0219 0227       | '  |		Execute	Access,All_Reference
021a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
021b 00da       |    |		Load_Top	At_Offset_2
021c 0227       | '  |		Execute	Access,All_Reference
021d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
021e 00d8       |    |		Load_Top	At_Offset_0
021f 0229       | )  |		Execute	Access,All_Read
0220 00d8       |    |		Load_Top	At_Offset_0
0221 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0222 e22b       | +  |		Load	0x1,0x2b
0223 e22c       | ,  |		Load	0x1,0x2c
0224 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0225 8004       |    |		Call	0x0,0x4
0226 00d9       |    |		Load_Top	At_Offset_1
0227 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0228 00d1       |    |		Pop_Control	Pop_Count_1
0229 00d8       |    |		Load_Top	At_Offset_0
022a e230       | 0  |		Load	0x1,0x30
022b e231       | 1  |		Load	0x1,0x31
022c 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
022d 8004       |    |		Call	0x0,0x4
022e 0039       | 9  |		Store_Top	Access,At_Offset_1
022f e5ff       |    |		Load	0x2,-0x1
0230 0227       | '  |		Execute	Access,All_Reference
0231 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0232 0aff       |    |		Execute_Immediate	Plus,-0x1
0233 e5ff       |    |		Load	0x2,-0x1
0234 0227       | '  |		Execute	Access,All_Reference
0235 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0236 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0237 e5fd       |    |		Load	0x2,-0x3
0238 6801       |h   |		Jump_Zero	0x23a
0239 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
023a e214       |    |		Load	0x1,0x14
023b 0257       | W  |		Execute	Discrete,Raise
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0254       | T  |		.CONST	0x0254								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0005       |    |		.CONST	0x0005								; Number of locals
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3
0244 823a       | :  |		Call	0x1,0x3a
0245 e002       |    |		Load	0x0,0x2
0246 03f1       |    |		Declare_Variable	Discrete,With_Value
0247 00d8       |    |		Load_Top	At_Offset_0
0248 e20f       |    |		Load	0x1,0xf
0249 026f       | o  |		Execute	Discrete,Remainder
024a e002       |    |		Load	0x0,0x2
024b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
024c e225       | %  |		Load	0x1,0x25
024d 0007       |    |		Action	Break_Optional
024e 00d9       |    |		Load_Top	At_Offset_1
024f e5ff       |    |		Load	0x2,-0x1
0250 0227       | '  |		Execute	Access,All_Reference
0251 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0252 01d7       |    |		Execute	Vector,Field_Read
0253 0007       |    |		Action	Break_Optional
0254			BODY_0240:
0254 00d8       |    |		Load_Top	At_Offset_0
0255 e225       | %  |		Load	0x1,0x25
0256 e5fe       |    |		Load	0x2,-0x2
0257 e402       |    |		Load	0x2,0x2
0258 823c       | <  |		Call	0x1,0x3c
0259 003b       | ;  |		Store_Top	Access,At_Offset_3
025a 0039       | 9  |		Store_Top	Access,At_Offset_1
025b 00d8       |    |		Load_Top	At_Offset_0
025c 6830       |h0  |		Jump_Zero	0x28d
025d 00d9       |    |		Load_Top	At_Offset_1
025e 7009       |p   |		Jump_Nonzero	0x268
025f 00d8       |    |		Load_Top	At_Offset_0
0260 0227       | '  |		Execute	Access,All_Reference
0261 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0262 00db       |    |		Load_Top	At_Offset_3
0263 e5ff       |    |		Load	0x2,-0x1
0264 0227       | '  |		Execute	Access,All_Reference
0265 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0266 01d6       |    |		Execute	Vector,Field_Write
0267 7806       |x   |		Jump	0x26e
0268 00d8       |    |		Load_Top	At_Offset_0
0269 0227       | '  |		Execute	Access,All_Reference
026a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
026b 00da       |    |		Load_Top	At_Offset_2
026c 0227       | '  |		Execute	Access,All_Reference
026d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
026e 00d8       |    |		Load_Top	At_Offset_0
026f 0227       | '  |		Execute	Access,All_Reference
0270 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0271 c5fd       |    |		Store	0x2,-0x3
0272 00d8       |    |		Load_Top	At_Offset_0
0273 0229       | )  |		Execute	Access,All_Read
0274 00d8       |    |		Load_Top	At_Offset_0
0275 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0276 e22b       | +  |		Load	0x1,0x2b
0277 e22c       | ,  |		Load	0x1,0x2c
0278 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0279 8004       |    |		Call	0x0,0x4
027a 00d9       |    |		Load_Top	At_Offset_1
027b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
027c 00d1       |    |		Pop_Control	Pop_Count_1
027d 00d8       |    |		Load_Top	At_Offset_0
027e e230       | 0  |		Load	0x1,0x30
027f e231       | 1  |		Load	0x1,0x31
0280 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0281 8004       |    |		Call	0x0,0x4
0282 0039       | 9  |		Store_Top	Access,At_Offset_1
0283 e5ff       |    |		Load	0x2,-0x1
0284 0227       | '  |		Execute	Access,All_Reference
0285 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0286 0aff       |    |		Execute_Immediate	Plus,-0x1
0287 e5ff       |    |		Load	0x2,-0x1
0288 0227       | '  |		Execute	Access,All_Reference
0289 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
028a 4801       |H   |		Short_Literal	0x1
028b a5fc       |    |		Store_Unchecked	0x2,-0x4
028c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028d 4800       |H   |		Short_Literal	0x0
028e a5fc       |    |		Store_Unchecked	0x2,-0x4
028f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 e5fe       |    |		Load	0x2,-0x2
0295 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0296 00cf       |    |		Action	Mark_Auxiliary
0297 e20f       |    |		Load	0x1,0xf
0298 0aff       |    |		Execute_Immediate	Plus,-0x1
0299 4800       |H   |		Short_Literal	0x0
029a 0263       | c  |		Execute	Discrete,Above_Bound
029b 7013       |p   |		Jump_Nonzero	0x2af
029c 00d8       |    |		Load_Top	At_Offset_0
029d e5ff       |    |		Load	0x2,-0x1
029e 0227       | '  |		Execute	Access,All_Reference
029f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02a0 01d7       |    |		Execute	Vector,Field_Read
02a1 680b       |h   |		Jump_Zero	0x2ad
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 e5ff       |    |		Load	0x2,-0x1
02a4 0227       | '  |		Execute	Access,All_Reference
02a5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02a6 01d7       |    |		Execute	Vector,Field_Read
02a7 e5fe       |    |		Load	0x2,-0x2
02a8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa e5fe       |    |		Load	0x2,-0x2
02ab 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ac 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ad 00c8       |    |		Action	Pop_Auxiliary_Range
02ae 3fed       |?   |		Loop_Increasing	0x29c
02af 00ce       |    |		Action	Pop_Auxiliary
02b0 e225       | %  |		Load	0x1,0x25
02b1 e5fe       |    |		Load	0x2,-0x2
02b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b3 e20f       |    |		Load	0x1,0xf
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02bd 6802       |h   |		Jump_Zero	0x2c0
02be 4800       |H   |		Short_Literal	0x0
02bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c0 4801       |H   |		Short_Literal	0x1
02c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cd 7002       |p   |		Jump_Nonzero	0x2d0
02ce e214       |    |		Load	0x1,0x14
02cf 0257       | W  |		Execute	Discrete,Raise
02d0 00da       |    |		Load_Top	At_Offset_2
02d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d2 0227       | '  |		Execute	Access,All_Reference
02d3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 0335       | 5  |		Declare_Variable	Array,Duplicate
02d6 00cd       |    |		Action	Spare6_Action
02d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 00da       |    |		Load_Top	At_Offset_2
02dc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02dd 7002       |p   |		Jump_Nonzero	0x2e0
02de e214       |    |		Load	0x1,0x14
02df 0257       | W  |		Execute	Discrete,Raise
02e0 00da       |    |		Load_Top	At_Offset_2
02e1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e2 0227       | '  |		Execute	Access,All_Reference
02e3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e4 00d8       |    |		Load_Top	At_Offset_0
02e5 0120       |    |		Execute	Any,Is_Value
02e6 7002       |p   |		Jump_Nonzero	0x2e9
02e7 00d8       |    |		Load_Top	At_Offset_0
02e8 011e       |    |		Execute	Any,Convert
02e9 e20e       |    |		Load	0x1,0xe
02ea 0119       |    |		Execute	Any,Check_In_Formal_Type
02eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f5       |    |		.CONST	0x02f5								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0002       |    |		.CONST	0x0002								; Number of locals
02f3			INIT_02f0:
02f3 e225       | %  |		Load	0x1,0x25
02f4 0007       |    |		Action	Break_Optional
02f5			BODY_02f0:
02f5 00db       |    |		Load_Top	At_Offset_3
02f6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f7 7002       |p   |		Jump_Nonzero	0x2fa
02f8 e214       |    |		Load	0x1,0x14
02f9 0257       | W  |		Execute	Discrete,Raise
02fa 00db       |    |		Load_Top	At_Offset_3
02fb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02fe 6807       |h   |		Jump_Zero	0x306
02ff 00db       |    |		Load_Top	At_Offset_3
0300 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0301 0227       | '  |		Execute	Access,All_Reference
0302 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0303 e5ff       |    |		Load	0x2,-0x1
0304 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0305 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0306 00cf       |    |		Action	Mark_Auxiliary
0307 e20f       |    |		Load	0x1,0xf
0308 0aff       |    |		Execute_Immediate	Plus,-0x1
0309 e5ff       |    |		Load	0x2,-0x1
030a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
030b 0a01       |    |		Execute_Immediate	Plus,0x1
030c 0263       | c  |		Execute	Discrete,Above_Bound
030d 7015       |p   |		Jump_Nonzero	0x323
030e 00d8       |    |		Load_Top	At_Offset_0
030f e5ff       |    |		Load	0x2,-0x1
0310 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0311 0227       | '  |		Execute	Access,All_Reference
0312 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0313 01d7       |    |		Execute	Vector,Field_Read
0314 680c       |h   |		Jump_Zero	0x321
0315 00d8       |    |		Load_Top	At_Offset_0
0316 e5ff       |    |		Load	0x2,-0x1
0317 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0318 0227       | '  |		Execute	Access,All_Reference
0319 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
031a 01d7       |    |		Execute	Vector,Field_Read
031b e5ff       |    |		Load	0x2,-0x1
031c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
031d 00d8       |    |		Load_Top	At_Offset_0
031e e5ff       |    |		Load	0x2,-0x1
031f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0320 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0321 00c8       |    |		Action	Pop_Auxiliary_Range
0322 3feb       |?   |		Loop_Increasing	0x30e
0323 00ce       |    |		Action	Pop_Auxiliary
0324 e225       | %  |		Load	0x1,0x25
0325 e5ff       |    |		Load	0x2,-0x1
0326 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0327 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 4601       |F   |		Jump_Case	0x2
032c 7801       |x   |		Jump	0x32e								; case 0x0
032d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
032e 4800       |H   |		Short_Literal	0x0
032f 00db       |    |		Load_Top	At_Offset_3
0330 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0331 00da       |    |		Load_Top	At_Offset_2
0332 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0333 0125       | %  |		Execute	Any,Set_Constraint
0334 00da       |    |		Load_Top	At_Offset_2
0335 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0336 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0337 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 4601       |F   |		Jump_Case	0x2
033c 7801       |x   |		Jump	0x33e								; case 0x0
033d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
033e 4800       |H   |		Short_Literal	0x0
033f 00db       |    |		Load_Top	At_Offset_3
0340 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0341 4800       |H   |		Short_Literal	0x0
0342 e20f       |    |		Load	0x1,0xf
0343 0aff       |    |		Execute_Immediate	Plus,-0x1
0344 e22a       | *  |		Load	0x1,0x2a
0345 0334       | 4  |		Declare_Variable	Array,With_Constraint
0346 00d8       |    |		Load_Top	At_Offset_0
0347 01dc       |    |		Execute	Vector,Last
0348 4800       |H   |		Short_Literal	0x0
0349 0263       | c  |		Execute	Discrete,Above_Bound
034a 7005       |p   |		Jump_Nonzero	0x350
034b e225       | %  |		Load	0x1,0x25
034c 00d9       |    |		Load_Top	At_Offset_1
034d e402       |    |		Load	0x2,0x2
034e 01d6       |    |		Execute	Vector,Field_Write
034f 3ffb       |?   |		Loop_Increasing	0x34b
0350 00db       |    |		Load_Top	At_Offset_3
0351 00d9       |    |		Load_Top	At_Offset_1
0352 00d9       |    |		Load_Top	At_Offset_1
0353 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0354 0119       |    |		Execute	Any,Check_In_Formal_Type
0355 00d1       |    |		Pop_Control	Pop_Count_1
0356 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0357 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0362       | b  |		.CONST	0x0362								; 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 035b       | [  |		Declare_Type	Array,Constrained
035f 0337       | 7  |		Declare_Variable	Array
0360 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
0362			BODY_0358:
0362 e210       |    |		Load	0x1,0x10
0363 680f       |h   |		Jump_Zero	0x373
0364 00cf       |    |		Action	Mark_Auxiliary
0365 e5ff       |    |		Load	0x2,-0x1
0366 01d9       |    |		Execute	Vector,Reverse_Bounds
0367 0263       | c  |		Execute	Discrete,Above_Bound
0368 7008       |p   |		Jump_Nonzero	0x371
0369 00d8       |    |		Load_Top	At_Offset_0
036a e5ff       |    |		Load	0x2,-0x1
036b 01d7       |    |		Execute	Vector,Field_Read
036c 00d9       |    |		Load_Top	At_Offset_1
036d e402       |    |		Load	0x2,0x2
036e 01d6       |    |		Execute	Vector,Field_Write
036f 00c8       |    |		Action	Pop_Auxiliary_Range
0370 3ff8       |?   |		Loop_Increasing	0x369
0371 00ce       |    |		Action	Pop_Auxiliary
0372 7810       |x   |		Jump	0x383
0373 00cf       |    |		Action	Mark_Auxiliary
0374 e5ff       |    |		Load	0x2,-0x1
0375 01d9       |    |		Execute	Vector,Reverse_Bounds
0376 0263       | c  |		Execute	Discrete,Above_Bound
0377 700a       |p   |		Jump_Nonzero	0x382
0378 00d8       |    |		Load_Top	At_Offset_0
0379 e5ff       |    |		Load	0x2,-0x1
037a 01d7       |    |		Execute	Vector,Field_Read
037b e00b       |    |		Load	0x0,0xb
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 3ff6       |?   |		Loop_Increasing	0x378
0382 00ce       |    |		Action	Pop_Auxiliary
0383 e5ff       |    |		Load	0x2,-0x1
0384 01db       |    |		Execute	Vector,Length
0385 00d8       |    |		Load_Top	At_Offset_0
0386 4800       |H   |		Short_Literal	0x0
0387 4804       |H   |		Short_Literal	0x4
0388 0262       | b  |		Execute	Discrete,In_Range
0389 6857       |hW  |		Jump_Zero	0x3e1
038a 0b00       |    |		Execute_Immediate	Case_Compare,0x0
038b 7024       |p$  |		Jump_Nonzero	0x3b0
038c 0b01       |    |		Execute_Immediate	Case_Compare,0x1
038d 7025       |p%  |		Jump_Nonzero	0x3b3
038e 0b02       |    |		Execute_Immediate	Case_Compare,0x2
038f 7029       |p)  |		Jump_Nonzero	0x3b9
0390 0f03       |    |		Execute_Immediate	Equal,0x3
0391 7038       |p8  |		Jump_Nonzero	0x3ca
0392 00d9       |    |		Load_Top	At_Offset_1
0393 01dd       |    |		Execute	Vector,First
0394 00da       |    |		Load_Top	At_Offset_2
0395 01d7       |    |		Execute	Vector,Field_Read
0396 0905       |    |		Execute_Immediate	Binary_Scale,0x5
0397 00da       |    |		Load_Top	At_Offset_2
0398 01dd       |    |		Execute	Vector,First
0399 0a01       |    |		Execute_Immediate	Plus,0x1
039a 00db       |    |		Load_Top	At_Offset_3
039b 01d7       |    |		Execute	Vector,Field_Read
039c 0906       |    |		Execute_Immediate	Binary_Scale,0x6
039d 0273       | s  |		Execute	Discrete,Plus
039e 00da       |    |		Load_Top	At_Offset_2
039f 01dd       |    |		Execute	Vector,First
03a0 0a02       |    |		Execute_Immediate	Plus,0x2
03a1 00db       |    |		Load_Top	At_Offset_3
03a2 01d7       |    |		Execute	Vector,Field_Read
03a3 0907       |    |		Execute_Immediate	Binary_Scale,0x7
03a4 0273       | s  |		Execute	Discrete,Plus
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 01dc       |    |		Execute	Vector,Last
03a7 00db       |    |		Load_Top	At_Offset_3
03a8 01d7       |    |		Execute	Vector,Field_Read
03a9 0273       | s  |		Execute	Discrete,Plus
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab e002       |    |		Load	0x0,0x2
03ac 0260       | `  |		Execute	Discrete,In_Type
03ad 7001       |p   |		Jump_Nonzero	0x3af
03ae 0801       |    |		Execute_Immediate	Raise,0x1
03af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b0 00d1       |    |		Pop_Control	Pop_Count_1
03b1 4800       |H   |		Short_Literal	0x0
03b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b3 00d1       |    |		Pop_Control	Pop_Count_1
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 01dd       |    |		Execute	Vector,First
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 01d7       |    |		Execute	Vector,Field_Read
03b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b9 00d1       |    |		Pop_Control	Pop_Count_1
03ba 00d9       |    |		Load_Top	At_Offset_1
03bb 01dd       |    |		Execute	Vector,First
03bc 00da       |    |		Load_Top	At_Offset_2
03bd 01d7       |    |		Execute	Vector,Field_Read
03be 0907       |    |		Execute_Immediate	Binary_Scale,0x7
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 01dc       |    |		Execute	Vector,Last
03c1 00db       |    |		Load_Top	At_Offset_3
03c2 01d7       |    |		Execute	Vector,Field_Read
03c3 0273       | s  |		Execute	Discrete,Plus
03c4 00d8       |    |		Load_Top	At_Offset_0
03c5 e002       |    |		Load	0x0,0x2
03c6 0260       | `  |		Execute	Discrete,In_Type
03c7 7001       |p   |		Jump_Nonzero	0x3c9
03c8 0801       |    |		Execute_Immediate	Raise,0x1
03c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ca 00d9       |    |		Load_Top	At_Offset_1
03cb 01dd       |    |		Execute	Vector,First
03cc 00da       |    |		Load_Top	At_Offset_2
03cd 01d7       |    |		Execute	Vector,Field_Read
03ce 0906       |    |		Execute_Immediate	Binary_Scale,0x6
03cf 00da       |    |		Load_Top	At_Offset_2
03d0 01dd       |    |		Execute	Vector,First
03d1 0a01       |    |		Execute_Immediate	Plus,0x1
03d2 00db       |    |		Load_Top	At_Offset_3
03d3 01d7       |    |		Execute	Vector,Field_Read
03d4 0907       |    |		Execute_Immediate	Binary_Scale,0x7
03d5 0273       | s  |		Execute	Discrete,Plus
03d6 00da       |    |		Load_Top	At_Offset_2
03d7 01dc       |    |		Execute	Vector,Last
03d8 00db       |    |		Load_Top	At_Offset_3
03d9 01d7       |    |		Execute	Vector,Field_Read
03da 0273       | s  |		Execute	Discrete,Plus
03db 00d8       |    |		Load_Top	At_Offset_0
03dc e002       |    |		Load	0x0,0x2
03dd 0260       | `  |		Execute	Discrete,In_Type
03de 7001       |p   |		Jump_Nonzero	0x3e0
03df 0801       |    |		Execute_Immediate	Raise,0x1
03e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e1 00d1       |    |		Pop_Control	Pop_Count_1
03e2 8403       |    |		Call	0x2,0x3
03e3 0831       | 1  |		Execute_Immediate	Raise,0x31
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f3       |    |		.CONST	0x03f3								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0003       |    |		.CONST	0x0003								; Number of locals
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec 01dd       |    |		Execute	Vector,First
03ed e002       |    |		Load	0x0,0x2
03ee 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03ef e5fe       |    |		Load	0x2,-0x2
03f0 01dd       |    |		Execute	Vector,First
03f1 e002       |    |		Load	0x0,0x2
03f2 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03f3			BODY_03e8:
03f3 e5ff       |    |		Load	0x2,-0x1
03f4 01db       |    |		Execute	Vector,Length
03f5 e5fe       |    |		Load	0x2,-0x2
03f6 01db       |    |		Execute	Vector,Length
03f7 027e       | ~  |		Execute	Discrete,Not_Equal
03f8 6802       |h   |		Jump_Zero	0x3fb
03f9 4800       |H   |		Short_Literal	0x0
03fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03fb 00cf       |    |		Action	Mark_Auxiliary
03fc e5ff       |    |		Load	0x2,-0x1
03fd 01db       |    |		Execute	Vector,Length
03fe 0aff       |    |		Execute_Immediate	Plus,-0x1
03ff 4800       |H   |		Short_Literal	0x0
0400 e002       |    |		Load	0x0,0x2
0401 025c       | \  |		QQucode_0x025c
0402 0263       | c  |		Execute	Discrete,Above_Bound
0403 7012       |p   |		Jump_Nonzero	0x416
0404 e402       |    |		Load	0x2,0x2
0405 00d9       |    |		Load_Top	At_Offset_1
0406 0273       | s  |		Execute	Discrete,Plus
0407 e5ff       |    |		Load	0x2,-0x1
0408 01d7       |    |		Execute	Vector,Field_Read
0409 e00b       |    |		Load	0x0,0xb
040a 01d7       |    |		Execute	Vector,Field_Read
040b e403       |    |		Load	0x2,0x3
040c 00da       |    |		Load_Top	At_Offset_2
040d 0273       | s  |		Execute	Discrete,Plus
040e e5fe       |    |		Load	0x2,-0x2
040f 01d7       |    |		Execute	Vector,Field_Read
0410 027e       | ~  |		Execute	Discrete,Not_Equal
0411 6802       |h   |		Jump_Zero	0x414
0412 4800       |H   |		Short_Literal	0x0
0413 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0414 00c8       |    |		Action	Pop_Auxiliary_Range
0415 3fee       |?   |		Loop_Increasing	0x404
0416 00ce       |    |		Action	Pop_Auxiliary
0417 4801       |H   |		Short_Literal	0x1
0418 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0419 0000 0000  |    |		.BLANK	0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0425       | %  |		.CONST	0x0425								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0002       |    |		.CONST	0x0002								; Number of locals
0423			INIT_0420:
0423 e5fc       |    |		Load	0x2,-0x4
0424 0007       |    |		Action	Break_Optional
0425			BODY_0420:
0425 e225       | %  |		Load	0x1,0x25
0426 a5fd       |    |		Store_Unchecked	0x2,-0x3
0427 00cf       |    |		Action	Mark_Auxiliary
0428 7823       |x#  |		Jump	0x44c
0429 00d9       |    |		Load_Top	At_Offset_1
042a 0227       | '  |		Execute	Access,All_Reference
042b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
042c e5ff       |    |		Load	0x2,-0x1
042d 027f       |    |		Execute	Discrete,Equal
042e 6816       |h   |		Jump_Zero	0x445
042f e210       |    |		Load	0x1,0x10
0430 680a       |h   |		Jump_Zero	0x43b
0431 00d9       |    |		Load_Top	At_Offset_1
0432 0227       | '  |		Execute	Access,All_Reference
0433 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0434 0227       | '  |		Execute	Access,All_Reference
0435 e5fe       |    |		Load	0x2,-0x2
0436 01df       |    |		Execute	Vector,Equal
0437 680d       |h   |		Jump_Zero	0x445
0438 00d9       |    |		Load_Top	At_Offset_1
0439 a5fc       |    |		Store_Unchecked	0x2,-0x4
043a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
043b 00d9       |    |		Load_Top	At_Offset_1
043c 0227       | '  |		Execute	Access,All_Reference
043d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
043e 0227       | '  |		Execute	Access,All_Reference
043f e5fe       |    |		Load	0x2,-0x2
0440 823b       | ;  |		Call	0x1,0x3b
0441 6803       |h   |		Jump_Zero	0x445
0442 00d9       |    |		Load_Top	At_Offset_1
0443 a5fc       |    |		Store_Unchecked	0x2,-0x4
0444 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0445 00d9       |    |		Load_Top	At_Offset_1
0446 a5fd       |    |		Store_Unchecked	0x2,-0x3
0447 00d9       |    |		Load_Top	At_Offset_1
0448 0227       | '  |		Execute	Access,All_Reference
0449 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
044a 003a       | :  |		Store_Top	Access,At_Offset_2
044b 00c9       |    |		Action	Pop_Auxiliary_Loop
044c 00d9       |    |		Load_Top	At_Offset_1
044d 77db       |w   |		Jump_Nonzero	0x429
044e 00ce       |    |		Action	Pop_Auxiliary
044f e225       | %  |		Load	0x1,0x25
0450 a5fc       |    |		Store_Unchecked	0x2,-0x4
0451 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0452 0000 0000  |    |		.BLANK	0000[0x6]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0461       | a  |		.CONST	0x0461								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0003       |    |		.CONST	0x0003								; Number of locals
045b			INIT_0458:
045b e402       |    |		Load	0x2,0x2
045c 01dd       |    |		Execute	Vector,First
045d e002       |    |		Load	0x0,0x2
045e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
045f e002       |    |		Load	0x0,0x2
0460 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0461			BODY_0458:
0461 00cf       |    |		Action	Mark_Auxiliary
0462 7824       |x$  |		Jump	0x487
0463 00d9       |    |		Load_Top	At_Offset_1
0464 603b       |`;  |		Indirect_Literal	Discrete,0x4a0,{0x00000000, 0x2aaaaaaa}
0465 027d       | }  |		Execute	Discrete,Greater
0466 6804       |h   |		Jump_Zero	0x46b
0467 00d9       |    |		Load_Top	At_Offset_1
0468 4803       |H   |		Short_Literal	0x3
0469 0270       | p  |		Execute	Discrete,Divide
046a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
046b 00d9       |    |		Load_Top	At_Offset_1
046c 00db       |    |		Load_Top	At_Offset_3
046d e402       |    |		Load	0x2,0x2
046e 01d7       |    |		Execute	Vector,Field_Read
046f 0905       |    |		Execute_Immediate	Binary_Scale,0x5
0470 0273       | s  |		Execute	Discrete,Plus
0471 00db       |    |		Load_Top	At_Offset_3
0472 0a01       |    |		Execute_Immediate	Plus,0x1
0473 e402       |    |		Load	0x2,0x2
0474 01d7       |    |		Execute	Vector,Field_Read
0475 0906       |    |		Execute_Immediate	Binary_Scale,0x6
0476 0273       | s  |		Execute	Discrete,Plus
0477 00db       |    |		Load_Top	At_Offset_3
0478 0a02       |    |		Execute_Immediate	Plus,0x2
0479 e402       |    |		Load	0x2,0x2
047a 01d7       |    |		Execute	Vector,Field_Read
047b 0907       |    |		Execute_Immediate	Binary_Scale,0x7
047c 0273       | s  |		Execute	Discrete,Plus
047d 00db       |    |		Load_Top	At_Offset_3
047e 0a03       |    |		Execute_Immediate	Plus,0x3
047f e402       |    |		Load	0x2,0x2
0480 01d7       |    |		Execute	Vector,Field_Read
0481 0273       | s  |		Execute	Discrete,Plus
0482 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0483 00da       |    |		Load_Top	At_Offset_2
0484 0a04       |    |		Execute_Immediate	Plus,0x4
0485 005b       | [  |		Store_Top	Discrete,At_Offset_3
0486 00c9       |    |		Action	Pop_Auxiliary_Loop
0487 00da       |    |		Load_Top	At_Offset_2
0488 0a03       |    |		Execute_Immediate	Plus,0x3
0489 e402       |    |		Load	0x2,0x2
048a 01dc       |    |		Execute	Vector,Last
048b 027a       | z  |		Execute	Discrete,Less_Equal
048c 77d6       |w   |		Jump_Nonzero	0x463
048d 00c9       |    |		Action	Pop_Auxiliary_Loop
048e e402       |    |		Load	0x2,0x2
048f 01dc       |    |		Execute	Vector,Last
0490 00db       |    |		Load_Top	At_Offset_3
0491 0263       | c  |		Execute	Discrete,Above_Bound
0492 7008       |p   |		Jump_Nonzero	0x49b
0493 00db       |    |		Load_Top	At_Offset_3
0494 00d9       |    |		Load_Top	At_Offset_1
0495 e402       |    |		Load	0x2,0x2
0496 01d7       |    |		Execute	Vector,Field_Read
0497 0273       | s  |		Execute	Discrete,Plus
0498 c603       |    |		Store	0x3,0x3
0499 00c8       |    |		Action	Pop_Auxiliary_Range
049a 3ff8       |?   |		Loop_Increasing	0x493
049b 00ce       |    |		Action	Pop_Auxiliary
049c 00d8       |    |		Load_Top	At_Offset_0
049d 00cb       |    |		Action	Pop_Block_With_Result
049e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049f 0000       |    |		.XXX[0x1]
04a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x2aaaaaaa}
04a4 0000 0000  |    |		.BLANK	0000[0x4]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 4601       |F   |		Jump_Case	0x2
04ac 7801       |x   |		Jump	0x4ae								; case 0x0
04ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04ae 4800       |H   |		Short_Literal	0x0
04af 00db       |    |		Load_Top	At_Offset_3
04b0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04b1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04b2 0000 0000  |    |		.BLANK	0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; Debug Table
04b8 ; --------------------------------------------------------------------------------------
04b8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4d18,0x0000,0x0001,0x0017
04be 000b 051a  |    |		.DBG4T	0x000b,0x051a,0xc000,0x0000
04c2 0061 0537  | a 7|		.DBG4T	0x0061,0x0537,0xc000,0x0000
04c6 00cb 0552  |   R|		.DBG4T	0x00cb,0x0552,0x1001,0x0000
04ca 00e3 0555  |   U|		.DBG4T	0x00e3,0x0555,0x1001,0x4000
04ce 0123 056b  | # k|		.DBG4T	0x0123,0x056b,0x1002,0x0000
04d2 012b 056e  | + n|		.DBG4T	0x012b,0x056e,0x1002,0x0000
04d6 0133 0571  | 3 q|		.DBG4T	0x0133,0x0571,0x1001,0x0000
04da 015b 057c  | [ ||		.DBG4T	0x015b,0x057c,0x1002,0x0000
04de 0183 0585  |    |		.DBG4T	0x0183,0x0585,0x1001,0x0000
04e2 01f3 0598  |    |		.DBG4T	0x01f3,0x0598,0x1001,0x0000
04e6 0243 05aa  | C  |		.DBG4T	0x0243,0x05aa,0x1001,0x0000
04ea 0293 05bc  |    |		.DBG4T	0x0293,0x05bc,0x1001,0x0000
04ee 02bb 05c6  |    |		.DBG4T	0x02bb,0x05c6,0x1002,0x0000
04f2 02cb 05cb  |    |		.DBG4T	0x02cb,0x05cb,0x1002,0x0000
04f6 02db 05d0  |    |		.DBG4T	0x02db,0x05d0,0x1002,0x0000
04fa 02f3 05d5  |    |		.DBG4T	0x02f3,0x05d5,0x1001,0x0000
04fe 032b 0000  | +  |		.DBG4T	0x032b,0x0000,0x1005,0x0000
0502 033b 0000  | ;  |		.DBG4T	0x033b,0x0000,0x1005,0x0000
0506 035b 05e3  | [  |		.DBG4T	0x035b,0x05e3,0x1002,0x4000
050a 03eb 05fe  |    |		.DBG4T	0x03eb,0x05fe,0x1002,0x0000
050e 0423 0608  | #  |		.DBG4T	0x0423,0x0608,0x1001,0x4000
0512 045b 0625  | [ %|		.DBG4T	0x045b,0x0625,0x1004,0x4000
0516 04ab 0000  |    |		.DBG4T	0x04ab,0x0000,0x1005,0x0000
051a ; --------------------------------------------------------------------------------------
051a ; Debug chain
051a ; --------------------------------------------------------------------------------------
051a 001b 0000  |    |		.DBGLEN	0x001b,0x0000
051c 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000d,0x000e,0x000f,0x0018,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0045,0x0049,0x004c,0x0053
0537 ; --------------------------------------------------------------------------------------
0537 ; Debug chain
0537 ; --------------------------------------------------------------------------------------
0537 0019 0000  |    |		.DBGLEN	0x0019,0x0000
0539 0061 0067  | a g|		.DBGLNO	0x0061,0x0067,0x006b,0x0075,0x007e,0x0086,0x008e,0x0096,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be
0552 ; --------------------------------------------------------------------------------------
0552 ; Debug chain
0552 ; --------------------------------------------------------------------------------------
0552 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0554 00cb       |    |		.DBGLNO	0x00cb
0555 ; --------------------------------------------------------------------------------------
0555 ; Debug chain
0555 ; --------------------------------------------------------------------------------------
0555 0002 0009  |    |		.DBGLEN	0x0002,0x0009
0557 00e3 00e5  |    |		.DBGLNO	0x00e3,0x00e5,0x00e7,0x00ed,0x00f3,0x00fb,0x00ff,0x010a,0x0110,0x0113,0x0119
0562 0001 0002  |    |		.XXX[0x9]
0564 0003 0005  |    |
0566 0006 0007  |    |
0568 0008 0004  |    |
056a 0009       |    |
056b ; --------------------------------------------------------------------------------------
056b ; Debug chain
056b ; --------------------------------------------------------------------------------------
056b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
056d 0123       | #  |		.DBGLNO	0x0123
056e ; --------------------------------------------------------------------------------------
056e ; Debug chain
056e ; --------------------------------------------------------------------------------------
056e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0570 012b       | +  |		.DBGLNO	0x012b
0571 ; --------------------------------------------------------------------------------------
0571 ; Debug chain
0571 ; --------------------------------------------------------------------------------------
0571 0003 0006  |    |		.DBGLEN	0x0003,0x0006
0573 0133 0137  | 3 7|		.DBGLNO	0x0133,0x0137,0x0139,0x0141,0x0148,0x014a,0x014e,0x0150,0x0151
057c ; --------------------------------------------------------------------------------------
057c ; Debug chain
057c ; --------------------------------------------------------------------------------------
057c 0003 0004  |    |		.DBGLEN	0x0003,0x0004
057e 015b 015f  | [ _|		.DBGLNO	0x015b,0x015f,0x0161,0x0169,0x0170,0x0172,0x017d
0585 ; --------------------------------------------------------------------------------------
0585 ; Debug chain
0585 ; --------------------------------------------------------------------------------------
0585 0003 000e  |    |		.DBGLEN	0x0003,0x000e
0587 0183 0187  |    |		.DBGLNO	0x0183,0x0187,0x0189,0x0191,0x0198,0x019a,0x019c,0x01a0,0x01a1,0x01a3,0x01b9,0x01bd,0x01c5,0x01cb,0x01d2,0x01d5,0x01dc
0598 ; --------------------------------------------------------------------------------------
0598 ; Debug chain
0598 ; --------------------------------------------------------------------------------------
0598 0004 000c  |    |		.DBGLEN	0x0004,0x000c
059a 01f3 01f7  |    |		.DBGLNO	0x01f3,0x01f7,0x01fc,0x01fe,0x0204,0x020b,0x020d,0x020f,0x0218,0x021e,0x0229,0x022f,0x0236,0x0237,0x0239,0x023a
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug chain
05aa ; --------------------------------------------------------------------------------------
05aa 0004 000c  |    |		.DBGLEN	0x0004,0x000c
05ac 0243 0247  | C G|		.DBGLNO	0x0243,0x0247,0x024c,0x024e,0x0254,0x025b,0x025d,0x025f,0x0268,0x026e,0x0272,0x027d,0x0283,0x028a,0x028c,0x028d
05bc ; --------------------------------------------------------------------------------------
05bc ; Debug chain
05bc ; --------------------------------------------------------------------------------------
05bc 0000 0008  |    |		.DBGLEN	0x0000,0x0008
05be 0293 0297  |    |		.DBGLNO	0x0293,0x0297,0x029c,0x02a2,0x02a9,0x02ac,0x02b0,0x02b3
05c6 ; --------------------------------------------------------------------------------------
05c6 ; Debug chain
05c6 ; --------------------------------------------------------------------------------------
05c6 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05c8 02bb 02be  |    |		.DBGLNO	0x02bb,0x02be,0x02c0
05cb ; --------------------------------------------------------------------------------------
05cb ; Debug chain
05cb ; --------------------------------------------------------------------------------------
05cb 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05cd 02cb 02ce  |    |		.DBGLNO	0x02cb,0x02ce,0x02d0
05d0 ; --------------------------------------------------------------------------------------
05d0 ; Debug chain
05d0 ; --------------------------------------------------------------------------------------
05d0 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05d2 02db 02de  |    |		.DBGLNO	0x02db,0x02de,0x02e0
05d5 ; --------------------------------------------------------------------------------------
05d5 ; Debug chain
05d5 ; --------------------------------------------------------------------------------------
05d5 0001 000b  |    |		.DBGLEN	0x0001,0x000b
05d7 02f3 02f5  |    |		.DBGLNO	0x02f3,0x02f5,0x02f8,0x02fa,0x02ff,0x0305,0x0307,0x030e,0x0315,0x031d,0x0320,0x0324
05e3 ; --------------------------------------------------------------------------------------
05e3 ; Debug chain
05e3 ; --------------------------------------------------------------------------------------
05e3 0001 000c  |    |		.DBGLEN	0x0001,0x000c
05e5 035b 0362  | [ b|		.DBGLNO	0x035b,0x0362,0x0365,0x0369,0x0374,0x0378,0x0383,0x0392,0x03b1,0x03b4,0x03ba,0x03ca,0x03e2
05f2 0001 0002  |    |		.XXX[0xc]
05f4 0003 0004  |    |
05f6 0005 0006  |    |
05f8 000b 0007  |    |
05fa 0008 0009  |    |
05fc 000a 000c  |    |
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug chain
05fe ; --------------------------------------------------------------------------------------
05fe 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0600 03eb 03ef  |    |		.DBGLNO	0x03eb,0x03ef,0x03f3,0x03f9,0x03fc,0x0404,0x0412,0x0417
0608 ; --------------------------------------------------------------------------------------
0608 ; Debug chain
0608 ; --------------------------------------------------------------------------------------
0608 0001 000d  |    |		.DBGLEN	0x0001,0x000d
060a 0423 0425  | # %|		.DBGLNO	0x0423,0x0425,0x0429,0x042f,0x0431,0x0438,0x043a,0x043b,0x0442,0x0444,0x0445,0x0447,0x044c,0x044f
0618 0001 0003  |    |		.XXX[0xd]
061a 0004 0005  |    |
061c 0006 0007  |    |
061e 0008 0009  |    |
0620 000a 000b  |    |
0622 000c 0002  |    |
0624 000d       |    |
0625 ; --------------------------------------------------------------------------------------
0625 ; Debug chain
0625 ; --------------------------------------------------------------------------------------
0625 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0627 045b 045f  | [ _|		.DBGLNO	0x045b,0x045f,0x0463,0x0467,0x046b,0x0483,0x0487,0x048e,0x0493,0x049c
0631 0002 0003  |    |		.XXX[0x8]
0633 0004 0005  |    |
0635 0001 0006  |    |
0637 0007 0008  |    |
0639 0000 0000  |    |		.BLANK	0000[0x1c7]