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

⟦4abd54fd5⟧

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

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 02f8       |    |		.CONST	0x02f8								; 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 0060       | `  |		.CONST	0x0060								; 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 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4803       |H   |		Short_Literal	0x3
0012 00da       |    |		Load_Top	At_Offset_2
0013 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0014 4818       |H   |		Short_Literal	0x18
0015 03cf       |    |		Declare_Type	Access,Incomplete,Visible
0016 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0018 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001a 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
001c 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001e 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0020 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0022 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0024 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0026 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0028 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002a 00c4       |    |		Action	Make_Default
002b e20d       |    |		Load	0x1,0xd
002c 4802       |H   |		Short_Literal	0x2
002d e20f       |    |		Load	0x1,0xf
002e 00d8       |    |		Load_Top	At_Offset_0
002f 4801       |H   |		Short_Literal	0x1
0030 00e2       |    |		Load_Encached	Integer_Cache
0031 4801       |H   |		Short_Literal	0x1
0032 e003       |    |		Load	0x0,0x3
0033 4802       |H   |		Short_Literal	0x2
0034 00e3       |    |		Load_Encached	Natural_Cache
0035 00e3       |    |		Load_Encached	Natural_Cache
0036 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
0038 4806       |H   |		Short_Literal	0x6
0039 4800       |H   |		Short_Literal	0x0
003a 4804       |H   |		Short_Literal	0x4
003b 4800       |H   |		Short_Literal	0x0
003c 4801       |H   |		Short_Literal	0x1
003d 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
003e 00d8       |    |		Load_Top	At_Offset_0
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 e20f       |    |		Load	0x1,0xf
0041 03c7       |    |		Complete_Type	Access,By_Defining
0042 4807       |H   |		Short_Literal	0x7
0043 00d9       |    |		Load_Top	At_Offset_1
0044 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0045 e20f       |    |		Load	0x1,0xf
0046 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0047 0129       | )  |		Execute	Any,Make_Visible
0048 c21a       |    |		Store	0x1,0x1a
0049 00bf       |    |		Action	Accept_Activation
004a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call
0058 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005f 00c7       |    |		Action	Elaborate_Subprogram
0060			BODY_0008:
0060 00bc       |    |		Action	Signal_Activated
0061 00bb       |    |		Action	Signal_Completion
0062 0000 0000  |    |		.BLANK	0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4607       |F   |		Jump_Case	0x8
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
006d 7807       |x   |		Jump	0x75								; case 0x1
006e 780a       |x   |		Jump	0x79								; case 0x2
006f 780e       |x   |		Jump	0x7e								; case 0x3
0070 7811       |x   |		Jump	0x82								; case 0x4
0071 7812       |x   |		Jump	0x84								; case 0x5
0072 7813       |x   |		Jump	0x86								; case 0x6
0073 7816       |x   |		Jump	0x8a								; case 0x7
0074 4302       |C   |		.XXX[0x1]
0075 00da       |    |		Load_Top	At_Offset_2
0076 0091 02c6  |    |		Action	Push_String_Extended_Indexed,0x2c6				; "ADD"
0078 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0079 00db       |    |		Load_Top	At_Offset_3
007a 00db       |    |		Load_Top	At_Offset_3
007b 00e0       |    |		Load_Encached	Standard_Cache
007c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
007d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007e 00da       |    |		Load_Top	At_Offset_2
007f 00e0       |    |		Load_Encached	Standard_Cache
0080 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0081 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0082 00db       |    |		Load_Top	At_Offset_3
0083 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0084 00db       |    |		Load_Top	At_Offset_3
0085 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0086 e20d       |    |		Load	0x1,0xd
0087 00dc       |    |		Load_Top	At_Offset_4
0088 0267       | g  |		Execute	Discrete,Predecessor
0089 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008a e20d       |    |		Load	0x1,0xd
008b 00dc       |    |		Load_Top	At_Offset_4
008c 0268       | h  |		Execute	Discrete,Successor
008d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00db       |    |		Load_Top	At_Offset_3
0094 8215       |    |		Call	0x1,0x15
0095 e5fd       |    |		Load	0x2,-0x3
0096 8215       |    |		Call	0x1,0x15
0097 0279       | y  |		Execute	Discrete,And
0098 683c       |h<  |		Jump_Zero	0xd5
0099 00da       |    |		Load_Top	At_Offset_2
009a 4603       |F   |		Jump_Case	0x4
009b 7810       |x   |		Jump	0xac								; case 0x0
009c 781c       |x   |		Jump	0xb9								; case 0x1
009d 7828       |x(  |		Jump	0xc6								; case 0x2
009e 7800       |x   |		Jump	0x9f								; case 0x3
009f 4803       |H   |		Short_Literal	0x3
00a0 e21b       |    |		Load	0x1,0x1b
00a1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a2 e5fe       |    |		Load	0x2,-0x2
00a3 00d9       |    |		Load_Top	At_Offset_1
00a4 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00a5 e5fd       |    |		Load	0x2,-0x3
00a6 00d9       |    |		Load_Top	At_Offset_1
00a7 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00a8 e20f       |    |		Load	0x1,0xf
00a9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00aa a5fc       |    |		Store_Unchecked	0x2,-0x4
00ab 7826       |x&  |		Jump	0xd2
00ac 4800       |H   |		Short_Literal	0x0
00ad e21b       |    |		Load	0x1,0x1b
00ae 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00af e5fe       |    |		Load	0x2,-0x2
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00b2 e5fd       |    |		Load	0x2,-0x3
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00b5 e20f       |    |		Load	0x1,0xf
00b6 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b7 a5fc       |    |		Store_Unchecked	0x2,-0x4
00b8 7819       |x   |		Jump	0xd2
00b9 4801       |H   |		Short_Literal	0x1
00ba e21b       |    |		Load	0x1,0x1b
00bb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00bc e5fe       |    |		Load	0x2,-0x2
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00bf e5fd       |    |		Load	0x2,-0x3
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00c2 e20f       |    |		Load	0x1,0xf
00c3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00c4 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c5 780c       |x   |		Jump	0xd2
00c6 4802       |H   |		Short_Literal	0x2
00c7 e21b       |    |		Load	0x1,0x1b
00c8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c9 e5fe       |    |		Load	0x2,-0x2
00ca 00d9       |    |		Load_Top	At_Offset_1
00cb 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00cc e5fd       |    |		Load	0x2,-0x3
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00cf e20f       |    |		Load	0x1,0xf
00d0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00d1 a5fc       |    |		Store_Unchecked	0x2,-0x4
00d2 4801       |H   |		Short_Literal	0x1
00d3 a5fb       |    |		Store_Unchecked	0x2,-0x5
00d4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00d5 e21a       |    |		Load	0x1,0x1a
00d6 a5fc       |    |		Store_Unchecked	0x2,-0x4
00d7 4800       |H   |		Short_Literal	0x0
00d8 a5fb       |    |		Store_Unchecked	0x2,-0x5
00d9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00da 0000 0000  |    |		.BLANK	0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4804       |H   |		Short_Literal	0x4
00e4 e21b       |    |		Load	0x1,0x1b
00e5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00e6 00db       |    |		Load_Top	At_Offset_3
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00e9 e20f       |    |		Load	0x1,0xf
00ea 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00eb a5fe       |    |		Store_Unchecked	0x2,-0x2
00ec 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 4805       |H   |		Short_Literal	0x5
00f4 e21b       |    |		Load	0x1,0x1b
00f5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f6 00db       |    |		Load_Top	At_Offset_3
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00f9 e20f       |    |		Load	0x1,0xf
00fa 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00fb a5fe       |    |		Store_Unchecked	0x2,-0x2
00fc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4806       |H   |		Short_Literal	0x6
0104 e21b       |    |		Load	0x1,0x1b
0105 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0106 00db       |    |		Load_Top	At_Offset_3
0107 00d9       |    |		Load_Top	At_Offset_1
0108 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0109 e5fe       |    |		Load	0x2,-0x2
010a 00d9       |    |		Load_Top	At_Offset_1
010b 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
010c e20f       |    |		Load	0x1,0xf
010d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
010e a5fd       |    |		Store_Unchecked	0x2,-0x3
010f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 0092 02ce  |    |		Action	Push_String_Extended,0x2ce					; "show kind : "
0115 00db       |    |		Load_Top	At_Offset_3
0116 0227       | '  |		Execute	Access,All_Reference
0117 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0118 e20d       |    |		Load	0x1,0xd
0119 011c       |    |		Execute	Any,Convert_Unchecked
011a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
011b 01cc       |    |		Execute	Vector,Catenate
011c e004       |    |		Load	0x0,0x4
011d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
011e 00da       |    |		Load_Top	At_Offset_2
011f 0227       | '  |		Execute	Access,All_Reference
0120 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0121 4607       |F   |		Jump_Case	0x8
0122 780b       |x   |		Jump	0x12e								; case 0x0
0123 780a       |x   |		Jump	0x12e								; case 0x1
0124 7809       |x   |		Jump	0x12e								; case 0x2
0125 7808       |x   |		Jump	0x12e								; case 0x3
0126 7821       |x!  |		Jump	0x148								; case 0x4
0127 7828       |x(  |		Jump	0x150								; case 0x5
0128 782e       |x.  |		Jump	0x157								; case 0x6
0129 7800       |x   |		Jump	0x12a								; case 0x7
012a 4801       |H   |		Short_Literal	0x1
012b e004       |    |		Load	0x0,0x4
012c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
012d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
012e 00da       |    |		Load_Top	At_Offset_2
012f 0227       | '  |		Execute	Access,All_Reference
0130 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0131 8214       |    |		Call	0x1,0x14
0132 0092 02cf  |    |		Action	Push_String_Extended,0x2cf					; " "
0134 00db       |    |		Load_Top	At_Offset_3
0135 0227       | '  |		Execute	Access,All_Reference
0136 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0137 e20d       |    |		Load	0x1,0xd
0138 011c       |    |		Execute	Any,Convert_Unchecked
0139 1c01       |    |		Execute_Immediate	Run_Utility,0x1
013a 01cc       |    |		Execute	Vector,Catenate
013b 0092 02cf  |    |		Action	Push_String_Extended,0x2cf					; " "
013d 01cc       |    |		Execute	Vector,Catenate
013e e004       |    |		Load	0x0,0x4
013f 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0140 00da       |    |		Load_Top	At_Offset_2
0141 0227       | '  |		Execute	Access,All_Reference
0142 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0143 8214       |    |		Call	0x1,0x14
0144 4801       |H   |		Short_Literal	0x1
0145 e004       |    |		Load	0x0,0x4
0146 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0147 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0148 00da       |    |		Load_Top	At_Offset_2
0149 0227       | '  |		Execute	Access,All_Reference
014a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
014b 00e0       |    |		Load_Encached	Standard_Cache
014c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
014d e004       |    |		Load	0x0,0x4
014e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
014f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0150 00da       |    |		Load_Top	At_Offset_2
0151 0227       | '  |		Execute	Access,All_Reference
0152 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0153 8005       |    |		Call	0x0,0x5
0154 e004       |    |		Load	0x0,0x4
0155 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0156 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0157 00da       |    |		Load_Top	At_Offset_2
0158 0227       | '  |		Execute	Access,All_Reference
0159 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
015a 8006       |    |		Call	0x0,0x6
015b e004       |    |		Load	0x0,0x4
015c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
015d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 821c       |    |		Call	0x1,0x1c
0165 0f04       |    |		Execute_Immediate	Equal,0x4
0166 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 821c       |    |		Call	0x1,0x1c
016d 0f06       |    |		Execute_Immediate	Equal,0x6
016e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016f 0000       |    |		.XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 01c5       |    |		.CONST	0x01c5								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 00e2       |    |		Load_Encached	Integer_Cache
0174 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0175			BODY_0170:
0175 00db       |    |		Load_Top	At_Offset_3
0176 8215       |    |		Call	0x1,0x15
0177 684c       |hL  |		Jump_Zero	0x1c4
0178 00db       |    |		Load_Top	At_Offset_3
0179 0227       | '  |		Execute	Access,All_Reference
017a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
017b 4607       |F   |		Jump_Case	0x8
017c 7808       |x   |		Jump	0x185								; case 0x0
017d 7812       |x   |		Jump	0x190								; case 0x1
017e 781c       |x   |		Jump	0x19b								; case 0x2
017f 7826       |x&  |		Jump	0x1a6								; case 0x3
0180 7830       |x0  |		Jump	0x1b1								; case 0x4
0181 7834       |x4  |		Jump	0x1b6								; case 0x5
0182 7801       |x   |		Jump	0x184								; case 0x6
0183 7800       |x   |		Jump	0x184								; case 0x7
0184 08e1       |    |		Execute_Immediate	Raise,0xe1
0185 00db       |    |		Load_Top	At_Offset_3
0186 0227       | '  |		Execute	Access,All_Reference
0187 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0188 8217       |    |		Call	0x1,0x17
0189 e5ff       |    |		Load	0x2,-0x1
018a 0227       | '  |		Execute	Access,All_Reference
018b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
018c 8217       |    |		Call	0x1,0x17
018d 0273       | s  |		Execute	Discrete,Plus
018e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
018f 7832       |x2  |		Jump	0x1c2
0190 00db       |    |		Load_Top	At_Offset_3
0191 0227       | '  |		Execute	Access,All_Reference
0192 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0193 8217       |    |		Call	0x1,0x17
0194 e5ff       |    |		Load	0x2,-0x1
0195 0227       | '  |		Execute	Access,All_Reference
0196 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0197 8217       |    |		Call	0x1,0x17
0198 0272       | r  |		Execute	Discrete,Minus
0199 0059       | Y  |		Store_Top	Discrete,At_Offset_1
019a 7827       |x'  |		Jump	0x1c2
019b 00db       |    |		Load_Top	At_Offset_3
019c 0227       | '  |		Execute	Access,All_Reference
019d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
019e 8217       |    |		Call	0x1,0x17
019f e5ff       |    |		Load	0x2,-0x1
01a0 0227       | '  |		Execute	Access,All_Reference
01a1 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01a2 8217       |    |		Call	0x1,0x17
01a3 0271       | q  |		Execute	Discrete,Times
01a4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01a5 781c       |x   |		Jump	0x1c2
01a6 00db       |    |		Load_Top	At_Offset_3
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01a9 8217       |    |		Call	0x1,0x17
01aa e5ff       |    |		Load	0x2,-0x1
01ab 0227       | '  |		Execute	Access,All_Reference
01ac 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01ad 8217       |    |		Call	0x1,0x17
01ae 0270       | p  |		Execute	Discrete,Divide
01af 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01b0 7811       |x   |		Jump	0x1c2
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 0227       | '  |		Execute	Access,All_Reference
01b3 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01b4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01b5 780c       |x   |		Jump	0x1c2
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 0227       | '  |		Execute	Access,All_Reference
01b8 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01b9 8007       |    |		Call	0x0,0x7
01ba 6806       |h   |		Jump_Zero	0x1c1
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 0227       | '  |		Execute	Access,All_Reference
01bd 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01be 8008       |    |		Call	0x0,0x8
01bf 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01c0 7801       |x   |		Jump	0x1c2
01c1 08e1       |    |		Execute_Immediate	Raise,0xe1
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c4 08e1       |    |		Execute_Immediate	Raise,0xe1
01c5			TRAP_0170:
01c5 010d       |    |		Execute	Exception,Is_Numeric_Error
01c6 6802       |h   |		Jump_Zero	0x1c9
01c7 4800       |H   |		Short_Literal	0x0
01c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c9 0100       |    |		Execute	Exception,Raise
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d4       |    |		.CONST	0x01d4								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 00e3       |    |		Load_Encached	Natural_Cache
01d4			BODY_01d0:
01d4 00db       |    |		Load_Top	At_Offset_3
01d5 0227       | '  |		Execute	Access,All_Reference
01d6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d7 0f06       |    |		Execute_Immediate	Equal,0x6
01d8 6805       |h   |		Jump_Zero	0x1de
01d9 00db       |    |		Load_Top	At_Offset_3
01da 0227       | '  |		Execute	Access,All_Reference
01db 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
01dc 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01dd 7812       |x   |		Jump	0x1f0
01de 00db       |    |		Load_Top	At_Offset_3
01df 0227       | '  |		Execute	Access,All_Reference
01e0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e1 0f05       |    |		Execute_Immediate	Equal,0x5
01e2 680b       |h   |		Jump_Zero	0x1ee
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 0227       | '  |		Execute	Access,All_Reference
01e5 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01e6 8009       |    |		Call	0x0,0x9
01e7 6806       |h   |		Jump_Zero	0x1ee
01e8 00db       |    |		Load_Top	At_Offset_3
01e9 0227       | '  |		Execute	Access,All_Reference
01ea 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01eb 800a       |    |		Call	0x0,0xa
01ec 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01ed 7802       |x   |		Jump	0x1f0
01ee 4800       |H   |		Short_Literal	0x0
01ef 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01f0 00d8       |    |		Load_Top	At_Offset_0
01f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f2 0000 0000  |    |		.BLANK	0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fc       |    |		.CONST	0x01fc								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb 00e3       |    |		Load_Encached	Natural_Cache
01fc			BODY_01f8:
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 0227       | '  |		Execute	Access,All_Reference
01fe 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ff 0f06       |    |		Execute_Immediate	Equal,0x6
0200 6805       |h   |		Jump_Zero	0x206
0201 00db       |    |		Load_Top	At_Offset_3
0202 0227       | '  |		Execute	Access,All_Reference
0203 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0204 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0205 7812       |x   |		Jump	0x218
0206 00db       |    |		Load_Top	At_Offset_3
0207 0227       | '  |		Execute	Access,All_Reference
0208 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0209 0f05       |    |		Execute_Immediate	Equal,0x5
020a 680b       |h   |		Jump_Zero	0x216
020b 00db       |    |		Load_Top	At_Offset_3
020c 0227       | '  |		Execute	Access,All_Reference
020d 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
020e 8009       |    |		Call	0x0,0x9
020f 6806       |h   |		Jump_Zero	0x216
0210 00db       |    |		Load_Top	At_Offset_3
0211 0227       | '  |		Execute	Access,All_Reference
0212 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0213 800b       |    |		Call	0x0,0xb
0214 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0215 7802       |x   |		Jump	0x218
0216 4800       |H   |		Short_Literal	0x0
0217 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0218 00d8       |    |		Load_Top	At_Offset_0
0219 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021a 0000 0000  |    |		.BLANK	0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225       | %  |		.CONST	0x0225								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0002       |    |		.CONST	0x0002								; Number of locals
0223			INIT_0220:
0223 e20d       |    |		Load	0x1,0xd
0224 0007       |    |		Action	Break_Optional
0225			BODY_0220:
0225 00db       |    |		Load_Top	At_Offset_3
0226 0227       | '  |		Execute	Access,All_Reference
0227 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0228 e20e       |    |		Load	0x1,0xe
0229 0260       | `  |		Execute	Discrete,In_Type
022a 6806       |h   |		Jump_Zero	0x231
022b 00db       |    |		Load_Top	At_Offset_3
022c 0227       | '  |		Execute	Access,All_Reference
022d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
022e 821c       |    |		Call	0x1,0x1c
022f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0230 781c       |x   |		Jump	0x24d
0231 00db       |    |		Load_Top	At_Offset_3
0232 0227       | '  |		Execute	Access,All_Reference
0233 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0234 0f05       |    |		Execute_Immediate	Equal,0x5
0235 6813       |h   |		Jump_Zero	0x249
0236 00db       |    |		Load_Top	At_Offset_3
0237 0227       | '  |		Execute	Access,All_Reference
0238 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0239 8007       |    |		Call	0x0,0x7
023a 6803       |h   |		Jump_Zero	0x23e
023b 4804       |H   |		Short_Literal	0x4
023c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
023d 780f       |x   |		Jump	0x24d
023e 00db       |    |		Load_Top	At_Offset_3
023f 0227       | '  |		Execute	Access,All_Reference
0240 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0241 8009       |    |		Call	0x0,0x9
0242 6803       |h   |		Jump_Zero	0x246
0243 4806       |H   |		Short_Literal	0x6
0244 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0245 7807       |x   |		Jump	0x24d
0246 4807       |H   |		Short_Literal	0x7
0247 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0248 7804       |x   |		Jump	0x24d
0249 00db       |    |		Load_Top	At_Offset_3
024a 0227       | '  |		Execute	Access,All_Reference
024b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
024d 00d8       |    |		Load_Top	At_Offset_0
024e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024f 0000       |    |		.XXX[0x1]
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 4609       |F   |		Jump_Case	0xa
0254 7809       |x   |		Jump	0x25e								; case 0x0
0255 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0256 782e       |x.  |		Jump	0x285								; case 0x2
0257 7831       |x1  |		Jump	0x289								; case 0x3
0258 786c       |xl  |		Jump	0x2c5								; case 0x4
0259 786b       |xk  |		Jump	0x2c5								; case 0x5
025a 7834       |x4  |		Jump	0x28f								; case 0x6
025b 7847       |xG  |		Jump	0x2a3								; case 0x7
025c 785d       |x]  |		Jump	0x2ba								; case 0x8
025d 7863       |xc  |		Jump	0x2c1								; case 0x9
025e 00da       |    |		Load_Top	At_Offset_2
025f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0260 7009       |p   |		Jump_Nonzero	0x26a
0261 00cf       |    |		Action	Mark_Auxiliary
0262 4807       |H   |		Short_Literal	0x7
0263 e5ff       |    |		Load	0x2,-0x1
0264 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0265 00d8       |    |		Load_Top	At_Offset_0
0266 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0267 c5ff       |    |		Store	0x2,-0x1
0268 00ce       |    |		Action	Pop_Auxiliary
0269 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
026a 00da       |    |		Load_Top	At_Offset_2
026b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
026c 4607       |F   |		Jump_Case	0x8
026d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
026e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
026f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0270 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0271 7804       |x   |		Jump	0x276								; case 0x4
0272 7807       |x   |		Jump	0x27a								; case 0x5
0273 780a       |x   |		Jump	0x27e								; case 0x6
0274 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0275 4302       |C   |		.XXX[0x1]
0276 4800       |H   |		Short_Literal	0x0
0277 00db       |    |		Load_Top	At_Offset_3
0278 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0279 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
027a e002       |    |		Load	0x0,0x2
027b 00db       |    |		Load_Top	At_Offset_3
027c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
027d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
027e 4800       |H   |		Short_Literal	0x0
027f 00db       |    |		Load_Top	At_Offset_3
0280 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0281 4800       |H   |		Short_Literal	0x0
0282 00db       |    |		Load_Top	At_Offset_3
0283 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0284 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0285 4801       |H   |		Short_Literal	0x1
0286 4807       |H   |		Short_Literal	0x7
0287 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0288 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0289 e5fd       |    |		Load	0x2,-0x3
028a 00db       |    |		Load_Top	At_Offset_3
028b 1c07       |    |		Execute_Immediate	Run_Utility,0x7
028c e5fe       |    |		Load	0x2,-0x2
028d 0306       |    |		Complete_Type	Variant_Record,By_Renaming
028e 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
028f 00db       |    |		Load_Top	At_Offset_3
0290 4607       |F   |		Jump_Case	0x8
0291 7809       |x   |		Jump	0x29b								; case 0x0
0292 7808       |x   |		Jump	0x29b								; case 0x1
0293 7807       |x   |		Jump	0x29b								; case 0x2
0294 7806       |x   |		Jump	0x29b								; case 0x3
0295 7807       |x   |		Jump	0x29d								; case 0x4
0296 7808       |x   |		Jump	0x29f								; case 0x5
0297 7809       |x   |		Jump	0x2a1								; case 0x6
0298 7800       |x   |		Jump	0x299								; case 0x7
0299 48ff       |H   |		Short_Literal	0xff
029a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029b 4801       |H   |		Short_Literal	0x1
029c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029d 4802       |H   |		Short_Literal	0x2
029e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029f 4803       |H   |		Short_Literal	0x3
02a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a1 4804       |H   |		Short_Literal	0x4
02a2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a3 00db       |    |		Load_Top	At_Offset_3
02a4 e5fe       |    |		Load	0x2,-0x2
02a5 4607       |F   |		Jump_Case	0x8
02a6 7809       |x   |		Jump	0x2b0								; case 0x0
02a7 7808       |x   |		Jump	0x2b0								; case 0x1
02a8 7807       |x   |		Jump	0x2b0								; case 0x2
02a9 7806       |x   |		Jump	0x2b0								; case 0x3
02aa 7807       |x   |		Jump	0x2b2								; case 0x4
02ab 7808       |x   |		Jump	0x2b4								; case 0x5
02ac 7809       |x   |		Jump	0x2b6								; case 0x6
02ad 7800       |x   |		Jump	0x2ae								; case 0x7
02ae 48ff       |H   |		Short_Literal	0xff
02af 7807       |x   |		Jump	0x2b7
02b0 4801       |H   |		Short_Literal	0x1
02b1 7805       |x   |		Jump	0x2b7
02b2 4802       |H   |		Short_Literal	0x2
02b3 7803       |x   |		Jump	0x2b7
02b4 4803       |H   |		Short_Literal	0x3
02b5 7801       |x   |		Jump	0x2b7
02b6 4804       |H   |		Short_Literal	0x4
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 031b       |    |		Declare_Type	Variant_Record,Constrained
02b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ba 00db       |    |		Load_Top	At_Offset_3
02bb e5fe       |    |		Load	0x2,-0x2
02bc e5ff       |    |		Load	0x2,-0x1
02bd 1c06       |    |		Execute_Immediate	Run_Utility,0x6
02be e5ff       |    |		Load	0x2,-0x1
02bf 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c1 4807       |H   |		Short_Literal	0x7
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02c4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02c5 0869       | i  |		Execute_Immediate	Raise,0x69
02c6 ; --------------------------------------------------------------------------------------
02c6 ; STRING TABLE
02c6 ; --------------------------------------------------------------------------------------
02c6 0016       |    |		.STRTAB	0x0016->0x02d1							; "ADD"
02c7 0017       |    |		.STRTAB	0x0017->0x02d2							; "SUBSTRACT"
02c8 001e       |    |		.STRTAB	0x001e->0x02d7							; "MULTIPLY"
02c9 0024       | $  |		.STRTAB	0x0024->0x02db							; "DIVIDE"
02ca 0028       | (  |		.STRTAB	0x0028->0x02de							; "NUMBER"
02cb 002c       | ,  |		.STRTAB	0x002c->0x02e1							; "SINGLE_ATTRIBUTE"
02cc 003a       | :  |		.STRTAB	0x003a->0x02e9							; "ENUMERATE"
02cd 0041       | A  |		.STRTAB	0x0041->0x02ed							; "UNKNOWN"
02ce 0046       | F  |		.STRTAB	0x0046->0x02f1							; "show kind : "
02cf 0050       | P  |		.STRTAB	0x0050->0x02f7							; " "
02d0 004f       | O  |		.STREND 0x004f->0x02f7
02d1 4144 4453  |ADDS|		.STRTAB_STRINGS
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xe318,0x0000,0x0001,0x000f
02fe 000b 033a  |   :|		.DBG4T	0x000b,0x033a,0x8000,0x0000
0302 004a 034d  | J M|		.DBG4T	0x004a,0x034d,0x8000,0x0000
0306 006b 0000  | k  |		.DBG4T	0x006b,0x0000,0x0005,0x0000
030a 0093 035a  |   Z|		.DBG4T	0x0093,0x035a,0x0001,0x4000
030e 00e3 036e  |   n|		.DBG4T	0x00e3,0x036e,0x0001,0x0000
0312 00f3 0371  |   q|		.DBG4T	0x00f3,0x0371,0x0001,0x0000
0316 0103 0374  |   t|		.DBG4T	0x0103,0x0374,0x0001,0x0000
031a 0113 0377  |   w|		.DBG4T	0x0113,0x0377,0x0001,0x4000
031e 0163 038d  | c  |		.DBG4T	0x0163,0x038d,0x0002,0x0000
0322 016b 0390  | k  |		.DBG4T	0x016b,0x0390,0x0002,0x0000
0326 0173 0393  | s  |		.DBG4T	0x0173,0x0393,0x0002,0x4000
032a 01d3 03b2  |    |		.DBG4T	0x01d3,0x03b2,0x0002,0x0000
032e 01fb 03bb  |    |		.DBG4T	0x01fb,0x03bb,0x0002,0x0000
0332 0223 03c4  | #  |		.DBG4T	0x0223,0x03c4,0x0002,0x0000
0336 0253 0000  | S  |		.DBG4T	0x0253,0x0000,0x0005,0x0000
033a ; --------------------------------------------------------------------------------------
033a ; Debug chain
033a ; --------------------------------------------------------------------------------------
033a 0011 0000  |    |		.DBGLEN	0x0011,0x0000
033c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002b,0x003e,0x0042
034d ; --------------------------------------------------------------------------------------
034d ; Debug chain
034d ; --------------------------------------------------------------------------------------
034d 000b 0000  |    |		.DBGLEN	0x000b,0x0000
034f 004a 004c  | J L|		.DBGLNO	0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e
035a ; --------------------------------------------------------------------------------------
035a ; Debug chain
035a ; --------------------------------------------------------------------------------------
035a 0000 0009  |    |		.DBGLEN	0x0000,0x0009
035c 0093 0099  |    |		.DBGLNO	0x0093,0x0099,0x009f,0x00ac,0x00b9,0x00c6,0x00d2,0x00d5,0x00d7
0365 0001 0002  |    |		.XXX[0x9]
0367 0006 0003  |    |
0369 0004 0005  |    |
036b 0007 0008  |    |
036d 0009       |    |
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0370 00e3       |    |		.DBGLNO	0x00e3
0371 ; --------------------------------------------------------------------------------------
0371 ; Debug chain
0371 ; --------------------------------------------------------------------------------------
0371 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0373 00f3       |    |		.DBGLNO	0x00f3
0374 ; --------------------------------------------------------------------------------------
0374 ; Debug chain
0374 ; --------------------------------------------------------------------------------------
0374 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0376 0103       |    |		.DBGLNO	0x0103
0377 ; --------------------------------------------------------------------------------------
0377 ; Debug chain
0377 ; --------------------------------------------------------------------------------------
0377 0000 000a  |    |		.DBGLEN	0x0000,0x000a
0379 0113 011e  |    |		.DBGLNO	0x0113,0x011e,0x012a,0x012e,0x0132,0x0140,0x0144,0x0148,0x0150,0x0157
0383 0001 0002  |    |		.XXX[0xa]
0385 000a 0003  |    |
0387 0004 0005  |    |
0389 0006 0007  |    |
038b 0008 0009  |    |
038d ; --------------------------------------------------------------------------------------
038d ; Debug chain
038d ; --------------------------------------------------------------------------------------
038d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
038f 0163       | c  |		.DBGLNO	0x0163
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug chain
0390 ; --------------------------------------------------------------------------------------
0390 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0392 016b       | k  |		.DBGLNO	0x016b
0393 ; --------------------------------------------------------------------------------------
0393 ; Debug chain
0393 ; --------------------------------------------------------------------------------------
0393 0001 000e  |    |		.DBGLEN	0x0001,0x000e
0395 0173 0175  | s u|		.DBGLNO	0x0173,0x0175,0x0178,0x0184,0x0185,0x0190,0x019b,0x01a6,0x01b1,0x01b6,0x01bb,0x01c1,0x01c2,0x01c4,0x01c7
03a4 0001 0002  |    |		.XXX[0xe]
03a6 000b 0003  |    |
03a8 0004 0005  |    |
03aa 0006 0007  |    |
03ac 0008 0009  |    |
03ae 000a 000c  |    |
03b0 000d 000e  |    |
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug chain
03b2 ; --------------------------------------------------------------------------------------
03b2 0001 0006  |    |		.DBGLEN	0x0001,0x0006
03b4 01d3 01d4  |    |		.DBGLNO	0x01d3,0x01d4,0x01d9,0x01de,0x01e8,0x01ee,0x01f0
03bb ; --------------------------------------------------------------------------------------
03bb ; Debug chain
03bb ; --------------------------------------------------------------------------------------
03bb 0001 0006  |    |		.DBGLEN	0x0001,0x0006
03bd 01fb 01fc  |    |		.DBGLNO	0x01fb,0x01fc,0x0201,0x0206,0x0210,0x0216,0x0218
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug chain
03c4 ; --------------------------------------------------------------------------------------
03c4 0001 000a  |    |		.DBGLEN	0x0001,0x000a
03c6 0223 0225  | # %|		.DBGLNO	0x0223,0x0225,0x022b,0x0231,0x0236,0x023b,0x023e,0x0243,0x0246,0x0249,0x024d
03d1 0000 0000  |    |		.BLANK	0000[0x2f]