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

⟦b30e9fbb9⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0318       |    |		.CONST	0x0318								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0068       | h  |		.CONST	0x0068								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4807       |H   |		Short_Literal	0x7
000d 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 0093 02db  |    |		push_full_address	INIT_02d8
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 038f       |    |		Declare_Type	Package,Defined,Visible
0015 00d9       |    |		Load_Top	At_Offset_1
0016 4801       |H   |		Short_Literal	0x1
0017 00da       |    |		Load_Top	At_Offset_2
0018 020e       |    |		Execute	Module,Augment_Imports
0019 0386       |    |		Declare_Variable	Package,Visible
001a 4818       |H   |		Short_Literal	0x18
001b 03cf       |    |		Declare_Type	Access,Incomplete,Visible
001c 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
001e 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0020 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0022 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0024 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0026 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0028 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
002a 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
002c 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
002e 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0030 00c4       |    |		Action	Make_Default
0031 e20d       |    |		Load	0x1,0xd
0032 4802       |H   |		Short_Literal	0x2
0033 e20f       |    |		Load	0x1,0xf
0034 00d8       |    |		Load_Top	At_Offset_0
0035 4801       |H   |		Short_Literal	0x1
0036 00e2       |    |		Load_Encached	Integer_Cache
0037 4801       |H   |		Short_Literal	0x1
0038 e003       |    |		Load	0x0,0x3
0039 4802       |H   |		Short_Literal	0x2
003a 00e3       |    |		Load_Encached	Natural_Cache
003b 00e3       |    |		Load_Encached	Natural_Cache
003c 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
003e 4806       |H   |		Short_Literal	0x6
003f 4800       |H   |		Short_Literal	0x0
0040 4804       |H   |		Short_Literal	0x4
0041 4800       |H   |		Short_Literal	0x0
0042 4801       |H   |		Short_Literal	0x1
0043 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0044 00d8       |    |		Load_Top	At_Offset_0
0045 02a0       |    |		Declare_Subprogram	Null_Subprogram
0046 e20f       |    |		Load	0x1,0xf
0047 03c7       |    |		Complete_Type	Access,By_Defining
0048 4807       |H   |		Short_Literal	0x7
0049 00d9       |    |		Load_Top	At_Offset_1
004a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
004b e20f       |    |		Load	0x1,0xf
004c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
004d 0129       | )  |		Execute	Any,Make_Visible
004e c21a       |    |		Store	0x1,0x1a
004f 00bf       |    |		Action	Accept_Activation
0050 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
005e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 e20e       |    |		Load	0x1,0xe
0067 020f       |    |		Execute	Module,Activate
0068			BODY_0008:
0068 00bc       |    |		Action	Signal_Activated
0069 00bb       |    |		Action	Signal_Completion
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 4607       |F   |		Jump_Case	0x8
0074 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0075 7807       |x   |		Jump	0x7d								; case 0x1
0076 780a       |x   |		Jump	0x81								; case 0x2
0077 780e       |x   |		Jump	0x86								; case 0x3
0078 7811       |x   |		Jump	0x8a								; case 0x4
0079 7812       |x   |		Jump	0x8c								; case 0x5
007a 7813       |x   |		Jump	0x8e								; case 0x6
007b 7816       |x   |		Jump	0x92								; case 0x7
007c 4302       |C   |		.XXX[0x1]
007d 00da       |    |		Load_Top	At_Offset_2
007e 0091 02e2  |    |		Action	Push_String_Extended_Indexed,0x2e2				; "ADD"
0080 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0081 00db       |    |		Load_Top	At_Offset_3
0082 00db       |    |		Load_Top	At_Offset_3
0083 00e0       |    |		Load_Encached	Standard_Cache
0084 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0085 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0086 00da       |    |		Load_Top	At_Offset_2
0087 00e0       |    |		Load_Encached	Standard_Cache
0088 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0089 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
008a 00db       |    |		Load_Top	At_Offset_3
008b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008c 00db       |    |		Load_Top	At_Offset_3
008d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008e e20d       |    |		Load	0x1,0xd
008f 00dc       |    |		Load_Top	At_Offset_4
0090 0267       | g  |		Execute	Discrete,Predecessor
0091 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0092 e20d       |    |		Load	0x1,0xd
0093 00dc       |    |		Load_Top	At_Offset_4
0094 0268       | h  |		Execute	Discrete,Successor
0095 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c 8215       |    |		Call	0x1,0x15
009d e5fd       |    |		Load	0x2,-0x3
009e 8215       |    |		Call	0x1,0x15
009f 0279       | y  |		Execute	Discrete,And
00a0 683c       |h<  |		Jump_Zero	0xdd
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 4603       |F   |		Jump_Case	0x4
00a3 7810       |x   |		Jump	0xb4								; case 0x0
00a4 781c       |x   |		Jump	0xc1								; case 0x1
00a5 7828       |x(  |		Jump	0xce								; case 0x2
00a6 7800       |x   |		Jump	0xa7								; case 0x3
00a7 4803       |H   |		Short_Literal	0x3
00a8 e21b       |    |		Load	0x1,0x1b
00a9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00aa e5fe       |    |		Load	0x2,-0x2
00ab 00d9       |    |		Load_Top	At_Offset_1
00ac 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00ad e5fd       |    |		Load	0x2,-0x3
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00b0 e20f       |    |		Load	0x1,0xf
00b1 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b2 a5fc       |    |		Store_Unchecked	0x2,-0x4
00b3 7826       |x&  |		Jump	0xda
00b4 4800       |H   |		Short_Literal	0x0
00b5 e21b       |    |		Load	0x1,0x1b
00b6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b7 e5fe       |    |		Load	0x2,-0x2
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00ba e5fd       |    |		Load	0x2,-0x3
00bb 00d9       |    |		Load_Top	At_Offset_1
00bc 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00bd e20f       |    |		Load	0x1,0xf
00be 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00bf a5fc       |    |		Store_Unchecked	0x2,-0x4
00c0 7819       |x   |		Jump	0xda
00c1 4801       |H   |		Short_Literal	0x1
00c2 e21b       |    |		Load	0x1,0x1b
00c3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 00d9       |    |		Load_Top	At_Offset_1
00c6 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00c7 e5fd       |    |		Load	0x2,-0x3
00c8 00d9       |    |		Load_Top	At_Offset_1
00c9 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ca e20f       |    |		Load	0x1,0xf
00cb 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00cc a5fc       |    |		Store_Unchecked	0x2,-0x4
00cd 780c       |x   |		Jump	0xda
00ce 4802       |H   |		Short_Literal	0x2
00cf e21b       |    |		Load	0x1,0x1b
00d0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00d1 e5fe       |    |		Load	0x2,-0x2
00d2 00d9       |    |		Load_Top	At_Offset_1
00d3 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00d4 e5fd       |    |		Load	0x2,-0x3
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00d7 e20f       |    |		Load	0x1,0xf
00d8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00d9 a5fc       |    |		Store_Unchecked	0x2,-0x4
00da 4801       |H   |		Short_Literal	0x1
00db a5fb       |    |		Store_Unchecked	0x2,-0x5
00dc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00dd e21a       |    |		Load	0x1,0x1a
00de a5fc       |    |		Store_Unchecked	0x2,-0x4
00df 4800       |H   |		Short_Literal	0x0
00e0 a5fb       |    |		Store_Unchecked	0x2,-0x5
00e1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00e2 0000 0000  |    |		.BLANK	0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4804       |H   |		Short_Literal	0x4
00ec e21b       |    |		Load	0x1,0x1b
00ed 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ee 00db       |    |		Load_Top	At_Offset_3
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00f1 e20f       |    |		Load	0x1,0xf
00f2 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f3 a5fe       |    |		Store_Unchecked	0x2,-0x2
00f4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4805       |H   |		Short_Literal	0x5
00fc e21b       |    |		Load	0x1,0x1b
00fd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00fe 00db       |    |		Load_Top	At_Offset_3
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0101 e20f       |    |		Load	0x1,0xf
0102 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0103 a5fe       |    |		Store_Unchecked	0x2,-0x2
0104 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4806       |H   |		Short_Literal	0x6
010c e21b       |    |		Load	0x1,0x1b
010d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010e 00db       |    |		Load_Top	At_Offset_3
010f 00d9       |    |		Load_Top	At_Offset_1
0110 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0111 e5fe       |    |		Load	0x2,-0x2
0112 00d9       |    |		Load_Top	At_Offset_1
0113 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0114 e20f       |    |		Load	0x1,0xf
0115 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0116 a5fd       |    |		Store_Unchecked	0x2,-0x3
0117 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 0092 02ea  |    |		Action	Push_String_Extended,0x2ea					; "show kind : "
011d 00db       |    |		Load_Top	At_Offset_3
011e 0227       | '  |		Execute	Access,All_Reference
011f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0120 e20d       |    |		Load	0x1,0xd
0121 011c       |    |		Execute	Any,Convert_Unchecked
0122 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0123 01cc       |    |		Execute	Vector,Catenate
0124 e004       |    |		Load	0x0,0x4
0125 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0126 00da       |    |		Load_Top	At_Offset_2
0127 0227       | '  |		Execute	Access,All_Reference
0128 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0129 4607       |F   |		Jump_Case	0x8
012a 780b       |x   |		Jump	0x136								; case 0x0
012b 780a       |x   |		Jump	0x136								; case 0x1
012c 7809       |x   |		Jump	0x136								; case 0x2
012d 7808       |x   |		Jump	0x136								; case 0x3
012e 7821       |x!  |		Jump	0x150								; case 0x4
012f 7828       |x(  |		Jump	0x158								; case 0x5
0130 782e       |x.  |		Jump	0x15f								; case 0x6
0131 7800       |x   |		Jump	0x132								; case 0x7
0132 4801       |H   |		Short_Literal	0x1
0133 e004       |    |		Load	0x0,0x4
0134 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0135 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0136 00da       |    |		Load_Top	At_Offset_2
0137 0227       | '  |		Execute	Access,All_Reference
0138 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0139 8214       |    |		Call	0x1,0x14
013a 0092 02eb  |    |		Action	Push_String_Extended,0x2eb					; " "
013c 00db       |    |		Load_Top	At_Offset_3
013d 0227       | '  |		Execute	Access,All_Reference
013e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013f e20d       |    |		Load	0x1,0xd
0140 011c       |    |		Execute	Any,Convert_Unchecked
0141 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0142 01cc       |    |		Execute	Vector,Catenate
0143 0092 02eb  |    |		Action	Push_String_Extended,0x2eb					; " "
0145 01cc       |    |		Execute	Vector,Catenate
0146 e004       |    |		Load	0x0,0x4
0147 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0148 00da       |    |		Load_Top	At_Offset_2
0149 0227       | '  |		Execute	Access,All_Reference
014a 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
014b 8214       |    |		Call	0x1,0x14
014c 4801       |H   |		Short_Literal	0x1
014d e004       |    |		Load	0x0,0x4
014e 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
014f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0150 00da       |    |		Load_Top	At_Offset_2
0151 0227       | '  |		Execute	Access,All_Reference
0152 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0153 00e0       |    |		Load_Encached	Standard_Cache
0154 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0155 e004       |    |		Load	0x0,0x4
0156 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0157 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0158 00da       |    |		Load_Top	At_Offset_2
0159 0227       | '  |		Execute	Access,All_Reference
015a 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
015b 8005       |    |		Call	0x0,0x5
015c e004       |    |		Load	0x0,0x4
015d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
015e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015f 00da       |    |		Load_Top	At_Offset_2
0160 0227       | '  |		Execute	Access,All_Reference
0161 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0162 00db       |    |		Load_Top	At_Offset_3
0163 0227       | '  |		Execute	Access,All_Reference
0164 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0165 8006       |    |		Call	0x0,0x6
0166 e004       |    |		Load	0x0,0x4
0167 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0168 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0169 0000 0000  |    |		.BLANK	0000[0x7]
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 821c       |    |		Call	0x1,0x1c
0175 0f04       |    |		Execute_Immediate	Equal,0x4
0176 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0177 0000       |    |		.XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 821c       |    |		Call	0x1,0x1c
017d 0f06       |    |		Execute_Immediate	Equal,0x6
017e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185       |    |		.CONST	0x0185								; Address of begin
0181 01d5       |    |		.CONST	0x01d5								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 00e2       |    |		Load_Encached	Integer_Cache
0184 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0185			BODY_0180:
0185 00db       |    |		Load_Top	At_Offset_3
0186 8215       |    |		Call	0x1,0x15
0187 684c       |hL  |		Jump_Zero	0x1d4
0188 00db       |    |		Load_Top	At_Offset_3
0189 0227       | '  |		Execute	Access,All_Reference
018a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018b 4607       |F   |		Jump_Case	0x8
018c 7808       |x   |		Jump	0x195								; case 0x0
018d 7812       |x   |		Jump	0x1a0								; case 0x1
018e 781c       |x   |		Jump	0x1ab								; case 0x2
018f 7826       |x&  |		Jump	0x1b6								; case 0x3
0190 7830       |x0  |		Jump	0x1c1								; case 0x4
0191 7834       |x4  |		Jump	0x1c6								; case 0x5
0192 7801       |x   |		Jump	0x194								; case 0x6
0193 7800       |x   |		Jump	0x194								; case 0x7
0194 08e1       |    |		Execute_Immediate	Raise,0xe1
0195 00db       |    |		Load_Top	At_Offset_3
0196 0227       | '  |		Execute	Access,All_Reference
0197 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0198 8217       |    |		Call	0x1,0x17
0199 e5ff       |    |		Load	0x2,-0x1
019a 0227       | '  |		Execute	Access,All_Reference
019b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
019c 8217       |    |		Call	0x1,0x17
019d 0273       | s  |		Execute	Discrete,Plus
019e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
019f 7832       |x2  |		Jump	0x1d2
01a0 00db       |    |		Load_Top	At_Offset_3
01a1 0227       | '  |		Execute	Access,All_Reference
01a2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01a3 8217       |    |		Call	0x1,0x17
01a4 e5ff       |    |		Load	0x2,-0x1
01a5 0227       | '  |		Execute	Access,All_Reference
01a6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01a7 8217       |    |		Call	0x1,0x17
01a8 0272       | r  |		Execute	Discrete,Minus
01a9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01aa 7827       |x'  |		Jump	0x1d2
01ab 00db       |    |		Load_Top	At_Offset_3
01ac 0227       | '  |		Execute	Access,All_Reference
01ad 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01ae 8217       |    |		Call	0x1,0x17
01af e5ff       |    |		Load	0x2,-0x1
01b0 0227       | '  |		Execute	Access,All_Reference
01b1 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01b2 8217       |    |		Call	0x1,0x17
01b3 0271       | q  |		Execute	Discrete,Times
01b4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01b5 781c       |x   |		Jump	0x1d2
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 0227       | '  |		Execute	Access,All_Reference
01b8 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01b9 8217       |    |		Call	0x1,0x17
01ba e5ff       |    |		Load	0x2,-0x1
01bb 0227       | '  |		Execute	Access,All_Reference
01bc 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01bd 8217       |    |		Call	0x1,0x17
01be 0270       | p  |		Execute	Discrete,Divide
01bf 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01c0 7811       |x   |		Jump	0x1d2
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 0227       | '  |		Execute	Access,All_Reference
01c3 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01c4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01c5 780c       |x   |		Jump	0x1d2
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 0227       | '  |		Execute	Access,All_Reference
01c8 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01c9 8007       |    |		Call	0x0,0x7
01ca 6806       |h   |		Jump_Zero	0x1d1
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 0227       | '  |		Execute	Access,All_Reference
01cd 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01ce 8008       |    |		Call	0x0,0x8
01cf 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01d0 7801       |x   |		Jump	0x1d2
01d1 08e1       |    |		Execute_Immediate	Raise,0xe1
01d2 00d8       |    |		Load_Top	At_Offset_0
01d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d4 08e1       |    |		Execute_Immediate	Raise,0xe1
01d5			TRAP_0180:
01d5 010d       |    |		Execute	Exception,Is_Numeric_Error
01d6 6802       |h   |		Jump_Zero	0x1d9
01d7 4800       |H   |		Short_Literal	0x0
01d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d9 0100       |    |		Execute	Exception,Raise
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e4       |    |		.CONST	0x01e4								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 00e3       |    |		Load_Encached	Natural_Cache
01e4			BODY_01e0:
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 0227       | '  |		Execute	Access,All_Reference
01e6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e7 0f06       |    |		Execute_Immediate	Equal,0x6
01e8 6805       |h   |		Jump_Zero	0x1ee
01e9 00db       |    |		Load_Top	At_Offset_3
01ea 0227       | '  |		Execute	Access,All_Reference
01eb 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
01ec 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01ed 7812       |x   |		Jump	0x200
01ee 00db       |    |		Load_Top	At_Offset_3
01ef 0227       | '  |		Execute	Access,All_Reference
01f0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f1 0f05       |    |		Execute_Immediate	Equal,0x5
01f2 680b       |h   |		Jump_Zero	0x1fe
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 0227       | '  |		Execute	Access,All_Reference
01f5 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01f6 8009       |    |		Call	0x0,0x9
01f7 6806       |h   |		Jump_Zero	0x1fe
01f8 00db       |    |		Load_Top	At_Offset_3
01f9 0227       | '  |		Execute	Access,All_Reference
01fa 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01fb 800a       |    |		Call	0x0,0xa
01fc 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01fd 7802       |x   |		Jump	0x200
01fe 4800       |H   |		Short_Literal	0x0
01ff 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0200 00d8       |    |		Load_Top	At_Offset_0
0201 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020c       |    |		.CONST	0x020c								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b 00e3       |    |		Load_Encached	Natural_Cache
020c			BODY_0208:
020c 00db       |    |		Load_Top	At_Offset_3
020d 0227       | '  |		Execute	Access,All_Reference
020e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020f 0f06       |    |		Execute_Immediate	Equal,0x6
0210 6805       |h   |		Jump_Zero	0x216
0211 00db       |    |		Load_Top	At_Offset_3
0212 0227       | '  |		Execute	Access,All_Reference
0213 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0214 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0215 7812       |x   |		Jump	0x228
0216 00db       |    |		Load_Top	At_Offset_3
0217 0227       | '  |		Execute	Access,All_Reference
0218 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0219 0f05       |    |		Execute_Immediate	Equal,0x5
021a 680b       |h   |		Jump_Zero	0x226
021b 00db       |    |		Load_Top	At_Offset_3
021c 0227       | '  |		Execute	Access,All_Reference
021d 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
021e 8009       |    |		Call	0x0,0x9
021f 6806       |h   |		Jump_Zero	0x226
0220 00db       |    |		Load_Top	At_Offset_3
0221 0227       | '  |		Execute	Access,All_Reference
0222 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0223 800b       |    |		Call	0x0,0xb
0224 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0225 7802       |x   |		Jump	0x228
0226 4800       |H   |		Short_Literal	0x0
0227 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0228 00d8       |    |		Load_Top	At_Offset_0
0229 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022a 0000 0000  |    |		.BLANK	0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235       | 5  |		.CONST	0x0235								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 e20d       |    |		Load	0x1,0xd
0234 0007       |    |		Action	Break_Optional
0235			BODY_0230:
0235 00db       |    |		Load_Top	At_Offset_3
0236 0227       | '  |		Execute	Access,All_Reference
0237 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0238 e20e       |    |		Load	0x1,0xe
0239 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023a 0260       | `  |		Execute	Discrete,In_Type
023b 6806       |h   |		Jump_Zero	0x242
023c 00db       |    |		Load_Top	At_Offset_3
023d 0227       | '  |		Execute	Access,All_Reference
023e 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
023f 821c       |    |		Call	0x1,0x1c
0240 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0241 781c       |x   |		Jump	0x25e
0242 00db       |    |		Load_Top	At_Offset_3
0243 0227       | '  |		Execute	Access,All_Reference
0244 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0245 0f05       |    |		Execute_Immediate	Equal,0x5
0246 6813       |h   |		Jump_Zero	0x25a
0247 00db       |    |		Load_Top	At_Offset_3
0248 0227       | '  |		Execute	Access,All_Reference
0249 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
024a 8007       |    |		Call	0x0,0x7
024b 6803       |h   |		Jump_Zero	0x24f
024c 4804       |H   |		Short_Literal	0x4
024d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
024e 780f       |x   |		Jump	0x25e
024f 00db       |    |		Load_Top	At_Offset_3
0250 0227       | '  |		Execute	Access,All_Reference
0251 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0252 8009       |    |		Call	0x0,0x9
0253 6803       |h   |		Jump_Zero	0x257
0254 4806       |H   |		Short_Literal	0x6
0255 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0256 7807       |x   |		Jump	0x25e
0257 4807       |H   |		Short_Literal	0x7
0258 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0259 7804       |x   |		Jump	0x25e
025a 00db       |    |		Load_Top	At_Offset_3
025b 0227       | '  |		Execute	Access,All_Reference
025c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
025d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
025e 00d8       |    |		Load_Top	At_Offset_0
025f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 4609       |F   |		Jump_Case	0xa
0264 7809       |x   |		Jump	0x26e								; case 0x0
0265 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0266 782e       |x.  |		Jump	0x295								; case 0x2
0267 7831       |x1  |		Jump	0x299								; case 0x3
0268 786c       |xl  |		Jump	0x2d5								; case 0x4
0269 786b       |xk  |		Jump	0x2d5								; case 0x5
026a 7834       |x4  |		Jump	0x29f								; case 0x6
026b 7847       |xG  |		Jump	0x2b3								; case 0x7
026c 785d       |x]  |		Jump	0x2ca								; case 0x8
026d 7863       |xc  |		Jump	0x2d1								; case 0x9
026e 00da       |    |		Load_Top	At_Offset_2
026f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0270 7009       |p   |		Jump_Nonzero	0x27a
0271 00cf       |    |		Action	Mark_Auxiliary
0272 4807       |H   |		Short_Literal	0x7
0273 e5ff       |    |		Load	0x2,-0x1
0274 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0275 00d8       |    |		Load_Top	At_Offset_0
0276 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0277 c5ff       |    |		Store	0x2,-0x1
0278 00ce       |    |		Action	Pop_Auxiliary
0279 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
027a 00da       |    |		Load_Top	At_Offset_2
027b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
027c 4607       |F   |		Jump_Case	0x8
027d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
027e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
027f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0280 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0281 7804       |x   |		Jump	0x286								; case 0x4
0282 7807       |x   |		Jump	0x28a								; case 0x5
0283 780a       |x   |		Jump	0x28e								; case 0x6
0284 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0285 4302       |C   |		.XXX[0x1]
0286 4800       |H   |		Short_Literal	0x0
0287 00db       |    |		Load_Top	At_Offset_3
0288 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0289 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
028a e002       |    |		Load	0x0,0x2
028b 00db       |    |		Load_Top	At_Offset_3
028c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
028d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
028e 4800       |H   |		Short_Literal	0x0
028f 00db       |    |		Load_Top	At_Offset_3
0290 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0291 4800       |H   |		Short_Literal	0x0
0292 00db       |    |		Load_Top	At_Offset_3
0293 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0294 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0295 4801       |H   |		Short_Literal	0x1
0296 4807       |H   |		Short_Literal	0x7
0297 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0298 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0299 e5fd       |    |		Load	0x2,-0x3
029a 00db       |    |		Load_Top	At_Offset_3
029b 1c07       |    |		Execute_Immediate	Run_Utility,0x7
029c e5fe       |    |		Load	0x2,-0x2
029d 0306       |    |		Complete_Type	Variant_Record,By_Renaming
029e 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
029f 00db       |    |		Load_Top	At_Offset_3
02a0 4607       |F   |		Jump_Case	0x8
02a1 7809       |x   |		Jump	0x2ab								; case 0x0
02a2 7808       |x   |		Jump	0x2ab								; case 0x1
02a3 7807       |x   |		Jump	0x2ab								; case 0x2
02a4 7806       |x   |		Jump	0x2ab								; case 0x3
02a5 7807       |x   |		Jump	0x2ad								; case 0x4
02a6 7808       |x   |		Jump	0x2af								; case 0x5
02a7 7809       |x   |		Jump	0x2b1								; case 0x6
02a8 7800       |x   |		Jump	0x2a9								; case 0x7
02a9 48ff       |H   |		Short_Literal	0xff
02aa 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ab 4801       |H   |		Short_Literal	0x1
02ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ad 4802       |H   |		Short_Literal	0x2
02ae 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02af 4803       |H   |		Short_Literal	0x3
02b0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b1 4804       |H   |		Short_Literal	0x4
02b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 4607       |F   |		Jump_Case	0x8
02b6 7809       |x   |		Jump	0x2c0								; case 0x0
02b7 7808       |x   |		Jump	0x2c0								; case 0x1
02b8 7807       |x   |		Jump	0x2c0								; case 0x2
02b9 7806       |x   |		Jump	0x2c0								; case 0x3
02ba 7807       |x   |		Jump	0x2c2								; case 0x4
02bb 7808       |x   |		Jump	0x2c4								; case 0x5
02bc 7809       |x   |		Jump	0x2c6								; case 0x6
02bd 7800       |x   |		Jump	0x2be								; case 0x7
02be 48ff       |H   |		Short_Literal	0xff
02bf 7807       |x   |		Jump	0x2c7
02c0 4801       |H   |		Short_Literal	0x1
02c1 7805       |x   |		Jump	0x2c7
02c2 4802       |H   |		Short_Literal	0x2
02c3 7803       |x   |		Jump	0x2c7
02c4 4803       |H   |		Short_Literal	0x3
02c5 7801       |x   |		Jump	0x2c7
02c6 4804       |H   |		Short_Literal	0x4
02c7 e5ff       |    |		Load	0x2,-0x1
02c8 031b       |    |		Declare_Type	Variant_Record,Constrained
02c9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ca 00db       |    |		Load_Top	At_Offset_3
02cb e5fe       |    |		Load	0x2,-0x2
02cc e5ff       |    |		Load	0x2,-0x1
02cd 1c06       |    |		Execute_Immediate	Run_Utility,0x6
02ce e5ff       |    |		Load	0x2,-0x1
02cf 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02d0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02d1 4807       |H   |		Short_Literal	0x7
02d2 00db       |    |		Load_Top	At_Offset_3
02d3 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02d4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02d5 0869       | i  |		Execute_Immediate	Raise,0x69
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e0       |    |		.CONST	0x02e0								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 000d       |    |		.CONST	0x000d								; Number of locals
02db			INIT_02d8:
02db 4800       |H   |		Short_Literal	0x0
02dc 4803       |H   |		Short_Literal	0x3
02dd e001       |    |		Load	0x0,0x1
02de 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
02df 00bf       |    |		Action	Accept_Activation
02e0			BODY_02d8:
02e0 00bc       |    |		Action	Signal_Activated
02e1 00bb       |    |		Action	Signal_Completion
02e2 ; --------------------------------------------------------------------------------------
02e2 ; STRING TABLE
02e2 ; --------------------------------------------------------------------------------------
02e2 0016       |    |		.STRTAB	0x0016->0x02ed							; "ADD"
02e3 0017       |    |		.STRTAB	0x0017->0x02ee							; "SUBSTRACT"
02e4 001e       |    |		.STRTAB	0x001e->0x02f3							; "MULTIPLY"
02e5 0024       | $  |		.STRTAB	0x0024->0x02f7							; "DIVIDE"
02e6 0028       | (  |		.STRTAB	0x0028->0x02fa							; "NUMBER"
02e7 002c       | ,  |		.STRTAB	0x002c->0x02fd							; "SINGLE_ATTRIBUTE"
02e8 003a       | :  |		.STRTAB	0x003a->0x0305							; "ENUMERATE"
02e9 0041       | A  |		.STRTAB	0x0041->0x0309							; "UNKNOWN"
02ea 0046       | F  |		.STRTAB	0x0046->0x030d							; "show kind : "
02eb 0050       | P  |		.STRTAB	0x0050->0x0313							; " "
02ec 004f       | O  |		.STREND 0x004f->0x0313
02ed 4144 4453  |ADDS|		.STRTAB_STRINGS
0314 0000 0000  |    |		.BLANK	0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x5a1a,0x0000,0x0001,0x0010
031e 000b 035e  |   ^|		.DBG4T	0x000b,0x035e,0x8000,0x0000
0322 0050 0371  | P q|		.DBG4T	0x0050,0x0371,0x8000,0x0000
0326 0073 0000  | s  |		.DBG4T	0x0073,0x0000,0x0005,0x0000
032a 009b 037e  |   ~|		.DBG4T	0x009b,0x037e,0x0001,0x4000
032e 00eb 0392  |    |		.DBG4T	0x00eb,0x0392,0x0001,0x0000
0332 00fb 0395  |    |		.DBG4T	0x00fb,0x0395,0x0001,0x0000
0336 010b 0398  |    |		.DBG4T	0x010b,0x0398,0x0001,0x0000
033a 011b 039b  |    |		.DBG4T	0x011b,0x039b,0x0001,0x4000
033e 0173 03b1  | s  |		.DBG4T	0x0173,0x03b1,0x0002,0x0000
0342 017b 03b4  | {  |		.DBG4T	0x017b,0x03b4,0x0002,0x0000
0346 0183 03b7  |    |		.DBG4T	0x0183,0x03b7,0x0002,0x4000
034a 01e3 03d6  |    |		.DBG4T	0x01e3,0x03d6,0x0002,0x0000
034e 020b 03df  |    |		.DBG4T	0x020b,0x03df,0x0002,0x0000
0352 0233 03e8  | 3  |		.DBG4T	0x0233,0x03e8,0x0002,0x0000
0356 0263 0000  | c  |		.DBG4T	0x0263,0x0000,0x0005,0x0000
035a 02db 03f5  |    |		.DBG4T	0x02db,0x03f5,0x0000,0x0000
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 0011 0000  |    |		.DBGLEN	0x0011,0x0000
0360 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0031,0x0044,0x0048
0371 ; --------------------------------------------------------------------------------------
0371 ; Debug chain
0371 ; --------------------------------------------------------------------------------------
0371 000b 0000  |    |		.DBGLEN	0x000b,0x0000
0373 0050 0052  | P R|		.DBGLNO	0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064
037e ; --------------------------------------------------------------------------------------
037e ; Debug chain
037e ; --------------------------------------------------------------------------------------
037e 0000 0009  |    |		.DBGLEN	0x0000,0x0009
0380 009b 00a1  |    |		.DBGLNO	0x009b,0x00a1,0x00a7,0x00b4,0x00c1,0x00ce,0x00da,0x00dd,0x00df
0389 0001 0002  |    |		.XXX[0x9]
038b 0006 0003  |    |
038d 0004 0005  |    |
038f 0007 0008  |    |
0391 0009       |    |
0392 ; --------------------------------------------------------------------------------------
0392 ; Debug chain
0392 ; --------------------------------------------------------------------------------------
0392 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0394 00eb       |    |		.DBGLNO	0x00eb
0395 ; --------------------------------------------------------------------------------------
0395 ; Debug chain
0395 ; --------------------------------------------------------------------------------------
0395 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0397 00fb       |    |		.DBGLNO	0x00fb
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug chain
0398 ; --------------------------------------------------------------------------------------
0398 0000 0001  |    |		.DBGLEN	0x0000,0x0001
039a 010b       |    |		.DBGLNO	0x010b
039b ; --------------------------------------------------------------------------------------
039b ; Debug chain
039b ; --------------------------------------------------------------------------------------
039b 0000 000a  |    |		.DBGLEN	0x0000,0x000a
039d 011b 0126  |   &|		.DBGLNO	0x011b,0x0126,0x0132,0x0136,0x013a,0x0148,0x014c,0x0150,0x0158,0x015f
03a7 0001 0002  |    |		.XXX[0xa]
03a9 000a 0003  |    |
03ab 0004 0005  |    |
03ad 0006 0007  |    |
03af 0008 0009  |    |
03b1 ; --------------------------------------------------------------------------------------
03b1 ; Debug chain
03b1 ; --------------------------------------------------------------------------------------
03b1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b3 0173       | s  |		.DBGLNO	0x0173
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug chain
03b4 ; --------------------------------------------------------------------------------------
03b4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b6 017b       | {  |		.DBGLNO	0x017b
03b7 ; --------------------------------------------------------------------------------------
03b7 ; Debug chain
03b7 ; --------------------------------------------------------------------------------------
03b7 0001 000e  |    |		.DBGLEN	0x0001,0x000e
03b9 0183 0185  |    |		.DBGLNO	0x0183,0x0185,0x0188,0x0194,0x0195,0x01a0,0x01ab,0x01b6,0x01c1,0x01c6,0x01cb,0x01d1,0x01d2,0x01d4,0x01d7
03c8 0001 0002  |    |		.XXX[0xe]
03ca 000b 0003  |    |
03cc 0004 0005  |    |
03ce 0006 0007  |    |
03d0 0008 0009  |    |
03d2 000a 000c  |    |
03d4 000d 000e  |    |
03d6 ; --------------------------------------------------------------------------------------
03d6 ; Debug chain
03d6 ; --------------------------------------------------------------------------------------
03d6 0001 0006  |    |		.DBGLEN	0x0001,0x0006
03d8 01e3 01e4  |    |		.DBGLNO	0x01e3,0x01e4,0x01e9,0x01ee,0x01f8,0x01fe,0x0200
03df ; --------------------------------------------------------------------------------------
03df ; Debug chain
03df ; --------------------------------------------------------------------------------------
03df 0001 0006  |    |		.DBGLEN	0x0001,0x0006
03e1 020b 020c  |    |		.DBGLNO	0x020b,0x020c,0x0211,0x0216,0x0220,0x0226,0x0228
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug chain
03e8 ; --------------------------------------------------------------------------------------
03e8 0001 000a  |    |		.DBGLEN	0x0001,0x000a
03ea 0233 0235  | 3 5|		.DBGLNO	0x0233,0x0235,0x023c,0x0242,0x0247,0x024c,0x024f,0x0254,0x0257,0x025a,0x025e
03f5 ; --------------------------------------------------------------------------------------
03f5 ; Debug chain
03f5 ; --------------------------------------------------------------------------------------
03f5 0001 0000  |    |		.DBGLEN	0x0001,0x0000
03f7 02db       |    |		.DBGLNO	0x02db
03f8 0000 0000  |    |		.BLANK	0000[0x8]