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

⟦71c7a1727⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0490       |    |		.CONST	0x0490								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d7       |    |		.CONST	0x00d7								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0044       | D  |		.CONST	0x0044								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4803       |H   |		Short_Literal	0x3
000d 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4804       |H   |		Short_Literal	0x4
0012 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 00d8       |    |		Load_Top	At_Offset_0
0016 0266       | f  |		Execute	Discrete,Bounds
0017 00e1       |    |		Load_Encached	Boolean_Cache
0018 02a0       |    |		Declare_Subprogram	Null_Subprogram
0019 4801       |H   |		Short_Literal	0x1
001a 035e       | ^  |		Declare_Type	Array,Defined,Visible
001b 4800       |H   |		Short_Literal	0x0
001c 4803       |H   |		Short_Literal	0x3
001d 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
001f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0020 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0022 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0024 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0026 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0028 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
002a 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
002c 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
002e 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0030 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0032 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0034 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0036 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0038 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
003a 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
003c 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
003e 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0040 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0042 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0044 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0046 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0048 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
004a 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
004c 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
004e 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0050 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
0052 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0054 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0056 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0058 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
005a 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
005c 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
005e 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0060 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0062 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0064 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0066 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0068 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
006a 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
006c 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
006e 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0070 00bf       |    |		Action	Accept_Activation
0071 a001       |    |		Store_Unchecked	0x0,0x1
0072 00c6       |    |		Action	Check_Subprogram_Elaborated
0073 e210       |    |		Load	0x1,0x10
0074 e002       |    |		Load	0x0,0x2
0075 1bb3       |    |		Execute	Package,Field_Read,Field_Number 0xb3
0076 e003       |    |		Load	0x0,0x3
0077 e004       |    |		Load	0x0,0x4
0078 4800       |H   |		Short_Literal	0x0
0079 0007       |    |		Action	Break_Optional
007a a001       |    |		Store_Unchecked	0x0,0x1
007b 00c6       |    |		Action	Check_Subprogram_Elaborated
007c e002       |    |		Load	0x0,0x2
007d 1bb3       |    |		Execute	Package,Field_Read,Field_Number 0xb3
007e e210       |    |		Load	0x1,0x10
007f e005       |    |		Load	0x0,0x5
0080 e006       |    |		Load	0x0,0x6
0081 4800       |H   |		Short_Literal	0x0
0082 0007       |    |		Action	Break_Optional
0083 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
0085 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
00c5 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7			BODY_0008:
00d7 00bc       |    |		Action	Signal_Activated
00d8 00bb       |    |		Action	Signal_Completion
00d9 0000 0000  |    |		.BLANK	0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4607       |F   |		Jump_Case	0x8
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7806       |x   |		Jump	0xec								; case 0x1
00e6 7809       |x   |		Jump	0xf0								; case 0x2
00e7 780d       |x   |		Jump	0xf5								; case 0x3
00e8 7810       |x   |		Jump	0xf9								; case 0x4
00e9 7811       |x   |		Jump	0xfb								; case 0x5
00ea 7812       |x   |		Jump	0xfd								; case 0x6
00eb 7815       |x   |		Jump	0x101								; case 0x7
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 0091 0450  |   P|		Action	Push_String_Extended_Indexed,0x450				; "ON_NORMAL"
00ef 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00e0       |    |		Load_Encached	Standard_Cache
00f3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 00e0       |    |		Load_Encached	Standard_Cache
00f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd e20d       |    |		Load	0x1,0xd
00fe 00dc       |    |		Load_Top	At_Offset_4
00ff 0267       | g  |		Execute	Discrete,Predecessor
0100 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0101 e20d       |    |		Load	0x1,0xd
0102 00dc       |    |		Load_Top	At_Offset_4
0103 0268       | h  |		Execute	Discrete,Successor
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7806       |x   |		Jump	0x114								; case 0x1
010e 7809       |x   |		Jump	0x118								; case 0x2
010f 780d       |x   |		Jump	0x11d								; case 0x3
0110 7810       |x   |		Jump	0x121								; case 0x4
0111 7811       |x   |		Jump	0x123								; case 0x5
0112 7812       |x   |		Jump	0x125								; case 0x6
0113 7815       |x   |		Jump	0x129								; case 0x7
0114 00da       |    |		Load_Top	At_Offset_2
0115 0091 0454  |   T|		Action	Push_String_Extended_Indexed,0x454				; "ASSEMBLE"
0117 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0118 00db       |    |		Load_Top	At_Offset_3
0119 00db       |    |		Load_Top	At_Offset_3
011a 00e0       |    |		Load_Encached	Standard_Cache
011b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011d 00da       |    |		Load_Top	At_Offset_2
011e 00e0       |    |		Load_Encached	Standard_Cache
011f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0120 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0121 00db       |    |		Load_Top	At_Offset_3
0122 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0123 00db       |    |		Load_Top	At_Offset_3
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 e20e       |    |		Load	0x1,0xe
0126 00dc       |    |		Load_Top	At_Offset_4
0127 0267       | g  |		Execute	Discrete,Predecessor
0128 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0129 e20e       |    |		Load	0x1,0xe
012a 00dc       |    |		Load_Top	At_Offset_4
012b 0268       | h  |		Execute	Discrete,Successor
012c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4607       |F   |		Jump_Case	0x8
0134 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0135 7806       |x   |		Jump	0x13c								; case 0x1
0136 7809       |x   |		Jump	0x140								; case 0x2
0137 780d       |x   |		Jump	0x145								; case 0x3
0138 7810       |x   |		Jump	0x149								; case 0x4
0139 7811       |x   |		Jump	0x14b								; case 0x5
013a 7812       |x   |		Jump	0x14d								; case 0x6
013b 7815       |x   |		Jump	0x151								; case 0x7
013c 00da       |    |		Load_Top	At_Offset_2
013d 0091 0459  |   Y|		Action	Push_String_Extended_Indexed,0x459				; "ADA_SPEC"
013f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0140 00db       |    |		Load_Top	At_Offset_3
0141 00db       |    |		Load_Top	At_Offset_3
0142 00e0       |    |		Load_Encached	Standard_Cache
0143 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0144 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0145 00da       |    |		Load_Top	At_Offset_2
0146 00e0       |    |		Load_Encached	Standard_Cache
0147 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0148 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0149 00db       |    |		Load_Top	At_Offset_3
014a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014b 00db       |    |		Load_Top	At_Offset_3
014c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014d e210       |    |		Load	0x1,0x10
014e 00dc       |    |		Load_Top	At_Offset_4
014f 0267       | g  |		Execute	Discrete,Predecessor
0150 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0151 e210       |    |		Load	0x1,0x10
0152 00dc       |    |		Load_Top	At_Offset_4
0153 0268       | h  |		Execute	Discrete,Successor
0154 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c e007       |    |		Load	0x0,0x7
015d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
015e e002       |    |		Load	0x0,0x2
015f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0160 e002       |    |		Load	0x0,0x2
0161 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
0162 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0163 0000 0000  |    |		.BLANK	0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c e007       |    |		Load	0x0,0x7
016d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
016e e002       |    |		Load	0x0,0x2
016f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0170 e002       |    |		Load	0x0,0x2
0171 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
0172 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0173 0000 0000  |    |		.BLANK	0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c e007       |    |		Load	0x0,0x7
017d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
017e e002       |    |		Load	0x0,0x2
017f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0180 e002       |    |		Load	0x0,0x2
0181 18b1       |    |		Execute	Package,Field_Execute,Field_Number 0xb1
0182 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c e007       |    |		Load	0x0,0x7
018d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
018e e002       |    |		Load	0x0,0x2
018f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0190 e002       |    |		Load	0x0,0x2
0191 18b2       |    |		Execute	Package,Field_Execute,Field_Number 0xb2
0192 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0193 0000 0000  |    |		.BLANK	0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b e5fd       |    |		Load	0x2,-0x3
019c e5fe       |    |		Load	0x2,-0x2
019d e5ff       |    |		Load	0x2,-0x1
019e e007       |    |		Load	0x0,0x7
019f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01a0 e002       |    |		Load	0x0,0x2
01a1 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01a2 e002       |    |		Load	0x0,0x2
01a3 1870       | p  |		Execute	Package,Field_Execute,Field_Number 0x70
01a4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e5fd       |    |		Load	0x2,-0x3
01ac e5fe       |    |		Load	0x2,-0x2
01ad e5ff       |    |		Load	0x2,-0x1
01ae e007       |    |		Load	0x0,0x7
01af 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01b0 e002       |    |		Load	0x0,0x2
01b1 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01b2 e002       |    |		Load	0x0,0x2
01b3 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
01b4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc e007       |    |		Load	0x0,0x7
01bd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01be e002       |    |		Load	0x0,0x2
01bf 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01c0 e002       |    |		Load	0x0,0x2
01c1 1872       | r  |		Execute	Package,Field_Execute,Field_Number 0x72
01c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c3 0000 0000  |    |		.BLANK	0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc e007       |    |		Load	0x0,0x7
01cd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01ce e002       |    |		Load	0x0,0x2
01cf 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01d0 e002       |    |		Load	0x0,0x2
01d1 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
01d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d3 0000 0000  |    |		.BLANK	0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00db       |    |		Load_Top	At_Offset_3
01dc e239       | 9  |		Load	0x1,0x39
01dd e23a       | :  |		Load	0x1,0x3a
01de 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
01df 8001       |    |		Call	0x0,0x1
01e0 00db       |    |		Load_Top	At_Offset_3
01e1 e007       |    |		Load	0x0,0x7
01e2 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01e3 e002       |    |		Load	0x0,0x2
01e4 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01e5 e002       |    |		Load	0x0,0x2
01e6 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
01e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00db       |    |		Load_Top	At_Offset_3
01ec 00db       |    |		Load_Top	At_Offset_3
01ed e007       |    |		Load	0x0,0x7
01ee 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01ef e002       |    |		Load	0x0,0x2
01f0 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01f1 e002       |    |		Load	0x0,0x2
01f2 1875       | u  |		Execute	Package,Field_Execute,Field_Number 0x75
01f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f4 0000 0000  |    |		.BLANK	0000[0x4]
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 00db       |    |		Load_Top	At_Offset_3
01fc 00db       |    |		Load_Top	At_Offset_3
01fd e007       |    |		Load	0x0,0x7
01fe 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01ff e002       |    |		Load	0x0,0x2
0200 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0201 e002       |    |		Load	0x0,0x2
0202 1876       | v  |		Execute	Package,Field_Execute,Field_Number 0x76
0203 e23e       | >  |		Load	0x1,0x3e
0204 e23f       | ?  |		Load	0x1,0x3f
0205 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0206 8001       |    |		Call	0x0,0x1
0207 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b e5fd       |    |		Load	0x2,-0x3
020c e5fe       |    |		Load	0x2,-0x2
020d e5ff       |    |		Load	0x2,-0x1
020e e007       |    |		Load	0x0,0x7
020f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0210 e002       |    |		Load	0x0,0x2
0211 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0212 e002       |    |		Load	0x0,0x2
0213 1877       | w  |		Execute	Package,Field_Execute,Field_Number 0x77
0214 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0215 0000 0000  |    |		.XXX[0x3]
0217 0000       |    |
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 e5fd       |    |		Load	0x2,-0x3
021c e5fe       |    |		Load	0x2,-0x2
021d e5ff       |    |		Load	0x2,-0x1
021e e007       |    |		Load	0x0,0x7
021f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0220 e002       |    |		Load	0x0,0x2
0221 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0222 e002       |    |		Load	0x0,0x2
0223 1878       | x  |		Execute	Package,Field_Execute,Field_Number 0x78
0224 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0225 0000 0000  |    |		.XXX[0x3]
0227 0000       |    |
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 00db       |    |		Load_Top	At_Offset_3
022d e007       |    |		Load	0x0,0x7
022e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
022f e002       |    |		Load	0x0,0x2
0230 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0231 e002       |    |		Load	0x0,0x2
0232 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
0233 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0234 0000 0000  |    |		.BLANK	0000[0x4]
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 e5fd       |    |		Load	0x2,-0x3
023c e5fe       |    |		Load	0x2,-0x2
023d e5ff       |    |		Load	0x2,-0x1
023e e007       |    |		Load	0x0,0x7
023f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0240 e002       |    |		Load	0x0,0x2
0241 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0242 e002       |    |		Load	0x0,0x2
0243 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0244 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c e007       |    |		Load	0x0,0x7
024d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
024e e002       |    |		Load	0x0,0x2
024f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0250 e002       |    |		Load	0x0,0x2
0251 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
0252 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0253 0000 0000  |    |		.BLANK	0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c e007       |    |		Load	0x0,0x7
025d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
025e e002       |    |		Load	0x0,0x2
025f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0260 e002       |    |		Load	0x0,0x2
0261 18cc       |    |		Execute	Package,Field_Execute,Field_Number 0xcc
0262 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0263 0000 0000  |    |		.BLANK	0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c e007       |    |		Load	0x0,0x7
026d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
026e e002       |    |		Load	0x0,0x2
026f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0270 e002       |    |		Load	0x0,0x2
0271 18cd       |    |		Execute	Package,Field_Execute,Field_Number 0xcd
0272 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0273 0000 0000  |    |		.BLANK	0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c e007       |    |		Load	0x0,0x7
027d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
027e e002       |    |		Load	0x0,0x2
027f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0280 e002       |    |		Load	0x0,0x2
0281 1887       |    |		Execute	Package,Field_Execute,Field_Number 0x87
0282 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0283 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
028c e007       |    |		Load	0x0,0x7
028d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
028e e002       |    |		Load	0x0,0x2
028f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0290 e002       |    |		Load	0x0,0x2
0291 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
0292 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0293 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
029c e007       |    |		Load	0x0,0x7
029d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
029e e002       |    |		Load	0x0,0x2
029f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02a0 e002       |    |		Load	0x0,0x2
02a1 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
02a2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac e007       |    |		Load	0x0,0x7
02ad 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02ae e002       |    |		Load	0x0,0x2
02af 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02b0 e002       |    |		Load	0x0,0x2
02b1 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
02b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc e007       |    |		Load	0x0,0x7
02bd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02be e002       |    |		Load	0x0,0x2
02bf 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02c0 e002       |    |		Load	0x0,0x2
02c1 1890       |    |		Execute	Package,Field_Execute,Field_Number 0x90
02c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c3 0000 0000  |    |		.BLANK	0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc e007       |    |		Load	0x0,0x7
02cd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02ce e002       |    |		Load	0x0,0x2
02cf 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02d0 e002       |    |		Load	0x0,0x2
02d1 186b       | k  |		Execute	Package,Field_Execute,Field_Number 0x6b
02d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d3 0000 0000  |    |		.BLANK	0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e5fc       |    |		Load	0x2,-0x4
02dc e5fd       |    |		Load	0x2,-0x3
02dd e5fe       |    |		Load	0x2,-0x2
02de e5ff       |    |		Load	0x2,-0x1
02df e007       |    |		Load	0x0,0x7
02e0 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02e1 e002       |    |		Load	0x0,0x2
02e2 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02e3 e002       |    |		Load	0x0,0x2
02e4 18d6       |    |		Execute	Package,Field_Execute,Field_Number 0xd6
02e5 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb e5fb       |    |		Load	0x2,-0x5
02ec e5fc       |    |		Load	0x2,-0x4
02ed e5fd       |    |		Load	0x2,-0x3
02ee e5fe       |    |		Load	0x2,-0x2
02ef e5ff       |    |		Load	0x2,-0x1
02f0 e007       |    |		Load	0x0,0x7
02f1 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02f2 e002       |    |		Load	0x0,0x2
02f3 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02f4 e002       |    |		Load	0x0,0x2
02f5 18d7       |    |		Execute	Package,Field_Execute,Field_Number 0xd7
02f6 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
02f7 0000       |    |		.XXX[0x1]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb e5fd       |    |		Load	0x2,-0x3
02fc e5fe       |    |		Load	0x2,-0x2
02fd e5ff       |    |		Load	0x2,-0x1
02fe e007       |    |		Load	0x0,0x7
02ff 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0300 e002       |    |		Load	0x0,0x2
0301 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0302 e002       |    |		Load	0x0,0x2
0303 18b8       |    |		Execute	Package,Field_Execute,Field_Number 0xb8
0304 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0305 0000 0000  |    |		.XXX[0x3]
0307 0000       |    |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b e5fc       |    |		Load	0x2,-0x4
030c e5fd       |    |		Load	0x2,-0x3
030d e5fe       |    |		Load	0x2,-0x2
030e e5ff       |    |		Load	0x2,-0x1
030f e007       |    |		Load	0x0,0x7
0310 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0311 e002       |    |		Load	0x0,0x2
0312 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0313 e002       |    |		Load	0x0,0x2
0314 18b9       |    |		Execute	Package,Field_Execute,Field_Number 0xb9
0315 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0316 0000 0000  |    |		.XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00da       |    |		Load_Top	At_Offset_2
031c e007       |    |		Load	0x0,0x7
031d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
031e e002       |    |		Load	0x0,0x2
031f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0320 e002       |    |		Load	0x0,0x2
0321 18d5       |    |		Execute	Package,Field_Execute,Field_Number 0xd5
0322 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0323 0000 0000  |    |		.BLANK	0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c e007       |    |		Load	0x0,0x7
032d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
032e e002       |    |		Load	0x0,0x2
032f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0330 e002       |    |		Load	0x0,0x2
0331 18d1       |    |		Execute	Package,Field_Execute,Field_Number 0xd1
0332 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0333 0000 0000  |    |		.BLANK	0000[0x5]
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 e007       |    |		Load	0x0,0x7
033d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
033e e002       |    |		Load	0x0,0x2
033f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0340 e002       |    |		Load	0x0,0x2
0341 18d2       |    |		Execute	Package,Field_Execute,Field_Number 0xd2
0342 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0343 0000 0000  |    |		.BLANK	0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0354       | T  |		.CONST	0x0354								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b e008       |    |		Load	0x0,0x8
034c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034d 02c7       |    |		Declare_Variable	Any
034e e5fd       |    |		Load	0x2,-0x3
034f 4800       |H   |		Short_Literal	0x0
0350 e5fe       |    |		Load	0x2,-0x2
0351 e009       |    |		Load	0x0,0x9
0352 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0353 a402       |    |		Store_Unchecked	0x2,0x2
0354			BODY_0348:
0354 e5fd       |    |		Load	0x2,-0x3
0355 e5fe       |    |		Load	0x2,-0x2
0356 00da       |    |		Load_Top	At_Offset_2
0357 e00a       |    |		Load	0x0,0xa
0358 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0359 e00b       |    |		Load	0x0,0xb
035a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
035b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
035c 4800       |H   |		Short_Literal	0x0
035d 4801       |H   |		Short_Literal	0x1
035e e5ff       |    |		Load	0x2,-0x1
035f 8244       | D  |		Call	0x1,0x44
0360 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0361 0000 0000  |    |		.BLANK	0000[0x7]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0374       | t  |		.CONST	0x0374								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b e008       |    |		Load	0x0,0x8
036c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
036d 02c7       |    |		Declare_Variable	Any
036e e5fd       |    |		Load	0x2,-0x3
036f 4800       |H   |		Short_Literal	0x0
0370 e5fe       |    |		Load	0x2,-0x2
0371 e009       |    |		Load	0x0,0x9
0372 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0373 a402       |    |		Store_Unchecked	0x2,0x2
0374			BODY_0368:
0374 e5fd       |    |		Load	0x2,-0x3
0375 e5fe       |    |		Load	0x2,-0x2
0376 00da       |    |		Load_Top	At_Offset_2
0377 e00a       |    |		Load	0x0,0xa
0378 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0379 e00b       |    |		Load	0x0,0xb
037a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
037c 4801       |H   |		Short_Literal	0x1
037d 4801       |H   |		Short_Literal	0x1
037e e5ff       |    |		Load	0x2,-0x1
037f 8244       | D  |		Call	0x1,0x44
0380 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0381 0000 0000  |    |		.BLANK	0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0394       |    |		.CONST	0x0394								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0002       |    |		.CONST	0x0002								; Number of locals
038b			INIT_0388:
038b e008       |    |		Load	0x0,0x8
038c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
038d 02c7       |    |		Declare_Variable	Any
038e e5fd       |    |		Load	0x2,-0x3
038f 4800       |H   |		Short_Literal	0x0
0390 e5fe       |    |		Load	0x2,-0x2
0391 e009       |    |		Load	0x0,0x9
0392 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0393 a402       |    |		Store_Unchecked	0x2,0x2
0394			BODY_0388:
0394 e5fd       |    |		Load	0x2,-0x3
0395 e5fe       |    |		Load	0x2,-0x2
0396 00da       |    |		Load_Top	At_Offset_2
0397 e00a       |    |		Load	0x0,0xa
0398 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0399 e00b       |    |		Load	0x0,0xb
039a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
039b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039c 4800       |H   |		Short_Literal	0x0
039d 4803       |H   |		Short_Literal	0x3
039e e5ff       |    |		Load	0x2,-0x1
039f 8244       | D  |		Call	0x1,0x44
03a0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03a1 0000 0000  |    |		.BLANK	0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b4       |    |		.CONST	0x03b4								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab e008       |    |		Load	0x0,0x8
03ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ad 02c7       |    |		Declare_Variable	Any
03ae e5fd       |    |		Load	0x2,-0x3
03af 4800       |H   |		Short_Literal	0x0
03b0 e5fe       |    |		Load	0x2,-0x2
03b1 e009       |    |		Load	0x0,0x9
03b2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03b3 a402       |    |		Store_Unchecked	0x2,0x2
03b4			BODY_03a8:
03b4 e5fd       |    |		Load	0x2,-0x3
03b5 e5fe       |    |		Load	0x2,-0x2
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 e00a       |    |		Load	0x0,0xa
03b8 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
03b9 e00b       |    |		Load	0x0,0xb
03ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03bb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03bc 4801       |H   |		Short_Literal	0x1
03bd 4803       |H   |		Short_Literal	0x3
03be e5ff       |    |		Load	0x2,-0x1
03bf 8244       | D  |		Call	0x1,0x44
03c0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03c1 0000 0000  |    |		.BLANK	0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb e5fc       |    |		Load	0x2,-0x4
03cc e5fd       |    |		Load	0x2,-0x3
03cd 00ea       |    |		Load_Encached	Null_String_Cache
03ce 4800       |H   |		Short_Literal	0x0
03cf e5fe       |    |		Load	0x2,-0x2
03d0 8243       | C  |		Call	0x1,0x43
03d1 e5ff       |    |		Load	0x2,-0x1
03d2 8244       | D  |		Call	0x1,0x44
03d3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03d4 0000 0000  |    |		.BLANK	0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db e5fc       |    |		Load	0x2,-0x4
03dc e5fd       |    |		Load	0x2,-0x3
03dd 00ea       |    |		Load_Encached	Null_String_Cache
03de 4801       |H   |		Short_Literal	0x1
03df e5fe       |    |		Load	0x2,-0x2
03e0 8243       | C  |		Call	0x1,0x43
03e1 e5ff       |    |		Load	0x2,-0x1
03e2 8244       | D  |		Call	0x1,0x44
03e3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 00da       |    |		Load_Top	At_Offset_2
03ec e007       |    |		Load	0x0,0x7
03ed 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03ee e00c       |    |		Load	0x0,0xc
03ef 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03f0 e00d       |    |		Load	0x0,0xd
03f1 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
03f2 e00d       |    |		Load	0x0,0xd
03f3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03f4 011c       |    |		Execute	Any,Convert_Unchecked
03f5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03f7 0000       |    |		.XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc e007       |    |		Load	0x0,0x7
03fd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03fe e00c       |    |		Load	0x0,0xc
03ff 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0400 e00d       |    |		Load	0x0,0xd
0401 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0402 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0403 0000 0000  |    |		.BLANK	0000[0x5]
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 e007       |    |		Load	0x0,0x7
040d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
040e e00c       |    |		Load	0x0,0xc
040f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0410 e00d       |    |		Load	0x0,0xd
0411 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0412 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0413 0000 0000  |    |		.BLANK	0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c 00d8       |    |		Load_Top	At_Offset_0
041d e00d       |    |		Load	0x0,0xd
041e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
041f 0260       | `  |		Execute	Discrete,In_Type
0420 7001       |p   |		Jump_Nonzero	0x422
0421 0801       |    |		Execute_Immediate	Raise,0x1
0422 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0423 0000 0000  |    |		.BLANK	0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0439       | 9  |		.CONST	0x0439								; Address of begin
0429 043b       | ;  |		.CONST	0x043b								; Address of exception handler
042a 0004       |    |		.CONST	0x0004								; Number of locals
042b			INIT_0428:
042b e002       |    |		Load	0x0,0x2
042c 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
042d 02c7       |    |		Declare_Variable	Any
042e 00db       |    |		Load_Top	At_Offset_3
042f e007       |    |		Load	0x0,0x7
0430 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0431 e002       |    |		Load	0x0,0x2
0432 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0433 a402       |    |		Store_Unchecked	0x2,0x2
0434 e00e       |    |		Load	0x0,0xe
0435 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0436 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0437 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
0439			BODY_0428:
0439 8404       |    |		Call	0x2,0x4
043a 0831       | 1  |		Execute_Immediate	Raise,0x31
043b			TRAP_0428:
043b 0007       |    |		Action	Break_Optional
043c 00ea       |    |		Load_Encached	Null_String_Cache
043d 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
043e 0000 0000  |    |		.XXX[0x2]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044d       | M  |		.CONST	0x044d								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0002       |    |		.CONST	0x0002								; Number of locals
0443			INIT_0440:
0443 e5fa       |    |		Load	0x2,-0x6
0444 e5fb       |    |		Load	0x2,-0x5
0445 e5fc       |    |		Load	0x2,-0x4
0446 e5fd       |    |		Load	0x2,-0x3
0447 e5fe       |    |		Load	0x2,-0x2
0448 e5ff       |    |		Load	0x2,-0x1
0449 e007       |    |		Load	0x0,0x7
044a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
044b e00f       |    |		Load	0x0,0xf
044c 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
044d			BODY_0440:
044d 00d8       |    |		Load_Top	At_Offset_0
044e 00cb       |    |		Action	Pop_Block_With_Result
044f 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0450 ; --------------------------------------------------------------------------------------
0450 ; STRING TABLE
0450 ; --------------------------------------------------------------------------------------
0450 001c       |    |		.STRTAB	0x001c->0x045e							; "ON_NORMAL"
0451 0023       | #  |		.STRTAB	0x0023->0x0462							; "ON_ERROR"
0452 0029       | )  |		.STRTAB	0x0029->0x0466							; "ON_WARNING"
0453 0031       | 1  |		.STRTAB	0x0031->0x046b							; "ALWAYS"
0454 0035       | 5  |		.STRTAB	0x0035->0x046e							; "ASSEMBLE"
0455 003b       | ;  |		.STRTAB	0x003b->0x0472							; "PROMOTE"
0456 0040       | @  |		.STRTAB	0x0040->0x0476							; "DEMOTE"
0457 0044       | D  |		.STRTAB	0x0044->0x0479							; "BIND"
0458 0046       | F  |		.STRTAB	0x0046->0x047b							; "LINK"
0459 0048       | H  |		.STRTAB	0x0048->0x047d							; "ADA_SPEC"
045a 004e       | N  |		.STRTAB	0x004e->0x0481							; "ADA_BODY"
045b 0054       | T  |		.STRTAB	0x0054->0x0485							; "SECONDARY"
045c 005b       | [  |		.STRTAB	0x005b->0x0489							; "UNKNOWN"
045d 0060       | `  |		.STREND 0x0060->0x048d
045e 4f4e 5f4e  |ON_N|		.STRTAB_STRINGS
048d 0000 0000  |    |		.XXX[0x3]
048f 0000       |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug Table
0490 ; --------------------------------------------------------------------------------------
0490 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xa513,0x0000,0x0001,0x0000
0496 0000 8016  |    |		.XXX[0x16a]
0498 6631 0000  |f1  |
049a 000b 28f2  |  ( |
049c c90b 0000  |    |
049e 0080 28f2  |  ( |
04a0 c90b 0000  |    |
04a2 0080 1666  |   f|
04a4 e900 0000  |    |
04a6 0b28 f25d  | ( ]|
04a8 0b00 0000  |    |
04aa 8028 f2dd  | (  |
04ac 0b00 0000  |    |
04ae 8013 5df1  |  ] |
04b0 0000 000b  |    |
04b2 28f2 dd0b  |(   |
04b4 0000 0080  |    |
04b6 28f2 dd0b  |(   |
04b8 0000 0080  |    |
04ba 1666 e900  | f  |
04bc 0000 0b27  |   '|
04be 7bdd 0a00  |{   |
04c0 0000 8027  |   '|
04c2 d595 0a00  |    |
04c4 0000 8010  |    |
04c6 abf1 0000  |    |
04c8 000b 277e  |  '~|
04ca 490a 0000  |I   |
04cc 0080 277e  |  '~|
04ce 490a 0000  |I   |
04d0 0080 0d68  |   h|
04d2 c100 0000  |    |
04d4 0b27 7e4d  | '~M|
04d6 0a00 0000  |    |
04d8 8027 7e4d  | '~M|
04da 0a00 0000  |    |
04dc 8016 6bf1  |  k |
04de 0000 000b  |    |
04e0 277a a90a  |'z  |
04e2 0000 0080  |    |
04e4 27d5 d90a  |'   |
04e6 0000 0080  |    |
04e8 1364 6900  | di |
04ea 0000 0b27  |   '|
04ec 7e55 0a00  |~U  |
04ee 0000 8027  |   '|
04f0 7e55 0a00  |~U  |
04f2 0000 800d  |    |
04f4 6d11 0000  |m   |
04f6 000b 277e  |  '~|
04f8 590a 0000  |Y   |
04fa 0080 277e  |  '~|
04fc 590a 0000  |Y   |
04fe 0080 166e  |   n|
0500 1900 0000  |    |
0502 0b27 7a71  | 'zq|
0504 0a00 0000  |    |
0506 8027 d5e1  | '  |
0508 0a00 0000  |    |
050a 800a 0311  |    |
050c 0000 000b  |    |
050e 277e 610a  |'~a |
0510 0000 0080  |    |
0512 277e 610a  |'~a |
0514 0000 0080  |    |
0516 04ce 8100  |    |
0518 0000 0b27  |   '|
051a 7e65 0a00  |~e  |
051c 0000 8027  |   '|
051e 7e65 0a00  |~e  |
0520 0000 8016  |    |
0522 7041 0000  |pA  |
0524 000b 277b  |  '{|
0526 190a 0000  |    |
0528 0080 27d5  |  ' |
052a c50a 0000  |    |
052c 0080 1365  |   e|
052e d900 0000  |    |
0530 0b27 7e6d  | '~m|
0532 0a00 0000  |    |
0534 8027 7e6d  | '~m|
0536 0a00 0000  |    |
0538 8004 cf39  |   9|
053a 0000 000b  |    |
053c 277e 710a  |'~q |
053e 0000 0080  |    |
0540 277e 710a  |'~q |
0542 0000 0080  |    |
0544 1672 6900  | ri |
0546 0000 0b27  |   '|
0548 7a39 0a00  |z9  |
054a 0000 8027  |   '|
054c d5e9 0a00  |    |
054e 0000 8013  |    |
0550 63b1 0000  |c   |
0552 000b 277e  |  '~|
0554 790a 0000  |y   |
0556 0080 277e  |  '~|
0558 790a 0000  |y   |
055a 0080 0d6d  |   m|
055c c900 0000  |    |
055e 0b27 7e7d  | '~}|
0560 0a00 0000  |    |
0562 8027 7e7d  | '~}|
0564 0a00 0000  |    |
0566 8016 7491  |  t |
0568 0000 000b  |    |
056a 277b 350a  |'{5 |
056c 0000 0080  |    |
056e 27d5 bd0a  |'   |
0570 0000 0080  |    |
0572 0000 0000  |    |
0574 0000 0b27  |   '|
0576 7e85 0a00  |~   |
0578 0000 8027  |   '|
057a 7e85 0a00  |~   |
057c 0000 8011  |    |
057e 6789 0000  |g   |
0580 000b 277e  |  '~|
0582 890a 0000  |    |
0584 0080 277e  |  '~|
0586 890a 0000  |    |
0588 0080 1676  |   v|
058a b900 0000  |    |
058c 0b27 7b51  | '{Q|
058e 0a00 0000  |    |
0590 8027 d5b5  | '  |
0592 0a00 0000  |    |
0594 8000 0000  |    |
0596 0000 000b  |    |
0598 277e 910a  |'~  |
059a 0000 0080  |    |
059c 277e 910a  |'~  |
059e 0000 0080  |    |
05a0 10d0 9900  |    |
05a2 0000 0b27  |   '|
05a4 7e95 0a00  |~   |
05a6 0000 8027  |   '|
05a8 7e95 0a00  |~   |
05aa 0000 8016  |    |
05ac 78e1 0000  |x   |
05ae 000b 277e  |  '~|
05b0 410a 0000  |A   |
05b2 0080 2787  |  ' |
05b4 350a 0000  |5   |
05b6 0080 10cb  |    |
05b8 9100 0000  |    |
05ba 0b27 7e9d  | '~ |
05bc 0a00 0000  |    |
05be 8027 7e9d  | '~ |
05c0 0a00 0000  |    |
05c2 800d 7219  |  r |
05c4 0000 000b  |    |
05c6 277e a10a  |'~  |
05c8 0000 0080  |    |
05ca 277e a10a  |'~  |
05cc 0000 0080  |    |
05ce 166c a900  | l  |
05d0 0000 0b27  |   '|
05d2 7ea5 0a00  |~   |
05d4 0000 8027  |   '|
05d6 7ea5 0a00  |~   |
05d8 0000 8016  |    |
05da 7b09 0000  |{   |
05dc 000b 277b  |  '{|
05de c10a 0000  |    |
05e0 0080 27d7  |  ' |
05e2 910a 0000  |    |
05e4 0080 07b0  |    |
05e6 a900 0000  |    |
05e8 0b27 7eb1  | '~ |
05ea 0a00 0000  |    |
05ec 8027 7eb1  | '~ |
05ee 0a00 0000  |    |
05f0 8007 cbf9  |    |
05f2 0000 000b  |    |
05f4 277e b50a  |'~  |
05f6 0000 0080  |    |
05f8 277e b50a  |'~  |
05fa 0000 0080  |    |
05fc 167d e900  | }  |
05fe 0000 0b27  |   '|