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

⟦ee993b6b7⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0488       |    |		.CONST	0x0488								; 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 00a5       |    |		.CONST	0x00a5								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0030       | 0  |		.CONST	0x0030								; Number of locals
000b			INIT_0008:
000b 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
000d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0011 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0013 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0015 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0017 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0019 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
001b 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
001d 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
001f 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0021 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0023 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0025 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0027 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0029 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002b 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
002d 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
002f 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0031 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0033 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0035 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0037 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0039 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
003b 00e9       |    |		Load_Encached	String_Cache
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 4818       |H   |		Short_Literal	0x18
003e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
003f 4818       |H   |		Short_Literal	0x18
0040 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0041 4fff       |O   |		Short_Literal	-0x1
0042 6081       |`   |		Indirect_Literal	Discrete,0xc4,{0x00000000, 0x7fffffff}
0043 00e2       |    |		Load_Encached	Integer_Cache
0044 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0045 00d8       |    |		Load_Top	At_Offset_0
0046 00db       |    |		Load_Top	At_Offset_3
0047 00db       |    |		Load_Top	At_Offset_3
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 4803       |H   |		Short_Literal	0x3
004a 032e       | .  |		Declare_Type	Record,Defined,Visible
004b 00d8       |    |		Load_Top	At_Offset_0
004c 02a0       |    |		Declare_Subprogram	Null_Subprogram
004d e228       | (  |		Load	0x1,0x28
004e 03c7       |    |		Complete_Type	Access,By_Defining
004f 4801       |H   |		Short_Literal	0x1
0050 4800       |H   |		Short_Literal	0x0
0051 e227       | '  |		Load	0x1,0x27
0052 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0053 0129       | )  |		Execute	Any,Make_Visible
0054 00d9       |    |		Load_Top	At_Offset_1
0055 0322       | "  |		Declare_Variable	Record
0056 4fff       |O   |		Short_Literal	-0x1
0057 00d9       |    |		Load_Top	At_Offset_1
0058 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0059 00d9       |    |		Load_Top	At_Offset_1
005a 00d9       |    |		Load_Top	At_Offset_1
005b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
005c 00da       |    |		Load_Top	At_Offset_2
005d 0322       | "  |		Declare_Variable	Record
005e 4fff       |O   |		Short_Literal	-0x1
005f 00d9       |    |		Load_Top	At_Offset_1
0060 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0061 00da       |    |		Load_Top	At_Offset_2
0062 00d9       |    |		Load_Top	At_Offset_1
0063 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0064 e228       | (  |		Load	0x1,0x28
0065 00d9       |    |		Load_Top	At_Offset_1
0066 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0067 e228       | (  |		Load	0x1,0x28
0068 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0069 00d9       |    |		Load_Top	At_Offset_1
006a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006b 0129       | )  |		Execute	Any,Make_Visible
006c 00bf       |    |		Action	Accept_Activation
006d 029d 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call
006f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 029d 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call
0075 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
0077 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 029d 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call
007b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5			BODY_0008:
00a5 00bc       |    |		Action	Signal_Activated
00a6 00bb       |    |		Action	Signal_Completion
00a7 0000       |    |		.XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 6814       |h   |		Jump_Zero	0xc1
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 0227       | '  |		Execute	Access,All_Reference
00af 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b0 4fff       |O   |		Short_Literal	-0x1
00b1 027e       | ~  |		Execute	Discrete,Not_Equal
00b2 680c       |h   |		Jump_Zero	0xbf
00b3 e22c       | ,  |		Load	0x1,0x2c
00b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 0227       | '  |		Execute	Access,All_Reference
00b7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00b8 4fff       |O   |		Short_Literal	-0x1
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 0227       | '  |		Execute	Access,All_Reference
00bb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bc 00da       |    |		Load_Top	At_Offset_2
00bd e22c       | ,  |		Load	0x1,0x2c
00be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00bf e228       | (  |		Load	0x1,0x28
00c0 003b       | ;  |		Store_Top	Access,At_Offset_3
00c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c2 0000 0000  |    |		.XXX[0x2]
00c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 00d8       |    |		.CONST	0x00d8								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 6809       |h   |		Jump_Zero	0xd6
00cd 00da       |    |		Load_Top	At_Offset_2
00ce 0227       | '  |		Execute	Access,All_Reference
00cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d0 00d8       |    |		Load_Top	At_Offset_0
00d1 00e3       |    |		Load_Encached	Natural_Cache
00d2 0260       | `  |		Execute	Discrete,In_Type
00d3 7001       |p   |		Jump_Nonzero	0xd5
00d4 0801       |    |		Execute_Immediate	Raise,0x1
00d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d6 4800       |H   |		Short_Literal	0x0
00d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d8			TRAP_00c8:
00d8 0007       |    |		Action	Break_Optional
00d9 4800       |H   |		Short_Literal	0x0
00da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00db 0000 0000  |    |		.BLANK	0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e6       |    |		.CONST	0x00e6								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0002       |    |		.CONST	0x0002								; Number of locals
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 0227       | '  |		Execute	Access,All_Reference
00e5 0007       |    |		Action	Break_Optional
00e6			BODY_00e0:
00e6 e5fe       |    |		Load	0x2,-0x2
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e9 027d       | }  |		Execute	Discrete,Greater
00ea 6801       |h   |		Jump_Zero	0xec
00eb 08e0       |    |		Execute_Immediate	Raise,0xe0
00ec e5fe       |    |		Load	0x2,-0x2
00ed 00d9       |    |		Load_Top	At_Offset_1
00ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ef 0227       | '  |		Execute	Access,All_Reference
00f0 01d7       |    |		Execute	Vector,Field_Read
00f1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f2 0000 0000  |    |		.BLANK	0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e5fd       |    |		Load	0x2,-0x3
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 0227       | '  |		Execute	Access,All_Reference
00fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ff 027d       | }  |		Execute	Discrete,Greater
0100 6801       |h   |		Jump_Zero	0x102
0101 08e0       |    |		Execute_Immediate	Raise,0xe0
0102 00db       |    |		Load_Top	At_Offset_3
0103 e5fd       |    |		Load	0x2,-0x3
0104 e5ff       |    |		Load	0x2,-0x1
0105 0227       | '  |		Execute	Access,All_Reference
0106 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0107 0227       | '  |		Execute	Access,All_Reference
0108 01cf       |    |		Execute	Vector,Slice_Read
0109 0335       | 5  |		Declare_Variable	Array,Duplicate
010a 00cd       |    |		Action	Spare6_Action
010b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 011f       |    |		.CONST	0x011f								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4801       |H   |		Short_Literal	0x1
0114 00db       |    |		Load_Top	At_Offset_3
0115 0227       | '  |		Execute	Access,All_Reference
0116 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0117 e5ff       |    |		Load	0x2,-0x1
0118 0227       | '  |		Execute	Access,All_Reference
0119 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011a 0227       | '  |		Execute	Access,All_Reference
011b 01cf       |    |		Execute	Vector,Slice_Read
011c 0335       | 5  |		Declare_Variable	Array,Duplicate
011d 00cd       |    |		Action	Spare6_Action
011e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011f			TRAP_0110:
011f 0007       |    |		Action	Break_Optional
0120 4801       |H   |		Short_Literal	0x1
0121 4800       |H   |		Short_Literal	0x0
0122 00e9       |    |		Load_Encached	String_Cache
0123 035b       | [  |		Declare_Type	Array,Constrained
0124 0337       | 7  |		Declare_Variable	Array
0125 00e9       |    |		Load_Encached	String_Cache
0126 01c6       |    |		Execute	Vector,Convert_To_Formal
0127 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e228       | (  |		Load	0x1,0x28
012c 0007       |    |		Action	Break_Optional
012d			BODY_0128:
012d 00d8       |    |		Load_Top	At_Offset_0
012e 4800       |H   |		Short_Literal	0x0
012f e5ff       |    |		Load	0x2,-0x1
0130 01db       |    |		Execute	Vector,Length
0131 00d8       |    |		Load_Top	At_Offset_0
0132 00e3       |    |		Load_Encached	Natural_Cache
0133 0260       | `  |		Execute	Discrete,In_Type
0134 7001       |p   |		Jump_Nonzero	0x136
0135 0801       |    |		Execute_Immediate	Raise,0x1
0136 822f       | /  |		Call	0x1,0x2f
0137 0039       | 9  |		Store_Top	Access,At_Offset_1
0138 00d8       |    |		Load_Top	At_Offset_0
0139 e5ff       |    |		Load	0x2,-0x1
013a 8216       |    |		Call	0x1,0x16
013b 0039       | 9  |		Store_Top	Access,At_Offset_1
013c 00d8       |    |		Load_Top	At_Offset_0
013d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013e 0000 0000  |    |		.XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00db       |    |		Load_Top	At_Offset_3
0144 00db       |    |		Load_Top	At_Offset_3
0145 8213       |    |		Call	0x1,0x13
0146 8216       |    |		Call	0x1,0x16
0147 c5fe       |    |		Store	0x2,-0x2
0148 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155       | U  |		.CONST	0x0155								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
0155			BODY_0150:
0155 e5fe       |    |		Load	0x2,-0x2
0156 4800       |H   |		Short_Literal	0x0
0157 e5ff       |    |		Load	0x2,-0x1
0158 01db       |    |		Execute	Vector,Length
0159 00d8       |    |		Load_Top	At_Offset_0
015a 00e3       |    |		Load_Encached	Natural_Cache
015b 0260       | `  |		Execute	Discrete,In_Type
015c 7001       |p   |		Jump_Nonzero	0x15e
015d 0801       |    |		Execute_Immediate	Raise,0x1
015e 8230       | 0  |		Call	0x1,0x30
015f c5fe       |    |		Store	0x2,-0x2
0160 8402       |    |		Call	0x2,0x2
0161 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00db       |    |		Load_Top	At_Offset_3
016c 4800       |H   |		Short_Literal	0x0
016d 4801       |H   |		Short_Literal	0x1
016e 8230       | 0  |		Call	0x1,0x30
016f c5fe       |    |		Store	0x2,-0x2
0170 00da       |    |		Load_Top	At_Offset_2
0171 4801       |H   |		Short_Literal	0x1
0172 e5fe       |    |		Load	0x2,-0x2
0173 0227       | '  |		Execute	Access,All_Reference
0174 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0175 0227       | '  |		Execute	Access,All_Reference
0176 01d6       |    |		Execute	Vector,Field_Write
0177 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 820f       |    |		Call	0x1,0xf
017d 003b       | ;  |		Store_Top	Access,At_Offset_3
017e 00db       |    |		Load_Top	At_Offset_3
017f 003b       | ;  |		Store_Top	Access,At_Offset_3
0180 e228       | (  |		Load	0x1,0x28
0181 a5fe       |    |		Store_Unchecked	0x2,-0x2
0182 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00db       |    |		Load_Top	At_Offset_3
018c 00db       |    |		Load_Top	At_Offset_3
018d 8213       |    |		Call	0x1,0x13
018e 821a       |    |		Call	0x1,0x1a
018f c5fe       |    |		Store	0x2,-0x2
0190 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a1       |    |		.CONST	0x01a1								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b 00db       |    |		Load_Top	At_Offset_3
019c 8210       |    |		Call	0x1,0x10
019d 00e3       |    |		Load_Encached	Natural_Cache
019e 03f1       |    |		Declare_Variable	Discrete,With_Value
019f 029f 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Call
01a1			BODY_0198:
01a1 e5fe       |    |		Load	0x2,-0x2
01a2 4801       |H   |		Short_Literal	0x1
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 e5ff       |    |		Load	0x2,-0x1
01a5 01db       |    |		Execute	Vector,Length
01a6 0273       | s  |		Execute	Discrete,Plus
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 00e3       |    |		Load_Encached	Natural_Cache
01a9 0260       | `  |		Execute	Discrete,In_Type
01aa 7001       |p   |		Jump_Nonzero	0x1ac
01ab 0801       |    |		Execute_Immediate	Raise,0x1
01ac 8230       | 0  |		Call	0x1,0x30
01ad c5fe       |    |		Store	0x2,-0x2
01ae 8403       |    |		Call	0x2,0x3
01af 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b8       |    |		.CONST	0x01b8								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0002       |    |		.CONST	0x0002								; Number of locals
01b3			INIT_01b0:
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 8210       |    |		Call	0x1,0x10
01b5 0a01       |    |		Execute_Immediate	Plus,0x1
01b6 00e3       |    |		Load_Encached	Natural_Cache
01b7 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01b8			BODY_01b0:
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 4801       |H   |		Short_Literal	0x1
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 8230       | 0  |		Call	0x1,0x30
01bc c5fe       |    |		Store	0x2,-0x2
01bd 00db       |    |		Load_Top	At_Offset_3
01be 00d9       |    |		Load_Top	At_Offset_1
01bf e5fe       |    |		Load	0x2,-0x2
01c0 0227       | '  |		Execute	Access,All_Reference
01c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c2 0227       | '  |		Execute	Access,All_Reference
01c3 01d6       |    |		Execute	Vector,Field_Write
01c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01e1       |    |		.CONST	0x01e1								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb 4801       |H   |		Short_Literal	0x1
01cc e5fe       |    |		Load	0x2,-0x2
01cd 00e9       |    |		Load_Encached	String_Cache
01ce 035b       | [  |		Declare_Type	Array,Constrained
01cf 0337       | 7  |		Declare_Variable	Array
01d0 4801       |H   |		Short_Literal	0x1
01d1 e5fe       |    |		Load	0x2,-0x2
01d2 00e9       |    |		Load_Encached	String_Cache
01d3 035b       | [  |		Declare_Type	Array,Constrained
01d4 0337       | 7  |		Declare_Variable	Array
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 01dc       |    |		Execute	Vector,Last
01d7 4801       |H   |		Short_Literal	0x1
01d8 0263       | c  |		Execute	Discrete,Above_Bound
01d9 7005       |p   |		Jump_Nonzero	0x1df
01da e5ff       |    |		Load	0x2,-0x1
01db 00d9       |    |		Load_Top	At_Offset_1
01dc e403       |    |		Load	0x2,0x3
01dd 01d6       |    |		Execute	Vector,Field_Write
01de 3ffb       |?   |		Loop_Increasing	0x1da
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 01d4       |    |		Execute	Vector,Structure_Write
01e1			BODY_01c8:
01e1 e5fd       |    |		Load	0x2,-0x3
01e2 00d9       |    |		Load_Top	At_Offset_1
01e3 821a       |    |		Call	0x1,0x1a
01e4 c5fd       |    |		Store	0x2,-0x3
01e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e6 0000 0000  |    |		.XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e5fd       |    |		Load	0x2,-0x3
01ec e5fe       |    |		Load	0x2,-0x2
01ed 8213       |    |		Call	0x1,0x13
01ee e5ff       |    |		Load	0x2,-0x1
01ef 821e       |    |		Call	0x1,0x1e
01f0 c5fd       |    |		Store	0x2,-0x3
01f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f2 0000 0000  |    |		.BLANK	0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0201       |    |		.CONST	0x0201								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0003       |    |		.CONST	0x0003								; Number of locals
01fb			INIT_01f8:
01fb e5fd       |    |		Load	0x2,-0x3
01fc 8210       |    |		Call	0x1,0x10
01fd 00e3       |    |		Load_Encached	Natural_Cache
01fe 03f1       |    |		Declare_Variable	Discrete,With_Value
01ff 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
0201			BODY_01f8:
0201 e5ff       |    |		Load	0x2,-0x1
0202 00da       |    |		Load_Top	At_Offset_2
0203 0a01       |    |		Execute_Immediate	Plus,0x1
0204 027f       |    |		Execute	Discrete,Equal
0205 6805       |h   |		Jump_Zero	0x20b
0206 e5fd       |    |		Load	0x2,-0x3
0207 e5fe       |    |		Load	0x2,-0x2
0208 821a       |    |		Call	0x1,0x1a
0209 c5fd       |    |		Store	0x2,-0x3
020a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020b e5ff       |    |		Load	0x2,-0x1
020c 00da       |    |		Load_Top	At_Offset_2
020d 027a       | z  |		Execute	Discrete,Less_Equal
020e 680f       |h   |		Jump_Zero	0x21e
020f e5fd       |    |		Load	0x2,-0x3
0210 4801       |H   |		Short_Literal	0x1
0211 00db       |    |		Load_Top	At_Offset_3
0212 e5fe       |    |		Load	0x2,-0x2
0213 01db       |    |		Execute	Vector,Length
0214 0273       | s  |		Execute	Discrete,Plus
0215 00d8       |    |		Load_Top	At_Offset_0
0216 00e3       |    |		Load_Encached	Natural_Cache
0217 0260       | `  |		Execute	Discrete,In_Type
0218 7001       |p   |		Jump_Nonzero	0x21a
0219 0801       |    |		Execute_Immediate	Raise,0x1
021a 8230       | 0  |		Call	0x1,0x30
021b c5fd       |    |		Store	0x2,-0x3
021c 8403       |    |		Call	0x2,0x3
021d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021e 08e0       |    |		Execute_Immediate	Raise,0xe0
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022a       | *  |		.CONST	0x022a								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0003       |    |		.CONST	0x0003								; Number of locals
0223			INIT_0220:
0223 e5fd       |    |		Load	0x2,-0x3
0224 8210       |    |		Call	0x1,0x10
0225 0a01       |    |		Execute_Immediate	Plus,0x1
0226 00e3       |    |		Load_Encached	Natural_Cache
0227 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0228 029f 03db  |    |		Declare_Subprogram	INIT_03d8,For_Call
022a			BODY_0220:
022a e5ff       |    |		Load	0x2,-0x1
022b 00da       |    |		Load_Top	At_Offset_2
022c 027f       |    |		Execute	Discrete,Equal
022d 6805       |h   |		Jump_Zero	0x233
022e e5fd       |    |		Load	0x2,-0x3
022f e5fe       |    |		Load	0x2,-0x2
0230 821b       |    |		Call	0x1,0x1b
0231 c5fd       |    |		Store	0x2,-0x3
0232 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0233 e5ff       |    |		Load	0x2,-0x1
0234 00da       |    |		Load_Top	At_Offset_2
0235 027d       | }  |		Execute	Discrete,Greater
0236 6801       |h   |		Jump_Zero	0x238
0237 08e0       |    |		Execute_Immediate	Raise,0xe0
0238 e5fd       |    |		Load	0x2,-0x3
0239 4801       |H   |		Short_Literal	0x1
023a 00db       |    |		Load_Top	At_Offset_3
023b 8230       | 0  |		Call	0x1,0x30
023c c5fd       |    |		Store	0x2,-0x3
023d 8403       |    |		Call	0x2,0x3
023e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023f 0000       |    |		.XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0259       | Y  |		.CONST	0x0259								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 4801       |H   |		Short_Literal	0x1
0244 e5fd       |    |		Load	0x2,-0x3
0245 00e9       |    |		Load_Encached	String_Cache
0246 035b       | [  |		Declare_Type	Array,Constrained
0247 0337       | 7  |		Declare_Variable	Array
0248 4801       |H   |		Short_Literal	0x1
0249 e5fd       |    |		Load	0x2,-0x3
024a 00e9       |    |		Load_Encached	String_Cache
024b 035b       | [  |		Declare_Type	Array,Constrained
024c 0337       | 7  |		Declare_Variable	Array
024d 00d8       |    |		Load_Top	At_Offset_0
024e 01dc       |    |		Execute	Vector,Last
024f 4801       |H   |		Short_Literal	0x1
0250 0263       | c  |		Execute	Discrete,Above_Bound
0251 7005       |p   |		Jump_Nonzero	0x257
0252 e5fe       |    |		Load	0x2,-0x2
0253 00d9       |    |		Load_Top	At_Offset_1
0254 e403       |    |		Load	0x2,0x3
0255 01d6       |    |		Execute	Vector,Field_Write
0256 3ffb       |?   |		Loop_Increasing	0x252
0257 00d9       |    |		Load_Top	At_Offset_1
0258 01d4       |    |		Execute	Vector,Structure_Write
0259			BODY_0240:
0259 e5fc       |    |		Load	0x2,-0x4
025a 00d9       |    |		Load_Top	At_Offset_1
025b e5ff       |    |		Load	0x2,-0x1
025c 821e       |    |		Call	0x1,0x1e
025d c5fc       |    |		Store	0x2,-0x4
025e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
025f 0000       |    |		.XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026c       | l  |		.CONST	0x026c								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0003       |    |		.CONST	0x0003								; Number of locals
0263			INIT_0260:
0263 e5fd       |    |		Load	0x2,-0x3
0264 0227       | '  |		Execute	Access,All_Reference
0265 0007       |    |		Action	Break_Optional
0266 00d8       |    |		Load_Top	At_Offset_0
0267 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0268 e5fe       |    |		Load	0x2,-0x2
0269 0272       | r  |		Execute	Discrete,Minus
026a 00e3       |    |		Load_Encached	Natural_Cache
026b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
026c			BODY_0260:
026c e5ff       |    |		Load	0x2,-0x1
026d 0aff       |    |		Execute_Immediate	Plus,-0x1
026e 00d9       |    |		Load_Top	At_Offset_1
026f 027d       | }  |		Execute	Discrete,Greater
0270 6801       |h   |		Jump_Zero	0x272
0271 08e0       |    |		Execute_Immediate	Raise,0xe0
0272 e5ff       |    |		Load	0x2,-0x1
0273 00d9       |    |		Load_Top	At_Offset_1
0274 027a       | z  |		Execute	Discrete,Less_Equal
0275 6814       |h   |		Jump_Zero	0x28a
0276 e5ff       |    |		Load	0x2,-0x1
0277 e5fe       |    |		Load	0x2,-0x2
0278 0273       | s  |		Execute	Discrete,Plus
0279 00d8       |    |		Load_Top	At_Offset_0
027a 00e2       |    |		Load_Encached	Integer_Cache
027b 0260       | `  |		Execute	Discrete,In_Type
027c 7001       |p   |		Jump_Nonzero	0x27e
027d 0801       |    |		Execute_Immediate	Raise,0x1
027e 00da       |    |		Load_Top	At_Offset_2
027f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0280 00db       |    |		Load_Top	At_Offset_3
0281 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0282 0227       | '  |		Execute	Access,All_Reference
0283 01cf       |    |		Execute	Vector,Slice_Read
0284 e5ff       |    |		Load	0x2,-0x1
0285 00da       |    |		Load_Top	At_Offset_2
0286 e402       |    |		Load	0x2,0x2
0287 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0288 0229       | )  |		Execute	Access,All_Read
0289 01ce       |    |		Execute	Vector,Slice_Write
028a 00d8       |    |		Load_Top	At_Offset_0
028b 00da       |    |		Load_Top	At_Offset_2
028c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
028d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028e 0000 0000  |    |		.XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0296       |    |		.CONST	0x0296								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0002       |    |		.CONST	0x0002								; Number of locals
0293			INIT_0290:
0293 e5fd       |    |		Load	0x2,-0x3
0294 0227       | '  |		Execute	Access,All_Reference
0295 0007       |    |		Action	Break_Optional
0296			BODY_0290:
0296 00db       |    |		Load_Top	At_Offset_3
0297 00d9       |    |		Load_Top	At_Offset_1
0298 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0299 027d       | }  |		Execute	Discrete,Greater
029a 6801       |h   |		Jump_Zero	0x29c
029b 08e0       |    |		Execute_Immediate	Raise,0xe0
029c e5fe       |    |		Load	0x2,-0x2
029d e5ff       |    |		Load	0x2,-0x1
029e 00da       |    |		Load_Top	At_Offset_2
029f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a0 0227       | '  |		Execute	Access,All_Reference
02a1 01d6       |    |		Execute	Vector,Field_Write
02a2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02c1       |    |		.CONST	0x02c1								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0002       |    |		.CONST	0x0002								; Number of locals
02ab			INIT_02a8:
02ab 4801       |H   |		Short_Literal	0x1
02ac e5fd       |    |		Load	0x2,-0x3
02ad 00e9       |    |		Load_Encached	String_Cache
02ae 035b       | [  |		Declare_Type	Array,Constrained
02af 0337       | 7  |		Declare_Variable	Array
02b0 4801       |H   |		Short_Literal	0x1
02b1 e5fd       |    |		Load	0x2,-0x3
02b2 00e9       |    |		Load_Encached	String_Cache
02b3 035b       | [  |		Declare_Type	Array,Constrained
02b4 0337       | 7  |		Declare_Variable	Array
02b5 00d8       |    |		Load_Top	At_Offset_0
02b6 01dc       |    |		Execute	Vector,Last
02b7 4801       |H   |		Short_Literal	0x1
02b8 0263       | c  |		Execute	Discrete,Above_Bound
02b9 7005       |p   |		Jump_Nonzero	0x2bf
02ba e5fe       |    |		Load	0x2,-0x2
02bb 00d9       |    |		Load_Top	At_Offset_1
02bc e403       |    |		Load	0x2,0x3
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 3ffb       |?   |		Loop_Increasing	0x2ba
02bf 00d9       |    |		Load_Top	At_Offset_1
02c0 01d4       |    |		Execute	Vector,Structure_Write
02c1			BODY_02a8:
02c1 e5fc       |    |		Load	0x2,-0x4
02c2 00d9       |    |		Load_Top	At_Offset_1
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 8224       | $  |		Call	0x1,0x24
02c5 c5fc       |    |		Store	0x2,-0x4
02c6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02c7 0000       |    |		.XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d5       |    |		.CONST	0x02d5								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0003       |    |		.CONST	0x0003								; Number of locals
02cb			INIT_02c8:
02cb e5fd       |    |		Load	0x2,-0x3
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 0007       |    |		Action	Break_Optional
02ce 00db       |    |		Load_Top	At_Offset_3
02cf e5fe       |    |		Load	0x2,-0x2
02d0 01db       |    |		Execute	Vector,Length
02d1 0273       | s  |		Execute	Discrete,Plus
02d2 0aff       |    |		Execute_Immediate	Plus,-0x1
02d3 00e3       |    |		Load_Encached	Natural_Cache
02d4 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
02d5			BODY_02c8:
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d8 027d       | }  |		Execute	Discrete,Greater
02d9 6801       |h   |		Jump_Zero	0x2db
02da 08e0       |    |		Execute_Immediate	Raise,0xe0
02db e5fe       |    |		Load	0x2,-0x2
02dc e5ff       |    |		Load	0x2,-0x1
02dd 00da       |    |		Load_Top	At_Offset_2
02de e402       |    |		Load	0x2,0x2
02df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e0 0229       | )  |		Execute	Access,All_Read
02e1 01ce       |    |		Execute	Vector,Slice_Write
02e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb e5fd       |    |		Load	0x2,-0x3
02ec e5fe       |    |		Load	0x2,-0x2
02ed 8213       |    |		Call	0x1,0x13
02ee e5ff       |    |		Load	0x2,-0x1
02ef 8224       | $  |		Call	0x1,0x24
02f0 c5fd       |    |		Store	0x2,-0x3
02f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f2 0000 0000  |    |		.BLANK	0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0301       |    |		.CONST	0x0301								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0003       |    |		.CONST	0x0003								; Number of locals
02fb			INIT_02f8:
02fb e5fd       |    |		Load	0x2,-0x3
02fc 8210       |    |		Call	0x1,0x10
02fd 00e3       |    |		Load_Encached	Natural_Cache
02fe 03f1       |    |		Declare_Variable	Discrete,With_Value
02ff 029f 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Call
0301			BODY_02f8:
0301 e5ff       |    |		Load	0x2,-0x1
0302 00da       |    |		Load_Top	At_Offset_2
0303 027d       | }  |		Execute	Discrete,Greater
0304 6807       |h   |		Jump_Zero	0x30c
0305 e5fd       |    |		Load	0x2,-0x3
0306 4801       |H   |		Short_Literal	0x1
0307 e5ff       |    |		Load	0x2,-0x1
0308 8230       | 0  |		Call	0x1,0x30
0309 c5fd       |    |		Store	0x2,-0x3
030a 8403       |    |		Call	0x2,0x3
030b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030c e5fd       |    |		Load	0x2,-0x3
030d 6804       |h   |		Jump_Zero	0x312
030e e5ff       |    |		Load	0x2,-0x1
030f e5fd       |    |		Load	0x2,-0x3
0310 0227       | '  |		Execute	Access,All_Reference
0311 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0312 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0313 0000 0000  |    |		.BLANK	0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00da       |    |		Load_Top	At_Offset_2
031c e5fe       |    |		Load	0x2,-0x2
031d 027d       | }  |		Execute	Discrete,Greater
031e 6802       |h   |		Jump_Zero	0x321
031f 00da       |    |		Load_Top	At_Offset_2
0320 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0321 00db       |    |		Load_Top	At_Offset_3
0322 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0323 0000 0000  |    |		.BLANK	0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 6811       |h   |		Jump_Zero	0x33e
032d 00da       |    |		Load_Top	At_Offset_2
032e 0227       | '  |		Execute	Access,All_Reference
032f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0330 4fff       |O   |		Short_Literal	-0x1
0331 027e       | ~  |		Execute	Discrete,Not_Equal
0332 680b       |h   |		Jump_Zero	0x33e
0333 00da       |    |		Load_Top	At_Offset_2
0334 0227       | '  |		Execute	Access,All_Reference
0335 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0336 0227       | '  |		Execute	Access,All_Reference
0337 01db       |    |		Execute	Vector,Length
0338 00d8       |    |		Load_Top	At_Offset_0
0339 00e3       |    |		Load_Encached	Natural_Cache
033a 0260       | `  |		Execute	Discrete,In_Type
033b 7001       |p   |		Jump_Nonzero	0x33d
033c 0801       |    |		Execute_Immediate	Raise,0x1
033d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033e 4800       |H   |		Short_Literal	0x0
033f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0347       | G  |		.CONST	0x0347								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0003       |    |		.CONST	0x0003								; Number of locals
0343			INIT_0340:
0343 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
0345 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
0347			BODY_0340:
0347 e5fd       |    |		Load	0x2,-0x3
0348 e22c       | ,  |		Load	0x1,0x2c
0349 8403       |    |		Call	0x2,0x3
034a 00d1       |    |		Pop_Control	Pop_Count_1
034b c5fd       |    |		Store	0x2,-0x3
034c e5fd       |    |		Load	0x2,-0x3
034d 7013       |p   |		Jump_Nonzero	0x361
034e e22a       | *  |		Load	0x1,0x2a
034f 0322       | "  |		Declare_Variable	Record
0350 e5ff       |    |		Load	0x2,-0x1
0351 00d9       |    |		Load_Top	At_Offset_1
0352 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0353 4801       |H   |		Short_Literal	0x1
0354 e5ff       |    |		Load	0x2,-0x1
0355 8402       |    |		Call	0x2,0x2
0356 e227       | '  |		Load	0x1,0x27
0357 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0358 00d9       |    |		Load_Top	At_Offset_1
0359 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
035a e228       | (  |		Load	0x1,0x28
035b 00d9       |    |		Load_Top	At_Offset_1
035c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
035d e228       | (  |		Load	0x1,0x28
035e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
035f a5fd       |    |		Store_Unchecked	0x2,-0x3
0360 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0361 e5ff       |    |		Load	0x2,-0x1
0362 e5fd       |    |		Load	0x2,-0x3
0363 0227       | '  |		Execute	Access,All_Reference
0364 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0365 e228       | (  |		Load	0x1,0x28
0366 e5fd       |    |		Load	0x2,-0x3
0367 0227       | '  |		Execute	Access,All_Reference
0368 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0369 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
036a 0000 0000  |    |		.BLANK	0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0379       | y  |		.CONST	0x0379								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0003       |    |		.CONST	0x0003								; Number of locals
0373			INIT_0370:
0373 e5fd       |    |		Load	0x2,-0x3
0374 822e       | .  |		Call	0x1,0x2e
0375 00e3       |    |		Load_Encached	Natural_Cache
0376 03f1       |    |		Declare_Variable	Discrete,With_Value
0377 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
0379			BODY_0370:
0379 00d9       |    |		Load_Top	At_Offset_1
037a 7006       |p   |		Jump_Nonzero	0x381
037b e5fd       |    |		Load	0x2,-0x3
037c 4800       |H   |		Short_Literal	0x0
037d e5ff       |    |		Load	0x2,-0x1
037e 822f       | /  |		Call	0x1,0x2f
037f c5fd       |    |		Store	0x2,-0x3
0380 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0381 00d9       |    |		Load_Top	At_Offset_1
0382 e5ff       |    |		Load	0x2,-0x1
0383 027b       | {  |		Execute	Discrete,Greater_Equal
0384 6805       |h   |		Jump_Zero	0x38a
0385 e5ff       |    |		Load	0x2,-0x1
0386 e5fd       |    |		Load	0x2,-0x3
0387 0227       | '  |		Execute	Access,All_Reference
0388 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0389 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038a 8403       |    |		Call	0x2,0x3
038b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038c 0000 0000  |    |		.BLANK	0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0396       |    |		.CONST	0x0396								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0002       |    |		.CONST	0x0002								; Number of locals
0393			INIT_0390:
0393 e5fe       |    |		Load	0x2,-0x2
0394 0227       | '  |		Execute	Access,All_Reference
0395 0007       |    |		Action	Break_Optional
0396			BODY_0390:
0396 e5ff       |    |		Load	0x2,-0x1
0397 4801       |H   |		Short_Literal	0x1
0398 e5ff       |    |		Load	0x2,-0x1
0399 01db       |    |		Execute	Vector,Length
039a 00d8       |    |		Load_Top	At_Offset_0
039b 00e2       |    |		Load_Encached	Integer_Cache
039c 0260       | `  |		Execute	Discrete,In_Type
039d 7001       |p   |		Jump_Nonzero	0x39f
039e 0801       |    |		Execute_Immediate	Raise,0x1
039f 00db       |    |		Load_Top	At_Offset_3
03a0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a1 0229       | )  |		Execute	Access,All_Read
03a2 01ce       |    |		Execute	Vector,Slice_Write
03a3 e5ff       |    |		Load	0x2,-0x1
03a4 01db       |    |		Execute	Vector,Length
03a5 00d9       |    |		Load_Top	At_Offset_1
03a6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ae       |    |		.CONST	0x03ae								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab e5fe       |    |		Load	0x2,-0x2
03ac 0227       | '  |		Execute	Access,All_Reference
03ad 0007       |    |		Action	Break_Optional
03ae			BODY_03a8:
03ae e5ff       |    |		Load	0x2,-0x1
03af e402       |    |		Load	0x2,0x2
03b0 0a01       |    |		Execute_Immediate	Plus,0x1
03b1 00d8       |    |		Load_Top	At_Offset_0
03b2 00e2       |    |		Load_Encached	Integer_Cache
03b3 0260       | `  |		Execute	Discrete,In_Type
03b4 7001       |p   |		Jump_Nonzero	0x3b6
03b5 0801       |    |		Execute_Immediate	Raise,0x1
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b8 00db       |    |		Load_Top	At_Offset_3
03b9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ba 0229       | )  |		Execute	Access,All_Read
03bb 01ce       |    |		Execute	Vector,Slice_Write
03bc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c6       |    |		.CONST	0x03c6								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 e5fd       |    |		Load	0x2,-0x3
03c4 0227       | '  |		Execute	Access,All_Reference
03c5 0007       |    |		Action	Break_Optional
03c6			BODY_03c0:
03c6 e5fe       |    |		Load	0x2,-0x2
03c7 e5ff       |    |		Load	0x2,-0x1
03c8 e402       |    |		Load	0x2,0x2
03c9 00db       |    |		Load_Top	At_Offset_3
03ca 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03cb 0227       | '  |		Execute	Access,All_Reference
03cc 01cf       |    |		Execute	Vector,Slice_Read
03cd 01cc       |    |		Execute	Vector,Catenate
03ce e5ff       |    |		Load	0x2,-0x1
03cf 00da       |    |		Load_Top	At_Offset_2
03d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d1 00db       |    |		Load_Top	At_Offset_3
03d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03d3 0229       | )  |		Execute	Access,All_Read
03d4 01ce       |    |		Execute	Vector,Slice_Write
03d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03d6 0000 0000  |    |		.XXX[0x2]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03de       |    |		.CONST	0x03de								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0002       |    |		.CONST	0x0002								; Number of locals
03db			INIT_03d8:
03db e5fd       |    |		Load	0x2,-0x3
03dc 0227       | '  |		Execute	Access,All_Reference
03dd 0007       |    |		Action	Break_Optional
03de			BODY_03d8:
03de e5ff       |    |		Load	0x2,-0x1
03df e402       |    |		Load	0x2,0x2
03e0 0aff       |    |		Execute_Immediate	Plus,-0x1
03e1 00da       |    |		Load_Top	At_Offset_2
03e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03e3 0227       | '  |		Execute	Access,All_Reference
03e4 01cf       |    |		Execute	Vector,Slice_Read
03e5 e5ff       |    |		Load	0x2,-0x1
03e6 0a01       |    |		Execute_Immediate	Plus,0x1
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 00e2       |    |		Load_Encached	Integer_Cache
03e9 0260       | `  |		Execute	Discrete,In_Type
03ea 7001       |p   |		Jump_Nonzero	0x3ec
03eb 0801       |    |		Execute_Immediate	Raise,0x1
03ec e402       |    |		Load	0x2,0x2
03ed 00db       |    |		Load_Top	At_Offset_3
03ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03ef 0229       | )  |		Execute	Access,All_Read
03f0 01ce       |    |		Execute	Vector,Slice_Write
03f1 e5fe       |    |		Load	0x2,-0x2
03f2 e5ff       |    |		Load	0x2,-0x1
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f5 0227       | '  |		Execute	Access,All_Reference
03f6 01d6       |    |		Execute	Vector,Field_Write
03f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03ff       |    |		.CONST	0x03ff								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0002       |    |		.CONST	0x0002								; Number of locals
03fb			INIT_03f8:
03fb e5fd       |    |		Load	0x2,-0x3
03fc 0227       | '  |		Execute	Access,All_Reference
03fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03fe 0227       | '  |		Execute	Access,All_Reference
03ff			BODY_03f8:
03ff 00cf       |    |		Action	Mark_Auxiliary
0400 e5ff       |    |		Load	0x2,-0x1
0401 e402       |    |		Load	0x2,0x2
0402 0a01       |    |		Execute_Immediate	Plus,0x1
0403 00d8       |    |		Load_Top	At_Offset_0
0404 00e2       |    |		Load_Encached	Integer_Cache
0405 0260       | `  |		Execute	Discrete,In_Type
0406 7001       |p   |		Jump_Nonzero	0x408
0407 0801       |    |		Execute_Immediate	Raise,0x1
0408 0263       | c  |		Execute	Discrete,Above_Bound
0409 7006       |p   |		Jump_Nonzero	0x410
040a e5fe       |    |		Load	0x2,-0x2
040b 00d9       |    |		Load_Top	At_Offset_1
040c e602       |    |		Load	0x3,0x2
040d 01d6       |    |		Execute	Vector,Field_Write
040e 00c8       |    |		Action	Pop_Auxiliary_Range
040f 3ffa       |?   |		Loop_Increasing	0x40a
0410 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b e5fe       |    |		Load	0x2,-0x2
041c 680f       |h   |		Jump_Zero	0x42c
041d e20e       |    |		Load	0x1,0xe
041e 00db       |    |		Load_Top	At_Offset_3
041f 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0420 00d8       |    |		Load_Top	At_Offset_0
0421 00e2       |    |		Load_Encached	Integer_Cache
0422 0260       | `  |		Execute	Discrete,In_Type
0423 7001       |p   |		Jump_Nonzero	0x425
0424 0801       |    |		Execute_Immediate	Raise,0x1
0425 822d       | -  |		Call	0x1,0x2d
0426 00d8       |    |		Load_Top	At_Offset_0
0427 00e3       |    |		Load_Encached	Natural_Cache
0428 0260       | `  |		Execute	Discrete,In_Type
0429 7001       |p   |		Jump_Nonzero	0x42b
042a 0801       |    |		Execute_Immediate	Raise,0x1
042b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042c e20e       |    |		Load	0x1,0xe
042d 00db       |    |		Load_Top	At_Offset_3
042e 822d       | -  |		Call	0x1,0x2d
042f 00d8       |    |		Load_Top	At_Offset_0
0430 00e3       |    |		Load_Encached	Natural_Cache
0431 0260       | `  |		Execute	Discrete,In_Type
0432 7001       |p   |		Jump_Nonzero	0x434
0433 0801       |    |		Execute_Immediate	Raise,0x1
0434 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0435 0000 0000  |    |		.XXX[0x3]
0437 0000       |    |
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
043d a7fe       |    |		Store_Unchecked	0x3,-0x2
043e 00db       |    |		Load_Top	At_Offset_3
043f 681a       |h   |		Jump_Zero	0x45a
0440 00db       |    |		Load_Top	At_Offset_3
0441 0227       | '  |		Execute	Access,All_Reference
0442 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0443 0227       | '  |		Execute	Access,All_Reference
0444 01db       |    |		Execute	Vector,Length
0445 e5ff       |    |		Load	0x2,-0x1
0446 027d       | }  |		Execute	Discrete,Greater
0447 680a       |h   |		Jump_Zero	0x452
0448 00db       |    |		Load_Top	At_Offset_3
0449 0227       | '  |		Execute	Access,All_Reference
044a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
044b 00db       |    |		Load_Top	At_Offset_3
044c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
044d e228       | (  |		Load	0x1,0x28
044e e7fe       |    |		Load	0x3,-0x2
044f 0227       | '  |		Execute	Access,All_Reference
0450 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0451 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0452 00db       |    |		Load_Top	At_Offset_3
0453 0229       | )  |		Execute	Access,All_Read
0454 e7fe       |    |		Load	0x3,-0x2
0455 00d9       |    |		Load_Top	At_Offset_1
0456 8403       |    |		Call	0x2,0x3
0457 00d1       |    |		Pop_Control	Pop_Count_1
0458 c7fe       |    |		Store	0x3,-0x2
0459 00d1       |    |		Pop_Control	Pop_Count_1
045a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
045b 0000 0000  |    |		.BLANK	0000[0x5]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0465       | e  |		.CONST	0x0465								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0002       |    |		.CONST	0x0002								; Number of locals
0463			INIT_0460:
0463 e228       | (  |		Load	0x1,0x28
0464 0007       |    |		Action	Break_Optional
0465			BODY_0460:
0465 00d8       |    |		Load_Top	At_Offset_0
0466 e5fe       |    |		Load	0x2,-0x2
0467 e5ff       |    |		Load	0x2,-0x1
0468 822f       | /  |		Call	0x1,0x2f
0469 0039       | 9  |		Store_Top	Access,At_Offset_1
046a e5fe       |    |		Load	0x2,-0x2
046b 6812       |h   |		Jump_Zero	0x47e
046c 4801       |H   |		Short_Literal	0x1
046d e5fd       |    |		Load	0x2,-0x3
046e 0227       | '  |		Execute	Access,All_Reference
046f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0470 e5fd       |    |		Load	0x2,-0x3
0471 0227       | '  |		Execute	Access,All_Reference
0472 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0473 0227       | '  |		Execute	Access,All_Reference
0474 01cf       |    |		Execute	Vector,Slice_Read
0475 4801       |H   |		Short_Literal	0x1
0476 e5fd       |    |		Load	0x2,-0x3
0477 0227       | '  |		Execute	Access,All_Reference
0478 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0479 00db       |    |		Load_Top	At_Offset_3
047a 0229       | )  |		Execute	Access,All_Read
047b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047c 0229       | )  |		Execute	Access,All_Read
047d 01ce       |    |		Execute	Vector,Slice_Write
047e 00d8       |    |		Load_Top	At_Offset_0
047f e5fd       |    |		Load	0x2,-0x3
0480 8218       |    |		Call	0x1,0x18
0481 c5fd       |    |		Store	0x2,-0x3
0482 0039       | 9  |		Store_Top	Access,At_Offset_1
0483 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0484 0000 0000  |    |		.BLANK	0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug Table
0488 ; --------------------------------------------------------------------------------------
0488 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x97dd,0x0000,0x0001,0x0026
048e 000b 0526  |   &|		.DBG4T	0x000b,0x0526,0xc000,0x8000
0492 006d 0564  | m d|		.DBG4T	0x006d,0x0564,0xc000,0x8000
0496 00ab 059e  |    |		.DBG4T	0x00ab,0x059e,0x1001,0x0000
049a 00cb 05a6  |    |		.DBG4T	0x00cb,0x05a6,0x1002,0x0000
049e 00e3 05ac  |    |		.DBG4T	0x00e3,0x05ac,0x1002,0x0000
04a2 00fb 05b2  |    |		.DBG4T	0x00fb,0x05b2,0x1002,0x0000
04a6 0113 05b7  |    |		.DBG4T	0x0113,0x05b7,0x1002,0x0000
04aa 012b 05bb  | +  |		.DBG4T	0x012b,0x05bb,0x1002,0x0000
04ae 0143 05c1  | C  |		.DBG4T	0x0143,0x05c1,0x1001,0x0000
04b2 0153 05c4  | S  |		.DBG4T	0x0153,0x05c4,0x1001,0x0000
04b6 016b 05c8  | k  |		.DBG4T	0x016b,0x05c8,0x1001,0x0000
04ba 017b 05cc  | {  |		.DBG4T	0x017b,0x05cc,0x1001,0x0000
04be 018b 05d1  |    |		.DBG4T	0x018b,0x05d1,0x1001,0x0000
04c2 019b 05d4  |    |		.DBG4T	0x019b,0x05d4,0x1001,0x0000
04c6 01b3 05d9  |    |		.DBG4T	0x01b3,0x05d9,0x1001,0x0000
04ca 01cb 05de  |    |		.DBG4T	0x01cb,0x05de,0x1001,0x0000
04ce 01eb 05e2  |    |		.DBG4T	0x01eb,0x05e2,0x1001,0x0000
04d2 01fb 05e5  |    |		.DBG4T	0x01fb,0x05e5,0x1001,0x0000
04d6 0223 05ee  | #  |		.DBG4T	0x0223,0x05ee,0x1001,0x0000
04da 0243 05f7  | C  |		.DBG4T	0x0243,0x05f7,0x1001,0x0000
04de 0263 05fb  | c  |		.DBG4T	0x0263,0x05fb,0x1001,0x0000
04e2 0293 0604  |    |		.DBG4T	0x0293,0x0604,0x1001,0x0000
04e6 02ab 060a  |    |		.DBG4T	0x02ab,0x060a,0x1001,0x0000
04ea 02cb 060e  |    |		.DBG4T	0x02cb,0x060e,0x1001,0x0000
04ee 02eb 0615  |    |		.DBG4T	0x02eb,0x0615,0x1001,0x0000
04f2 02fb 0618  |    |		.DBG4T	0x02fb,0x0618,0x1001,0x0000
04f6 031b 0620  |    |		.DBG4T	0x031b,0x0620,0x1002,0x0000
04fa 032b 0625  | + %|		.DBG4T	0x032b,0x0625,0x1002,0x0000
04fe 0343 062a  | C *|		.DBG4T	0x0343,0x062a,0x1001,0x0000
0502 0373 0633  | s 3|		.DBG4T	0x0373,0x0633,0x1001,0x0000
0506 0393 063b  |   ;|		.DBG4T	0x0393,0x063b,0x1004,0x0000
050a 03ab 0640  |   @|		.DBG4T	0x03ab,0x0640,0x1004,0x0000
050e 03c3 0644  |   D|		.DBG4T	0x03c3,0x0644,0x1004,0x0000
0512 03db 0648  |   H|		.DBG4T	0x03db,0x0648,0x1004,0x0000
0516 03fb 064d  |   M|		.DBG4T	0x03fb,0x064d,0x1004,0x0000
051a 041b 0652  |   R|		.DBG4T	0x041b,0x0652,0x1002,0x0000
051e 043b 0657  | ; W|		.DBG4T	0x043b,0x0657,0x1001,0x0000
0522 0463 065f  | c _|		.DBG4T	0x0463,0x065f,0x1004,0x0000
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug chain
0526 ; --------------------------------------------------------------------------------------
0526 001e 0000  |    |		.DBGLEN	0x001e,0x0000
0528 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003f,0x0041,0x0045,0x004f,0x0054
0546 0003 0004  |    |		.XXX[0x1e]
0548 0005 0006  |    |
054a 0007 0008  |    |
054c 0009 000a  |    |
054e 000b 000c  |    |
0550 000d 000e  |    |
0552 000f 0010  |    |
0554 0011 0012  |    |
0556 0013 0014  |    |
0558 0015 0016  |    |
055a 0017 0018  |    |
055c 0019 001a  |    |
055e 001b 001d  |    |
0560 001e 001f  |    |
0562 0020 0022  |   "|
0564 ; --------------------------------------------------------------------------------------
0564 ; Debug chain
0564 ; --------------------------------------------------------------------------------------
0564 001c 0000  |    |		.DBGLEN	0x001c,0x0000
0566 006d 006f  | m o|		.DBGLNO	0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3
0582 0001 0003  |    |		.XXX[0x1c]
0584 0004 0005  |    |
0586 0006 0007  |    |
0588 0008 0009  |    |
058a 000a 000b  |    |
058c 000c 000d  |    |
058e 000e 000f  |    |
0590 0010 0011  |    |
0592 0012 0013  |    |
0594 0014 0015  |    |
0596 0016 0017  |    |
0598 0018 0019  |    |
059a 001a 001b  |    |
059c 001c 001d  |    |
059e ; --------------------------------------------------------------------------------------
059e ; Debug chain
059e ; --------------------------------------------------------------------------------------
059e 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05a0 00ab 00ad  |    |		.DBGLNO	0x00ab,0x00ad,0x00b3,0x00b8,0x00bc,0x00bf
05a6 ; --------------------------------------------------------------------------------------
05a6 ; Debug chain
05a6 ; --------------------------------------------------------------------------------------
05a6 0000 0004  |    |		.DBGLEN	0x0000,0x0004
05a8 00cb 00cd  |    |		.DBGLNO	0x00cb,0x00cd,0x00d6,0x00d9
05ac ; --------------------------------------------------------------------------------------
05ac ; Debug chain
05ac ; --------------------------------------------------------------------------------------
05ac 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05ae 00e3 00e6  |    |		.DBGLNO	0x00e3,0x00e6,0x00eb,0x00ec
05b2 ; --------------------------------------------------------------------------------------
05b2 ; Debug chain
05b2 ; --------------------------------------------------------------------------------------
05b2 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05b4 00fb 0101  |    |		.DBGLNO	0x00fb,0x0101,0x0102
05b7 ; --------------------------------------------------------------------------------------
05b7 ; Debug chain
05b7 ; --------------------------------------------------------------------------------------
05b7 0000 0002  |    |		.DBGLEN	0x0000,0x0002
05b9 0113 0120  |    |		.DBGLNO	0x0113,0x0120
05bb ; --------------------------------------------------------------------------------------
05bb ; Debug chain
05bb ; --------------------------------------------------------------------------------------
05bb 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05bd 012b 012d  | + -|		.DBGLNO	0x012b,0x012d,0x0138,0x013c
05c1 ; --------------------------------------------------------------------------------------
05c1 ; Debug chain
05c1 ; --------------------------------------------------------------------------------------
05c1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05c3 0143       | C  |		.DBGLNO	0x0143
05c4 ; --------------------------------------------------------------------------------------
05c4 ; Debug chain
05c4 ; --------------------------------------------------------------------------------------
05c4 0000 0002  |    |		.DBGLEN	0x0000,0x0002
05c6 0155 0160  | U `|		.DBGLNO	0x0155,0x0160
05c8 ; --------------------------------------------------------------------------------------
05c8 ; Debug chain
05c8 ; --------------------------------------------------------------------------------------
05c8 0000 0002  |    |		.DBGLEN	0x0000,0x0002
05ca 016b 0170  | k p|		.DBGLNO	0x016b,0x0170
05cc ; --------------------------------------------------------------------------------------
05cc ; Debug chain
05cc ; --------------------------------------------------------------------------------------
05cc 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05ce 017b 017e  | { ~|		.DBGLNO	0x017b,0x017e,0x0180
05d1 ; --------------------------------------------------------------------------------------
05d1 ; Debug chain
05d1 ; --------------------------------------------------------------------------------------
05d1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05d3 018b       |    |		.DBGLNO	0x018b
05d4 ; --------------------------------------------------------------------------------------
05d4 ; Debug chain
05d4 ; --------------------------------------------------------------------------------------
05d4 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05d6 019b 01a1  |    |		.DBGLNO	0x019b,0x01a1,0x01ae
05d9 ; --------------------------------------------------------------------------------------
05d9 ; Debug chain
05d9 ; --------------------------------------------------------------------------------------
05d9 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05db 01b3 01b8  |    |		.DBGLNO	0x01b3,0x01b8,0x01bd
05de ; --------------------------------------------------------------------------------------
05de ; Debug chain
05de ; --------------------------------------------------------------------------------------
05de 0001 0001  |    |		.DBGLEN	0x0001,0x0001
05e0 01cb 01e1  |    |		.DBGLNO	0x01cb,0x01e1
05e2 ; --------------------------------------------------------------------------------------
05e2 ; Debug chain
05e2 ; --------------------------------------------------------------------------------------
05e2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05e4 01eb       |    |		.DBGLNO	0x01eb
05e5 ; --------------------------------------------------------------------------------------
05e5 ; Debug chain
05e5 ; --------------------------------------------------------------------------------------
05e5 0001 0006  |    |		.DBGLEN	0x0001,0x0006
05e7 01fb 0201  |    |		.DBGLNO	0x01fb,0x0201,0x0206,0x020b,0x020f,0x021c,0x021e
05ee ; --------------------------------------------------------------------------------------
05ee ; Debug chain
05ee ; --------------------------------------------------------------------------------------
05ee 0001 0006  |    |		.DBGLEN	0x0001,0x0006
05f0 0223 022a  | # *|		.DBGLNO	0x0223,0x022a,0x022e,0x0233,0x0237,0x0238,0x023d
05f7 ; --------------------------------------------------------------------------------------
05f7 ; Debug chain
05f7 ; --------------------------------------------------------------------------------------
05f7 0001 0001  |    |		.DBGLEN	0x0001,0x0001
05f9 0243 0259  | C Y|		.DBGLNO	0x0243,0x0259
05fb ; --------------------------------------------------------------------------------------
05fb ; Debug chain
05fb ; --------------------------------------------------------------------------------------
05fb 0002 0005  |    |		.DBGLEN	0x0002,0x0005
05fd 0263 0266  | c f|		.DBGLNO	0x0263,0x0266,0x026c,0x0271,0x0272,0x0276,0x028a
0604 ; --------------------------------------------------------------------------------------
0604 ; Debug chain
0604 ; --------------------------------------------------------------------------------------
0604 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0606 0293 0296  |    |		.DBGLNO	0x0293,0x0296,0x029b,0x029c
060a ; --------------------------------------------------------------------------------------
060a ; Debug chain
060a ; --------------------------------------------------------------------------------------
060a 0001 0001  |    |		.DBGLEN	0x0001,0x0001
060c 02ab 02c1  |    |		.DBGLNO	0x02ab,0x02c1
060e ; --------------------------------------------------------------------------------------
060e ; Debug chain
060e ; --------------------------------------------------------------------------------------
060e 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0610 02cb 02ce  |    |		.DBGLNO	0x02cb,0x02ce,0x02d5,0x02da,0x02db
0615 ; --------------------------------------------------------------------------------------
0615 ; Debug chain
0615 ; --------------------------------------------------------------------------------------
0615 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0617 02eb       |    |		.DBGLNO	0x02eb
0618 ; --------------------------------------------------------------------------------------
0618 ; Debug chain
0618 ; --------------------------------------------------------------------------------------
0618 0001 0005  |    |		.DBGLEN	0x0001,0x0005
061a 02fb 0301  |    |		.DBGLNO	0x02fb,0x0301,0x0305,0x030a,0x030c,0x030e
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug chain
0620 ; --------------------------------------------------------------------------------------
0620 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0622 031b 031f  |    |		.DBGLNO	0x031b,0x031f,0x0321
0625 ; --------------------------------------------------------------------------------------
0625 ; Debug chain
0625 ; --------------------------------------------------------------------------------------
0625 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0627 032b 0333  | + 3|		.DBGLNO	0x032b,0x0333,0x033e
062a ; --------------------------------------------------------------------------------------
062a ; Debug chain
062a ; --------------------------------------------------------------------------------------
062a 0002 0005  |    |		.DBGLEN	0x0002,0x0005
062c 0343 0345  | C E|		.DBGLNO	0x0343,0x0345,0x0347,0x034c,0x034e,0x0361,0x0365
0633 ; --------------------------------------------------------------------------------------
0633 ; Debug chain
0633 ; --------------------------------------------------------------------------------------
0633 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0635 0373 0379  | s y|		.DBGLNO	0x0373,0x0379,0x037b,0x0381,0x0385,0x038a
063b ; --------------------------------------------------------------------------------------
063b ; Debug chain
063b ; --------------------------------------------------------------------------------------
063b 0001 0002  |    |		.DBGLEN	0x0001,0x0002
063d 0393 0396  |    |		.DBGLNO	0x0393,0x0396,0x03a3
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug chain
0640 ; --------------------------------------------------------------------------------------
0640 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0642 03ab 03ae  |    |		.DBGLNO	0x03ab,0x03ae
0644 ; --------------------------------------------------------------------------------------
0644 ; Debug chain
0644 ; --------------------------------------------------------------------------------------
0644 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0646 03c3 03c6  |    |		.DBGLNO	0x03c3,0x03c6
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0001 0002  |    |		.DBGLEN	0x0001,0x0002
064a 03db 03de  |    |		.DBGLNO	0x03db,0x03de,0x03f1
064d ; --------------------------------------------------------------------------------------
064d ; Debug chain
064d ; --------------------------------------------------------------------------------------
064d 0001 0002  |    |		.DBGLEN	0x0001,0x0002
064f 03fb 0400  |    |		.DBGLNO	0x03fb,0x0400,0x040a
0652 ; --------------------------------------------------------------------------------------
0652 ; Debug chain
0652 ; --------------------------------------------------------------------------------------
0652 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0654 041b 041d  |    |		.DBGLNO	0x041b,0x041d,0x042c
0657 ; --------------------------------------------------------------------------------------
0657 ; Debug chain
0657 ; --------------------------------------------------------------------------------------
0657 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0659 043b 043e  | ; >|		.DBGLNO	0x043b,0x043e,0x0440,0x0448,0x044d,0x0452
065f ; --------------------------------------------------------------------------------------
065f ; Debug chain
065f ; --------------------------------------------------------------------------------------
065f 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0661 0463 0465  | c e|		.DBGLNO	0x0463,0x0465,0x046a,0x046c,0x047e
0666 0000 0000  |    |		.BLANK	0000[0x19a]