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

⟦468b998d0⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0498       |    |		.CONST	0x0498								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cc       |    |		.CONST	0x00cc								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003d       | =  |		.CONST	0x003d								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60da       |`   |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 00db       |    |		Load_Top	At_Offset_3
0010 60d3       |`   |		Indirect_Literal	Discrete,0xe4,{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 60c9       |`   |		Indirect_Literal	Discrete,0xe0,{0x80000000, 0x00020000}
0017 0273       | s  |		Execute	Discrete,Plus
0018 e20d       |    |		Load	0x1,0xd
0019 60ca       |`   |		Indirect_Literal	Discrete,0xe4,{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 60bc       |`   |		Indirect_Literal	Discrete,0xdc,{0x80000000, 0x00030000}
0020 0273       | s  |		Execute	Discrete,Plus
0021 e20d       |    |		Load	0x1,0xd
0022 60c1       |`   |		Indirect_Literal	Discrete,0xe4,{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 60af       |`   |		Indirect_Literal	Discrete,0xd8,{0x80000000, 0x00040000}
0029 0273       | s  |		Execute	Discrete,Plus
002a e20d       |    |		Load	0x1,0xd
002b 60b8       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x0000ffff}
002c 0279       | y  |		Execute	Discrete,And
002d 0273       | s  |		Execute	Discrete,Plus
002e 0129       | )  |		Execute	Any,Make_Visible
002f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0031 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0033 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0035 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0037 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0039 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
003b 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
003d 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
003f 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0041 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0043 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0045 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0047 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0049 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
004b 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
004d 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
004f 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0051 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0053 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
0055 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0057 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0059 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
005b 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
005d 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
005f 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0061 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0063 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0065 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0067 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0069 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
006b 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
006d 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
006f 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0071 4818       |H   |		Short_Literal	0x18
0072 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0073 e20e       |    |		Load	0x1,0xe
0074 00d9       |    |		Load_Top	At_Offset_1
0075 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
0077 4802       |H   |		Short_Literal	0x2
0078 032e       | .  |		Declare_Type	Record,Defined,Visible
0079 00d8       |    |		Load_Top	At_Offset_0
007a 02a0       |    |		Declare_Subprogram	Null_Subprogram
007b 00db       |    |		Load_Top	At_Offset_3
007c 03c7       |    |		Complete_Type	Access,By_Defining
007d 00d9       |    |		Load_Top	At_Offset_1
007e 0129       | )  |		Execute	Any,Make_Visible
007f 00bf       |    |		Action	Accept_Activation
0080 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 a002       |    |		Store_Unchecked	0x0,0x2
0083 00c6       |    |		Action	Check_Subprogram_Elaborated
0084 00d9       |    |		Load_Top	At_Offset_1
0085 00db       |    |		Load_Top	At_Offset_3
0086 e003       |    |		Load	0x0,0x3
0087 e004       |    |		Load	0x0,0x4
0088 4800       |H   |		Short_Literal	0x0
0089 0007       |    |		Action	Break_Optional
008a 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
008c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc			BODY_0008:
00cc 00bc       |    |		Action	Signal_Activated
00cd 00bb       |    |		Action	Signal_Completion
00ce 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
00d4 e5fe       |    |		Load	0x2,-0x2
00d5 0227       | '  |		Execute	Access,All_Reference
00d6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
00dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5       |    |		.CONST	0x00f5								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e235       | 5  |		Load	0x1,0x35
00f4 0007       |    |		Action	Break_Optional
00f5			BODY_00f0:
00f5 e5fe       |    |		Load	0x2,-0x2
00f6 7003       |p   |		Jump_Nonzero	0xfa
00f7 00db       |    |		Load_Top	At_Offset_3
00f8 a5fe       |    |		Store_Unchecked	0x2,-0x2
00f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00fa e5fe       |    |		Load	0x2,-0x2
00fb e5ff       |    |		Load	0x2,-0x1
00fc 022f       | /  |		Execute	Access,Equal
00fd 6802       |h   |		Jump_Zero	0x100
00fe e210       |    |		Load	0x1,0x10
00ff 0257       | W  |		Execute	Discrete,Raise
0100 e5fe       |    |		Load	0x2,-0x2
0101 823d       | =  |		Call	0x1,0x3d
0102 0039       | 9  |		Store_Top	Access,At_Offset_1
0103 00db       |    |		Load_Top	At_Offset_3
0104 00d9       |    |		Load_Top	At_Offset_1
0105 0227       | '  |		Execute	Access,All_Reference
0106 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0107 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e235       | 5  |		Load	0x1,0x35
010c 0007       |    |		Action	Break_Optional
010d			BODY_0108:
010d e236       | 6  |		Load	0x1,0x36
010e 0322       | "  |		Declare_Variable	Record
010f e5ff       |    |		Load	0x2,-0x1
0110 e236       | 6  |		Load	0x1,0x36
0111 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0112 0119       |    |		Execute	Any,Check_In_Formal_Type
0113 00d9       |    |		Load_Top	At_Offset_1
0114 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0115 e235       | 5  |		Load	0x1,0x35
0116 00d9       |    |		Load_Top	At_Offset_1
0117 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0118 e235       | 5  |		Load	0x1,0x35
0119 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
011a 0039       | 9  |		Store_Top	Access,At_Offset_1
011b 00d8       |    |		Load_Top	At_Offset_0
011c e5fe       |    |		Load	0x2,-0x2
011d e20e       |    |		Load	0x1,0xe
011e 0119       |    |		Execute	Any,Check_In_Formal_Type
011f 8217       |    |		Call	0x1,0x17
0120 0039       | 9  |		Store_Top	Access,At_Offset_1
0121 00d8       |    |		Load_Top	At_Offset_0
0122 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0123 0000 0000  |    |		.BLANK	0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e235       | 5  |		Load	0x1,0x35
012c 0007       |    |		Action	Break_Optional
012d			BODY_0128:
012d e236       | 6  |		Load	0x1,0x36
012e 0322       | "  |		Declare_Variable	Record
012f e5ff       |    |		Load	0x2,-0x1
0130 e236       | 6  |		Load	0x1,0x36
0131 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0132 0119       |    |		Execute	Any,Check_In_Formal_Type
0133 00d9       |    |		Load_Top	At_Offset_1
0134 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0135 e235       | 5  |		Load	0x1,0x35
0136 00d9       |    |		Load_Top	At_Offset_1
0137 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0138 e235       | 5  |		Load	0x1,0x35
0139 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
013a 0039       | 9  |		Store_Top	Access,At_Offset_1
013b e5fe       |    |		Load	0x2,-0x2
013c 00d9       |    |		Load_Top	At_Offset_1
013d 8215       |    |		Call	0x1,0x15
013e c5fe       |    |		Store	0x2,-0x2
013f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e236       | 6  |		Load	0x1,0x36
0144 0322       | "  |		Declare_Variable	Record
0145 00db       |    |		Load_Top	At_Offset_3
0146 e236       | 6  |		Load	0x1,0x36
0147 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0148 0119       |    |		Execute	Any,Check_In_Formal_Type
0149 00d9       |    |		Load_Top	At_Offset_1
014a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014b e5fe       |    |		Load	0x2,-0x2
014c 00d9       |    |		Load_Top	At_Offset_1
014d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014e e235       | 5  |		Load	0x1,0x35
014f 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0150 a5fe       |    |		Store_Unchecked	0x2,-0x2
0151 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b e235       | 5  |		Load	0x1,0x35
015c 0007       |    |		Action	Break_Optional
015d			BODY_0158:
015d 00db       |    |		Load_Top	At_Offset_3
015e 7002       |p   |		Jump_Nonzero	0x161
015f e5fe       |    |		Load	0x2,-0x2
0160 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0161 00db       |    |		Load_Top	At_Offset_3
0162 e5fe       |    |		Load	0x2,-0x2
0163 022f       | /  |		Execute	Access,Equal
0164 6802       |h   |		Jump_Zero	0x167
0165 e210       |    |		Load	0x1,0x10
0166 0257       | W  |		Execute	Discrete,Raise
0167 00db       |    |		Load_Top	At_Offset_3
0168 823d       | =  |		Call	0x1,0x3d
0169 0039       | 9  |		Store_Top	Access,At_Offset_1
016a e5fe       |    |		Load	0x2,-0x2
016b 00d9       |    |		Load_Top	At_Offset_1
016c 0227       | '  |		Execute	Access,All_Reference
016d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016e 00db       |    |		Load_Top	At_Offset_3
016f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e236       | 6  |		Load	0x1,0x36
0174 0322       | "  |		Declare_Variable	Record
0175 00db       |    |		Load_Top	At_Offset_3
0176 e236       | 6  |		Load	0x1,0x36
0177 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0178 0119       |    |		Execute	Any,Check_In_Formal_Type
0179 00d9       |    |		Load_Top	At_Offset_1
017a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
017b e5fe       |    |		Load	0x2,-0x2
017c 00d9       |    |		Load_Top	At_Offset_1
017d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
017e e235       | 5  |		Load	0x1,0x35
017f 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0180 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0181 0000 0000  |    |		.BLANK	0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f       |    |		.CONST	0x018f								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0003       |    |		.CONST	0x0003								; Number of locals
018b			INIT_0188:
018b e235       | 5  |		Load	0x1,0x35
018c 0007       |    |		Action	Break_Optional
018d 00d8       |    |		Load_Top	At_Offset_0
018e 0007       |    |		Action	Break_Optional
018f			BODY_0188:
018f e236       | 6  |		Load	0x1,0x36
0190 0322       | "  |		Declare_Variable	Record
0191 e5fe       |    |		Load	0x2,-0x2
0192 e236       | 6  |		Load	0x1,0x36
0193 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0194 0119       |    |		Execute	Any,Check_In_Formal_Type
0195 00d9       |    |		Load_Top	At_Offset_1
0196 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0197 e235       | 5  |		Load	0x1,0x35
0198 00d9       |    |		Load_Top	At_Offset_1
0199 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019a e235       | 5  |		Load	0x1,0x35
019b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
019c 003a       | :  |		Store_Top	Access,At_Offset_2
019d e5ff       |    |		Load	0x2,-0x1
019e 7002       |p   |		Jump_Nonzero	0x1a1
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 823d       | =  |		Call	0x1,0x3d
01a3 0039       | 9  |		Store_Top	Access,At_Offset_1
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 0227       | '  |		Execute	Access,All_Reference
01a7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 7002       |p   |		Jump_Nonzero	0x1b7
01b5 e235       | 5  |		Load	0x1,0x35
01b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b7 e236       | 6  |		Load	0x1,0x36
01b8 0322       | "  |		Declare_Variable	Record
01b9 00db       |    |		Load_Top	At_Offset_3
01ba 0227       | '  |		Execute	Access,All_Reference
01bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01bc e236       | 6  |		Load	0x1,0x36
01bd 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01be 0119       |    |		Execute	Any,Check_In_Formal_Type
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 0227       | '  |		Execute	Access,All_Reference
01c3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c4 821c       |    |		Call	0x1,0x1c
01c5 00d9       |    |		Load_Top	At_Offset_1
01c6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c7 e235       | 5  |		Load	0x1,0x35
01c8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 e5fd       |    |		Load	0x2,-0x3
01d4 7002       |p   |		Jump_Nonzero	0x1d7
01d5 e235       | 5  |		Load	0x1,0x35
01d6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01d7 e236       | 6  |		Load	0x1,0x36
01d8 0322       | "  |		Declare_Variable	Record
01d9 e5fd       |    |		Load	0x2,-0x3
01da 0227       | '  |		Execute	Access,All_Reference
01db 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01dc 85fe       |    |		Call	0x2,-0x2
01dd e236       | 6  |		Load	0x1,0x36
01de 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01df 0119       |    |		Execute	Any,Check_In_Formal_Type
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01e2 e5fd       |    |		Load	0x2,-0x3
01e3 0227       | '  |		Execute	Access,All_Reference
01e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01e5 4ffe       |O   |		Short_Literal	-0x2
01e6 4802       |H   |		Short_Literal	0x2
01e7 0099       |    |		Action	Reference_Dynamic
01e8 4fff       |O   |		Short_Literal	-0x1
01e9 4802       |H   |		Short_Literal	0x2
01ea 0099       |    |		Action	Reference_Dynamic
01eb 821d       |    |		Call	0x1,0x1d
01ec 00d9       |    |		Load_Top	At_Offset_1
01ed 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01ee e235       | 5  |		Load	0x1,0x35
01ef 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01f0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01f1 0000 0000  |    |		.BLANK	0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e235       | 5  |		Load	0x1,0x35
01fc 00ca       |    |		Action	Exit_Nullary_Function
01fd 0000 0000  |    |		.XXX[0x3]
01ff 0000       |    |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0205       |    |		.CONST	0x0205								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0002       |    |		.CONST	0x0002								; Number of locals
0203			INIT_0200:
0203 e235       | 5  |		Load	0x1,0x35
0204 0007       |    |		Action	Break_Optional
0205			BODY_0200:
0205 00db       |    |		Load_Top	At_Offset_3
0206 7002       |p   |		Jump_Nonzero	0x209
0207 e211       |    |		Load	0x1,0x11
0208 0257       | W  |		Execute	Discrete,Raise
0209 00db       |    |		Load_Top	At_Offset_3
020a 0227       | '  |		Execute	Access,All_Reference
020b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020c 0039       | 9  |		Store_Top	Access,At_Offset_1
020d 00db       |    |		Load_Top	At_Offset_3
020e e238       | 8  |		Load	0x1,0x38
020f e239       | 9  |		Load	0x1,0x39
0210 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0211 8002       |    |		Call	0x0,0x2
0212 c5ff       |    |		Store	0x2,-0x1
0213 00d8       |    |		Load_Top	At_Offset_0
0214 a5ff       |    |		Store_Unchecked	0x2,-0x1
0215 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d       |    |		.CONST	0x021d								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0002       |    |		.CONST	0x0002								; Number of locals
021b			INIT_0218:
021b e235       | 5  |		Load	0x1,0x35
021c 0007       |    |		Action	Break_Optional
021d			BODY_0218:
021d 00db       |    |		Load_Top	At_Offset_3
021e e5fe       |    |		Load	0x2,-0x2
021f 0227       | '  |		Execute	Access,All_Reference
0220 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0221 820f       |    |		Call	0x1,0xf
0222 6804       |h   |		Jump_Zero	0x227
0223 e5fe       |    |		Load	0x2,-0x2
0224 821f       |    |		Call	0x1,0x1f
0225 c5fe       |    |		Store	0x2,-0x2
0226 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0227 e5fe       |    |		Load	0x2,-0x2
0228 0229       | )  |		Execute	Access,All_Read
0229 00d8       |    |		Load_Top	At_Offset_0
022a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022b e5ff       |    |		Load	0x2,-0x1
022c e20e       |    |		Load	0x1,0xe
022d 0119       |    |		Execute	Any,Check_In_Formal_Type
022e 8220       |    |		Call	0x1,0x20
022f 00d9       |    |		Load_Top	At_Offset_1
0230 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0231 00d1       |    |		Pop_Control	Pop_Count_1
0232 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0233 0000 0000  |    |		.BLANK	0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0241       | A  |		.CONST	0x0241								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0004       |    |		.CONST	0x0004								; Number of locals
023b			INIT_0238:
023b e235       | 5  |		Load	0x1,0x35
023c 0007       |    |		Action	Break_Optional
023d 00d8       |    |		Load_Top	At_Offset_0
023e 0007       |    |		Action	Break_Optional
023f 00e1       |    |		Load_Encached	Boolean_Cache
0240 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0241			BODY_0238:
0241 e5ff       |    |		Load	0x2,-0x1
0242 003b       | ;  |		Store_Top	Access,At_Offset_3
0243 00cf       |    |		Action	Mark_Auxiliary
0244 7819       |x   |		Jump	0x25e
0245 e5fe       |    |		Load	0x2,-0x2
0246 e402       |    |		Load	0x2,0x2
0247 0227       | '  |		Execute	Access,All_Reference
0248 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0249 820f       |    |		Call	0x1,0xf
024a 0f00       |    |		Execute_Immediate	Equal,0x0
024b 00da       |    |		Load_Top	At_Offset_2
024c 0278       | x  |		Execute	Discrete,Or
024d 6809       |h   |		Jump_Zero	0x257
024e 00da       |    |		Load_Top	At_Offset_2
024f e402       |    |		Load	0x2,0x2
0250 0227       | '  |		Execute	Access,All_Reference
0251 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0252 e20e       |    |		Load	0x1,0xe
0253 0119       |    |		Execute	Any,Check_In_Formal_Type
0254 8217       |    |		Call	0x1,0x17
0255 003b       | ;  |		Store_Top	Access,At_Offset_3
0256 7802       |x   |		Jump	0x259
0257 4801       |H   |		Short_Literal	0x1
0258 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0259 00db       |    |		Load_Top	At_Offset_3
025a 0227       | '  |		Execute	Access,All_Reference
025b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
025c a402       |    |		Store_Unchecked	0x2,0x2
025d 00c9       |    |		Action	Pop_Auxiliary_Loop
025e 00db       |    |		Load_Top	At_Offset_3
025f 77e5       |w   |		Jump_Nonzero	0x245
0260 00ce       |    |		Action	Pop_Auxiliary
0261 00d9       |    |		Load_Top	At_Offset_1
0262 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0263 0000 0000  |    |		.BLANK	0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026f       | o  |		.CONST	0x026f								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0003       |    |		.CONST	0x0003								; Number of locals
026b			INIT_0268:
026b e235       | 5  |		Load	0x1,0x35
026c 0007       |    |		Action	Break_Optional
026d 00d8       |    |		Load_Top	At_Offset_0
026e 0007       |    |		Action	Break_Optional
026f			BODY_0268:
026f e5ff       |    |		Load	0x2,-0x1
0270 003a       | :  |		Store_Top	Access,At_Offset_2
0271 00cf       |    |		Action	Mark_Auxiliary
0272 7813       |x   |		Jump	0x286
0273 e5fe       |    |		Load	0x2,-0x2
0274 00db       |    |		Load_Top	At_Offset_3
0275 0227       | '  |		Execute	Access,All_Reference
0276 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0277 820f       |    |		Call	0x1,0xf
0278 7008       |p   |		Jump_Nonzero	0x281
0279 00d9       |    |		Load_Top	At_Offset_1
027a 00db       |    |		Load_Top	At_Offset_3
027b 0227       | '  |		Execute	Access,All_Reference
027c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027d e20e       |    |		Load	0x1,0xe
027e 0119       |    |		Execute	Any,Check_In_Formal_Type
027f 8217       |    |		Call	0x1,0x17
0280 003a       | :  |		Store_Top	Access,At_Offset_2
0281 00da       |    |		Load_Top	At_Offset_2
0282 0227       | '  |		Execute	Access,All_Reference
0283 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0284 003b       | ;  |		Store_Top	Access,At_Offset_3
0285 00c9       |    |		Action	Pop_Auxiliary_Loop
0286 00da       |    |		Load_Top	At_Offset_2
0287 77eb       |w   |		Jump_Nonzero	0x273
0288 00ce       |    |		Action	Pop_Auxiliary
0289 00d8       |    |		Load_Top	At_Offset_0
028a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028b 0000 0000  |    |		.BLANK	0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0299       |    |		.CONST	0x0299								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0004       |    |		.CONST	0x0004								; Number of locals
0293			INIT_0290:
0293 e235       | 5  |		Load	0x1,0x35
0294 0007       |    |		Action	Break_Optional
0295 00d8       |    |		Load_Top	At_Offset_0
0296 0007       |    |		Action	Break_Optional
0297 e235       | 5  |		Load	0x1,0x35
0298 0007       |    |		Action	Break_Optional
0299			BODY_0290:
0299 e5fe       |    |		Load	0x2,-0x2
029a 003b       | ;  |		Store_Top	Access,At_Offset_3
029b e235       | 5  |		Load	0x1,0x35
029c 003a       | :  |		Store_Top	Access,At_Offset_2
029d 00cf       |    |		Action	Mark_Auxiliary
029e 7829       |x)  |		Jump	0x2c8
029f e5ff       |    |		Load	0x2,-0x1
02a0 e402       |    |		Load	0x2,0x2
02a1 0227       | '  |		Execute	Access,All_Reference
02a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a3 820f       |    |		Call	0x1,0xf
02a4 681c       |h   |		Jump_Zero	0x2c1
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 7007       |p   |		Jump_Nonzero	0x2ae
02a7 00db       |    |		Load_Top	At_Offset_3
02a8 003a       | :  |		Store_Top	Access,At_Offset_2
02a9 00db       |    |		Load_Top	At_Offset_3
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ac a5fe       |    |		Store_Unchecked	0x2,-0x2
02ad 7808       |x   |		Jump	0x2b6
02ae 00db       |    |		Load_Top	At_Offset_3
02af 003a       | :  |		Store_Top	Access,At_Offset_2
02b0 00db       |    |		Load_Top	At_Offset_3
02b1 0227       | '  |		Execute	Access,All_Reference
02b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 0227       | '  |		Execute	Access,All_Reference
02b5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02b6 00db       |    |		Load_Top	At_Offset_3
02b7 0227       | '  |		Execute	Access,All_Reference
02b8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b9 a402       |    |		Store_Unchecked	0x2,0x2
02ba 00d9       |    |		Load_Top	At_Offset_1
02bb e238       | 8  |		Load	0x1,0x38
02bc e239       | 9  |		Load	0x1,0x39
02bd 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
02be 8002       |    |		Call	0x0,0x2
02bf 003a       | :  |		Store_Top	Access,At_Offset_2
02c0 7806       |x   |		Jump	0x2c7
02c1 00db       |    |		Load_Top	At_Offset_3
02c2 003b       | ;  |		Store_Top	Access,At_Offset_3
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 0227       | '  |		Execute	Access,All_Reference
02c5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c6 a402       |    |		Store_Unchecked	0x2,0x2
02c7 00c9       |    |		Action	Pop_Auxiliary_Loop
02c8 00db       |    |		Load_Top	At_Offset_3
02c9 77d5       |w   |		Jump_Nonzero	0x29f
02ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02cb 0000 0000  |    |		.BLANK	0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d7       |    |		.CONST	0x02d7								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0003       |    |		.CONST	0x0003								; Number of locals
02d3			INIT_02d0:
02d3 e235       | 5  |		Load	0x1,0x35
02d4 0007       |    |		Action	Break_Optional
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 0007       |    |		Action	Break_Optional
02d7			BODY_02d0:
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 003a       | :  |		Store_Top	Access,At_Offset_2
02d9 00cf       |    |		Action	Mark_Auxiliary
02da 780d       |x   |		Jump	0x2e8
02db 00da       |    |		Load_Top	At_Offset_2
02dc 003a       | :  |		Store_Top	Access,At_Offset_2
02dd 00da       |    |		Load_Top	At_Offset_2
02de 0227       | '  |		Execute	Access,All_Reference
02df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e0 003b       | ;  |		Store_Top	Access,At_Offset_3
02e1 00d9       |    |		Load_Top	At_Offset_1
02e2 e238       | 8  |		Load	0x1,0x38
02e3 e239       | 9  |		Load	0x1,0x39
02e4 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
02e5 8002       |    |		Call	0x0,0x2
02e6 003a       | :  |		Store_Top	Access,At_Offset_2
02e7 00c9       |    |		Action	Pop_Auxiliary_Loop
02e8 00da       |    |		Load_Top	At_Offset_2
02e9 77f1       |w   |		Jump_Nonzero	0x2db
02ea 00ce       |    |		Action	Pop_Auxiliary
02eb e235       | 5  |		Load	0x1,0x35
02ec a5ff       |    |		Store_Unchecked	0x2,-0x1
02ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ee 0000 0000  |    |		.XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f7       |    |		.CONST	0x02f7								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0003       |    |		.CONST	0x0003								; Number of locals
02f3			INIT_02f0:
02f3 e235       | 5  |		Load	0x1,0x35
02f4 0007       |    |		Action	Break_Optional
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 0007       |    |		Action	Break_Optional
02f7			BODY_02f0:
02f7 e5fd       |    |		Load	0x2,-0x3
02f8 003a       | :  |		Store_Top	Access,At_Offset_2
02f9 00cf       |    |		Action	Mark_Auxiliary
02fa 781b       |x   |		Jump	0x316
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 003a       | :  |		Store_Top	Access,At_Offset_2
02fd 00da       |    |		Load_Top	At_Offset_2
02fe 0227       | '  |		Execute	Access,All_Reference
02ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0300 003b       | ;  |		Store_Top	Access,At_Offset_3
0301 00d9       |    |		Load_Top	At_Offset_1
0302 0229       | )  |		Execute	Access,All_Read
0303 00d8       |    |		Load_Top	At_Offset_0
0304 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0305 00d8       |    |		Load_Top	At_Offset_0
0306 0120       |    |		Execute	Any,Is_Value
0307 6803       |h   |		Jump_Zero	0x30b
0308 e20e       |    |		Load	0x1,0xe
0309 0122       | "  |		Execute	Any,Make_Root_Type
030a 011e       |    |		Execute	Any,Convert
030b 85fe       |    |		Call	0x2,-0x2
030c 00d9       |    |		Load_Top	At_Offset_1
030d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
030e 00d1       |    |		Pop_Control	Pop_Count_1
030f 00d9       |    |		Load_Top	At_Offset_1
0310 e238       | 8  |		Load	0x1,0x38
0311 e239       | 9  |		Load	0x1,0x39
0312 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0313 8002       |    |		Call	0x0,0x2
0314 003a       | :  |		Store_Top	Access,At_Offset_2
0315 00c9       |    |		Action	Pop_Auxiliary_Loop
0316 00da       |    |		Load_Top	At_Offset_2
0317 77e3       |w   |		Jump_Nonzero	0x2fb
0318 00ce       |    |		Action	Pop_Auxiliary
0319 e235       | 5  |		Load	0x1,0x35
031a a5fd       |    |		Store_Unchecked	0x2,-0x3
031b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00da       |    |		Load_Top	At_Offset_2
0324 7002       |p   |		Jump_Nonzero	0x327
0325 e211       |    |		Load	0x1,0x11
0326 0257       | W  |		Execute	Discrete,Raise
0327 00da       |    |		Load_Top	At_Offset_2
0328 0227       | '  |		Execute	Access,All_Reference
0329 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032a 00d8       |    |		Load_Top	At_Offset_0
032b 0120       |    |		Execute	Any,Is_Value
032c 7002       |p   |		Jump_Nonzero	0x32f
032d 00d8       |    |		Load_Top	At_Offset_0
032e 011e       |    |		Execute	Any,Convert
032f e20e       |    |		Load	0x1,0xe
0330 0119       |    |		Execute	Any,Check_In_Formal_Type
0331 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0332 0000 0000  |    |		.BLANK	0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 00da       |    |		Load_Top	At_Offset_2
033c 7002       |p   |		Jump_Nonzero	0x33f
033d e213       |    |		Load	0x1,0x13
033e 0257       | W  |		Execute	Discrete,Raise
033f 00da       |    |		Load_Top	At_Offset_2
0340 0227       | '  |		Execute	Access,All_Reference
0341 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0342 003b       | ;  |		Store_Top	Access,At_Offset_3
0343 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0344 0000 0000  |    |		.BLANK	0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 00da       |    |		Load_Top	At_Offset_2
034c 022d       | -  |		Execute	Access,Is_Null
034d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034e 0000 0000  |    |		.XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355       | U  |		.CONST	0x0355								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0002       |    |		.CONST	0x0002								; Number of locals
0353			INIT_0350:
0353 e235       | 5  |		Load	0x1,0x35
0354 0007       |    |		Action	Break_Optional
0355			BODY_0350:
0355 00db       |    |		Load_Top	At_Offset_3
0356 0039       | 9  |		Store_Top	Access,At_Offset_1
0357 00cf       |    |		Action	Mark_Auxiliary
0358 780d       |x   |		Jump	0x366
0359 e5fe       |    |		Load	0x2,-0x2
035a 00da       |    |		Load_Top	At_Offset_2
035b 0227       | '  |		Execute	Access,All_Reference
035c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
035d 820f       |    |		Call	0x1,0xf
035e 6802       |h   |		Jump_Zero	0x361
035f 4801       |H   |		Short_Literal	0x1
0360 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0361 00d9       |    |		Load_Top	At_Offset_1
0362 0227       | '  |		Execute	Access,All_Reference
0363 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0364 003a       | :  |		Store_Top	Access,At_Offset_2
0365 00c9       |    |		Action	Pop_Auxiliary_Loop
0366 00d9       |    |		Load_Top	At_Offset_1
0367 77f1       |w   |		Jump_Nonzero	0x359
0368 00ce       |    |		Action	Pop_Auxiliary
0369 4800       |H   |		Short_Literal	0x0
036a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
036b 0000 0000  |    |		.BLANK	0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0375       | u  |		.CONST	0x0375								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 e235       | 5  |		Load	0x1,0x35
0374 0007       |    |		Action	Break_Optional
0375			BODY_0370:
0375 00db       |    |		Load_Top	At_Offset_3
0376 823d       | =  |		Call	0x1,0x3d
0377 0039       | 9  |		Store_Top	Access,At_Offset_1
0378 00d8       |    |		Load_Top	At_Offset_0
0379 0227       | '  |		Execute	Access,All_Reference
037a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
037b 00d8       |    |		Load_Top	At_Offset_0
037c 0120       |    |		Execute	Any,Is_Value
037d 7002       |p   |		Jump_Nonzero	0x380
037e 00d8       |    |		Load_Top	At_Offset_0
037f 011e       |    |		Execute	Any,Convert
0380 e20e       |    |		Load	0x1,0xe
0381 0119       |    |		Execute	Any,Check_In_Formal_Type
0382 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0383 0000 0000  |    |		.BLANK	0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 00da       |    |		Load_Top	At_Offset_2
038c 7002       |p   |		Jump_Nonzero	0x38f
038d 4800       |H   |		Short_Literal	0x0
038e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038f 00da       |    |		Load_Top	At_Offset_2
0390 8232       | 2  |		Call	0x1,0x32
0391 822b       | +  |		Call	0x1,0x2b
0392 0a01       |    |		Execute_Immediate	Plus,0x1
0393 00d8       |    |		Load_Top	At_Offset_0
0394 00e2       |    |		Load_Encached	Integer_Cache
0395 0260       | `  |		Execute	Discrete,In_Type
0396 7001       |p   |		Jump_Nonzero	0x398
0397 0801       |    |		Execute_Immediate	Raise,0x1
0398 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0399 0000 0000  |    |		.BLANK	0000[0x7]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e236       | 6  |		Load	0x1,0x36
03a4 0322       | "  |		Declare_Variable	Record
03a5 00db       |    |		Load_Top	At_Offset_3
03a6 e236       | 6  |		Load	0x1,0x36
03a7 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03a8 0119       |    |		Execute	Any,Check_In_Formal_Type
03a9 00d9       |    |		Load_Top	At_Offset_1
03aa 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03ab e235       | 5  |		Load	0x1,0x35
03ac 00d9       |    |		Load_Top	At_Offset_1
03ad 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03ae e235       | 5  |		Load	0x1,0x35
03af 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b1 0000 0000  |    |		.BLANK	0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 00da       |    |		Load_Top	At_Offset_2
03c4 022c       | ,  |		Execute	Access,Not_Null
03c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03c6 0000 0000  |    |		.XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cd       |    |		.CONST	0x03cd								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0002       |    |		.CONST	0x0002								; Number of locals
03cb			INIT_03c8:
03cb e235       | 5  |		Load	0x1,0x35
03cc 0007       |    |		Action	Break_Optional
03cd			BODY_03c8:
03cd 00db       |    |		Load_Top	At_Offset_3
03ce 7002       |p   |		Jump_Nonzero	0x3d1
03cf e213       |    |		Load	0x1,0x13
03d0 0257       | W  |		Execute	Discrete,Raise
03d1 00db       |    |		Load_Top	At_Offset_3
03d2 0039       | 9  |		Store_Top	Access,At_Offset_1
03d3 00d8       |    |		Load_Top	At_Offset_0
03d4 0227       | '  |		Execute	Access,All_Reference
03d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03d6 c5fe       |    |		Store	0x2,-0x2
03d7 00d8       |    |		Load_Top	At_Offset_0
03d8 0227       | '  |		Execute	Access,All_Reference
03d9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03da a5ff       |    |		Store_Unchecked	0x2,-0x1
03db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 00db       |    |		Load_Top	At_Offset_3
03e4 7002       |p   |		Jump_Nonzero	0x3e7
03e5 e211       |    |		Load	0x1,0x11
03e6 0257       | W  |		Execute	Discrete,Raise
03e7 00da       |    |		Load_Top	At_Offset_2
03e8 e5fe       |    |		Load	0x2,-0x2
03e9 0227       | '  |		Execute	Access,All_Reference
03ea 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03eb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ec 0000 0000  |    |		.BLANK	0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f5       |    |		.CONST	0x03f5								; Address of begin
03f1 0402       |    |		.CONST	0x0402								; Address of exception handler
03f2 0002       |    |		.CONST	0x0002								; Number of locals
03f3			INIT_03f0:
03f3 e235       | 5  |		Load	0x1,0x35
03f4 0007       |    |		Action	Break_Optional
03f5			BODY_03f0:
03f5 e5fe       |    |		Load	0x2,-0x2
03f6 0229       | )  |		Execute	Access,All_Read
03f7 00d8       |    |		Load_Top	At_Offset_0
03f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f9 8224       | $  |		Call	0x1,0x24
03fa 00d9       |    |		Load_Top	At_Offset_1
03fb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03fc 00d1       |    |		Pop_Control	Pop_Count_1
03fd 00db       |    |		Load_Top	At_Offset_3
03fe e5fe       |    |		Load	0x2,-0x2
03ff 0227       | '  |		Execute	Access,All_Reference
0400 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0401 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0402			TRAP_03f0:
0402 010e       |    |		Execute	Exception,Is_Constraint_Error
0403 6802       |h   |		Jump_Zero	0x406
0404 e211       |    |		Load	0x1,0x11
0405 0257       | W  |		Execute	Discrete,Raise
0406 0100       |    |		Execute	Exception,Raise
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00da       |    |		Load_Top	At_Offset_2
040c 7002       |p   |		Jump_Nonzero	0x40f
040d e211       |    |		Load	0x1,0x11
040e 0257       | W  |		Execute	Discrete,Raise
040f 00da       |    |		Load_Top	At_Offset_2
0410 0227       | '  |		Execute	Access,All_Reference
0411 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0412 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0413 0000 0000  |    |		.BLANK	0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041d       |    |		.CONST	0x041d								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b e235       | 5  |		Load	0x1,0x35
041c 0007       |    |		Action	Break_Optional
041d			BODY_0418:
041d 00db       |    |		Load_Top	At_Offset_3
041e 0039       | 9  |		Store_Top	Access,At_Offset_1
041f 00d8       |    |		Load_Top	At_Offset_0
0420 0227       | '  |		Execute	Access,All_Reference
0421 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0422 00d8       |    |		Load_Top	At_Offset_0
0423 0120       |    |		Execute	Any,Is_Value
0424 7002       |p   |		Jump_Nonzero	0x427
0425 00d8       |    |		Load_Top	At_Offset_0
0426 011e       |    |		Execute	Any,Convert
0427 e20e       |    |		Load	0x1,0xe
0428 0119       |    |		Execute	Any,Check_In_Formal_Type
0429 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042a 0000 0000  |    |		.BLANK	0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 043f       | ?  |		.CONST	0x043f								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0005       |    |		.CONST	0x0005								; Number of locals
0433			INIT_0430:
0433 e235       | 5  |		Load	0x1,0x35
0434 0007       |    |		Action	Break_Optional
0435 00d8       |    |		Load_Top	At_Offset_0
0436 0007       |    |		Action	Break_Optional
0437 e20e       |    |		Load	0x1,0xe
0438 02c7       |    |		Declare_Variable	Any
0439 00d8       |    |		Load_Top	At_Offset_0
043a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
043b e20e       |    |		Load	0x1,0xe
043c 02c7       |    |		Declare_Variable	Any
043d 00d8       |    |		Load_Top	At_Offset_0
043e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
043f			BODY_0430:
043f e5ff       |    |		Load	0x2,-0x1
0440 a402       |    |		Store_Unchecked	0x2,0x2
0441 e5fe       |    |		Load	0x2,-0x2
0442 003b       | ;  |		Store_Top	Access,At_Offset_3
0443 00cf       |    |		Action	Mark_Auxiliary
0444 7813       |x   |		Jump	0x458
0445 00db       |    |		Load_Top	At_Offset_3
0446 0227       | '  |		Execute	Access,All_Reference
0447 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0448 e402       |    |		Load	0x2,0x2
0449 0227       | '  |		Execute	Access,All_Reference
044a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
044b 820f       |    |		Call	0x1,0xf
044c 7002       |p   |		Jump_Nonzero	0x44f
044d 4800       |H   |		Short_Literal	0x0
044e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044f e402       |    |		Load	0x2,0x2
0450 0227       | '  |		Execute	Access,All_Reference
0451 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0452 a402       |    |		Store_Unchecked	0x2,0x2
0453 00db       |    |		Load_Top	At_Offset_3
0454 0227       | '  |		Execute	Access,All_Reference
0455 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0456 a403       |    |		Store_Unchecked	0x2,0x3
0457 00c9       |    |		Action	Pop_Auxiliary_Loop
0458 e402       |    |		Load	0x2,0x2
0459 022c       | ,  |		Execute	Access,Not_Null
045a e403       |    |		Load	0x2,0x3
045b 022c       | ,  |		Execute	Access,Not_Null
045c 0279       | y  |		Execute	Discrete,And
045d 77e7       |w   |		Jump_Nonzero	0x445
045e 00ce       |    |		Action	Pop_Auxiliary
045f 00db       |    |		Load_Top	At_Offset_3
0460 022d       | -  |		Execute	Access,Is_Null
0461 00db       |    |		Load_Top	At_Offset_3
0462 022d       | -  |		Execute	Access,Is_Null
0463 0279       | y  |		Execute	Discrete,And
0464 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0465 0000 0000  |    |		.XXX[0x3]
0467 0000       |    |
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046f       | o  |		.CONST	0x046f								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0003       |    |		.CONST	0x0003								; Number of locals
046b			INIT_0468:
046b e235       | 5  |		Load	0x1,0x35
046c 0007       |    |		Action	Break_Optional
046d 00d8       |    |		Load_Top	At_Offset_0
046e 0007       |    |		Action	Break_Optional
046f			BODY_0468:
046f e5ff       |    |		Load	0x2,-0x1
0470 7002       |p   |		Jump_Nonzero	0x473
0471 e211       |    |		Load	0x1,0x11
0472 0257       | W  |		Execute	Discrete,Raise
0473 e5ff       |    |		Load	0x2,-0x1
0474 003a       | :  |		Store_Top	Access,At_Offset_2
0475 00cf       |    |		Action	Mark_Auxiliary
0476 7807       |x   |		Jump	0x47e
0477 00da       |    |		Load_Top	At_Offset_2
0478 003a       | :  |		Store_Top	Access,At_Offset_2
0479 00da       |    |		Load_Top	At_Offset_2
047a 0227       | '  |		Execute	Access,All_Reference
047b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047c 003b       | ;  |		Store_Top	Access,At_Offset_3
047d 00c9       |    |		Action	Pop_Auxiliary_Loop
047e 00da       |    |		Load_Top	At_Offset_2
047f 77f7       |w   |		Jump_Nonzero	0x477
0480 00ce       |    |		Action	Pop_Auxiliary
0481 00d8       |    |		Load_Top	At_Offset_0
0482 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0483 0000 0000  |    |		.BLANK	0000[0x5]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 4601       |F   |		Jump_Case	0x2
048c 7801       |x   |		Jump	0x48e								; case 0x0
048d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
048e 00da       |    |		Load_Top	At_Offset_2
048f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0490 0125       | %  |		Execute	Any,Set_Constraint
0491 00da       |    |		Load_Top	At_Offset_2
0492 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0493 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0494 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0495 0000 0000  |    |		.XXX[0x3]
0497 0000       |    |
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug Table
0498 ; --------------------------------------------------------------------------------------
0498 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xde96,0x0000,0x0001,0x0025
049e 000b 0532  |   2|		.DBG4T	0x000b,0x0532,0xc000,0x8000
04a2 0080 0584  |    |		.DBG4T	0x0080,0x0584,0xc000,0x0000
04a6 00d3 05a9  |    |		.DBG4T	0x00d3,0x05a9,0x1001,0x0000
04aa 00f3 05ac  |    |		.DBG4T	0x00f3,0x05ac,0x1001,0x0000
04ae 010b 05b6  |    |		.DBG4T	0x010b,0x05b6,0x1002,0x0000
04b2 012b 05bc  | +  |		.DBG4T	0x012b,0x05bc,0x1001,0x0000
04b6 0143 05c1  | C  |		.DBG4T	0x0143,0x05c1,0x1001,0x0000
04ba 015b 05c4  | [  |		.DBG4T	0x015b,0x05c4,0x1002,0x0000
04be 0173 05ce  | s  |		.DBG4T	0x0173,0x05ce,0x1002,0x0000
04c2 018b 05d1  |    |		.DBG4T	0x018b,0x05d1,0x1002,0x0000
04c6 01b3 05db  |    |		.DBG4T	0x01b3,0x05db,0x1002,0x0000
04ca 01d3 05e0  |    |		.DBG4T	0x01d3,0x05e0,0x3802,0x0002
04ce 01fb 05e5  |    |		.DBG4T	0x01fb,0x05e5,0x1002,0x0000
04d2 0203 05e8  |    |		.DBG4T	0x0203,0x05e8,0x1001,0x0000
04d6 021b 05f0  |    |		.DBG4T	0x021b,0x05f0,0x1001,0x0000
04da 023b 05f6  | ;  |		.DBG4T	0x023b,0x05f6,0x1002,0x4000
04de 026b 0609  | k  |		.DBG4T	0x026b,0x0609,0x1002,0x4000
04e2 0293 0619  |    |		.DBG4T	0x0293,0x0619,0x1001,0x4000
04e6 02d3 0638  |   8|		.DBG4T	0x02d3,0x0638,0x1001,0x4000
04ea 02f3 0648  |   H|		.DBG4T	0x02f3,0x0648,0x3801,0x4002
04ee 0323 065a  | # Z|		.DBG4T	0x0323,0x065a,0x1002,0x0000
04f2 033b 065f  | ; _|		.DBG4T	0x033b,0x065f,0x1001,0x0000
04f6 034b 0664  | K d|		.DBG4T	0x034b,0x0664,0x1002,0x0000
04fa 0353 0667  | S g|		.DBG4T	0x0353,0x0667,0x1002,0x4000
04fe 0373 0676  | s v|		.DBG4T	0x0373,0x0676,0x1002,0x0000
0502 038b 067b  |   {|		.DBG4T	0x038b,0x067b,0x1002,0x0000
0506 03a3 0680  |    |		.DBG4T	0x03a3,0x0680,0x1002,0x0000
050a 03bb 0683  |    |		.DBG4T	0x03bb,0x0683,0x1002,0x0000
050e 03c3 0686  |    |		.DBG4T	0x03c3,0x0686,0x1002,0x0000
0512 03cb 0689  |    |		.DBG4T	0x03cb,0x0689,0x1001,0x0000
0516 03e3 0691  |    |		.DBG4T	0x03e3,0x0691,0x1001,0x0000
051a 03f3 0696  |    |		.DBG4T	0x03f3,0x0696,0x1001,0x0000
051e 040b 069c  |    |		.DBG4T	0x040b,0x069c,0x1002,0x0000
0522 041b 06a1  |    |		.DBG4T	0x041b,0x06a1,0x1002,0x0000
0526 0433 06a6  | 3  |		.DBG4T	0x0433,0x06a6,0x1002,0x4000
052a 046b 06bc  | k  |		.DBG4T	0x046b,0x06bc,0x1002,0x4000
052e 048b 0000  |    |		.DBG4T	0x048b,0x0000,0x1005,0x0000
0532 ; --------------------------------------------------------------------------------------
0532 ; Debug chain
0532 ; --------------------------------------------------------------------------------------
0532 0028 0000  | (  |		.DBGLEN	0x0028,0x0000
0534 000b 0014  |    |		.DBGLNO	0x000b,0x0014,0x001d,0x0026,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x007d
055c 0003 0004  |    |		.XXX[0x28]
055e 0005 0006  |    |
0560 0007 0008  |    |
0562 0009 000a  |    |
0564 000b 000c  |    |
0566 000d 000e  |    |
0568 000f 0010  |    |
056a 0011 0012  |    |
056c 0013 0014  |    |
056e 0015 0016  |    |
0570 0017 0018  |    |
0572 0019 001a  |    |
0574 001b 001c  |    |
0576 001d 001e  |    |
0578 001f 0020  |    |
057a 0021 0022  | ! "|
057c 0023 0024  | # $|
057e 0025 0026  | % &|
0580 0027 0029  | ' )|
0582 002a 002b  | * +|
0584 ; --------------------------------------------------------------------------------------
0584 ; Debug chain
0584 ; --------------------------------------------------------------------------------------
0584 0023 0000  | #  |		.DBGLEN	0x0023,0x0000
0586 0080 0082  |    |		.DBGLNO	0x0080,0x0082,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca
05a9 ; --------------------------------------------------------------------------------------
05a9 ; Debug chain
05a9 ; --------------------------------------------------------------------------------------
05a9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05ab 00d3       |    |		.DBGLNO	0x00d3
05ac ; --------------------------------------------------------------------------------------
05ac ; Debug chain
05ac ; --------------------------------------------------------------------------------------
05ac 0001 0007  |    |		.DBGLEN	0x0001,0x0007
05ae 00f3 00f5  |    |		.DBGLNO	0x00f3,0x00f5,0x00f7,0x00f9,0x00fa,0x00fe,0x0100,0x0103
05b6 ; --------------------------------------------------------------------------------------
05b6 ; Debug chain
05b6 ; --------------------------------------------------------------------------------------
05b6 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05b8 010b 010d  |    |		.DBGLNO	0x010b,0x010d,0x011b,0x0121
05bc ; --------------------------------------------------------------------------------------
05bc ; Debug chain
05bc ; --------------------------------------------------------------------------------------
05bc 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05be 012b 012d  | + -|		.DBGLNO	0x012b,0x012d,0x013b
05c1 ; --------------------------------------------------------------------------------------
05c1 ; Debug chain
05c1 ; --------------------------------------------------------------------------------------
05c1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05c3 0143       | C  |		.DBGLNO	0x0143
05c4 ; --------------------------------------------------------------------------------------
05c4 ; Debug chain
05c4 ; --------------------------------------------------------------------------------------
05c4 0001 0007  |    |		.DBGLEN	0x0001,0x0007
05c6 015b 015d  | [ ]|		.DBGLNO	0x015b,0x015d,0x015f,0x0161,0x0165,0x0167,0x016a,0x016e
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug chain
05ce ; --------------------------------------------------------------------------------------
05ce 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05d0 0173       | s  |		.DBGLNO	0x0173
05d1 ; --------------------------------------------------------------------------------------
05d1 ; Debug chain
05d1 ; --------------------------------------------------------------------------------------
05d1 0002 0006  |    |		.DBGLEN	0x0002,0x0006
05d3 018b 018d  |    |		.DBGLNO	0x018b,0x018d,0x018f,0x019d,0x019f,0x01a1,0x01a4,0x01a8
05db ; --------------------------------------------------------------------------------------
05db ; Debug chain
05db ; --------------------------------------------------------------------------------------
05db 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05dd 01b3 01b5  |    |		.DBGLNO	0x01b3,0x01b5,0x01b7
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug chain
05e0 ; --------------------------------------------------------------------------------------
05e0 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05e2 01d3 01d5  |    |		.DBGLNO	0x01d3,0x01d5,0x01d7
05e5 ; --------------------------------------------------------------------------------------
05e5 ; Debug chain
05e5 ; --------------------------------------------------------------------------------------
05e5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05e7 01fb       |    |		.DBGLNO	0x01fb
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0001 0005  |    |		.DBGLEN	0x0001,0x0005
05ea 0203 0205  |    |		.DBGLNO	0x0203,0x0205,0x0207,0x0209,0x020d,0x0213
05f0 ; --------------------------------------------------------------------------------------
05f0 ; Debug chain
05f0 ; --------------------------------------------------------------------------------------
05f0 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05f2 021b 021d  |    |		.DBGLNO	0x021b,0x021d,0x0223,0x0227
05f6 ; --------------------------------------------------------------------------------------
05f6 ; Debug chain
05f6 ; --------------------------------------------------------------------------------------
05f6 0003 0007  |    |		.DBGLEN	0x0003,0x0007
05f8 023b 023d  | ; =|		.DBGLNO	0x023b,0x023d,0x023f,0x0241,0x0245,0x024e,0x0257,0x0259,0x025e,0x0261
0602 0001 0003  |    |		.XXX[0x7]
0604 0004 0005  |    |
0606 0006 0002  |    |
0608 0007       |    |
0609 ; --------------------------------------------------------------------------------------
0609 ; Debug chain
0609 ; --------------------------------------------------------------------------------------
0609 0002 0006  |    |		.DBGLEN	0x0002,0x0006
060b 026b 026d  | k m|		.DBGLNO	0x026b,0x026d,0x026f,0x0273,0x0279,0x0281,0x0286,0x0289
0613 0001 0003  |    |		.XXX[0x6]
0615 0004 0005  |    |
0617 0002 0006  |    |
0619 ; --------------------------------------------------------------------------------------
0619 ; Debug chain
0619 ; --------------------------------------------------------------------------------------
0619 0003 000d  |    |		.DBGLEN	0x0003,0x000d
061b 0293 0295  |    |		.DBGLNO	0x0293,0x0295,0x0297,0x0299,0x029b,0x029f,0x02a5,0x02a7,0x02a9,0x02ae,0x02b0,0x02b6,0x02ba,0x02c1,0x02c3,0x02c8
062b 0001 0002  |    |		.XXX[0xd]
062d 0004 0005  |    |
062f 0006 0007  |    |
0631 0008 0009  |    |
0633 000a 000b  |    |
0635 000c 000d  |    |
0637 0003       |    |
0638 ; --------------------------------------------------------------------------------------
0638 ; Debug chain
0638 ; --------------------------------------------------------------------------------------
0638 0002 0006  |    |		.DBGLEN	0x0002,0x0006
063a 02d3 02d5  |    |		.DBGLNO	0x02d3,0x02d5,0x02d7,0x02db,0x02dd,0x02e1,0x02e8,0x02eb
0642 0001 0003  |    |		.XXX[0x6]
0644 0004 0005  |    |
0646 0002 0006  |    |
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0002 0007  |    |		.DBGLEN	0x0002,0x0007
064a 02f3 02f5  |    |		.DBGLNO	0x02f3,0x02f5,0x02f7,0x02fb,0x02fd,0x0301,0x030f,0x0316,0x0319
0653 0001 0003  |    |		.XXX[0x7]
0655 0004 0005  |    |
0657 0006 0002  |    |
0659 0007       |    |
065a ; --------------------------------------------------------------------------------------
065a ; Debug chain
065a ; --------------------------------------------------------------------------------------
065a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
065c 0323 0325  | # %|		.DBGLNO	0x0323,0x0325,0x0327
065f ; --------------------------------------------------------------------------------------
065f ; Debug chain
065f ; --------------------------------------------------------------------------------------
065f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0661 033b 033d  | ; =|		.DBGLNO	0x033b,0x033d,0x033f
0664 ; --------------------------------------------------------------------------------------
0664 ; Debug chain
0664 ; --------------------------------------------------------------------------------------
0664 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0666 034b       | K  |		.DBGLNO	0x034b
0667 ; --------------------------------------------------------------------------------------
0667 ; Debug chain
0667 ; --------------------------------------------------------------------------------------
0667 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0669 0353 0355  | S U|		.DBGLNO	0x0353,0x0355,0x0359,0x035f,0x0361,0x0366,0x0369
0670 0001 0003  |    |		.XXX[0x6]
0672 0004 0005  |    |
0674 0002 0006  |    |
0676 ; --------------------------------------------------------------------------------------
0676 ; Debug chain
0676 ; --------------------------------------------------------------------------------------
0676 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0678 0373 0375  | s u|		.DBGLNO	0x0373,0x0375,0x0378
067b ; --------------------------------------------------------------------------------------
067b ; Debug chain
067b ; --------------------------------------------------------------------------------------
067b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
067d 038b 038d  |    |		.DBGLNO	0x038b,0x038d,0x038f
0680 ; --------------------------------------------------------------------------------------
0680 ; Debug chain
0680 ; --------------------------------------------------------------------------------------
0680 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0682 03a3       |    |		.DBGLNO	0x03a3
0683 ; --------------------------------------------------------------------------------------
0683 ; Debug chain
0683 ; --------------------------------------------------------------------------------------
0683 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0685 03bb       |    |		.DBGLNO	0x03bb
0686 ; --------------------------------------------------------------------------------------
0686 ; Debug chain
0686 ; --------------------------------------------------------------------------------------
0686 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0688 03c3       |    |		.DBGLNO	0x03c3
0689 ; --------------------------------------------------------------------------------------
0689 ; Debug chain
0689 ; --------------------------------------------------------------------------------------
0689 0001 0005  |    |		.DBGLEN	0x0001,0x0005
068b 03cb 03cd  |    |		.DBGLNO	0x03cb,0x03cd,0x03cf,0x03d1,0x03d3,0x03d7
0691 ; --------------------------------------------------------------------------------------
0691 ; Debug chain
0691 ; --------------------------------------------------------------------------------------
0691 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0693 03e3 03e5  |    |		.DBGLNO	0x03e3,0x03e5,0x03e7
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug chain
0696 ; --------------------------------------------------------------------------------------
0696 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0698 03f3 03f5  |    |		.DBGLNO	0x03f3,0x03f5,0x03fd,0x0404
069c ; --------------------------------------------------------------------------------------
069c ; Debug chain
069c ; --------------------------------------------------------------------------------------
069c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
069e 040b 040d  |    |		.DBGLNO	0x040b,0x040d,0x040f
06a1 ; --------------------------------------------------------------------------------------
06a1 ; Debug chain
06a1 ; --------------------------------------------------------------------------------------
06a1 0001 0002  |    |		.DBGLEN	0x0001,0x0002
06a3 041b 041d  |    |		.DBGLNO	0x041b,0x041d,0x041f
06a6 ; --------------------------------------------------------------------------------------
06a6 ; Debug chain
06a6 ; --------------------------------------------------------------------------------------
06a6 0004 0008  |    |		.DBGLEN	0x0004,0x0008
06a8 0433 0435  | 3 5|		.DBGLNO	0x0433,0x0435,0x0437,0x043b,0x043f,0x0441,0x0445,0x044d,0x044f,0x0453,0x0458,0x045f
06b4 0001 0002  |    |		.XXX[0x8]
06b6 0004 0005  |    |
06b8 0006 0007  |    |
06ba 0003 0008  |    |
06bc ; --------------------------------------------------------------------------------------
06bc ; Debug chain
06bc ; --------------------------------------------------------------------------------------
06bc 0002 0007  |    |		.DBGLEN	0x0002,0x0007
06be 046b 046d  | k m|		.DBGLNO	0x046b,0x046d,0x046f,0x0471,0x0473,0x0477,0x0479,0x047e,0x0481
06c7 0001 0002  |    |		.XXX[0x7]
06c9 0003 0005  |    |
06cb 0006 0004  |    |
06cd 0007       |    |
06ce 0000 0000  |    |		.BLANK	0000[0x132]