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

⟦5751fd2a5⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4

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 0300       |    |		.CONST	0x0300								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0076       | v  |		.CONST	0x0076								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0013 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0015 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0017 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0019 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
001b 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
001d 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
001f 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0021 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0023 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0025 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0027 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0029 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
002b 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
002d 0093 0000  |    |		push_full_address	0x0
002f 6058       |`X  |		Indirect_Literal	Discrete,0x88,{0x80000000, 0x00010000}
0030 0273       | s  |		Execute	Discrete,Plus
0031 e20d       |    |		Load	0x1,0xd
0032 6051       |`Q  |		Indirect_Literal	Discrete,0x84,{0x00000000, 0x0000ffff}
0033 0279       | y  |		Execute	Discrete,And
0034 0273       | s  |		Execute	Discrete,Plus
0035 0129       | )  |		Execute	Any,Make_Visible
0036 4818       |H   |		Short_Literal	0x18
0037 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0038 e20e       |    |		Load	0x1,0xe
0039 00d9       |    |		Load_Top	At_Offset_1
003a 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
003c 4802       |H   |		Short_Literal	0x2
003d 032e       | .  |		Declare_Type	Record,Defined,Visible
003e 00d8       |    |		Load_Top	At_Offset_0
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 00db       |    |		Load_Top	At_Offset_3
0041 03c7       |    |		Complete_Type	Access,By_Defining
0042 00d9       |    |		Load_Top	At_Offset_1
0043 0129       | )  |		Execute	Any,Make_Visible
0044 00da       |    |		Load_Top	At_Offset_2
0045 00db       |    |		Load_Top	At_Offset_3
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 4802       |H   |		Short_Literal	0x2
0048 032e       | .  |		Declare_Type	Record,Defined,Visible
0049 00bf       |    |		Action	Accept_Activation
004a a002       |    |		Store_Unchecked	0x0,0x2
004b 00c6       |    |		Action	Check_Subprogram_Elaborated
004c 00da       |    |		Load_Top	At_Offset_2
004d e226       | &  |		Load	0x1,0x26
004e e003       |    |		Load	0x0,0x3
004f e004       |    |		Load	0x0,0x4
0050 4800       |H   |		Short_Literal	0x0
0051 0007       |    |		Action	Break_Optional
0052 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
005a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0075 00c7       |    |		Action	Elaborate_Subprogram
0076			BODY_0008:
0076 00bc       |    |		Action	Signal_Activated
0077 00bb       |    |		Action	Signal_Completion
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
007d 6803       |h   |		Jump_Zero	0x81
007e 00da       |    |		Load_Top	At_Offset_2
007f 8215       |    |		Call	0x1,0x15
0080 00d1       |    |		Pop_Control	Pop_Count_1
0081 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0082 0000 0000  |    |		.XXX[0x2]
0084 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0088 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097       |    |		.CONST	0x0097								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0003       |    |		.CONST	0x0003								; Number of locals
0093			INIT_0090:
0093 e226       | &  |		Load	0x1,0x26
0094 0007       |    |		Action	Break_Optional
0095 00d8       |    |		Load_Top	At_Offset_0
0096 0007       |    |		Action	Break_Optional
0097			BODY_0090:
0097 e5ff       |    |		Load	0x2,-0x1
0098 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0099 003a       | :  |		Store_Top	Access,At_Offset_2
009a 00cf       |    |		Action	Mark_Auxiliary
009b 780d       |x   |		Jump	0xa9
009c 00da       |    |		Load_Top	At_Offset_2
009d 0227       | '  |		Execute	Access,All_Reference
009e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
009f 003a       | :  |		Store_Top	Access,At_Offset_2
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 e22a       | *  |		Load	0x1,0x2a
00a2 e22b       | +  |		Load	0x1,0x2b
00a3 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00a4 8002       |    |		Call	0x0,0x2
00a5 003b       | ;  |		Store_Top	Access,At_Offset_3
00a6 00d9       |    |		Load_Top	At_Offset_1
00a7 003b       | ;  |		Store_Top	Access,At_Offset_3
00a8 00c9       |    |		Action	Pop_Auxiliary_Loop
00a9 00da       |    |		Load_Top	At_Offset_2
00aa 77f1       |w   |		Jump_Nonzero	0x9c
00ab 00ce       |    |		Action	Pop_Auxiliary
00ac e226       | &  |		Load	0x1,0x26
00ad e5ff       |    |		Load	0x2,-0x1
00ae 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00af e226       | &  |		Load	0x1,0x26
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b3 0000 0000  |    |		.BLANK	0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd       |    |		.CONST	0x00bd								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e226       | &  |		Load	0x1,0x26
00bc 0007       |    |		Action	Break_Optional
00bd			BODY_00b8:
00bd e5fe       |    |		Load	0x2,-0x2
00be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00bf 7021       |p!  |		Jump_Nonzero	0xe1
00c0 e226       | &  |		Load	0x1,0x26
00c1 03bc       |    |		Declare_Variable	Access,By_Allocation
00c2 00d8       |    |		Load_Top	At_Offset_0
00c3 00e0       |    |		Load_Encached	Standard_Cache
00c4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c7 e5fe       |    |		Load	0x2,-0x2
00c8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00c9 0229       | )  |		Execute	Access,All_Read
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 0120       |    |		Execute	Any,Is_Value
00ce 6803       |h   |		Jump_Zero	0xd2
00cf e20e       |    |		Load	0x1,0xe
00d0 0122       | "  |		Execute	Any,Make_Root_Type
00d1 011e       |    |		Execute	Any,Convert
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 8211       |    |		Call	0x1,0x11
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d6 00d1       |    |		Pop_Control	Pop_Count_1
00d7 e226       | &  |		Load	0x1,0x26
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00da 0227       | '  |		Execute	Access,All_Reference
00db 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00dc e5fe       |    |		Load	0x2,-0x2
00dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00de e5fe       |    |		Load	0x2,-0x2
00df 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e1 e226       | &  |		Load	0x1,0x26
00e2 03bc       |    |		Declare_Variable	Access,By_Allocation
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 00e0       |    |		Load_Encached	Standard_Cache
00e5 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00e6 0039       | 9  |		Store_Top	Access,At_Offset_1
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 0229       | )  |		Execute	Access,All_Read
00e9 00d8       |    |		Load_Top	At_Offset_0
00ea 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec 0120       |    |		Execute	Any,Is_Value
00ed 6803       |h   |		Jump_Zero	0xf1
00ee e20e       |    |		Load	0x1,0xe
00ef 0122       | "  |		Execute	Any,Make_Root_Type
00f0 011e       |    |		Execute	Any,Convert
00f1 e5ff       |    |		Load	0x2,-0x1
00f2 8211       |    |		Call	0x1,0x11
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f5 00d1       |    |		Pop_Control	Pop_Count_1
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 0227       | '  |		Execute	Access,All_Reference
00fa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc e5fe       |    |		Load	0x2,-0x2
00fd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ff 0000       |    |		.XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107       |    |		.CONST	0x0107								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0003       |    |		.CONST	0x0003								; Number of locals
0103			INIT_0100:
0103 e226       | &  |		Load	0x1,0x26
0104 0007       |    |		Action	Break_Optional
0105 00d8       |    |		Load_Top	At_Offset_0
0106 0007       |    |		Action	Break_Optional
0107			BODY_0100:
0107 e226       | &  |		Load	0x1,0x26
0108 0039       | 9  |		Store_Top	Access,At_Offset_1
0109 e5fe       |    |		Load	0x2,-0x2
010a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
010b 003a       | :  |		Store_Top	Access,At_Offset_2
010c 00cf       |    |		Action	Mark_Auxiliary
010d 7807       |x   |		Jump	0x115
010e 00da       |    |		Load_Top	At_Offset_2
010f 003a       | :  |		Store_Top	Access,At_Offset_2
0110 00da       |    |		Load_Top	At_Offset_2
0111 0227       | '  |		Execute	Access,All_Reference
0112 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0113 003b       | ;  |		Store_Top	Access,At_Offset_3
0114 00c9       |    |		Action	Pop_Auxiliary_Loop
0115 00da       |    |		Load_Top	At_Offset_2
0116 6806       |h   |		Jump_Zero	0x11d
0117 e5ff       |    |		Load	0x2,-0x1
0118 00db       |    |		Load_Top	At_Offset_3
0119 0227       | '  |		Execute	Access,All_Reference
011a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011b 8212       |    |		Call	0x1,0x12
011c 6ff1       |o   |		Jump_Zero	0x10e
011d 00ce       |    |		Action	Pop_Auxiliary
011e 00d9       |    |		Load_Top	At_Offset_1
011f e5fe       |    |		Load	0x2,-0x2
0120 00da       |    |		Load_Top	At_Offset_2
0121 822f       | /  |		Call	0x1,0x2f
0122 00d1       |    |		Pop_Control	Pop_Count_1
0123 003a       | :  |		Store_Top	Access,At_Offset_2
0124 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012f       | /  |		.CONST	0x012f								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e226       | &  |		Load	0x1,0x26
012c 0007       |    |		Action	Break_Optional
012d 00d8       |    |		Load_Top	At_Offset_0
012e 0007       |    |		Action	Break_Optional
012f			BODY_0128:
012f e5fe       |    |		Load	0x2,-0x2
0130 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0131 003a       | :  |		Store_Top	Access,At_Offset_2
0132 e226       | &  |		Load	0x1,0x26
0133 0039       | 9  |		Store_Top	Access,At_Offset_1
0134 00cf       |    |		Action	Mark_Auxiliary
0135 7821       |x!  |		Jump	0x157
0136 e5ff       |    |		Load	0x2,-0x1
0137 00db       |    |		Load_Top	At_Offset_3
0138 0227       | '  |		Execute	Access,All_Reference
0139 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013a 8210       |    |		Call	0x1,0x10
013b 8213       |    |		Call	0x1,0x13
013c 6811       |h   |		Jump_Zero	0x14e
013d 00da       |    |		Load_Top	At_Offset_2
013e e5fe       |    |		Load	0x2,-0x2
013f 00db       |    |		Load_Top	At_Offset_3
0140 822f       | /  |		Call	0x1,0x2f
0141 00d1       |    |		Pop_Control	Pop_Count_1
0142 003b       | ;  |		Store_Top	Access,At_Offset_3
0143 00d9       |    |		Load_Top	At_Offset_1
0144 7004       |p   |		Jump_Nonzero	0x149
0145 e5fe       |    |		Load	0x2,-0x2
0146 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0147 003b       | ;  |		Store_Top	Access,At_Offset_3
0148 780d       |x   |		Jump	0x156
0149 00d9       |    |		Load_Top	At_Offset_1
014a 0227       | '  |		Execute	Access,All_Reference
014b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014c 003b       | ;  |		Store_Top	Access,At_Offset_3
014d 7808       |x   |		Jump	0x156
014e 00da       |    |		Load_Top	At_Offset_2
014f 6806       |h   |		Jump_Zero	0x156
0150 00da       |    |		Load_Top	At_Offset_2
0151 003a       | :  |		Store_Top	Access,At_Offset_2
0152 00da       |    |		Load_Top	At_Offset_2
0153 0227       | '  |		Execute	Access,All_Reference
0154 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0155 003b       | ;  |		Store_Top	Access,At_Offset_3
0156 00c9       |    |		Action	Pop_Auxiliary_Loop
0157 00da       |    |		Load_Top	At_Offset_2
0158 77dd       |w   |		Jump_Nonzero	0x136
0159 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015a 0000 0000  |    |		.BLANK	0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167       | g  |		.CONST	0x0167								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0003       |    |		.CONST	0x0003								; Number of locals
0163			INIT_0160:
0163 e226       | &  |		Load	0x1,0x26
0164 0007       |    |		Action	Break_Optional
0165 00d8       |    |		Load_Top	At_Offset_0
0166 0007       |    |		Action	Break_Optional
0167			BODY_0160:
0167 e226       | &  |		Load	0x1,0x26
0168 0039       | 9  |		Store_Top	Access,At_Offset_1
0169 e5fe       |    |		Load	0x2,-0x2
016a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016b 003a       | :  |		Store_Top	Access,At_Offset_2
016c 00cf       |    |		Action	Mark_Auxiliary
016d 7807       |x   |		Jump	0x175
016e 00da       |    |		Load_Top	At_Offset_2
016f 003a       | :  |		Store_Top	Access,At_Offset_2
0170 00da       |    |		Load_Top	At_Offset_2
0171 0227       | '  |		Execute	Access,All_Reference
0172 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0173 003b       | ;  |		Store_Top	Access,At_Offset_3
0174 00c9       |    |		Action	Pop_Auxiliary_Loop
0175 00da       |    |		Load_Top	At_Offset_2
0176 6806       |h   |		Jump_Zero	0x17d
0177 e5ff       |    |		Load	0x2,-0x1
0178 00db       |    |		Load_Top	At_Offset_3
0179 0227       | '  |		Execute	Access,All_Reference
017a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017b 8212       |    |		Call	0x1,0x12
017c 6ff1       |o   |		Jump_Zero	0x16e
017d 00ce       |    |		Action	Pop_Auxiliary
017e 00d9       |    |		Load_Top	At_Offset_1
017f 6822       |h"  |		Jump_Zero	0x1a2
0180 00d9       |    |		Load_Top	At_Offset_1
0181 e5fe       |    |		Load	0x2,-0x2
0182 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0183 022e       | .  |		Execute	Access,Not_Equal
0184 681d       |h   |		Jump_Zero	0x1a2
0185 00d9       |    |		Load_Top	At_Offset_1
0186 e5fe       |    |		Load	0x2,-0x2
0187 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0188 022f       | /  |		Execute	Access,Equal
0189 6806       |h   |		Jump_Zero	0x190
018a 00d9       |    |		Load_Top	At_Offset_1
018b 0227       | '  |		Execute	Access,All_Reference
018c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
018d e5fe       |    |		Load	0x2,-0x2
018e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018f 7806       |x   |		Jump	0x196
0190 00d9       |    |		Load_Top	At_Offset_1
0191 0227       | '  |		Execute	Access,All_Reference
0192 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0193 00d9       |    |		Load_Top	At_Offset_1
0194 0227       | '  |		Execute	Access,All_Reference
0195 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0196 00d9       |    |		Load_Top	At_Offset_1
0197 e5fe       |    |		Load	0x2,-0x2
0198 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0199 0227       | '  |		Execute	Access,All_Reference
019a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019b 00d9       |    |		Load_Top	At_Offset_1
019c e5fe       |    |		Load	0x2,-0x2
019d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019e e226       | &  |		Load	0x1,0x26
019f 00da       |    |		Load_Top	At_Offset_2
01a0 0227       | '  |		Execute	Access,All_Reference
01a1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a3 0000 0000  |    |		.BLANK	0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad       |    |		.CONST	0x01ad								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e226       | &  |		Load	0x1,0x26
01ac 0007       |    |		Action	Break_Optional
01ad			BODY_01a8:
01ad 00db       |    |		Load_Top	At_Offset_3
01ae 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01af 0039       | 9  |		Store_Top	Access,At_Offset_1
01b0 00cf       |    |		Action	Mark_Auxiliary
01b1 7805       |x   |		Jump	0x1b7
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 0227       | '  |		Execute	Access,All_Reference
01b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b5 003a       | :  |		Store_Top	Access,At_Offset_2
01b6 00c9       |    |		Action	Pop_Auxiliary_Loop
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 6806       |h   |		Jump_Zero	0x1bf
01b9 e5fe       |    |		Load	0x2,-0x2
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 0227       | '  |		Execute	Access,All_Reference
01bc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01bd 8212       |    |		Call	0x1,0x12
01be 6ff3       |o   |		Jump_Zero	0x1b2
01bf 00ce       |    |		Action	Pop_Auxiliary
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 022c       | ,  |		Execute	Access,Not_Null
01c2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c3 0000 0000  |    |		.BLANK	0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd       |    |		.CONST	0x01cd								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb e226       | &  |		Load	0x1,0x26
01cc 0007       |    |		Action	Break_Optional
01cd			BODY_01c8:
01cd 00db       |    |		Load_Top	At_Offset_3
01ce 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cf 0039       | 9  |		Store_Top	Access,At_Offset_1
01d0 00cf       |    |		Action	Mark_Auxiliary
01d1 7805       |x   |		Jump	0x1d7
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 0227       | '  |		Execute	Access,All_Reference
01d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d5 003a       | :  |		Store_Top	Access,At_Offset_2
01d6 00c9       |    |		Action	Pop_Auxiliary_Loop
01d7 00d9       |    |		Load_Top	At_Offset_1
01d8 6807       |h   |		Jump_Zero	0x1e0
01d9 e5fe       |    |		Load	0x2,-0x2
01da 00da       |    |		Load_Top	At_Offset_2
01db 0227       | '  |		Execute	Access,All_Reference
01dc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01dd 8210       |    |		Call	0x1,0x10
01de 8213       |    |		Call	0x1,0x13
01df 6ff2       |o   |		Jump_Zero	0x1d2
01e0 00ce       |    |		Action	Pop_Auxiliary
01e1 00d8       |    |		Load_Top	At_Offset_0
01e2 022c       | ,  |		Execute	Access,Not_Null
01e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e4 0000 0000  |    |		.BLANK	0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed       |    |		.CONST	0x01ed								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0002       |    |		.CONST	0x0002								; Number of locals
01eb			INIT_01e8:
01eb e226       | &  |		Load	0x1,0x26
01ec 0007       |    |		Action	Break_Optional
01ed			BODY_01e8:
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ef 0039       | 9  |		Store_Top	Access,At_Offset_1
01f0 00cf       |    |		Action	Mark_Auxiliary
01f1 7805       |x   |		Jump	0x1f7
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 0227       | '  |		Execute	Access,All_Reference
01f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f5 003a       | :  |		Store_Top	Access,At_Offset_2
01f6 00c9       |    |		Action	Pop_Auxiliary_Loop
01f7 00d9       |    |		Load_Top	At_Offset_1
01f8 6807       |h   |		Jump_Zero	0x200
01f9 e5fe       |    |		Load	0x2,-0x2
01fa 00da       |    |		Load_Top	At_Offset_2
01fb 0227       | '  |		Execute	Access,All_Reference
01fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01fd 8210       |    |		Call	0x1,0x10
01fe 8213       |    |		Call	0x1,0x13
01ff 6ff2       |o   |		Jump_Zero	0x1f2
0200 00ce       |    |		Action	Pop_Auxiliary
0201 00d8       |    |		Load_Top	At_Offset_0
0202 7002       |p   |		Jump_Nonzero	0x205
0203 e225       | %  |		Load	0x1,0x25
0204 0257       | W  |		Execute	Discrete,Raise
0205 00d8       |    |		Load_Top	At_Offset_0
0206 0227       | '  |		Execute	Access,All_Reference
0207 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0208 00d8       |    |		Load_Top	At_Offset_0
0209 0120       |    |		Execute	Any,Is_Value
020a 7002       |p   |		Jump_Nonzero	0x20d
020b 00d8       |    |		Load_Top	At_Offset_0
020c 011e       |    |		Execute	Any,Convert
020d e20e       |    |		Load	0x1,0xe
020e 0119       |    |		Execute	Any,Check_In_Formal_Type
020f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0215 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00db       |    |		Load_Top	At_Offset_3
021c 7002       |p   |		Jump_Nonzero	0x21f
021d e228       | (  |		Load	0x1,0x28
021e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021f 00db       |    |		Load_Top	At_Offset_3
0220 0227       | '  |		Execute	Access,All_Reference
0221 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0222 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00db       |    |		Load_Top	At_Offset_3
022c 0227       | '  |		Execute	Access,All_Reference
022d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
022e 00d8       |    |		Load_Top	At_Offset_0
022f 0120       |    |		Execute	Any,Is_Value
0230 7002       |p   |		Jump_Nonzero	0x233
0231 00d8       |    |		Load_Top	At_Offset_0
0232 011e       |    |		Execute	Any,Convert
0233 e20e       |    |		Load	0x1,0xe
0234 0119       |    |		Execute	Any,Check_In_Formal_Type
0235 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00db       |    |		Load_Top	At_Offset_3
023c 022d       | -  |		Execute	Access,Is_Null
023d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 e226       | &  |		Load	0x1,0x26
0244 0007       |    |		Action	Break_Optional
0245			BODY_0240:
0245 00db       |    |		Load_Top	At_Offset_3
0246 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0247 0039       | 9  |		Store_Top	Access,At_Offset_1
0248 00cf       |    |		Action	Mark_Auxiliary
0249 7805       |x   |		Jump	0x24f
024a 00d9       |    |		Load_Top	At_Offset_1
024b 0227       | '  |		Execute	Access,All_Reference
024c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024d 003a       | :  |		Store_Top	Access,At_Offset_2
024e 00c9       |    |		Action	Pop_Auxiliary_Loop
024f 00d9       |    |		Load_Top	At_Offset_1
0250 6807       |h   |		Jump_Zero	0x258
0251 e5fe       |    |		Load	0x2,-0x2
0252 00da       |    |		Load_Top	At_Offset_2
0253 0227       | '  |		Execute	Access,All_Reference
0254 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0255 8210       |    |		Call	0x1,0x10
0256 8213       |    |		Call	0x1,0x13
0257 6ff2       |o   |		Jump_Zero	0x24a
0258 00ce       |    |		Action	Pop_Auxiliary
0259 00d8       |    |		Load_Top	At_Offset_0
025a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
025b 0000 0000  |    |		.BLANK	0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265       | e  |		.CONST	0x0265								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0002       |    |		.CONST	0x0002								; Number of locals
0263			INIT_0260:
0263 e226       | &  |		Load	0x1,0x26
0264 0007       |    |		Action	Break_Optional
0265			BODY_0260:
0265 e5fd       |    |		Load	0x2,-0x3
0266 0039       | 9  |		Store_Top	Access,At_Offset_1
0267 00d8       |    |		Load_Top	At_Offset_0
0268 7002       |p   |		Jump_Nonzero	0x26b
0269 00d8       |    |		Load_Top	At_Offset_0
026a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
026b 00d8       |    |		Load_Top	At_Offset_0
026c 0227       | '  |		Execute	Access,All_Reference
026d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026e 0039       | 9  |		Store_Top	Access,At_Offset_1
026f 00cf       |    |		Action	Mark_Auxiliary
0270 7805       |x   |		Jump	0x276
0271 00d9       |    |		Load_Top	At_Offset_1
0272 0227       | '  |		Execute	Access,All_Reference
0273 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0274 003a       | :  |		Store_Top	Access,At_Offset_2
0275 00c9       |    |		Action	Pop_Auxiliary_Loop
0276 00d9       |    |		Load_Top	At_Offset_1
0277 6807       |h   |		Jump_Zero	0x27f
0278 e5fe       |    |		Load	0x2,-0x2
0279 00da       |    |		Load_Top	At_Offset_2
027a 0227       | '  |		Execute	Access,All_Reference
027b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027c 8210       |    |		Call	0x1,0x10
027d 8213       |    |		Call	0x1,0x13
027e 6ff2       |o   |		Jump_Zero	0x271
027f 00ce       |    |		Action	Pop_Auxiliary
0280 00d8       |    |		Load_Top	At_Offset_0
0281 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0282 0000 0000  |    |		.BLANK	0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e5fd       |    |		Load	0x2,-0x3
028c 0227       | '  |		Execute	Access,All_Reference
028d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
028e 00d8       |    |		Load_Top	At_Offset_0
028f 0120       |    |		Execute	Any,Is_Value
0290 7002       |p   |		Jump_Nonzero	0x293
0291 00d8       |    |		Load_Top	At_Offset_0
0292 011e       |    |		Execute	Any,Convert
0293 e20e       |    |		Load	0x1,0xe
0294 0119       |    |		Execute	Any,Check_In_Formal_Type
0295 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0296 0000 0000  |    |		.XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e5fd       |    |		Load	0x2,-0x3
029c 022d       | -  |		Execute	Access,Is_Null
029d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e5fd       |    |		Load	0x2,-0x3
02a4 6847       |hG  |		Jump_Zero	0x2ec
02a5 e5fd       |    |		Load	0x2,-0x3
02a6 e5fe       |    |		Load	0x2,-0x2
02a7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a8 022f       | /  |		Execute	Access,Equal
02a9 e5fd       |    |		Load	0x2,-0x3
02aa e5fe       |    |		Load	0x2,-0x2
02ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ac 022f       | /  |		Execute	Access,Equal
02ad 0279       | y  |		Execute	Discrete,And
02ae 680d       |h   |		Jump_Zero	0x2bc
02af e5fd       |    |		Load	0x2,-0x3
02b0 e22a       | *  |		Load	0x1,0x2a
02b1 e22b       | +  |		Load	0x1,0x2b
02b2 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02b3 8002       |    |		Call	0x0,0x2
02b4 c5fd       |    |		Store	0x2,-0x3
02b5 e226       | &  |		Load	0x1,0x26
02b6 e5fe       |    |		Load	0x2,-0x2
02b7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02b8 e226       | &  |		Load	0x1,0x26
02b9 e5fe       |    |		Load	0x2,-0x2
02ba 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02bb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02bc e5fd       |    |		Load	0x2,-0x3
02bd e5fe       |    |		Load	0x2,-0x2
02be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02bf 022f       | /  |		Execute	Access,Equal
02c0 680c       |h   |		Jump_Zero	0x2cd
02c1 e5fd       |    |		Load	0x2,-0x3
02c2 0227       | '  |		Execute	Access,All_Reference
02c3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c4 e5fe       |    |		Load	0x2,-0x2
02c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c6 e5fd       |    |		Load	0x2,-0x3
02c7 e22a       | *  |		Load	0x1,0x2a
02c8 e22b       | +  |		Load	0x1,0x2b
02c9 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02ca 8002       |    |		Call	0x0,0x2
02cb c5fd       |    |		Store	0x2,-0x3
02cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02cd e5fd       |    |		Load	0x2,-0x3
02ce e5fe       |    |		Load	0x2,-0x2
02cf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d0 022f       | /  |		Execute	Access,Equal
02d1 680e       |h   |		Jump_Zero	0x2e0
02d2 e226       | &  |		Load	0x1,0x26
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 e5fe       |    |		Load	0x2,-0x2
02d8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d9 e5fd       |    |		Load	0x2,-0x3
02da e22a       | *  |		Load	0x1,0x2a
02db e22b       | +  |		Load	0x1,0x2b
02dc 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02dd 8002       |    |		Call	0x0,0x2
02de c5fd       |    |		Store	0x2,-0x3
02df 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e0 e5fd       |    |		Load	0x2,-0x3
02e1 0227       | '  |		Execute	Access,All_Reference
02e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 0227       | '  |		Execute	Access,All_Reference
02e5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e6 e5fd       |    |		Load	0x2,-0x3
02e7 e22a       | *  |		Load	0x1,0x2a
02e8 e22b       | +  |		Load	0x1,0x2b
02e9 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02ea 8002       |    |		Call	0x0,0x2
02eb c5fd       |    |		Store	0x2,-0x3
02ec 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 4601       |F   |		Jump_Case	0x2
02f4 7801       |x   |		Jump	0x2f6								; case 0x0
02f5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02f8 0125       | %  |		Execute	Any,Set_Constraint
02f9 00da       |    |		Load_Top	At_Offset_2
02fa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0xca84,0x0000,0x0001,0x0000
0306 0004 b0b4  |    |		.XXX[0xfa]
0308 0005 c8f5  |    |
030a 0000 8916  |    |
030c 0047 080e  | G  |
030e 0004 b134  |   4|
0310 0005 c8f5  |    |
0312 0000 8916  |    |
0314 0047 080e  | G  |
0316 0004 b234  |   4|
0318 0005 c8f5  |    |
031a 0000 8916  |    |
031c 0047 080e  | G  |
031e 0004 b334  |   4|
0320 0005 c8f5  |    |
0322 0000 8916  |    |
0324 0047 080e  | G  |
0326 0004 b4b4  |    |
0328 0005 c8f5  |    |
032a 0000 8916  |    |
032c 0047 080e  | G  |
032e 0004 b634  |   4|
0330 0005 c8f5  |    |
0332 0000 8916  |    |
0334 0047 080e  | G  |
0336 0004 b7b4  |    |
0338 0005 c8f5  |    |
033a 0000 8916  |    |
033c 0047 080e  | G  |
033e 0004 b8b4  |    |
0340 0005 c8f5  |    |
0342 0000 8916  |    |
0344 0047 080e  | G  |
0346 0004 b9b4  |    |
0348 0005 c8f5  |    |
034a 0000 8916  |    |
034c 0047 080e  | G  |
034e 0004 bab4  |    |
0350 0005 c8f5  |    |
0352 0000 8916  |    |
0354 0047 080e  | G  |
0356 0004 bc34  |   4|
0358 0005 c8f5  |    |
035a 0000 8916  |    |
035c 0047 080e  | G  |
035e 0004 bdb4  |    |
0360 0005 c8f5  |    |
0362 0000 8916  |    |
0364 0047 080e  | G  |
0366 0004 bfb4  |    |
0368 0005 c8f5  |    |
036a 0000 8916  |    |
036c 0047 080e  | G  |
036e 0004 c134  |   4|
0370 0005 c8f5  |    |
0372 0000 8916  |    |
0374 0047 080e  | G  |
0376 0004 c2b4  |    |
0378 0005 c8f5  |    |
037a 0000 8916  |    |
037c 0047 080e  | G  |
037e 0004 c434  |   4|
0380 0005 c8f5  |    |
0382 0000 8916  |    |
0384 0047 080e  | G  |
0386 0004 c534  |   4|
0388 0005 c8f5  |    |
038a 0000 8916  |    |
038c 0047 080e  | G  |
038e 0004 c6b4  |    |
0390 0005 c8f5  |    |
0392 0000 8916  |    |
0394 0047 080e  | G  |
0396 0004 c7b4  |    |
0398 0005 c8f5  |    |
039a 0000 8916  |    |
039c 0047 080e  | G  |
039e 0004 c934  |   4|
03a0 0005 c8f5  |    |
03a2 0000 8916  |    |
03a4 0047 080e  | G  |
03a6 0004 cb34  |   4|
03a8 0005 c8f5  |    |
03aa 0000 8916  |    |
03ac 0047 080e  | G  |
03ae 0004 ccb4  |    |
03b0 0005 c8f5  |    |
03b2 0000 8916  |    |
03b4 0047 080e  | G  |
03b6 0004 cdb4  |    |
03b8 0005 c8f5  |    |
03ba 0000 8916  |    |
03bc 0047 080e  | G  |
03be 0004 cf34  |   4|
03c0 0005 c8f5  |    |
03c2 0000 8916  |    |
03c4 0047 080e  | G  |
03c6 0004 d034  |   4|
03c8 0005 c8f5  |    |
03ca 0000 8916  |    |
03cc 0047 080e  | G  |
03ce 0004 d1b4  |    |
03d0 0005 c8f5  |    |
03d2 0000 8916  |    |
03d4 0047 080e  | G  |
03d6 0004 d334  |   4|
03d8 0005 c8f5  |    |
03da 0000 8916  |    |
03dc 0047 080e  | G  |
03de 0004 d4b4  |    |
03e0 0005 c8f5  |    |
03e2 0000 8916  |    |
03e4 0047 080e  | G  |
03e6 0004 d634  |   4|
03e8 0005 c8f5  |    |
03ea 0000 8916  |    |
03ec 0047 080e  | G  |
03ee 0004 d734  |   4|
03f0 0005 c8f5  |    |
03f2 0000 8916  |    |
03f4 0047 080e  | G  |
03f6 0004 d8b4  |    |
03f8 0005 c8f5  |    |
03fa 0000 8916  |    |
03fc 0047 080e  | G  |
03fe 0004 d934  |   4|