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

⟦99e82e90c⟧

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

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 04d8       |    |		.CONST	0x04d8								; 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 0123       | #  |		.CONST	0x0123								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003f       | ?  |		.CONST	0x003f								; Number of locals
000b			INIT_0008:
000b 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
000d 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
000f 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0011 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0013 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0015 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0017 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0019 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
001b 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
001d 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
001f 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0021 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0023 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0025 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0027 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0029 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
002b 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
002d 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
002f 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0031 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0033 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0035 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0037 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0039 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
003b 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
003d 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
003f 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0041 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0043 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
0045 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0047 0093 0000  |    |		push_full_address	0x0
0049 6112       |a   |		Indirect_Literal	Discrete,0x15c,{0x80000000, 0x00010000}
004a 0273       | s  |		Execute	Discrete,Plus
004b 0129       | )  |		Execute	Any,Make_Visible
004c 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
004e 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0050 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0052 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0054 0093 0000  |    |		push_full_address	0x0
0056 6101       |a   |		Indirect_Literal	Discrete,0x158,{0x80000000, 0x00010000}
0057 0273       | s  |		Execute	Discrete,Plus
0058 e002       |    |		Load	0x0,0x2
0059 0273       | s  |		Execute	Discrete,Plus
005a e003       |    |		Load	0x0,0x3
005b 0273       | s  |		Execute	Discrete,Plus
005c e004       |    |		Load	0x0,0x4
005d e005       |    |		Load	0x0,0x5
005e e006       |    |		Load	0x0,0x6
005f 4801       |H   |		Short_Literal	0x1
0060 a007       |    |		Store_Unchecked	0x0,0x7
0061 a008       |    |		Store_Unchecked	0x0,0x8
0062 a009       |    |		Store_Unchecked	0x0,0x9
0063 a00a       |    |		Store_Unchecked	0x0,0xa
0064 a00b       |    |		Store_Unchecked	0x0,0xb
0065 a00c       |    |		Store_Unchecked	0x0,0xc
0066 a00d       |    |		Store_Unchecked	0x0,0xd
0067 a00e       |    |		Store_Unchecked	0x0,0xe
0068 a00f       |    |		Store_Unchecked	0x0,0xf
0069 e010       |    |		Load	0x0,0x10
006a 0386       |    |		Declare_Variable	Package,Visible
006b 00d8       |    |		Load_Top	At_Offset_0
006c 020f       |    |		Execute	Module,Activate
006d e011       |    |		Load	0x0,0x11
006e 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
006f e012       |    |		Load	0x0,0x12
0070 e013       |    |		Load	0x0,0x13
0071 00db       |    |		Load_Top	At_Offset_3
0072 0098       |    |		Execute	Package,Field_Read_Dynamic
0073 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
0075 4803       |H   |		Short_Literal	0x3
0076 032e       | .  |		Declare_Type	Record,Defined,Visible
0077 e014       |    |		Load	0x0,0x14
0078 00da       |    |		Load_Top	At_Offset_2
0079 0098       |    |		Execute	Package,Field_Read_Dynamic
007a 0129       | )  |		Execute	Any,Make_Visible
007b 4800       |H   |		Short_Literal	0x0
007c 4802       |H   |		Short_Literal	0x2
007d 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call
007f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0080 00da       |    |		Load_Top	At_Offset_2
0081 00e1       |    |		Load_Encached	Boolean_Cache
0082 00e1       |    |		Load_Encached	Boolean_Cache
0083 00db       |    |		Load_Top	At_Offset_3
0084 00e1       |    |		Load_Encached	Boolean_Cache
0085 e015       |    |		Load	0x0,0x15
0086 e016       |    |		Load	0x0,0x16
0087 e230       | 0  |		Load	0x1,0x30
0088 0098       |    |		Execute	Package,Field_Read_Dynamic
0089 029f 0493  |    |		Declare_Subprogram	INIT_0490,For_Call
008b 4807       |H   |		Short_Literal	0x7
008c 032e       | .  |		Declare_Type	Record,Defined,Visible
008d 00bf       |    |		Action	Accept_Activation
008e 00d9       |    |		Load_Top	At_Offset_1
008f 0266       | f  |		Execute	Discrete,Bounds
0090 00e1       |    |		Load_Encached	Boolean_Cache
0091 02a0       |    |		Declare_Subprogram	Null_Subprogram
0092 4801       |H   |		Short_Literal	0x1
0093 035d       | ]  |		Declare_Type	Array,Defined
0094 00d8       |    |		Load_Top	At_Offset_0
0095 0337       | 7  |		Declare_Variable	Array
0096 00d8       |    |		Load_Top	At_Offset_0
0097 0335       | 5  |		Declare_Variable	Array,Duplicate
0098 00cd       |    |		Action	Spare6_Action
0099 4800       |H   |		Short_Literal	0x0
009a 4800       |H   |		Short_Literal	0x0
009b 00da       |    |		Load_Top	At_Offset_2
009c 01d6       |    |		Execute	Vector,Field_Write
009d 4801       |H   |		Short_Literal	0x1
009e 4801       |H   |		Short_Literal	0x1
009f 00da       |    |		Load_Top	At_Offset_2
00a0 01d6       |    |		Execute	Vector,Field_Write
00a1 4801       |H   |		Short_Literal	0x1
00a2 4802       |H   |		Short_Literal	0x2
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 01d6       |    |		Execute	Vector,Field_Write
00a5 00d9       |    |		Load_Top	At_Offset_1
00a6 01d4       |    |		Execute	Vector,Structure_Write
00a7 4800       |H   |		Short_Literal	0x0
00a8 4802       |H   |		Short_Literal	0x2
00a9 029f 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Call
00ab 03fd       |    |		Declare_Type	Discrete,Defined
00ac e233       | 3  |		Load	0x1,0x33
00ad 0266       | f  |		Execute	Discrete,Bounds
00ae 00da       |    |		Load_Top	At_Offset_2
00af 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b0 4801       |H   |		Short_Literal	0x1
00b1 035d       | ]  |		Declare_Type	Array,Defined
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 0337       | 7  |		Declare_Variable	Array
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 0335       | 5  |		Declare_Variable	Array,Duplicate
00b6 00cd       |    |		Action	Spare6_Action
00b7 4800       |H   |		Short_Literal	0x0
00b8 4800       |H   |		Short_Literal	0x0
00b9 00da       |    |		Load_Top	At_Offset_2
00ba 01d6       |    |		Execute	Vector,Field_Write
00bb 4801       |H   |		Short_Literal	0x1
00bc 4801       |H   |		Short_Literal	0x1
00bd 00da       |    |		Load_Top	At_Offset_2
00be 01d6       |    |		Execute	Vector,Field_Write
00bf 4802       |H   |		Short_Literal	0x2
00c0 4802       |H   |		Short_Literal	0x2
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 01d6       |    |		Execute	Vector,Field_Write
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 01d4       |    |		Execute	Vector,Structure_Write
00c5 e017       |    |		Load	0x0,0x17
00c6 e018       |    |		Load	0x0,0x18
00c7 e237       | 7  |		Load	0x1,0x37
00c8 4800       |H   |		Short_Literal	0x0
00c9 4801       |H   |		Short_Literal	0x1
00ca 4802       |H   |		Short_Literal	0x2
00cb 0092 04b2  |    |		Action	Push_String_Extended,0x4b2					; "others => Unspecified"
00cd 00ea       |    |		Load_Encached	Null_String_Cache
00ce 00ea       |    |		Load_Encached	Null_String_Cache
00cf 4801       |H   |		Short_Literal	0x1
00d0 4802       |H   |		Short_Literal	0x2
00d1 e019       |    |		Load	0x0,0x19
00d2 0387       |    |		Declare_Variable	Package
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 020f       |    |		Execute	Module,Activate
00d5 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
00d8 00c7       |    |		Action	Elaborate_Subprogram
00d9 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00da 00c7       |    |		Action	Elaborate_Subprogram
00db 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00e2 00c7       |    |		Action	Elaborate_Subprogram
00e3 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00e4 00c7       |    |		Action	Elaborate_Subprogram
00e5 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00e6 00c7       |    |		Action	Elaborate_Subprogram
00e7 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00e8 00c7       |    |		Action	Elaborate_Subprogram
00e9 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00ea 00c7       |    |		Action	Elaborate_Subprogram
00eb 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00ec 00c7       |    |		Action	Elaborate_Subprogram
00ed 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00ee 00c7       |    |		Action	Elaborate_Subprogram
00ef 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00f0 00c7       |    |		Action	Elaborate_Subprogram
00f1 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00f2 00c7       |    |		Action	Elaborate_Subprogram
00f3 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00f4 00c7       |    |		Action	Elaborate_Subprogram
00f5 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00f6 00c7       |    |		Action	Elaborate_Subprogram
00f7 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00f8 00c7       |    |		Action	Elaborate_Subprogram
00f9 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00fa 00c7       |    |		Action	Elaborate_Subprogram
00fb 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00fc 00c7       |    |		Action	Elaborate_Subprogram
00fd 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00fe 00c7       |    |		Action	Elaborate_Subprogram
00ff 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0100 00c7       |    |		Action	Elaborate_Subprogram
0101 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0102 00c7       |    |		Action	Elaborate_Subprogram
0103 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0104 00c7       |    |		Action	Elaborate_Subprogram
0105 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0106 00c7       |    |		Action	Elaborate_Subprogram
0107 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0108 00c7       |    |		Action	Elaborate_Subprogram
0109 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
010a 00c7       |    |		Action	Elaborate_Subprogram
010b 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
010c 00c7       |    |		Action	Elaborate_Subprogram
010d 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
010e 00c7       |    |		Action	Elaborate_Subprogram
010f 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0110 00c7       |    |		Action	Elaborate_Subprogram
0111 029d 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call
0113 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
0115 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
0117 029d 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call
0119 029d 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call
011b 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
011c 00c7       |    |		Action	Elaborate_Subprogram
011d 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
011e 00c7       |    |		Action	Elaborate_Subprogram
011f 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0120 00c7       |    |		Action	Elaborate_Subprogram
0121 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0122 00c7       |    |		Action	Elaborate_Subprogram
0123			BODY_0008:
0123 00bc       |    |		Action	Signal_Activated
0124 00bb       |    |		Action	Signal_Completion
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0132       | 2  |		.CONST	0x0132								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e231       | 1  |		Load	0x1,0x31
012c 0322       | "  |		Declare_Variable	Record
012d 00d8       |    |		Load_Top	At_Offset_0
012e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012f 00db       |    |		Load_Top	At_Offset_3
0130 e23a       | :  |		Load	0x1,0x3a
0131 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0132			BODY_0128:
0132 00d8       |    |		Load_Top	At_Offset_0
0133 e23a       | :  |		Load	0x1,0x3a
0134 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0135 7002       |p   |		Jump_Nonzero	0x138
0136 e01a       |    |		Load	0x0,0x1a
0137 0257       | W  |		Execute	Discrete,Raise
0138 e5fe       |    |		Load	0x2,-0x2
0139 820e       |    |		Call	0x1,0xe
013a 00da       |    |		Load_Top	At_Offset_2
013b 017d       | }  |		Execute	Record,Structure_Write
013c e5fe       |    |		Load	0x2,-0x2
013d 00ea       |    |		Load_Encached	Null_String_Cache
013e 4801       |H   |		Short_Literal	0x1
013f e239       | 9  |		Load	0x1,0x39
0140 01d7       |    |		Execute	Vector,Field_Read
0141 00db       |    |		Load_Top	At_Offset_3
0142 e23a       | :  |		Load	0x1,0x3a
0143 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0144 801b       |    |		Call	0x0,0x1b
0145 00da       |    |		Load_Top	At_Offset_2
0146 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0147 e5fd       |    |		Load	0x2,-0x3
0148 e5fe       |    |		Load	0x2,-0x2
0149 00ea       |    |		Load_Encached	Null_String_Cache
014a 4802       |H   |		Short_Literal	0x2
014b e239       | 9  |		Load	0x1,0x39
014c 01d7       |    |		Execute	Vector,Field_Read
014d e403       |    |		Load	0x2,0x3
014e e23a       | :  |		Load	0x1,0x3a
014f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0150 e01c       |    |		Load	0x0,0x1c
0151 e230       | 0  |		Load	0x1,0x30
0152 0096       |    |		Execute	Package,Entry
0153 00da       |    |		Load_Top	At_Offset_2
0154 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0155 00d9       |    |		Load_Top	At_Offset_1
0156 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0157 0000       |    |		.XXX[0x1]
0158 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
015c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167       | g  |		.CONST	0x0167								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0002       |    |		.CONST	0x0002								; Number of locals
0163			INIT_0160:
0163 e231       | 1  |		Load	0x1,0x31
0164 0322       | "  |		Declare_Variable	Record
0165 00d8       |    |		Load_Top	At_Offset_0
0166 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0167			BODY_0160:
0167 00db       |    |		Load_Top	At_Offset_3
0168 00d9       |    |		Load_Top	At_Offset_1
0169 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
016a 00db       |    |		Load_Top	At_Offset_3
016b 801d       |    |		Call	0x0,0x1d
016c 00d9       |    |		Load_Top	At_Offset_1
016d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016e 00db       |    |		Load_Top	At_Offset_3
016f e01e       |    |		Load	0x0,0x1e
0170 e230       | 0  |		Load	0x1,0x30
0171 0096       |    |		Execute	Package,Entry
0172 00d9       |    |		Load_Top	At_Offset_1
0173 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0174 00d8       |    |		Load_Top	At_Offset_0
0175 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0176 0000 0000  |    |		.XXX[0x2]
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 e011       |    |		Load	0x0,0x11
017c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
017d 00db       |    |		Load_Top	At_Offset_3
017e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
017f 00da       |    |		Load_Top	At_Offset_2
0180 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0181 801f       |    |		Call	0x0,0x1f
0182 00d1       |    |		Pop_Control	Pop_Count_1
0183 00da       |    |		Load_Top	At_Offset_2
0184 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0185 e020       |    |		Load	0x0,0x20
0186 e230       | 0  |		Load	0x1,0x30
0187 0096       |    |		Execute	Package,Entry
0188 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0189 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0194 e5fe       |    |		Load	0x2,-0x2
0195 017f       |    |		Execute	Record,Equal
0196 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0197 0000       |    |		.XXX[0x1]
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 820f       |    |		Call	0x1,0xf
019d 00d1       |    |		Pop_Control	Pop_Count_1
019e 00db       |    |		Load_Top	At_Offset_3
019f 820e       |    |		Call	0x1,0xe
01a0 e5fd       |    |		Load	0x2,-0x3
01a1 017d       | }  |		Execute	Record,Structure_Write
01a2 00da       |    |		Load_Top	At_Offset_2
01a3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01a4 e5fd       |    |		Load	0x2,-0x3
01a5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a6 e5fd       |    |		Load	0x2,-0x3
01a7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a8 e5fe       |    |		Load	0x2,-0x2
01a9 e5ff       |    |		Load	0x2,-0x1
01aa 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01ab e021       | !  |		Load	0x0,0x21
01ac e230       | 0  |		Load	0x1,0x30
01ad 0096       |    |		Execute	Package,Entry
01ae 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01af 0000       |    |		.XXX[0x1]
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 e5fd       |    |		Load	0x2,-0x3
01b4 820f       |    |		Call	0x1,0xf
01b5 00d1       |    |		Pop_Control	Pop_Count_1
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 e5fd       |    |		Load	0x2,-0x3
01b8 017d       | }  |		Execute	Record,Structure_Write
01b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ba 0000 0000  |    |		.BLANK	0000[0x6]
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 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01c5 8022       | "  |		Call	0x0,0x22
01c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c7 0000       |    |		.XXX[0x1]
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 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01cd 8023       | #  |		Call	0x0,0x23
01ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cf 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
01d4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01d5 8024       | $  |		Call	0x0,0x24
01d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
01dc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01dd 8025       | %  |		Call	0x0,0x25
01de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 820f       |    |		Call	0x1,0xf
01e5 00d1       |    |		Pop_Control	Pop_Count_1
01e6 00db       |    |		Load_Top	At_Offset_3
01e7 820e       |    |		Call	0x1,0xe
01e8 e5fd       |    |		Load	0x2,-0x3
01e9 017d       | }  |		Execute	Record,Structure_Write
01ea 00da       |    |		Load_Top	At_Offset_2
01eb 8026       | &  |		Call	0x0,0x26
01ec 680c       |h   |		Jump_Zero	0x1f9
01ed 00da       |    |		Load_Top	At_Offset_2
01ee 8027       | '  |		Call	0x0,0x27
01ef 6805       |h   |		Jump_Zero	0x1f5
01f0 e5fd       |    |		Load	0x2,-0x3
01f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f2 8028       | (  |		Call	0x0,0x28
01f3 00d1       |    |		Pop_Control	Pop_Count_1
01f4 7804       |x   |		Jump	0x1f9
01f5 e5fd       |    |		Load	0x2,-0x3
01f6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f7 8029       | )  |		Call	0x0,0x29
01f8 00d1       |    |		Pop_Control	Pop_Count_1
01f9 00da       |    |		Load_Top	At_Offset_2
01fa 802a       | *  |		Call	0x0,0x2a
01fb 680c       |h   |		Jump_Zero	0x208
01fc 00da       |    |		Load_Top	At_Offset_2
01fd 8027       | '  |		Call	0x0,0x27
01fe 7005       |p   |		Jump_Nonzero	0x204
01ff e5fd       |    |		Load	0x2,-0x3
0200 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0201 802b       | +  |		Call	0x0,0x2b
0202 00d1       |    |		Pop_Control	Pop_Count_1
0203 7804       |x   |		Jump	0x208
0204 e5fd       |    |		Load	0x2,-0x3
0205 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0206 802c       | ,  |		Call	0x0,0x2c
0207 00d1       |    |		Pop_Control	Pop_Count_1
0208 e5fd       |    |		Load	0x2,-0x3
0209 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
020a 00db       |    |		Load_Top	At_Offset_3
020b e02d       | -  |		Load	0x0,0x2d
020c e230       | 0  |		Load	0x1,0x30
020d 0096       |    |		Execute	Package,Entry
020e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020f 0000       |    |		.XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0215 e02e       | .  |		Load	0x0,0x2e
0216 e230       | 0  |		Load	0x1,0x30
0217 0096       |    |		Execute	Package,Entry
0218 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0219 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0224 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0225 801f       |    |		Call	0x0,0x1f
0226 00d1       |    |		Pop_Control	Pop_Count_1
0227 00da       |    |		Load_Top	At_Offset_2
0228 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0229 e02f       | /  |		Load	0x0,0x2f
022a e230       | 0  |		Load	0x1,0x30
022b 0096       |    |		Execute	Package,Entry
022c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
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 0833       | 3  |		Execute_Immediate	Raise,0x33
0234 0000 0000  |    |		.BLANK	0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0240       | @  |		.CONST	0x0240								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b e231       | 1  |		Load	0x1,0x31
023c 0322       | "  |		Declare_Variable	Record
023d 00db       |    |		Load_Top	At_Offset_3
023e 00d9       |    |		Load_Top	At_Offset_1
023f 017d       | }  |		Execute	Record,Structure_Write
0240			BODY_0238:
0240 0833       | 3  |		Execute_Immediate	Raise,0x33
0241 0000 0000  |    |		.BLANK	0000[0x7]
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 0833       | 3  |		Execute_Immediate	Raise,0x33
024c 0000 0000  |    |		.BLANK	0000[0x4]
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 0833       | 3  |		Execute_Immediate	Raise,0x33
0254 0000 0000  |    |		.BLANK	0000[0x4]
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 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
025d e030       | 0  |		Load	0x0,0x30
025e e230       | 0  |		Load	0x1,0x30
025f 0096       |    |		Execute	Package,Entry
0260 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0261 0000 0000  |    |		.BLANK	0000[0x7]
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 e014       |    |		Load	0x0,0x14
026c e230       | 0  |		Load	0x1,0x30
026d 0098       |    |		Execute	Package,Field_Read_Dynamic
026e 00db       |    |		Load_Top	At_Offset_3
026f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0270 e031       | 1  |		Load	0x0,0x31
0271 e230       | 0  |		Load	0x1,0x30
0272 0096       |    |		Execute	Package,Entry
0273 c5fe       |    |		Store	0x2,-0x2
0274 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
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 e014       |    |		Load	0x0,0x14
027d e230       | 0  |		Load	0x1,0x30
027e 0098       |    |		Execute	Package,Field_Read_Dynamic
027f 0226       | &  |		Execute	Access,Convert
0280 e032       | 2  |		Load	0x0,0x32
0281 e230       | 0  |		Load	0x1,0x30
0282 0096       |    |		Execute	Package,Entry
0283 003b       | ;  |		Store_Top	Access,At_Offset_3
0284 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
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 e033       | 3  |		Load	0x0,0x33
028d e230       | 0  |		Load	0x1,0x30
028e 0096       |    |		Execute	Package,Entry
028f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e034       | 4  |		Load	0x0,0x34
0295 e230       | 0  |		Load	0x1,0x30
0296 0096       |    |		Execute	Package,Entry
0297 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00db       |    |		Load_Top	At_Offset_3
029c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
029d 00db       |    |		Load_Top	At_Offset_3
029e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
029f 8035       | 5  |		Call	0x0,0x35
02a0 00db       |    |		Load_Top	At_Offset_3
02a1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02a2 00db       |    |		Load_Top	At_Offset_3
02a3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02a6 e036       | 6  |		Load	0x0,0x36
02a7 e230       | 0  |		Load	0x1,0x30
02a8 0096       |    |		Execute	Package,Entry
02a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02aa 0000 0000  |    |		.BLANK	0000[0x6]
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 0833       | 3  |		Execute_Immediate	Raise,0x33
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bf       |    |		.CONST	0x02bf								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e231       | 1  |		Load	0x1,0x31
02bc 0322       | "  |		Declare_Variable	Record
02bd 00d8       |    |		Load_Top	At_Offset_0
02be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02bf			BODY_02b8:
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 8026       | &  |		Call	0x0,0x26
02c1 680c       |h   |		Jump_Zero	0x2ce
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 8027       | '  |		Call	0x0,0x27
02c4 6805       |h   |		Jump_Zero	0x2ca
02c5 e5fd       |    |		Load	0x2,-0x3
02c6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c7 8028       | (  |		Call	0x0,0x28
02c8 00d1       |    |		Pop_Control	Pop_Count_1
02c9 7804       |x   |		Jump	0x2ce
02ca e5fd       |    |		Load	0x2,-0x3
02cb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cc 8029       | )  |		Call	0x0,0x29
02cd 00d1       |    |		Pop_Control	Pop_Count_1
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 802a       | *  |		Call	0x0,0x2a
02d0 680c       |h   |		Jump_Zero	0x2dd
02d1 00db       |    |		Load_Top	At_Offset_3
02d2 8027       | '  |		Call	0x0,0x27
02d3 7005       |p   |		Jump_Nonzero	0x2d9
02d4 e5fd       |    |		Load	0x2,-0x3
02d5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d6 802b       | +  |		Call	0x0,0x2b
02d7 00d1       |    |		Pop_Control	Pop_Count_1
02d8 7804       |x   |		Jump	0x2dd
02d9 e5fd       |    |		Load	0x2,-0x3
02da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02db 802c       | ,  |		Call	0x0,0x2c
02dc 00d1       |    |		Pop_Control	Pop_Count_1
02dd e5fd       |    |		Load	0x2,-0x3
02de 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02df e5fe       |    |		Load	0x2,-0x2
02e0 e5ff       |    |		Load	0x2,-0x1
02e1 e037       | 7  |		Load	0x0,0x37
02e2 e230       | 0  |		Load	0x1,0x30
02e3 0096       |    |		Execute	Package,Entry
02e4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
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 0833       | 3  |		Execute_Immediate	Raise,0x33
02ec 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
02f4 8026       | &  |		Call	0x0,0x26
02f5 680c       |h   |		Jump_Zero	0x302
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 8027       | '  |		Call	0x0,0x27
02f8 6805       |h   |		Jump_Zero	0x2fe
02f9 00db       |    |		Load_Top	At_Offset_3
02fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02fb 8028       | (  |		Call	0x0,0x28
02fc 00d1       |    |		Pop_Control	Pop_Count_1
02fd 7804       |x   |		Jump	0x302
02fe 00db       |    |		Load_Top	At_Offset_3
02ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0300 8029       | )  |		Call	0x0,0x29
0301 00d1       |    |		Pop_Control	Pop_Count_1
0302 00da       |    |		Load_Top	At_Offset_2
0303 802a       | *  |		Call	0x0,0x2a
0304 680c       |h   |		Jump_Zero	0x311
0305 00da       |    |		Load_Top	At_Offset_2
0306 8027       | '  |		Call	0x0,0x27
0307 6805       |h   |		Jump_Zero	0x30d
0308 00db       |    |		Load_Top	At_Offset_3
0309 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030a 802b       | +  |		Call	0x0,0x2b
030b 00d1       |    |		Pop_Control	Pop_Count_1
030c 7804       |x   |		Jump	0x311
030d 00db       |    |		Load_Top	At_Offset_3
030e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030f 802c       | ,  |		Call	0x0,0x2c
0310 00d1       |    |		Pop_Control	Pop_Count_1
0311 00db       |    |		Load_Top	At_Offset_3
0312 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0313 00db       |    |		Load_Top	At_Offset_3
0314 e038       | 8  |		Load	0x0,0x38
0315 e230       | 0  |		Load	0x1,0x30
0316 0096       |    |		Execute	Package,Entry
0317 4502       |E   |		Exit_Suprogram	New_Top_Offset 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 0833       | 3  |		Execute_Immediate	Raise,0x33
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 0833       | 3  |		Execute_Immediate	Raise,0x33
0324 0000 0000  |    |		.BLANK	0000[0x4]
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 0833       | 3  |		Execute_Immediate	Raise,0x33
032c 0000 0000  |    |		.BLANK	0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0337       | 7  |		.CONST	0x0337								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0002       |    |		.CONST	0x0002								; Number of locals
0333			INIT_0330:
0333 e234       | 4  |		Load	0x1,0x34
0334 0322       | "  |		Declare_Variable	Record
0335 00d8       |    |		Load_Top	At_Offset_0
0336 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0337			BODY_0330:
0337 00db       |    |		Load_Top	At_Offset_3
0338 00d9       |    |		Load_Top	At_Offset_1
0339 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
033a 4801       |H   |		Short_Literal	0x1
033b 00d9       |    |		Load_Top	At_Offset_1
033c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
033d 00d8       |    |		Load_Top	At_Offset_0
033e 00d9       |    |		Load_Top	At_Offset_1
033f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0340 823b       | ;  |		Call	0x1,0x3b
0341 00d1       |    |		Pop_Control	Pop_Count_1
0342 00d8       |    |		Load_Top	At_Offset_0
0343 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0344 0000 0000  |    |		.BLANK	0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 00da       |    |		Load_Top	At_Offset_2
034c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
034d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034e 0000 0000  |    |		.XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035f       | _  |		.CONST	0x035f								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0003       |    |		.CONST	0x0003								; Number of locals
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2
0354 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0355 e239       | 9  |		Load	0x1,0x39
0356 01d7       |    |		Execute	Vector,Field_Read
0357 e237       | 7  |		Load	0x1,0x37
0358 011c       |    |		Execute	Any,Convert_Unchecked
0359 1c01       |    |		Execute_Immediate	Run_Utility,0x1
035a 0092 04b3  |    |		Action	Push_String_Extended,0x4b3					; "=>"
035c 01cc       |    |		Execute	Vector,Catenate
035d 029f 046b  |   k|		Declare_Subprogram	INIT_0468,For_Call
035f			BODY_0350:
035f e5ff       |    |		Load	0x2,-0x1
0360 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0361 e236       | 6  |		Load	0x1,0x36
0362 01d7       |    |		Execute	Vector,Field_Read
0363 6802       |h   |		Jump_Zero	0x366
0364 8403       |    |		Call	0x2,0x3
0365 7807       |x   |		Jump	0x36d
0366 00d9       |    |		Load_Top	At_Offset_1
0367 e5ff       |    |		Load	0x2,-0x1
0368 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0369 e5ff       |    |		Load	0x2,-0x1
036a 823e       | >  |		Call	0x1,0x3e
036b 01cc       |    |		Execute	Vector,Catenate
036c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036d 0831       | 1  |		Execute_Immediate	Raise,0x31
036e 0000 0000  |    |		.XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 00da       |    |		Load_Top	At_Offset_2
0374 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0375 7023       |p#  |		Jump_Nonzero	0x399
0376 00da       |    |		Load_Top	At_Offset_2
0377 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0378 e236       | 6  |		Load	0x1,0x36
0379 01d7       |    |		Execute	Vector,Field_Read
037a 680b       |h   |		Jump_Zero	0x386
037b 00da       |    |		Load_Top	At_Offset_2
037c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
037d 00db       |    |		Load_Top	At_Offset_3
037e 823d       | =  |		Call	0x1,0x3d
037f 7006       |p   |		Jump_Nonzero	0x386
0380 00da       |    |		Load_Top	At_Offset_2
0381 00db       |    |		Load_Top	At_Offset_3
0382 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0383 823c       | <  |		Call	0x1,0x3c
0384 00d1       |    |		Pop_Control	Pop_Count_1
0385 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0386 00da       |    |		Load_Top	At_Offset_2
0387 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0388 0f02       |    |		Execute_Immediate	Equal,0x2
0389 6804       |h   |		Jump_Zero	0x38e
038a 4801       |H   |		Short_Literal	0x1
038b 00db       |    |		Load_Top	At_Offset_3
038c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
038d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
038e e233       | 3  |		Load	0x1,0x33
038f 00db       |    |		Load_Top	At_Offset_3
0390 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0391 0268       | h  |		Execute	Discrete,Successor
0392 00db       |    |		Load_Top	At_Offset_3
0393 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0394 00da       |    |		Load_Top	At_Offset_2
0395 00db       |    |		Load_Top	At_Offset_3
0396 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0397 823b       | ;  |		Call	0x1,0x3b
0398 00d1       |    |		Pop_Control	Pop_Count_1
0399 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
039a 0000 0000  |    |		.BLANK	0000[0x6]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 4607       |F   |		Jump_Case	0x8
03a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03a5 7807       |x   |		Jump	0x3ad								; case 0x1
03a6 780a       |x   |		Jump	0x3b1								; case 0x2
03a7 780e       |x   |		Jump	0x3b6								; case 0x3
03a8 7811       |x   |		Jump	0x3ba								; case 0x4
03a9 7812       |x   |		Jump	0x3bc								; case 0x5
03aa 7813       |x   |		Jump	0x3be								; case 0x6
03ab 7816       |x   |		Jump	0x3c2								; case 0x7
03ac 4302       |C   |		.XXX[0x1]
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 0091 04ac  |    |		Action	Push_String_Extended_Indexed,0x4ac				; "NONE"
03b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 00db       |    |		Load_Top	At_Offset_3
03b3 00e0       |    |		Load_Encached	Standard_Cache
03b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 00e0       |    |		Load_Encached	Standard_Cache
03b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03ba 00db       |    |		Load_Top	At_Offset_3
03bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03be e233       | 3  |		Load	0x1,0x33
03bf 00dc       |    |		Load_Top	At_Offset_4
03c0 0267       | g  |		Execute	Discrete,Predecessor
03c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c2 e233       | 3  |		Load	0x1,0x33
03c3 00dc       |    |		Load_Top	At_Offset_4
03c4 0268       | h  |		Execute	Discrete,Successor
03c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c6 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
03cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03cd 7807       |x   |		Jump	0x3d5								; case 0x1
03ce 780a       |x   |		Jump	0x3d9								; case 0x2
03cf 780e       |x   |		Jump	0x3de								; case 0x3
03d0 7811       |x   |		Jump	0x3e2								; case 0x4
03d1 7812       |x   |		Jump	0x3e4								; case 0x5
03d2 7813       |x   |		Jump	0x3e6								; case 0x6
03d3 7816       |x   |		Jump	0x3ea								; case 0x7
03d4 4302       |C   |		.XXX[0x1]
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 0091 04af  |    |		Action	Push_String_Extended_Indexed,0x4af				; "N"
03d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03d9 00db       |    |		Load_Top	At_Offset_3
03da 00db       |    |		Load_Top	At_Offset_3
03db 00e0       |    |		Load_Encached	Standard_Cache
03dc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03de 00da       |    |		Load_Top	At_Offset_2
03df 00e0       |    |		Load_Encached	Standard_Cache
03e0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03e1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03e2 00db       |    |		Load_Top	At_Offset_3
03e3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e4 00db       |    |		Load_Top	At_Offset_3
03e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e6 e237       | 7  |		Load	0x1,0x37
03e7 00dc       |    |		Load_Top	At_Offset_4
03e8 0267       | g  |		Execute	Discrete,Predecessor
03e9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ea e237       | 7  |		Load	0x1,0x37
03eb 00dc       |    |		Load_Top	At_Offset_4
03ec 0268       | h  |		Execute	Discrete,Successor
03ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ee 0000 0000  |    |		.XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 4602       |F   |		Jump_Case	0x3
03f5 780b       |x   |		Jump	0x401								; case 0x0
03f6 780b       |x   |		Jump	0x402								; case 0x1
03f7 7800       |x   |		Jump	0x3f8								; case 0x2
03f8 00db       |    |		Load_Top	At_Offset_3
03f9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03fa 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
03fb e039       | 9  |		Load	0x0,0x39
03fc e230       | 0  |		Load	0x1,0x30
03fd 0096       |    |		Execute	Package,Entry
03fe e5fe       |    |		Load	0x2,-0x2
03ff 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0400 7807       |x   |		Jump	0x408
0401 0833       | 3  |		Execute_Immediate	Raise,0x33
0402 00db       |    |		Load_Top	At_Offset_3
0403 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0404 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0405 803a       | :  |		Call	0x0,0x3a
0406 e5fe       |    |		Load	0x2,-0x2
0407 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0408 4801       |H   |		Short_Literal	0x1
0409 e5fe       |    |		Load	0x2,-0x2
040a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
040b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
040c 0000 0000  |    |		.BLANK	0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 00da       |    |		Load_Top	At_Offset_2
0414 4602       |F   |		Jump_Case	0x3
0415 7809       |x   |		Jump	0x41f								; case 0x0
0416 7809       |x   |		Jump	0x420								; case 0x1
0417 7800       |x   |		Jump	0x418								; case 0x2
0418 00db       |    |		Load_Top	At_Offset_3
0419 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
041a e03b       | ;  |		Load	0x0,0x3b
041b e230       | 0  |		Load	0x1,0x30
041c 0096       |    |		Execute	Package,Entry
041d 00d1       |    |		Pop_Control	Pop_Count_1
041e 7805       |x   |		Jump	0x424
041f 0833       | 3  |		Execute_Immediate	Raise,0x33
0420 00db       |    |		Load_Top	At_Offset_3
0421 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0422 803c       | <  |		Call	0x0,0x3c
0423 00d1       |    |		Pop_Control	Pop_Count_1
0424 4800       |H   |		Short_Literal	0x0
0425 e5fe       |    |		Load	0x2,-0x2
0426 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0427 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00db       |    |		Load_Top	At_Offset_3
042c 4602       |F   |		Jump_Case	0x3
042d 7808       |x   |		Jump	0x436								; case 0x0
042e 7808       |x   |		Jump	0x437								; case 0x1
042f 7800       |x   |		Jump	0x430								; case 0x2
0430 00da       |    |		Load_Top	At_Offset_2
0431 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0432 e03d       | =  |		Load	0x0,0x3d
0433 e230       | 0  |		Load	0x1,0x30
0434 0096       |    |		Execute	Package,Entry
0435 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0436 0833       | 3  |		Execute_Immediate	Raise,0x33
0437 00da       |    |		Load_Top	At_Offset_2
0438 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0439 803e       | >  |		Call	0x0,0x3e
043a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
043b 0000 0000  |    |		.BLANK	0000[0x5]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00db       |    |		Load_Top	At_Offset_3
0444 00d1       |    |		Pop_Control	Pop_Count_1
0445 0833       | 3  |		Execute_Immediate	Raise,0x33
0446 0000 0000  |    |		.XXX[0x2]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 00db       |    |		Load_Top	At_Offset_3
044c 00db       |    |		Load_Top	At_Offset_3
044d 823d       | =  |		Call	0x1,0x3d
044e 6803       |h   |		Jump_Zero	0x452
044f 0092 04b4  |    |		Action	Push_String_Extended,0x4b4					; ")"
0451 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0452 00db       |    |		Load_Top	At_Offset_3
0453 4602       |F   |		Jump_Case	0x3
0454 7808       |x   |		Jump	0x45d								; case 0x0
0455 7808       |x   |		Jump	0x45e								; case 0x1
0456 7800       |x   |		Jump	0x457								; case 0x2
0457 00da       |    |		Load_Top	At_Offset_2
0458 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0459 e03f       | ?  |		Load	0x0,0x3f
045a e230       | 0  |		Load	0x1,0x30
045b 0096       |    |		Execute	Package,Entry
045c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
045d 0833       | 3  |		Execute_Immediate	Raise,0x33
045e 00da       |    |		Load_Top	At_Offset_2
045f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0460 8040       | @  |		Call	0x0,0x40
0461 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0462 0000 0000  |    |		.BLANK	0000[0x6]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046f       | o  |		.CONST	0x046f								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0002       |    |		.CONST	0x0002								; Number of locals
046b			INIT_0468:
046b e5ff       |    |		Load	0x2,-0x1
046c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
046d e5ff       |    |		Load	0x2,-0x1
046e 823f       | ?  |		Call	0x1,0x3f
046f			BODY_0468:
046f e5ff       |    |		Load	0x2,-0x1
0470 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0471 6808       |h   |		Jump_Zero	0x47a
0472 e402       |    |		Load	0x2,0x2
0473 0092 04b5  |    |		Action	Push_String_Extended,0x4b5					; "("
0475 01cc       |    |		Execute	Vector,Catenate
0476 00d9       |    |		Load_Top	At_Offset_1
0477 01cc       |    |		Execute	Vector,Catenate
0478 00cb       |    |		Action	Pop_Block_With_Result
0479 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047a 00d8       |    |		Load_Top	At_Offset_0
047b 00cb       |    |		Action	Pop_Block_With_Result
047c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047d 0000 0000  |    |		.XXX[0x3]
047f 0000       |    |
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 4601       |F   |		Jump_Case	0x2
0484 7801       |x   |		Jump	0x486								; case 0x0
0485 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0486 00da       |    |		Load_Top	At_Offset_2
0487 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0488 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0489 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
048a 0000 0000  |    |		.BLANK	0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 4601       |F   |		Jump_Case	0x2
0494 7801       |x   |		Jump	0x496								; case 0x0
0495 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0496 00da       |    |		Load_Top	At_Offset_2
0497 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0498 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0499 4800       |H   |		Short_Literal	0x0
049a 00db       |    |		Load_Top	At_Offset_3
049b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
049c 4800       |H   |		Short_Literal	0x0
049d 00db       |    |		Load_Top	At_Offset_3
049e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
049f 4800       |H   |		Short_Literal	0x0
04a0 00db       |    |		Load_Top	At_Offset_3
04a1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04a2 4801       |H   |		Short_Literal	0x1
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
04a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a8 00da       |    |		Load_Top	At_Offset_2
04a9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
04aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04ac ; --------------------------------------------------------------------------------------
04ac ; STRING TABLE
04ac ; --------------------------------------------------------------------------------------
04ac 0016       |    |		.STRTAB	0x0016->0x04b7							; "NONE"
04ad 0018       |    |		.STRTAB	0x0018->0x04b9							; "COVERAGE_SUMMARY"
04ae 0026       | &  |		.STRTAB	0x0026->0x04c1							; "COVERAGE_LIST"
04af 0031       | 1  |		.STRTAB	0x0031->0x04c7							; "N"
04b0 0030       | 0  |		.STRTAB	0x0030->0x04c8							; "CS"
04b1 0030       | 0  |		.STRTAB	0x0030->0x04c9							; "CL"
04b2 0030       | 0  |		.STRTAB	0x0030->0x04ca							; "others => Unspecified"
04b3 0043       | C  |		.STRTAB	0x0043->0x04d4							; "=>"
04b4 0043       | C  |		.STRTAB	0x0043->0x04d5							; ")"
04b5 0042       | B  |		.STRTAB	0x0042->0x04d6							; "("
04b6 0041       | A  |		.STREND 0x0041->0x04d6
04b7 4e4f 4e45  |NONE|		.STRTAB_STRINGS
04d7 0000       |    |		.XXX[0x1]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug Table
04d8 ; --------------------------------------------------------------------------------------
04d8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x4ec9,0x0000,0x0001,0x0000
04de 0000 0000  |    |		.BLANK	0000[0x122]