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

⟦7e8ebc6b6⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd

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 0a28       | (  |		.CONST	0x0a28								; 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 8007       |    |		.CONST	0x8007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01dc       |    |		.CONST	0x01dc								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0055       | U  |		.CONST	0x0055								; Number of locals
000b			INIT_0008:
000b 0092 0974  |   t|		Action	Push_String_Extended,0x974					; "FREEZE_TASKS"
000d 0129       | )  |		Execute	Any,Make_Visible
000e 0092 0975  |   u|		Action	Push_String_Extended,0x975					; "TRUE"
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e002       |    |		Load	0x0,0x2
0012 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0013 0129       | )  |		Execute	Any,Make_Visible
0014 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0016 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0018 00e4       |    |		Load_Encached	Positive_Cache
0019 0266       | f  |		Execute	Discrete,Bounds
001a e20f       |    |		Load	0x1,0xf
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 4801       |H   |		Short_Literal	0x1
001d 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
001e 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0020 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0022 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0024 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0026 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0028 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
002a 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
002c 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
002e 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0030 e003       |    |		Load	0x0,0x3
0031 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0032 0129       | )  |		Execute	Any,Make_Visible
0033 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0035 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0037 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0039 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
003b 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
003d 00e2       |    |		Load_Encached	Integer_Cache
003e 00e2       |    |		Load_Encached	Integer_Cache
003f e004       |    |		Load	0x0,0x4
0040 e005       |    |		Load	0x0,0x5
0041 e006       |    |		Load	0x0,0x6
0042 e007       |    |		Load	0x0,0x7
0043 e008       |    |		Load	0x0,0x8
0044 e21c       |    |		Load	0x1,0x1c
0045 00e3       |    |		Load_Encached	Natural_Cache
0046 e21c       |    |		Load	0x1,0x1c
0047 e008       |    |		Load	0x0,0x8
0048 e009       |    |		Load	0x0,0x9
0049 00e1       |    |		Load_Encached	Boolean_Cache
004a 029f 0913  |    |		Declare_Subprogram	INIT_0910,For_Call
004c 480d       |H   |		Short_Literal	0xd
004d 032e       | .  |		Declare_Type	Record,Defined,Visible
004e 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0050 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0052 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0054 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0056 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
0058 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
005a 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
005c 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
005e 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0060 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0062 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0064 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
0066 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0068 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
006a 4800       |H   |		Short_Literal	0x0
006b 480c       |H   |		Short_Literal	0xc
006c 029f 0423  |   #|		Declare_Subprogram	INIT_0420,For_Call
006e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
006f 4800       |H   |		Short_Literal	0x0
0070 4803       |H   |		Short_Literal	0x3
0071 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
0073 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0074 4800       |H   |		Short_Literal	0x0
0075 4802       |H   |		Short_Literal	0x2
0076 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
0078 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0079 4800       |H   |		Short_Literal	0x0
007a 4802       |H   |		Short_Literal	0x2
007b 029f 049b  |    |		Declare_Subprogram	INIT_0498,For_Call
007d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
007e e003       |    |		Load	0x0,0x3
007f 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0080 00e1       |    |		Load_Encached	Boolean_Cache
0081 e00a       |    |		Load	0x0,0xa
0082 e00b       |    |		Load	0x0,0xb
0083 00e5       |    |		Load_Encached	Long_Integer_Cache
0084 e00c       |    |		Load	0x0,0xc
0085 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0086 e00b       |    |		Load	0x0,0xb
0087 00e5       |    |		Load_Encached	Long_Integer_Cache
0088 00e5       |    |		Load_Encached	Long_Integer_Cache
0089 00e1       |    |		Load_Encached	Boolean_Cache
008a e00c       |    |		Load	0x0,0xc
008b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008c 00e3       |    |		Load_Encached	Natural_Cache
008d e003       |    |		Load	0x0,0x3
008e 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
008f e00c       |    |		Load	0x0,0xc
0090 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0091 00e1       |    |		Load_Encached	Boolean_Cache
0092 00e1       |    |		Load_Encached	Boolean_Cache
0093 00e1       |    |		Load_Encached	Boolean_Cache
0094 00e1       |    |		Load_Encached	Boolean_Cache
0095 00e1       |    |		Load_Encached	Boolean_Cache
0096 e233       | 3  |		Load	0x1,0x33
0097 e234       | 4  |		Load	0x1,0x34
0098 029f 0933  |   3|		Declare_Subprogram	INIT_0930,For_Call
009a 4815       |H   |		Short_Literal	0x15
009b 032e       | .  |		Declare_Type	Record,Defined,Visible
009c 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
009e 00e3       |    |		Load_Encached	Natural_Cache
009f 04ff       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0xff
00a0 e20f       |    |		Load	0x1,0xf
00a1 e232       | 2  |		Load	0x1,0x32
00a2 e003       |    |		Load	0x0,0x3
00a3 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
00a4 00e1       |    |		Load_Encached	Boolean_Cache
00a5 00e1       |    |		Load_Encached	Boolean_Cache
00a6 e004       |    |		Load	0x0,0x4
00a7 e005       |    |		Load	0x0,0x5
00a8 00e1       |    |		Load_Encached	Boolean_Cache
00a9 e004       |    |		Load	0x0,0x4
00aa e005       |    |		Load	0x0,0x5
00ab e007       |    |		Load	0x0,0x7
00ac e008       |    |		Load	0x0,0x8
00ad e00b       |    |		Load	0x0,0xb
00ae 00e3       |    |		Load_Encached	Natural_Cache
00af 00e3       |    |		Load_Encached	Natural_Cache
00b0 00e1       |    |		Load_Encached	Boolean_Cache
00b1 e00d       |    |		Load	0x0,0xd
00b2 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
00b3 e237       | 7  |		Load	0x1,0x37
00b4 e00e       |    |		Load	0x0,0xe
00b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b6 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00b7 0129       | )  |		Execute	Any,Make_Visible
00b8 029f 0943  |   C|		Declare_Subprogram	INIT_0940,For_Call
00ba 4812       |H   |		Short_Literal	0x12
00bb 032e       | .  |		Declare_Type	Record,Defined,Visible
00bc 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
00be 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated
00c0 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
00c2 029a 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call,Visible,Unelaborated
00c4 029a 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Visible,Unelaborated
00c6 029a 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call,Visible,Unelaborated
00c8 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
00ca 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
00cc 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
00ce 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
00d0 029a 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call,Visible,Unelaborated
00d2 029a 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call,Visible,Unelaborated
00d4 029a 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call,Visible,Unelaborated
00d6 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
00d8 029a 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call,Visible,Unelaborated
00da 029a 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call,Visible,Unelaborated
00dc 029a 06db  |    |		Declare_Subprogram	INIT_06d8,For_Outer_Call,Visible,Unelaborated
00de 00e2       |    |		Load_Encached	Integer_Cache
00df 0129       | )  |		Execute	Any,Make_Visible
00e0 029a 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Visible,Unelaborated
00e2 029a 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call,Visible,Unelaborated
00e4 00bf       |    |		Action	Accept_Activation
00e5 0092 0976  |   v|		Action	Push_String_Extended,0x976					; "CACHE_STACK_FRAMES"
00e7 e235       | 5  |		Load	0x1,0x35
00e8 0322       | "  |		Declare_Variable	Record
00e9 00d8       |    |		Load_Top	At_Offset_0
00ea 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00eb 4800       |H   |		Short_Literal	0x0
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ee 4800       |H   |		Short_Literal	0x0
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f1 e00f       |    |		Load	0x0,0xf
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00f4 8010       |    |		Call	0x0,0x10
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00f7 8011       |    |		Call	0x0,0x11
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00fa 4800       |H   |		Short_Literal	0x0
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00fd 8010       |    |		Call	0x0,0x10
00fe 00d9       |    |		Load_Top	At_Offset_1
00ff 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0100 8011       |    |		Call	0x0,0x11
0101 00d9       |    |		Load_Top	At_Offset_1
0102 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0103 8011       |    |		Call	0x0,0x11
0104 00d9       |    |		Load_Top	At_Offset_1
0105 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0106 4800       |H   |		Short_Literal	0x0
0107 00d9       |    |		Load_Top	At_Offset_1
0108 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0109 4800       |H   |		Short_Literal	0x0
010a 00d9       |    |		Load_Top	At_Offset_1
010b 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
010c 4800       |H   |		Short_Literal	0x0
010d 00d9       |    |		Load_Top	At_Offset_1
010e 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
010f 4800       |H   |		Short_Literal	0x0
0110 00d9       |    |		Load_Top	At_Offset_1
0111 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0112 4800       |H   |		Short_Literal	0x0
0113 00d9       |    |		Load_Top	At_Offset_1
0114 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0115 4800       |H   |		Short_Literal	0x0
0116 00d9       |    |		Load_Top	At_Offset_1
0117 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0118 4800       |H   |		Short_Literal	0x0
0119 00d9       |    |		Load_Top	At_Offset_1
011a 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
011b 4800       |H   |		Short_Literal	0x0
011c 00d9       |    |		Load_Top	At_Offset_1
011d 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
011e 4800       |H   |		Short_Literal	0x0
011f 00d9       |    |		Load_Top	At_Offset_1
0120 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0121 4800       |H   |		Short_Literal	0x0
0122 00d9       |    |		Load_Top	At_Offset_1
0123 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
0124 4802       |H   |		Short_Literal	0x2
0125 00d9       |    |		Load_Top	At_Offset_1
0126 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
0127 4802       |H   |		Short_Literal	0x2
0128 00d9       |    |		Load_Top	At_Offset_1
0129 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
012a e238       | 8  |		Load	0x1,0x38
012b 0322       | "  |		Declare_Variable	Record
012c 00d8       |    |		Load_Top	At_Offset_0
012d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
012e 8012       |    |		Call	0x0,0x12
012f 00d9       |    |		Load_Top	At_Offset_1
0130 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0131 4803       |H   |		Short_Literal	0x3
0132 00d9       |    |		Load_Top	At_Offset_1
0133 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0134 4800       |H   |		Short_Literal	0x0
0135 00d9       |    |		Load_Top	At_Offset_1
0136 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0137 4800       |H   |		Short_Literal	0x0
0138 00d9       |    |		Load_Top	At_Offset_1
0139 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
013a 4800       |H   |		Short_Literal	0x0
013b 00d9       |    |		Load_Top	At_Offset_1
013c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
013d e013       |    |		Load	0x0,0x13
013e 00d9       |    |		Load_Top	At_Offset_1
013f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0140 e014       |    |		Load	0x0,0x14
0141 00d9       |    |		Load_Top	At_Offset_1
0142 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0143 4800       |H   |		Short_Literal	0x0
0144 00d9       |    |		Load_Top	At_Offset_1
0145 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0146 e013       |    |		Load	0x0,0x13
0147 00d9       |    |		Load_Top	At_Offset_1
0148 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0149 e014       |    |		Load	0x0,0x14
014a 00d9       |    |		Load_Top	At_Offset_1
014b 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
014c 4800       |H   |		Short_Literal	0x0
014d 00d9       |    |		Load_Top	At_Offset_1
014e 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
014f 8015       |    |		Call	0x0,0x15
0150 00d9       |    |		Load_Top	At_Offset_1
0151 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0152 8010       |    |		Call	0x0,0x10
0153 00d9       |    |		Load_Top	At_Offset_1
0154 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0155 4800       |H   |		Short_Literal	0x0
0156 00d9       |    |		Load_Top	At_Offset_1
0157 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0158 4800       |H   |		Short_Literal	0x0
0159 00d9       |    |		Load_Top	At_Offset_1
015a 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
015b 4800       |H   |		Short_Literal	0x0
015c 00d9       |    |		Load_Top	At_Offset_1
015d 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
015e 00d8       |    |		Load_Top	At_Offset_0
015f 3410       |4   |		Execute	Record,Field_Reference,Field_Number 0x10
0160 487f       |H   |		Short_Literal	0x7f
0161 00d9       |    |		Load_Top	At_Offset_1
0162 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0163 4800       |H   |		Short_Literal	0x0
0164 00d0       |    |		Action	Swap_Control
0165 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0166 e237       | 7  |		Load	0x1,0x37
0167 00ea       |    |		Load_Encached	Null_String_Cache
0168 e00e       |    |		Load	0x0,0xe
0169 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
016a 00d9       |    |		Load_Top	At_Offset_1
016b 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
016c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
016f 00c7       |    |		Action	Elaborate_Subprogram
0170 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0171 00c7       |    |		Action	Elaborate_Subprogram
0172 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0173 00c7       |    |		Action	Elaborate_Subprogram
0174 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0175 00c7       |    |		Action	Elaborate_Subprogram
0176 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0177 00c7       |    |		Action	Elaborate_Subprogram
0178 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0179 00c7       |    |		Action	Elaborate_Subprogram
017a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
017b 00c7       |    |		Action	Elaborate_Subprogram
017c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
017d 00c7       |    |		Action	Elaborate_Subprogram
017e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
017f 00c7       |    |		Action	Elaborate_Subprogram
0180 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0181 00c7       |    |		Action	Elaborate_Subprogram
0182 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0183 00c7       |    |		Action	Elaborate_Subprogram
0184 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0185 00c7       |    |		Action	Elaborate_Subprogram
0186 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0187 00c7       |    |		Action	Elaborate_Subprogram
0188 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0189 00c7       |    |		Action	Elaborate_Subprogram
018a 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
018b 00c7       |    |		Action	Elaborate_Subprogram
018c 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
018d 00c7       |    |		Action	Elaborate_Subprogram
018e 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
018f 00c7       |    |		Action	Elaborate_Subprogram
0190 029d 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Outer_Call
0192 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0193 00c7       |    |		Action	Elaborate_Subprogram
0194 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0195 00c7       |    |		Action	Elaborate_Subprogram
0196 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0197 00c7       |    |		Action	Elaborate_Subprogram
0198 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0199 00c7       |    |		Action	Elaborate_Subprogram
019a 029d 0763  |   c|		Declare_Subprogram	INIT_0760,For_Outer_Call
019c 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
019d 00c7       |    |		Action	Elaborate_Subprogram
019e 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
019f 00c7       |    |		Action	Elaborate_Subprogram
01a0 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
01a1 00c7       |    |		Action	Elaborate_Subprogram
01a2 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
01a3 00c7       |    |		Action	Elaborate_Subprogram
01a4 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
01a5 00c7       |    |		Action	Elaborate_Subprogram
01a6 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
01a7 00c7       |    |		Action	Elaborate_Subprogram
01a8 029d 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call
01aa 029d 0783  |    |		Declare_Subprogram	INIT_0780,For_Outer_Call
01ac 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
01ad 00c7       |    |		Action	Elaborate_Subprogram
01ae 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
01af 00c7       |    |		Action	Elaborate_Subprogram
01b0 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
01b1 00c7       |    |		Action	Elaborate_Subprogram
01b2 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
01b3 00c7       |    |		Action	Elaborate_Subprogram
01b4 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
01b5 00c7       |    |		Action	Elaborate_Subprogram
01b6 029d 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call
01b8 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
01b9 00c7       |    |		Action	Elaborate_Subprogram
01ba 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
01bb 00c7       |    |		Action	Elaborate_Subprogram
01bc 029d 07db  |    |		Declare_Subprogram	INIT_07d8,For_Outer_Call
01be 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
01bf 00c7       |    |		Action	Elaborate_Subprogram
01c0 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
01c1 00c7       |    |		Action	Elaborate_Subprogram
01c2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01c3 00c7       |    |		Action	Elaborate_Subprogram
01c4 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
01c5 00c7       |    |		Action	Elaborate_Subprogram
01c6 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
01c7 00c7       |    |		Action	Elaborate_Subprogram
01c8 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
01c9 00c7       |    |		Action	Elaborate_Subprogram
01ca 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
01cb 00c7       |    |		Action	Elaborate_Subprogram
01cc 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
01cd 00c7       |    |		Action	Elaborate_Subprogram
01ce 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
01cf 00c7       |    |		Action	Elaborate_Subprogram
01d0 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01d1 00c7       |    |		Action	Elaborate_Subprogram
01d2 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
01d3 00c7       |    |		Action	Elaborate_Subprogram
01d4 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
01d5 00c7       |    |		Action	Elaborate_Subprogram
01d6 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
01d7 00c7       |    |		Action	Elaborate_Subprogram
01d8 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
01d9 00c7       |    |		Action	Elaborate_Subprogram
01da 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
01db 00c7       |    |		Action	Elaborate_Subprogram
01dc			BODY_0008:
01dc 00bc       |    |		Action	Signal_Activated
01dd 00bb       |    |		Action	Signal_Completion
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 8012       |    |		Call	0x0,0x12
01e4 00ca       |    |		Action	Exit_Nullary_Function
01e5 0000 0000  |    |		.XXX[0x3]
01e7 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
01ec 8016       |    |		Call	0x0,0x16
01ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ee 0000 0000  |    |		.XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4801       |H   |		Short_Literal	0x1
01f4 4800       |H   |		Short_Literal	0x0
01f5 e212       |    |		Load	0x1,0x12
01f6 0334       | 4  |		Declare_Variable	Array,With_Constraint
01f7 00ca       |    |		Action	Exit_Nullary_Function
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 01db       |    |		Execute	Vector,Length
01fd 0f00       |    |		Execute_Immediate	Equal,0x0
01fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ff 0000       |    |		.XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2
0204 8017       |    |		Call	0x0,0x17
0205 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0206 0000 0000  |    |		.XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 8018       |    |		Call	0x0,0x18
020d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0215 0000 0000  |    |		.XXX[0x3]
0217 0000       |    |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2
0224 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0225 0000 0000  |    |		.XXX[0x3]
0227 0000       |    |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c 00d8       |    |		Load_Top	At_Offset_0
022d e20f       |    |		Load	0x1,0xf
022e 0260       | `  |		Execute	Discrete,In_Type
022f 7001       |p   |		Jump_Nonzero	0x231
0230 0801       |    |		Execute_Immediate	Raise,0x1
0231 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0232 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
023c 8019       |    |		Call	0x0,0x19
023d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 801a       |    |		Call	0x0,0x1a
0244 00ca       |    |		Action	Exit_Nullary_Function
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c 801b       |    |		Call	0x0,0x1b
024d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024e 0000 0000  |    |		.XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 801c       |    |		Call	0x0,0x1c
0255 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 00d8       |    |		Load_Top	At_Offset_0
025d 0120       |    |		Execute	Any,Is_Value
025e 7002       |p   |		Jump_Nonzero	0x261
025f 00d8       |    |		Load_Top	At_Offset_0
0260 011e       |    |		Execute	Any,Convert
0261 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0262 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
026c 00d8       |    |		Load_Top	At_Offset_0
026d 0120       |    |		Execute	Any,Is_Value
026e 7002       |p   |		Jump_Nonzero	0x271
026f 00d8       |    |		Load_Top	At_Offset_0
0270 011e       |    |		Execute	Any,Convert
0271 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0272 0000 0000  |    |		.BLANK	0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b e222       | "  |		Load	0x1,0x22
027c 0322       | "  |		Declare_Variable	Record
027d 00d8       |    |		Load_Top	At_Offset_0
027e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
027f 4800       |H   |		Short_Literal	0x0
0280 00d9       |    |		Load_Top	At_Offset_1
0281 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0282 4800       |H   |		Short_Literal	0x0
0283 00d9       |    |		Load_Top	At_Offset_1
0284 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0285 e013       |    |		Load	0x0,0x13
0286 00d9       |    |		Load_Top	At_Offset_1
0287 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0288 e014       |    |		Load	0x0,0x14
0289 00d9       |    |		Load_Top	At_Offset_1
028a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028b e01d       |    |		Load	0x0,0x1d
028c 00d9       |    |		Load_Top	At_Offset_1
028d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
028e 4800       |H   |		Short_Literal	0x0
028f 00d9       |    |		Load_Top	At_Offset_1
0290 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0291 8015       |    |		Call	0x0,0x15
0292 00d9       |    |		Load_Top	At_Offset_1
0293 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0294 821d       |    |		Call	0x1,0x1d
0295 e222       | "  |		Load	0x1,0x22
0296 3007       |0   |		Execute	Record,Field_Type,Field_Number 0x7
0297 0119       |    |		Execute	Any,Check_In_Formal_Type
0298 00d9       |    |		Load_Top	At_Offset_1
0299 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
029a 4800       |H   |		Short_Literal	0x0
029b 00d9       |    |		Load_Top	At_Offset_1
029c 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
029d 821d       |    |		Call	0x1,0x1d
029e e222       | "  |		Load	0x1,0x22
029f 3009       |0   |		Execute	Record,Field_Type,Field_Number 0x9
02a0 0119       |    |		Execute	Any,Check_In_Formal_Type
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02a3 8015       |    |		Call	0x0,0x15
02a4 00d9       |    |		Load_Top	At_Offset_1
02a5 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
02a6 480d       |H   |		Short_Literal	0xd
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
02a9 4801       |H   |		Short_Literal	0x1
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
02ac 00ca       |    |		Action	Exit_Nullary_Function
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 4801       |H   |		Short_Literal	0x1
02b4 e24d       | M  |		Load	0x1,0x4d
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 e01e       |    |		Load	0x0,0x1e
02b7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02b8 6805       |h   |		Jump_Zero	0x2be
02b9 e5fd       |    |		Load	0x2,-0x3
02ba e5fe       |    |		Load	0x2,-0x2
02bb e5ff       |    |		Load	0x2,-0x1
02bc 801f       |    |		Call	0x0,0x1f
02bd c5fd       |    |		Store	0x2,-0x3
02be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02cd       |    |		.CONST	0x02cd								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0005       |    |		.CONST	0x0005								; Number of locals
02c3			INIT_02c0:
02c3 e007       |    |		Load	0x0,0x7
02c4 0007       |    |		Action	Break_Optional
02c5 e020       |    |		Load	0x0,0x20
02c6 0322       | "  |		Declare_Variable	Record
02c7 00d8       |    |		Load_Top	At_Offset_0
02c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c9 e006       |    |		Load	0x0,0x6
02ca 0322       | "  |		Declare_Variable	Record
02cb 029f 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Call
02cd			BODY_02c0:
02cd e014       |    |		Load	0x0,0x14
02ce a5fd       |    |		Store_Unchecked	0x2,-0x3
02cf e013       |    |		Load	0x0,0x13
02d0 e5fe       |    |		Load	0x2,-0x2
02d1 017d       | }  |		Execute	Record,Structure_Write
02d2 e5fa       |    |		Load	0x2,-0x6
02d3 e5fb       |    |		Load	0x2,-0x5
02d4 00e1       |    |		Load_Encached	Boolean_Cache
02d5 e007       |    |		Load	0x0,0x7
02d6 e404       |    |		Load	0x2,0x4
02d7 e403       |    |		Load	0x2,0x3
02d8 e5ff       |    |		Load	0x2,-0x1
02d9 8021       | !  |		Call	0x0,0x21
02da 00d2       |    |		Pop_Control	Pop_Count_2
02db c402       |    |		Store	0x2,0x2
02dc c5fc       |    |		Store	0x2,-0x4
02dd 00d1       |    |		Pop_Control	Pop_Count_1
02de c5fa       |    |		Store	0x2,-0x6
02df 4802       |H   |		Short_Literal	0x2
02e0 e5fa       |    |		Load	0x2,-0x6
02e1 e022       | "  |		Load	0x0,0x22
02e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e3 7001       |p   |		Jump_Nonzero	0x2e5
02e4 8405       |    |		Call	0x2,0x5
02e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f1       |    |		.CONST	0x02f1								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0003       |    |		.CONST	0x0003								; Number of locals
02eb			INIT_02e8:
02eb e020       |    |		Load	0x0,0x20
02ec 0322       | "  |		Declare_Variable	Record
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ef e006       |    |		Load	0x0,0x6
02f0 0322       | "  |		Declare_Variable	Record
02f1			BODY_02e8:
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 8023       | #  |		Call	0x0,0x23
02f3 681d       |h   |		Jump_Zero	0x311
02f4 e5fc       |    |		Load	0x2,-0x4
02f5 e5fd       |    |		Load	0x2,-0x3
02f6 e5fe       |    |		Load	0x2,-0x2
02f7 e5ff       |    |		Load	0x2,-0x1
02f8 8024       | $  |		Call	0x0,0x24
02f9 00d1       |    |		Pop_Control	Pop_Count_1
02fa c5fc       |    |		Store	0x2,-0x4
02fb 4802       |H   |		Short_Literal	0x2
02fc e5fc       |    |		Load	0x2,-0x4
02fd e022       | "  |		Load	0x0,0x22
02fe 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02ff 6810       |h   |		Jump_Zero	0x310
0300 e5fc       |    |		Load	0x2,-0x4
0301 e5fd       |    |		Load	0x2,-0x3
0302 e5fe       |    |		Load	0x2,-0x2
0303 e5ff       |    |		Load	0x2,-0x1
0304 8250       | P  |		Call	0x1,0x50
0305 00d1       |    |		Pop_Control	Pop_Count_1
0306 c5fc       |    |		Store	0x2,-0x4
0307 4802       |H   |		Short_Literal	0x2
0308 e5fc       |    |		Load	0x2,-0x4
0309 e022       | "  |		Load	0x0,0x22
030a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
030b 7004       |p   |		Jump_Nonzero	0x310
030c e5fd       |    |		Load	0x2,-0x3
030d e5fe       |    |		Load	0x2,-0x2
030e e5ff       |    |		Load	0x2,-0x1
030f 8025       | %  |		Call	0x0,0x25
0310 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0311 e5fc       |    |		Load	0x2,-0x4
0312 e5fd       |    |		Load	0x2,-0x3
0313 e5fe       |    |		Load	0x2,-0x2
0314 e5ff       |    |		Load	0x2,-0x1
0315 8250       | P  |		Call	0x1,0x50
0316 00d1       |    |		Pop_Control	Pop_Count_1
0317 c5fc       |    |		Store	0x2,-0x4
0318 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0319 0000 0000  |    |		.BLANK	0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 0092 0977  |   w|		Action	Push_String_Extended,0x977					; ", Lex ="
0325 00db       |    |		Load_Top	At_Offset_3
0326 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0327 00e0       |    |		Load_Encached	Standard_Cache
0328 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0329 01cc       |    |		Execute	Vector,Catenate
032a 0092 0978  |   x|		Action	Push_String_Extended,0x978					; ", Outer = "
032c 01cc       |    |		Execute	Vector,Catenate
032d 00db       |    |		Load_Top	At_Offset_3
032e 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
032f 821e       |    |		Call	0x1,0x1e
0330 01cc       |    |		Execute	Vector,Catenate
0331 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0332 0000 0000  |    |		.BLANK	0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b e5fb       |    |		Load	0x2,-0x5
033c 00e3       |    |		Load_Encached	Natural_Cache
033d e5ff       |    |		Load	0x2,-0x1
033e 8026       | &  |		Call	0x0,0x26
033f c5fd       |    |		Store	0x2,-0x3
0340 c5fb       |    |		Store	0x2,-0x5
0341 4801       |H   |		Short_Literal	0x1
0342 a5fc       |    |		Store_Unchecked	0x2,-0x4
0343 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0344 0000 0000  |    |		.BLANK	0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d       | M  |		.CONST	0x034d								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b e003       |    |		Load	0x0,0x3
034c 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
034d			BODY_0348:
034d e5fb       |    |		Load	0x2,-0x5
034e e003       |    |		Load	0x0,0x3
034f 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0350 00e1       |    |		Load_Encached	Boolean_Cache
0351 e5fe       |    |		Load	0x2,-0x2
0352 e5ff       |    |		Load	0x2,-0x1
0353 8027       | '  |		Call	0x0,0x27
0354 c5fe       |    |		Store	0x2,-0x2
0355 c5fd       |    |		Store	0x2,-0x3
0356 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0357 c5fb       |    |		Store	0x2,-0x5
0358 00d8       |    |		Load_Top	At_Offset_0
0359 a5fc       |    |		Store_Unchecked	0x2,-0x4
035a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
035b 0000 0000  |    |		.BLANK	0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0370       | p  |		.CONST	0x0370								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0007       |    |		.CONST	0x0007								; Number of locals
0363			INIT_0360:
0363 e003       |    |		Load	0x0,0x3
0364 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0365 e003       |    |		Load	0x0,0x3
0366 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0367 00e5       |    |		Load_Encached	Long_Integer_Cache
0368 e020       |    |		Load	0x0,0x20
0369 0322       | "  |		Declare_Variable	Record
036a 00d8       |    |		Load_Top	At_Offset_0
036b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
036c e006       |    |		Load	0x0,0x6
036d 0322       | "  |		Declare_Variable	Record
036e 029f 0803  |    |		Declare_Subprogram	INIT_0800,For_Call
0370			BODY_0360:
0370 e013       |    |		Load	0x0,0x13
0371 e5f8       |    |		Load	0x2,-0x8
0372 017d       | }  |		Execute	Record,Structure_Write
0373 e014       |    |		Load	0x0,0x14
0374 a5f7       |    |		Store_Unchecked	0x2,-0x9
0375 e5f4       |    |		Load	0x2,-0xc
0376 e009       |    |		Load	0x0,0x9
0377 e007       |    |		Load	0x0,0x7
0378 e406       |    |		Load	0x2,0x6
0379 e405       |    |		Load	0x2,0x5
037a 00e5       |    |		Load_Encached	Long_Integer_Cache
037b e003       |    |		Load	0x0,0x3
037c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037d e003       |    |		Load	0x0,0x3
037e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037f 00e1       |    |		Load_Encached	Boolean_Cache
0380 00e1       |    |		Load_Encached	Boolean_Cache
0381 e5fe       |    |		Load	0x2,-0x2
0382 e5ff       |    |		Load	0x2,-0x1
0383 8028       | (  |		Call	0x0,0x28
0384 c5fe       |    |		Store	0x2,-0x2
0385 c5fd       |    |		Store	0x2,-0x3
0386 c5fc       |    |		Store	0x2,-0x4
0387 c402       |    |		Store	0x2,0x2
0388 c403       |    |		Store	0x2,0x3
0389 c404       |    |		Store	0x2,0x4
038a 00d2       |    |		Pop_Control	Pop_Count_2
038b c5f6       |    |		Store	0x2,-0xa
038c c5f5       |    |		Store	0x2,-0xb
038d c5f4       |    |		Store	0x2,-0xc
038e 4802       |H   |		Short_Literal	0x2
038f e5f4       |    |		Load	0x2,-0xc
0390 e022       | "  |		Load	0x0,0x22
0391 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0392 700b       |p   |		Jump_Nonzero	0x39e
0393 e402       |    |		Load	0x2,0x2
0394 8029       | )  |		Call	0x0,0x29
0395 a5fb       |    |		Store_Unchecked	0x2,-0x5
0396 e403       |    |		Load	0x2,0x3
0397 8029       | )  |		Call	0x0,0x29
0398 a5fa       |    |		Store_Unchecked	0x2,-0x6
0399 00db       |    |		Load_Top	At_Offset_3
039a 802a       | *  |		Call	0x0,0x2a
039b a5f9       |    |		Store_Unchecked	0x2,-0x7
039c 8407       |    |		Call	0x2,0x7
039d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
039e 8015       |    |		Call	0x0,0x15
039f a5fb       |    |		Store_Unchecked	0x2,-0x5
03a0 8015       |    |		Call	0x0,0x15
03a1 a5fa       |    |		Store_Unchecked	0x2,-0x6
03a2 8010       |    |		Call	0x0,0x10
03a3 a5f9       |    |		Store_Unchecked	0x2,-0x7
03a4 e014       |    |		Load	0x0,0x14
03a5 a5f7       |    |		Store_Unchecked	0x2,-0x9
03a6 e013       |    |		Load	0x0,0x13
03a7 e5f8       |    |		Load	0x2,-0x8
03a8 017d       | }  |		Execute	Record,Structure_Write
03a9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03aa 0000 0000  |    |		.BLANK	0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 802b       | +  |		Call	0x0,0x2b
03b5 a5fe       |    |		Store_Unchecked	0x2,-0x2
03b6 e5fd       |    |		Load	0x2,-0x3
03b7 e022       | "  |		Load	0x0,0x22
03b8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03b9 c5fd       |    |		Store	0x2,-0x3
03ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03bb 0000 0000  |    |		.BLANK	0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 00da       |    |		Load_Top	At_Offset_2
03c4 802b       | +  |		Call	0x0,0x2b
03c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03c6 0000 0000  |    |		.XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc e003       |    |		Load	0x0,0x3
03cd 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
03ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03cf 0000       |    |		.XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 e003       |    |		Load	0x0,0x3
03d5 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
03d6 0f07       |    |		Execute_Immediate	Equal,0x7
03d7 0f00       |    |		Execute_Immediate	Equal,0x0
03d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d9 0000 0000  |    |		.BLANK	0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03f1       |    |		.CONST	0x03f1								; Address of begin
03e1 0415       |    |		.CONST	0x0415								; Address of exception handler
03e2 0005       |    |		.CONST	0x0005								; Number of locals
03e3			INIT_03e0:
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 e002       |    |		Load	0x0,0x2
03e5 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
03e6 03f1       |    |		Declare_Variable	Discrete,With_Value
03e7 e5fe       |    |		Load	0x2,-0x2
03e8 e002       |    |		Load	0x0,0x2
03e9 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
03ea 03f1       |    |		Declare_Variable	Discrete,With_Value
03eb e5fd       |    |		Load	0x2,-0x3
03ec e002       |    |		Load	0x0,0x2
03ed 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
03ee 03f1       |    |		Declare_Variable	Discrete,With_Value
03ef e002       |    |		Load	0x0,0x2
03f0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
03f1			BODY_03e0:
03f1 00da       |    |		Load_Top	At_Offset_2
03f2 e003       |    |		Load	0x0,0x3
03f3 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
03f4 0b03       |    |		Execute_Immediate	Case_Compare,0x3
03f5 7004       |p   |		Jump_Nonzero	0x3fa
03f6 0f01       |    |		Execute_Immediate	Equal,0x1
03f7 7003       |p   |		Jump_Nonzero	0x3fb
03f8 4800       |H   |		Short_Literal	0x0
03f9 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03fa 00d1       |    |		Pop_Control	Pop_Count_1
03fb 00db       |    |		Load_Top	At_Offset_3
03fc 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03fd 00cf       |    |		Action	Mark_Auxiliary
03fe 00d9       |    |		Load_Top	At_Offset_1
03ff e403       |    |		Load	0x2,0x3
0400 027f       |    |		Execute	Discrete,Equal
0401 6802       |h   |		Jump_Zero	0x404
0402 4801       |H   |		Short_Literal	0x1
0403 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0404 00da       |    |		Load_Top	At_Offset_2
0405 00da       |    |		Load_Top	At_Offset_2
0406 8253       | S  |		Call	0x1,0x53
0407 6802       |h   |		Jump_Zero	0x40a
0408 4800       |H   |		Short_Literal	0x0
0409 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
040a 00d9       |    |		Load_Top	At_Offset_1
040b e003       |    |		Load	0x0,0x3
040c 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
040d 7002       |p   |		Jump_Nonzero	0x410
040e 4800       |H   |		Short_Literal	0x0
040f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0410 00d9       |    |		Load_Top	At_Offset_1
0411 8252       | R  |		Call	0x1,0x52
0412 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0413 00c9       |    |		Action	Pop_Auxiliary_Loop
0414 7fe9       |    |		Jump	0x3fe
0415			TRAP_03e0:
0415 0007       |    |		Action	Break_Optional
0416 4800       |H   |		Short_Literal	0x0
0417 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c e02c       | ,  |		Load	0x0,0x2c
041d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
041e c5fd       |    |		Store	0x2,-0x3
041f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 4607       |F   |		Jump_Case	0x8
0424 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0425 7807       |x   |		Jump	0x42d								; case 0x1
0426 780a       |x   |		Jump	0x431								; case 0x2
0427 780e       |x   |		Jump	0x436								; case 0x3
0428 7811       |x   |		Jump	0x43a								; case 0x4
0429 7812       |x   |		Jump	0x43c								; case 0x5
042a 7813       |x   |		Jump	0x43e								; case 0x6
042b 7816       |x   |		Jump	0x442								; case 0x7
042c 4302       |C   |		.XXX[0x1]
042d 00da       |    |		Load_Top	At_Offset_2
042e 0091 095d  |   ]|		Action	Push_String_Extended_Indexed,0x95d				; "BREAK"
0430 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0431 00db       |    |		Load_Top	At_Offset_3
0432 00db       |    |		Load_Top	At_Offset_3
0433 00e0       |    |		Load_Encached	Standard_Cache
0434 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0435 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0436 00da       |    |		Load_Top	At_Offset_2
0437 00e0       |    |		Load_Encached	Standard_Cache
0438 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0439 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
043a 00db       |    |		Load_Top	At_Offset_3
043b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043c 00db       |    |		Load_Top	At_Offset_3
043d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043e e231       | 1  |		Load	0x1,0x31
043f 00dc       |    |		Load_Top	At_Offset_4
0440 0267       | g  |		Execute	Discrete,Predecessor
0441 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0442 e231       | 1  |		Load	0x1,0x31
0443 00dc       |    |		Load_Top	At_Offset_4
0444 0268       | h  |		Execute	Discrete,Successor
0445 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0446 0000 0000  |    |		.XXX[0x2]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 4607       |F   |		Jump_Case	0x8
044c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
044d 7807       |x   |		Jump	0x455								; case 0x1
044e 780a       |x   |		Jump	0x459								; case 0x2
044f 780e       |x   |		Jump	0x45e								; case 0x3
0450 7811       |x   |		Jump	0x462								; case 0x4
0451 7812       |x   |		Jump	0x464								; case 0x5
0452 7813       |x   |		Jump	0x466								; case 0x6
0453 7816       |x   |		Jump	0x46a								; case 0x7
0454 4302       |C   |		.XXX[0x1]
0455 00da       |    |		Load_Top	At_Offset_2
0456 0091 096a  |   j|		Action	Push_String_Extended_Indexed,0x96a				; "STOPPED"
0458 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0459 00db       |    |		Load_Top	At_Offset_3
045a 00db       |    |		Load_Top	At_Offset_3
045b 00e0       |    |		Load_Encached	Standard_Cache
045c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
045d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045e 00da       |    |		Load_Top	At_Offset_2
045f 00e0       |    |		Load_Encached	Standard_Cache
0460 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0461 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0462 00db       |    |		Load_Top	At_Offset_3
0463 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0464 00db       |    |		Load_Top	At_Offset_3
0465 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0466 e232       | 2  |		Load	0x1,0x32
0467 00dc       |    |		Load_Top	At_Offset_4
0468 0267       | g  |		Execute	Discrete,Predecessor
0469 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046a e232       | 2  |		Load	0x1,0x32
046b 00dc       |    |		Load_Top	At_Offset_4
046c 0268       | h  |		Execute	Discrete,Successor
046d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
046e 0000 0000  |    |		.XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 4607       |F   |		Jump_Case	0x8
0474 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0475 7807       |x   |		Jump	0x47d								; case 0x1
0476 780a       |x   |		Jump	0x481								; case 0x2
0477 780e       |x   |		Jump	0x486								; case 0x3
0478 7811       |x   |		Jump	0x48a								; case 0x4
0479 7812       |x   |		Jump	0x48c								; case 0x5
047a 7813       |x   |		Jump	0x48e								; case 0x6
047b 7816       |x   |		Jump	0x492								; case 0x7
047c 4302       |C   |		.XXX[0x1]
047d 00da       |    |		Load_Top	At_Offset_2
047e 0091 096e  |   n|		Action	Push_String_Extended_Indexed,0x96e				; "INFORM"
0480 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0481 00db       |    |		Load_Top	At_Offset_3
0482 00db       |    |		Load_Top	At_Offset_3
0483 00e0       |    |		Load_Encached	Standard_Cache
0484 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0485 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0486 00da       |    |		Load_Top	At_Offset_2
0487 00e0       |    |		Load_Encached	Standard_Cache
0488 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0489 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
048a 00db       |    |		Load_Top	At_Offset_3
048b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
048c 00db       |    |		Load_Top	At_Offset_3
048d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
048e e233       | 3  |		Load	0x1,0x33
048f 00dc       |    |		Load_Top	At_Offset_4
0490 0267       | g  |		Execute	Discrete,Predecessor
0491 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0492 e233       | 3  |		Load	0x1,0x33
0493 00dc       |    |		Load_Top	At_Offset_4
0494 0268       | h  |		Execute	Discrete,Successor
0495 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0496 0000 0000  |    |		.XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 4607       |F   |		Jump_Case	0x8
049c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
049d 7807       |x   |		Jump	0x4a5								; case 0x1
049e 780a       |x   |		Jump	0x4a9								; case 0x2
049f 780e       |x   |		Jump	0x4ae								; case 0x3
04a0 7811       |x   |		Jump	0x4b2								; case 0x4
04a1 7812       |x   |		Jump	0x4b4								; case 0x5
04a2 7813       |x   |		Jump	0x4b6								; case 0x6
04a3 7816       |x   |		Jump	0x4ba								; case 0x7
04a4 4302       |C   |		.XXX[0x1]
04a5 00da       |    |		Load_Top	At_Offset_2
04a6 0091 0971  |   q|		Action	Push_String_Extended_Indexed,0x971				; "CONTINUE"
04a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04a9 00db       |    |		Load_Top	At_Offset_3
04aa 00db       |    |		Load_Top	At_Offset_3
04ab 00e0       |    |		Load_Encached	Standard_Cache
04ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04ae 00da       |    |		Load_Top	At_Offset_2
04af 00e0       |    |		Load_Encached	Standard_Cache
04b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04b1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04b2 00db       |    |		Load_Top	At_Offset_3
04b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04b4 00db       |    |		Load_Top	At_Offset_3
04b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04b6 e234       | 4  |		Load	0x1,0x34
04b7 00dc       |    |		Load_Top	At_Offset_4
04b8 0267       | g  |		Execute	Discrete,Predecessor
04b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04ba e234       | 4  |		Load	0x1,0x34
04bb 00dc       |    |		Load_Top	At_Offset_4
04bc 0268       | h  |		Execute	Discrete,Successor
04bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04be 0000 0000  |    |		.XXX[0x2]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 e24e       | N  |		Load	0x1,0x4e
04c4 00ca       |    |		Action	Exit_Nullary_Function
04c5 0000 0000  |    |		.XXX[0x3]
04c7 0000       |    |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb e24f       | O  |		Load	0x1,0x4f
04cc 00ca       |    |		Action	Exit_Nullary_Function
04cd 0000 0000  |    |		.XXX[0x3]
04cf 0000       |    |
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 00ea       |    |		Load_Encached	Null_String_Cache
04d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d5 0000 0000  |    |		.XXX[0x3]
04d7 0000       |    |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04f1       |    |		.CONST	0x04f1								; Address of begin
04d9 0507       |    |		.CONST	0x0507								; Address of exception handler
04da 0009       |    |		.CONST	0x0009								; Number of locals
04db			INIT_04d8:
04db 029f 0813  |    |		Declare_Subprogram	INIT_0810,For_Call
04dd a02d       | -  |		Store_Unchecked	0x0,0x2d
04de 00c6       |    |		Action	Check_Subprogram_Elaborated
04df e238       | 8  |		Load	0x1,0x38
04e0 00e2       |    |		Load_Encached	Integer_Cache
04e1 4802       |H   |		Short_Literal	0x2
04e2 4802       |H   |		Short_Literal	0x2
04e3 0099       |    |		Action	Reference_Dynamic
04e4 4800       |H   |		Short_Literal	0x0
04e5 0093 0000  |    |		push_full_address	0x0
04e7 602c       |`,  |		Indirect_Literal	Discrete,0x514,{0x80000000, 0x00010000}
04e8 0273       | s  |		Execute	Discrete,Plus
04e9 e02e       | .  |		Load	0x0,0x2e
04ea 0273       | s  |		Execute	Discrete,Plus
04eb e02f       | /  |		Load	0x0,0x2f
04ec 0273       | s  |		Execute	Discrete,Plus
04ed 4808       |H   |		Short_Literal	0x8
04ee 0007       |    |		Action	Break_Optional
04ef 00e2       |    |		Load_Encached	Integer_Cache
04f0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
04f1			BODY_04d8:
04f1 e5fc       |    |		Load	0x2,-0x4
04f2 e022       | "  |		Load	0x0,0x22
04f3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04f4 c5fc       |    |		Store	0x2,-0x4
04f5 8239       | 9  |		Call	0x1,0x39
04f6 e5fd       |    |		Load	0x2,-0x3
04f7 017d       | }  |		Execute	Record,Structure_Write
04f8 00d8       |    |		Load_Top	At_Offset_0
04f9 e5ff       |    |		Load	0x2,-0x1
04fa e403       |    |		Load	0x2,0x3
04fb e404       |    |		Load	0x2,0x4
04fc 4805       |H   |		Short_Literal	0x5
04fd 4802       |H   |		Short_Literal	0x2
04fe 0099       |    |		Action	Reference_Dynamic
04ff e406       |    |		Load	0x2,0x6
0500 4807       |H   |		Short_Literal	0x7
0501 4802       |H   |		Short_Literal	0x2
0502 0099       |    |		Action	Reference_Dynamic
0503 802d       | -  |		Call	0x0,0x2d
0504 e5fd       |    |		Load	0x2,-0x3
0505 017d       | }  |		Execute	Record,Structure_Write
0506 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0507			TRAP_04d8:
0507 0007       |    |		Action	Break_Optional
0508 e5fc       |    |		Load	0x2,-0x4
0509 0092 0979  |   y|		Action	Push_String_Extended,0x979					; "Exception in Get_One_Task_State: "
050b e030       | 0  |		Load	0x0,0x30
050c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
050d 01cc       |    |		Execute	Vector,Catenate
050e e022       | "  |		Load	0x0,0x22
050f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0510 c5fc       |    |		Store	0x2,-0x4
0511 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0512 0000 0000  |    |		.XXX[0x2]
0514 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0523       | #  |		.CONST	0x0523								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0005       |    |		.CONST	0x0005								; Number of locals
051b			INIT_0518:
051b 029f 082b  |   +|		Declare_Subprogram	INIT_0828,For_Call
051d e031       | 1  |		Load	0x0,0x31
051e 0007       |    |		Action	Break_Optional
051f e20f       |    |		Load	0x1,0xf
0520 0007       |    |		Action	Break_Optional
0521 00e1       |    |		Load_Encached	Boolean_Cache
0522 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0523			BODY_0518:
0523 e031       | 1  |		Load	0x0,0x31
0524 8032       | 2  |		Call	0x0,0x32
0525 003b       | ;  |		Store_Top	Access,At_Offset_3
0526 00cf       |    |		Action	Mark_Auxiliary
0527 781c       |x   |		Jump	0x544
0528 00db       |    |		Load_Top	At_Offset_3
0529 8033       | 3  |		Call	0x0,0x33
052a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
052b e5f9       |    |		Load	0x2,-0x7
052c e5fb       |    |		Load	0x2,-0x5
052d 0119       |    |		Execute	Any,Check_In_Formal_Type
052e 00db       |    |		Load_Top	At_Offset_3
052f 8402       |    |		Call	0x2,0x2
0530 680f       |h   |		Jump_Zero	0x540
0531 00e1       |    |		Load_Encached	Boolean_Cache
0532 0122       | "  |		Execute	Any,Make_Root_Type
0533 e5f8       |    |		Load	0x2,-0x8
0534 00d8       |    |		Load_Top	At_Offset_0
0535 0120       |    |		Execute	Any,Is_Value
0536 6803       |h   |		Jump_Zero	0x53a
0537 e5fc       |    |		Load	0x2,-0x4
0538 0122       | "  |		Execute	Any,Make_Root_Type
0539 011e       |    |		Execute	Any,Convert
053a e404       |    |		Load	0x2,0x4
053b 85fe       |    |		Call	0x2,-0x2
053c c5f8       |    |		Store	0x2,-0x8
053d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
053e 00d9       |    |		Load_Top	At_Offset_1
053f 7007       |p   |		Jump_Nonzero	0x547
0540 00db       |    |		Load_Top	At_Offset_3
0541 8034       | 4  |		Call	0x0,0x34
0542 c403       |    |		Store	0x2,0x3
0543 00c9       |    |		Action	Pop_Auxiliary_Loop
0544 00db       |    |		Load_Top	At_Offset_3
0545 8035       | 5  |		Call	0x0,0x35
0546 6fe1       |o   |		Jump_Zero	0x528
0547 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054f       | O  |		.CONST	0x054f								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0003       |    |		.CONST	0x0003								; Number of locals
054b			INIT_0548:
054b e031       | 1  |		Load	0x0,0x31
054c 0007       |    |		Action	Break_Optional
054d 029f 0853  |   S|		Declare_Subprogram	INIT_0850,For_Call
054f			BODY_0548:
054f e031       | 1  |		Load	0x0,0x31
0550 8032       | 2  |		Call	0x0,0x32
0551 003a       | :  |		Store_Top	Access,At_Offset_2
0552 8403       |    |		Call	0x2,0x3
0553 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0554 0000 0000  |    |		.BLANK	0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 055e       | ^  |		.CONST	0x055e								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 00da       |    |		Load_Top	At_Offset_2
055c 8036       | 6  |		Call	0x0,0x36
055d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055e			TRAP_0558:
055e 0007       |    |		Action	Break_Optional
055f 4800       |H   |		Short_Literal	0x0
0560 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0561 0000 0000  |    |		.BLANK	0000[0x7]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 056e       | n  |		.CONST	0x056e								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c 8037       | 7  |		Call	0x0,0x37
056d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
056e			TRAP_0568:
056e 0007       |    |		Action	Break_Optional
056f 8210       |    |		Call	0x1,0x10
0570 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0571 0000 0000  |    |		.BLANK	0000[0x7]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 057e       | ~  |		.CONST	0x057e								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b 00da       |    |		Load_Top	At_Offset_2
057c 8038       | 8  |		Call	0x0,0x38
057d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
057e			TRAP_0578:
057e 0007       |    |		Action	Break_Optional
057f 00ea       |    |		Load_Encached	Null_String_Cache
0580 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0581 0000 0000  |    |		.BLANK	0000[0x7]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b 00db       |    |		Load_Top	At_Offset_3
058c 00db       |    |		Load_Top	At_Offset_3
058d 8039       | 9  |		Call	0x0,0x39
058e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
058f 0000       |    |		.XXX[0x1]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00da       |    |		Load_Top	At_Offset_2
0594 8211       |    |		Call	0x1,0x11
0595 6803       |h   |		Jump_Zero	0x599
0596 0092 097a  |   z|		Action	Push_String_Extended,0x97a					; "all"
0598 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0599 00da       |    |		Load_Top	At_Offset_2
059a 823e       | >  |		Call	0x1,0x3e
059b 6808       |h   |		Jump_Zero	0x5a4
059c e03a       | :  |		Load	0x0,0x3a
059d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
059e 00db       |    |		Load_Top	At_Offset_3
059f 8240       | @  |		Call	0x1,0x40
05a0 e01e       |    |		Load	0x0,0x1e
05a1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05a2 01ca       |    |		Execute	Vector,Prepend
05a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a4 e03a       | :  |		Load	0x0,0x3a
05a5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05a6 00db       |    |		Load_Top	At_Offset_3
05a7 8215       |    |		Call	0x1,0x15
05a8 01ca       |    |		Execute	Vector,Prepend
05a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05aa 0000 0000  |    |		.BLANK	0000[0x6]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 05b6       |    |		.CONST	0x05b6								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 00da       |    |		Load_Top	At_Offset_2
05b4 8023       | #  |		Call	0x0,0x23
05b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b6			TRAP_05b0:
05b6 0007       |    |		Action	Break_Optional
05b7 4800       |H   |		Short_Literal	0x0
05b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b9 0000 0000  |    |		.BLANK	0000[0x7]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 05c6       |    |		.CONST	0x05c6								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 00da       |    |		Load_Top	At_Offset_2
05c4 803b       | ;  |		Call	0x0,0x3b
05c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c6			TRAP_05c0:
05c6 0007       |    |		Action	Break_Optional
05c7 480c       |H   |		Short_Literal	0xc
05c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c9 0000 0000  |    |		.BLANK	0000[0x7]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05db       |    |		.CONST	0x05db								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0003       |    |		.CONST	0x0003								; Number of locals
05d3			INIT_05d0:
05d3 00da       |    |		Load_Top	At_Offset_2
05d4 e002       |    |		Load	0x0,0x2
05d5 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05d6 03f1       |    |		Declare_Variable	Discrete,With_Value
05d7 e020       |    |		Load	0x0,0x20
05d8 0322       | "  |		Declare_Variable	Record
05d9 00d8       |    |		Load_Top	At_Offset_0
05da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05db			BODY_05d0:
05db 00d8       |    |		Load_Top	At_Offset_0
05dc e5fe       |    |		Load	0x2,-0x2
05dd 803c       | <  |		Call	0x0,0x3c
05de 00d1       |    |		Pop_Control	Pop_Count_1
05df 4800       |H   |		Short_Literal	0x0
05e0 e5fa       |    |		Load	0x2,-0x6
05e1 00db       |    |		Load_Top	At_Offset_3
05e2 803d       | =  |		Call	0x0,0x3d
05e3 e5f9       |    |		Load	0x2,-0x7
05e4 00da       |    |		Load_Top	At_Offset_2
05e5 803e       | >  |		Call	0x0,0x3e
05e6 e5fb       |    |		Load	0x2,-0x5
05e7 e5fc       |    |		Load	0x2,-0x4
05e8 e5fd       |    |		Load	0x2,-0x3
05e9 803f       | ?  |		Call	0x0,0x3f
05ea 00db       |    |		Load_Top	At_Offset_3
05eb e402       |    |		Load	0x2,0x2
05ec 8040       | @  |		Call	0x0,0x40
05ed 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
05ee 0000 0000  |    |		.XXX[0x2]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 0611       |    |		.CONST	0x0611								; Address of begin
05f1 0698       |    |		.CONST	0x0698								; Address of exception handler
05f2 0012       |    |		.CONST	0x0012								; Number of locals
05f3			INIT_05f0:
05f3 e041       | A  |		Load	0x0,0x41
05f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05f5 00e4       |    |		Load_Encached	Positive_Cache
05f6 00e2       |    |		Load_Encached	Integer_Cache
05f7 e003       |    |		Load	0x0,0x3
05f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05f9 e003       |    |		Load	0x0,0x3
05fa 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05fb e003       |    |		Load	0x0,0x3
05fc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05fd e003       |    |		Load	0x0,0x3
05fe 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05ff e003       |    |		Load	0x0,0x3
0600 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0601 e003       |    |		Load	0x0,0x3
0602 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0603 00e1       |    |		Load_Encached	Boolean_Cache
0604 00e1       |    |		Load_Encached	Boolean_Cache
0605 e003       |    |		Load	0x0,0x3
0606 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0607 e003       |    |		Load	0x0,0x3
0608 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0609 00e3       |    |		Load_Encached	Natural_Cache
060a 00e3       |    |		Load_Encached	Natural_Cache
060b e003       |    |		Load	0x0,0x3
060c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
060d e5ff       |    |		Load	0x2,-0x1
060e e003       |    |		Load	0x0,0x3
060f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0610 03f1       |    |		Declare_Variable	Discrete,With_Value
0611			BODY_05f0:
0611 00d8       |    |		Load_Top	At_Offset_0
0612 e003       |    |		Load	0x0,0x3
0613 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0614 a405       |    |		Store_Unchecked	0x2,0x5
0615 00d8       |    |		Load_Top	At_Offset_0
0616 e003       |    |		Load	0x0,0x3
0617 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0618 a406       |    |		Store_Unchecked	0x2,0x6
0619 e003       |    |		Load	0x0,0x3
061a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
061b e003       |    |		Load	0x0,0x3
061c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
061d 00e3       |    |		Load_Encached	Natural_Cache
061e e041       | A  |		Load	0x0,0x41
061f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0620 e405       |    |		Load	0x2,0x5
0621 e041       | A  |		Load	0x0,0x41
0622 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0623 c402       |    |		Store	0x2,0x2
0624 c5fc       |    |		Store	0x2,-0x4
0625 c407       |    |		Store	0x2,0x7
0626 c408       |    |		Store	0x2,0x8
0627 e003       |    |		Load	0x0,0x3
0628 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0629 e406       |    |		Load	0x2,0x6
062a 4800       |H   |		Short_Literal	0x0
062b 4804       |H   |		Short_Literal	0x4
062c e408       |    |		Load	0x2,0x8
062d 0a01       |    |		Execute_Immediate	Plus,0x1
062e e003       |    |		Load	0x0,0x3
062f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0630 00d9       |    |		Load_Top	At_Offset_1
0631 00d0       |    |		Action	Swap_Control
0632 0260       | `  |		Execute	Discrete,In_Type
0633 7001       |p   |		Jump_Nonzero	0x635
0634 0801       |    |		Execute_Immediate	Raise,0x1
0635 e408       |    |		Load	0x2,0x8
0636 e003       |    |		Load	0x0,0x3
0637 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0638 00d9       |    |		Load_Top	At_Offset_1
0639 00d0       |    |		Action	Swap_Control
063a 0260       | `  |		Execute	Discrete,In_Type
063b 7001       |p   |		Jump_Nonzero	0x63d
063c 0801       |    |		Execute_Immediate	Raise,0x1
063d e405       |    |		Load	0x2,0x5
063e e003       |    |		Load	0x0,0x3
063f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0640 e405       |    |		Load	0x2,0x5
0641 e041       | A  |		Load	0x0,0x41
0642 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0643 c409       |    |		Store	0x2,0x9
0644 e409       |    |		Load	0x2,0x9
0645 7003       |p   |		Jump_Nonzero	0x649
0646 e041       | A  |		Load	0x0,0x41
0647 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0648 0257       | W  |		Execute	Discrete,Raise
0649 00e3       |    |		Load_Encached	Natural_Cache
064a 00e3       |    |		Load_Encached	Natural_Cache
064b e003       |    |		Load	0x0,0x3
064c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
064d 00e3       |    |		Load_Encached	Natural_Cache
064e 00e1       |    |		Load_Encached	Boolean_Cache
064f 00e1       |    |		Load_Encached	Boolean_Cache
0650 e003       |    |		Load	0x0,0x3
0651 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0652 e409       |    |		Load	0x2,0x9
0653 e408       |    |		Load	0x2,0x8
0654 e405       |    |		Load	0x2,0x5
0655 e041       | A  |		Load	0x0,0x41
0656 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0657 c40a       |    |		Store	0x2,0xa
0658 c40b       |    |		Store	0x2,0xb
0659 c40c       |    |		Store	0x2,0xc
065a c403       |    |		Store	0x2,0x3
065b c40d       |    |		Store	0x2,0xd
065c c410       |    |		Store	0x2,0x10
065d c40f       |    |		Store	0x2,0xf
065e e40d       |    |		Load	0x2,0xd
065f 7003       |p   |		Jump_Nonzero	0x663
0660 4800       |H   |		Short_Literal	0x0
0661 a404       |    |		Store_Unchecked	0x2,0x4
0662 782a       |x*  |		Jump	0x68d
0663 e003       |    |		Load	0x0,0x3
0664 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0665 e406       |    |		Load	0x2,0x6
0666 4800       |H   |		Short_Literal	0x0
0667 4801       |H   |		Short_Literal	0x1
0668 e40d       |    |		Load	0x2,0xd
0669 0a02       |    |		Execute_Immediate	Plus,0x2
066a e003       |    |		Load	0x0,0x3
066b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
066c 00d9       |    |		Load_Top	At_Offset_1
066d 00d0       |    |		Action	Swap_Control
066e 0260       | `  |		Execute	Discrete,In_Type
066f 7001       |p   |		Jump_Nonzero	0x671
0670 0801       |    |		Execute_Immediate	Raise,0x1
0671 e410       |    |		Load	0x2,0x10
0672 e40f       |    |		Load	0x2,0xf
0673 0273       | s  |		Execute	Discrete,Plus
0674 00d8       |    |		Load_Top	At_Offset_0
0675 00e3       |    |		Load_Encached	Natural_Cache
0676 0260       | `  |		Execute	Discrete,In_Type
0677 7001       |p   |		Jump_Nonzero	0x679
0678 0801       |    |		Execute_Immediate	Raise,0x1
0679 e405       |    |		Load	0x2,0x5
067a e041       | A  |		Load	0x0,0x41
067b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
067c c40e       |    |		Store	0x2,0xe
067d e40e       |    |		Load	0x2,0xe
067e 7003       |p   |		Jump_Nonzero	0x682
067f 4800       |H   |		Short_Literal	0x0
0680 a404       |    |		Store_Unchecked	0x2,0x4
0681 780b       |x   |		Jump	0x68d
0682 00e2       |    |		Load_Encached	Integer_Cache
0683 e40c       |    |		Load	0x2,0xc
0684 e40b       |    |		Load	0x2,0xb
0685 e40f       |    |		Load	0x2,0xf
0686 e410       |    |		Load	0x2,0x10
0687 e40d       |    |		Load	0x2,0xd
0688 e40e       |    |		Load	0x2,0xe
0689 e405       |    |		Load	0x2,0x5
068a e041       | A  |		Load	0x0,0x41
068b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
068c c404       |    |		Store	0x2,0x4
068d e402       |    |		Load	0x2,0x2
068e a5fb       |    |		Store_Unchecked	0x2,-0x5
068f e403       |    |		Load	0x2,0x3
0690 a5fa       |    |		Store_Unchecked	0x2,-0x6
0691 e404       |    |		Load	0x2,0x4
0692 a5f9       |    |		Store_Unchecked	0x2,-0x7
0693 4801       |H   |		Short_Literal	0x1
0694 a5fe       |    |		Store_Unchecked	0x2,-0x2
0695 4801       |H   |		Short_Literal	0x1
0696 a5fd       |    |		Store_Unchecked	0x2,-0x3
0697 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0698			TRAP_05f0:
0698 0007       |    |		Action	Break_Optional
0699 4800       |H   |		Short_Literal	0x0
069a a5fc       |    |		Store_Unchecked	0x2,-0x4
069b 4800       |H   |		Short_Literal	0x0
069c a5fb       |    |		Store_Unchecked	0x2,-0x5
069d 600a       |`   |		Indirect_Literal	Discrete,0x6a8,{0x00000000, 0x7fffffff}
069e a5fa       |    |		Store_Unchecked	0x2,-0x6
069f 4800       |H   |		Short_Literal	0x0
06a0 a5f9       |    |		Store_Unchecked	0x2,-0x7
06a1 4800       |H   |		Short_Literal	0x0
06a2 a5fe       |    |		Store_Unchecked	0x2,-0x2
06a3 4801       |H   |		Short_Literal	0x1
06a4 a5fd       |    |		Store_Unchecked	0x2,-0x3
06a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06a6 0000 0000  |    |		.XXX[0x2]
06a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
06ac 0000 0000  |    |		.BLANK	0000[0x4]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06c2       |    |		.CONST	0x06c2								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0004       |    |		.CONST	0x0004								; Number of locals
06b3			INIT_06b0:
06b3 e006       |    |		Load	0x0,0x6
06b4 0322       | "  |		Declare_Variable	Record
06b5 e5fe       |    |		Load	0x2,-0x2
06b6 e5ff       |    |		Load	0x2,-0x1
06b7 8042       | B  |		Call	0x0,0x42
06b8 00d9       |    |		Load_Top	At_Offset_1
06b9 017d       | }  |		Execute	Record,Structure_Write
06ba e020       |    |		Load	0x0,0x20
06bb 0322       | "  |		Declare_Variable	Record
06bc 00d8       |    |		Load_Top	At_Offset_0
06bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06be e004       |    |		Load	0x0,0x4
06bf 0322       | "  |		Declare_Variable	Record
06c0 00d8       |    |		Load_Top	At_Offset_0
06c1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06c2			BODY_06b0:
06c2 00d9       |    |		Load_Top	At_Offset_1
06c3 00db       |    |		Load_Top	At_Offset_3
06c4 8043       | C  |		Call	0x0,0x43
06c5 00d1       |    |		Pop_Control	Pop_Count_1
06c6 00d8       |    |		Load_Top	At_Offset_0
06c7 00da       |    |		Load_Top	At_Offset_2
06c8 8044       | D  |		Call	0x0,0x44
06c9 00d1       |    |		Pop_Control	Pop_Count_1
06ca 4801       |H   |		Short_Literal	0x1
06cb 00d9       |    |		Load_Top	At_Offset_1
06cc 8045       | E  |		Call	0x0,0x45
06cd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06ce 0000 0000  |    |		.XXX[0x2]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 00da       |    |		Load_Top	At_Offset_2
06d4 8215       |    |		Call	0x1,0x15
06d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06d6 0000 0000  |    |		.XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db       |    |		.CONST	0x06db								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0001       |    |		.CONST	0x0001								; Number of locals
06db			BODY_06d8:
06db			INIT_06d8:
06db 00da       |    |		Load_Top	At_Offset_2
06dc 8216       |    |		Call	0x1,0x16
06dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06de 0000 0000  |    |		.XXX[0x2]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 00da       |    |		Load_Top	At_Offset_2
06e4 00e0       |    |		Load_Encached	Standard_Cache
06e5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06e7 0000       |    |		.XXX[0x1]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb       |    |		.CONST	0x06eb								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0001       |    |		.CONST	0x0001								; Number of locals
06eb			BODY_06e8:
06eb			INIT_06e8:
06eb 6004       |`   |		Indirect_Literal	Discrete,0x6f0,{0xffffffff, 0x80000001}
06ec 00ca       |    |		Action	Exit_Nullary_Function
06ed 0000 0000  |    |		.XXX[0x3]
06ef 0000       |    |
06f0 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
06f4 0000 0000  |    |		.BLANK	0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0712       |    |		.CONST	0x0712								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0009       |    |		.CONST	0x0009								; Number of locals
06fb			INIT_06f8:
06fb e020       |    |		Load	0x0,0x20
06fc 0322       | "  |		Declare_Variable	Record
06fd 00d8       |    |		Load_Top	At_Offset_0
06fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06ff e006       |    |		Load	0x0,0x6
0700 0322       | "  |		Declare_Variable	Record
0701 e003       |    |		Load	0x0,0x3
0702 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0703 e003       |    |		Load	0x0,0x3
0704 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0705 e003       |    |		Load	0x0,0x3
0706 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0707 02c7       |    |		Declare_Variable	Any
0708 00d8       |    |		Load_Top	At_Offset_0
0709 1c00       |    |		Execute_Immediate	Run_Utility,0x0
070a e003       |    |		Load	0x0,0x3
070b 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
070c 02c7       |    |		Declare_Variable	Any
070d 00d8       |    |		Load_Top	At_Offset_0
070e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
070f 00e3       |    |		Load_Encached	Natural_Cache
0710 029f 0883  |    |		Declare_Subprogram	INIT_0880,For_Call
0712			BODY_06f8:
0712 e5fc       |    |		Load	0x2,-0x4
0713 e009       |    |		Load	0x0,0x9
0714 00e3       |    |		Load_Encached	Natural_Cache
0715 e003       |    |		Load	0x0,0x3
0716 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0717 00e1       |    |		Load_Encached	Boolean_Cache
0718 e406       |    |		Load	0x2,0x6
0719 0120       |    |		Execute	Any,Is_Value
071a 6803       |h   |		Jump_Zero	0x71e
071b e003       |    |		Load	0x0,0x3
071c 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
071d 7801       |x   |		Jump	0x71f
071e e406       |    |		Load	0x2,0x6
071f 00e3       |    |		Load_Encached	Natural_Cache
0720 e407       |    |		Load	0x2,0x7
0721 0120       |    |		Execute	Any,Is_Value
0722 6803       |h   |		Jump_Zero	0x726
0723 e003       |    |		Load	0x0,0x3
0724 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0725 7801       |x   |		Jump	0x727
0726 e407       |    |		Load	0x2,0x7
0727 e003       |    |		Load	0x0,0x3
0728 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0729 e007       |    |		Load	0x0,0x7
072a e403       |    |		Load	0x2,0x3
072b e402       |    |		Load	0x2,0x2
072c e5fe       |    |		Load	0x2,-0x2
072d 00d8       |    |		Load_Top	At_Offset_0
072e 00e4       |    |		Load_Encached	Positive_Cache
072f 0260       | `  |		Execute	Discrete,In_Type
0730 7001       |p   |		Jump_Nonzero	0x732
0731 0801       |    |		Execute_Immediate	Raise,0x1
0732 e5ff       |    |		Load	0x2,-0x1
0733 8046       | F  |		Call	0x0,0x46
0734 00d2       |    |		Pop_Control	Pop_Count_2
0735 e5fd       |    |		Load	0x2,-0x3
0736 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0737 c404       |    |		Store	0x2,0x4
0738 c407       |    |		Store	0x2,0x7
0739 e5fd       |    |		Load	0x2,-0x3
073a 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
073b c406       |    |		Store	0x2,0x6
073c e5fd       |    |		Load	0x2,-0x3
073d 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
073e c405       |    |		Store	0x2,0x5
073f c408       |    |		Store	0x2,0x8
0740 e5fd       |    |		Load	0x2,-0x3
0741 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0742 c5fc       |    |		Store	0x2,-0x4
0743 e5fe       |    |		Load	0x2,-0x2
0744 e5fd       |    |		Load	0x2,-0x3
0745 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0746 00d9       |    |		Load_Top	At_Offset_1
0747 e5fd       |    |		Load	0x2,-0x3
0748 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0749 e403       |    |		Load	0x2,0x3
074a e5fd       |    |		Load	0x2,-0x3
074b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
074c e404       |    |		Load	0x2,0x4
074d 8029       | )  |		Call	0x0,0x29
074e e5fd       |    |		Load	0x2,-0x3
074f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0750 e405       |    |		Load	0x2,0x5
0751 8029       | )  |		Call	0x0,0x29
0752 e5fd       |    |		Load	0x2,-0x3
0753 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0754 00db       |    |		Load_Top	At_Offset_3
0755 8221       | !  |		Call	0x1,0x21
0756 e5fd       |    |		Load	0x2,-0x3
0757 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0758 00da       |    |		Load_Top	At_Offset_2
0759 8221       | !  |		Call	0x1,0x21
075a e5fd       |    |		Load	0x2,-0x3
075b 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
075c 8409       |    |		Call	0x2,0x9
075d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
075e 0000 0000  |    |		.XXX[0x2]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763       | c  |		.CONST	0x0763								; Address of begin
0761 0004       |    |		.CONST	0x0004								; Address of exception handler
0762 0001       |    |		.CONST	0x0001								; Number of locals
0763			BODY_0760:
0763			INIT_0760:
0763 8047       | G  |		Call	0x0,0x47
0764 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0765 0000 0000  |    |		.XXX[0x3]
0767 0000       |    |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076d       | m  |		.CONST	0x076d								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0002       |    |		.CONST	0x0002								; Number of locals
076b			INIT_0768:
076b e002       |    |		Load	0x0,0x2
076c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
076d			BODY_0768:
076d 00db       |    |		Load_Top	At_Offset_3
076e e00d       |    |		Load	0x0,0xd
076f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0770 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0771 00d8       |    |		Load_Top	At_Offset_0
0772 8016       |    |		Call	0x0,0x16
0773 6804       |h   |		Jump_Zero	0x778
0774 00db       |    |		Load_Top	At_Offset_3
0775 e00d       |    |		Load	0x0,0xd
0776 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0777 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0778 00d8       |    |		Load_Top	At_Offset_0
0779 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
077a 0000 0000  |    |		.BLANK	0000[0x6]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783       |    |		.CONST	0x0783								; Address of begin
0781 0004       |    |		.CONST	0x0004								; Address of exception handler
0782 0001       |    |		.CONST	0x0001								; Number of locals
0783			BODY_0780:
0783			INIT_0780:
0783 00da       |    |		Load_Top	At_Offset_2
0784 e5fe       |    |		Load	0x2,-0x2
0785 027f       |    |		Execute	Discrete,Equal
0786 7004       |p   |		Jump_Nonzero	0x78b
0787 00da       |    |		Load_Top	At_Offset_2
0788 8012       |    |		Call	0x0,0x12
0789 027f       |    |		Execute	Discrete,Equal
078a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
078b 4801       |H   |		Short_Literal	0x1
078c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
078d 0000 0000  |    |		.XXX[0x3]
078f 0000       |    |
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07a3       |    |		.CONST	0x07a3								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0007       |    |		.CONST	0x0007								; Number of locals
0793			INIT_0790:
0793 e238       | 8  |		Load	0x1,0x38
0794 0322       | "  |		Declare_Variable	Record
0795 00d8       |    |		Load_Top	At_Offset_0
0796 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0797 e022       | "  |		Load	0x0,0x22
0798 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0799 02c7       |    |		Declare_Variable	Any
079a 00d8       |    |		Load_Top	At_Offset_0
079b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
079c 00e1       |    |		Load_Encached	Boolean_Cache
079d 029f 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Call
079f 029f 08db  |    |		Declare_Subprogram	INIT_08d8,For_Call
07a1 029f 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Call
07a3			BODY_0790:
07a3 e5ff       |    |		Load	0x2,-0x1
07a4 e402       |    |		Load	0x2,0x2
07a5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07a6 e5ff       |    |		Load	0x2,-0x1
07a7 8048       | H  |		Call	0x0,0x48
07a8 e402       |    |		Load	0x2,0x2
07a9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07aa e5ff       |    |		Load	0x2,-0x1
07ab e003       |    |		Load	0x0,0x3
07ac 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
07ad e402       |    |		Load	0x2,0x2
07ae 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07af 8405       |    |		Call	0x2,0x5
07b0 8406       |    |		Call	0x2,0x6
07b1 8407       |    |		Call	0x2,0x7
07b2 e5ff       |    |		Load	0x2,-0x1
07b3 8049       | I  |		Call	0x0,0x49
07b4 8029       | )  |		Call	0x0,0x29
07b5 e402       |    |		Load	0x2,0x2
07b6 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
07b7 e5ff       |    |		Load	0x2,-0x1
07b8 804a       | J  |		Call	0x0,0x4a
07b9 e402       |    |		Load	0x2,0x2
07ba 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
07bb 00e2       |    |		Load_Encached	Integer_Cache
07bc 00e1       |    |		Load_Encached	Boolean_Cache
07bd e5ff       |    |		Load	0x2,-0x1
07be e00d       |    |		Load	0x0,0xd
07bf 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
07c0 c404       |    |		Store	0x2,0x4
07c1 e402       |    |		Load	0x2,0x2
07c2 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
07c3 00e3       |    |		Load_Encached	Natural_Cache
07c4 00e1       |    |		Load_Encached	Boolean_Cache
07c5 00e1       |    |		Load_Encached	Boolean_Cache
07c6 e5ff       |    |		Load	0x2,-0x1
07c7 e00d       |    |		Load	0x0,0xd
07c8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
07c9 c404       |    |		Store	0x2,0x4
07ca e402       |    |		Load	0x2,0x2
07cb 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
07cc e402       |    |		Load	0x2,0x2
07cd 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
07ce e5ff       |    |		Load	0x2,-0x1
07cf e00d       |    |		Load	0x0,0xd
07d0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
07d1 e402       |    |		Load	0x2,0x2
07d2 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
07d3 e402       |    |		Load	0x2,0x2
07d4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
07d5 0000 0000  |    |		.XXX[0x3]
07d7 0000       |    |
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db       |    |		.CONST	0x07db								; Address of begin
07d9 0004       |    |		.CONST	0x0004								; Address of exception handler
07da 0001       |    |		.CONST	0x0001								; Number of locals
07db			BODY_07d8:
07db			INIT_07d8:
07db 00da       |    |		Load_Top	At_Offset_2
07dc 0f03       |    |		Execute_Immediate	Equal,0x3
07dd 7004       |p   |		Jump_Nonzero	0x7e2
07de 00da       |    |		Load_Top	At_Offset_2
07df e5fe       |    |		Load	0x2,-0x2
07e0 027f       |    |		Execute	Discrete,Equal
07e1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07e2 4801       |H   |		Short_Literal	0x1
07e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07e4 0000 0000  |    |		.BLANK	0000[0x4]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb       |    |		.CONST	0x07eb								; Address of begin
07e9 07f2       |    |		.CONST	0x07f2								; Address of exception handler
07ea 0001       |    |		.CONST	0x0001								; Number of locals
07eb			BODY_07e8:
07eb			INIT_07e8:
07eb e404       |    |		Load	0x2,0x4
07ec 804b       | K  |		Call	0x0,0x4b
07ed a5fd       |    |		Store_Unchecked	0x2,-0x3
07ee e5fe       |    |		Load	0x2,-0x2
07ef e403       |    |		Load	0x2,0x3
07f0 8044       | D  |		Call	0x0,0x44
07f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07f2			TRAP_07e8:
07f2 e04c       | L  |		Load	0x0,0x4c
07f3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
07f4 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
07f5 010f       |    |		Execute	Exception,Equal
07f6 6807       |h   |		Jump_Zero	0x7fe
07f7 e5fa       |    |		Load	0x2,-0x6
07f8 0092 097b  |   {|		Action	Push_String_Extended,0x97b					; "Obsolete Unit"
07fa e022       | "  |		Load	0x0,0x22
07fb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
07fc c5fa       |    |		Store	0x2,-0x6
07fd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07fe 0100       |    |		Execute	Exception,Raise
07ff 0000       |    |		.XXX[0x1]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803       |    |		.CONST	0x0803								; Address of begin
0801 080a       |    |		.CONST	0x080a								; Address of exception handler
0802 0001       |    |		.CONST	0x0001								; Number of locals
0803			BODY_0800:
0803			INIT_0800:
0803 e406       |    |		Load	0x2,0x6
0804 804b       | K  |		Call	0x0,0x4b
0805 a5f7       |    |		Store_Unchecked	0x2,-0x9
0806 e5f8       |    |		Load	0x2,-0x8
0807 e405       |    |		Load	0x2,0x5
0808 8044       | D  |		Call	0x0,0x44
0809 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
080a			TRAP_0800:
080a 0007       |    |		Action	Break_Optional
080b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
080c 0000 0000  |    |		.BLANK	0000[0x4]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813       |    |		.CONST	0x0813								; Address of begin
0811 0004       |    |		.CONST	0x0004								; Address of exception handler
0812 0001       |    |		.CONST	0x0001								; Number of locals
0813			BODY_0810:
0813			INIT_0810:
0813 e7fd       |    |		Load	0x3,-0x3
0814 00d8       |    |		Load_Top	At_Offset_0
0815 00e2       |    |		Load_Encached	Integer_Cache
0816 0260       | `  |		Execute	Discrete,In_Type
0817 7001       |p   |		Jump_Nonzero	0x819
0818 0801       |    |		Execute_Immediate	Raise,0x1
0819 e7fe       |    |		Load	0x3,-0x2
081a e7ff       |    |		Load	0x3,-0x1
081b e002       |    |		Load	0x0,0x2
081c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
081d 00d9       |    |		Load_Top	At_Offset_1
081e 00d0       |    |		Action	Swap_Control
081f 0260       | `  |		Execute	Discrete,In_Type
0820 7001       |p   |		Jump_Nonzero	0x822
0821 0801       |    |		Execute_Immediate	Raise,0x1
0822 8254       | T  |		Call	0x1,0x54
0823 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0824 0000 0000  |    |		.BLANK	0000[0x4]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0001       |    |		.CONST	0x0001								; Number of locals
082b			BODY_0828:
082b			INIT_0828:
082b e5fa       |    |		Load	0x2,-0x6
082c 4603       |F   |		Jump_Case	0x4
082d 7807       |x   |		Jump	0x835								; case 0x0
082e 780f       |x   |		Jump	0x83e								; case 0x1
082f 7817       |x   |		Jump	0x847								; case 0x2
0830 7800       |x   |		Jump	0x831								; case 0x3
0831 00db       |    |		Load_Top	At_Offset_3
0832 00db       |    |		Load_Top	At_Offset_3
0833 85fd       |    |		Call	0x2,-0x3
0834 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0835 00da       |    |		Load_Top	At_Offset_2
0836 8243       | C  |		Call	0x1,0x43
0837 6804       |h   |		Jump_Zero	0x83c
0838 00db       |    |		Load_Top	At_Offset_3
0839 00db       |    |		Load_Top	At_Offset_3
083a 85fd       |    |		Call	0x2,-0x3
083b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
083c 4800       |H   |		Short_Literal	0x0
083d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
083e 00da       |    |		Load_Top	At_Offset_2
083f 8243       | C  |		Call	0x1,0x43
0840 7004       |p   |		Jump_Nonzero	0x845
0841 00db       |    |		Load_Top	At_Offset_3
0842 00db       |    |		Load_Top	At_Offset_3
0843 85fd       |    |		Call	0x2,-0x3
0844 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0845 4800       |H   |		Short_Literal	0x0
0846 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0847 4800       |H   |		Short_Literal	0x0
0848 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0849 0000 0000  |    |		.BLANK	0000[0x7]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0855       | U  |		.CONST	0x0855								; Address of begin
0851 0004       |    |		.CONST	0x0004								; Address of exception handler
0852 0002       |    |		.CONST	0x0002								; Number of locals
0853			INIT_0850:
0853 e20f       |    |		Load	0x1,0xf
0854 0007       |    |		Action	Break_Optional
0855			BODY_0850:
0855 e402       |    |		Load	0x2,0x2
0856 8035       | 5  |		Call	0x0,0x35
0857 6802       |h   |		Jump_Zero	0x85a
0858 8213       |    |		Call	0x1,0x13
0859 00ca       |    |		Action	Exit_Nullary_Function
085a e402       |    |		Load	0x2,0x2
085b 8033       | 3  |		Call	0x0,0x33
085c 8218       |    |		Call	0x1,0x18
085d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
085e e402       |    |		Load	0x2,0x2
085f 8034       | 4  |		Call	0x0,0x34
0860 c402       |    |		Store	0x2,0x2
0861 e5ff       |    |		Load	0x2,-0x1
0862 4603       |F   |		Jump_Case	0x4
0863 7807       |x   |		Jump	0x86b								; case 0x0
0864 780f       |x   |		Jump	0x874								; case 0x1
0865 7817       |x   |		Jump	0x87d								; case 0x2
0866 7800       |x   |		Jump	0x867								; case 0x3
0867 00d8       |    |		Load_Top	At_Offset_0
0868 8403       |    |		Call	0x2,0x3
0869 01ca       |    |		Execute	Vector,Prepend
086a 00ca       |    |		Action	Exit_Nullary_Function
086b 00d8       |    |		Load_Top	At_Offset_0
086c 8243       | C  |		Call	0x1,0x43
086d 6804       |h   |		Jump_Zero	0x872
086e 00d8       |    |		Load_Top	At_Offset_0
086f 8403       |    |		Call	0x2,0x3
0870 01ca       |    |		Execute	Vector,Prepend
0871 00ca       |    |		Action	Exit_Nullary_Function
0872 8403       |    |		Call	0x2,0x3
0873 00ca       |    |		Action	Exit_Nullary_Function
0874 00d8       |    |		Load_Top	At_Offset_0
0875 8243       | C  |		Call	0x1,0x43
0876 7004       |p   |		Jump_Nonzero	0x87b
0877 00d8       |    |		Load_Top	At_Offset_0
0878 8403       |    |		Call	0x2,0x3
0879 01ca       |    |		Execute	Vector,Prepend
087a 00ca       |    |		Action	Exit_Nullary_Function
087b 8403       |    |		Call	0x2,0x3
087c 00ca       |    |		Action	Exit_Nullary_Function
087d 8403       |    |		Call	0x2,0x3
087e 00ca       |    |		Action	Exit_Nullary_Function
087f 0000       |    |		.XXX[0x1]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883       |    |		.CONST	0x0883								; Address of begin
0881 088c       |    |		.CONST	0x088c								; Address of exception handler
0882 0001       |    |		.CONST	0x0001								; Number of locals
0883			BODY_0880:
0883			INIT_0880:
0883 e403       |    |		Load	0x2,0x3
0884 804b       | K  |		Call	0x0,0x4b
0885 e5fd       |    |		Load	0x2,-0x3
0886 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0887 e5fd       |    |		Load	0x2,-0x3
0888 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0889 e402       |    |		Load	0x2,0x2
088a 8044       | D  |		Call	0x0,0x44
088b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
088c			TRAP_0880:
088c e04c       | L  |		Load	0x0,0x4c
088d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
088e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
088f 010f       |    |		Execute	Exception,Equal
0890 6807       |h   |		Jump_Zero	0x898
0891 e5fc       |    |		Load	0x2,-0x4
0892 0092 097c  |   ||		Action	Push_String_Extended,0x97c					; "Program has been recompiled since debugger started"
0894 e022       | "  |		Load	0x0,0x22
0895 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0896 c5fc       |    |		Store	0x2,-0x4
0897 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0898 0100       |    |		Execute	Exception,Raise
0899 0000 0000  |    |		.BLANK	0000[0x7]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3       |    |		.CONST	0x08a3								; Address of begin
08a1 08b7       |    |		.CONST	0x08b7								; Address of exception handler
08a2 0001       |    |		.CONST	0x0001								; Number of locals
08a3			BODY_08a0:
08a3			INIT_08a0:
08a3 e403       |    |		Load	0x2,0x3
08a4 e402       |    |		Load	0x2,0x2
08a5 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
08a6 00e1       |    |		Load_Encached	Boolean_Cache
08a7 e005       |    |		Load	0x0,0x5
08a8 e402       |    |		Load	0x2,0x2
08a9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
08aa e5ff       |    |		Load	0x2,-0x1
08ab 8225       | %  |		Call	0x1,0x25
08ac 00d1       |    |		Pop_Control	Pop_Count_1
08ad e402       |    |		Load	0x2,0x2
08ae 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
08af e402       |    |		Load	0x2,0x2
08b0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08b1 00d1       |    |		Pop_Control	Pop_Count_1
08b2 c403       |    |		Store	0x2,0x3
08b3 4800       |H   |		Short_Literal	0x0
08b4 e402       |    |		Load	0x2,0x2
08b5 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
08b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08b7			TRAP_08a0:
08b7 e04c       | L  |		Load	0x0,0x4c
08b8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
08b9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
08ba 010f       |    |		Execute	Exception,Equal
08bb 6814       |h   |		Jump_Zero	0x8d0
08bc e013       |    |		Load	0x0,0x13
08bd e402       |    |		Load	0x2,0x2
08be 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
08bf e014       |    |		Load	0x0,0x14
08c0 e402       |    |		Load	0x2,0x2
08c1 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
08c2 4800       |H   |		Short_Literal	0x0
08c3 e402       |    |		Load	0x2,0x2
08c4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08c5 e402       |    |		Load	0x2,0x2
08c6 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
08c7 4820       |H   |		Short_Literal	0x20
08c8 4800       |H   |		Short_Literal	0x0
08c9 e00e       |    |		Load	0x0,0xe
08ca 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
08cb 00d1       |    |		Pop_Control	Pop_Count_1
08cc 4801       |H   |		Short_Literal	0x1
08cd e402       |    |		Load	0x2,0x2
08ce 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
08cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08d0 0100       |    |		Execute	Exception,Raise
08d1 0000 0000  |    |		.BLANK	0000[0x7]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db       |    |		.CONST	0x08db								; Address of begin
08d9 08e1       |    |		.CONST	0x08e1								; Address of exception handler
08da 0001       |    |		.CONST	0x0001								; Number of locals
08db			BODY_08d8:
08db			INIT_08d8:
08db e402       |    |		Load	0x2,0x2
08dc 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
08dd e5ff       |    |		Load	0x2,-0x1
08de 804d       | M  |		Call	0x0,0x4d
08df 8044       | D  |		Call	0x0,0x44
08e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08e1			TRAP_08d8:
08e1 e04c       | L  |		Load	0x0,0x4c
08e2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
08e3 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
08e4 010f       |    |		Execute	Exception,Equal
08e5 6804       |h   |		Jump_Zero	0x8ea
08e6 e013       |    |		Load	0x0,0x13
08e7 e402       |    |		Load	0x2,0x2
08e8 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
08e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08ea 0100       |    |		Execute	Exception,Raise
08eb 0000 0000  |    |		.BLANK	0000[0x5]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3       |    |		.CONST	0x08f3								; Address of begin
08f1 0900       |    |		.CONST	0x0900								; Address of exception handler
08f2 0001       |    |		.CONST	0x0001								; Number of locals
08f3			BODY_08f0:
08f3			INIT_08f0:
08f3 e5ff       |    |		Load	0x2,-0x1
08f4 804e       | N  |		Call	0x0,0x4e
08f5 804b       | K  |		Call	0x0,0x4b
08f6 e402       |    |		Load	0x2,0x2
08f7 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
08f8 e5ff       |    |		Load	0x2,-0x1
08f9 804f       | O  |		Call	0x0,0x4f
08fa e402       |    |		Load	0x2,0x2
08fb 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
08fc 4800       |H   |		Short_Literal	0x0
08fd e402       |    |		Load	0x2,0x2
08fe 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
08ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0900			TRAP_08f0:
0900 e04c       | L  |		Load	0x0,0x4c
0901 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0902 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0903 010f       |    |		Execute	Exception,Equal
0904 680a       |h   |		Jump_Zero	0x90f
0905 4800       |H   |		Short_Literal	0x0
0906 e402       |    |		Load	0x2,0x2
0907 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0908 e014       |    |		Load	0x0,0x14
0909 e402       |    |		Load	0x2,0x2
090a 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
090b 4801       |H   |		Short_Literal	0x1
090c e402       |    |		Load	0x2,0x2
090d 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
090e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
090f 0100       |    |		Execute	Exception,Raise
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913       |    |		.CONST	0x0913								; Address of begin
0911 0004       |    |		.CONST	0x0004								; Address of exception handler
0912 0001       |    |		.CONST	0x0001								; Number of locals
0913			BODY_0910:
0913			INIT_0910:
0913 4601       |F   |		Jump_Case	0x2
0914 7801       |x   |		Jump	0x916								; case 0x0
0915 7810       |x   |		Jump	0x926								; case 0x1
0916 00da       |    |		Load_Top	At_Offset_2
0917 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0918 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0919 00da       |    |		Load_Top	At_Offset_2
091a 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
091b 0125       | %  |		Execute	Any,Set_Constraint
091c 00da       |    |		Load_Top	At_Offset_2
091d 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
091e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
091f 00da       |    |		Load_Top	At_Offset_2
0920 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0921 0125       | %  |		Execute	Any,Set_Constraint
0922 00da       |    |		Load_Top	At_Offset_2
0923 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0924 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0925 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0926 00da       |    |		Load_Top	At_Offset_2
0927 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0928 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0929 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
092a 0000 0000  |    |		.BLANK	0000[0x6]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933       | 3  |		.CONST	0x0933								; Address of begin
0931 0004       |    |		.CONST	0x0004								; Address of exception handler
0932 0001       |    |		.CONST	0x0001								; Number of locals
0933			BODY_0930:
0933			INIT_0930:
0933 4601       |F   |		Jump_Case	0x2
0934 7801       |x   |		Jump	0x936								; case 0x0
0935 7804       |x   |		Jump	0x93a								; case 0x1
0936 00da       |    |		Load_Top	At_Offset_2
0937 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0938 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0939 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
093a 00da       |    |		Load_Top	At_Offset_2
093b 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
093c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
093d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
093e 0000 0000  |    |		.XXX[0x2]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943       | C  |		.CONST	0x0943								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0001       |    |		.CONST	0x0001								; Number of locals
0943			BODY_0940:
0943			INIT_0940:
0943 4601       |F   |		Jump_Case	0x2
0944 7801       |x   |		Jump	0x946								; case 0x0
0945 780d       |x   |		Jump	0x953								; case 0x1
0946 00da       |    |		Load_Top	At_Offset_2
0947 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0948 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0949 00da       |    |		Load_Top	At_Offset_2
094a 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
094b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
094c 00da       |    |		Load_Top	At_Offset_2
094d 3411       |4   |		Execute	Record,Field_Reference,Field_Number 0x11
094e 0125       | %  |		Execute	Any,Set_Constraint
094f 00da       |    |		Load_Top	At_Offset_2
0950 3411       |4   |		Execute	Record,Field_Reference,Field_Number 0x11
0951 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0952 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0953 00da       |    |		Load_Top	At_Offset_2
0954 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0955 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0956 00da       |    |		Load_Top	At_Offset_2
0957 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0958 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0959 00da       |    |		Load_Top	At_Offset_2
095a 3411       |4   |		Execute	Record,Field_Reference,Field_Number 0x11
095b 0125       | %  |		Execute	Any,Set_Constraint
095c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
095d ; --------------------------------------------------------------------------------------
095d ; STRING TABLE
095d ; --------------------------------------------------------------------------------------
095d 0042       | B  |		.STRTAB	0x0042->0x097e							; "BREAK"
095e 0045       | E  |		.STRTAB	0x0045->0x0980							; "CREATION_STOP"
095f 0050       | P  |		.STRTAB	0x0050->0x0987							; "CREATION_TRACE"
0960 005c       | \  |		.STRTAB	0x005c->0x098e							; "STEP"
0961 005e       | ^  |		.STRTAB	0x005e->0x0990							; "EXCEPTION_CAUGHT"
0962 006c       | l  |		.STRTAB	0x006c->0x0998							; "TRACE"
0963 006f       | o  |		.STRTAB	0x006f->0x099a							; "INSTRUCTION_STEP"
0964 007d       | }  |		.STRTAB	0x007d->0x09a2							; "HOLD"
0965 007f       |    |		.STRTAB	0x007f->0x09a4							; "STOP"
0966 0081       |    |		.STRTAB	0x0081->0x09a6							; "TEMPORARY_STOP"
0967 008d       |    |		.STRTAB	0x008d->0x09ad							; "UNKNOWN"
0968 0092       |    |		.STRTAB	0x0092->0x09b1							; "USER_BREAK"
0969 009a       |    |		.STRTAB	0x009a->0x09b6							; "NONE"
096a 009c       |    |		.STRTAB	0x009c->0x09b8							; "STOPPED"
096b 00a1       |    |		.STRTAB	0x00a1->0x09bb							; "RUNNING"
096c 00a6       |    |		.STRTAB	0x00a6->0x09bf							; "TERMINATED"
096d 00ae       |    |		.STRTAB	0x00ae->0x09c4							; "UNKNOWN"
096e 00b3       |    |		.STRTAB	0x00b3->0x09c7							; "INFORM"
096f 00b7       |    |		.STRTAB	0x00b7->0x09ca							; "STOP"
0970 00b9       |    |		.STRTAB	0x00b9->0x09cc							; "NONE"
0971 00bb       |    |		.STRTAB	0x00bb->0x09ce							; "CONTINUE"
0972 00c1       |    |		.STRTAB	0x00c1->0x09d2							; "CONTINUE_IGNORE"
0973 00ce       |    |		.STRTAB	0x00ce->0x09da							; "NONE"
0974 00d0       |    |		.STRTAB	0x00d0->0x09dc							; "FREEZE_TASKS"
0975 00da       |    |		.STRTAB	0x00da->0x09e2							; "TRUE"
0976 00dc       |    |		.STRTAB	0x00dc->0x09e4							; "CACHE_STACK_FRAMES"
0977 00ec       |    |		.STRTAB	0x00ec->0x09ed							; ", Lex ="
0978 00f1       |    |		.STRTAB	0x00f1->0x09f0							; ", Outer = "
0979 00f9       |    |		.STRTAB	0x00f9->0x09f5							; "Exception in Get_One_Task_State: "
097a 0118       |    |		.STRTAB	0x0118->0x0a06							; "all"
097b 0119       |    |		.STRTAB	0x0119->0x0a07							; "Obsolete Unit"
097c 0124       | $  |		.STRTAB	0x0124->0x0a0e							; "Program has been recompiled since debugger started"
097d 0154       | T  |		.STREND 0x0154->0x0a27
097e 4252 4541  |BREA|		.STRTAB_STRINGS
0a27 0000       |    |		.XXX[0x1]
0a28 ; --------------------------------------------------------------------------------------
0a28 ; Debug Table
0a28 ; --------------------------------------------------------------------------------------
0a28 0004 0007  |    |		.DEBUG4	0x0004,0x0007,0x81a7,0x0000,0x0001,0x0000
0a2e 4801 00dc  |H   |		.XXX[0xa5]
0a30 0217 3c0d  |  < |
0a32 0a01 0a01  |    |
0a34 0248 e009  | H  |
0a36 1b12 0334  |   4|
0a38 00e3 e009  |    |
0a3a 1b16 0337  |   7|
0a3c e004 1b11  |    |
0a3e e002 1b1c  |    |
0a40 0337 e5ff  | 7  |
0a42 0217 3c0f  |  < |
0a44 e249 1828  | I (|
0a46 00dd 01d4  |    |
0a48 e5ff 0217  |    |
0a4a 3c0f e249  |<  I|
0a4c 1837 e5ff  | 7  |
0a4e 0217 3c02  |  < |
0a50 0217 3c00  |  < |
0a52 e5ff 0217  |    |
0a54 3802 e005  |8   |
0a56 1b0f 0322  |   "|
0a58 e5ff 0217  |    |
0a5a 3c02 0217  |<   |
0a5c 3402 e005  |4   |
0a5e 1b0d 0119  |    |
0a60 00d9 3800  |  8 |
0a62 e5ff 0217  |    |
0a64 3401 3401  |4 4 |
0a66 e005 1b0e  |    |
0a68 0119 00d9  |    |
0a6a 3801 00de  |8   |
0a6c 017d 00e3  | }  |
0a6e e004 1b11  |    |
0a70 00dc e402  |    |
0a72 3c00 e5ff  |<   |
0a74 0217 3c08  |  < |
0a76 0217 e5ff  |    |
0a78 0217 3c00  |  < |
0a7a e21f 0119  |    |
0a7c e5ff 0217  |    |
0a7e 3c0f e249  |<  I|
0a80 1827 00d2  | '  |
0a82 005b 005c  | [ \|
0a84 e5ff 0217  |    |
0a86 3c02 0217  |<   |
0a88 3c00 7008  |< p |
0a8a 484c 0092  |HL  |
0a8c 0d21 e006  | !  |
0a8e 180d 00d9  |    |
0a90 01d4 7811  |  x |
0a92 484c 0092  |HL  |
0a94 0d13 e5ff  |    |
0a96 0217 3c02  |  < |
0a98 0217 3c00  |  < |
0a9a 0217 3402  |  4 |
0a9c e006 1811  |    |
0a9e 01cc e006  |    |
0aa0 180d 00d9  |    |
0aa2 01d4 00d8  |    |
0aa4 4801 00de  |H   |
0aa6 01d6 00d9  |    |
0aa8 e5ff 0217  |    |
0aaa 3c06 027e  |<  ~|
0aac 701a 00da  |p   |
0aae 4800 e5ff  |H   |
0ab0 0217 3407  |  4 |
0ab2 01ca e009  |    |
0ab4 1b16 01c7  |    |
0ab6 01de 700f  |  p |
0ab8 00db e5ff  |    |
0aba 0217 3c0d  |  < |
0abc 0a02 027e  |   ~|
0abe 7008 00dc  |p   |
0ac0 e5ff 0217  |    |
0ac2 3c0f e249  |<  I|
0ac4 1828 01de  | (  |
0ac6 680b e250  |h  P|
0ac8 0092 0d22  |   "|
0aca e5ff 0217  |    |
0acc 3c0f e249  |<  I|
0ace 1845 e009  | E  |
0ad0 1b35 0257  | 5 W|
0ad2 4502       |E   |
0ad3 0000 0000  |    |		.BLANK	0000[0x5]
0ad8 0cdb 0004  |    |		.XXX[0x128]
0ada 0001 00db  |    |
0adc 01dd 00dc  |    |
0ade 01d5 e251  |   Q|
0ae0 01de 680a  |  h |
0ae2 e250 00ea  | P  |
0ae4 00dc 0217  |    |
0ae6 3c0f e249  |<  I|
0ae8 1845 e002  | E  |
0aea 1b27 0257  | ' W|
0aec 00db 01dd  |    |
0aee 0a01 0248  |   H|
0af0 00dc 01d5  |    |
0af2 00db 0217  |    |
0af4 3401 3401  |4 4 |
0af6 01de 681a  |  h |
0af8 00db 01dd  |    |
0afa 0a01 0248  |   H|
0afc 00dc 01d5  |    |
0afe 0092 0d23  |   #|
0b00 00dc 0217  |    |
0b02 3401 3401  |4 4 |
0b04 e006 1811  |    |
0b06 01cc 0092  |    |
0b08 0d1b 01cc  |    |
0b0a 00dc 0217  |    |
0b0c 3c0f e249  |<  I|
0b0e 1845 e009  | E  |
0b10 1b35 0257  | 5 W|
0b12 4503 0024  |E  $|
0b14 0047 006f  | G o|
0b16 0096 00bb  |    |
0b18 00de 00fe  |    |
0b1a 0122 0166  | " f|
0b1c 016c 019c  | l  |
0b1e 01e0 01e5  |    |
0b20 0214 0241  |   A|
0b22 0263 027c  | c ||
0b24 02a1 5241  |  RA|
0b26 5449 4f4e  |TION|
0b28 414c 2043  |AL C|
0b2a 4841 494e  |HAIN|
0b2c 4544 2054  |ED T|
0b2e 4150 4553  |APES|
0b30 2c20 5052  |, PR|
0b32 4544 2056  |ED V|
0b34 4f4c 2049  |OL I|
0b36 443a 2045  |D: E|
0b38 7870 6563  |xpec|
0b3a 7465 6420  |ted |
0b3c 6669 7273  |firs|
0b3e 7420 6669  |t fi|
0b40 6c65 2073  |le s|
0b42 6563 7469  |ecti|
0b44 6f6e 3b20  |on; |
0b46 466f 756e  |Foun|
0b48 6420 7365  |d se|
0b4a 6374 696f  |ctio|
0b4c 6e45 7870  |nExp|
0b4e 6563 7465  |ecte|
0b50 6420 7265  |d re|
0b52 7365 7276  |serv|
0b54 6564 2066  |ed f|
0b56 6965 6c64  |ield|
0b58 206f 6620  | of |
0b5a 7a65 726f  |zero|
0b5c 6573 3b20  |es; |
0b5e 466f 756e  |Foun|
0b60 6420 5548  |d UH|
0b62 4c73 2066  |Ls f|
0b64 6f75 6e64  |ound|
0b66 2069 6e20  | in |
0b68 696e 7465  |inte|
0b6a 726d 6564  |rmed|
0b6c 6961 7465  |iate|
0b6e 2066 696c  | fil|
0b70 6520 7365  |e se|
0b72 6374 696f  |ctio|
0b74 6e52 4154  |nRAT|
0b76 494f 4e41  |IONA|
0b78 4c20 4348  |L CH|
0b7a 4149 4e45  |AINE|
0b7c 4420 5441  |D TA|
0b7e 5045 532c  |PES,|
0b80 2053 5543  | SUC|
0b82 4320 564f  |C VO|
0b84 4c20 4944  |L ID|
0b86 3a20 4578  |: Ex|
0b88 6365 7373  |cess|
0b8a 2055 544c  | UTL|
0b8c 7320 666f  |s fo|
0b8e 756e 6420  |und |
0b90 6174 2065  |at e|
0b92 6e64 206f  |nd o|
0b94 6620 766f  |f vo|
0b96 6c75 6d65  |lume|
0b98 4578 7065  |Expe|
0b9a 6374 6564  |cted|
0b9c 2073 7563  | suc|
0b9e 6365 7373  |cess|
0ba0 6f72 2076  |or v|
0ba2 6f6c 2069  |ol i|
0ba4 6420 6c61  |d la|
0ba6 6265 6c3b  |bel;|
0ba8 2046 6f75  | Fou|
0baa 6e64 4163  |ndAc|
0bac 6365 7373  |cess|
0bae 6962 696c  |ibil|
0bb0 6974 7920  |ity |
0bb2 666f 7220  |for |
0bb4 6e65 7720  |new |
0bb6 766f 6c75  |volu|
0bb8 6d65 2064  |me d|
0bba 6f65 736e  |oesn|
0bbc 2774 206d  |'t m|
0bbe 6174 6368  |atch|
0bc0 2070 7265  | pre|
0bc2 7669 6f75  |viou|
0bc4 7320 766f  |s vo|
0bc6 6c75 6d65  |lume|
0bc8 733b 2045  |s; E|
0bca 7870 6563  |xpec|
0bcc 7465 6420  |ted |
0bce 2c20 466f  |, Fo|
0bd0 756e 6420  |und |
0bd2 4f77 6e65  |Owne|
0bd4 7220 6f66  |r of|
0bd6 206e 6577  | new|
0bd8 2076 6f6c  | vol|
0bda 756d 6520  |ume |
0bdc 646f 6573  |does|
0bde 6e27 7420  |n't |
0be0 6d61 7463  |matc|
0be2 6820 7072  |h pr|
0be4 6576 696f  |evio|
0be6 7573 2076  |us v|
0be8 6f6c 756d  |olum|
0bea 6573 4e75  |esNu|
0bec 6d62 6572  |mber|
0bee 206f 6620  | of |
0bf0 5556 4c73  |UVLs|
0bf2 2066 6f72  | for|
0bf4 206e 6577  | new|
0bf6 2076 6f6c  | vol|
0bf8 756d 6520  |ume |
0bfa 646f 6573  |does|
0bfc 6e27 7420  |n't |
0bfe 6d61 7463  |matc|