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

⟦e0ff81219⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 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 012a       | *  |		.CONST	0x012a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002c       | ,  |		.CONST	0x002c								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 4801       |H   |		Short_Literal	0x1
002c 4808       |H   |		Short_Literal	0x8
002d 00e5       |    |		Load_Encached	Long_Integer_Cache
002e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
002f c228       | (  |		Store	0x1,0x28
0030 00e8       |    |		Load_Encached	Character_Cache
0031 0462       | b  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x62
0032 c20e       |    |		Store	0x1,0xe
0033 e228       | (  |		Load	0x1,0x28
0034 0129       | )  |		Execute	Any,Make_Visible
0035 c20f       |    |		Store	0x1,0xf
0036 5905       |Y   |		Indirect_Literal	Float,0x13c,1.0
0037 5900       |Y   |		Indirect_Literal	Float,0x138,4.5
0038 00e6       |    |		Load_Encached	Float_Cache
0039 03e4       |    |		Declare_Type	Float,Constrained,Visible
003a 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
003c 00d9       |    |		Load_Top	At_Offset_1
003d 012a       | *  |		Execute	Any,Change_Utility
003e c210       |    |		Store	0x1,0x10
003f 58fc       |X   |		Indirect_Literal	Float,0x13c,1.0
0040 58f7       |X   |		Indirect_Literal	Float,0x138,4.5
0041 00e6       |    |		Load_Encached	Float_Cache
0042 03e4       |    |		Declare_Type	Float,Constrained,Visible
0043 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
0045 00d9       |    |		Load_Top	At_Offset_1
0046 012a       | *  |		Execute	Any,Change_Utility
0047 c211       |    |		Store	0x1,0x11
0048 4800       |H   |		Short_Literal	0x0
0049 4802       |H   |		Short_Literal	0x2
004a 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
004c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004d c212       |    |		Store	0x1,0x12
004e 4800       |H   |		Short_Literal	0x0
004f 4802       |H   |		Short_Literal	0x2
0050 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0052 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0053 c213       |    |		Store	0x1,0x13
0054 e228       | (  |		Load	0x1,0x28
0055 0266       | f  |		Execute	Discrete,Bounds
0056 e210       |    |		Load	0x1,0x10
0057 02a0       |    |		Declare_Subprogram	Null_Subprogram
0058 4801       |H   |		Short_Literal	0x1
0059 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
005a c214       |    |		Store	0x1,0x14
005b 4801       |H   |		Short_Literal	0x1
005c 4808       |H   |		Short_Literal	0x8
005d 00e1       |    |		Load_Encached	Boolean_Cache
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f 4801       |H   |		Short_Literal	0x1
0060 035e       | ^  |		Declare_Type	Array,Defined,Visible
0061 c215       |    |		Store	0x1,0x15
0062 00e8       |    |		Load_Encached	Character_Cache
0063 4801       |H   |		Short_Literal	0x1
0064 4802       |H   |		Short_Literal	0x2
0065 00e9       |    |		Load_Encached	String_Cache
0066 035c       | \  |		Declare_Type	Array,Constrained,Visible
0067 e210       |    |		Load	0x1,0x10
0068 e211       |    |		Load	0x1,0x11
0069 02a0       |    |		Declare_Subprogram	Null_Subprogram
006a 4804       |H   |		Short_Literal	0x4
006b 032e       | .  |		Declare_Type	Record,Defined,Visible
006c c216       |    |		Store	0x1,0x16
006d e228       | (  |		Load	0x1,0x28
006e 0266       | f  |		Execute	Discrete,Bounds
006f e216       |    |		Load	0x1,0x16
0070 02a0       |    |		Declare_Subprogram	Null_Subprogram
0071 4801       |H   |		Short_Literal	0x1
0072 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0073 c217       |    |		Store	0x1,0x17
0074 e212       |    |		Load	0x1,0x12
0075 e228       | (  |		Load	0x1,0x28
0076 4801       |H   |		Short_Literal	0x1
0077 4805       |H   |		Short_Literal	0x5
0078 e217       |    |		Load	0x1,0x17
0079 035c       | \  |		Declare_Type	Array,Constrained,Visible
007a 02a0       |    |		Declare_Subprogram	Null_Subprogram
007b 4803       |H   |		Short_Literal	0x3
007c 032e       | .  |		Declare_Type	Record,Defined,Visible
007d c218       |    |		Store	0x1,0x18
007e e216       |    |		Load	0x1,0x16
007f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0080 4818       |H   |		Short_Literal	0x18
0081 03d6       |    |		Declare_Type	Access,Defined,Visible
0082 c219       |    |		Store	0x1,0x19
0083 4801       |H   |		Short_Literal	0x1
0084 4804       |H   |		Short_Literal	0x4
0085 e219       |    |		Load	0x1,0x19
0086 02a0       |    |		Declare_Subprogram	Null_Subprogram
0087 4801       |H   |		Short_Literal	0x1
0088 035e       | ^  |		Declare_Type	Array,Defined,Visible
0089 c21a       |    |		Store	0x1,0x1a
008a e219       |    |		Load	0x1,0x19
008b 0129       | )  |		Execute	Any,Make_Visible
008c c21b       |    |		Store	0x1,0x1b
008d e21b       |    |		Load	0x1,0x1b
008e 0129       | )  |		Execute	Any,Make_Visible
008f c21c       |    |		Store	0x1,0x1c
0090 4800       |H   |		Short_Literal	0x0
0091 0093 02eb  |    |		push_full_address	INIT_02e8
0093 00f5       |    |		Load_Encached	Unused21
0094 037b       | {  |		Declare_Type	Task,Defined,Visible,Not_Elaborated
0095 c21d       |    |		Store	0x1,0x1d
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097 0129       | )  |		Execute	Any,Make_Visible
0098 c21e       |    |		Store	0x1,0x1e
0099 00e1       |    |		Load_Encached	Boolean_Cache
009a 0129       | )  |		Execute	Any,Make_Visible
009b c21f       |    |		Store	0x1,0x1f
009c 4880       |H   |		Short_Literal	0x80
009d 4a40       |J@  |		Short_Literal	0x240
009e 00e5       |    |		Load_Encached	Long_Integer_Cache
009f 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00a0 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
00a2 00d9       |    |		Load_Top	At_Offset_1
00a3 012a       | *  |		Execute	Any,Change_Utility
00a4 c220       |    |		Store	0x1,0x20
00a5 00e6       |    |		Load_Encached	Float_Cache
00a6 0241       | A  |		Execute	Float,First
00a7 00e6       |    |		Load_Encached	Float_Cache
00a8 0240       | @  |		Execute	Float,Last
00a9 00e6       |    |		Load_Encached	Float_Cache
00aa 03e4       |    |		Declare_Type	Float,Constrained,Visible
00ab 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 012a       | *  |		Execute	Any,Change_Utility
00af c221       | !  |		Store	0x1,0x21
00b0 4803       |H   |		Short_Literal	0x3
00b1 0093 02c3  |    |		push_full_address	INIT_02c0
00b3 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b4 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
00b5 c222       | "  |		Store	0x1,0x22
00b6 e001       |    |		Load	0x0,0x1
00b7 e002       |    |		Load	0x0,0x2
00b8 e220       |    |		Load	0x1,0x20
00b9 e222       | "  |		Load	0x1,0x22
00ba 0386       |    |		Declare_Variable	Package,Visible
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 020f       |    |		Execute	Module,Activate
00bd c223       | #  |		Store	0x1,0x23
00be e213       |    |		Load	0x1,0x13
00bf 00e2       |    |		Load_Encached	Integer_Cache
00c0 4801       |H   |		Short_Literal	0x1
00c1 4801       |H   |		Short_Literal	0x1
00c2 4814       |H   |		Short_Literal	0x14
00c3 00e9       |    |		Load_Encached	String_Cache
00c4 035c       | \  |		Declare_Type	Array,Constrained,Visible
00c5 4801       |H   |		Short_Literal	0x1
00c6 00e1       |    |		Load_Encached	Boolean_Cache
00c7 4801       |H   |		Short_Literal	0x1
00c8 00e8       |    |		Load_Encached	Character_Cache
00c9 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
00cb 4803       |H   |		Short_Literal	0x3
00cc 4801       |H   |		Short_Literal	0x1
00cd 4803       |H   |		Short_Literal	0x3
00ce 4800       |H   |		Short_Literal	0x0
00cf 4801       |H   |		Short_Literal	0x1
00d0 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00d1 c224       | $  |		Store	0x1,0x24
00d2 e212       |    |		Load	0x1,0x12
00d3 e219       |    |		Load	0x1,0x19
00d4 e21a       |    |		Load	0x1,0x1a
00d5 e21b       |    |		Load	0x1,0x1b
00d6 e220       |    |		Load	0x1,0x20
00d7 e221       | !  |		Load	0x1,0x21
00d8 4800       |H   |		Short_Literal	0x0
00d9 e224       | $  |		Load	0x1,0x24
00da 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00db 0129       | )  |		Execute	Any,Make_Visible
00dc e21e       |    |		Load	0x1,0x1e
00dd e21f       |    |		Load	0x1,0x1f
00de e21d       |    |		Load	0x1,0x1d
00df e21c       |    |		Load	0x1,0x1c
00e0 e21b       |    |		Load	0x1,0x1b
00e1 e223       | #  |		Load	0x1,0x23
00e2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e3 4801       |H   |		Short_Literal	0x1
00e4 00e2       |    |		Load_Encached	Integer_Cache
00e5 4801       |H   |		Short_Literal	0x1
00e6 00e8       |    |		Load_Encached	Character_Cache
00e7 4803       |H   |		Short_Literal	0x3
00e8 4801       |H   |		Short_Literal	0x1
00e9 e20f       |    |		Load	0x1,0xf
00ea e217       |    |		Load	0x1,0x17
00eb 035c       | \  |		Declare_Type	Array,Constrained,Visible
00ec 4801       |H   |		Short_Literal	0x1
00ed e224       | $  |		Load	0x1,0x24
00ee 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00ef 0129       | )  |		Execute	Any,Make_Visible
00f0 4802       |H   |		Short_Literal	0x2
00f1 e224       | $  |		Load	0x1,0x24
00f2 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00f3 0129       | )  |		Execute	Any,Make_Visible
00f4 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
00f6 4805       |H   |		Short_Literal	0x5
00f7 480c       |H   |		Short_Literal	0xc
00f8 4803       |H   |		Short_Literal	0x3
00f9 4800       |H   |		Short_Literal	0x0
00fa 4801       |H   |		Short_Literal	0x1
00fb 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00fc c225       | %  |		Store	0x1,0x25
00fd 4800       |H   |		Short_Literal	0x0
00fe e225       | %  |		Load	0x1,0x25
00ff 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0100 0129       | )  |		Execute	Any,Make_Visible
0101 c226       | &  |		Store	0x1,0x26
0102 4801       |H   |		Short_Literal	0x1
0103 4808       |H   |		Short_Literal	0x8
0104 e226       | &  |		Load	0x1,0x26
0105 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
0107 4801       |H   |		Short_Literal	0x1
0108 035e       | ^  |		Declare_Type	Array,Defined,Visible
0109 c227       | '  |		Store	0x1,0x27
010a 4800       |H   |		Short_Literal	0x0
010b 4802       |H   |		Short_Literal	0x2
010c 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
010e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
010f c229       | )  |		Store	0x1,0x29
0110 00e4       |    |		Load_Encached	Positive_Cache
0111 0266       | f  |		Execute	Discrete,Bounds
0112 e229       | )  |		Load	0x1,0x29
0113 02a0       |    |		Declare_Subprogram	Null_Subprogram
0114 4801       |H   |		Short_Literal	0x1
0115 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0116 c22a       | *  |		Store	0x1,0x2a
0117 4800       |H   |		Short_Literal	0x0
0118 4803       |H   |		Short_Literal	0x3
0119 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
011b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
011c c22b       | +  |		Store	0x1,0x2b
011d 00e4       |    |		Load_Encached	Positive_Cache
011e 0266       | f  |		Execute	Discrete,Bounds
011f 00db       |    |		Load_Top	At_Offset_3
0120 02a0       |    |		Declare_Subprogram	Null_Subprogram
0121 4801       |H   |		Short_Literal	0x1
0122 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0123 c22c       | ,  |		Store	0x1,0x2c
0124 00bf       |    |		Action	Accept_Activation
0125 e21d       |    |		Load	0x1,0x1d
0126 020d       |    |		Execute	Module,Elaborate
0127 0007       |    |		Action	Break_Optional
0128 e222       | "  |		Load	0x1,0x22
0129 020d       |    |		Execute	Module,Elaborate
012a			BODY_0008:
012a 00bc       |    |		Action	Signal_Activated
012b 00bb       |    |		Action	Signal_Completion
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4601       |F   |		Jump_Case	0x2
0134 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0135 7800       |x   |		Jump	0x136								; case 0x1
0136 4807       |H   |		Short_Literal	0x7
0137 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0138 4012 0000  |@   |		.DBL	4.5
013a 0000 0000  |    |
013c 3ff0 0000  |?   |		.DBL	1.0
013e 0000 0000  |    |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 4601       |F   |		Jump_Case	0x2
0144 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0145 7800       |x   |		Jump	0x146								; case 0x1
0146 4805       |H   |		Short_Literal	0x5
0147 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4607       |F   |		Jump_Case	0x8
014c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
014d 7806       |x   |		Jump	0x154								; case 0x1
014e 7809       |x   |		Jump	0x158								; case 0x2
014f 780d       |x   |		Jump	0x15d								; case 0x3
0150 7810       |x   |		Jump	0x161								; case 0x4
0151 7811       |x   |		Jump	0x163								; case 0x5
0152 7812       |x   |		Jump	0x165								; case 0x6
0153 7815       |x   |		Jump	0x169								; case 0x7
0154 00da       |    |		Load_Top	At_Offset_2
0155 0091 02ee  |    |		Action	Push_String_Extended_Indexed,0x2ee				; "E_ONE"
0157 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0158 00db       |    |		Load_Top	At_Offset_3
0159 00db       |    |		Load_Top	At_Offset_3
015a 00e0       |    |		Load_Encached	Standard_Cache
015b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015d 00da       |    |		Load_Top	At_Offset_2
015e 00e0       |    |		Load_Encached	Standard_Cache
015f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0161 00db       |    |		Load_Top	At_Offset_3
0162 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0163 00db       |    |		Load_Top	At_Offset_3
0164 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0165 e212       |    |		Load	0x1,0x12
0166 00dc       |    |		Load_Top	At_Offset_4
0167 0267       | g  |		Execute	Discrete,Predecessor
0168 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0169 e212       |    |		Load	0x1,0x12
016a 00dc       |    |		Load_Top	At_Offset_4
016b 0268       | h  |		Execute	Discrete,Successor
016c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
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 4607       |F   |		Jump_Case	0x8
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0175 7806       |x   |		Jump	0x17c								; case 0x1
0176 7809       |x   |		Jump	0x180								; case 0x2
0177 780d       |x   |		Jump	0x185								; case 0x3
0178 7810       |x   |		Jump	0x189								; case 0x4
0179 7811       |x   |		Jump	0x18b								; case 0x5
017a 7812       |x   |		Jump	0x18d								; case 0x6
017b 7815       |x   |		Jump	0x191								; case 0x7
017c 00da       |    |		Load_Top	At_Offset_2
017d 0091 02f1  |    |		Action	Push_String_Extended_Indexed,0x2f1				; "RED"
017f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0180 00db       |    |		Load_Top	At_Offset_3
0181 00db       |    |		Load_Top	At_Offset_3
0182 00e0       |    |		Load_Encached	Standard_Cache
0183 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0184 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0185 00da       |    |		Load_Top	At_Offset_2
0186 00e0       |    |		Load_Encached	Standard_Cache
0187 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0188 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0189 00db       |    |		Load_Top	At_Offset_3
018a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018b 00db       |    |		Load_Top	At_Offset_3
018c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018d e213       |    |		Load	0x1,0x13
018e 00dc       |    |		Load_Top	At_Offset_4
018f 0267       | g  |		Execute	Discrete,Predecessor
0190 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0191 e213       |    |		Load	0x1,0x13
0192 00dc       |    |		Load_Top	At_Offset_4
0193 0268       | h  |		Execute	Discrete,Successor
0194 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 4603       |F   |		Jump_Case	0x4
019c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
019d 7802       |x   |		Jump	0x1a0								; case 0x1
019e 7803       |x   |		Jump	0x1a2								; case 0x2
019f 7802       |x   |		Jump	0x1a2								; case 0x3
01a0 5807       |X   |		Indirect_Literal	Float,0x1a8,0.009999999999999998
01a1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01a2 5801       |X   |		Indirect_Literal	Float,0x1a4,0.0078125
01a3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01a4 3f80 0000  |?   |		.DBL	0.0078125
01a6 0000 0000  |    |
01a8 3f84 7ae1  |? z |		.DBL	0.009999999999999998
01aa 47ae 147a  |G  z|
01ac 0000 0000  |    |		.BLANK	0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 4601       |F   |		Jump_Case	0x2
01b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01b5 7800       |x   |		Jump	0x1b6								; case 0x1
01b6 4806       |H   |		Short_Literal	0x6
01b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 4605       |F   |		Jump_Case	0x6
01bc 7804       |x   |		Jump	0x1c1								; case 0x0
01bd 7814       |x   |		Jump	0x1d2								; case 0x1
01be 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01bf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01c0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01c1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
01c2 01dc       |    |		Execute	Vector,Last
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 01dd       |    |		Execute	Vector,First
01c5 0263       | c  |		Execute	Discrete,Above_Bound
01c6 700a       |p   |		Jump_Nonzero	0x1d1
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 e5ff       |    |		Load	0x2,-0x1
01c9 01d5       |    |		Execute	Vector,Field_Reference
01ca 0125       | %  |		Execute	Any,Set_Constraint
01cb 00d8       |    |		Load_Top	At_Offset_0
01cc e5ff       |    |		Load	0x2,-0x1
01cd 01d5       |    |		Execute	Vector,Field_Reference
01ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01cf 0a01       |    |		Execute_Immediate	Plus,0x1
01d0 7ff4       |    |		Jump	0x1c5
01d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01d2 00da       |    |		Load_Top	At_Offset_2
01d3 01dc       |    |		Execute	Vector,Last
01d4 00db       |    |		Load_Top	At_Offset_3
01d5 01dd       |    |		Execute	Vector,First
01d6 0263       | c  |		Execute	Discrete,Above_Bound
01d7 700a       |p   |		Jump_Nonzero	0x1e2
01d8 00d8       |    |		Load_Top	At_Offset_0
01d9 e5ff       |    |		Load	0x2,-0x1
01da 01d5       |    |		Execute	Vector,Field_Reference
01db 0125       | %  |		Execute	Any,Set_Constraint
01dc 00d8       |    |		Load_Top	At_Offset_0
01dd e5ff       |    |		Load	0x2,-0x1
01de 01d7       |    |		Execute	Vector,Field_Read
01df 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01e0 0a01       |    |		Execute_Immediate	Plus,0x1
01e1 7ff4       |    |		Jump	0x1d6
01e2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01e3 0000 0000  |    |		.BLANK	0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4607       |F   |		Jump_Case	0x8
01ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01ed 7806       |x   |		Jump	0x1f4								; case 0x1
01ee 7809       |x   |		Jump	0x1f8								; case 0x2
01ef 780d       |x   |		Jump	0x1fd								; case 0x3
01f0 7810       |x   |		Jump	0x201								; case 0x4
01f1 7811       |x   |		Jump	0x203								; case 0x5
01f2 7812       |x   |		Jump	0x205								; case 0x6
01f3 7815       |x   |		Jump	0x209								; case 0x7
01f4 00da       |    |		Load_Top	At_Offset_2
01f5 0091 02f4  |    |		Action	Push_String_Extended_Indexed,0x2f4				; "A"
01f7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01f8 00db       |    |		Load_Top	At_Offset_3
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 00e0       |    |		Load_Encached	Standard_Cache
01fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 00e0       |    |		Load_Encached	Standard_Cache
01ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0200 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0201 00db       |    |		Load_Top	At_Offset_3
0202 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0203 00db       |    |		Load_Top	At_Offset_3
0204 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0205 e229       | )  |		Load	0x1,0x29
0206 00dc       |    |		Load_Top	At_Offset_4
0207 0267       | g  |		Execute	Discrete,Predecessor
0208 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0209 e229       | )  |		Load	0x1,0x29
020a 00dc       |    |		Load_Top	At_Offset_4
020b 0268       | h  |		Execute	Discrete,Successor
020c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4607       |F   |		Jump_Case	0x8
0214 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0215 7806       |x   |		Jump	0x21c								; case 0x1
0216 7809       |x   |		Jump	0x220								; case 0x2
0217 780d       |x   |		Jump	0x225								; case 0x3
0218 7810       |x   |		Jump	0x229								; case 0x4
0219 7811       |x   |		Jump	0x22b								; case 0x5
021a 7812       |x   |		Jump	0x22d								; case 0x6
021b 7815       |x   |		Jump	0x231								; case 0x7
021c 00da       |    |		Load_Top	At_Offset_2
021d 0091 02f7  |    |		Action	Push_String_Extended_Indexed,0x2f7				; "GG"
021f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0220 00db       |    |		Load_Top	At_Offset_3
0221 00db       |    |		Load_Top	At_Offset_3
0222 00e0       |    |		Load_Encached	Standard_Cache
0223 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0224 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0225 00da       |    |		Load_Top	At_Offset_2
0226 00e0       |    |		Load_Encached	Standard_Cache
0227 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0228 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0229 00db       |    |		Load_Top	At_Offset_3
022a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022b 00db       |    |		Load_Top	At_Offset_3
022c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022d e22b       | +  |		Load	0x1,0x2b
022e 00dc       |    |		Load_Top	At_Offset_4
022f 0267       | g  |		Execute	Discrete,Predecessor
0230 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0231 e22b       | +  |		Load	0x1,0x2b
0232 00dc       |    |		Load_Top	At_Offset_4
0233 0268       | h  |		Execute	Discrete,Successor
0234 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0235 0000 0000  |    |		.XXX[0x3]
0237 0000       |    |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 4608       |F   |		Jump_Case	0x9
023c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
023d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
023e 7826       |x&  |		Jump	0x265								; case 0x2
023f 7825       |x%  |		Jump	0x265								; case 0x3
0240 7824       |x$  |		Jump	0x265								; case 0x4
0241 7823       |x#  |		Jump	0x265								; case 0x5
0242 7802       |x   |		Jump	0x245								; case 0x6
0243 780c       |x   |		Jump	0x250								; case 0x7
0244 7819       |x   |		Jump	0x25e								; case 0x8
0245 00db       |    |		Load_Top	At_Offset_3
0246 4602       |F   |		Jump_Case	0x3
0247 7804       |x   |		Jump	0x24c								; case 0x0
0248 7805       |x   |		Jump	0x24e								; case 0x1
0249 7800       |x   |		Jump	0x24a								; case 0x2
024a 4803       |H   |		Short_Literal	0x3
024b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024c 4801       |H   |		Short_Literal	0x1
024d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024e 4802       |H   |		Short_Literal	0x2
024f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0250 00db       |    |		Load_Top	At_Offset_3
0251 e5fe       |    |		Load	0x2,-0x2
0252 4602       |F   |		Jump_Case	0x3
0253 7804       |x   |		Jump	0x258								; case 0x0
0254 7805       |x   |		Jump	0x25a								; case 0x1
0255 7800       |x   |		Jump	0x256								; case 0x2
0256 4803       |H   |		Short_Literal	0x3
0257 7803       |x   |		Jump	0x25b
0258 4801       |H   |		Short_Literal	0x1
0259 7801       |x   |		Jump	0x25b
025a 4802       |H   |		Short_Literal	0x2
025b e5ff       |    |		Load	0x2,-0x1
025c 031b       |    |		Declare_Type	Variant_Record,Constrained
025d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025e 00db       |    |		Load_Top	At_Offset_3
025f e5fe       |    |		Load	0x2,-0x2
0260 e5ff       |    |		Load	0x2,-0x1
0261 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0262 e5ff       |    |		Load	0x2,-0x1
0263 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0264 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0265 0869       | i  |		Execute_Immediate	Raise,0x69
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 4608       |F   |		Jump_Case	0x9
026c 7808       |x   |		Jump	0x275								; case 0x0
026d 7820       |x   |		Jump	0x28e								; case 0x1
026e 784b       |xK  |		Jump	0x2ba								; case 0x2
026f 784a       |xJ  |		Jump	0x2ba								; case 0x3
0270 7849       |xI  |		Jump	0x2ba								; case 0x4
0271 7848       |xH  |		Jump	0x2ba								; case 0x5
0272 7827       |x'  |		Jump	0x29a								; case 0x6
0273 7831       |x1  |		Jump	0x2a5								; case 0x7
0274 783e       |x>  |		Jump	0x2b3								; case 0x8
0275 00da       |    |		Load_Top	At_Offset_2
0276 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
0277 00da       |    |		Load_Top	At_Offset_2
0278 2407       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
0279 1c00       |    |		Execute_Immediate	Run_Utility,0x0
027a 00da       |    |		Load_Top	At_Offset_2
027b 240a       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
027c 036b       | k  |		Declare_Variable	Task,As_Component
027d 00da       |    |		Load_Top	At_Offset_2
027e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
027f 4602       |F   |		Jump_Case	0x3
0280 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0281 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0282 7800       |x   |		Jump	0x283								; case 0x2
0283 00da       |    |		Load_Top	At_Offset_2
0284 2211       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x11
0285 00da       |    |		Load_Top	At_Offset_2
0286 2611       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x11
0287 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0288 00da       |    |		Load_Top	At_Offset_2
0289 2212       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x12
028a 00da       |    |		Load_Top	At_Offset_2
028b 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
028c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
028d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
028e 00da       |    |		Load_Top	At_Offset_2
028f 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
0290 00da       |    |		Load_Top	At_Offset_2
0291 016b       | k  |		Execute	Variant_Record,Read_Variant
0292 00d8       |    |		Load_Top	At_Offset_0
0293 0f03       |    |		Execute_Immediate	Equal,0x3
0294 6804       |h   |		Jump_Zero	0x299
0295 00db       |    |		Load_Top	At_Offset_3
0296 2211       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x11
0297 00db       |    |		Load_Top	At_Offset_3
0298 2212       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x12
0299 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
029a 00db       |    |		Load_Top	At_Offset_3
029b 4602       |F   |		Jump_Case	0x3
029c 7804       |x   |		Jump	0x2a1								; case 0x0
029d 7805       |x   |		Jump	0x2a3								; case 0x1
029e 7800       |x   |		Jump	0x29f								; case 0x2
029f 4803       |H   |		Short_Literal	0x3
02a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a1 4801       |H   |		Short_Literal	0x1
02a2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a3 4802       |H   |		Short_Literal	0x2
02a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02a5 00db       |    |		Load_Top	At_Offset_3
02a6 e5fe       |    |		Load	0x2,-0x2
02a7 4602       |F   |		Jump_Case	0x3
02a8 7804       |x   |		Jump	0x2ad								; case 0x0
02a9 7805       |x   |		Jump	0x2af								; case 0x1
02aa 7800       |x   |		Jump	0x2ab								; case 0x2
02ab 4803       |H   |		Short_Literal	0x3
02ac 7803       |x   |		Jump	0x2b0
02ad 4801       |H   |		Short_Literal	0x1
02ae 7801       |x   |		Jump	0x2b0
02af 4802       |H   |		Short_Literal	0x2
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 031b       |    |		Declare_Type	Variant_Record,Constrained
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 e5ff       |    |		Load	0x2,-0x1
02b6 1c06       |    |		Execute_Immediate	Run_Utility,0x6
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ba 0869       | i  |		Execute_Immediate	Raise,0x69
02bb 0000 0000  |    |		.BLANK	0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c9       |    |		.CONST	0x02c9								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0010       |    |		.CONST	0x0010								; Number of locals
02c3			INIT_02c0:
02c3 00d8       |    |		Load_Top	At_Offset_0
02c4 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
02c6 4801       |H   |		Short_Literal	0x1
02c7 032e       | .  |		Declare_Type	Record,Defined,Visible
02c8 00bf       |    |		Action	Accept_Activation
02c9			BODY_02c0:
02c9 00bc       |    |		Action	Signal_Activated
02ca 00bb       |    |		Action	Signal_Completion
02cb 0000 0000  |    |		.BLANK	0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 4608       |F   |		Jump_Case	0x9
02d4 7808       |x   |		Jump	0x2dd								; case 0x0
02d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02d6 780d       |x   |		Jump	0x2e4								; case 0x2
02d7 780c       |x   |		Jump	0x2e4								; case 0x3
02d8 780b       |x   |		Jump	0x2e4								; case 0x4
02d9 780a       |x   |		Jump	0x2e4								; case 0x5
02da 7809       |x   |		Jump	0x2e4								; case 0x6
02db 7808       |x   |		Jump	0x2e4								; case 0x7
02dc 7807       |x   |		Jump	0x2e4								; case 0x8
02dd 00da       |    |		Load_Top	At_Offset_2
02de 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02df 0125       | %  |		Execute	Any,Set_Constraint
02e0 00da       |    |		Load_Top	At_Offset_2
02e1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02e4 0869       | i  |		Execute_Immediate	Raise,0x69
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed       |    |		.CONST	0x02ed								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 000c       |    |		.CONST	0x000c								; Number of locals
02eb			INIT_02e8:
02eb 00bf       |    |		Action	Accept_Activation
02ec 00bc       |    |		Action	Signal_Activated
02ed			BODY_02e8:
02ed 00bb       |    |		Action	Signal_Completion
02ee ; --------------------------------------------------------------------------------------
02ee ; STRING TABLE
02ee ; --------------------------------------------------------------------------------------
02ee 001c       |    |		.STRTAB	0x001c->0x02fc							; "E_ONE"
02ef 001f       |    |		.STRTAB	0x001f->0x02fe							; "E_TWO"
02f0 0022       | "  |		.STRTAB	0x0022->0x0301							; "E_THREE"
02f1 0027       | '  |		.STRTAB	0x0027->0x0304							; "RED"
02f2 0028       | (  |		.STRTAB	0x0028->0x0306							; "BLUE"
02f3 002a       | *  |		.STRTAB	0x002a->0x0308							; "GREEN"
02f4 002d       | -  |		.STRTAB	0x002d->0x030a							; "A"
02f5 002c       | ,  |		.STRTAB	0x002c->0x030b							; "'l'"
02f6 002d       | -  |		.STRTAB	0x002d->0x030c							; "B"
02f7 002c       | ,  |		.STRTAB	0x002c->0x030d							; "GG"
02f8 002c       | ,  |		.STRTAB	0x002c->0x030e							; "Q"
02f9 002b       | +  |		.STRTAB	0x002b->0x030e							; "R"
02fa 002a       | *  |		.STRTAB	0x002a->0x030f							; "A_LEMON"
02fb 002f       | /  |		.STREND 0x002f->0x0312
02fc 455f 4f4e  |E_ON|		.STRTAB_STRINGS
0313 0000 0000  |    |		.BLANK	0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x712b,0x0000,0x0001,0x0012
031e 000b 0366  |   f|		.DBG4T	0x000b,0x0366,0x8000,0x8000
0322 0125 03a8  | %  |		.DBG4T	0x0125,0x03a8,0x8000,0x0000
0326 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x0005,0x0000
032a 0143 0000  | C  |		.DBG4T	0x0143,0x0000,0x0005,0x0000
032e 014b 0000  | K  |		.DBG4T	0x014b,0x0000,0x0005,0x0000
0332 0173 0000  | s  |		.DBG4T	0x0173,0x0000,0x0005,0x0000
0336 019b 0000  |    |		.DBG4T	0x019b,0x0000,0x0005,0x0000
033a 01b3 0000  |    |		.DBG4T	0x01b3,0x0000,0x0005,0x0000
033e 01bb 0000  |    |		.DBG4T	0x01bb,0x0000,0x0005,0x0000
0342 01eb 0000  |    |		.DBG4T	0x01eb,0x0000,0x0005,0x0000
0346 0213 0000  |    |		.DBG4T	0x0213,0x0000,0x0005,0x0000
034a 023b 0000  | ;  |		.DBG4T	0x023b,0x0000,0x0005,0x0000
034e 026b 0000  | k  |		.DBG4T	0x026b,0x0000,0x0005,0x0000
0352 02c3 03ac  |    |		.DBG4T	0x02c3,0x03ac,0x4000,0x0000
0356 02c9 0000  |    |		.DBG4T	0x02c9,0x0000,0x4000,0x0000
035a 02d3 0000  |    |		.DBG4T	0x02d3,0x0000,0x1005,0x0000
035e 02eb 0000  |    |		.DBG4T	0x02eb,0x0000,0x0000,0x0000
0362 02ec 03af  |    |		.DBG4T	0x02ec,0x03af,0x0000,0x0000
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0020 0000  |    |		.DBGLEN	0x0020,0x0000
0368 002b 0030  | + 0|		.DBGLNO	0x002b,0x0030,0x0033,0x0036,0x003f,0x0048,0x004e,0x0054,0x005b,0x0062,0x006d,0x0074,0x007e,0x0083,0x008a,0x008d,0x0090,0x0096,0x0099,0x009c,0x00a5,0x00b0,0x00b6,0x00be,0x00d2,0x00fd,0x0102,0x010a,0x0110,0x0117,0x011d,0x0124
0388 0001 0002  |    |		.XXX[0x20]
038a 0003 0004  |    |
038c 0005 0006  |    |
038e 0007 0008  |    |
0390 0009 000a  |    |
0392 000b 000c  |    |
0394 000d 000e  |    |
0396 000f 0010  |    |
0398 0011 0012  |    |
039a 0013 0015  |    |
039c 0016 0017  |    |
039e 0018 0019  |    |
03a0 001a 001b  |    |
03a2 001c 001d  |    |
03a4 001e 001f  |    |
03a6 0020 0022  |   "|
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug chain
03a8 ; --------------------------------------------------------------------------------------
03a8 0002 0000  |    |		.DBGLEN	0x0002,0x0000
03aa 0125 0128  | % (|		.DBGLNO	0x0125,0x0128
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug chain
03ac ; --------------------------------------------------------------------------------------
03ac 0001 0000  |    |		.DBGLEN	0x0001,0x0000
03ae 02c3       |    |		.DBGLNO	0x02c3
03af ; --------------------------------------------------------------------------------------
03af ; Debug chain
03af ; --------------------------------------------------------------------------------------
03af 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b1 02ed       |    |		.DBGLNO	0x02ed
03b2 0000 0000  |    |		.BLANK	0000[0x4e]