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

⟦289c19cd6⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_4cb8c3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0658       | X  |		.CONST	0x0658								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ce       |    |		.CONST	0x00ce								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0042       | B  |		.CONST	0x0042								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60fe       |`   |		Indirect_Literal	Discrete,0x10c,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 00db       |    |		Load_Top	At_Offset_3
0010 60f7       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
0011 0279       | y  |		Execute	Discrete,And
0012 0273       | s  |		Execute	Discrete,Plus
0013 0129       | )  |		Execute	Any,Make_Visible
0014 0093 0000  |    |		push_full_address	0x0
0016 60ed       |`   |		Indirect_Literal	Discrete,0x104,{0x80000000, 0x00020000}
0017 0273       | s  |		Execute	Discrete,Plus
0018 e20d       |    |		Load	0x1,0xd
0019 60ee       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
001a 0279       | y  |		Execute	Discrete,And
001b 0273       | s  |		Execute	Discrete,Plus
001c 0129       | )  |		Execute	Any,Make_Visible
001d 0093 0000  |    |		push_full_address	0x0
001f 60e0       |`   |		Indirect_Literal	Discrete,0x100,{0x80000000, 0x00030000}
0020 0273       | s  |		Execute	Discrete,Plus
0021 e20d       |    |		Load	0x1,0xd
0022 60e5       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
0023 0279       | y  |		Execute	Discrete,And
0024 0273       | s  |		Execute	Discrete,Plus
0025 0129       | )  |		Execute	Any,Make_Visible
0026 0093 0000  |    |		push_full_address	0x0
0028 60d3       |`   |		Indirect_Literal	Discrete,0xfc,{0x80000000, 0x00040000}
0029 0273       | s  |		Execute	Discrete,Plus
002a e20d       |    |		Load	0x1,0xd
002b 60dc       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
002c 0279       | y  |		Execute	Discrete,And
002d 0273       | s  |		Execute	Discrete,Plus
002e 0129       | )  |		Execute	Any,Make_Visible
002f 0093 0000  |    |		push_full_address	0x0
0031 60c6       |`   |		Indirect_Literal	Discrete,0xf8,{0x80000000, 0x00050000}
0032 0273       | s  |		Execute	Discrete,Plus
0033 e20d       |    |		Load	0x1,0xd
0034 60d3       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000ffff}
0035 0279       | y  |		Execute	Discrete,And
0036 0273       | s  |		Execute	Discrete,Plus
0037 0129       | )  |		Execute	Any,Make_Visible
0038 4800       |H   |		Short_Literal	0x0
0039 4802       |H   |		Short_Literal	0x2
003a 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
003c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
003d 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
003f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0041 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0043 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0045 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0047 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0049 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
004b 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
004d 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
004f 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0051 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0053 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0055 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
0057 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0059 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
005b 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
005d 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
005f 4818       |H   |		Short_Literal	0x18
0060 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0061 e20e       |    |		Load	0x1,0xe
0062 00d9       |    |		Load_Top	At_Offset_1
0063 00da       |    |		Load_Top	At_Offset_2
0064 029f 0623  |   #|		Declare_Subprogram	INIT_0620,For_Call
0066 4803       |H   |		Short_Literal	0x3
0067 032e       | .  |		Declare_Type	Record,Defined,Visible
0068 00d8       |    |		Load_Top	At_Offset_0
0069 02a0       |    |		Declare_Subprogram	Null_Subprogram
006a 00db       |    |		Load_Top	At_Offset_3
006b 03c7       |    |		Complete_Type	Access,By_Defining
006c 00e3       |    |		Load_Encached	Natural_Cache
006d 00da       |    |		Load_Top	At_Offset_2
006e 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
0070 4802       |H   |		Short_Literal	0x2
0071 032e       | .  |		Declare_Type	Record,Defined,Visible
0072 00d8       |    |		Load_Top	At_Offset_0
0073 02a0       |    |		Declare_Subprogram	Null_Subprogram
0074 4818       |H   |		Short_Literal	0x18
0075 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0076 4800       |H   |		Short_Literal	0x0
0077 4803       |H   |		Short_Literal	0x3
0078 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
007a 03fe       |    |		Declare_Type	Discrete,Defined,Visible
007b 4818       |H   |		Short_Literal	0x18
007c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
007d 00d9       |    |		Load_Top	At_Offset_1
007e 00d9       |    |		Load_Top	At_Offset_1
007f e227       | '  |		Load	0x1,0x27
0080 02a0       |    |		Declare_Subprogram	Null_Subprogram
0081 4803       |H   |		Short_Literal	0x3
0082 032e       | .  |		Declare_Type	Record,Defined,Visible
0083 00d8       |    |		Load_Top	At_Offset_0
0084 02a0       |    |		Declare_Subprogram	Null_Subprogram
0085 00db       |    |		Load_Top	At_Offset_3
0086 03c7       |    |		Complete_Type	Access,By_Defining
0087 00bf       |    |		Action	Accept_Activation
0088 a002       |    |		Store_Unchecked	0x0,0x2
0089 00c6       |    |		Action	Check_Subprogram_Elaborated
008a e228       | (  |		Load	0x1,0x28
008b e227       | '  |		Load	0x1,0x27
008c e003       |    |		Load	0x0,0x3
008d e004       |    |		Load	0x0,0x4
008e 4800       |H   |		Short_Literal	0x0
008f 0007       |    |		Action	Break_Optional
0090 a002       |    |		Store_Unchecked	0x0,0x2
0091 00c6       |    |		Action	Check_Subprogram_Elaborated
0092 e229       | )  |		Load	0x1,0x29
0093 e22a       | *  |		Load	0x1,0x2a
0094 e005       |    |		Load	0x0,0x5
0095 e006       |    |		Load	0x0,0x6
0096 4800       |H   |		Short_Literal	0x0
0097 0007       |    |		Action	Break_Optional
0098 a002       |    |		Store_Unchecked	0x0,0x2
0099 00c6       |    |		Action	Check_Subprogram_Elaborated
009a e22d       | -  |		Load	0x1,0x2d
009b e22c       | ,  |		Load	0x1,0x2c
009c e007       |    |		Load	0x0,0x7
009d e008       |    |		Load	0x0,0x8
009e 4800       |H   |		Short_Literal	0x0
009f 0007       |    |		Action	Break_Optional
00a0 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 029d 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call
00a4 029d 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call
00a6 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 029d 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call
00ae 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call
00ba 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 029d 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call
00c6 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 029d 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call
00cc 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce			BODY_0008:
00ce 00bc       |    |		Action	Signal_Activated
00cf 00bb       |    |		Action	Signal_Completion
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 4607       |F   |		Jump_Case	0x8
00d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00d5 7807       |x   |		Jump	0xdd								; case 0x1
00d6 780a       |x   |		Jump	0xe1								; case 0x2
00d7 780e       |x   |		Jump	0xe6								; case 0x3
00d8 7811       |x   |		Jump	0xea								; case 0x4
00d9 7812       |x   |		Jump	0xec								; case 0x5
00da 7813       |x   |		Jump	0xee								; case 0x6
00db 7816       |x   |		Jump	0xf2								; case 0x7
00dc 4302       |C   |		.XXX[0x1]
00dd 00da       |    |		Load_Top	At_Offset_2
00de 0091 063a  |   :|		Action	Push_String_Extended_Indexed,0x63a				; "INORDER"
00e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 00db       |    |		Load_Top	At_Offset_3
00e3 00e0       |    |		Load_Encached	Standard_Cache
00e4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 00e0       |    |		Load_Encached	Standard_Cache
00e8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ee e215       |    |		Load	0x1,0x15
00ef 00dc       |    |		Load_Top	At_Offset_4
00f0 0267       | g  |		Execute	Discrete,Predecessor
00f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f2 e215       |    |		Load	0x1,0x15
00f3 00dc       |    |		Load_Top	At_Offset_4
00f4 0268       | h  |		Execute	Discrete,Successor
00f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f6 0000 0000  |    |		.XXX[0x2]
00f8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
00fc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0100 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0104 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0108 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
010c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e229       | )  |		Load	0x1,0x29
0114 0322       | "  |		Declare_Variable	Record
0115 4800       |H   |		Short_Literal	0x0
0116 00d9       |    |		Load_Top	At_Offset_1
0117 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0118 e227       | '  |		Load	0x1,0x27
0119 00d9       |    |		Load_Top	At_Offset_1
011a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
011b e22a       | *  |		Load	0x1,0x2a
011c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
011d 00ca       |    |		Action	Exit_Nullary_Function
011e 0000 0000  |    |		.XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128       | (  |		.CONST	0x0128								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0003       |    |		.CONST	0x0003								; Number of locals
0123			INIT_0120:
0123 00e1       |    |		Load_Encached	Boolean_Cache
0124 e20e       |    |		Load	0x1,0xe
0125 02c7       |    |		Declare_Variable	Any
0126 00d8       |    |		Load_Top	At_Offset_0
0127 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0128			BODY_0120:
0128 e5fe       |    |		Load	0x2,-0x2
0129 7002       |p   |		Jump_Nonzero	0x12c
012a e214       |    |		Load	0x1,0x14
012b 0257       | W  |		Execute	Discrete,Raise
012c e5fe       |    |		Load	0x2,-0x2
012d 0229       | )  |		Execute	Access,All_Read
012e 00d9       |    |		Load_Top	At_Offset_1
012f 0120       |    |		Execute	Any,Is_Value
0130 6802       |h   |		Jump_Zero	0x133
0131 e20e       |    |		Load	0x1,0xe
0132 7803       |x   |		Jump	0x136
0133 00d9       |    |		Load_Top	At_Offset_1
0134 e20e       |    |		Load	0x1,0xe
0135 0119       |    |		Execute	Any,Check_In_Formal_Type
0136 00e1       |    |		Load_Encached	Boolean_Cache
0137 00da       |    |		Load_Top	At_Offset_2
0138 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0139 e5ff       |    |		Load	0x2,-0x1
013a e20e       |    |		Load	0x1,0xe
013b 0119       |    |		Execute	Any,Check_In_Formal_Type
013c 823d       | =  |		Call	0x1,0x3d
013d 00db       |    |		Load_Top	At_Offset_3
013e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
013f c402       |    |		Store	0x2,0x2
0140 c403       |    |		Store	0x2,0x3
0141 00d1       |    |		Pop_Control	Pop_Count_1
0142 00d9       |    |		Load_Top	At_Offset_1
0143 6802       |h   |		Jump_Zero	0x146
0144 e210       |    |		Load	0x1,0x10
0145 0257       | W  |		Execute	Discrete,Raise
0146 e5fe       |    |		Load	0x2,-0x2
0147 0227       | '  |		Execute	Access,All_Reference
0148 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0149 0a01       |    |		Execute_Immediate	Plus,0x1
014a e5fe       |    |		Load	0x2,-0x2
014b 0227       | '  |		Execute	Access,All_Reference
014c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014e 0000 0000  |    |		.XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154       | T  |		.CONST	0x0154								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 00e1       |    |		Load_Encached	Boolean_Cache
0154			BODY_0150:
0154 e5fe       |    |		Load	0x2,-0x2
0155 7002       |p   |		Jump_Nonzero	0x158
0156 e214       |    |		Load	0x1,0x14
0157 0257       | W  |		Execute	Discrete,Raise
0158 e5fe       |    |		Load	0x2,-0x2
0159 0229       | )  |		Execute	Access,All_Read
015a e5fc       |    |		Load	0x2,-0x4
015b 0120       |    |		Execute	Any,Is_Value
015c 6802       |h   |		Jump_Zero	0x15f
015d e20e       |    |		Load	0x1,0xe
015e 7803       |x   |		Jump	0x162
015f e5fc       |    |		Load	0x2,-0x4
0160 e20e       |    |		Load	0x1,0xe
0161 0119       |    |		Execute	Any,Check_In_Formal_Type
0162 00e1       |    |		Load_Encached	Boolean_Cache
0163 00da       |    |		Load_Top	At_Offset_2
0164 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0165 e5ff       |    |		Load	0x2,-0x1
0166 e20e       |    |		Load	0x1,0xe
0167 0119       |    |		Execute	Any,Check_In_Formal_Type
0168 823d       | =  |		Call	0x1,0x3d
0169 00db       |    |		Load_Top	At_Offset_3
016a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016b 005b       | [  |		Store_Top	Discrete,At_Offset_3
016c c5fc       |    |		Store	0x2,-0x4
016d 00d1       |    |		Pop_Control	Pop_Count_1
016e 00d8       |    |		Load_Top	At_Offset_0
016f a5fd       |    |		Store_Unchecked	0x2,-0x3
0170 00d8       |    |		Load_Top	At_Offset_0
0171 7007       |p   |		Jump_Nonzero	0x179
0172 e5fe       |    |		Load	0x2,-0x2
0173 0227       | '  |		Execute	Access,All_Reference
0174 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0175 0a01       |    |		Execute_Immediate	Plus,0x1
0176 e5fe       |    |		Load	0x2,-0x2
0177 0227       | '  |		Execute	Access,All_Reference
0178 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0179 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0188       |    |		.CONST	0x0188								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 00e1       |    |		Load_Encached	Boolean_Cache
0184 e20e       |    |		Load	0x1,0xe
0185 02c7       |    |		Declare_Variable	Any
0186 00d8       |    |		Load_Top	At_Offset_0
0187 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0188			BODY_0180:
0188 e5fe       |    |		Load	0x2,-0x2
0189 7002       |p   |		Jump_Nonzero	0x18c
018a e214       |    |		Load	0x1,0x14
018b 0257       | W  |		Execute	Discrete,Raise
018c e5fe       |    |		Load	0x2,-0x2
018d 0229       | )  |		Execute	Access,All_Read
018e 00d9       |    |		Load_Top	At_Offset_1
018f 0120       |    |		Execute	Any,Is_Value
0190 6802       |h   |		Jump_Zero	0x193
0191 e20e       |    |		Load	0x1,0xe
0192 7803       |x   |		Jump	0x196
0193 00d9       |    |		Load_Top	At_Offset_1
0194 e20e       |    |		Load	0x1,0xe
0195 0119       |    |		Execute	Any,Check_In_Formal_Type
0196 00e1       |    |		Load_Encached	Boolean_Cache
0197 00da       |    |		Load_Top	At_Offset_2
0198 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0199 e5ff       |    |		Load	0x2,-0x1
019a e20e       |    |		Load	0x1,0xe
019b 0119       |    |		Execute	Any,Check_In_Formal_Type
019c 823e       | >  |		Call	0x1,0x3e
019d 00db       |    |		Load_Top	At_Offset_3
019e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019f c402       |    |		Store	0x2,0x2
01a0 c403       |    |		Store	0x2,0x3
01a1 00d1       |    |		Pop_Control	Pop_Count_1
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 6803       |h   |		Jump_Zero	0x1a9
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 c5fc       |    |		Store	0x2,-0x4
01a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01a9 e5fe       |    |		Load	0x2,-0x2
01aa 0227       | '  |		Execute	Access,All_Reference
01ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ac 0a01       |    |		Execute_Immediate	Plus,0x1
01ad e5fe       |    |		Load	0x2,-0x2
01ae 0227       | '  |		Execute	Access,All_Reference
01af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 680e       |h   |		Jump_Zero	0x1cb
01bd 00da       |    |		Load_Top	At_Offset_2
01be 0229       | )  |		Execute	Access,All_Read
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c1 823f       | ?  |		Call	0x1,0x3f
01c2 00d9       |    |		Load_Top	At_Offset_1
01c3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c4 00d1       |    |		Pop_Control	Pop_Count_1
01c5 00da       |    |		Load_Top	At_Offset_2
01c6 e233       | 3  |		Load	0x1,0x33
01c7 e234       | 4  |		Load	0x1,0x34
01c8 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
01c9 8002       |    |		Call	0x0,0x2
01ca 003b       | ;  |		Store_Top	Access,At_Offset_3
01cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5       |    |		.CONST	0x01d5								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 029f 0543  |   C|		Declare_Subprogram	INIT_0540,For_Call
01d5			BODY_01d0:
01d5 e5fd       |    |		Load	0x2,-0x3
01d6 680e       |h   |		Jump_Zero	0x1e5
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 0229       | )  |		Execute	Access,All_Read
01d9 00d8       |    |		Load_Top	At_Offset_0
01da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01db 8402       |    |		Call	0x2,0x2
01dc 00d9       |    |		Load_Top	At_Offset_1
01dd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01de 00d1       |    |		Pop_Control	Pop_Count_1
01df e5fd       |    |		Load	0x2,-0x3
01e0 e233       | 3  |		Load	0x1,0x33
01e1 e234       | 4  |		Load	0x1,0x34
01e2 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
01e3 8002       |    |		Call	0x0,0x2
01e4 c5fd       |    |		Store	0x2,-0x3
01e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e6 0000 0000  |    |		.XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ee       |    |		.CONST	0x01ee								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0003       |    |		.CONST	0x0003								; Number of locals
01eb			INIT_01e8:
01eb 8216       |    |		Call	0x1,0x16
01ec 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
01ee			BODY_01e8:
01ee e5fd       |    |		Load	0x2,-0x3
01ef 00da       |    |		Load_Top	At_Offset_2
01f0 0227       | '  |		Execute	Access,All_Reference
01f1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 0229       | )  |		Execute	Access,All_Read
01f4 00d8       |    |		Load_Top	At_Offset_0
01f5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f6 e5fd       |    |		Load	0x2,-0x3
01f7 8403       |    |		Call	0x2,0x3
01f8 00d9       |    |		Load_Top	At_Offset_1
01f9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01fa 00d1       |    |		Pop_Control	Pop_Count_1
01fb 00d9       |    |		Load_Top	At_Offset_1
01fc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01fd 0000 0000  |    |		.XXX[0x3]
01ff 0000       |    |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0218       |    |		.CONST	0x0218								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0006       |    |		.CONST	0x0006								; Number of locals
0203			INIT_0200:
0203 e22c       | ,  |		Load	0x1,0x2c
0204 0007       |    |		Action	Break_Optional
0205 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
0207 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0208 00c6       |    |		Action	Check_Subprogram_Elaborated
0209 4803       |H   |		Short_Literal	0x3
020a 4802       |H   |		Short_Literal	0x2
020b 0099       |    |		Action	Reference_Dynamic
020c 0093 0000  |    |		push_full_address	0x0
020e 601d       |`   |		Indirect_Literal	Discrete,0x22c,{0x80000000, 0x00010000}
020f 0273       | s  |		Execute	Discrete,Plus
0210 e5ff       |    |		Load	0x2,-0x1
0211 6016       |`   |		Indirect_Literal	Discrete,0x228,{0x00000000, 0x0000ffff}
0212 0279       | y  |		Execute	Discrete,And
0213 0273       | s  |		Execute	Discrete,Plus
0214 e009       |    |		Load	0x0,0x9
0215 0273       | s  |		Execute	Discrete,Plus
0216 4806       |H   |		Short_Literal	0x6
0217 0007       |    |		Action	Break_Optional
0218			BODY_0200:
0218 e5fd       |    |		Load	0x2,-0x3
0219 8224       | $  |		Call	0x1,0x24
021a a402       |    |		Store_Unchecked	0x2,0x2
021b e5fd       |    |		Load	0x2,-0x3
021c 8222       | "  |		Call	0x1,0x22
021d 4804       |H   |		Short_Literal	0x4
021e 4802       |H   |		Short_Literal	0x2
021f 0099       |    |		Action	Reference_Dynamic
0220 4805       |H   |		Short_Literal	0x5
0221 4802       |H   |		Short_Literal	0x2
0222 0099       |    |		Action	Reference_Dynamic
0223 821c       |    |		Call	0x1,0x1c
0224 e22a       | *  |		Load	0x1,0x2a
0225 0226       | &  |		Execute	Access,Convert
0226 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0227 0000       |    |		.XXX[0x1]
0228 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
022c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 6805       |h   |		Jump_Zero	0x23a
0235 00da       |    |		Load_Top	At_Offset_2
0236 0227       | '  |		Execute	Access,All_Reference
0237 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0238 022d       | -  |		Execute	Access,Is_Null
0239 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023a 4801       |H   |		Short_Literal	0x1
023b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0248       | H  |		.CONST	0x0248								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0003       |    |		.CONST	0x0003								; Number of locals
0243			INIT_0240:
0243 00e1       |    |		Load_Encached	Boolean_Cache
0244 e20e       |    |		Load	0x1,0xe
0245 02c7       |    |		Declare_Variable	Any
0246 00d8       |    |		Load_Top	At_Offset_0
0247 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0248			BODY_0240:
0248 e5fe       |    |		Load	0x2,-0x2
0249 7002       |p   |		Jump_Nonzero	0x24c
024a e214       |    |		Load	0x1,0x14
024b 0257       | W  |		Execute	Discrete,Raise
024c 00e1       |    |		Load_Encached	Boolean_Cache
024d 00d9       |    |		Load_Top	At_Offset_1
024e 0120       |    |		Execute	Any,Is_Value
024f 6802       |h   |		Jump_Zero	0x252
0250 e20e       |    |		Load	0x1,0xe
0251 7803       |x   |		Jump	0x255
0252 00d9       |    |		Load_Top	At_Offset_1
0253 e20e       |    |		Load	0x1,0xe
0254 0119       |    |		Execute	Any,Check_In_Formal_Type
0255 e5fe       |    |		Load	0x2,-0x2
0256 0227       | '  |		Execute	Access,All_Reference
0257 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0258 e5ff       |    |		Load	0x2,-0x1
0259 e20e       |    |		Load	0x1,0xe
025a 0119       |    |		Execute	Any,Check_In_Formal_Type
025b 8240       | @  |		Call	0x1,0x40
025c c403       |    |		Store	0x2,0x3
025d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
025e 00d9       |    |		Load_Top	At_Offset_1
025f 6804       |h   |		Jump_Zero	0x264
0260 00d8       |    |		Load_Top	At_Offset_0
0261 e20e       |    |		Load	0x1,0xe
0262 0119       |    |		Execute	Any,Check_In_Formal_Type
0263 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0264 e211       |    |		Load	0x1,0x11
0265 0257       | W  |		Execute	Discrete,Raise
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00db       |    |		Load_Top	At_Offset_3
026c 7002       |p   |		Jump_Nonzero	0x26f
026d e214       |    |		Load	0x1,0x14
026e 0257       | W  |		Execute	Discrete,Raise
026f 00e1       |    |		Load_Encached	Boolean_Cache
0270 e5fc       |    |		Load	0x2,-0x4
0271 0120       |    |		Execute	Any,Is_Value
0272 6802       |h   |		Jump_Zero	0x275
0273 e20e       |    |		Load	0x1,0xe
0274 7803       |x   |		Jump	0x278
0275 e5fc       |    |		Load	0x2,-0x4
0276 e20e       |    |		Load	0x1,0xe
0277 0119       |    |		Execute	Any,Check_In_Formal_Type
0278 e5fe       |    |		Load	0x2,-0x2
0279 0227       | '  |		Execute	Access,All_Reference
027a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027b e5ff       |    |		Load	0x2,-0x1
027c e20e       |    |		Load	0x1,0xe
027d 0119       |    |		Execute	Any,Check_In_Formal_Type
027e 8240       | @  |		Call	0x1,0x40
027f c5fc       |    |		Store	0x2,-0x4
0280 c5fd       |    |		Store	0x2,-0x3
0281 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0282 0000 0000  |    |		.BLANK	0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0290       |    |		.CONST	0x0290								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0003       |    |		.CONST	0x0003								; Number of locals
028b			INIT_0288:
028b 00e1       |    |		Load_Encached	Boolean_Cache
028c e20e       |    |		Load	0x1,0xe
028d 02c7       |    |		Declare_Variable	Any
028e 00d8       |    |		Load_Top	At_Offset_0
028f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0290			BODY_0288:
0290 e5fe       |    |		Load	0x2,-0x2
0291 7002       |p   |		Jump_Nonzero	0x294
0292 e214       |    |		Load	0x1,0x14
0293 0257       | W  |		Execute	Discrete,Raise
0294 00e1       |    |		Load_Encached	Boolean_Cache
0295 00d9       |    |		Load_Top	At_Offset_1
0296 0120       |    |		Execute	Any,Is_Value
0297 6802       |h   |		Jump_Zero	0x29a
0298 e20e       |    |		Load	0x1,0xe
0299 7803       |x   |		Jump	0x29d
029a 00d9       |    |		Load_Top	At_Offset_1
029b e20e       |    |		Load	0x1,0xe
029c 0119       |    |		Execute	Any,Check_In_Formal_Type
029d e5fe       |    |		Load	0x2,-0x2
029e 0227       | '  |		Execute	Access,All_Reference
029f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a0 e5ff       |    |		Load	0x2,-0x1
02a1 e20e       |    |		Load	0x1,0xe
02a2 0119       |    |		Execute	Any,Check_In_Formal_Type
02a3 8240       | @  |		Call	0x1,0x40
02a4 c403       |    |		Store	0x2,0x3
02a5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02a6 00d9       |    |		Load_Top	At_Offset_1
02a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 7002       |p   |		Jump_Nonzero	0x2af
02ad 4800       |H   |		Short_Literal	0x0
02ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02af 00da       |    |		Load_Top	At_Offset_2
02b0 0227       | '  |		Execute	Access,All_Reference
02b1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c1       |    |		.CONST	0x02c1								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0004       |    |		.CONST	0x0004								; Number of locals
02bb			INIT_02b8:
02bb 029f 05db  |    |		Declare_Subprogram	INIT_05d8,For_Call
02bd 029f 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Call
02bf 029f 060b  |    |		Declare_Subprogram	INIT_0608,For_Call
02c1			BODY_02b8:
02c1 e5fd       |    |		Load	0x2,-0x3
02c2 7002       |p   |		Jump_Nonzero	0x2c5
02c3 e214       |    |		Load	0x1,0x14
02c4 0257       | W  |		Execute	Discrete,Raise
02c5 e5fc       |    |		Load	0x2,-0x4
02c6 4602       |F   |		Jump_Case	0x3
02c7 7807       |x   |		Jump	0x2cf								; case 0x0
02c8 780b       |x   |		Jump	0x2d4								; case 0x1
02c9 7800       |x   |		Jump	0x2ca								; case 0x2
02ca e5fd       |    |		Load	0x2,-0x3
02cb 0227       | '  |		Execute	Access,All_Reference
02cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cd 8404       |    |		Call	0x2,0x4
02ce 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02cf e5fd       |    |		Load	0x2,-0x3
02d0 0227       | '  |		Execute	Access,All_Reference
02d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d2 8402       |    |		Call	0x2,0x2
02d3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02d4 e5fd       |    |		Load	0x2,-0x3
02d5 0227       | '  |		Execute	Access,All_Reference
02d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d7 8403       |    |		Call	0x2,0x3
02d8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02d9 0000 0000  |    |		.BLANK	0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 7002       |p   |		Jump_Nonzero	0x2e7
02e5 e214       |    |		Load	0x1,0x14
02e6 0257       | W  |		Execute	Discrete,Raise
02e7 e22c       | ,  |		Load	0x1,0x2c
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 0227       | '  |		Execute	Access,All_Reference
02ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02eb 8241       | A  |		Call	0x1,0x41
02ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ed 0000 0000  |    |		.XXX[0x3]
02ef 0000       |    |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 7002       |p   |		Jump_Nonzero	0x2f7
02f5 4800       |H   |		Short_Literal	0x0
02f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f7 00da       |    |		Load_Top	At_Offset_2
02f8 0227       | '  |		Execute	Access,All_Reference
02f9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02fa 700a       |p   |		Jump_Nonzero	0x305
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02fe 0e03       |    |		Execute_Immediate	Not_Equal,0x3
02ff 00db       |    |		Load_Top	At_Offset_3
0300 0227       | '  |		Execute	Access,All_Reference
0301 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0302 022c       | ,  |		Execute	Access,Not_Null
0303 0279       | y  |		Execute	Discrete,And
0304 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0305 00da       |    |		Load_Top	At_Offset_2
0306 0227       | '  |		Execute	Access,All_Reference
0307 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0308 0f03       |    |		Execute_Immediate	Equal,0x3
0309 6805       |h   |		Jump_Zero	0x30f
030a 00da       |    |		Load_Top	At_Offset_2
030b 0227       | '  |		Execute	Access,All_Reference
030c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030d 8225       | %  |		Call	0x1,0x25
030e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030f 4801       |H   |		Short_Literal	0x1
0310 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d       |    |		.CONST	0x031d								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b e22c       | ,  |		Load	0x1,0x2c
031c 0007       |    |		Action	Break_Optional
031d			BODY_0318:
031d 00db       |    |		Load_Top	At_Offset_3
031e 022d       | -  |		Execute	Access,Is_Null
031f e5ff       |    |		Load	0x2,-0x1
0320 0227       | '  |		Execute	Access,All_Reference
0321 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0322 0f03       |    |		Execute_Immediate	Equal,0x3
0323 0278       | x  |		Execute	Discrete,Or
0324 6802       |h   |		Jump_Zero	0x327
0325 e212       |    |		Load	0x1,0x12
0326 0257       | W  |		Execute	Discrete,Raise
0327 00db       |    |		Load_Top	At_Offset_3
0328 0227       | '  |		Execute	Access,All_Reference
0329 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032a 4603       |F   |		Jump_Case	0x4
032b 7813       |x   |		Jump	0x33f								; case 0x0
032c 783d       |x=  |		Jump	0x36a								; case 0x1
032d 7851       |xQ  |		Jump	0x37f								; case 0x2
032e 7800       |x   |		Jump	0x32f								; case 0x3
032f 00db       |    |		Load_Top	At_Offset_3
0330 8242       | B  |		Call	0x1,0x42
0331 c5ff       |    |		Store	0x2,-0x1
0332 e5fe       |    |		Load	0x2,-0x2
0333 0120       |    |		Execute	Any,Is_Value
0334 6802       |h   |		Jump_Zero	0x337
0335 e20e       |    |		Load	0x1,0xe
0336 7803       |x   |		Jump	0x33a
0337 e5fe       |    |		Load	0x2,-0x2
0338 e20e       |    |		Load	0x1,0xe
0339 0119       |    |		Execute	Any,Check_In_Formal_Type
033a e5ff       |    |		Load	0x2,-0x1
033b 8226       | &  |		Call	0x1,0x26
033c c5ff       |    |		Store	0x2,-0x1
033d c5fe       |    |		Store	0x2,-0x2
033e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033f 00cf       |    |		Action	Mark_Auxiliary
0340 780d       |x   |		Jump	0x34e
0341 4801       |H   |		Short_Literal	0x1
0342 e5ff       |    |		Load	0x2,-0x1
0343 0227       | '  |		Execute	Access,All_Reference
0344 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0345 e5ff       |    |		Load	0x2,-0x1
0346 00d8       |    |		Load_Top	At_Offset_0
0347 0227       | '  |		Execute	Access,All_Reference
0348 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0349 0227       | '  |		Execute	Access,All_Reference
034a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
034b 8241       | A  |		Call	0x1,0x41
034c a5ff       |    |		Store_Unchecked	0x2,-0x1
034d 00c9       |    |		Action	Pop_Auxiliary_Loop
034e e5ff       |    |		Load	0x2,-0x1
034f 0227       | '  |		Execute	Access,All_Reference
0350 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0351 0227       | '  |		Execute	Access,All_Reference
0352 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0353 77ed       |w   |		Jump_Nonzero	0x341
0354 00ce       |    |		Action	Pop_Auxiliary
0355 00db       |    |		Load_Top	At_Offset_3
0356 0227       | '  |		Execute	Access,All_Reference
0357 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0358 0227       | '  |		Execute	Access,All_Reference
0359 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
035a c5fe       |    |		Store	0x2,-0x2
035b 00db       |    |		Load_Top	At_Offset_3
035c 0227       | '  |		Execute	Access,All_Reference
035d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
035e 0227       | '  |		Execute	Access,All_Reference
035f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0360 6805       |h   |		Jump_Zero	0x366
0361 4802       |H   |		Short_Literal	0x2
0362 e5ff       |    |		Load	0x2,-0x1
0363 0227       | '  |		Execute	Access,All_Reference
0364 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0365 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0366 00db       |    |		Load_Top	At_Offset_3
0367 8242       | B  |		Call	0x1,0x42
0368 c5ff       |    |		Store	0x2,-0x1
0369 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
036a 00db       |    |		Load_Top	At_Offset_3
036b 0227       | '  |		Execute	Access,All_Reference
036c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
036d 0227       | '  |		Execute	Access,All_Reference
036e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
036f c5fe       |    |		Store	0x2,-0x2
0370 00db       |    |		Load_Top	At_Offset_3
0371 0227       | '  |		Execute	Access,All_Reference
0372 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0373 0227       | '  |		Execute	Access,All_Reference
0374 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0375 6805       |h   |		Jump_Zero	0x37b
0376 4802       |H   |		Short_Literal	0x2
0377 e5ff       |    |		Load	0x2,-0x1
0378 0227       | '  |		Execute	Access,All_Reference
0379 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
037a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
037b 00db       |    |		Load_Top	At_Offset_3
037c 8242       | B  |		Call	0x1,0x42
037d c5ff       |    |		Store	0x2,-0x1
037e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
037f 4803       |H   |		Short_Literal	0x3
0380 e5ff       |    |		Load	0x2,-0x1
0381 0227       | '  |		Execute	Access,All_Reference
0382 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0383 00db       |    |		Load_Top	At_Offset_3
0384 e5ff       |    |		Load	0x2,-0x1
0385 0227       | '  |		Execute	Access,All_Reference
0386 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0387 0227       | '  |		Execute	Access,All_Reference
0388 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0389 8241       | A  |		Call	0x1,0x41
038a a5ff       |    |		Store_Unchecked	0x2,-0x1
038b e5fe       |    |		Load	0x2,-0x2
038c 0120       |    |		Execute	Any,Is_Value
038d 6802       |h   |		Jump_Zero	0x390
038e e20e       |    |		Load	0x1,0xe
038f 7803       |x   |		Jump	0x393
0390 e5fe       |    |		Load	0x2,-0x2
0391 e20e       |    |		Load	0x1,0xe
0392 0119       |    |		Execute	Any,Check_In_Formal_Type
0393 e5ff       |    |		Load	0x2,-0x1
0394 8226       | &  |		Call	0x1,0x26
0395 c5ff       |    |		Store	0x2,-0x1
0396 c5fe       |    |		Store	0x2,-0x2
0397 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 4607       |F   |		Jump_Case	0x8
039c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
039d 7807       |x   |		Jump	0x3a5								; case 0x1
039e 780a       |x   |		Jump	0x3a9								; case 0x2
039f 780e       |x   |		Jump	0x3ae								; case 0x3
03a0 7811       |x   |		Jump	0x3b2								; case 0x4
03a1 7812       |x   |		Jump	0x3b4								; case 0x5
03a2 7813       |x   |		Jump	0x3b6								; case 0x6
03a3 7816       |x   |		Jump	0x3ba								; case 0x7
03a4 4302       |C   |		.XXX[0x1]
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 0091 063d  |   =|		Action	Push_String_Extended_Indexed,0x63d				; "LEFT"
03a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03a9 00db       |    |		Load_Top	At_Offset_3
03aa 00db       |    |		Load_Top	At_Offset_3
03ab 00e0       |    |		Load_Encached	Standard_Cache
03ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ae 00da       |    |		Load_Top	At_Offset_2
03af 00e0       |    |		Load_Encached	Standard_Cache
03b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03b1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b2 00db       |    |		Load_Top	At_Offset_3
03b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b4 00db       |    |		Load_Top	At_Offset_3
03b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b6 e22b       | +  |		Load	0x1,0x2b
03b7 00dc       |    |		Load_Top	At_Offset_4
03b8 0267       | g  |		Execute	Discrete,Predecessor
03b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ba e22b       | +  |		Load	0x1,0x2b
03bb 00dc       |    |		Load_Top	At_Offset_4
03bc 0268       | h  |		Execute	Discrete,Successor
03bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03be 0000 0000  |    |		.XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c4       |    |		.CONST	0x03c4								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 00e2       |    |		Load_Encached	Integer_Cache
03c4			BODY_03c0:
03c4 4800       |H   |		Short_Literal	0x0
03c5 a5fd       |    |		Store_Unchecked	0x2,-0x3
03c6 e5fe       |    |		Load	0x2,-0x2
03c7 7012       |p   |		Jump_Nonzero	0x3da
03c8 e228       | (  |		Load	0x1,0x28
03c9 0322       | "  |		Declare_Variable	Record
03ca e5ff       |    |		Load	0x2,-0x1
03cb e228       | (  |		Load	0x1,0x28
03cc 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03cd 0119       |    |		Execute	Any,Check_In_Formal_Type
03ce 00d9       |    |		Load_Top	At_Offset_1
03cf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03d0 e227       | '  |		Load	0x1,0x27
03d1 00d9       |    |		Load_Top	At_Offset_1
03d2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03d3 e227       | '  |		Load	0x1,0x27
03d4 00d9       |    |		Load_Top	At_Offset_1
03d5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03d6 e227       | '  |		Load	0x1,0x27
03d7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03d8 a5fe       |    |		Store_Unchecked	0x2,-0x2
03d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03da e5fe       |    |		Load	0x2,-0x2
03db 0227       | '  |		Execute	Access,All_Reference
03dc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03dd e5ff       |    |		Load	0x2,-0x1
03de 820f       |    |		Call	0x1,0xf
03df 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03e0 00d8       |    |		Load_Top	At_Offset_0
03e1 0d00       |    |		Execute_Immediate	Less,0x0
03e2 6817       |h   |		Jump_Zero	0x3fa
03e3 e5fe       |    |		Load	0x2,-0x2
03e4 0229       | )  |		Execute	Access,All_Read
03e5 e5fc       |    |		Load	0x2,-0x4
03e6 0120       |    |		Execute	Any,Is_Value
03e7 6802       |h   |		Jump_Zero	0x3ea
03e8 e20e       |    |		Load	0x1,0xe
03e9 7803       |x   |		Jump	0x3ed
03ea e5fc       |    |		Load	0x2,-0x4
03eb e20e       |    |		Load	0x1,0xe
03ec 0119       |    |		Execute	Any,Check_In_Formal_Type
03ed 00e1       |    |		Load_Encached	Boolean_Cache
03ee 00da       |    |		Load_Top	At_Offset_2
03ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 e20e       |    |		Load	0x1,0xe
03f2 0119       |    |		Execute	Any,Check_In_Formal_Type
03f3 823d       | =  |		Call	0x1,0x3d
03f4 00db       |    |		Load_Top	At_Offset_3
03f5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03f6 c5fd       |    |		Store	0x2,-0x3
03f7 c5fc       |    |		Store	0x2,-0x4
03f8 00d1       |    |		Pop_Control	Pop_Count_1
03f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fa 00d8       |    |		Load_Top	At_Offset_0
03fb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
03fc 6817       |h   |		Jump_Zero	0x414
03fd e5fe       |    |		Load	0x2,-0x2
03fe 0229       | )  |		Execute	Access,All_Read
03ff e5fc       |    |		Load	0x2,-0x4
0400 0120       |    |		Execute	Any,Is_Value
0401 6802       |h   |		Jump_Zero	0x404
0402 e20e       |    |		Load	0x1,0xe
0403 7803       |x   |		Jump	0x407
0404 e5fc       |    |		Load	0x2,-0x4
0405 e20e       |    |		Load	0x1,0xe
0406 0119       |    |		Execute	Any,Check_In_Formal_Type
0407 00e1       |    |		Load_Encached	Boolean_Cache
0408 00da       |    |		Load_Top	At_Offset_2
0409 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
040a e5ff       |    |		Load	0x2,-0x1
040b e20e       |    |		Load	0x1,0xe
040c 0119       |    |		Execute	Any,Check_In_Formal_Type
040d 823d       | =  |		Call	0x1,0x3d
040e 00db       |    |		Load_Top	At_Offset_3
040f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0410 c5fd       |    |		Store	0x2,-0x3
0411 c5fc       |    |		Store	0x2,-0x4
0412 00d1       |    |		Pop_Control	Pop_Count_1
0413 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0414 4801       |H   |		Short_Literal	0x1
0415 a5fd       |    |		Store_Unchecked	0x2,-0x3
0416 e5fe       |    |		Load	0x2,-0x2
0417 0227       | '  |		Execute	Access,All_Reference
0418 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0419 c5fc       |    |		Store	0x2,-0x4
041a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
041b 0000 0000  |    |		.BLANK	0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0424       | $  |		.CONST	0x0424								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0002       |    |		.CONST	0x0002								; Number of locals
0423			INIT_0420:
0423 00e2       |    |		Load_Encached	Integer_Cache
0424			BODY_0420:
0424 4800       |H   |		Short_Literal	0x0
0425 a5fd       |    |		Store_Unchecked	0x2,-0x3
0426 e5fe       |    |		Load	0x2,-0x2
0427 7012       |p   |		Jump_Nonzero	0x43a
0428 e228       | (  |		Load	0x1,0x28
0429 0322       | "  |		Declare_Variable	Record
042a e5ff       |    |		Load	0x2,-0x1
042b e228       | (  |		Load	0x1,0x28
042c 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
042d 0119       |    |		Execute	Any,Check_In_Formal_Type
042e 00d9       |    |		Load_Top	At_Offset_1
042f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0430 e227       | '  |		Load	0x1,0x27
0431 00d9       |    |		Load_Top	At_Offset_1
0432 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0433 e227       | '  |		Load	0x1,0x27
0434 00d9       |    |		Load_Top	At_Offset_1
0435 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0436 e227       | '  |		Load	0x1,0x27
0437 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0438 a5fe       |    |		Store_Unchecked	0x2,-0x2
0439 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
043a e5fe       |    |		Load	0x2,-0x2
043b 0227       | '  |		Execute	Access,All_Reference
043c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
043d e5ff       |    |		Load	0x2,-0x1
043e 820f       |    |		Call	0x1,0xf
043f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0440 00d8       |    |		Load_Top	At_Offset_0
0441 0d00       |    |		Execute_Immediate	Less,0x0
0442 6817       |h   |		Jump_Zero	0x45a
0443 e5fe       |    |		Load	0x2,-0x2
0444 0229       | )  |		Execute	Access,All_Read
0445 e5fc       |    |		Load	0x2,-0x4
0446 0120       |    |		Execute	Any,Is_Value
0447 6802       |h   |		Jump_Zero	0x44a
0448 e20e       |    |		Load	0x1,0xe
0449 7803       |x   |		Jump	0x44d
044a e5fc       |    |		Load	0x2,-0x4
044b e20e       |    |		Load	0x1,0xe
044c 0119       |    |		Execute	Any,Check_In_Formal_Type
044d 00e1       |    |		Load_Encached	Boolean_Cache
044e 00da       |    |		Load_Top	At_Offset_2
044f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0450 e5ff       |    |		Load	0x2,-0x1
0451 e20e       |    |		Load	0x1,0xe
0452 0119       |    |		Execute	Any,Check_In_Formal_Type
0453 823e       | >  |		Call	0x1,0x3e
0454 00db       |    |		Load_Top	At_Offset_3
0455 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0456 c5fd       |    |		Store	0x2,-0x3
0457 c5fc       |    |		Store	0x2,-0x4
0458 00d1       |    |		Pop_Control	Pop_Count_1
0459 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
045a 00d8       |    |		Load_Top	At_Offset_0
045b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
045c 6817       |h   |		Jump_Zero	0x474
045d e5fe       |    |		Load	0x2,-0x2
045e 0229       | )  |		Execute	Access,All_Read
045f e5fc       |    |		Load	0x2,-0x4
0460 0120       |    |		Execute	Any,Is_Value
0461 6802       |h   |		Jump_Zero	0x464
0462 e20e       |    |		Load	0x1,0xe
0463 7803       |x   |		Jump	0x467
0464 e5fc       |    |		Load	0x2,-0x4
0465 e20e       |    |		Load	0x1,0xe
0466 0119       |    |		Execute	Any,Check_In_Formal_Type
0467 00e1       |    |		Load_Encached	Boolean_Cache
0468 00da       |    |		Load_Top	At_Offset_2
0469 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
046a e5ff       |    |		Load	0x2,-0x1
046b e20e       |    |		Load	0x1,0xe
046c 0119       |    |		Execute	Any,Check_In_Formal_Type
046d 823e       | >  |		Call	0x1,0x3e
046e 00db       |    |		Load_Top	At_Offset_3
046f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0470 c5fd       |    |		Store	0x2,-0x3
0471 c5fc       |    |		Store	0x2,-0x4
0472 00d1       |    |		Pop_Control	Pop_Count_1
0473 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0474 4801       |H   |		Short_Literal	0x1
0475 a5fd       |    |		Store_Unchecked	0x2,-0x3
0476 e5fe       |    |		Load	0x2,-0x2
0477 0227       | '  |		Execute	Access,All_Reference
0478 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0479 c5fc       |    |		Store	0x2,-0x4
047a 00db       |    |		Load_Top	At_Offset_3
047b e5fe       |    |		Load	0x2,-0x2
047c 0227       | '  |		Execute	Access,All_Reference
047d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
047e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
047f 0000       |    |		.XXX[0x1]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00da       |    |		Load_Top	At_Offset_2
0484 6816       |h   |		Jump_Zero	0x49b
0485 00da       |    |		Load_Top	At_Offset_2
0486 0229       | )  |		Execute	Access,All_Read
0487 00d8       |    |		Load_Top	At_Offset_0
0488 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0489 823f       | ?  |		Call	0x1,0x3f
048a 00d9       |    |		Load_Top	At_Offset_1
048b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
048c 00d1       |    |		Pop_Control	Pop_Count_1
048d 00da       |    |		Load_Top	At_Offset_2
048e 0229       | )  |		Execute	Access,All_Read
048f 00d8       |    |		Load_Top	At_Offset_0
0490 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0491 823f       | ?  |		Call	0x1,0x3f
0492 00d9       |    |		Load_Top	At_Offset_1
0493 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0494 00d1       |    |		Pop_Control	Pop_Count_1
0495 00da       |    |		Load_Top	At_Offset_2
0496 e22e       | .  |		Load	0x1,0x2e
0497 e22f       | /  |		Load	0x1,0x2f
0498 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0499 8002       |    |		Call	0x0,0x2
049a 003b       | ;  |		Store_Top	Access,At_Offset_3
049b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
049c 0000 0000  |    |		.BLANK	0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a4       |    |		.CONST	0x04a4								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0002       |    |		.CONST	0x0002								; Number of locals
04a3			INIT_04a0:
04a3 00e2       |    |		Load_Encached	Integer_Cache
04a4			BODY_04a0:
04a4 e5fe       |    |		Load	0x2,-0x2
04a5 7003       |p   |		Jump_Nonzero	0x4a9
04a6 4800       |H   |		Short_Literal	0x0
04a7 a5fc       |    |		Store_Unchecked	0x2,-0x4
04a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04a9 e5fe       |    |		Load	0x2,-0x2
04aa 0227       | '  |		Execute	Access,All_Reference
04ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04ac e5ff       |    |		Load	0x2,-0x1
04ad 820f       |    |		Call	0x1,0xf
04ae 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04af 00d8       |    |		Load_Top	At_Offset_0
04b0 0d00       |    |		Execute_Immediate	Less,0x0
04b1 6813       |h   |		Jump_Zero	0x4c5
04b2 00e1       |    |		Load_Encached	Boolean_Cache
04b3 e5fd       |    |		Load	0x2,-0x3
04b4 0120       |    |		Execute	Any,Is_Value
04b5 6802       |h   |		Jump_Zero	0x4b8
04b6 e20e       |    |		Load	0x1,0xe
04b7 7803       |x   |		Jump	0x4bb
04b8 e5fd       |    |		Load	0x2,-0x3
04b9 e20e       |    |		Load	0x1,0xe
04ba 0119       |    |		Execute	Any,Check_In_Formal_Type
04bb e5fe       |    |		Load	0x2,-0x2
04bc 0227       | '  |		Execute	Access,All_Reference
04bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04be e5ff       |    |		Load	0x2,-0x1
04bf e20e       |    |		Load	0x1,0xe
04c0 0119       |    |		Execute	Any,Check_In_Formal_Type
04c1 8240       | @  |		Call	0x1,0x40
04c2 c5fd       |    |		Store	0x2,-0x3
04c3 c5fc       |    |		Store	0x2,-0x4
04c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c5 00d8       |    |		Load_Top	At_Offset_0
04c6 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
04c7 6813       |h   |		Jump_Zero	0x4db
04c8 00e1       |    |		Load_Encached	Boolean_Cache
04c9 e5fd       |    |		Load	0x2,-0x3
04ca 0120       |    |		Execute	Any,Is_Value
04cb 6802       |h   |		Jump_Zero	0x4ce
04cc e20e       |    |		Load	0x1,0xe
04cd 7803       |x   |		Jump	0x4d1
04ce e5fd       |    |		Load	0x2,-0x3
04cf e20e       |    |		Load	0x1,0xe
04d0 0119       |    |		Execute	Any,Check_In_Formal_Type
04d1 e5fe       |    |		Load	0x2,-0x2
04d2 0227       | '  |		Execute	Access,All_Reference
04d3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04d4 e5ff       |    |		Load	0x2,-0x1
04d5 e20e       |    |		Load	0x1,0xe
04d6 0119       |    |		Execute	Any,Check_In_Formal_Type
04d7 8240       | @  |		Call	0x1,0x40
04d8 c5fd       |    |		Store	0x2,-0x3
04d9 c5fc       |    |		Store	0x2,-0x4
04da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04db e5fe       |    |		Load	0x2,-0x2
04dc 0227       | '  |		Execute	Access,All_Reference
04dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04de c5fd       |    |		Store	0x2,-0x3
04df 4801       |H   |		Short_Literal	0x1
04e0 a5fc       |    |		Store_Unchecked	0x2,-0x4
04e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04e2 0000 0000  |    |		.BLANK	0000[0x6]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 700e       |p   |		Jump_Nonzero	0x4fb
04ed e22d       | -  |		Load	0x1,0x2d
04ee 0322       | "  |		Declare_Variable	Record
04ef 4803       |H   |		Short_Literal	0x3
04f0 00d9       |    |		Load_Top	At_Offset_1
04f1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04f2 e5fe       |    |		Load	0x2,-0x2
04f3 00d9       |    |		Load_Top	At_Offset_1
04f4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04f5 00db       |    |		Load_Top	At_Offset_3
04f6 00d9       |    |		Load_Top	At_Offset_1
04f7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04f8 e22c       | ,  |		Load	0x1,0x2c
04f9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
04fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04fb 00da       |    |		Load_Top	At_Offset_2
04fc 0227       | '  |		Execute	Access,All_Reference
04fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04fe 700e       |p   |		Jump_Nonzero	0x50d
04ff e22d       | -  |		Load	0x1,0x2d
0500 0322       | "  |		Declare_Variable	Record
0501 4801       |H   |		Short_Literal	0x1
0502 00d9       |    |		Load_Top	At_Offset_1
0503 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0504 e5fe       |    |		Load	0x2,-0x2
0505 00d9       |    |		Load_Top	At_Offset_1
0506 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0507 00db       |    |		Load_Top	At_Offset_3
0508 00d9       |    |		Load_Top	At_Offset_1
0509 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
050a e22c       | ,  |		Load	0x1,0x2c
050b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
050c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
050d e22d       | -  |		Load	0x1,0x2d
050e 0322       | "  |		Declare_Variable	Record
050f 4800       |H   |		Short_Literal	0x0
0510 00d9       |    |		Load_Top	At_Offset_1
0511 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0512 e5fe       |    |		Load	0x2,-0x2
0513 00d9       |    |		Load_Top	At_Offset_1
0514 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0515 00db       |    |		Load_Top	At_Offset_3
0516 00d9       |    |		Load_Top	At_Offset_1
0517 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0518 e22c       | ,  |		Load	0x1,0x2c
0519 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
051a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
051b 0000 0000  |    |		.BLANK	0000[0x5]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0524       | $  |		.CONST	0x0524								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0002       |    |		.CONST	0x0002								; Number of locals
0523			INIT_0520:
0523 e22c       | ,  |		Load	0x1,0x2c
0524			BODY_0520:
0524 00cf       |    |		Action	Mark_Auxiliary
0525 e5ff       |    |		Load	0x2,-0x1
0526 003a       | :  |		Store_Top	Access,At_Offset_2
0527 e5ff       |    |		Load	0x2,-0x1
0528 0227       | '  |		Execute	Access,All_Reference
0529 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
052a a5ff       |    |		Store_Unchecked	0x2,-0x1
052b 00d9       |    |		Load_Top	At_Offset_1
052c e238       | 8  |		Load	0x1,0x38
052d e239       | 9  |		Load	0x1,0x39
052e 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
052f 8002       |    |		Call	0x0,0x2
0530 003a       | :  |		Store_Top	Access,At_Offset_2
0531 e5ff       |    |		Load	0x2,-0x1
0532 6807       |h   |		Jump_Zero	0x53a
0533 e5ff       |    |		Load	0x2,-0x1
0534 0227       | '  |		Execute	Access,All_Reference
0535 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0536 0e03       |    |		Execute_Immediate	Not_Equal,0x3
0537 7002       |p   |		Jump_Nonzero	0x53a
0538 00c9       |    |		Action	Pop_Auxiliary_Loop
0539 7feb       |    |		Jump	0x525
053a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
053b 0000 0000  |    |		.BLANK	0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 00da       |    |		Load_Top	At_Offset_2
0544 6824       |h$  |		Jump_Zero	0x569
0545 00da       |    |		Load_Top	At_Offset_2
0546 0229       | )  |		Execute	Access,All_Read
0547 00d8       |    |		Load_Top	At_Offset_0
0548 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0549 00d8       |    |		Load_Top	At_Offset_0
054a 0120       |    |		Execute	Any,Is_Value
054b 6803       |h   |		Jump_Zero	0x54f
054c e20e       |    |		Load	0x1,0xe
054d 0122       | "  |		Execute	Any,Make_Root_Type
054e 011e       |    |		Execute	Any,Convert
054f 85fe       |    |		Call	0x2,-0x2
0550 00d9       |    |		Load_Top	At_Offset_1
0551 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0552 00d1       |    |		Pop_Control	Pop_Count_1
0553 00da       |    |		Load_Top	At_Offset_2
0554 0229       | )  |		Execute	Access,All_Read
0555 00d8       |    |		Load_Top	At_Offset_0
0556 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0557 8402       |    |		Call	0x2,0x2
0558 00d9       |    |		Load_Top	At_Offset_1
0559 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
055a 00d1       |    |		Pop_Control	Pop_Count_1
055b 00da       |    |		Load_Top	At_Offset_2
055c 0229       | )  |		Execute	Access,All_Read
055d 00d8       |    |		Load_Top	At_Offset_0
055e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
055f 8402       |    |		Call	0x2,0x2
0560 00d9       |    |		Load_Top	At_Offset_1
0561 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0562 00d1       |    |		Pop_Control	Pop_Count_1
0563 00da       |    |		Load_Top	At_Offset_2
0564 e22e       | .  |		Load	0x1,0x2e
0565 e22f       | /  |		Load	0x1,0x2f
0566 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0567 8002       |    |		Call	0x0,0x2
0568 003b       | ;  |		Store_Top	Access,At_Offset_3
0569 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
056a 0000 0000  |    |		.BLANK	0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0575       | u  |		.CONST	0x0575								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0002       |    |		.CONST	0x0002								; Number of locals
0573			INIT_0570:
0573 e227       | '  |		Load	0x1,0x27
0574 0007       |    |		Action	Break_Optional
0575			BODY_0570:
0575 00db       |    |		Load_Top	At_Offset_3
0576 0f01       |    |		Execute_Immediate	Equal,0x1
0577 6812       |h   |		Jump_Zero	0x58a
0578 e228       | (  |		Load	0x1,0x28
0579 0322       | "  |		Declare_Variable	Record
057a 85fe       |    |		Call	0x2,-0x2
057b e228       | (  |		Load	0x1,0x28
057c 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
057d 0119       |    |		Execute	Any,Check_In_Formal_Type
057e 00d9       |    |		Load_Top	At_Offset_1
057f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0580 e227       | '  |		Load	0x1,0x27
0581 00d9       |    |		Load_Top	At_Offset_1
0582 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0583 e227       | '  |		Load	0x1,0x27
0584 00d9       |    |		Load_Top	At_Offset_1
0585 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0586 e227       | '  |		Load	0x1,0x27
0587 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0588 0039       | 9  |		Store_Top	Access,At_Offset_1
0589 782e       |x.  |		Jump	0x5b8
058a 00db       |    |		Load_Top	At_Offset_3
058b 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
058c 682b       |h+  |		Jump_Zero	0x5b8
058d e227       | '  |		Load	0x1,0x27
058e 03bc       |    |		Declare_Variable	Access,By_Allocation
058f 00d8       |    |		Load_Top	At_Offset_0
0590 0227       | '  |		Execute	Access,All_Reference
0591 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0592 0039       | 9  |		Store_Top	Access,At_Offset_1
0593 00d8       |    |		Load_Top	At_Offset_0
0594 0229       | )  |		Execute	Access,All_Read
0595 00d8       |    |		Load_Top	At_Offset_0
0596 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0597 e7ff       |    |		Load	0x3,-0x1
0598 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0599 00d8       |    |		Load_Top	At_Offset_0
059a 00e3       |    |		Load_Encached	Natural_Cache
059b 0260       | `  |		Execute	Discrete,In_Type
059c 7001       |p   |		Jump_Nonzero	0x59e
059d 0801       |    |		Execute_Immediate	Raise,0x1
059e 8403       |    |		Call	0x2,0x3
059f 00d9       |    |		Load_Top	At_Offset_1
05a0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05a1 00d1       |    |		Pop_Control	Pop_Count_1
05a2 85fe       |    |		Call	0x2,-0x2
05a3 00d9       |    |		Load_Top	At_Offset_1
05a4 0227       | '  |		Execute	Access,All_Reference
05a5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05a6 00d8       |    |		Load_Top	At_Offset_0
05a7 0229       | )  |		Execute	Access,All_Read
05a8 00d8       |    |		Load_Top	At_Offset_0
05a9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05aa e7ff       |    |		Load	0x3,-0x1
05ab 00d8       |    |		Load_Top	At_Offset_0
05ac 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
05ad 0272       | r  |		Execute	Discrete,Minus
05ae 0aff       |    |		Execute_Immediate	Plus,-0x1
05af 00d8       |    |		Load_Top	At_Offset_0
05b0 00e3       |    |		Load_Encached	Natural_Cache
05b1 0260       | `  |		Execute	Discrete,In_Type
05b2 7001       |p   |		Jump_Nonzero	0x5b4
05b3 0801       |    |		Execute_Immediate	Raise,0x1
05b4 8403       |    |		Call	0x2,0x3
05b5 00d9       |    |		Load_Top	At_Offset_1
05b6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05b7 00d1       |    |		Pop_Control	Pop_Count_1
05b8 00d8       |    |		Load_Top	At_Offset_0
05b9 a7fe       |    |		Store_Unchecked	0x3,-0x2
05ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05bb 0000 0000  |    |		.BLANK	0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c7       |    |		.CONST	0x05c7								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0002       |    |		.CONST	0x0002								; Number of locals
05c3			INIT_05c0:
05c3 e20e       |    |		Load	0x1,0xe
05c4 02c7       |    |		Declare_Variable	Any
05c5 00d8       |    |		Load_Top	At_Offset_0
05c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05c7			BODY_05c0:
05c7 00d8       |    |		Load_Top	At_Offset_0
05c8 0120       |    |		Execute	Any,Is_Value
05c9 6802       |h   |		Jump_Zero	0x5cc
05ca e20e       |    |		Load	0x1,0xe
05cb 7803       |x   |		Jump	0x5cf
05cc 00d8       |    |		Load_Top	At_Offset_0
05cd e20e       |    |		Load	0x1,0xe
05ce 0119       |    |		Execute	Any,Check_In_Formal_Type
05cf e402       |    |		Load	0x2,0x2
05d0 8226       | &  |		Call	0x1,0x26
05d1 c402       |    |		Store	0x2,0x2
05d2 c602       |    |		Store	0x3,0x2
05d3 00d8       |    |		Load_Top	At_Offset_0
05d4 85fe       |    |		Call	0x2,-0x2
05d5 e20e       |    |		Load	0x1,0xe
05d6 0119       |    |		Execute	Any,Check_In_Formal_Type
05d7 00ca       |    |		Action	Exit_Nullary_Function
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 00da       |    |		Load_Top	At_Offset_2
05dc 0227       | '  |		Execute	Access,All_Reference
05dd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05de 6804       |h   |		Jump_Zero	0x5e3
05df 00da       |    |		Load_Top	At_Offset_2
05e0 0227       | '  |		Execute	Access,All_Reference
05e1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05e2 8402       |    |		Call	0x2,0x2
05e3 00da       |    |		Load_Top	At_Offset_2
05e4 0227       | '  |		Execute	Access,All_Reference
05e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05e6 85fe       |    |		Call	0x2,-0x2
05e7 00da       |    |		Load_Top	At_Offset_2
05e8 0227       | '  |		Execute	Access,All_Reference
05e9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05ea 6804       |h   |		Jump_Zero	0x5ef
05eb 00da       |    |		Load_Top	At_Offset_2
05ec 0227       | '  |		Execute	Access,All_Reference
05ed 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05ee 8402       |    |		Call	0x2,0x2
05ef 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 0227       | '  |		Execute	Access,All_Reference
05f5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05f6 85fe       |    |		Call	0x2,-0x2
05f7 00da       |    |		Load_Top	At_Offset_2
05f8 0227       | '  |		Execute	Access,All_Reference
05f9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05fa 6804       |h   |		Jump_Zero	0x5ff
05fb 00da       |    |		Load_Top	At_Offset_2
05fc 0227       | '  |		Execute	Access,All_Reference
05fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05fe 8403       |    |		Call	0x2,0x3
05ff 00da       |    |		Load_Top	At_Offset_2
0600 0227       | '  |		Execute	Access,All_Reference
0601 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0602 6804       |h   |		Jump_Zero	0x607
0603 00da       |    |		Load_Top	At_Offset_2
0604 0227       | '  |		Execute	Access,All_Reference
0605 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0606 8403       |    |		Call	0x2,0x3
0607 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b 00da       |    |		Load_Top	At_Offset_2
060c 0227       | '  |		Execute	Access,All_Reference
060d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
060e 6804       |h   |		Jump_Zero	0x613
060f 00da       |    |		Load_Top	At_Offset_2
0610 0227       | '  |		Execute	Access,All_Reference
0611 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0612 8404       |    |		Call	0x2,0x4
0613 00da       |    |		Load_Top	At_Offset_2
0614 0227       | '  |		Execute	Access,All_Reference
0615 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0616 6804       |h   |		Jump_Zero	0x61b
0617 00da       |    |		Load_Top	At_Offset_2
0618 0227       | '  |		Execute	Access,All_Reference
0619 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
061a 8404       |    |		Call	0x2,0x4
061b 00da       |    |		Load_Top	At_Offset_2
061c 0227       | '  |		Execute	Access,All_Reference
061d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
061e 85fe       |    |		Call	0x2,-0x2
061f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 4601       |F   |		Jump_Case	0x2
0624 7801       |x   |		Jump	0x626								; case 0x0
0625 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0626 00da       |    |		Load_Top	At_Offset_2
0627 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0628 0125       | %  |		Execute	Any,Set_Constraint
0629 00da       |    |		Load_Top	At_Offset_2
062a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
062b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
062c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
062d 0000 0000  |    |		.XXX[0x3]
062f 0000       |    |
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 4601       |F   |		Jump_Case	0x2
0634 7801       |x   |		Jump	0x636								; case 0x0
0635 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0636 4800       |H   |		Short_Literal	0x0
0637 00db       |    |		Load_Top	At_Offset_3
0638 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0639 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
063a ; --------------------------------------------------------------------------------------
063a ; STRING TABLE
063a ; --------------------------------------------------------------------------------------
063a 0010       |    |		.STRTAB	0x0010->0x0642							; "INORDER"
063b 0015       |    |		.STRTAB	0x0015->0x0645							; "PREORDER"
063c 001b       |    |		.STRTAB	0x001b->0x0649							; "POSTORDER"
063d 0022       | "  |		.STRTAB	0x0022->0x064e							; "LEFT"
063e 0024       | $  |		.STRTAB	0x0024->0x0650							; "MIDDLE"
063f 0028       | (  |		.STRTAB	0x0028->0x0653							; "RIGHT"
0640 002b       | +  |		.STRTAB	0x002b->0x0655							; "DONE"
0641 002d       | -  |		.STREND 0x002d->0x0657
0642 494e 4f52  |INOR|		.STRTAB_STRINGS
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x1b9c,0x0000,0x0001,0x0023
065e 000b 06ea  |    |		.DBG4T	0x000b,0x06ea,0xc000,0x8000
0662 0088 0728  |   (|		.DBG4T	0x0088,0x0728,0xc000,0x0000
0666 00d3 0000  |    |		.DBG4T	0x00d3,0x0000,0x1005,0x0000
066a 0113 0744  |   D|		.DBG4T	0x0113,0x0744,0x1002,0x0000
066e 0123 0747  | # G|		.DBG4T	0x0123,0x0747,0x1001,0x0000
0672 0153 0751  | S Q|		.DBG4T	0x0153,0x0751,0x1001,0x0000
0676 0183 075a  |   Z|		.DBG4T	0x0183,0x075a,0x1001,0x0000
067a 01bb 0765  |   e|		.DBG4T	0x01bb,0x0765,0x1001,0x0000
067e 01d3 076a  |   j|		.DBG4T	0x01d3,0x076a,0x3801,0x0002
0682 01eb 0770  |   p|		.DBG4T	0x01eb,0x0770,0x3802,0x0002
0686 0203 0777  |   w|		.DBG4T	0x0203,0x0777,0x3802,0x0002
068a 0233 077e  | 3 ~|		.DBG4T	0x0233,0x077e,0x1002,0x0000
068e 0243 0781  | C  |		.DBG4T	0x0243,0x0781,0x1002,0x0000
0692 026b 078b  | k  |		.DBG4T	0x026b,0x078b,0x1001,0x0000
0696 028b 0790  |    |		.DBG4T	0x028b,0x0790,0x1002,0x0000
069a 02ab 0798  |    |		.DBG4T	0x02ab,0x0798,0x1002,0x0000
069e 02bb 079d  |    |		.DBG4T	0x02bb,0x079d,0x3801,0x4002
06a2 02e3 07ae  |    |		.DBG4T	0x02e3,0x07ae,0x1002,0x0000
06a6 02f3 07b3  |    |		.DBG4T	0x02f3,0x07b3,0x1002,0x0000
06aa 031b 07bc  |    |		.DBG4T	0x031b,0x07bc,0x1001,0x4000
06ae 039b 0000  |    |		.DBG4T	0x039b,0x0000,0x1005,0x0000
06b2 03c3 07e5  |    |		.DBG4T	0x03c3,0x07e5,0x1001,0x0000
06b6 0423 07f2  | #  |		.DBG4T	0x0423,0x07f2,0x1001,0x0000
06ba 0483 0800  |    |		.DBG4T	0x0483,0x0800,0x1001,0x0000
06be 04a3 0806  |    |		.DBG4T	0x04a3,0x0806,0x1001,0x0000
06c2 04eb 0813  |    |		.DBG4T	0x04eb,0x0813,0x1002,0x0000
06c6 0523 081a  | #  |		.DBG4T	0x0523,0x081a,0x1001,0x4000
06ca 0543 0827  | C '|		.DBG4T	0x0543,0x0827,0x1801,0x0002
06ce 0573 082e  | s .|		.DBG4T	0x0573,0x082e,0x1801,0x0002
06d2 05c3 0839  |   9|		.DBG4T	0x05c3,0x0839,0x1802,0x0002
06d6 05db 083e  |   >|		.DBG4T	0x05db,0x083e,0x1801,0x0002
06da 05f3 0845  |   E|		.DBG4T	0x05f3,0x0845,0x1801,0x0002
06de 060b 084c  |   L|		.DBG4T	0x060b,0x084c,0x1801,0x0002
06e2 0623 0000  | #  |		.DBG4T	0x0623,0x0000,0x1005,0x0000
06e6 0633 0000  | 3  |		.DBG4T	0x0633,0x0000,0x1005,0x0000
06ea ; --------------------------------------------------------------------------------------
06ea ; Debug chain
06ea ; --------------------------------------------------------------------------------------
06ea 001e 0000  |    |		.DBGLEN	0x001e,0x0000
06ec 000b 0014  |    |		.DBGLNO	0x000b,0x0014,0x001d,0x0026,0x002f,0x0038,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x006c,0x0072,0x0076,0x007b,0x007d
070a 0001 0002  |    |		.XXX[0x1e]
070c 0003 0004  |    |
070e 0005 0006  |    |
0710 0009 000a  |    |
0712 000b 000c  |    |
0714 000d 000e  |    |
0716 000f 0010  |    |
0718 0011 0012  |    |
071a 0013 0014  |    |
071c 0015 0016  |    |
071e 0017 0018  |    |
0720 0019 001b  |    |
0722 001c 001d  |    |
0724 001e 001f  |    |
0726 0021 0022  | ! "|
0728 ; --------------------------------------------------------------------------------------
0728 ; Debug chain
0728 ; --------------------------------------------------------------------------------------
0728 001a 0000  |    |		.DBGLEN	0x001a,0x0000
072a 0088 0090  |    |		.DBGLNO	0x0088,0x0090,0x0098,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc
0744 ; --------------------------------------------------------------------------------------
0744 ; Debug chain
0744 ; --------------------------------------------------------------------------------------
0744 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0746 0113       |    |		.DBGLNO	0x0113
0747 ; --------------------------------------------------------------------------------------
0747 ; Debug chain
0747 ; --------------------------------------------------------------------------------------
0747 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0749 0123 0124  | # $|		.DBGLNO	0x0123,0x0124,0x0128,0x012a,0x012c,0x0142,0x0144,0x0146
0751 ; --------------------------------------------------------------------------------------
0751 ; Debug chain
0751 ; --------------------------------------------------------------------------------------
0751 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0753 0153 0154  | S T|		.DBGLNO	0x0153,0x0154,0x0156,0x0158,0x016e,0x0170,0x0172
075a ; --------------------------------------------------------------------------------------
075a ; Debug chain
075a ; --------------------------------------------------------------------------------------
075a 0002 0007  |    |		.DBGLEN	0x0002,0x0007
075c 0183 0184  |    |		.DBGLNO	0x0183,0x0184,0x0188,0x018a,0x018c,0x01a2,0x01a4,0x01a6,0x01a9
0765 ; --------------------------------------------------------------------------------------
0765 ; Debug chain
0765 ; --------------------------------------------------------------------------------------
0765 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0767 01bb 01bd  |    |		.DBGLNO	0x01bb,0x01bd,0x01c5
076a ; --------------------------------------------------------------------------------------
076a ; Debug chain
076a ; --------------------------------------------------------------------------------------
076a 0001 0003  |    |		.DBGLEN	0x0001,0x0003
076c 01d3 01d5  |    |		.DBGLNO	0x01d3,0x01d5,0x01d7,0x01df
0770 ; --------------------------------------------------------------------------------------
0770 ; Debug chain
0770 ; --------------------------------------------------------------------------------------
0770 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0772 01eb 01ec  |    |		.DBGLNO	0x01eb,0x01ec,0x01ee,0x01f2,0x01fb
0777 ; --------------------------------------------------------------------------------------
0777 ; Debug chain
0777 ; --------------------------------------------------------------------------------------
0777 0003 0002  |    |		.DBGLEN	0x0003,0x0002
0779 0203 0205  |    |		.DBGLNO	0x0203,0x0205,0x0207,0x0218,0x021b
077e ; --------------------------------------------------------------------------------------
077e ; Debug chain
077e ; --------------------------------------------------------------------------------------
077e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0780 0233       | 3  |		.DBGLNO	0x0233
0781 ; --------------------------------------------------------------------------------------
0781 ; Debug chain
0781 ; --------------------------------------------------------------------------------------
0781 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0783 0243 0244  | C D|		.DBGLNO	0x0243,0x0244,0x0248,0x024a,0x024c,0x025e,0x0260,0x0264
078b ; --------------------------------------------------------------------------------------
078b ; Debug chain
078b ; --------------------------------------------------------------------------------------
078b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
078d 026b 026d  | k m|		.DBGLNO	0x026b,0x026d,0x026f
0790 ; --------------------------------------------------------------------------------------
0790 ; Debug chain
0790 ; --------------------------------------------------------------------------------------
0790 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0792 028b 028c  |    |		.DBGLNO	0x028b,0x028c,0x0290,0x0292,0x0294,0x02a6
0798 ; --------------------------------------------------------------------------------------
0798 ; Debug chain
0798 ; --------------------------------------------------------------------------------------
0798 0000 0003  |    |		.DBGLEN	0x0000,0x0003
079a 02ab 02ad  |    |		.DBGLNO	0x02ab,0x02ad,0x02af
079d ; --------------------------------------------------------------------------------------
079d ; Debug chain
079d ; --------------------------------------------------------------------------------------
079d 0003 0006  |    |		.DBGLEN	0x0003,0x0006
079f 02bb 02bd  |    |		.DBGLNO	0x02bb,0x02bd,0x02bf,0x02c1,0x02c3,0x02c5,0x02ca,0x02cf,0x02d4
07a8 0001 0002  |    |		.XXX[0x6]
07aa 0003 0006  |    |
07ac 0004 0005  |    |
07ae ; --------------------------------------------------------------------------------------
07ae ; Debug chain
07ae ; --------------------------------------------------------------------------------------
07ae 0000 0003  |    |		.DBGLEN	0x0000,0x0003
07b0 02e3 02e5  |    |		.DBGLNO	0x02e3,0x02e5,0x02e7
07b3 ; --------------------------------------------------------------------------------------
07b3 ; Debug chain
07b3 ; --------------------------------------------------------------------------------------
07b3 0000 0007  |    |		.DBGLEN	0x0000,0x0007
07b5 02f3 02f5  |    |		.DBGLNO	0x02f3,0x02f5,0x02f7,0x02fb,0x0305,0x030a,0x030f
07bc ; --------------------------------------------------------------------------------------
07bc ; Debug chain
07bc ; --------------------------------------------------------------------------------------
07bc 0001 0013  |    |		.DBGLEN	0x0001,0x0013
07be 031b 031d  |    |		.DBGLNO	0x031b,0x031d,0x0325,0x0327,0x032f,0x0332,0x0341,0x0345,0x034e,0x0355,0x035b,0x0361,0x0366,0x036a,0x0370,0x0376,0x037b,0x037f,0x0383,0x038b
07d2 0001 0002  |    |		.XXX[0x13]
07d4 0003 0012  |    |
07d6 0013 0005  |    |
07d8 0006 0004  |    |
07da 0007 0008  |    |
07dc 0009 000a  |    |
07de 000b 000c  |    |
07e0 000d 000e  |    |
07e2 000f 0010  |    |
07e4 0011       |    |
07e5 ; --------------------------------------------------------------------------------------
07e5 ; Debug chain
07e5 ; --------------------------------------------------------------------------------------
07e5 0001 000a  |    |		.DBGLEN	0x0001,0x000a
07e7 03c3 03c4  |    |		.DBGLNO	0x03c3,0x03c4,0x03c6,0x03c8,0x03da,0x03e0,0x03e3,0x03fa,0x03fd,0x0414,0x0416
07f2 ; --------------------------------------------------------------------------------------
07f2 ; Debug chain
07f2 ; --------------------------------------------------------------------------------------
07f2 0001 000b  |    |		.DBGLEN	0x0001,0x000b
07f4 0423 0424  | # $|		.DBGLNO	0x0423,0x0424,0x0426,0x0428,0x043a,0x0440,0x0443,0x045a,0x045d,0x0474,0x0476,0x047a
0800 ; --------------------------------------------------------------------------------------
0800 ; Debug chain
0800 ; --------------------------------------------------------------------------------------
0800 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0802 0483 0485  |    |		.DBGLNO	0x0483,0x0485,0x048d,0x0495
0806 ; --------------------------------------------------------------------------------------
0806 ; Debug chain
0806 ; --------------------------------------------------------------------------------------
0806 0001 000a  |    |		.DBGLEN	0x0001,0x000a
0808 04a3 04a4  |    |		.DBGLNO	0x04a3,0x04a4,0x04a6,0x04a8,0x04a9,0x04af,0x04b2,0x04c5,0x04c8,0x04db,0x04df
0813 ; --------------------------------------------------------------------------------------
0813 ; Debug chain
0813 ; --------------------------------------------------------------------------------------
0813 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0815 04eb 04ed  |    |		.DBGLNO	0x04eb,0x04ed,0x04fb,0x04ff,0x050d
081a ; --------------------------------------------------------------------------------------
081a ; Debug chain
081a ; --------------------------------------------------------------------------------------
081a 0001 0005  |    |		.DBGLEN	0x0001,0x0005
081c 0523 0525  | # %|		.DBGLNO	0x0523,0x0525,0x0527,0x052b,0x0531,0x0533
0822 0002 0003  |    |		.XXX[0x5]
0824 0004 0005  |    |
0826 0006       |    |
0827 ; --------------------------------------------------------------------------------------
0827 ; Debug chain
0827 ; --------------------------------------------------------------------------------------
0827 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0829 0543 0545  | C E|		.DBGLNO	0x0543,0x0545,0x0553,0x055b,0x0563
082e ; --------------------------------------------------------------------------------------
082e ; Debug chain
082e ; --------------------------------------------------------------------------------------
082e 0001 0008  |    |		.DBGLEN	0x0001,0x0008
0830 0573 0575  | s u|		.DBGLNO	0x0573,0x0575,0x0578,0x058a,0x058d,0x0593,0x05a2,0x05a6,0x05b8
0839 ; --------------------------------------------------------------------------------------
0839 ; Debug chain
0839 ; --------------------------------------------------------------------------------------
0839 0001 0002  |    |		.DBGLEN	0x0001,0x0002
083b 05c3 05c7  |    |		.DBGLNO	0x05c3,0x05c7,0x05d3
083e ; --------------------------------------------------------------------------------------
083e ; Debug chain
083e ; --------------------------------------------------------------------------------------
083e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0840 05db 05df  |    |		.DBGLNO	0x05db,0x05df,0x05e3,0x05e7,0x05eb
0845 ; --------------------------------------------------------------------------------------
0845 ; Debug chain
0845 ; --------------------------------------------------------------------------------------
0845 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0847 05f3 05f7  |    |		.DBGLNO	0x05f3,0x05f7,0x05fb,0x05ff,0x0603
084c ; --------------------------------------------------------------------------------------
084c ; Debug chain
084c ; --------------------------------------------------------------------------------------
084c 0000 0005  |    |		.DBGLEN	0x0000,0x0005
084e 060b 060f  |    |		.DBGLNO	0x060b,0x060f,0x0613,0x0617,0x061b
0853 0000 0000  |    |		.BLANK	0000[0x1ad]