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

⟦b09b4f3ab⟧

    Length: 4096 (0x1000)
    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 04e8       |    |		.CONST	0x04e8								; 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 0020       |    |		.CONST	0x0020								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000f 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0011 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0013 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 00bf       |    |		Action	Accept_Activation
0016 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001d 00c7       |    |		Action	Elaborate_Subprogram
001e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
001f 00c7       |    |		Action	Elaborate_Subprogram
0020			BODY_0008:
0020 00bc       |    |		Action	Signal_Activated
0021 00bb       |    |		Action	Signal_Completion
0022 0000 0000  |    |		.BLANK	0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0034       | 4  |		.CONST	0x0034								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0005       |    |		.CONST	0x0005								; Number of locals
002b			INIT_0028:
002b e002       |    |		Load	0x0,0x2
002c 02ff       |    |		Declare_Variable	Variant_Record
002d 00d8       |    |		Load_Top	At_Offset_0
002e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002f e003       |    |		Load	0x0,0x3
0030 0007       |    |		Action	Break_Optional
0031 e004       |    |		Load	0x0,0x4
0032 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0034			BODY_0028:
0034 e5ff       |    |		Load	0x2,-0x1
0035 8005       |    |		Call	0x0,0x5
0036 8405       |    |		Call	0x2,0x5
0037 0831       | 1  |		Execute_Immediate	Raise,0x31
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003f       | ?  |		.CONST	0x003f								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0003       |    |		.CONST	0x0003								; Number of locals
003b			INIT_0038:
003b e003       |    |		Load	0x0,0x3
003c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
003d 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
003f			BODY_0038:
003f e5ff       |    |		Load	0x2,-0x1
0040 8005       |    |		Call	0x0,0x5
0041 8403       |    |		Call	0x2,0x3
0042 e5ff       |    |		Load	0x2,-0x1
0043 8006       |    |		Call	0x0,0x6
0044 e5ff       |    |		Load	0x2,-0x1
0045 8007       |    |		Call	0x0,0x7
0046 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0047 0000       |    |		.XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 005d       | ]  |		.CONST	0x005d								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0009       |    |		.CONST	0x0009								; Number of locals
004b			INIT_0048:
004b e008       |    |		Load	0x0,0x8
004c 0007       |    |		Action	Break_Optional
004d e003       |    |		Load	0x0,0x3
004e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004f e009       |    |		Load	0x0,0x9
0050 0007       |    |		Action	Break_Optional
0051 e00a       |    |		Load	0x0,0xa
0052 0322       | "  |		Declare_Variable	Record
0053 e002       |    |		Load	0x0,0x2
0054 02ff       |    |		Declare_Variable	Variant_Record
0055 00d8       |    |		Load_Top	At_Offset_0
0056 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0057 e004       |    |		Load	0x0,0x4
0058 0007       |    |		Action	Break_Optional
0059 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
005b 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
005d			BODY_0048:
005d e5ff       |    |		Load	0x2,-0x1
005e 8005       |    |		Call	0x0,0x5
005f 8409       |    |		Call	0x2,0x9
0060 0831       | 1  |		Execute_Immediate	Raise,0x31
0061 0000 0000  |    |		.BLANK	0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d       | m  |		.CONST	0x006d								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0002       |    |		.CONST	0x0002								; Number of locals
006b			INIT_0068:
006b 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
006d			BODY_0068:
006d 00cf       |    |		Action	Mark_Auxiliary
006e e5ff       |    |		Load	0x2,-0x1
006f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0070 0227       | '  |		Execute	Access,All_Reference
0071 01d9       |    |		Execute	Vector,Reverse_Bounds
0072 0263       | c  |		Execute	Discrete,Above_Bound
0073 7012       |p   |		Jump_Nonzero	0x86
0074 8402       |    |		Call	0x2,0x2
0075 e5ff       |    |		Load	0x2,-0x1
0076 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0077 0229       | )  |		Execute	Access,All_Read
0078 00d9       |    |		Load_Top	At_Offset_1
0079 00d8       |    |		Load_Top	At_Offset_0
007a 00da       |    |		Load_Top	At_Offset_2
007b 01d7       |    |		Execute	Vector,Field_Read
007c e00b       |    |		Load	0x0,0xb
007d e00c       |    |		Load	0x0,0xc
007e a00d       |    |		Store_Unchecked	0x0,0xd
007f 800e       |    |		Call	0x0,0xe
0080 00d9       |    |		Load_Top	At_Offset_1
0081 00db       |    |		Load_Top	At_Offset_3
0082 01d6       |    |		Execute	Vector,Field_Write
0083 00d2       |    |		Pop_Control	Pop_Count_2
0084 00c8       |    |		Action	Pop_Auxiliary_Range
0085 3fee       |?   |		Loop_Increasing	0x74
0086 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0094       |    |		.CONST	0x0094								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0005       |    |		.CONST	0x0005								; Number of locals
008b			INIT_0088:
008b e008       |    |		Load	0x0,0x8
008c 0007       |    |		Action	Break_Optional
008d e002       |    |		Load	0x0,0x2
008e 02ff       |    |		Declare_Variable	Variant_Record
008f 00d8       |    |		Load_Top	At_Offset_0
0090 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0091 e004       |    |		Load	0x0,0x4
0092 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
0094			BODY_0088:
0094 e5ff       |    |		Load	0x2,-0x1
0095 8005       |    |		Call	0x0,0x5
0096 8405       |    |		Call	0x2,0x5
0097 0831       | 1  |		Execute_Immediate	Raise,0x31
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009d       |    |		.CONST	0x009d								; Address of begin
0099 00d3       |    |		.CONST	0x00d3								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
009d			BODY_0098:
009d e00f       |    |		Load	0x0,0xf
009e 0322       | "  |		Declare_Variable	Record
009f 4834       |H4  |		Short_Literal	0x34
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00a2 e00f       |    |		Load	0x0,0xf
00a3 012c       | ,  |		Execute	Any,Size
00a4 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
00a5 00d9       |    |		Load_Top	At_Offset_1
00a6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a7 4800       |H   |		Short_Literal	0x0
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00aa e5ff       |    |		Load	0x2,-0x1
00ab e010       |    |		Load	0x0,0x10
00ac a011       |    |		Store_Unchecked	0x0,0x11
00ad e012       |    |		Load	0x0,0x12
00ae e013       |    |		Load	0x0,0x13
00af a014       |    |		Store_Unchecked	0x0,0x14
00b0 8015       |    |		Call	0x0,0x15
00b1 e004       |    |		Load	0x0,0x4
00b2 e402       |    |		Load	0x2,0x2
00b3 4800       |H   |		Short_Literal	0x0
00b4 4800       |H   |		Short_Literal	0x0
00b5 4834       |H4  |		Short_Literal	0x34
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 e016       |    |		Load	0x0,0x16
00b8 a017       |    |		Store_Unchecked	0x0,0x17
00b9 a018       |    |		Store_Unchecked	0x0,0x18
00ba 8019       |    |		Call	0x0,0x19
00bb 00d1       |    |		Pop_Control	Pop_Count_1
00bc c404       |    |		Store	0x2,0x4
00bd e404       |    |		Load	0x2,0x4
00be 7007       |p   |		Jump_Nonzero	0xc6
00bf e5ff       |    |		Load	0x2,-0x1
00c0 8006       |    |		Call	0x0,0x6
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 8007       |    |		Call	0x0,0x7
00c3 e01a       |    |		Load	0x0,0x1a
00c4 00cb       |    |		Action	Pop_Block_With_Result
00c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c6 e402       |    |		Load	0x2,0x2
00c7 2608       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
00c8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00c9 6802       |h   |		Jump_Zero	0xcc
00ca 8602       |    |		Call	0x3,0x2
00cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00cc e5ff       |    |		Load	0x2,-0x1
00cd 8006       |    |		Call	0x0,0x6
00ce e5ff       |    |		Load	0x2,-0x1
00cf 8007       |    |		Call	0x0,0x7
00d0 e01a       |    |		Load	0x0,0x1a
00d1 00cb       |    |		Action	Pop_Block_With_Result
00d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d3			TRAP_0098:
00d3 0007       |    |		Action	Break_Optional
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 8006       |    |		Call	0x0,0x6
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 0101       |    |		Execute	Exception,Reraise
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd       |    |		.CONST	0x00dd								; Address of begin
00d9 0118       |    |		.CONST	0x0118								; Address of exception handler
00da 0002       |    |		.CONST	0x0002								; Number of locals
00db			INIT_00d8:
00db 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
00dd			BODY_00d8:
00dd 00cf       |    |		Action	Mark_Auxiliary
00de e5fe       |    |		Load	0x2,-0x2
00df 01d9       |    |		Execute	Vector,Reverse_Bounds
00e0 0263       | c  |		Execute	Discrete,Above_Bound
00e1 700b       |p   |		Jump_Nonzero	0xed
00e2 e402       |    |		Load	0x2,0x2
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 e5fe       |    |		Load	0x2,-0x2
00e5 01d7       |    |		Execute	Vector,Field_Read
00e6 0227       | '  |		Execute	Access,All_Reference
00e7 01db       |    |		Execute	Vector,Length
00e8 0273       | s  |		Execute	Discrete,Plus
00e9 0a01       |    |		Execute_Immediate	Plus,0x1
00ea c402       |    |		Store	0x2,0x2
00eb 00c8       |    |		Action	Pop_Auxiliary_Range
00ec 3ff5       |?   |		Loop_Increasing	0xe2
00ed 00ce       |    |		Action	Pop_Auxiliary
00ee e402       |    |		Load	0x2,0x2
00ef e01b       |    |		Load	0x0,0x1b
00f0 0322       | "  |		Declare_Variable	Record
00f1 4833       |H3  |		Short_Literal	0x33
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f4 e01b       |    |		Load	0x0,0x1b
00f5 012c       | ,  |		Execute	Any,Size
00f6 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
00f7 e402       |    |		Load	0x2,0x2
00f8 0a03       |    |		Execute_Immediate	Plus,0x3
00f9 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb e008       |    |		Load	0x0,0x8
00fc 0260       | `  |		Execute	Discrete,In_Type
00fd 7001       |p   |		Jump_Nonzero	0xff
00fe 0801       |    |		Execute_Immediate	Raise,0x1
00ff 0273       | s  |		Execute	Discrete,Plus
0100 00d9       |    |		Load_Top	At_Offset_1
0101 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0102 4800       |H   |		Short_Literal	0x0
0103 00d9       |    |		Load_Top	At_Offset_1
0104 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0105 4800       |H   |		Short_Literal	0x0
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0108 4800       |H   |		Short_Literal	0x0
0109 00d9       |    |		Load_Top	At_Offset_1
010a 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
010b e5fe       |    |		Load	0x2,-0x2
010c 01db       |    |		Execute	Vector,Length
010d 00d9       |    |		Load_Top	At_Offset_1
010e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
010f e5ff       |    |		Load	0x2,-0x1
0110 e01c       |    |		Load	0x0,0x1c
0111 a01d       |    |		Store_Unchecked	0x0,0x1d
0112 e01e       |    |		Load	0x0,0x1e
0113 e01f       |    |		Load	0x0,0x1f
0114 a020       |    |		Store_Unchecked	0x0,0x20
0115 8021       | !  |		Call	0x0,0x21
0116 8602       |    |		Call	0x3,0x2
0117 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0118			TRAP_00d8:
0118 0007       |    |		Action	Break_Optional
0119 e5ff       |    |		Load	0x2,-0x1
011a 8006       |    |		Call	0x0,0x6
011b 00d8       |    |		Load_Top	At_Offset_0
011c 0101       |    |		Execute	Exception,Reraise
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
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 00cf       |    |		Action	Mark_Auxiliary
0124 e403       |    |		Load	0x2,0x3
0125 4801       |H   |		Short_Literal	0x1
0126 0263       | c  |		Execute	Discrete,Above_Bound
0127 7026       |p&  |		Jump_Nonzero	0x14e
0128 e405       |    |		Load	0x2,0x5
0129 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
012a 0229       | )  |		Execute	Access,All_Read
012b e403       |    |		Load	0x2,0x3
012c 00d8       |    |		Load_Top	At_Offset_0
012d 00da       |    |		Load_Top	At_Offset_2
012e 01d7       |    |		Execute	Vector,Field_Read
012f e00b       |    |		Load	0x0,0xb
0130 e00c       |    |		Load	0x0,0xc
0131 a00d       |    |		Store_Unchecked	0x0,0xd
0132 800e       |    |		Call	0x0,0xe
0133 00d9       |    |		Load_Top	At_Offset_1
0134 00db       |    |		Load_Top	At_Offset_3
0135 01d6       |    |		Execute	Vector,Field_Write
0136 00d2       |    |		Pop_Control	Pop_Count_2
0137 e403       |    |		Load	0x2,0x3
0138 e405       |    |		Load	0x2,0x5
0139 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013a 0227       | '  |		Execute	Access,All_Reference
013b 01d7       |    |		Execute	Vector,Field_Read
013c a404       |    |		Store_Unchecked	0x2,0x4
013d e404       |    |		Load	0x2,0x4
013e 0227       | '  |		Execute	Access,All_Reference
013f 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0140 680b       |h   |		Jump_Zero	0x14c
0141 e404       |    |		Load	0x2,0x4
0142 0229       | )  |		Execute	Access,All_Read
0143 00d8       |    |		Load_Top	At_Offset_0
0144 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0145 e022       | "  |		Load	0x0,0x22
0146 e023       | #  |		Load	0x0,0x23
0147 a024       | $  |		Store_Unchecked	0x0,0x24
0148 800e       |    |		Call	0x0,0xe
0149 00d9       |    |		Load_Top	At_Offset_1
014a 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
014b 00d1       |    |		Pop_Control	Pop_Count_1
014c 00c8       |    |		Action	Pop_Auxiliary_Range
014d 3fda       |?   |		Loop_Increasing	0x128
014e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015b       | [  |		.CONST	0x015b								; Address of begin
0151 01de       |    |		.CONST	0x01de								; Address of exception handler
0152 0005       |    |		.CONST	0x0005								; Number of locals
0153			INIT_0150:
0153 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
0155 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
0157 029f 03db  |    |		Declare_Subprogram	INIT_03d8,For_Call
0159 029f 0403  |    |		Declare_Subprogram	INIT_0400,For_Call
015b			BODY_0150:
015b 4801       |H   |		Short_Literal	0x1
015c e5fd       |    |		Load	0x2,-0x3
015d e025       | %  |		Load	0x0,0x25
015e 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
015f e405       |    |		Load	0x2,0x5
0160 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0161 4801       |H   |		Short_Literal	0x1
0162 e5fd       |    |		Load	0x2,-0x3
0163 e01a       |    |		Load	0x0,0x1a
0164 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0165 e405       |    |		Load	0x2,0x5
0166 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0167 e5fe       |    |		Load	0x2,-0x2
0168 01db       |    |		Execute	Vector,Length
0169 c402       |    |		Store	0x2,0x2
016a e402       |    |		Load	0x2,0x2
016b e026       | &  |		Load	0x0,0x26
016c 0322       | "  |		Declare_Variable	Record
016d 4832       |H2  |		Short_Literal	0x32
016e 00d9       |    |		Load_Top	At_Offset_1
016f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0170 e026       | &  |		Load	0x0,0x26
0171 012c       | ,  |		Execute	Any,Size
0172 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0173 e402       |    |		Load	0x2,0x2
0174 0a03       |    |		Execute_Immediate	Plus,0x3
0175 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0176 0273       | s  |		Execute	Discrete,Plus
0177 00d9       |    |		Load_Top	At_Offset_1
0178 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0179 4800       |H   |		Short_Literal	0x0
017a 00d9       |    |		Load_Top	At_Offset_1
017b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
017c e5fd       |    |		Load	0x2,-0x3
017d 00d9       |    |		Load_Top	At_Offset_1
017e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
017f e402       |    |		Load	0x2,0x2
0180 00d9       |    |		Load_Top	At_Offset_1
0181 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0182 e5ff       |    |		Load	0x2,-0x1
0183 e027       | '  |		Load	0x0,0x27
0184 a028       | (  |		Store_Unchecked	0x0,0x28
0185 e029       | )  |		Load	0x0,0x29
0186 e02a       | *  |		Load	0x0,0x2a
0187 a02b       | +  |		Store_Unchecked	0x0,0x2b
0188 8021       | !  |		Call	0x0,0x21
0189 e5fe       |    |		Load	0x2,-0x2
018a e5ff       |    |		Load	0x2,-0x1
018b e02c       | ,  |		Load	0x0,0x2c
018c e02d       | -  |		Load	0x0,0x2d
018d e02e       | .  |		Load	0x0,0x2e
018e a02f       | /  |		Store_Unchecked	0x0,0x2f
018f e030       | 0  |		Load	0x0,0x30
0190 e031       | 1  |		Load	0x0,0x31
0191 a032       | 2  |		Store_Unchecked	0x0,0x32
0192 8033       | 3  |		Call	0x0,0x33
0193 00cf       |    |		Action	Mark_Auxiliary
0194 6083       |`   |		Indirect_Literal	Discrete,0x218,{0x00000000, 0x0000ffff}
0195 4800       |H   |		Short_Literal	0x0
0196 0007       |    |		Action	Break_Optional
0197 e004       |    |		Load	0x0,0x4
0198 e406       |    |		Load	0x2,0x6
0199 4800       |H   |		Short_Literal	0x0
019a 4800       |H   |		Short_Literal	0x0
019b 4832       |H2  |		Short_Literal	0x32
019c e5ff       |    |		Load	0x2,-0x1
019d e016       |    |		Load	0x0,0x16
019e a017       |    |		Store_Unchecked	0x0,0x17
019f a018       |    |		Store_Unchecked	0x0,0x18
01a0 8019       |    |		Call	0x0,0x19
01a1 00d1       |    |		Pop_Control	Pop_Count_1
01a2 c407       |    |		Store	0x2,0x7
01a3 e407       |    |		Load	0x2,0x7
01a4 700f       |p   |		Jump_Nonzero	0x1b4
01a5 8408       |    |		Call	0x2,0x8
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 8006       |    |		Call	0x0,0x6
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 8007       |    |		Call	0x0,0x7
01aa e00a       |    |		Load	0x0,0xa
01ab 0322       | "  |		Declare_Variable	Record
01ac e025       | %  |		Load	0x0,0x25
01ad 00d9       |    |		Load_Top	At_Offset_1
01ae 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01af e01a       |    |		Load	0x0,0x1a
01b0 00d9       |    |		Load_Top	At_Offset_1
01b1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b2 00cb       |    |		Action	Pop_Block_With_Result
01b3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01b4 e406       |    |		Load	0x2,0x6
01b5 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
01b6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b7 7002       |p   |		Jump_Nonzero	0x1ba
01b8 00d2       |    |		Pop_Control	Pop_Count_2
01b9 7821       |x!  |		Jump	0x1db
01ba 00d8       |    |		Load_Top	At_Offset_0
01bb a403       |    |		Store_Unchecked	0x2,0x3
01bc 8602       |    |		Call	0x3,0x2
01bd e404       |    |		Load	0x2,0x4
01be e403       |    |		Load	0x2,0x3
01bf e405       |    |		Load	0x2,0x5
01c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c1 0227       | '  |		Execute	Access,All_Reference
01c2 01d6       |    |		Execute	Vector,Field_Write
01c3 e406       |    |		Load	0x2,0x6
01c4 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
01c5 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
01c6 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
01c7 6810       |h   |		Jump_Zero	0x1d8
01c8 8603       |    |		Call	0x3,0x3
01c9 e404       |    |		Load	0x2,0x4
01ca 0229       | )  |		Execute	Access,All_Read
01cb 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01cc 0229       | )  |		Execute	Access,All_Read
01cd 00d8       |    |		Load_Top	At_Offset_0
01ce e5ff       |    |		Load	0x2,-0x1
01cf e034       | 4  |		Load	0x0,0x34
01d0 e035       | 5  |		Load	0x0,0x35
01d1 e036       | 6  |		Load	0x0,0x36
01d2 a037       | 7  |		Store_Unchecked	0x0,0x37
01d3 e038       | 8  |		Load	0x0,0x38
01d4 e039       | 9  |		Load	0x0,0x39
01d5 a03a       | :  |		Store_Unchecked	0x0,0x3a
01d6 803b       | ;  |		Call	0x0,0x3b
01d7 00d2       |    |		Pop_Control	Pop_Count_2
01d8 8604       |    |		Call	0x3,0x4
01d9 00c8       |    |		Action	Pop_Auxiliary_Range
01da 3fbc       |?   |		Loop_Increasing	0x197
01db 00ce       |    |		Action	Pop_Auxiliary
01dc 8605       |    |		Call	0x3,0x5
01dd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01de			TRAP_0150:
01de 010b       |    |		Execute	Exception,Is_Storage_Error
01df 6832       |h2  |		Jump_Zero	0x212
01e0 8408       |    |		Call	0x2,0x8
01e1 00cf       |    |		Action	Mark_Auxiliary
01e2 6035       |`5  |		Indirect_Literal	Discrete,0x218,{0x00000000, 0x0000ffff}
01e3 4800       |H   |		Short_Literal	0x0
01e4 0007       |    |		Action	Break_Optional
01e5 e004       |    |		Load	0x0,0x4
01e6 e406       |    |		Load	0x2,0x6
01e7 4800       |H   |		Short_Literal	0x0
01e8 4800       |H   |		Short_Literal	0x0
01e9 4832       |H2  |		Short_Literal	0x32
01ea e5ff       |    |		Load	0x2,-0x1
01eb e016       |    |		Load	0x0,0x16
01ec a017       |    |		Store_Unchecked	0x0,0x17
01ed a018       |    |		Store_Unchecked	0x0,0x18
01ee 8019       |    |		Call	0x0,0x19
01ef 00d1       |    |		Pop_Control	Pop_Count_1
01f0 c407       |    |		Store	0x2,0x7
01f1 e407       |    |		Load	0x2,0x7
01f2 6804       |h   |		Jump_Zero	0x1f7
01f3 e406       |    |		Load	0x2,0x6
01f4 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
01f5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f6 7002       |p   |		Jump_Nonzero	0x1f9
01f7 00d2       |    |		Pop_Control	Pop_Count_2
01f8 7814       |x   |		Jump	0x20d
01f9 e406       |    |		Load	0x2,0x6
01fa 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
01fb 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
01fc e03c       | <  |		Load	0x0,0x3c
01fd 012c       | ,  |		Execute	Any,Size
01fe 0271       | q  |		Execute	Discrete,Times
01ff 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
0200 e406       |    |		Load	0x2,0x6
0201 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0202 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0203 0273       | s  |		Execute	Discrete,Plus
0204 00d8       |    |		Load_Top	At_Offset_0
0205 e003       |    |		Load	0x0,0x3
0206 0260       | `  |		Execute	Discrete,In_Type
0207 7001       |p   |		Jump_Nonzero	0x209
0208 0801       |    |		Execute_Immediate	Raise,0x1
0209 e5ff       |    |		Load	0x2,-0x1
020a 803d       | =  |		Call	0x0,0x3d
020b 00c8       |    |		Action	Pop_Auxiliary_Range
020c 3fd8       |?   |		Loop_Increasing	0x1e5
020d 00ce       |    |		Action	Pop_Auxiliary
020e e5ff       |    |		Load	0x2,-0x1
020f 8006       |    |		Call	0x0,0x6
0210 00d8       |    |		Load_Top	At_Offset_0
0211 0101       |    |		Execute	Exception,Reraise
0212 8408       |    |		Call	0x2,0x8
0213 e5ff       |    |		Load	0x2,-0x1
0214 8006       |    |		Call	0x0,0x6
0215 00d8       |    |		Load_Top	At_Offset_0
0216 0101       |    |		Execute	Exception,Reraise
0217 0000       |    |		.XXX[0x1]
0218 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
021c 0000 0000  |    |		.BLANK	0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0229       | )  |		.CONST	0x0229								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0002       |    |		.CONST	0x0002								; Number of locals
0223			INIT_0220:
0223 e405       |    |		Load	0x2,0x5
0224 e5ff       |    |		Load	0x2,-0x1
0225 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0226 0227       | '  |		Execute	Access,All_Reference
0227 01d7       |    |		Execute	Vector,Field_Read
0228 0007       |    |		Action	Break_Optional
0229			BODY_0220:
0229 00d8       |    |		Load_Top	At_Offset_0
022a 0229       | )  |		Execute	Access,All_Read
022b 00d8       |    |		Load_Top	At_Offset_0
022c 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
022d e03e       | >  |		Load	0x0,0x3e
022e e03f       | ?  |		Load	0x0,0x3f
022f a040       | @  |		Store_Unchecked	0x0,0x40
0230 800e       |    |		Call	0x0,0xe
0231 00d9       |    |		Load_Top	At_Offset_1
0232 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0233 00d1       |    |		Pop_Control	Pop_Count_1
0234 00d8       |    |		Load_Top	At_Offset_0
0235 0229       | )  |		Execute	Access,All_Read
0236 00d8       |    |		Load_Top	At_Offset_0
0237 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0238 e022       | "  |		Load	0x0,0x22
0239 e023       | #  |		Load	0x0,0x23
023a a024       | $  |		Store_Unchecked	0x0,0x24
023b 800e       |    |		Call	0x0,0xe
023c 00d9       |    |		Load_Top	At_Offset_1
023d 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
023e 00d1       |    |		Pop_Control	Pop_Count_1
023f 00d8       |    |		Load_Top	At_Offset_0
0240 e041       | A  |		Load	0x0,0x41
0241 e042       | B  |		Load	0x0,0x42
0242 a043       | C  |		Store_Unchecked	0x0,0x43
0243 800e       |    |		Call	0x0,0xe
0244 0039       | 9  |		Store_Top	Access,At_Offset_1
0245 e009       |    |		Load	0x0,0x9
0246 e405       |    |		Load	0x2,0x5
0247 e5ff       |    |		Load	0x2,-0x1
0248 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0249 0227       | '  |		Execute	Access,All_Reference
024a 01d6       |    |		Execute	Vector,Field_Write
024b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024c 0000 0000  |    |		.BLANK	0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0255       | U  |		.CONST	0x0255								; Address of begin
0251 02a3       |    |		.CONST	0x02a3								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
0255			BODY_0250:
0255 e5fe       |    |		Load	0x2,-0x2
0256 01db       |    |		Execute	Vector,Length
0257 c402       |    |		Store	0x2,0x2
0258 e402       |    |		Load	0x2,0x2
0259 e044       | D  |		Load	0x0,0x44
025a 0322       | "  |		Declare_Variable	Record
025b 4831       |H1  |		Short_Literal	0x31
025c 00d9       |    |		Load_Top	At_Offset_1
025d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
025e e044       | D  |		Load	0x0,0x44
025f 012c       | ,  |		Execute	Any,Size
0260 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0261 e402       |    |		Load	0x2,0x2
0262 0a03       |    |		Execute_Immediate	Plus,0x3
0263 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0264 0273       | s  |		Execute	Discrete,Plus
0265 00d9       |    |		Load_Top	At_Offset_1
0266 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0267 4800       |H   |		Short_Literal	0x0
0268 00d9       |    |		Load_Top	At_Offset_1
0269 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
026a e5fd       |    |		Load	0x2,-0x3
026b 00d9       |    |		Load_Top	At_Offset_1
026c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
026d e402       |    |		Load	0x2,0x2
026e 00d9       |    |		Load_Top	At_Offset_1
026f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0270 e5ff       |    |		Load	0x2,-0x1
0271 e045       | E  |		Load	0x0,0x45
0272 a046       | F  |		Store_Unchecked	0x0,0x46
0273 e047       | G  |		Load	0x0,0x47
0274 e048       | H  |		Load	0x0,0x48
0275 a049       | I  |		Store_Unchecked	0x0,0x49
0276 8021       | !  |		Call	0x0,0x21
0277 e5fe       |    |		Load	0x2,-0x2
0278 e5ff       |    |		Load	0x2,-0x1
0279 e02c       | ,  |		Load	0x0,0x2c
027a e02d       | -  |		Load	0x0,0x2d
027b e02e       | .  |		Load	0x0,0x2e
027c a02f       | /  |		Store_Unchecked	0x0,0x2f
027d e030       | 0  |		Load	0x0,0x30
027e e031       | 1  |		Load	0x0,0x31
027f a032       | 2  |		Store_Unchecked	0x0,0x32
0280 8033       | 3  |		Call	0x0,0x33
0281 e004       |    |		Load	0x0,0x4
0282 e403       |    |		Load	0x2,0x3
0283 4800       |H   |		Short_Literal	0x0
0284 4800       |H   |		Short_Literal	0x0
0285 4831       |H1  |		Short_Literal	0x31
0286 e5ff       |    |		Load	0x2,-0x1
0287 e016       |    |		Load	0x0,0x16
0288 a017       |    |		Store_Unchecked	0x0,0x17
0289 a018       |    |		Store_Unchecked	0x0,0x18
028a 8019       |    |		Call	0x0,0x19
028b 00d1       |    |		Pop_Control	Pop_Count_1
028c c404       |    |		Store	0x2,0x4
028d e404       |    |		Load	0x2,0x4
028e 7007       |p   |		Jump_Nonzero	0x296
028f e5ff       |    |		Load	0x2,-0x1
0290 8006       |    |		Call	0x0,0x6
0291 e5ff       |    |		Load	0x2,-0x1
0292 8007       |    |		Call	0x0,0x7
0293 e01a       |    |		Load	0x0,0x1a
0294 00cb       |    |		Action	Pop_Block_With_Result
0295 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0296 e403       |    |		Load	0x2,0x3
0297 261a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1a
0298 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0299 6802       |h   |		Jump_Zero	0x29c
029a 8602       |    |		Call	0x3,0x2
029b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029c e5ff       |    |		Load	0x2,-0x1
029d 8006       |    |		Call	0x0,0x6
029e e5ff       |    |		Load	0x2,-0x1
029f 8007       |    |		Call	0x0,0x7
02a0 e01a       |    |		Load	0x0,0x1a
02a1 00cb       |    |		Action	Pop_Block_With_Result
02a2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02a3			TRAP_0250:
02a3 0007       |    |		Action	Break_Optional
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 8006       |    |		Call	0x0,0x6
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 0101       |    |		Execute	Exception,Reraise
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02bc       |    |		.CONST	0x02bc								; Address of begin
02a9 0309       |    |		.CONST	0x0309								; Address of exception handler
02aa 0004       |    |		.CONST	0x0004								; Number of locals
02ab			INIT_02a8:
02ab e003       |    |		Load	0x0,0x3
02ac 0007       |    |		Action	Break_Optional
02ad e01a       |    |		Load	0x0,0x1a
02ae 0007       |    |		Action	Break_Optional
02af 4801       |H   |		Short_Literal	0x1
02b0 e402       |    |		Load	0x2,0x2
02b1 2608       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
02b2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02b3 00d8       |    |		Load_Top	At_Offset_0
02b4 e003       |    |		Load	0x0,0x3
02b5 0260       | `  |		Execute	Discrete,In_Type
02b6 7001       |p   |		Jump_Nonzero	0x2b8
02b7 0801       |    |		Execute_Immediate	Raise,0x1
02b8 0902       |    |		Execute_Immediate	Binary_Scale,0x2
02b9 e04a       | J  |		Load	0x0,0x4a
02ba 035b       | [  |		Declare_Type	Array,Constrained
02bb 0337       | 7  |		Declare_Variable	Array
02bc			BODY_02a8:
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd e5ff       |    |		Load	0x2,-0x1
02be e04b       | K  |		Load	0x0,0x4b
02bf e04c       | L  |		Load	0x0,0x4c
02c0 e04d       | M  |		Load	0x0,0x4d
02c1 a04e       | N  |		Store_Unchecked	0x0,0x4e
02c2 e04f       | O  |		Load	0x0,0x4f
02c3 e050       | P  |		Load	0x0,0x50
02c4 a051       | Q  |		Store_Unchecked	0x0,0x51
02c5 8052       | R  |		Call	0x0,0x52
02c6 00d1       |    |		Pop_Control	Pop_Count_1
02c7 4801       |H   |		Short_Literal	0x1
02c8 e402       |    |		Load	0x2,0x2
02c9 2608       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
02ca 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02cb e01a       |    |		Load	0x0,0x1a
02cc 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02cd 003a       | :  |		Store_Top	Access,At_Offset_2
02ce 4801       |H   |		Short_Literal	0x1
02cf a403       |    |		Store_Unchecked	0x2,0x3
02d0 00cf       |    |		Action	Mark_Auxiliary
02d1 00da       |    |		Load_Top	At_Offset_2
02d2 0227       | '  |		Execute	Access,All_Reference
02d3 01d9       |    |		Execute	Vector,Reverse_Bounds
02d4 0263       | c  |		Execute	Discrete,Above_Bound
02d5 702a       |p*  |		Jump_Nonzero	0x300
02d6 00cf       |    |		Action	Mark_Auxiliary
02d7 e804       |    |		Load	0x4,0x4
02d8 01dc       |    |		Execute	Vector,Last
02d9 e403       |    |		Load	0x2,0x3
02da 0263       | c  |		Execute	Discrete,Above_Bound
02db 7021       |p!  |		Jump_Nonzero	0x2fd
02dc 00d8       |    |		Load_Top	At_Offset_0
02dd e804       |    |		Load	0x4,0x4
02de 01d7       |    |		Execute	Vector,Field_Read
02df 701b       |p   |		Jump_Nonzero	0x2fb
02e0 00d8       |    |		Load_Top	At_Offset_0
02e1 e403       |    |		Load	0x2,0x3
02e2 0272       | r  |		Execute	Discrete,Minus
02e3 c802       |    |		Store	0x4,0x2
02e4 4801       |H   |		Short_Literal	0x1
02e5 e802       |    |		Load	0x4,0x2
02e6 e053       | S  |		Load	0x0,0x53
02e7 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02e8 e807       |    |		Load	0x4,0x7
02e9 e803       |    |		Load	0x4,0x3
02ea 0227       | '  |		Execute	Access,All_Reference
02eb 01d6       |    |		Execute	Vector,Field_Write
02ec e403       |    |		Load	0x2,0x3
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee e802       |    |		Load	0x4,0x2
02ef 0273       | s  |		Execute	Discrete,Plus
02f0 0aff       |    |		Execute_Immediate	Plus,-0x1
02f1 e804       |    |		Load	0x4,0x4
02f2 01cf       |    |		Execute	Vector,Slice_Read
02f3 e807       |    |		Load	0x4,0x7
02f4 e803       |    |		Load	0x4,0x3
02f5 0229       | )  |		Execute	Access,All_Read
02f6 01d7       |    |		Execute	Vector,Field_Read
02f7 0228       | (  |		Execute	Access,All_Write
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 0a01       |    |		Execute_Immediate	Plus,0x1
02fa c403       |    |		Store	0x2,0x3
02fb 00c8       |    |		Action	Pop_Auxiliary_Range
02fc 3fdf       |?   |		Loop_Increasing	0x2dc
02fd 00ce       |    |		Action	Pop_Auxiliary
02fe 00c8       |    |		Action	Pop_Auxiliary_Range
02ff 3fd6       |?   |		Loop_Increasing	0x2d6
0300 00ce       |    |		Action	Pop_Auxiliary
0301 e5ff       |    |		Load	0x2,-0x1
0302 8006       |    |		Call	0x0,0x6
0303 e5ff       |    |		Load	0x2,-0x1
0304 8007       |    |		Call	0x0,0x7
0305 00d9       |    |		Load_Top	At_Offset_1
0306 00cb       |    |		Action	Pop_Block_With_Result
0307 00cb       |    |		Action	Pop_Block_With_Result
0308 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0309			TRAP_02a8:
0309 0007       |    |		Action	Break_Optional
030a 00da       |    |		Load_Top	At_Offset_2
030b 8054       | T  |		Call	0x0,0x54
030c 003b       | ;  |		Store_Top	Access,At_Offset_3
030d 00d8       |    |		Load_Top	At_Offset_0
030e 0101       |    |		Execute	Exception,Reraise
030f 0000       |    |		.XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031c       |    |		.CONST	0x031c								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0004       |    |		.CONST	0x0004								; Number of locals
0313			INIT_0310:
0313 4801       |H   |		Short_Literal	0x1
0314 e402       |    |		Load	0x2,0x2
0315 e04a       | J  |		Load	0x0,0x4a
0316 035b       | [  |		Declare_Type	Array,Constrained
0317 0337       | 7  |		Declare_Variable	Array
0318 e003       |    |		Load	0x0,0x3
0319 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
031a 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
031c			BODY_0310:
031c 00cf       |    |		Action	Mark_Auxiliary
031d e5fe       |    |		Load	0x2,-0x2
031e 01d9       |    |		Execute	Vector,Reverse_Bounds
031f 0263       | c  |		Execute	Discrete,Above_Bound
0320 700a       |p   |		Jump_Nonzero	0x32b
0321 8804       |    |		Call	0x4,0x4
0322 4800       |H   |		Short_Literal	0x0
0323 e803       |    |		Load	0x4,0x3
0324 e802       |    |		Load	0x4,0x2
0325 01d6       |    |		Execute	Vector,Field_Write
0326 e803       |    |		Load	0x4,0x3
0327 0a01       |    |		Execute_Immediate	Plus,0x1
0328 c803       |    |		Store	0x4,0x3
0329 00c8       |    |		Action	Pop_Auxiliary_Range
032a 3ff6       |?   |		Loop_Increasing	0x321
032b 00ce       |    |		Action	Pop_Auxiliary
032c 00da       |    |		Load_Top	At_Offset_2
032d e5ff       |    |		Load	0x2,-0x1
032e e02c       | ,  |		Load	0x0,0x2c
032f e02d       | -  |		Load	0x0,0x2d
0330 e02e       | .  |		Load	0x0,0x2e
0331 a02f       | /  |		Store_Unchecked	0x0,0x2f
0332 e030       | 0  |		Load	0x0,0x30
0333 e031       | 1  |		Load	0x0,0x31
0334 a032       | 2  |		Store_Unchecked	0x0,0x32
0335 8033       | 3  |		Call	0x0,0x33
0336 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0337 0000       |    |		.XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0399       |    |		.CONST	0x0399								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b e055       | U  |		Load	0x0,0x55
033c 0322       | "  |		Declare_Variable	Record
033d e056       | V  |		Load	0x0,0x56
033e 00d9       |    |		Load_Top	At_Offset_1
033f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0340 e057       | W  |		Load	0x0,0x57
0341 00d9       |    |		Load_Top	At_Offset_1
0342 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0343 e406       |    |		Load	0x2,0x6
0344 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0345 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0346 00d9       |    |		Load_Top	At_Offset_1
0347 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0348 00d8       |    |		Load_Top	At_Offset_0
0349 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
034a e406       |    |		Load	0x2,0x6
034b 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
034c 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
034d 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
034e 00d8       |    |		Load_Top	At_Offset_0
034f e058       | X  |		Load	0x0,0x58
0350 0260       | `  |		Execute	Discrete,In_Type
0351 7001       |p   |		Jump_Nonzero	0x353
0352 0801       |    |		Execute_Immediate	Raise,0x1
0353 00d9       |    |		Load_Top	At_Offset_1
0354 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0355 e406       |    |		Load	0x2,0x6
0356 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0357 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0358 4900       |I   |		Short_Literal	0x100
0359 026f       | o  |		Execute	Discrete,Remainder
035a 00d8       |    |		Load_Top	At_Offset_0
035b e058       | X  |		Load	0x0,0x58
035c 0260       | `  |		Execute	Discrete,In_Type
035d 7001       |p   |		Jump_Nonzero	0x35f
035e 0801       |    |		Execute_Immediate	Raise,0x1
035f 00d0       |    |		Action	Swap_Control
0360 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0361 e406       |    |		Load	0x2,0x6
0362 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0363 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0364 00d9       |    |		Load_Top	At_Offset_1
0365 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0366 e406       |    |		Load	0x2,0x6
0367 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0368 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0369 00d9       |    |		Load_Top	At_Offset_1
036a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
036b e406       |    |		Load	0x2,0x6
036c 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
036d 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
036e 00d9       |    |		Load_Top	At_Offset_1
036f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0370 e406       |    |		Load	0x2,0x6
0371 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0372 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0373 00d9       |    |		Load_Top	At_Offset_1
0374 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0375 e406       |    |		Load	0x2,0x6
0376 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0377 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0378 8059       | Y  |		Call	0x0,0x59
0379 00d9       |    |		Load_Top	At_Offset_1
037a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
037b e406       |    |		Load	0x2,0x6
037c 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
037d 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
037e 00d9       |    |		Load_Top	At_Offset_1
037f 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0380 e406       |    |		Load	0x2,0x6
0381 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0382 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
0383 00d9       |    |		Load_Top	At_Offset_1
0384 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0385 e406       |    |		Load	0x2,0x6
0386 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
0387 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0388 00d9       |    |		Load_Top	At_Offset_1
0389 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
038a e406       |    |		Load	0x2,0x6
038b 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
038c 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
038d 00d9       |    |		Load_Top	At_Offset_1
038e 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
038f e05a       | Z  |		Load	0x0,0x5a
0390 00d9       |    |		Load_Top	At_Offset_1
0391 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0392 e05b       | [  |		Load	0x0,0x5b
0393 00d9       |    |		Load_Top	At_Offset_1
0394 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0395 e009       |    |		Load	0x0,0x9
0396 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0397 a404       |    |		Store_Unchecked	0x2,0x4
0398 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0399			TRAP_0338:
0399 0007       |    |		Action	Break_Optional
039a e406       |    |		Load	0x2,0x6
039b 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
039c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
039d e03c       | <  |		Load	0x0,0x3c
039e 012c       | ,  |		Execute	Any,Size
039f 0271       | q  |		Execute	Discrete,Times
03a0 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
03a1 e406       |    |		Load	0x2,0x6
03a2 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
03a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a4 0273       | s  |		Execute	Discrete,Plus
03a5 00d8       |    |		Load_Top	At_Offset_0
03a6 e003       |    |		Load	0x0,0x3
03a7 0260       | `  |		Execute	Discrete,In_Type
03a8 7001       |p   |		Jump_Nonzero	0x3aa
03a9 0801       |    |		Execute_Immediate	Raise,0x1
03aa e5ff       |    |		Load	0x2,-0x1
03ab 803d       | =  |		Call	0x0,0x3d
03ac 8408       |    |		Call	0x2,0x8
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 0101       |    |		Execute	Exception,Reraise
03af 0000       |    |		.XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 03c0       |    |		.CONST	0x03c0								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 4801       |H   |		Short_Literal	0x1
03b4 e406       |    |		Load	0x2,0x6
03b5 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
03b6 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
03b7 e05b       | [  |		Load	0x0,0x5b
03b8 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
03b9 00d8       |    |		Load_Top	At_Offset_0
03ba 0227       | '  |		Execute	Access,All_Reference
03bb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03bc e404       |    |		Load	0x2,0x4
03bd 0227       | '  |		Execute	Access,All_Reference
03be 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
03bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03c0			TRAP_03b0:
03c0 0007       |    |		Action	Break_Optional
03c1 e406       |    |		Load	0x2,0x6
03c2 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
03c3 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
03c4 e03c       | <  |		Load	0x0,0x3c
03c5 012c       | ,  |		Execute	Any,Size
03c6 0271       | q  |		Execute	Discrete,Times
03c7 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
03c8 e406       |    |		Load	0x2,0x6
03c9 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
03ca 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03cb 0273       | s  |		Execute	Discrete,Plus
03cc 00d8       |    |		Load_Top	At_Offset_0
03cd e003       |    |		Load	0x0,0x3
03ce 0260       | `  |		Execute	Discrete,In_Type
03cf 7001       |p   |		Jump_Nonzero	0x3d1
03d0 0801       |    |		Execute_Immediate	Raise,0x1
03d1 e5ff       |    |		Load	0x2,-0x1
03d2 803d       | =  |		Call	0x0,0x3d
03d3 8408       |    |		Call	0x2,0x8
03d4 00d8       |    |		Load_Top	At_Offset_0
03d5 0101       |    |		Execute	Exception,Reraise
03d6 0000 0000  |    |		.XXX[0x2]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e2       |    |		.CONST	0x03e2								; Address of begin
03d9 03f6       |    |		.CONST	0x03f6								; Address of exception handler
03da 0002       |    |		.CONST	0x0002								; Number of locals
03db			INIT_03d8:
03db 4801       |H   |		Short_Literal	0x1
03dc e406       |    |		Load	0x2,0x6
03dd 261b       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1b
03de 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03df e04a       | J  |		Load	0x0,0x4a
03e0 035b       | [  |		Declare_Type	Array,Constrained
03e1 0337       | 7  |		Declare_Variable	Array
03e2			BODY_03d8:
03e2 00d8       |    |		Load_Top	At_Offset_0
03e3 e5ff       |    |		Load	0x2,-0x1
03e4 e04b       | K  |		Load	0x0,0x4b
03e5 e04c       | L  |		Load	0x0,0x4c
03e6 e04d       | M  |		Load	0x0,0x4d
03e7 a04e       | N  |		Store_Unchecked	0x0,0x4e
03e8 e04f       | O  |		Load	0x0,0x4f
03e9 e050       | P  |		Load	0x0,0x50
03ea a051       | Q  |		Store_Unchecked	0x0,0x51
03eb 8052       | R  |		Call	0x0,0x52
03ec 00d1       |    |		Pop_Control	Pop_Count_1
03ed 00d8       |    |		Load_Top	At_Offset_0
03ee e053       | S  |		Load	0x0,0x53
03ef 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03f0 e403       |    |		Load	0x2,0x3
03f1 e405       |    |		Load	0x2,0x5
03f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f3 0227       | '  |		Execute	Access,All_Reference
03f4 01d6       |    |		Execute	Vector,Field_Write
03f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03f6			TRAP_03d8:
03f6 0007       |    |		Action	Break_Optional
03f7 8408       |    |		Call	0x2,0x8
03f8 00d8       |    |		Load_Top	At_Offset_0
03f9 0101       |    |		Execute	Exception,Reraise
03fa 0000 0000  |    |		.BLANK	0000[0x6]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0405       |    |		.CONST	0x0405								; Address of begin
0401 0421       | !  |		.CONST	0x0421								; Address of exception handler
0402 0002       |    |		.CONST	0x0002								; Number of locals
0403			INIT_0400:
0403 e00a       |    |		Load	0x0,0xa
0404 0322       | "  |		Declare_Variable	Record
0405			BODY_0400:
0405 4801       |H   |		Short_Literal	0x1
0406 e403       |    |		Load	0x2,0x3
0407 e405       |    |		Load	0x2,0x5
0408 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0409 0227       | '  |		Execute	Access,All_Reference
040a 01cf       |    |		Execute	Vector,Slice_Read
040b e025       | %  |		Load	0x0,0x25
040c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
040d 00d9       |    |		Load_Top	At_Offset_1
040e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
040f 4801       |H   |		Short_Literal	0x1
0410 e403       |    |		Load	0x2,0x3
0411 e405       |    |		Load	0x2,0x5
0412 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0413 0227       | '  |		Execute	Access,All_Reference
0414 01cf       |    |		Execute	Vector,Slice_Read
0415 e01a       |    |		Load	0x0,0x1a
0416 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0417 00d9       |    |		Load_Top	At_Offset_1
0418 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0419 e5ff       |    |		Load	0x2,-0x1
041a 8006       |    |		Call	0x0,0x6
041b e5ff       |    |		Load	0x2,-0x1
041c 8007       |    |		Call	0x0,0x7
041d 00d8       |    |		Load_Top	At_Offset_0
041e 00cb       |    |		Action	Pop_Block_With_Result
041f 00cb       |    |		Action	Pop_Block_With_Result
0420 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0421			TRAP_0400:
0421 0007       |    |		Action	Break_Optional
0422 00d9       |    |		Load_Top	At_Offset_1
0423 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0424 0227       | '  |		Execute	Access,All_Reference
0425 01da       |    |		Execute	Vector,Bounds
0426 e05c       | \  |		Load	0x0,0x5c
0427 035b       | [  |		Declare_Type	Array,Constrained
0428 0337       | 7  |		Declare_Variable	Array
0429 00d8       |    |		Load_Top	At_Offset_0
042a 01d9       |    |		Execute	Vector,Reverse_Bounds
042b 0263       | c  |		Execute	Discrete,Above_Bound
042c 7005       |p   |		Jump_Nonzero	0x432
042d e009       |    |		Load	0x0,0x9
042e 00d9       |    |		Load_Top	At_Offset_1
042f e804       |    |		Load	0x4,0x4
0430 01d6       |    |		Execute	Vector,Field_Write
0431 3ffb       |?   |		Loop_Increasing	0x42d
0432 00da       |    |		Load_Top	At_Offset_2
0433 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0434 0228       | (  |		Execute	Access,All_Write
0435 00d9       |    |		Load_Top	At_Offset_1
0436 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0437 0227       | '  |		Execute	Access,All_Reference
0438 01da       |    |		Execute	Vector,Bounds
0439 e05d       | ]  |		Load	0x0,0x5d
043a 035b       | [  |		Declare_Type	Array,Constrained
043b 0337       | 7  |		Declare_Variable	Array
043c 00d8       |    |		Load_Top	At_Offset_0
043d 01d9       |    |		Execute	Vector,Reverse_Bounds
043e 0263       | c  |		Execute	Discrete,Above_Bound
043f 7005       |p   |		Jump_Nonzero	0x445
0440 e053       | S  |		Load	0x0,0x53
0441 00d9       |    |		Load_Top	At_Offset_1
0442 e804       |    |		Load	0x4,0x4
0443 01d6       |    |		Execute	Vector,Field_Write
0444 3ffb       |?   |		Loop_Increasing	0x440
0445 00da       |    |		Load_Top	At_Offset_2
0446 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0447 0228       | (  |		Execute	Access,All_Write
0448 00d9       |    |		Load_Top	At_Offset_1
0449 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
044a 805e       | ^  |		Call	0x0,0x5e
044b 00da       |    |		Load_Top	At_Offset_2
044c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
044d 00d9       |    |		Load_Top	At_Offset_1
044e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044f 8054       | T  |		Call	0x0,0x54
0450 00da       |    |		Load_Top	At_Offset_2
0451 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0452 00d8       |    |		Load_Top	At_Offset_0
0453 0101       |    |		Execute	Exception,Reraise
0454 0000 0000  |    |		.BLANK	0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0470       | p  |		.CONST	0x0470								; Address of begin
0459 04c2       |    |		.CONST	0x04c2								; Address of exception handler
045a 0006       |    |		.CONST	0x0006								; Number of locals
045b			INIT_0458:
045b e003       |    |		Load	0x0,0x3
045c 0007       |    |		Action	Break_Optional
045d e01a       |    |		Load	0x0,0x1a
045e 0007       |    |		Action	Break_Optional
045f 4801       |H   |		Short_Literal	0x1
0460 e403       |    |		Load	0x2,0x3
0461 261a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1a
0462 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0463 00d8       |    |		Load_Top	At_Offset_0
0464 e003       |    |		Load	0x0,0x3
0465 0260       | `  |		Execute	Discrete,In_Type
0466 7001       |p   |		Jump_Nonzero	0x468
0467 0801       |    |		Execute_Immediate	Raise,0x1
0468 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0469 e04a       | J  |		Load	0x0,0x4a
046a 035b       | [  |		Declare_Type	Array,Constrained
046b 0337       | 7  |		Declare_Variable	Array
046c e003       |    |		Load	0x0,0x3
046d 0007       |    |		Action	Break_Optional
046e e003       |    |		Load	0x0,0x3
046f 0007       |    |		Action	Break_Optional
0470			BODY_0458:
0470 00da       |    |		Load_Top	At_Offset_2
0471 e5ff       |    |		Load	0x2,-0x1
0472 e04b       | K  |		Load	0x0,0x4b
0473 e04c       | L  |		Load	0x0,0x4c
0474 e04d       | M  |		Load	0x0,0x4d
0475 a04e       | N  |		Store_Unchecked	0x0,0x4e
0476 e04f       | O  |		Load	0x0,0x4f
0477 e050       | P  |		Load	0x0,0x50
0478 a051       | Q  |		Store_Unchecked	0x0,0x51
0479 8052       | R  |		Call	0x0,0x52
047a 00d1       |    |		Pop_Control	Pop_Count_1
047b 4801       |H   |		Short_Literal	0x1
047c e403       |    |		Load	0x2,0x3
047d 261a       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1a
047e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
047f e01a       |    |		Load	0x0,0x1a
0480 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0481 a803       |    |		Store_Unchecked	0x4,0x3
0482 4801       |H   |		Short_Literal	0x1
0483 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0484 4801       |H   |		Short_Literal	0x1
0485 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0486 00cf       |    |		Action	Mark_Auxiliary
0487 e803       |    |		Load	0x4,0x3
0488 0227       | '  |		Execute	Access,All_Reference
0489 01d9       |    |		Execute	Vector,Reverse_Bounds
048a 0263       | c  |		Execute	Discrete,Above_Bound
048b 702d       |p-  |		Jump_Nonzero	0x4b9
048c 00cf       |    |		Action	Mark_Auxiliary
048d 7804       |x   |		Jump	0x492
048e e806       |    |		Load	0x4,0x6
048f 0a01       |    |		Execute_Immediate	Plus,0x1
0490 c806       |    |		Store	0x4,0x6
0491 00c9       |    |		Action	Pop_Auxiliary_Loop
0492 e806       |    |		Load	0x4,0x6
0493 e804       |    |		Load	0x4,0x4
0494 01dc       |    |		Execute	Vector,Last
0495 027a       | z  |		Execute	Discrete,Less_Equal
0496 6804       |h   |		Jump_Zero	0x49b
0497 e806       |    |		Load	0x4,0x6
0498 e804       |    |		Load	0x4,0x4
0499 01d7       |    |		Execute	Vector,Field_Read
049a 77f3       |w   |		Jump_Nonzero	0x48e
049b 00ce       |    |		Action	Pop_Auxiliary
049c 00db       |    |		Load_Top	At_Offset_3
049d e805       |    |		Load	0x4,0x5
049e 0272       | r  |		Execute	Discrete,Minus
049f c802       |    |		Store	0x4,0x2
04a0 4801       |H   |		Short_Literal	0x1
04a1 e802       |    |		Load	0x4,0x2
04a2 e053       | S  |		Load	0x0,0x53
04a3 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
04a4 00d9       |    |		Load_Top	At_Offset_1
04a5 e803       |    |		Load	0x4,0x3
04a6 0227       | '  |		Execute	Access,All_Reference
04a7 01d6       |    |		Execute	Vector,Field_Write
04a8 e805       |    |		Load	0x4,0x5
04a9 e806       |    |		Load	0x4,0x6
04aa 0aff       |    |		Execute_Immediate	Plus,-0x1
04ab e804       |    |		Load	0x4,0x4
04ac 01cf       |    |		Execute	Vector,Slice_Read
04ad 00d9       |    |		Load_Top	At_Offset_1
04ae e803       |    |		Load	0x4,0x3
04af 0229       | )  |		Execute	Access,All_Read
04b0 01d7       |    |		Execute	Vector,Field_Read
04b1 0228       | (  |		Execute	Access,All_Write
04b2 00db       |    |		Load_Top	At_Offset_3
04b3 0a01       |    |		Execute_Immediate	Plus,0x1
04b4 c805       |    |		Store	0x4,0x5
04b5 e805       |    |		Load	0x4,0x5
04b6 a806       |    |		Store_Unchecked	0x4,0x6
04b7 00c8       |    |		Action	Pop_Auxiliary_Range
04b8 3fd3       |?   |		Loop_Increasing	0x48c
04b9 00ce       |    |		Action	Pop_Auxiliary
04ba e5ff       |    |		Load	0x2,-0x1
04bb 8006       |    |		Call	0x0,0x6
04bc e5ff       |    |		Load	0x2,-0x1
04bd 8007       |    |		Call	0x0,0x7
04be 00db       |    |		Load_Top	At_Offset_3
04bf 00cb       |    |		Action	Pop_Block_With_Result
04c0 00cb       |    |		Action	Pop_Block_With_Result
04c1 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04c2			TRAP_0458:
04c2 0007       |    |		Action	Break_Optional
04c3 e803       |    |		Load	0x4,0x3
04c4 8054       | T  |		Call	0x0,0x54
04c5 c803       |    |		Store	0x4,0x3
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 0101       |    |		Execute	Exception,Reraise
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d0       |    |		.CONST	0x04d0								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0002       |    |		.CONST	0x0002								; Number of locals
04cb			INIT_04c8:
04cb e053       | S  |		Load	0x0,0x53
04cc e807       |    |		Load	0x4,0x7
04cd e5fe       |    |		Load	0x2,-0x2
04ce 01d7       |    |		Execute	Vector,Field_Read
04cf 0039       | 9  |		Store_Top	Access,At_Offset_1
04d0			BODY_04c8:
04d0 00cf       |    |		Action	Mark_Auxiliary
04d1 00d9       |    |		Load_Top	At_Offset_1
04d2 0227       | '  |		Execute	Access,All_Reference
04d3 01d9       |    |		Execute	Vector,Reverse_Bounds
04d4 0263       | c  |		Execute	Discrete,Above_Bound
04d5 700c       |p   |		Jump_Nonzero	0x4e2
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 ea02       |    |		Load	0x5,0x2
04d8 0227       | '  |		Execute	Access,All_Reference
04d9 01d7       |    |		Execute	Vector,Field_Read
04da e803       |    |		Load	0x4,0x3
04db e802       |    |		Load	0x4,0x2
04dc 01d6       |    |		Execute	Vector,Field_Write
04dd e803       |    |		Load	0x4,0x3
04de 0a01       |    |		Execute_Immediate	Plus,0x1
04df c803       |    |		Store	0x4,0x3
04e0 00c8       |    |		Action	Pop_Auxiliary_Range
04e1 3ff4       |?   |		Loop_Increasing	0x4d6
04e2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04e3 0000 0000  |    |		.BLANK	0000[0x5]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug Table
04e8 ; --------------------------------------------------------------------------------------
04e8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x690e,0x0000,0x0001,0x0015
04ee 000b 0542  |   B|		.DBG4T	0x000b,0x0542,0x8000,0x0000
04f2 0016 0549  |   I|		.DBG4T	0x0016,0x0549,0x8000,0x0000
04f6 002b 0550  | + P|		.DBG4T	0x002b,0x0550,0x0002,0x0000
04fa 003b 0557  | ; W|		.DBG4T	0x003b,0x0557,0x0001,0x0000
04fe 004b 055e  | K ^|		.DBG4T	0x004b,0x055e,0x0002,0x0000
0502 006b 0569  | k i|		.DBG4T	0x006b,0x0569,0x0001,0x0000
0506 008b 056e  |   n|		.DBG4T	0x008b,0x056e,0x0002,0x0000
050a 009b 0575  |   u|		.DBG4T	0x009b,0x0575,0x0004,0x0000
050e 00db 0584  |    |		.DBG4T	0x00db,0x0584,0x0004,0x0000
0512 0123 058c  | #  |		.DBG4T	0x0123,0x058c,0x0001,0x0000
0516 0153 0593  | S  |		.DBG4T	0x0153,0x0593,0x0004,0x0000
051a 0223 05b6  | #  |		.DBG4T	0x0223,0x05b6,0x0004,0x0000
051e 0253 05bd  | S  |		.DBG4T	0x0253,0x05bd,0x0004,0x0000
0522 02ab 05ce  |    |		.DBG4T	0x02ab,0x05ce,0x0004,0x0000
0526 0313 05e2  |    |		.DBG4T	0x0313,0x05e2,0x0004,0x0000
052a 033b 05eb  | ;  |		.DBG4T	0x033b,0x05eb,0x0004,0x0000
052e 03b3 05f1  |    |		.DBG4T	0x03b3,0x05f1,0x0004,0x0000
0532 03db 05f7  |    |		.DBG4T	0x03db,0x05f7,0x0004,0x0000
0536 0403 05fe  |    |		.DBG4T	0x0403,0x05fe,0x0004,0x0000
053a 045b 060b  | [  |		.DBG4T	0x045b,0x060b,0x0004,0x4000
053e 04cb 0634  |   4|		.DBG4T	0x04cb,0x0634,0x0004,0x0000
0542 ; --------------------------------------------------------------------------------------
0542 ; Debug chain
0542 ; --------------------------------------------------------------------------------------
0542 0005 0000  |    |		.DBGLEN	0x0005,0x0000
0544 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013
0549 ; --------------------------------------------------------------------------------------
0549 ; Debug chain
0549 ; --------------------------------------------------------------------------------------
0549 0005 0000  |    |		.DBGLEN	0x0005,0x0000
054b 0016 0018  |    |		.DBGLNO	0x0016,0x0018,0x001a,0x001c,0x001e
0550 ; --------------------------------------------------------------------------------------
0550 ; Debug chain
0550 ; --------------------------------------------------------------------------------------
0550 0003 0002  |    |		.DBGLEN	0x0003,0x0002
0552 002b 002f  | + /|		.DBGLNO	0x002b,0x002f,0x0031,0x0034,0x0036
0557 ; --------------------------------------------------------------------------------------
0557 ; Debug chain
0557 ; --------------------------------------------------------------------------------------
0557 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0559 003b 003f  | ; ?|		.DBGLNO	0x003b,0x003f,0x0041,0x0042,0x0044
055e ; --------------------------------------------------------------------------------------
055e ; Debug chain
055e ; --------------------------------------------------------------------------------------
055e 0007 0002  |    |		.DBGLEN	0x0007,0x0002
0560 004b 004d  | K M|		.DBGLNO	0x004b,0x004d,0x004f,0x0051,0x0053,0x0057,0x0059,0x005d,0x005f
0569 ; --------------------------------------------------------------------------------------
0569 ; Debug chain
0569 ; --------------------------------------------------------------------------------------
0569 0000 0003  |    |		.DBGLEN	0x0000,0x0003
056b 006e 0074  | n t|		.DBGLNO	0x006e,0x0074,0x0075
056e ; --------------------------------------------------------------------------------------
056e ; Debug chain
056e ; --------------------------------------------------------------------------------------
056e 0003 0002  |    |		.DBGLEN	0x0003,0x0002
0570 008b 008d  |    |		.DBGLNO	0x008b,0x008d,0x0091,0x0094,0x0096
0575 ; --------------------------------------------------------------------------------------
0575 ; Debug chain
0575 ; --------------------------------------------------------------------------------------
0575 0000 000d  |    |		.DBGLEN	0x0000,0x000d
0577 009d 00b1  |    |		.DBGLNO	0x009d,0x00b1,0x00bd,0x00bf,0x00c1,0x00c3,0x00c6,0x00ca,0x00cc,0x00ce,0x00d0,0x00d4,0x00d6
0584 ; --------------------------------------------------------------------------------------
0584 ; Debug chain
0584 ; --------------------------------------------------------------------------------------
0584 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0586 00de 00e2  |    |		.DBGLNO	0x00de,0x00e2,0x00ee,0x0116,0x0119,0x011b
058c ; --------------------------------------------------------------------------------------
058c ; Debug chain
058c ; --------------------------------------------------------------------------------------
058c 0000 0005  |    |		.DBGLEN	0x0000,0x0005
058e 0124 0128  | $ (|		.DBGLNO	0x0124,0x0128,0x0137,0x013d,0x0141
0593 ; --------------------------------------------------------------------------------------
0593 ; Debug chain
0593 ; --------------------------------------------------------------------------------------
0593 0000 0021  |   !|		.DBGLEN	0x0000,0x0021
0595 015b 0161  | [ a|		.DBGLNO	0x015b,0x0161,0x0167,0x016a,0x0189,0x0194,0x0197,0x01a3,0x01a5,0x01a6,0x01a8,0x01aa,0x01b4,0x01b8,0x01ba,0x01bc,0x01bd,0x01c3,0x01c8,0x01c9,0x01d8,0x01dc,0x01e0,0x01e2,0x01e5,0x01f1,0x01f7,0x01f9,0x020e,0x0210,0x0212,0x0213,0x0215
05b6 ; --------------------------------------------------------------------------------------
05b6 ; Debug chain
05b6 ; --------------------------------------------------------------------------------------
05b6 0001 0004  |    |		.DBGLEN	0x0001,0x0004
05b8 0223 0229  | # )|		.DBGLNO	0x0223,0x0229,0x0234,0x023f,0x0245
05bd ; --------------------------------------------------------------------------------------
05bd ; Debug chain
05bd ; --------------------------------------------------------------------------------------
05bd 0000 000f  |    |		.DBGLEN	0x0000,0x000f
05bf 0255 0258  | U X|		.DBGLNO	0x0255,0x0258,0x0277,0x0281,0x028d,0x028f,0x0291,0x0293,0x0296,0x029a,0x029c,0x029e,0x02a0,0x02a4,0x02a6
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug chain
05ce ; --------------------------------------------------------------------------------------
05ce 0003 000f  |    |		.DBGLEN	0x0003,0x000f
05d0 02ab 02ad  |    |		.DBGLNO	0x02ab,0x02ad,0x02af,0x02bc,0x02c7,0x02ce,0x02d1,0x02d7,0x02dc,0x02e0,0x02e4,0x02ec,0x02f8,0x0301,0x0303,0x0305,0x030a,0x030d
05e2 ; --------------------------------------------------------------------------------------
05e2 ; Debug chain
05e2 ; --------------------------------------------------------------------------------------
05e2 0002 0005  |    |		.DBGLEN	0x0002,0x0005
05e4 0313 0318  |    |		.DBGLNO	0x0313,0x0318,0x031d,0x0321,0x0322,0x0326,0x032c
05eb ; --------------------------------------------------------------------------------------
05eb ; Debug chain
05eb ; --------------------------------------------------------------------------------------
05eb 0000 0004  |    |		.DBGLEN	0x0000,0x0004
05ed 033b 039a  | ;  |		.DBGLNO	0x033b,0x039a,0x03ac,0x03ad
05f1 ; --------------------------------------------------------------------------------------
05f1 ; Debug chain
05f1 ; --------------------------------------------------------------------------------------
05f1 0000 0004  |    |		.DBGLEN	0x0000,0x0004
05f3 03b3 03c1  |    |		.DBGLNO	0x03b3,0x03c1,0x03d3,0x03d4
05f7 ; --------------------------------------------------------------------------------------
05f7 ; Debug chain
05f7 ; --------------------------------------------------------------------------------------
05f7 0001 0004  |    |		.DBGLEN	0x0001,0x0004
05f9 03db 03e2  |    |		.DBGLNO	0x03db,0x03e2,0x03ed,0x03f7,0x03f8
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug chain
05fe ; --------------------------------------------------------------------------------------
05fe 0001 000a  |    |		.DBGLEN	0x0001,0x000a
0600 0403 0405  |    |		.DBGLNO	0x0403,0x0405,0x040f,0x0419,0x041b,0x041d,0x0422,0x0435,0x0448,0x044d,0x0452
060b ; --------------------------------------------------------------------------------------
060b ; Debug chain
060b ; --------------------------------------------------------------------------------------
060b 0005 0011  |    |		.DBGLEN	0x0005,0x0011
060d 045b 045d  | [ ]|		.DBGLNO	0x045b,0x045d,0x045f,0x046c,0x046e,0x0470,0x047b,0x0482,0x0484,0x0487,0x048e,0x0492,0x049c,0x04a0,0x04a8,0x04b2,0x04b5,0x04ba,0x04bc,0x04be,0x04c3,0x04c6
0623 0001 0002  |    |		.XXX[0x11]
0625 0003 0004  |    |
0627 0005 0007  |    |
0629 0006 0008  |    |
062b 0009 000a  |    |
062d 000b 000c  |    |
062f 000d 000e  |    |
0631 000f 0010  |    |
0633 0011       |    |
0634 ; --------------------------------------------------------------------------------------
0634 ; Debug chain
0634 ; --------------------------------------------------------------------------------------
0634 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0636 04cb 04d1  |    |		.DBGLNO	0x04cb,0x04d1,0x04d6,0x04dd
063a 0000 0000  |    |		.BLANK	0000[0x1c6]