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

⟦14b5f4e16⟧

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

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 0480       |    |		.CONST	0x0480								; 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 00d1       |    |		.CONST	0x00d1								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003a       | :  |		.CONST	0x003a								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d e002       |    |		Load	0x0,0x2
000e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000f e002       |    |		Load	0x0,0x2
0010 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0011 e002       |    |		Load	0x0,0x2
0012 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0013 e002       |    |		Load	0x0,0x2
0014 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0015 e002       |    |		Load	0x0,0x2
0016 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0017 e002       |    |		Load	0x0,0x2
0018 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0019 e002       |    |		Load	0x0,0x2
001a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
001b e002       |    |		Load	0x0,0x2
001c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
001d e002       |    |		Load	0x0,0x2
001e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
001f e002       |    |		Load	0x0,0x2
0020 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0021 e20d       |    |		Load	0x1,0xd
0022 02a0       |    |		Declare_Subprogram	Null_Subprogram
0023 480b       |H   |		Short_Literal	0xb
0024 032e       | .  |		Declare_Type	Record,Defined,Visible
0025 00d8       |    |		Load_Top	At_Offset_0
0026 00da       |    |		Load_Top	At_Offset_2
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 4802       |H   |		Short_Literal	0x2
0029 032e       | .  |		Declare_Type	Record,Defined,Visible
002a 00d8       |    |		Load_Top	At_Offset_0
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c e20d       |    |		Load	0x1,0xd
002d 03c7       |    |		Complete_Type	Access,By_Defining
002e 0093 0000  |    |		push_full_address	0x0
0030 610b       |a   |		Indirect_Literal	Discrete,0x13c,{0x80000000, 0x00010000}
0031 0273       | s  |		Execute	Discrete,Plus
0032 0129       | )  |		Execute	Any,Make_Visible
0033 0093 0000  |    |		push_full_address	0x0
0035 6102       |a   |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00020000}
0036 0273       | s  |		Execute	Discrete,Plus
0037 0129       | )  |		Execute	Any,Make_Visible
0038 0093 0000  |    |		push_full_address	0x0
003a 60f9       |`   |		Indirect_Literal	Discrete,0x134,{0x80000000, 0x00030000}
003b 0273       | s  |		Execute	Discrete,Plus
003c 0129       | )  |		Execute	Any,Make_Visible
003d 0093 0000  |    |		push_full_address	0x0
003f 60f0       |`   |		Indirect_Literal	Discrete,0x130,{0x80000000, 0x00040000}
0040 0273       | s  |		Execute	Discrete,Plus
0041 0129       | )  |		Execute	Any,Make_Visible
0042 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0044 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0046 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0048 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
004a 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
004c 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
004e 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0050 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0052 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0054 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0056 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0058 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
005a 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
005c 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
005e 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0060 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0062 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0064 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
0066 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0068 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
006a 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
006c 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
006e 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0070 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
0072 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0074 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0076 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0078 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
007a 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
007c 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
007e 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0080 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
0082 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0084 00bf       |    |		Action	Accept_Activation
0085 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 a003       |    |		Store_Unchecked	0x0,0x3
0088 00c6       |    |		Action	Check_Subprogram_Elaborated
0089 e20f       |    |		Load	0x1,0xf
008a e20d       |    |		Load	0x1,0xd
008b e004       |    |		Load	0x0,0x4
008c e005       |    |		Load	0x0,0x5
008d 4800       |H   |		Short_Literal	0x0
008e 0007       |    |		Action	Break_Optional
008f 029d 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call
0091 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1			BODY_0008:
00d1 00bc       |    |		Action	Signal_Activated
00d2 00bb       |    |		Action	Signal_Completion
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00dd 8006       |    |		Call	0x0,0x6
00de e5fe       |    |		Load	0x2,-0x2
00df 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e0 8006       |    |		Call	0x0,0x6
00e1 01df       |    |		Execute	Vector,Equal
00e2 00db       |    |		Load_Top	At_Offset_3
00e3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e4 8006       |    |		Call	0x0,0x6
00e5 e5fe       |    |		Load	0x2,-0x2
00e6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e7 8006       |    |		Call	0x0,0x6
00e8 01df       |    |		Execute	Vector,Equal
00e9 0279       | y  |		Execute	Discrete,And
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ec 8006       |    |		Call	0x0,0x6
00ed e5fe       |    |		Load	0x2,-0x2
00ee 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ef 8006       |    |		Call	0x0,0x6
00f0 01df       |    |		Execute	Vector,Equal
00f1 0279       | y  |		Execute	Discrete,And
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00f4 8006       |    |		Call	0x0,0x6
00f5 e5fe       |    |		Load	0x2,-0x2
00f6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00f7 8006       |    |		Call	0x0,0x6
00f8 01df       |    |		Execute	Vector,Equal
00f9 0279       | y  |		Execute	Discrete,And
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00fc 8006       |    |		Call	0x0,0x6
00fd e5fe       |    |		Load	0x2,-0x2
00fe 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00ff 8006       |    |		Call	0x0,0x6
0100 01df       |    |		Execute	Vector,Equal
0101 0279       | y  |		Execute	Discrete,And
0102 00db       |    |		Load_Top	At_Offset_3
0103 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0104 8006       |    |		Call	0x0,0x6
0105 e5fe       |    |		Load	0x2,-0x2
0106 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0107 8006       |    |		Call	0x0,0x6
0108 01df       |    |		Execute	Vector,Equal
0109 0279       | y  |		Execute	Discrete,And
010a 00db       |    |		Load_Top	At_Offset_3
010b 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
010c 8006       |    |		Call	0x0,0x6
010d e5fe       |    |		Load	0x2,-0x2
010e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
010f 8006       |    |		Call	0x0,0x6
0110 01df       |    |		Execute	Vector,Equal
0111 0279       | y  |		Execute	Discrete,And
0112 00db       |    |		Load_Top	At_Offset_3
0113 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0114 8006       |    |		Call	0x0,0x6
0115 e5fe       |    |		Load	0x2,-0x2
0116 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0117 8006       |    |		Call	0x0,0x6
0118 01df       |    |		Execute	Vector,Equal
0119 0279       | y  |		Execute	Discrete,And
011a 00db       |    |		Load_Top	At_Offset_3
011b 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
011c 8006       |    |		Call	0x0,0x6
011d e5fe       |    |		Load	0x2,-0x2
011e 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
011f 8006       |    |		Call	0x0,0x6
0120 01df       |    |		Execute	Vector,Equal
0121 0279       | y  |		Execute	Discrete,And
0122 00db       |    |		Load_Top	At_Offset_3
0123 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0124 8006       |    |		Call	0x0,0x6
0125 e5fe       |    |		Load	0x2,-0x2
0126 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0127 8006       |    |		Call	0x0,0x6
0128 01df       |    |		Execute	Vector,Equal
0129 0279       | y  |		Execute	Discrete,And
012a 6802       |h   |		Jump_Zero	0x12d
012b 4801       |H   |		Short_Literal	0x1
012c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012d 4800       |H   |		Short_Literal	0x0
012e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012f 0000       |    |		.XXX[0x1]
0130 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0134 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
013c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145       | E  |		.CONST	0x0145								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e20d       |    |		Load	0x1,0xd
0144 0007       |    |		Action	Break_Optional
0145			BODY_0140:
0145 e5fe       |    |		Load	0x2,-0x2
0146 7003       |p   |		Jump_Nonzero	0x14a
0147 00db       |    |		Load_Top	At_Offset_3
0148 a5fe       |    |		Store_Unchecked	0x2,-0x2
0149 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
014a e5fe       |    |		Load	0x2,-0x2
014b e5ff       |    |		Load	0x2,-0x1
014c 022f       | /  |		Execute	Access,Equal
014d 6802       |h   |		Jump_Zero	0x150
014e e210       |    |		Load	0x1,0x10
014f 0257       | W  |		Execute	Discrete,Raise
0150 e5fe       |    |		Load	0x2,-0x2
0151 823a       | :  |		Call	0x1,0x3a
0152 0039       | 9  |		Store_Top	Access,At_Offset_1
0153 00db       |    |		Load_Top	At_Offset_3
0154 00d9       |    |		Load_Top	At_Offset_1
0155 0227       | '  |		Execute	Access,All_Reference
0156 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0157 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e20d       |    |		Load	0x1,0xd
015c 0007       |    |		Action	Break_Optional
015d			BODY_0158:
015d e20f       |    |		Load	0x1,0xf
015e 0322       | "  |		Declare_Variable	Record
015f e5ff       |    |		Load	0x2,-0x1
0160 00d9       |    |		Load_Top	At_Offset_1
0161 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0162 e20d       |    |		Load	0x1,0xd
0163 00d9       |    |		Load_Top	At_Offset_1
0164 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0165 e20d       |    |		Load	0x1,0xd
0166 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0167 0039       | 9  |		Store_Top	Access,At_Offset_1
0168 00d8       |    |		Load_Top	At_Offset_0
0169 e5fe       |    |		Load	0x2,-0x2
016a 8217       |    |		Call	0x1,0x17
016b 0039       | 9  |		Store_Top	Access,At_Offset_1
016c 00d8       |    |		Load_Top	At_Offset_0
016d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 e20d       |    |		Load	0x1,0xd
0174 0007       |    |		Action	Break_Optional
0175			BODY_0170:
0175 e20f       |    |		Load	0x1,0xf
0176 0322       | "  |		Declare_Variable	Record
0177 e5ff       |    |		Load	0x2,-0x1
0178 00d9       |    |		Load_Top	At_Offset_1
0179 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
017a e20d       |    |		Load	0x1,0xd
017b 00d9       |    |		Load_Top	At_Offset_1
017c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
017d e20d       |    |		Load	0x1,0xd
017e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
017f 0039       | 9  |		Store_Top	Access,At_Offset_1
0180 e5fe       |    |		Load	0x2,-0x2
0181 00d9       |    |		Load_Top	At_Offset_1
0182 8215       |    |		Call	0x1,0x15
0183 c5fe       |    |		Store	0x2,-0x2
0184 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e20f       |    |		Load	0x1,0xf
018c 0322       | "  |		Declare_Variable	Record
018d 00db       |    |		Load_Top	At_Offset_3
018e 00d9       |    |		Load_Top	At_Offset_1
018f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0190 e5fe       |    |		Load	0x2,-0x2
0191 00d9       |    |		Load_Top	At_Offset_1
0192 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0193 e20d       |    |		Load	0x1,0xd
0194 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0195 a5fe       |    |		Store_Unchecked	0x2,-0x2
0196 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d       |    |		.CONST	0x019d								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e20d       |    |		Load	0x1,0xd
019c 0007       |    |		Action	Break_Optional
019d			BODY_0198:
019d 00db       |    |		Load_Top	At_Offset_3
019e 7002       |p   |		Jump_Nonzero	0x1a1
019f e5fe       |    |		Load	0x2,-0x2
01a0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 e5fe       |    |		Load	0x2,-0x2
01a3 022f       | /  |		Execute	Access,Equal
01a4 6802       |h   |		Jump_Zero	0x1a7
01a5 e210       |    |		Load	0x1,0x10
01a6 0257       | W  |		Execute	Discrete,Raise
01a7 00db       |    |		Load_Top	At_Offset_3
01a8 823a       | :  |		Call	0x1,0x3a
01a9 0039       | 9  |		Store_Top	Access,At_Offset_1
01aa e5fe       |    |		Load	0x2,-0x2
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac 0227       | '  |		Execute	Access,All_Reference
01ad 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01ae 00db       |    |		Load_Top	At_Offset_3
01af 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e20f       |    |		Load	0x1,0xf
01b4 0322       | "  |		Declare_Variable	Record
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bb e20d       |    |		Load	0x1,0xd
01bc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01bd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c7       |    |		.CONST	0x01c7								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0003       |    |		.CONST	0x0003								; Number of locals
01c3			INIT_01c0:
01c3 e20d       |    |		Load	0x1,0xd
01c4 0007       |    |		Action	Break_Optional
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 0007       |    |		Action	Break_Optional
01c7			BODY_01c0:
01c7 e20f       |    |		Load	0x1,0xf
01c8 0322       | "  |		Declare_Variable	Record
01c9 e5fe       |    |		Load	0x2,-0x2
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01cc e20d       |    |		Load	0x1,0xd
01cd 00d9       |    |		Load_Top	At_Offset_1
01ce 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01cf e20d       |    |		Load	0x1,0xd
01d0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01d1 003a       | :  |		Store_Top	Access,At_Offset_2
01d2 e5ff       |    |		Load	0x2,-0x1
01d3 7002       |p   |		Jump_Nonzero	0x1d6
01d4 00d9       |    |		Load_Top	At_Offset_1
01d5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d6 e5ff       |    |		Load	0x2,-0x1
01d7 823a       | :  |		Call	0x1,0x3a
01d8 0039       | 9  |		Store_Top	Access,At_Offset_1
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 00d9       |    |		Load_Top	At_Offset_1
01db 0227       | '  |		Execute	Access,All_Reference
01dc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01dd e5ff       |    |		Load	0x2,-0x1
01de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 7002       |p   |		Jump_Nonzero	0x1e7
01e5 e20d       |    |		Load	0x1,0xd
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 e20f       |    |		Load	0x1,0xf
01e8 0322       | "  |		Declare_Variable	Record
01e9 00db       |    |		Load_Top	At_Offset_3
01ea 0227       | '  |		Execute	Access,All_Reference
01eb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01ec 00d9       |    |		Load_Top	At_Offset_1
01ed 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ee 00db       |    |		Load_Top	At_Offset_3
01ef 0227       | '  |		Execute	Access,All_Reference
01f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f1 821c       |    |		Call	0x1,0x1c
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f4 e20d       |    |		Load	0x1,0xd
01f5 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0000       |    |		.XXX[0x1]
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 e5fd       |    |		Load	0x2,-0x3
01fc 7002       |p   |		Jump_Nonzero	0x1ff
01fd e20d       |    |		Load	0x1,0xd
01fe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01ff e20f       |    |		Load	0x1,0xf
0200 0322       | "  |		Declare_Variable	Record
0201 e5fd       |    |		Load	0x2,-0x3
0202 0227       | '  |		Execute	Access,All_Reference
0203 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0204 85fe       |    |		Call	0x2,-0x2
0205 00d9       |    |		Load_Top	At_Offset_1
0206 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0207 e5fd       |    |		Load	0x2,-0x3
0208 0227       | '  |		Execute	Access,All_Reference
0209 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020a 4ffe       |O   |		Short_Literal	-0x2
020b 4802       |H   |		Short_Literal	0x2
020c 0099       |    |		Action	Reference_Dynamic
020d 4fff       |O   |		Short_Literal	-0x1
020e 4802       |H   |		Short_Literal	0x2
020f 0099       |    |		Action	Reference_Dynamic
0210 821d       |    |		Call	0x1,0x1d
0211 00d9       |    |		Load_Top	At_Offset_1
0212 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0213 e20d       |    |		Load	0x1,0xd
0214 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0215 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
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 e20d       |    |		Load	0x1,0xd
021c 00ca       |    |		Action	Exit_Nullary_Function
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225       | %  |		.CONST	0x0225								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0002       |    |		.CONST	0x0002								; Number of locals
0223			INIT_0220:
0223 e20d       |    |		Load	0x1,0xd
0224 0007       |    |		Action	Break_Optional
0225			BODY_0220:
0225 00db       |    |		Load_Top	At_Offset_3
0226 7002       |p   |		Jump_Nonzero	0x229
0227 e211       |    |		Load	0x1,0x11
0228 0257       | W  |		Execute	Discrete,Raise
0229 00db       |    |		Load_Top	At_Offset_3
022a 0227       | '  |		Execute	Access,All_Reference
022b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022c 0039       | 9  |		Store_Top	Access,At_Offset_1
022d 00db       |    |		Load_Top	At_Offset_3
022e e235       | 5  |		Load	0x1,0x35
022f e236       | 6  |		Load	0x1,0x36
0230 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0231 8003       |    |		Call	0x0,0x3
0232 c5ff       |    |		Store	0x2,-0x1
0233 00d8       |    |		Load_Top	At_Offset_0
0234 a5ff       |    |		Store_Unchecked	0x2,-0x1
0235 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0236 0000 0000  |    |		.XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d       | =  |		.CONST	0x023d								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b e20d       |    |		Load	0x1,0xd
023c 0007       |    |		Action	Break_Optional
023d			BODY_0238:
023d 00db       |    |		Load_Top	At_Offset_3
023e e5fe       |    |		Load	0x2,-0x2
023f 0227       | '  |		Execute	Access,All_Reference
0240 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0241 8214       |    |		Call	0x1,0x14
0242 6804       |h   |		Jump_Zero	0x247
0243 e5fe       |    |		Load	0x2,-0x2
0244 821f       |    |		Call	0x1,0x1f
0245 c5fe       |    |		Store	0x2,-0x2
0246 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0247 e5fe       |    |		Load	0x2,-0x2
0248 0229       | )  |		Execute	Access,All_Read
0249 00d8       |    |		Load_Top	At_Offset_0
024a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024b e5ff       |    |		Load	0x2,-0x1
024c 8220       |    |		Call	0x1,0x20
024d 00d9       |    |		Load_Top	At_Offset_1
024e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
024f 00d1       |    |		Pop_Control	Pop_Count_1
0250 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0251 0000 0000  |    |		.BLANK	0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0261       | a  |		.CONST	0x0261								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0004       |    |		.CONST	0x0004								; Number of locals
025b			INIT_0258:
025b e20d       |    |		Load	0x1,0xd
025c 0007       |    |		Action	Break_Optional
025d 00d8       |    |		Load_Top	At_Offset_0
025e 0007       |    |		Action	Break_Optional
025f 00e1       |    |		Load_Encached	Boolean_Cache
0260 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0261			BODY_0258:
0261 e5ff       |    |		Load	0x2,-0x1
0262 003b       | ;  |		Store_Top	Access,At_Offset_3
0263 00cf       |    |		Action	Mark_Auxiliary
0264 7817       |x   |		Jump	0x27c
0265 e5fe       |    |		Load	0x2,-0x2
0266 e402       |    |		Load	0x2,0x2
0267 0227       | '  |		Execute	Access,All_Reference
0268 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0269 8214       |    |		Call	0x1,0x14
026a 0f00       |    |		Execute_Immediate	Equal,0x0
026b 00da       |    |		Load_Top	At_Offset_2
026c 0278       | x  |		Execute	Discrete,Or
026d 6807       |h   |		Jump_Zero	0x275
026e 00da       |    |		Load_Top	At_Offset_2
026f e402       |    |		Load	0x2,0x2
0270 0227       | '  |		Execute	Access,All_Reference
0271 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0272 8217       |    |		Call	0x1,0x17
0273 003b       | ;  |		Store_Top	Access,At_Offset_3
0274 7802       |x   |		Jump	0x277
0275 4801       |H   |		Short_Literal	0x1
0276 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0277 00db       |    |		Load_Top	At_Offset_3
0278 0227       | '  |		Execute	Access,All_Reference
0279 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027a a402       |    |		Store_Unchecked	0x2,0x2
027b 00c9       |    |		Action	Pop_Auxiliary_Loop
027c 00db       |    |		Load_Top	At_Offset_3
027d 77e7       |w   |		Jump_Nonzero	0x265
027e 00ce       |    |		Action	Pop_Auxiliary
027f 00d9       |    |		Load_Top	At_Offset_1
0280 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0281 0000 0000  |    |		.BLANK	0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028f       |    |		.CONST	0x028f								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0003       |    |		.CONST	0x0003								; Number of locals
028b			INIT_0288:
028b e20d       |    |		Load	0x1,0xd
028c 0007       |    |		Action	Break_Optional
028d 00d8       |    |		Load_Top	At_Offset_0
028e 0007       |    |		Action	Break_Optional
028f			BODY_0288:
028f e5ff       |    |		Load	0x2,-0x1
0290 003a       | :  |		Store_Top	Access,At_Offset_2
0291 00cf       |    |		Action	Mark_Auxiliary
0292 7811       |x   |		Jump	0x2a4
0293 e5fe       |    |		Load	0x2,-0x2
0294 00db       |    |		Load_Top	At_Offset_3
0295 0227       | '  |		Execute	Access,All_Reference
0296 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0297 8214       |    |		Call	0x1,0x14
0298 7006       |p   |		Jump_Nonzero	0x29f
0299 00d9       |    |		Load_Top	At_Offset_1
029a 00db       |    |		Load_Top	At_Offset_3
029b 0227       | '  |		Execute	Access,All_Reference
029c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
029d 8217       |    |		Call	0x1,0x17
029e 003a       | :  |		Store_Top	Access,At_Offset_2
029f 00da       |    |		Load_Top	At_Offset_2
02a0 0227       | '  |		Execute	Access,All_Reference
02a1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a2 003b       | ;  |		Store_Top	Access,At_Offset_3
02a3 00c9       |    |		Action	Pop_Auxiliary_Loop
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 77ed       |w   |		Jump_Nonzero	0x293
02a6 00ce       |    |		Action	Pop_Auxiliary
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b9       |    |		.CONST	0x02b9								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0004       |    |		.CONST	0x0004								; Number of locals
02b3			INIT_02b0:
02b3 e20d       |    |		Load	0x1,0xd
02b4 0007       |    |		Action	Break_Optional
02b5 00d8       |    |		Load_Top	At_Offset_0
02b6 0007       |    |		Action	Break_Optional
02b7 e20d       |    |		Load	0x1,0xd
02b8 0007       |    |		Action	Break_Optional
02b9			BODY_02b0:
02b9 e5fe       |    |		Load	0x2,-0x2
02ba 003b       | ;  |		Store_Top	Access,At_Offset_3
02bb e20d       |    |		Load	0x1,0xd
02bc 003a       | :  |		Store_Top	Access,At_Offset_2
02bd 00cf       |    |		Action	Mark_Auxiliary
02be 7829       |x)  |		Jump	0x2e8
02bf e5ff       |    |		Load	0x2,-0x1
02c0 e402       |    |		Load	0x2,0x2
02c1 0227       | '  |		Execute	Access,All_Reference
02c2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02c3 8214       |    |		Call	0x1,0x14
02c4 681c       |h   |		Jump_Zero	0x2e1
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 7007       |p   |		Jump_Nonzero	0x2ce
02c7 00db       |    |		Load_Top	At_Offset_3
02c8 003a       | :  |		Store_Top	Access,At_Offset_2
02c9 00db       |    |		Load_Top	At_Offset_3
02ca 0227       | '  |		Execute	Access,All_Reference
02cb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cc a5fe       |    |		Store_Unchecked	0x2,-0x2
02cd 7808       |x   |		Jump	0x2d6
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 003a       | :  |		Store_Top	Access,At_Offset_2
02d0 00db       |    |		Load_Top	At_Offset_3
02d1 0227       | '  |		Execute	Access,All_Reference
02d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d6 00db       |    |		Load_Top	At_Offset_3
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d9 a402       |    |		Store_Unchecked	0x2,0x2
02da 00d9       |    |		Load_Top	At_Offset_1
02db e235       | 5  |		Load	0x1,0x35
02dc e236       | 6  |		Load	0x1,0x36
02dd 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
02de 8003       |    |		Call	0x0,0x3
02df 003a       | :  |		Store_Top	Access,At_Offset_2
02e0 7806       |x   |		Jump	0x2e7
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 003b       | ;  |		Store_Top	Access,At_Offset_3
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 0227       | '  |		Execute	Access,All_Reference
02e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e6 a402       |    |		Store_Unchecked	0x2,0x2
02e7 00c9       |    |		Action	Pop_Auxiliary_Loop
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 77d5       |w   |		Jump_Nonzero	0x2bf
02ea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02eb 0000 0000  |    |		.BLANK	0000[0x5]
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 e20d       |    |		Load	0x1,0xd
02f4 0007       |    |		Action	Break_Optional
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 0007       |    |		Action	Break_Optional
02f7			BODY_02f0:
02f7 e5ff       |    |		Load	0x2,-0x1
02f8 003a       | :  |		Store_Top	Access,At_Offset_2
02f9 00cf       |    |		Action	Mark_Auxiliary
02fa 780d       |x   |		Jump	0x308
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 e235       | 5  |		Load	0x1,0x35
0303 e236       | 6  |		Load	0x1,0x36
0304 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0305 8003       |    |		Call	0x0,0x3
0306 003a       | :  |		Store_Top	Access,At_Offset_2
0307 00c9       |    |		Action	Pop_Auxiliary_Loop
0308 00da       |    |		Load_Top	At_Offset_2
0309 77f1       |w   |		Jump_Nonzero	0x2fb
030a 00ce       |    |		Action	Pop_Auxiliary
030b e20d       |    |		Load	0x1,0xd
030c a5ff       |    |		Store_Unchecked	0x2,-0x1
030d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
030e 0000 0000  |    |		.XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0317       |    |		.CONST	0x0317								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0003       |    |		.CONST	0x0003								; Number of locals
0313			INIT_0310:
0313 e20d       |    |		Load	0x1,0xd
0314 0007       |    |		Action	Break_Optional
0315 00d8       |    |		Load_Top	At_Offset_0
0316 0007       |    |		Action	Break_Optional
0317			BODY_0310:
0317 e5fd       |    |		Load	0x2,-0x3
0318 003a       | :  |		Store_Top	Access,At_Offset_2
0319 00cf       |    |		Action	Mark_Auxiliary
031a 7813       |x   |		Jump	0x32e
031b 00da       |    |		Load_Top	At_Offset_2
031c 003a       | :  |		Store_Top	Access,At_Offset_2
031d 00da       |    |		Load_Top	At_Offset_2
031e 0227       | '  |		Execute	Access,All_Reference
031f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0320 003b       | ;  |		Store_Top	Access,At_Offset_3
0321 00d9       |    |		Load_Top	At_Offset_1
0322 0229       | )  |		Execute	Access,All_Read
0323 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0324 00d8       |    |		Load_Top	At_Offset_0
0325 85fe       |    |		Call	0x2,-0x2
0326 00d2       |    |		Pop_Control	Pop_Count_2
0327 00d9       |    |		Load_Top	At_Offset_1
0328 e235       | 5  |		Load	0x1,0x35
0329 e236       | 6  |		Load	0x1,0x36
032a 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
032b 8003       |    |		Call	0x0,0x3
032c 003a       | :  |		Store_Top	Access,At_Offset_2
032d 00c9       |    |		Action	Pop_Auxiliary_Loop
032e 00da       |    |		Load_Top	At_Offset_2
032f 77eb       |w   |		Jump_Nonzero	0x31b
0330 00ce       |    |		Action	Pop_Auxiliary
0331 e20d       |    |		Load	0x1,0xd
0332 a5fd       |    |		Store_Unchecked	0x2,-0x3
0333 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0334 0000 0000  |    |		.BLANK	0000[0x4]
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 e211       |    |		Load	0x1,0x11
033e 0257       | W  |		Execute	Discrete,Raise
033f 00da       |    |		Load_Top	At_Offset_2
0340 0227       | '  |		Execute	Access,All_Reference
0341 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0342 0320       |    |		Declare_Variable	Record,Duplicate
0343 00cd       |    |		Action	Spare6_Action
0344 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0345 0000 0000  |    |		.XXX[0x3]
0347 0000       |    |
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 7002       |p   |		Jump_Nonzero	0x34f
034d e213       |    |		Load	0x1,0x13
034e 0257       | W  |		Execute	Discrete,Raise
034f 00da       |    |		Load_Top	At_Offset_2
0350 0227       | '  |		Execute	Access,All_Reference
0351 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0352 003b       | ;  |		Store_Top	Access,At_Offset_3
0353 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 00da       |    |		Load_Top	At_Offset_2
035c 022d       | -  |		Execute	Access,Is_Null
035d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035e 0000 0000  |    |		.XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0365       | e  |		.CONST	0x0365								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0002       |    |		.CONST	0x0002								; Number of locals
0363			INIT_0360:
0363 e20d       |    |		Load	0x1,0xd
0364 0007       |    |		Action	Break_Optional
0365			BODY_0360:
0365 00db       |    |		Load_Top	At_Offset_3
0366 0039       | 9  |		Store_Top	Access,At_Offset_1
0367 00cf       |    |		Action	Mark_Auxiliary
0368 780d       |x   |		Jump	0x376
0369 e5fe       |    |		Load	0x2,-0x2
036a 00da       |    |		Load_Top	At_Offset_2
036b 0227       | '  |		Execute	Access,All_Reference
036c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
036d 8214       |    |		Call	0x1,0x14
036e 6802       |h   |		Jump_Zero	0x371
036f 4801       |H   |		Short_Literal	0x1
0370 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0371 00d9       |    |		Load_Top	At_Offset_1
0372 0227       | '  |		Execute	Access,All_Reference
0373 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0374 003a       | :  |		Store_Top	Access,At_Offset_2
0375 00c9       |    |		Action	Pop_Auxiliary_Loop
0376 00d9       |    |		Load_Top	At_Offset_1
0377 77f1       |w   |		Jump_Nonzero	0x369
0378 00ce       |    |		Action	Pop_Auxiliary
0379 4800       |H   |		Short_Literal	0x0
037a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
037b 0000 0000  |    |		.BLANK	0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0385       |    |		.CONST	0x0385								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0002       |    |		.CONST	0x0002								; Number of locals
0383			INIT_0380:
0383 e20d       |    |		Load	0x1,0xd
0384 0007       |    |		Action	Break_Optional
0385			BODY_0380:
0385 00db       |    |		Load_Top	At_Offset_3
0386 823a       | :  |		Call	0x1,0x3a
0387 0039       | 9  |		Store_Top	Access,At_Offset_1
0388 00d8       |    |		Load_Top	At_Offset_0
0389 0227       | '  |		Execute	Access,All_Reference
038a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
038b 0320       |    |		Declare_Variable	Record,Duplicate
038c 00cd       |    |		Action	Spare6_Action
038d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038e 0000 0000  |    |		.XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 00da       |    |		Load_Top	At_Offset_2
0394 7002       |p   |		Jump_Nonzero	0x397
0395 4800       |H   |		Short_Literal	0x0
0396 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0397 00da       |    |		Load_Top	At_Offset_2
0398 8232       | 2  |		Call	0x1,0x32
0399 822b       | +  |		Call	0x1,0x2b
039a 0a01       |    |		Execute_Immediate	Plus,0x1
039b 00d8       |    |		Load_Top	At_Offset_0
039c 00e2       |    |		Load_Encached	Integer_Cache
039d 0260       | `  |		Execute	Discrete,In_Type
039e 7001       |p   |		Jump_Nonzero	0x3a0
039f 0801       |    |		Execute_Immediate	Raise,0x1
03a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a1 0000 0000  |    |		.BLANK	0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab e20f       |    |		Load	0x1,0xf
03ac 0322       | "  |		Declare_Variable	Record
03ad 00db       |    |		Load_Top	At_Offset_3
03ae 00d9       |    |		Load_Top	At_Offset_1
03af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b0 e20d       |    |		Load	0x1,0xd
03b1 00d9       |    |		Load_Top	At_Offset_1
03b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03b3 e20d       |    |		Load	0x1,0xd
03b4 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b6 0000 0000  |    |		.XXX[0x2]
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 e20d       |    |		Load	0x1,0xd
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 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03d6 e5fe       |    |		Load	0x2,-0x2
03d7 017d       | }  |		Execute	Record,Structure_Write
03d8 00d8       |    |		Load_Top	At_Offset_0
03d9 0227       | '  |		Execute	Access,All_Reference
03da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03db a5ff       |    |		Store_Unchecked	0x2,-0x1
03dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
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 e20d       |    |		Load	0x1,0xd
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 e20d       |    |		Load	0x1,0xd
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 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0422 0320       |    |		Declare_Variable	Record,Duplicate
0423 00cd       |    |		Action	Spare6_Action
0424 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0425 0000 0000  |    |		.XXX[0x3]
0427 0000       |    |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0433       | 3  |		.CONST	0x0433								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0005       |    |		.CONST	0x0005								; Number of locals
042b			INIT_0428:
042b e20d       |    |		Load	0x1,0xd
042c 0007       |    |		Action	Break_Optional
042d 00d8       |    |		Load_Top	At_Offset_0
042e 0007       |    |		Action	Break_Optional
042f e20e       |    |		Load	0x1,0xe
0430 0322       | "  |		Declare_Variable	Record
0431 e20e       |    |		Load	0x1,0xe
0432 0322       | "  |		Declare_Variable	Record
0433			BODY_0428:
0433 e5ff       |    |		Load	0x2,-0x1
0434 a402       |    |		Store_Unchecked	0x2,0x2
0435 e5fe       |    |		Load	0x2,-0x2
0436 003b       | ;  |		Store_Top	Access,At_Offset_3
0437 00cf       |    |		Action	Mark_Auxiliary
0438 7813       |x   |		Jump	0x44c
0439 00db       |    |		Load_Top	At_Offset_3
043a 0227       | '  |		Execute	Access,All_Reference
043b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
043c e402       |    |		Load	0x2,0x2
043d 0227       | '  |		Execute	Access,All_Reference
043e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
043f 8214       |    |		Call	0x1,0x14
0440 7002       |p   |		Jump_Nonzero	0x443
0441 4800       |H   |		Short_Literal	0x0
0442 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0443 e402       |    |		Load	0x2,0x2
0444 0227       | '  |		Execute	Access,All_Reference
0445 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0446 a402       |    |		Store_Unchecked	0x2,0x2
0447 00db       |    |		Load_Top	At_Offset_3
0448 0227       | '  |		Execute	Access,All_Reference
0449 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044a a403       |    |		Store_Unchecked	0x2,0x3
044b 00c9       |    |		Action	Pop_Auxiliary_Loop
044c e402       |    |		Load	0x2,0x2
044d 022c       | ,  |		Execute	Access,Not_Null
044e e403       |    |		Load	0x2,0x3
044f 022c       | ,  |		Execute	Access,Not_Null
0450 0279       | y  |		Execute	Discrete,And
0451 77e7       |w   |		Jump_Nonzero	0x439
0452 00ce       |    |		Action	Pop_Auxiliary
0453 00db       |    |		Load_Top	At_Offset_3
0454 022d       | -  |		Execute	Access,Is_Null
0455 00db       |    |		Load_Top	At_Offset_3
0456 022d       | -  |		Execute	Access,Is_Null
0457 0279       | y  |		Execute	Discrete,And
0458 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0459 0000 0000  |    |		.BLANK	0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0467       | g  |		.CONST	0x0467								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0003       |    |		.CONST	0x0003								; Number of locals
0463			INIT_0460:
0463 e20d       |    |		Load	0x1,0xd
0464 0007       |    |		Action	Break_Optional
0465 00d8       |    |		Load_Top	At_Offset_0
0466 0007       |    |		Action	Break_Optional
0467			BODY_0460:
0467 e5ff       |    |		Load	0x2,-0x1
0468 7002       |p   |		Jump_Nonzero	0x46b
0469 e211       |    |		Load	0x1,0x11
046a 0257       | W  |		Execute	Discrete,Raise
046b e5ff       |    |		Load	0x2,-0x1
046c 003a       | :  |		Store_Top	Access,At_Offset_2
046d 00cf       |    |		Action	Mark_Auxiliary
046e 7807       |x   |		Jump	0x476
046f 00da       |    |		Load_Top	At_Offset_2
0470 003a       | :  |		Store_Top	Access,At_Offset_2
0471 00da       |    |		Load_Top	At_Offset_2
0472 0227       | '  |		Execute	Access,All_Reference
0473 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0474 003b       | ;  |		Store_Top	Access,At_Offset_3
0475 00c9       |    |		Action	Pop_Auxiliary_Loop
0476 00da       |    |		Load_Top	At_Offset_2
0477 77f7       |w   |		Jump_Nonzero	0x46f
0478 00ce       |    |		Action	Pop_Auxiliary
0479 00d8       |    |		Load_Top	At_Offset_0
047a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug Table
0480 ; --------------------------------------------------------------------------------------
0480 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xda5e,0x0000,0x0001,0x0024
0486 000b 0516  |    |		.DBG4T	0x000b,0x0516,0x8000,0x8000
048a 0085 0568  |   h|		.DBG4T	0x0085,0x0568,0x8000,0x0000
048e 00db 058d  |    |		.DBG4T	0x00db,0x058d,0x0002,0x0000
0492 0143 0592  | C  |		.DBG4T	0x0143,0x0592,0x0001,0x0000
0496 015b 059c  | [  |		.DBG4T	0x015b,0x059c,0x0002,0x0000
049a 0173 05a2  | s  |		.DBG4T	0x0173,0x05a2,0x0001,0x0000
049e 018b 05a7  |    |		.DBG4T	0x018b,0x05a7,0x0001,0x0000
04a2 019b 05aa  |    |		.DBG4T	0x019b,0x05aa,0x0002,0x0000
04a6 01b3 05b4  |    |		.DBG4T	0x01b3,0x05b4,0x0002,0x0000
04aa 01c3 05b7  |    |		.DBG4T	0x01c3,0x05b7,0x0002,0x0000
04ae 01e3 05c1  |    |		.DBG4T	0x01e3,0x05c1,0x0002,0x0000
04b2 01fb 05c6  |    |		.DBG4T	0x01fb,0x05c6,0x2802,0x0002
04b6 021b 05cb  |    |		.DBG4T	0x021b,0x05cb,0x0002,0x0000
04ba 0223 05ce  | #  |		.DBG4T	0x0223,0x05ce,0x0001,0x0000
04be 023b 05d6  | ;  |		.DBG4T	0x023b,0x05d6,0x0001,0x0000
04c2 025b 05dc  | [  |		.DBG4T	0x025b,0x05dc,0x0002,0x4000
04c6 028b 05ef  |    |		.DBG4T	0x028b,0x05ef,0x0002,0x4000
04ca 02b3 05ff  |    |		.DBG4T	0x02b3,0x05ff,0x0001,0x4000
04ce 02f3 061e  |    |		.DBG4T	0x02f3,0x061e,0x0001,0x4000
04d2 0313 062e  |   .|		.DBG4T	0x0313,0x062e,0x2801,0x4002
04d6 033b 0640  | ; @|		.DBG4T	0x033b,0x0640,0x0002,0x0000
04da 034b 0645  | K E|		.DBG4T	0x034b,0x0645,0x0001,0x0000
04de 035b 064a  | [ J|		.DBG4T	0x035b,0x064a,0x0002,0x0000
04e2 0363 064d  | c M|		.DBG4T	0x0363,0x064d,0x0002,0x4000
04e6 0383 065c  |   \|		.DBG4T	0x0383,0x065c,0x0002,0x0000
04ea 0393 0661  |   a|		.DBG4T	0x0393,0x0661,0x0002,0x0000
04ee 03ab 0666  |   f|		.DBG4T	0x03ab,0x0666,0x0002,0x0000
04f2 03bb 0669  |   i|		.DBG4T	0x03bb,0x0669,0x0002,0x0000
04f6 03c3 066c  |   l|		.DBG4T	0x03c3,0x066c,0x0002,0x0000
04fa 03cb 066f  |   o|		.DBG4T	0x03cb,0x066f,0x0001,0x0000
04fe 03e3 0677  |   w|		.DBG4T	0x03e3,0x0677,0x0001,0x0000
0502 03f3 067c  |   ||		.DBG4T	0x03f3,0x067c,0x0001,0x0000
0506 040b 0682  |    |		.DBG4T	0x040b,0x0682,0x0002,0x0000
050a 041b 0687  |    |		.DBG4T	0x041b,0x0687,0x0002,0x0000
050e 042b 068c  | +  |		.DBG4T	0x042b,0x068c,0x0002,0x4000
0512 0463 06a2  | c  |		.DBG4T	0x0463,0x06a2,0x0002,0x4000
0516 ; --------------------------------------------------------------------------------------
0516 ; Debug chain
0516 ; --------------------------------------------------------------------------------------
0516 0028 0000  | (  |		.DBGLEN	0x0028,0x0000
0518 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0025,0x002e,0x0033,0x0038,0x003d,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082
0540 0002 0004  |    |		.XXX[0x28]
0542 0005 0006  |    |
0544 0007 0008  |    |
0546 0009 000a  |    |
0548 000b 000c  |    |
054a 000d 000e  |    |
054c 000f 0010  |    |
054e 0011 0012  |    |
0550 0013 0014  |    |
0552 0015 0016  |    |
0554 0017 0018  |    |
0556 0019 001a  |    |
0558 001b 001c  |    |
055a 001d 001e  |    |
055c 001f 0020  |    |
055e 0021 0022  | ! "|
0560 0023 0024  | # $|
0562 0025 0026  | % &|
0564 0027 0028  | ' (|
0566 0029 002a  | ) *|
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug chain
0568 ; --------------------------------------------------------------------------------------
0568 0023 0000  | #  |		.DBGLEN	0x0023,0x0000
056a 0085 0087  |    |		.DBGLNO	0x0085,0x0087,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf
058d ; --------------------------------------------------------------------------------------
058d ; Debug chain
058d ; --------------------------------------------------------------------------------------
058d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
058f 00db 012b  |   +|		.DBGLNO	0x00db,0x012b,0x012d
0592 ; --------------------------------------------------------------------------------------
0592 ; Debug chain
0592 ; --------------------------------------------------------------------------------------
0592 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0594 0143 0145  | C E|		.DBGLNO	0x0143,0x0145,0x0147,0x0149,0x014a,0x014e,0x0150,0x0153
059c ; --------------------------------------------------------------------------------------
059c ; Debug chain
059c ; --------------------------------------------------------------------------------------
059c 0001 0003  |    |		.DBGLEN	0x0001,0x0003
059e 015b 015d  | [ ]|		.DBGLNO	0x015b,0x015d,0x0168,0x016c
05a2 ; --------------------------------------------------------------------------------------
05a2 ; Debug chain
05a2 ; --------------------------------------------------------------------------------------
05a2 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05a4 0173 0175  | s u|		.DBGLNO	0x0173,0x0175,0x0180
05a7 ; --------------------------------------------------------------------------------------
05a7 ; Debug chain
05a7 ; --------------------------------------------------------------------------------------
05a7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05a9 018b       |    |		.DBGLNO	0x018b
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug chain
05aa ; --------------------------------------------------------------------------------------
05aa 0001 0007  |    |		.DBGLEN	0x0001,0x0007
05ac 019b 019d  |    |		.DBGLNO	0x019b,0x019d,0x019f,0x01a1,0x01a5,0x01a7,0x01aa,0x01ae
05b4 ; --------------------------------------------------------------------------------------
05b4 ; Debug chain
05b4 ; --------------------------------------------------------------------------------------
05b4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05b6 01b3       |    |		.DBGLNO	0x01b3
05b7 ; --------------------------------------------------------------------------------------
05b7 ; Debug chain
05b7 ; --------------------------------------------------------------------------------------
05b7 0002 0006  |    |		.DBGLEN	0x0002,0x0006
05b9 01c3 01c5  |    |		.DBGLNO	0x01c3,0x01c5,0x01c7,0x01d2,0x01d4,0x01d6,0x01d9,0x01dd
05c1 ; --------------------------------------------------------------------------------------
05c1 ; Debug chain
05c1 ; --------------------------------------------------------------------------------------
05c1 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05c3 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e7
05c6 ; --------------------------------------------------------------------------------------
05c6 ; Debug chain
05c6 ; --------------------------------------------------------------------------------------
05c6 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05c8 01fb 01fd  |    |		.DBGLNO	0x01fb,0x01fd,0x01ff
05cb ; --------------------------------------------------------------------------------------
05cb ; Debug chain
05cb ; --------------------------------------------------------------------------------------
05cb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05cd 021b       |    |		.DBGLNO	0x021b
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug chain
05ce ; --------------------------------------------------------------------------------------
05ce 0001 0005  |    |		.DBGLEN	0x0001,0x0005
05d0 0223 0225  | # %|		.DBGLNO	0x0223,0x0225,0x0227,0x0229,0x022d,0x0233
05d6 ; --------------------------------------------------------------------------------------
05d6 ; Debug chain
05d6 ; --------------------------------------------------------------------------------------
05d6 0001 0003  |    |		.DBGLEN	0x0001,0x0003
05d8 023b 023d  | ; =|		.DBGLNO	0x023b,0x023d,0x0243,0x0247
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug chain
05dc ; --------------------------------------------------------------------------------------
05dc 0003 0007  |    |		.DBGLEN	0x0003,0x0007
05de 025b 025d  | [ ]|		.DBGLNO	0x025b,0x025d,0x025f,0x0261,0x0265,0x026e,0x0275,0x0277,0x027c,0x027f
05e8 0001 0003  |    |		.XXX[0x7]
05ea 0004 0005  |    |
05ec 0006 0002  |    |
05ee 0007       |    |
05ef ; --------------------------------------------------------------------------------------
05ef ; Debug chain
05ef ; --------------------------------------------------------------------------------------
05ef 0002 0006  |    |		.DBGLEN	0x0002,0x0006
05f1 028b 028d  |    |		.DBGLNO	0x028b,0x028d,0x028f,0x0293,0x0299,0x029f,0x02a4,0x02a7
05f9 0001 0003  |    |		.XXX[0x6]
05fb 0004 0005  |    |
05fd 0002 0006  |    |
05ff ; --------------------------------------------------------------------------------------
05ff ; Debug chain
05ff ; --------------------------------------------------------------------------------------
05ff 0003 000d  |    |		.DBGLEN	0x0003,0x000d
0601 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02b7,0x02b9,0x02bb,0x02bf,0x02c5,0x02c7,0x02c9,0x02ce,0x02d0,0x02d6,0x02da,0x02e1,0x02e3,0x02e8
0611 0001 0002  |    |		.XXX[0xd]
0613 0004 0005  |    |
0615 0006 0007  |    |
0617 0008 0009  |    |
0619 000a 000b  |    |
061b 000c 000d  |    |
061d 0003       |    |
061e ; --------------------------------------------------------------------------------------
061e ; Debug chain
061e ; --------------------------------------------------------------------------------------
061e 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0620 02f3 02f5  |    |		.DBGLNO	0x02f3,0x02f5,0x02f7,0x02fb,0x02fd,0x0301,0x0308,0x030b
0628 0001 0003  |    |		.XXX[0x6]
062a 0004 0005  |    |
062c 0002 0006  |    |
062e ; --------------------------------------------------------------------------------------
062e ; Debug chain
062e ; --------------------------------------------------------------------------------------
062e 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0630 0313 0315  |    |		.DBGLNO	0x0313,0x0315,0x0317,0x031b,0x031d,0x0321,0x0327,0x032e,0x0331
0639 0001 0003  |    |		.XXX[0x7]
063b 0004 0005  |    |
063d 0006 0002  |    |
063f 0007       |    |
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug chain
0640 ; --------------------------------------------------------------------------------------
0640 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0642 033b 033d  | ; =|		.DBGLNO	0x033b,0x033d,0x033f
0645 ; --------------------------------------------------------------------------------------
0645 ; Debug chain
0645 ; --------------------------------------------------------------------------------------
0645 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0647 034b 034d  | K M|		.DBGLNO	0x034b,0x034d,0x034f
064a ; --------------------------------------------------------------------------------------
064a ; Debug chain
064a ; --------------------------------------------------------------------------------------
064a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
064c 035b       | [  |		.DBGLNO	0x035b
064d ; --------------------------------------------------------------------------------------
064d ; Debug chain
064d ; --------------------------------------------------------------------------------------
064d 0001 0006  |    |		.DBGLEN	0x0001,0x0006
064f 0363 0365  | c e|		.DBGLNO	0x0363,0x0365,0x0369,0x036f,0x0371,0x0376,0x0379
0656 0001 0003  |    |		.XXX[0x6]
0658 0004 0005  |    |
065a 0002 0006  |    |
065c ; --------------------------------------------------------------------------------------
065c ; Debug chain
065c ; --------------------------------------------------------------------------------------
065c 0001 0002  |    |		.DBGLEN	0x0001,0x0002
065e 0383 0385  |    |		.DBGLNO	0x0383,0x0385,0x0388
0661 ; --------------------------------------------------------------------------------------
0661 ; Debug chain
0661 ; --------------------------------------------------------------------------------------
0661 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0663 0393 0395  |    |		.DBGLNO	0x0393,0x0395,0x0397
0666 ; --------------------------------------------------------------------------------------
0666 ; Debug chain
0666 ; --------------------------------------------------------------------------------------
0666 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0668 03ab       |    |		.DBGLNO	0x03ab
0669 ; --------------------------------------------------------------------------------------
0669 ; Debug chain
0669 ; --------------------------------------------------------------------------------------
0669 0000 0001  |    |		.DBGLEN	0x0000,0x0001
066b 03bb       |    |		.DBGLNO	0x03bb
066c ; --------------------------------------------------------------------------------------
066c ; Debug chain
066c ; --------------------------------------------------------------------------------------
066c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
066e 03c3       |    |		.DBGLNO	0x03c3
066f ; --------------------------------------------------------------------------------------
066f ; Debug chain
066f ; --------------------------------------------------------------------------------------
066f 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0671 03cb 03cd  |    |		.DBGLNO	0x03cb,0x03cd,0x03cf,0x03d1,0x03d3,0x03d8
0677 ; --------------------------------------------------------------------------------------
0677 ; Debug chain
0677 ; --------------------------------------------------------------------------------------
0677 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0679 03e3 03e5  |    |		.DBGLNO	0x03e3,0x03e5,0x03e7
067c ; --------------------------------------------------------------------------------------
067c ; Debug chain
067c ; --------------------------------------------------------------------------------------
067c 0001 0003  |    |		.DBGLEN	0x0001,0x0003
067e 03f3 03f5  |    |		.DBGLNO	0x03f3,0x03f5,0x03fd,0x0404
0682 ; --------------------------------------------------------------------------------------
0682 ; Debug chain
0682 ; --------------------------------------------------------------------------------------
0682 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0684 040b 040d  |    |		.DBGLNO	0x040b,0x040d,0x040f
0687 ; --------------------------------------------------------------------------------------
0687 ; Debug chain
0687 ; --------------------------------------------------------------------------------------
0687 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0689 041b 041d  |    |		.DBGLNO	0x041b,0x041d,0x041f
068c ; --------------------------------------------------------------------------------------
068c ; Debug chain
068c ; --------------------------------------------------------------------------------------
068c 0004 0008  |    |		.DBGLEN	0x0004,0x0008
068e 042b 042d  | + -|		.DBGLNO	0x042b,0x042d,0x042f,0x0431,0x0433,0x0435,0x0439,0x0441,0x0443,0x0447,0x044c,0x0453
069a 0001 0002  |    |		.XXX[0x8]
069c 0004 0005  |    |
069e 0006 0007  |    |
06a0 0003 0008  |    |
06a2 ; --------------------------------------------------------------------------------------
06a2 ; Debug chain
06a2 ; --------------------------------------------------------------------------------------
06a2 0002 0007  |    |		.DBGLEN	0x0002,0x0007
06a4 0463 0465  | c e|		.DBGLNO	0x0463,0x0465,0x0467,0x0469,0x046b,0x046f,0x0471,0x0476,0x0479
06ad 0001 0002  |    |		.XXX[0x7]
06af 0003 0005  |    |
06b1 0006 0004  |    |
06b3 0007       |    |
06b4 0000 0000  |    |		.BLANK	0000[0x14c]