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

⟦fadbb04a0⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04d0       |    |		.CONST	0x04d0								; 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 00cf       |    |		.CONST	0x00cf								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0043       | C  |		.CONST	0x0043								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4803       |H   |		Short_Literal	0x3
000d 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4804       |H   |		Short_Literal	0x4
0012 029f 0103  |    |		Declare_Subprogram	INIT_0100,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 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
001f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0020 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0022 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0024 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0026 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0028 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002a 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
002c 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
002e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0030 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0032 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0034 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0036 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0038 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
003a 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
003c 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
003e 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0040 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0042 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0044 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0046 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0048 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
004a 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
004c 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
004e 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0050 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0052 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0054 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0056 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0058 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
005a 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
005c 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
005e 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0060 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0062 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0064 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0066 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0068 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
006a 00bf       |    |		Action	Accept_Activation
006b a001       |    |		Store_Unchecked	0x0,0x1
006c 00c6       |    |		Action	Check_Subprogram_Elaborated
006d e210       |    |		Load	0x1,0x10
006e e002       |    |		Load	0x0,0x2
006f 1bb3       |    |		Execute	Package,Field_Read,Field_Number 0xb3
0070 e003       |    |		Load	0x0,0x3
0071 e004       |    |		Load	0x0,0x4
0072 4800       |H   |		Short_Literal	0x0
0073 0007       |    |		Action	Break_Optional
0074 a001       |    |		Store_Unchecked	0x0,0x1
0075 00c6       |    |		Action	Check_Subprogram_Elaborated
0076 e002       |    |		Load	0x0,0x2
0077 1bb3       |    |		Execute	Package,Field_Read,Field_Number 0xb3
0078 e210       |    |		Load	0x1,0x10
0079 e005       |    |		Load	0x0,0x5
007a e006       |    |		Load	0x0,0x6
007b 4800       |H   |		Short_Literal	0x0
007c 0007       |    |		Action	Break_Optional
007d 029d 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call
007f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 029d 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call
00bf 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
00c1 029d 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call
00c3 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf			BODY_0008:
00cf 00bc       |    |		Action	Signal_Activated
00d0 00bb       |    |		Action	Signal_Completion
00d1 0000 0000  |    |		.BLANK	0000[0x7]
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 4607       |F   |		Jump_Case	0x8
00dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00dd 7806       |x   |		Jump	0xe4								; case 0x1
00de 7809       |x   |		Jump	0xe8								; case 0x2
00df 780d       |x   |		Jump	0xed								; case 0x3
00e0 7810       |x   |		Jump	0xf1								; case 0x4
00e1 7811       |x   |		Jump	0xf3								; case 0x5
00e2 7812       |x   |		Jump	0xf5								; case 0x6
00e3 7815       |x   |		Jump	0xf9								; case 0x7
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 0091 048d  |    |		Action	Push_String_Extended_Indexed,0x48d				; "ON_NORMAL"
00e7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 00e0       |    |		Load_Encached	Standard_Cache
00eb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 00e0       |    |		Load_Encached	Standard_Cache
00ef 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 e20d       |    |		Load	0x1,0xd
00f6 00dc       |    |		Load_Top	At_Offset_4
00f7 0267       | g  |		Execute	Discrete,Predecessor
00f8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f9 e20d       |    |		Load	0x1,0xd
00fa 00dc       |    |		Load_Top	At_Offset_4
00fb 0268       | h  |		Execute	Discrete,Successor
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4607       |F   |		Jump_Case	0x8
0104 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0105 7806       |x   |		Jump	0x10c								; case 0x1
0106 7809       |x   |		Jump	0x110								; case 0x2
0107 780d       |x   |		Jump	0x115								; case 0x3
0108 7810       |x   |		Jump	0x119								; case 0x4
0109 7811       |x   |		Jump	0x11b								; case 0x5
010a 7812       |x   |		Jump	0x11d								; case 0x6
010b 7815       |x   |		Jump	0x121								; case 0x7
010c 00da       |    |		Load_Top	At_Offset_2
010d 0091 0491  |    |		Action	Push_String_Extended_Indexed,0x491				; "ASSEMBLE"
010f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0110 00db       |    |		Load_Top	At_Offset_3
0111 00db       |    |		Load_Top	At_Offset_3
0112 00e0       |    |		Load_Encached	Standard_Cache
0113 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0114 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0115 00da       |    |		Load_Top	At_Offset_2
0116 00e0       |    |		Load_Encached	Standard_Cache
0117 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011b 00db       |    |		Load_Top	At_Offset_3
011c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011d e20e       |    |		Load	0x1,0xe
011e 00dc       |    |		Load_Top	At_Offset_4
011f 0267       | g  |		Execute	Discrete,Predecessor
0120 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0121 e20e       |    |		Load	0x1,0xe
0122 00dc       |    |		Load_Top	At_Offset_4
0123 0268       | h  |		Execute	Discrete,Successor
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 4607       |F   |		Jump_Case	0x8
012c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
012d 7806       |x   |		Jump	0x134								; case 0x1
012e 7809       |x   |		Jump	0x138								; case 0x2
012f 780d       |x   |		Jump	0x13d								; case 0x3
0130 7810       |x   |		Jump	0x141								; case 0x4
0131 7811       |x   |		Jump	0x143								; case 0x5
0132 7812       |x   |		Jump	0x145								; case 0x6
0133 7815       |x   |		Jump	0x149								; case 0x7
0134 00da       |    |		Load_Top	At_Offset_2
0135 0091 0496  |    |		Action	Push_String_Extended_Indexed,0x496				; "ADA_SPEC"
0137 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0138 00db       |    |		Load_Top	At_Offset_3
0139 00db       |    |		Load_Top	At_Offset_3
013a 00e0       |    |		Load_Encached	Standard_Cache
013b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
013c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013d 00da       |    |		Load_Top	At_Offset_2
013e 00e0       |    |		Load_Encached	Standard_Cache
013f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0140 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0141 00db       |    |		Load_Top	At_Offset_3
0142 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0143 00db       |    |		Load_Top	At_Offset_3
0144 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0145 e210       |    |		Load	0x1,0x10
0146 00dc       |    |		Load_Top	At_Offset_4
0147 0267       | g  |		Execute	Discrete,Predecessor
0148 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0149 e210       |    |		Load	0x1,0x10
014a 00dc       |    |		Load_Top	At_Offset_4
014b 0268       | h  |		Execute	Discrete,Successor
014c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 e007       |    |		Load	0x0,0x7
0155 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0156 e002       |    |		Load	0x0,0x2
0157 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0158 e002       |    |		Load	0x0,0x2
0159 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
015a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015b 0000 0000  |    |		.BLANK	0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 e007       |    |		Load	0x0,0x7
0165 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0166 e002       |    |		Load	0x0,0x2
0167 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0168 e002       |    |		Load	0x0,0x2
0169 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
016a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 e007       |    |		Load	0x0,0x7
0175 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0176 e002       |    |		Load	0x0,0x2
0177 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0178 e002       |    |		Load	0x0,0x2
0179 18b1       |    |		Execute	Package,Field_Execute,Field_Number 0xb1
017a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017b 0000 0000  |    |		.BLANK	0000[0x5]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00da       |    |		Load_Top	At_Offset_2
0184 e007       |    |		Load	0x0,0x7
0185 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0186 e002       |    |		Load	0x0,0x2
0187 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0188 e002       |    |		Load	0x0,0x2
0189 18b2       |    |		Execute	Package,Field_Execute,Field_Number 0xb2
018a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e5fd       |    |		Load	0x2,-0x3
0194 e5fe       |    |		Load	0x2,-0x2
0195 e5ff       |    |		Load	0x2,-0x1
0196 e007       |    |		Load	0x0,0x7
0197 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0198 e002       |    |		Load	0x0,0x2
0199 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
019a e002       |    |		Load	0x0,0x2
019b 1870       | p  |		Execute	Package,Field_Execute,Field_Number 0x70
019c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e5fd       |    |		Load	0x2,-0x3
01a4 e5fe       |    |		Load	0x2,-0x2
01a5 e5ff       |    |		Load	0x2,-0x1
01a6 e007       |    |		Load	0x0,0x7
01a7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01a8 e002       |    |		Load	0x0,0x2
01a9 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01aa e002       |    |		Load	0x0,0x2
01ab 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
01ac 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01ad 0000 0000  |    |		.XXX[0x3]
01af 0000       |    |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 e007       |    |		Load	0x0,0x7
01b5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01b6 e002       |    |		Load	0x0,0x2
01b7 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01b8 e002       |    |		Load	0x0,0x2
01b9 1872       | r  |		Execute	Package,Field_Execute,Field_Number 0x72
01ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 e007       |    |		Load	0x0,0x7
01c5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01c6 e002       |    |		Load	0x0,0x2
01c7 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01c8 e002       |    |		Load	0x0,0x2
01c9 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
01ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cb 0000 0000  |    |		.BLANK	0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 e236       | 6  |		Load	0x1,0x36
01d5 e237       | 7  |		Load	0x1,0x37
01d6 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
01d7 8001       |    |		Call	0x0,0x1
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 e007       |    |		Load	0x0,0x7
01da 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01db e002       |    |		Load	0x0,0x2
01dc 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01dd e002       |    |		Load	0x0,0x2
01de 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
01df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 00db       |    |		Load_Top	At_Offset_3
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 e007       |    |		Load	0x0,0x7
01e6 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01e7 e002       |    |		Load	0x0,0x2
01e8 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01e9 e002       |    |		Load	0x0,0x2
01ea 1875       | u  |		Execute	Package,Field_Execute,Field_Number 0x75
01eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 e007       |    |		Load	0x0,0x7
01f6 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01f7 e002       |    |		Load	0x0,0x2
01f8 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01f9 e002       |    |		Load	0x0,0x2
01fa 1876       | v  |		Execute	Package,Field_Execute,Field_Number 0x76
01fb e23b       | ;  |		Load	0x1,0x3b
01fc e23c       | <  |		Load	0x1,0x3c
01fd 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
01fe 8001       |    |		Call	0x0,0x1
01ff 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e5fd       |    |		Load	0x2,-0x3
0204 e5fe       |    |		Load	0x2,-0x2
0205 e5ff       |    |		Load	0x2,-0x1
0206 e007       |    |		Load	0x0,0x7
0207 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0208 e002       |    |		Load	0x0,0x2
0209 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
020a e002       |    |		Load	0x0,0x2
020b 1877       | w  |		Execute	Package,Field_Execute,Field_Number 0x77
020c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e5fd       |    |		Load	0x2,-0x3
0214 e5fe       |    |		Load	0x2,-0x2
0215 e5ff       |    |		Load	0x2,-0x1
0216 e007       |    |		Load	0x0,0x7
0217 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0218 e002       |    |		Load	0x0,0x2
0219 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
021a e002       |    |		Load	0x0,0x2
021b 1878       | x  |		Execute	Package,Field_Execute,Field_Number 0x78
021c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00db       |    |		Load_Top	At_Offset_3
0224 00db       |    |		Load_Top	At_Offset_3
0225 e007       |    |		Load	0x0,0x7
0226 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0227 e002       |    |		Load	0x0,0x2
0228 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0229 e002       |    |		Load	0x0,0x2
022a 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
022b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e5fd       |    |		Load	0x2,-0x3
0234 e5fe       |    |		Load	0x2,-0x2
0235 e5ff       |    |		Load	0x2,-0x1
0236 e007       |    |		Load	0x0,0x7
0237 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0238 e002       |    |		Load	0x0,0x2
0239 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
023a e002       |    |		Load	0x0,0x2
023b 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
023c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 e007       |    |		Load	0x0,0x7
0245 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0246 e002       |    |		Load	0x0,0x2
0247 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0248 e002       |    |		Load	0x0,0x2
0249 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
024a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 e007       |    |		Load	0x0,0x7
0255 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0256 e002       |    |		Load	0x0,0x2
0257 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0258 e002       |    |		Load	0x0,0x2
0259 18cc       |    |		Execute	Package,Field_Execute,Field_Number 0xcc
025a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025b 0000 0000  |    |		.BLANK	0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 e007       |    |		Load	0x0,0x7
0265 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0266 e002       |    |		Load	0x0,0x2
0267 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0268 e002       |    |		Load	0x0,0x2
0269 18cd       |    |		Execute	Package,Field_Execute,Field_Number 0xcd
026a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026b 0000 0000  |    |		.BLANK	0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 e007       |    |		Load	0x0,0x7
0275 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0276 e002       |    |		Load	0x0,0x2
0277 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0278 e002       |    |		Load	0x0,0x2
0279 1887       |    |		Execute	Package,Field_Execute,Field_Number 0x87
027a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027b 0000 0000  |    |		.BLANK	0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 e007       |    |		Load	0x0,0x7
0285 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0286 e002       |    |		Load	0x0,0x2
0287 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0288 e002       |    |		Load	0x0,0x2
0289 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
028a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028b 0000 0000  |    |		.BLANK	0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 e007       |    |		Load	0x0,0x7
0295 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0296 e002       |    |		Load	0x0,0x2
0297 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0298 e002       |    |		Load	0x0,0x2
0299 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
029a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029b 0000 0000  |    |		.BLANK	0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 e007       |    |		Load	0x0,0x7
02a5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02a6 e002       |    |		Load	0x0,0x2
02a7 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02a8 e002       |    |		Load	0x0,0x2
02a9 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
02aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ab 0000 0000  |    |		.BLANK	0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 e007       |    |		Load	0x0,0x7
02b5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02b6 e002       |    |		Load	0x0,0x2
02b7 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02b8 e002       |    |		Load	0x0,0x2
02b9 1890       |    |		Execute	Package,Field_Execute,Field_Number 0x90
02ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02bb 0000 0000  |    |		.BLANK	0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 e007       |    |		Load	0x0,0x7
02c5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02c6 e002       |    |		Load	0x0,0x2
02c7 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02c8 e002       |    |		Load	0x0,0x2
02c9 186b       | k  |		Execute	Package,Field_Execute,Field_Number 0x6b
02ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cb 0000 0000  |    |		.BLANK	0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 e5fc       |    |		Load	0x2,-0x4
02d4 e5fd       |    |		Load	0x2,-0x3
02d5 e5fe       |    |		Load	0x2,-0x2
02d6 e5ff       |    |		Load	0x2,-0x1
02d7 e007       |    |		Load	0x0,0x7
02d8 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02d9 e002       |    |		Load	0x0,0x2
02da 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02db e002       |    |		Load	0x0,0x2
02dc 18d6       |    |		Execute	Package,Field_Execute,Field_Number 0xd6
02dd 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02de 0000 0000  |    |		.XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e5fb       |    |		Load	0x2,-0x5
02e4 e5fc       |    |		Load	0x2,-0x4
02e5 e5fd       |    |		Load	0x2,-0x3
02e6 e5fe       |    |		Load	0x2,-0x2
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 e007       |    |		Load	0x0,0x7
02e9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02ea e002       |    |		Load	0x0,0x2
02eb 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02ec e002       |    |		Load	0x0,0x2
02ed 18d7       |    |		Execute	Package,Field_Execute,Field_Number 0xd7
02ee 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
02ef 0000       |    |		.XXX[0x1]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 e5fd       |    |		Load	0x2,-0x3
02f4 e5fe       |    |		Load	0x2,-0x2
02f5 e5ff       |    |		Load	0x2,-0x1
02f6 e007       |    |		Load	0x0,0x7
02f7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02f8 e002       |    |		Load	0x0,0x2
02f9 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02fa e002       |    |		Load	0x0,0x2
02fb 18b8       |    |		Execute	Package,Field_Execute,Field_Number 0xb8
02fc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e5fc       |    |		Load	0x2,-0x4
0304 e5fd       |    |		Load	0x2,-0x3
0305 e5fe       |    |		Load	0x2,-0x2
0306 e5ff       |    |		Load	0x2,-0x1
0307 e007       |    |		Load	0x0,0x7
0308 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0309 e002       |    |		Load	0x0,0x2
030a 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
030b e002       |    |		Load	0x0,0x2
030c 18b9       |    |		Execute	Package,Field_Execute,Field_Number 0xb9
030d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
030e 0000 0000  |    |		.XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 e007       |    |		Load	0x0,0x7
0315 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0316 e002       |    |		Load	0x0,0x2
0317 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0318 e002       |    |		Load	0x0,0x2
0319 18d5       |    |		Execute	Package,Field_Execute,Field_Number 0xd5
031a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00da       |    |		Load_Top	At_Offset_2
0324 e007       |    |		Load	0x0,0x7
0325 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0326 e002       |    |		Load	0x0,0x2
0327 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0328 e002       |    |		Load	0x0,0x2
0329 18d1       |    |		Execute	Package,Field_Execute,Field_Number 0xd1
032a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032b 0000 0000  |    |		.BLANK	0000[0x5]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 e007       |    |		Load	0x0,0x7
0335 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0336 e002       |    |		Load	0x0,0x2
0337 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0338 e002       |    |		Load	0x0,0x2
0339 18d2       |    |		Execute	Package,Field_Execute,Field_Number 0xd2
033a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033b 0000 0000  |    |		.BLANK	0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034c       | L  |		.CONST	0x034c								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e008       |    |		Load	0x0,0x8
0344 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0345 02c7       |    |		Declare_Variable	Any
0346 e5fd       |    |		Load	0x2,-0x3
0347 4800       |H   |		Short_Literal	0x0
0348 e5fe       |    |		Load	0x2,-0x2
0349 e009       |    |		Load	0x0,0x9
034a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
034b a402       |    |		Store_Unchecked	0x2,0x2
034c			BODY_0340:
034c e5fd       |    |		Load	0x2,-0x3
034d e5fe       |    |		Load	0x2,-0x2
034e 00da       |    |		Load_Top	At_Offset_2
034f e00a       |    |		Load	0x0,0xa
0350 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0351 e00b       |    |		Load	0x0,0xb
0352 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0353 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0354 4800       |H   |		Short_Literal	0x0
0355 4801       |H   |		Short_Literal	0x1
0356 e5ff       |    |		Load	0x2,-0x1
0357 8243       | C  |		Call	0x1,0x43
0358 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0359 0000 0000  |    |		.BLANK	0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036c       | l  |		.CONST	0x036c								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0002       |    |		.CONST	0x0002								; Number of locals
0363			INIT_0360:
0363 e008       |    |		Load	0x0,0x8
0364 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0365 02c7       |    |		Declare_Variable	Any
0366 e5fd       |    |		Load	0x2,-0x3
0367 4800       |H   |		Short_Literal	0x0
0368 e5fe       |    |		Load	0x2,-0x2
0369 e009       |    |		Load	0x0,0x9
036a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
036b a402       |    |		Store_Unchecked	0x2,0x2
036c			BODY_0360:
036c e5fd       |    |		Load	0x2,-0x3
036d e5fe       |    |		Load	0x2,-0x2
036e 00da       |    |		Load_Top	At_Offset_2
036f e00a       |    |		Load	0x0,0xa
0370 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0371 e00b       |    |		Load	0x0,0xb
0372 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0373 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0374 4801       |H   |		Short_Literal	0x1
0375 4801       |H   |		Short_Literal	0x1
0376 e5ff       |    |		Load	0x2,-0x1
0377 8243       | C  |		Call	0x1,0x43
0378 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0379 0000 0000  |    |		.BLANK	0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038c       |    |		.CONST	0x038c								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0002       |    |		.CONST	0x0002								; Number of locals
0383			INIT_0380:
0383 e008       |    |		Load	0x0,0x8
0384 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0385 02c7       |    |		Declare_Variable	Any
0386 e5fd       |    |		Load	0x2,-0x3
0387 4800       |H   |		Short_Literal	0x0
0388 e5fe       |    |		Load	0x2,-0x2
0389 e009       |    |		Load	0x0,0x9
038a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
038b a402       |    |		Store_Unchecked	0x2,0x2
038c			BODY_0380:
038c e5fd       |    |		Load	0x2,-0x3
038d e5fe       |    |		Load	0x2,-0x2
038e 00da       |    |		Load_Top	At_Offset_2
038f e00a       |    |		Load	0x0,0xa
0390 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0391 e00b       |    |		Load	0x0,0xb
0392 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0393 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0394 4800       |H   |		Short_Literal	0x0
0395 4803       |H   |		Short_Literal	0x3
0396 e5ff       |    |		Load	0x2,-0x1
0397 8243       | C  |		Call	0x1,0x43
0398 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0399 0000 0000  |    |		.BLANK	0000[0x7]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ac       |    |		.CONST	0x03ac								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0002       |    |		.CONST	0x0002								; Number of locals
03a3			INIT_03a0:
03a3 e008       |    |		Load	0x0,0x8
03a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a5 02c7       |    |		Declare_Variable	Any
03a6 e5fd       |    |		Load	0x2,-0x3
03a7 4800       |H   |		Short_Literal	0x0
03a8 e5fe       |    |		Load	0x2,-0x2
03a9 e009       |    |		Load	0x0,0x9
03aa 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03ab a402       |    |		Store_Unchecked	0x2,0x2
03ac			BODY_03a0:
03ac e5fd       |    |		Load	0x2,-0x3
03ad e5fe       |    |		Load	0x2,-0x2
03ae 00da       |    |		Load_Top	At_Offset_2
03af e00a       |    |		Load	0x0,0xa
03b0 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
03b1 e00b       |    |		Load	0x0,0xb
03b2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b4 4801       |H   |		Short_Literal	0x1
03b5 4803       |H   |		Short_Literal	0x3
03b6 e5ff       |    |		Load	0x2,-0x1
03b7 8243       | C  |		Call	0x1,0x43
03b8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03b9 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fc       |    |		Load	0x2,-0x4
03c4 e5fd       |    |		Load	0x2,-0x3
03c5 00ea       |    |		Load_Encached	Null_String_Cache
03c6 4800       |H   |		Short_Literal	0x0
03c7 e5fe       |    |		Load	0x2,-0x2
03c8 8240       | @  |		Call	0x1,0x40
03c9 e5ff       |    |		Load	0x2,-0x1
03ca 8243       | C  |		Call	0x1,0x43
03cb 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 e5fc       |    |		Load	0x2,-0x4
03d4 e5fd       |    |		Load	0x2,-0x3
03d5 00ea       |    |		Load_Encached	Null_String_Cache
03d6 4801       |H   |		Short_Literal	0x1
03d7 e5fe       |    |		Load	0x2,-0x2
03d8 8240       | @  |		Call	0x1,0x40
03d9 e5ff       |    |		Load	0x2,-0x1
03da 8243       | C  |		Call	0x1,0x43
03db 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 00d8       |    |		Load_Top	At_Offset_0
03e5 e00c       |    |		Load	0x0,0xc
03e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03e7 0260       | `  |		Execute	Discrete,In_Type
03e8 7001       |p   |		Jump_Nonzero	0x3ea
03e9 0801       |    |		Execute_Immediate	Raise,0x1
03ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03eb 0000 0000  |    |		.BLANK	0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fb       |    |		.CONST	0x03fb								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0003       |    |		.CONST	0x0003								; Number of locals
03f3			INIT_03f0:
03f3 e00d       |    |		Load	0x0,0xd
03f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03f6 e008       |    |		Load	0x0,0x8
03f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f8 02c7       |    |		Declare_Variable	Any
03f9 00d8       |    |		Load_Top	At_Offset_0
03fa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03fb			BODY_03f0:
03fb 4800       |H   |		Short_Literal	0x0
03fc a5fb       |    |		Store_Unchecked	0x2,-0x5
03fd e5fd       |    |		Load	0x2,-0x3
03fe 4801       |H   |		Short_Literal	0x1
03ff e5ff       |    |		Load	0x2,-0x1
0400 e009       |    |		Load	0x0,0x9
0401 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0402 c403       |    |		Store	0x2,0x3
0403 00d8       |    |		Load_Top	At_Offset_0
0404 e008       |    |		Load	0x0,0x8
0405 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0406 012f       | /  |		Execute	Any,Equal
0407 6803       |h   |		Jump_Zero	0x40b
0408 601b       |`   |		Indirect_Literal	Discrete,0x424,{0x00000000, 0x00008129}
0409 a5fb       |    |		Store_Unchecked	0x2,-0x5
040a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
040b e00d       |    |		Load	0x0,0xd
040c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
040d e5fc       |    |		Load	0x2,-0x4
040e 0120       |    |		Execute	Any,Is_Value
040f 6803       |h   |		Jump_Zero	0x413
0410 e00e       |    |		Load	0x0,0xe
0411 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0412 7801       |x   |		Jump	0x414
0413 e5fc       |    |		Load	0x2,-0x4
0414 e5fd       |    |		Load	0x2,-0x3
0415 4800       |H   |		Short_Literal	0x0
0416 4800       |H   |		Short_Literal	0x0
0417 4801       |H   |		Short_Literal	0x1
0418 e5fe       |    |		Load	0x2,-0x2
0419 e403       |    |		Load	0x2,0x3
041a e00e       |    |		Load	0x0,0xe
041b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
041c c5fc       |    |		Store	0x2,-0x4
041d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
041e 00d9       |    |		Load_Top	At_Offset_1
041f a5fb       |    |		Store_Unchecked	0x2,-0x5
0420 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0421 0000 0000  |    |		.XXX[0x3]
0423 0000       |    |
0424 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008129}
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0430       | 0  |		.CONST	0x0430								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0003       |    |		.CONST	0x0003								; Number of locals
042b			INIT_0428:
042b e00d       |    |		Load	0x0,0xd
042c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
042d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
042e 029f 046b  |   k|		Declare_Subprogram	INIT_0468,For_Call
0430			BODY_0428:
0430 8403       |    |		Call	0x2,0x3
0431 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0432 0000 0000  |    |		.BLANK	0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 044e       | N  |		.CONST	0x044e								; Address of begin
0439 0460       | `  |		.CONST	0x0460								; Address of exception handler
043a 0005       |    |		.CONST	0x0005								; Number of locals
043b			INIT_0438:
043b e002       |    |		Load	0x0,0x2
043c 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
043d 02c7       |    |		Declare_Variable	Any
043e 00db       |    |		Load_Top	At_Offset_3
043f e007       |    |		Load	0x0,0x7
0440 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0441 e002       |    |		Load	0x0,0x2
0442 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0443 a402       |    |		Store_Unchecked	0x2,0x2
0444 e00d       |    |		Load	0x0,0xd
0445 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0446 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0447 e00e       |    |		Load	0x0,0xe
0448 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0449 02c7       |    |		Declare_Variable	Any
044a 00d8       |    |		Load_Top	At_Offset_0
044b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
044c 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
044e			BODY_0438:
044e e00d       |    |		Load	0x0,0xd
044f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0450 00da       |    |		Load_Top	At_Offset_2
0451 e5fa       |    |		Load	0x2,-0x6
0452 e402       |    |		Load	0x2,0x2
0453 e5fb       |    |		Load	0x2,-0x5
0454 8241       | A  |		Call	0x1,0x41
0455 c404       |    |		Store	0x2,0x4
0456 005b       | [  |		Store_Top	Discrete,At_Offset_3
0457 4800       |H   |		Short_Literal	0x0
0458 00db       |    |		Load_Top	At_Offset_3
0459 e00d       |    |		Load	0x0,0xd
045a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
045b 7002       |p   |		Jump_Nonzero	0x45e
045c 00ea       |    |		Load_Encached	Null_String_Cache
045d 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
045e 8405       |    |		Call	0x2,0x5
045f 0831       | 1  |		Execute_Immediate	Raise,0x31
0460			TRAP_0438:
0460 0007       |    |		Action	Break_Optional
0461 00da       |    |		Load_Top	At_Offset_2
0462 e5fa       |    |		Load	0x2,-0x6
0463 8242       | B  |		Call	0x1,0x42
0464 c404       |    |		Store	0x2,0x4
0465 00ea       |    |		Load_Encached	Null_String_Cache
0466 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0467 0000       |    |		.XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0474       | t  |		.CONST	0x0474								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b e00d       |    |		Load	0x0,0xd
046c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
046d e5fe       |    |		Load	0x2,-0x2
046e e5ff       |    |		Load	0x2,-0x1
046f e00e       |    |		Load	0x0,0xe
0470 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0471 c5fe       |    |		Store	0x2,-0x2
0472 c402       |    |		Store	0x2,0x2
0473 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0474			TRAP_0468:
0474 0007       |    |		Action	Break_Optional
0475 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0476 0000 0000  |    |		.XXX[0x2]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0486       |    |		.CONST	0x0486								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0002       |    |		.CONST	0x0002								; Number of locals
047b			INIT_0478:
047b e5fa       |    |		Load	0x2,-0x6
047c e5fb       |    |		Load	0x2,-0x5
047d e5fc       |    |		Load	0x2,-0x4
047e e5fd       |    |		Load	0x2,-0x3
047f e5fe       |    |		Load	0x2,-0x2
0480 e5ff       |    |		Load	0x2,-0x1
0481 e007       |    |		Load	0x0,0x7
0482 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0483 e404       |    |		Load	0x2,0x4
0484 e00f       |    |		Load	0x0,0xf
0485 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0486			BODY_0478:
0486 e404       |    |		Load	0x2,0x4
0487 e5fa       |    |		Load	0x2,-0x6
0488 8242       | B  |		Call	0x1,0x42
0489 c404       |    |		Store	0x2,0x4
048a 00d8       |    |		Load_Top	At_Offset_0
048b 00cb       |    |		Action	Pop_Block_With_Result
048c 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
048d ; --------------------------------------------------------------------------------------
048d ; STRING TABLE
048d ; --------------------------------------------------------------------------------------
048d 001c       |    |		.STRTAB	0x001c->0x049b							; "ON_NORMAL"
048e 0023       | #  |		.STRTAB	0x0023->0x049f							; "ON_ERROR"
048f 0029       | )  |		.STRTAB	0x0029->0x04a3							; "ON_WARNING"
0490 0031       | 1  |		.STRTAB	0x0031->0x04a8							; "ALWAYS"
0491 0035       | 5  |		.STRTAB	0x0035->0x04ab							; "ASSEMBLE"
0492 003b       | ;  |		.STRTAB	0x003b->0x04af							; "PROMOTE"
0493 0040       | @  |		.STRTAB	0x0040->0x04b3							; "DEMOTE"
0494 0044       | D  |		.STRTAB	0x0044->0x04b6							; "BIND"
0495 0046       | F  |		.STRTAB	0x0046->0x04b8							; "LINK"
0496 0048       | H  |		.STRTAB	0x0048->0x04ba							; "ADA_SPEC"
0497 004e       | N  |		.STRTAB	0x004e->0x04be							; "ADA_BODY"
0498 0054       | T  |		.STRTAB	0x0054->0x04c2							; "SECONDARY"
0499 005b       | [  |		.STRTAB	0x005b->0x04c6							; "UNKNOWN"
049a 0060       | `  |		.STREND 0x0060->0x04ca
049b 4f4e 5f4e  |ON_N|		.STRTAB_STRINGS
04ca 0000 0000  |    |		.BLANK	0000[0x6]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug Table
04d0 ; --------------------------------------------------------------------------------------
04d0 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x516a,0x0000,0x0001,0x0000
04d6 3a00 0020  |:   |		.XXX[0x73]
04d8 28e9 da00  |(   |
04da 0020 2865  |  (e|
04dc 3a00 0020  |:   |
04de 28ea 4a00  |( J |
04e0 0018 2764  |  'd|
04e2 e200 0020  |    |
04e4 28e9 fa00  |(   |
04e6 0028 2eef  | (. |
04e8 aa00 0038  |   8|
04ea 2ea1 7200  |. r |
04ec 0058 3442  | X4B|
04ee e800 0000  |    |
04f0 0000 0000  |    |
04f2 4d22 e022  |M" "|
04f4 150d c41e  |    |
04f6 0001 0721  |   !|
04f8 adf0 0200  |    |
04fa 1800 1620  |    |
04fc 0000 00de  |    |
04fe 6800 0180  |h   |
0500 0000 0260  |   `|
0502 0500 0000  |    |
0504 0100 0000  |    |
0506 4000 0002  |@   |
0508 2000 0000  |    |
050a 0100 0000  |    |
050c 0a40 000b  | @  |
050e 0678 2740  | x'@|
0510 000c 069e  |    |
0512 6840 0004  |h@  |
0514 050c a740  |   @|
0516 0004 051d  |    |
0518 4940 0003  |I@  |
051a 04ec 9c40  |   @|
051c 0004 051d  |    |
051e 3f40 0005  |?@  |
0520 05dd f540  |   @|
0522 0007 05d4  |    |
0524 2e40 000b  |.@  |
0526 0688 5d00  |  ] |
0528 0000 0000  |    |
052a 0000 09a4  |    |
052c 5c04 42a1  |\ B |
052e b884 0000  |    |
0530 1c49 3438  | I48|
0532 4040 0300  |@@  |
0534 02c4 0000  |    |
0536 001b e000  |    |
0538 000c 0000  |    |
053a 000c 00a0  |    |
053c 0000 0020  |    |
053e 0000 0800  |    |
0540 0000 4400  |  D |
0542 0000 0020  |    |
0544 0000 0148  |   H|
0546 0000 60a3  |  ` |
0548 abc0       |    |
0549 0000 0000  |    |		.BLANK	0000[0x1b]
0564 0137 de80  | 7  |		.XXX[0x3]
0566 8000       |    |
0567 0000 0000  |    |		.BLANK	0000[0xd]
0574 8014 0000  |    |		.XXX[0xb]
0576 0000 0000  |    |
0578 0100 0000  |    |
057a 0880 0000  |    |
057c 0004 0000  |    |
057e 0028       | (  |
057f 0000 0000  |    |		.BLANK	0000[0x2e]
05ad 1002 8000  |    |		.XXX[0xb]
05af 0000 0000  |    |
05b1 0020 0000  |    |
05b3 0110 0000  |    |
05b5 0000 8000  |    |
05b7 0005       |    |
05b8 0000 0000  |    |		.BLANK	0000[0x48]