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

⟦e2d838b53⟧

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

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 0af8       |    |		.CONST	0x0af8								; 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 01e3       |    |		.CONST	0x01e3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 006f       | o  |		.CONST	0x006f								; Number of locals
000b			INIT_0008:
000b 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
000d 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
000f 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0011 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0013 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0015 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0017 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0019 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
001b 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
001d 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
001f 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
0021 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
0023 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0025 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
0027 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0029 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
002b 00bf       |    |		Action	Accept_Activation
002c 0092 09a7  |    |		Action	Push_String_Extended,0x9a7					; "Illegal item type"
002e 0092 09a8  |    |		Action	Push_String_Extended,0x9a8					; "No code generated for this statement"
0030 0092 09a9  |    |		Action	Push_String_Extended,0x9a9					; "Item requires unimplemented facility"
0032 0092 09aa  |    |		Action	Push_String_Extended,0x9aa					; "Exception raised:"
0034 0092 09ab  |    |		Action	Push_String_Extended,0x9ab					; "Task unknown or terminated"
0036 0092 09ac  |    |		Action	Push_String_Extended,0x9ac					; "Too many action items"
0038 0092 09ad  |    |		Action	Push_String_Extended,0x9ad					; "Return stepping illegal from task body"
003a 0092 09ae  |    |		Action	Push_String_Extended,0x9ae					; "Illegal Pc value"
003c 0093 0000  |    |		push_full_address	0x0
003e 61e1       |a   |		Indirect_Literal	Discrete,0x220,{0x80000000, 0x00010000}
003f 0273       | s  |		Execute	Discrete,Plus
0040 0007       |    |		Action	Break_Optional
0041 0093 0000  |    |		push_full_address	0x0
0043 61d8       |a   |		Indirect_Literal	Discrete,0x21c,{0x80000000, 0x00020000}
0044 0273       | s  |		Execute	Discrete,Plus
0045 0007       |    |		Action	Break_Optional
0046 0093 0000  |    |		push_full_address	0x0
0048 61cf       |a   |		Indirect_Literal	Discrete,0x218,{0x80000000, 0x00030000}
0049 0273       | s  |		Execute	Discrete,Plus
004a 0007       |    |		Action	Break_Optional
004b 0093 0000  |    |		push_full_address	0x0
004d 61c6       |a   |		Indirect_Literal	Discrete,0x214,{0x80000000, 0x00040000}
004e 0273       | s  |		Execute	Discrete,Plus
004f 0007       |    |		Action	Break_Optional
0050 e002       |    |		Load	0x0,0x2
0051 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0052 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0053 e003       |    |		Load	0x0,0x3
0054 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0055 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0056 e003       |    |		Load	0x0,0x3
0057 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0058 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0059 8004       |    |		Call	0x0,0x4
005a e005       |    |		Load	0x0,0x5
005b 03f1       |    |		Declare_Variable	Discrete,With_Value
005c 8006       |    |		Call	0x0,0x6
005d e005       |    |		Load	0x0,0x5
005e 03f1       |    |		Declare_Variable	Discrete,With_Value
005f e007       |    |		Load	0x0,0x7
0060 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0061 e008       |    |		Load	0x0,0x8
0062 0322       | "  |		Declare_Variable	Record
0063 00d8       |    |		Load_Top	At_Offset_0
0064 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0065 e009       |    |		Load	0x0,0x9
0066 00d9       |    |		Load_Top	At_Offset_1
0067 017d       | }  |		Execute	Record,Structure_Write
0068 e003       |    |		Load	0x0,0x3
0069 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
006a 02c7       |    |		Declare_Variable	Any
006b e00a       |    |		Load	0x0,0xa
006c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
006d a230       | 0  |		Store_Unchecked	0x1,0x30
006e e00b       |    |		Load	0x0,0xb
006f 0322       | "  |		Declare_Variable	Record
0070 e00c       |    |		Load	0x0,0xc
0071 00d9       |    |		Load_Top	At_Offset_1
0072 017d       | }  |		Execute	Record,Structure_Write
0073 00e2       |    |		Load_Encached	Integer_Cache
0074 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0075 4800       |H   |		Short_Literal	0x0
0076 4804       |H   |		Short_Literal	0x4
0077 e001       |    |		Load	0x0,0x1
0078 01d7       |    |		Execute	Vector,Field_Read
0079 02a0       |    |		Declare_Subprogram	Null_Subprogram
007a 038e       |    |		Declare_Type	Package,Defined
007b e001       |    |		Load	0x0,0x1
007c 4803       |H   |		Short_Literal	0x3
007d e001       |    |		Load	0x0,0x1
007e 01d7       |    |		Execute	Vector,Field_Read
007f e002       |    |		Load	0x0,0x2
0080 4803       |H   |		Short_Literal	0x3
0081 e233       | 3  |		Load	0x1,0x33
0082 020e       |    |		Execute	Module,Augment_Imports
0083 0387       |    |		Declare_Variable	Package
0084 4800       |H   |		Short_Literal	0x0
0085 4802       |H   |		Short_Literal	0x2
0086 e001       |    |		Load	0x0,0x1
0087 01d7       |    |		Execute	Vector,Field_Read
0088 02a0       |    |		Declare_Subprogram	Null_Subprogram
0089 038e       |    |		Declare_Type	Package,Defined
008a e001       |    |		Load	0x0,0x1
008b 4801       |H   |		Short_Literal	0x1
008c e001       |    |		Load	0x0,0x1
008d 01d7       |    |		Execute	Vector,Field_Read
008e 4802       |H   |		Short_Literal	0x2
008f 00db       |    |		Load_Top	At_Offset_3
0090 020e       |    |		Execute	Module,Augment_Imports
0091 0387       |    |		Declare_Variable	Package
0092 00e1       |    |		Load_Encached	Boolean_Cache
0093 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0094 e229       | )  |		Load	0x1,0x29
0095 0007       |    |		Action	Break_Optional
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0098 00e1       |    |		Load_Encached	Boolean_Cache
0099 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
009a 00e1       |    |		Load_Encached	Boolean_Cache
009b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
009c 00e1       |    |		Load_Encached	Boolean_Cache
009d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
009e 800d       |    |		Call	0x0,0xd
009f e00e       |    |		Load	0x0,0xe
00a0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00a1 03f1       |    |		Declare_Variable	Discrete,With_Value
00a2 029d 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call
00a4 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
00a6 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call
00a8 029d 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call
00aa 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
00ac 029d 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call
00ae 029d 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call
00b0 a00f       |    |		Store_Unchecked	0x0,0xf
00b1 00c6       |    |		Action	Check_Subprogram_Elaborated
00b2 00e2       |    |		Load_Encached	Integer_Cache
00b3 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
00b4 4800       |H   |		Short_Literal	0x0
00b5 0093 0000  |    |		push_full_address	0x0
00b7 6158       |aX  |		Indirect_Literal	Discrete,0x210,{0x80000000, 0x00040000}
00b8 0273       | s  |		Execute	Discrete,Plus
00b9 e010       |    |		Load	0x0,0x10
00ba 0273       | s  |		Execute	Discrete,Plus
00bb e011       |    |		Load	0x0,0x11
00bc 0273       | s  |		Execute	Discrete,Plus
00bd 4800       |H   |		Short_Literal	0x0
00be 0007       |    |		Action	Break_Optional
00bf 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call
00c1 029d 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call
00c3 029d 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call
00c5 029d 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call
00c7 029d 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call
00c9 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 029d 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call
00cd 029d 0733  |   3|		Declare_Subprogram	INIT_0730,For_Outer_Call
00cf 029d 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call
00d1 029d 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call
00d3 029d 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Outer_Call
00d5 029d 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call
00d7 029d 07db  |    |		Declare_Subprogram	INIT_07d8,For_Outer_Call
00d9 029d 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call
00db 029d 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call
00dd 029d 0813  |    |		Declare_Subprogram	INIT_0810,For_Outer_Call
00df 029d 0843  |   C|		Declare_Subprogram	INIT_0840,For_Outer_Call
00e1 029d 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call
00e3 a00f       |    |		Store_Unchecked	0x0,0xf
00e4 00c6       |    |		Action	Check_Subprogram_Elaborated
00e5 e012       |    |		Load	0x0,0x12
00e6 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
00e7 4800       |H   |		Short_Literal	0x0
00e8 0093 0000  |    |		push_full_address	0x0
00ea 6121       |a!  |		Indirect_Literal	Discrete,0x20c,{0x80000000, 0x00030000}
00eb 0273       | s  |		Execute	Discrete,Plus
00ec e010       |    |		Load	0x0,0x10
00ed 0273       | s  |		Execute	Discrete,Plus
00ee e013       |    |		Load	0x0,0x13
00ef 0273       | s  |		Execute	Discrete,Plus
00f0 4800       |H   |		Short_Literal	0x0
00f1 0007       |    |		Action	Break_Optional
00f2 029d 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call
00f4 029d 0913  |    |		Declare_Subprogram	INIT_0910,For_Outer_Call
00f6 a014       |    |		Store_Unchecked	0x0,0x14
00f7 00c6       |    |		Action	Check_Subprogram_Elaborated
00f8 00e2       |    |		Load_Encached	Integer_Cache
00f9 e012       |    |		Load	0x0,0x12
00fa 1d5e       | ^  |		Execute_Immediate	Reference_Lex_1,0x5e
00fb 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
00fc 0093 0000  |    |		push_full_address	0x0
00fe 6109       |a   |		Indirect_Literal	Discrete,0x208,{0x80000000, 0x00020000}
00ff 0273       | s  |		Execute	Discrete,Plus
0100 e010       |    |		Load	0x0,0x10
0101 0273       | s  |		Execute	Discrete,Plus
0102 e015       |    |		Load	0x0,0x15
0103 0273       | s  |		Execute	Discrete,Plus
0104 4800       |H   |		Short_Literal	0x0
0105 0007       |    |		Action	Break_Optional
0106 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 029d 092b  |   +|		Declare_Subprogram	INIT_0928,For_Outer_Call
010a 029d 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Outer_Call
010c 029d 0913  |    |		Declare_Subprogram	INIT_0910,For_Outer_Call
010e a014       |    |		Store_Unchecked	0x0,0x14
010f 00c6       |    |		Action	Check_Subprogram_Elaborated
0110 00e2       |    |		Load_Encached	Integer_Cache
0111 e002       |    |		Load	0x0,0x2
0112 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0113 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
0114 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
0115 0093 0000  |    |		push_full_address	0x0
0117 60ec       |`   |		Indirect_Literal	Discrete,0x204,{0x80000000, 0x00010000}
0118 0273       | s  |		Execute	Discrete,Plus
0119 e010       |    |		Load	0x0,0x10
011a 0273       | s  |		Execute	Discrete,Plus
011b e016       |    |		Load	0x0,0x16
011c 0273       | s  |		Execute	Discrete,Plus
011d 4800       |H   |		Short_Literal	0x0
011e 0007       |    |		Action	Break_Optional
011f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0120 00c7       |    |		Action	Elaborate_Subprogram
0121 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0122 00c7       |    |		Action	Elaborate_Subprogram
0123 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0124 00c7       |    |		Action	Elaborate_Subprogram
0125 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0126 00c7       |    |		Action	Elaborate_Subprogram
0127 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0128 00c7       |    |		Action	Elaborate_Subprogram
0129 029d 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call
012b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
012c 00c7       |    |		Action	Elaborate_Subprogram
012d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
012e 00c7       |    |		Action	Elaborate_Subprogram
012f 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0130 00c7       |    |		Action	Elaborate_Subprogram
0131 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0132 00c7       |    |		Action	Elaborate_Subprogram
0133 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0134 00c7       |    |		Action	Elaborate_Subprogram
0135 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0136 00c7       |    |		Action	Elaborate_Subprogram
0137 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0138 00c7       |    |		Action	Elaborate_Subprogram
0139 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
013a 00c7       |    |		Action	Elaborate_Subprogram
013b 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
013c 00c7       |    |		Action	Elaborate_Subprogram
013d a00f       |    |		Store_Unchecked	0x0,0xf
013e e017       |    |		Load	0x0,0x17
013f e010       |    |		Load	0x0,0x10
0140 e018       |    |		Load	0x0,0x18
0141 e019       |    |		Load	0x0,0x19
0142 e01a       |    |		Load	0x0,0x1a
0143 a014       |    |		Store_Unchecked	0x0,0x14
0144 e01b       |    |		Load	0x0,0x1b
0145 e01c       |    |		Load	0x0,0x1c
0146 e01d       |    |		Load	0x0,0x1d
0147 e01e       |    |		Load	0x0,0x1e
0148 e01f       |    |		Load	0x0,0x1f
0149 e00b       |    |		Load	0x0,0xb
014a e008       |    |		Load	0x0,0x8
014b e003       |    |		Load	0x0,0x3
014c a020       |    |		Store_Unchecked	0x0,0x20
014d e021       | !  |		Load	0x0,0x21
014e e022       | "  |		Load	0x0,0x22
014f a023       | #  |		Store_Unchecked	0x0,0x23
0150 a024       | $  |		Store_Unchecked	0x0,0x24
0151 a025       | %  |		Store_Unchecked	0x0,0x25
0152 a026       | &  |		Store_Unchecked	0x0,0x26
0153 a027       | '  |		Store_Unchecked	0x0,0x27
0154 a028       | (  |		Store_Unchecked	0x0,0x28
0155 e029       | )  |		Load	0x0,0x29
0156 e007       |    |		Load	0x0,0x7
0157 a02a       | *  |		Store_Unchecked	0x0,0x2a
0158 a02b       | +  |		Store_Unchecked	0x0,0x2b
0159 a02c       | ,  |		Store_Unchecked	0x0,0x2c
015a a02d       | -  |		Store_Unchecked	0x0,0x2d
015b a02e       | .  |		Store_Unchecked	0x0,0x2e
015c a02f       | /  |		Store_Unchecked	0x0,0x2f
015d a030       | 0  |		Store_Unchecked	0x0,0x30
015e a031       | 1  |		Store_Unchecked	0x0,0x31
015f e032       | 2  |		Load	0x0,0x32
0160 a033       | 3  |		Store_Unchecked	0x0,0x33
0161 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0162 e034       | 4  |		Load	0x0,0x34
0163 e00e       |    |		Load	0x0,0xe
0164 4827       |H'  |		Short_Literal	0x27
0165 e234       | 4  |		Load	0x1,0x34
0166 020e       |    |		Execute	Module,Augment_Imports
0167 e234       | 4  |		Load	0x1,0x34
0168 020f       |    |		Execute	Module,Activate
0169 e003       |    |		Load	0x0,0x3
016a e008       |    |		Load	0x0,0x8
016b e00b       |    |		Load	0x0,0xb
016c e007       |    |		Load	0x0,0x7
016d e035       | 5  |		Load	0x0,0x35
016e e005       |    |		Load	0x0,0x5
016f a02e       | .  |		Store_Unchecked	0x0,0x2e
0170 e01e       |    |		Load	0x0,0x1e
0171 a036       | 6  |		Store_Unchecked	0x0,0x36
0172 a037       | 7  |		Store_Unchecked	0x0,0x37
0173 a038       | 8  |		Store_Unchecked	0x0,0x38
0174 a039       | 9  |		Store_Unchecked	0x0,0x39
0175 e00c       |    |		Load	0x0,0xc
0176 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0177 e03a       | :  |		Load	0x0,0x3a
0178 a00f       |    |		Store_Unchecked	0x0,0xf
0179 e010       |    |		Load	0x0,0x10
017a e03b       | ;  |		Load	0x0,0x3b
017b a014       |    |		Store_Unchecked	0x0,0x14
017c e03c       | <  |		Load	0x0,0x3c
017d e03d       | =  |		Load	0x0,0x3d
017e e03e       | >  |		Load	0x0,0x3e
017f e03f       | ?  |		Load	0x0,0x3f
0180 e040       | @  |		Load	0x0,0x40
0181 e00a       |    |		Load	0x0,0xa
0182 a041       | A  |		Store_Unchecked	0x0,0x41
0183 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0184 a004       |    |		Store_Unchecked	0x0,0x4
0185 a042       | B  |		Store_Unchecked	0x0,0x42
0186 a043       | C  |		Store_Unchecked	0x0,0x43
0187 a044       | D  |		Store_Unchecked	0x0,0x44
0188 a045       | E  |		Store_Unchecked	0x0,0x45
0189 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
018a e00e       |    |		Load	0x0,0xe
018b 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
018c 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
018d e046       | F  |		Load	0x0,0x46
018e e047       | G  |		Load	0x0,0x47
018f a048       | H  |		Store_Unchecked	0x0,0x48
0190 a049       | I  |		Store_Unchecked	0x0,0x49
0191 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0192 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0193 a04a       | J  |		Store_Unchecked	0x0,0x4a
0194 a00d       |    |		Store_Unchecked	0x0,0xd
0195 e04b       | K  |		Load	0x0,0x4b
0196 e04c       | L  |		Load	0x0,0x4c
0197 a04d       | M  |		Store_Unchecked	0x0,0x4d
0198 a04e       | N  |		Store_Unchecked	0x0,0x4e
0199 a04f       | O  |		Store_Unchecked	0x0,0x4f
019a a050       | P  |		Store_Unchecked	0x0,0x50
019b a051       | Q  |		Store_Unchecked	0x0,0x51
019c e052       | R  |		Load	0x0,0x52
019d a053       | S  |		Store_Unchecked	0x0,0x53
019e e054       | T  |		Load	0x0,0x54
019f e034       | 4  |		Load	0x0,0x34
01a0 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
01a1 a055       | U  |		Store_Unchecked	0x0,0x55
01a2 a056       | V  |		Store_Unchecked	0x0,0x56
01a3 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
01a4 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
01a5 a057       | W  |		Store_Unchecked	0x0,0x57
01a6 e058       | X  |		Load	0x0,0x58
01a7 e059       | Y  |		Load	0x0,0x59
01a8 e05a       | Z  |		Load	0x0,0x5a
01a9 e05b       | [  |		Load	0x0,0x5b
01aa e05c       | \  |		Load	0x0,0x5c
01ab e05d       | ]  |		Load	0x0,0x5d
01ac e05e       | ^  |		Load	0x0,0x5e
01ad a05f       | _  |		Store_Unchecked	0x0,0x5f
01ae a060       | `  |		Store_Unchecked	0x0,0x60
01af 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
01b0 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
01b1 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
01b2 a061       | a  |		Store_Unchecked	0x0,0x61
01b3 e062       | b  |		Load	0x0,0x62
01b4 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
01b5 a063       | c  |		Store_Unchecked	0x0,0x63
01b6 a064       | d  |		Store_Unchecked	0x0,0x64
01b7 a065       | e  |		Store_Unchecked	0x0,0x65
01b8 a066       | f  |		Store_Unchecked	0x0,0x66
01b9 a067       | g  |		Store_Unchecked	0x0,0x67
01ba a068       | h  |		Store_Unchecked	0x0,0x68
01bb a069       | i  |		Store_Unchecked	0x0,0x69
01bc a06a       | j  |		Store_Unchecked	0x0,0x6a
01bd a06b       | k  |		Store_Unchecked	0x0,0x6b
01be a06c       | l  |		Store_Unchecked	0x0,0x6c
01bf 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
01c0 e06d       | m  |		Load	0x0,0x6d
01c1 e22f       | /  |		Load	0x1,0x2f
01c2 a06e       | n  |		Store_Unchecked	0x0,0x6e
01c3 a06f       | o  |		Store_Unchecked	0x0,0x6f
01c4 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01c5 a070       | p  |		Store_Unchecked	0x0,0x70
01c6 e231       | 1  |		Load	0x1,0x31
01c7 a071       | q  |		Store_Unchecked	0x0,0x71
01c8 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
01c9 a072       | r  |		Store_Unchecked	0x0,0x72
01ca 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
01cb a073       | s  |		Store_Unchecked	0x0,0x73
01cc a074       | t  |		Store_Unchecked	0x0,0x74
01cd a075       | u  |		Store_Unchecked	0x0,0x75
01ce a076       | v  |		Store_Unchecked	0x0,0x76
01cf 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
01d0 a077       | w  |		Store_Unchecked	0x0,0x77
01d1 a025       | %  |		Store_Unchecked	0x0,0x25
01d2 a078       | x  |		Store_Unchecked	0x0,0x78
01d3 a079       | y  |		Store_Unchecked	0x0,0x79
01d4 a07a       | z  |		Store_Unchecked	0x0,0x7a
01d5 e0a0       |    |		Load	0x0,0xa0
01d6 a0a1       |    |		Store_Unchecked	0x0,0xa1
01d7 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
01d8 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
01d9 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
01da a0a2       |    |		Store_Unchecked	0x0,0xa2
01db e0a3       |    |		Load	0x0,0xa3
01dc a02b       | +  |		Store_Unchecked	0x0,0x2b
01dd a0a4       |    |		Store_Unchecked	0x0,0xa4
01de 4875       |Hu  |		Short_Literal	0x75
01df e233       | 3  |		Load	0x1,0x33
01e0 020e       |    |		Execute	Module,Augment_Imports
01e1 e233       | 3  |		Load	0x1,0x33
01e2 020f       |    |		Execute	Module,Activate
01e3			BODY_0008:
01e3 e233       | 3  |		Load	0x1,0x33
01e4 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01e5 e234       | 4  |		Load	0x1,0x34
01e6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01e7 e233       | 3  |		Load	0x1,0x33
01e8 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01e9 00bc       |    |		Action	Signal_Activated
01ea 00bb       |    |		Action	Signal_Completion
01eb 0000 0000  |    |		.BLANK	0000[0x5]
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 4800       |H   |		Short_Literal	0x0
01f4 a237       | 7  |		Store_Unchecked	0x1,0x37
01f5 4800       |H   |		Short_Literal	0x0
01f6 a235       | 5  |		Store_Unchecked	0x1,0x35
01f7 4800       |H   |		Short_Literal	0x0
01f8 a238       | 8  |		Store_Unchecked	0x1,0x38
01f9 4800       |H   |		Short_Literal	0x0
01fa a239       | 9  |		Store_Unchecked	0x1,0x39
01fb 4800       |H   |		Short_Literal	0x0
01fc a23a       | :  |		Store_Unchecked	0x1,0x3a
01fd e233       | 3  |		Load	0x1,0x33
01fe 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01ff 807b       | {  |		Call	0x0,0x7b
0200 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0201 0000 0000  |    |		.XXX[0x3]
0203 0000       |    |
0204 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0208 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
020c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0210 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0214 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0218 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
021c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0220 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0224 0000 0000  |    |		.BLANK	0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0232       | 2  |		.CONST	0x0232								; Address of begin
0229 02f2       |    |		.CONST	0x02f2								; Address of exception handler
022a 0003       |    |		.CONST	0x0003								; Number of locals
022b			INIT_0228:
022b e00e       |    |		Load	0x0,0xe
022c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
022d e012       |    |		Load	0x0,0x12
022e 0322       | "  |		Declare_Variable	Record
022f e5ff       |    |		Load	0x2,-0x1
0230 00d9       |    |		Load_Top	At_Offset_1
0231 017d       | }  |		Execute	Record,Structure_Write
0232			BODY_0228:
0232 e5ff       |    |		Load	0x2,-0x1
0233 807c       | |  |		Call	0x0,0x7c
0234 0f04       |    |		Execute_Immediate	Equal,0x4
0235 6803       |h   |		Jump_Zero	0x239
0236 4801       |H   |		Short_Literal	0x1
0237 a239       | 9  |		Store_Unchecked	0x1,0x39
0238 78aa       |x   |		Jump	0x2e3
0239 e5ff       |    |		Load	0x2,-0x1
023a 807c       | |  |		Call	0x0,0x7c
023b 0f05       |    |		Execute_Immediate	Equal,0x5
023c 6803       |h   |		Jump_Zero	0x240
023d 4801       |H   |		Short_Literal	0x1
023e a23a       | :  |		Store_Unchecked	0x1,0x3a
023f 78a3       |x   |		Jump	0x2e3
0240 e5ff       |    |		Load	0x2,-0x1
0241 807d       | }  |		Call	0x0,0x7d
0242 8039       | 9  |		Call	0x0,0x39
0243 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0244 e5ff       |    |		Load	0x2,-0x1
0245 8256       | V  |		Call	0x1,0x56
0246 00d9       |    |		Load_Top	At_Offset_1
0247 e22a       | *  |		Load	0x1,0x2a
0248 027f       |    |		Execute	Discrete,Equal
0249 6891       |h   |		Jump_Zero	0x2db
024a e5ff       |    |		Load	0x2,-0x1
024b 824e       | N  |		Call	0x1,0x4e
024c 6805       |h   |		Jump_Zero	0x252
024d e5ff       |    |		Load	0x2,-0x1
024e 807c       | |  |		Call	0x0,0x7c
024f e233       | 3  |		Load	0x1,0x33
0250 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0251 7891       |x   |		Jump	0x2e3
0252 e5ff       |    |		Load	0x2,-0x1
0253 824f       | O  |		Call	0x1,0x4f
0254 6802       |h   |		Jump_Zero	0x257
0255 e225       | %  |		Load	0x1,0x25
0256 0257       | W  |		Execute	Discrete,Raise
0257 e5ff       |    |		Load	0x2,-0x1
0258 8250       | P  |		Call	0x1,0x50
0259 6833       |h3  |		Jump_Zero	0x28d
025a e5ff       |    |		Load	0x2,-0x1
025b 807e       | ~  |		Call	0x0,0x7e
025c 807f       |    |		Call	0x0,0x7f
025d 681a       |h   |		Jump_Zero	0x278
025e e5ff       |    |		Load	0x2,-0x1
025f 807c       | |  |		Call	0x0,0x7c
0260 e5ff       |    |		Load	0x2,-0x1
0261 8080       |    |		Call	0x0,0x80
0262 0f00       |    |		Execute_Immediate	Equal,0x0
0263 e5ff       |    |		Load	0x2,-0x1
0264 8081       |    |		Call	0x0,0x81
0265 00d8       |    |		Load_Top	At_Offset_0
0266 00e4       |    |		Load_Encached	Positive_Cache
0267 0260       | `  |		Execute	Discrete,In_Type
0268 7001       |p   |		Jump_Nonzero	0x26a
0269 0801       |    |		Execute_Immediate	Raise,0x1
026a e5ff       |    |		Load	0x2,-0x1
026b 8082       |    |		Call	0x0,0x82
026c e5ff       |    |		Load	0x2,-0x1
026d 8083       |    |		Call	0x0,0x83
026e e5ff       |    |		Load	0x2,-0x1
026f 8084       |    |		Call	0x0,0x84
0270 e5ff       |    |		Load	0x2,-0x1
0271 8085       |    |		Call	0x0,0x85
0272 8086       |    |		Call	0x0,0x86
0273 8049       | I  |		Call	0x0,0x49
0274 e402       |    |		Load	0x2,0x2
0275 e233       | 3  |		Load	0x1,0x33
0276 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0277 786b       |xk  |		Jump	0x2e3
0278 e5ff       |    |		Load	0x2,-0x1
0279 807c       | |  |		Call	0x0,0x7c
027a e5ff       |    |		Load	0x2,-0x1
027b 8080       |    |		Call	0x0,0x80
027c 0f00       |    |		Execute_Immediate	Equal,0x0
027d e5ff       |    |		Load	0x2,-0x1
027e 8081       |    |		Call	0x0,0x81
027f 00d8       |    |		Load_Top	At_Offset_0
0280 00e4       |    |		Load_Encached	Positive_Cache
0281 0260       | `  |		Execute	Discrete,In_Type
0282 7001       |p   |		Jump_Nonzero	0x284
0283 0801       |    |		Execute_Immediate	Raise,0x1
0284 e5ff       |    |		Load	0x2,-0x1
0285 8082       |    |		Call	0x0,0x82
0286 e5ff       |    |		Load	0x2,-0x1
0287 807e       | ~  |		Call	0x0,0x7e
0288 8037       | 7  |		Call	0x0,0x37
0289 e402       |    |		Load	0x2,0x2
028a e233       | 3  |		Load	0x1,0x33
028b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
028c 7856       |xV  |		Jump	0x2e3
028d e5ff       |    |		Load	0x2,-0x1
028e 8255       | U  |		Call	0x1,0x55
028f 6812       |h   |		Jump_Zero	0x2a2
0290 e5ff       |    |		Load	0x2,-0x1
0291 807c       | |  |		Call	0x0,0x7c
0292 e5ff       |    |		Load	0x2,-0x1
0293 8087       |    |		Call	0x0,0x87
0294 e5ff       |    |		Load	0x2,-0x1
0295 8088       |    |		Call	0x0,0x88
0296 e5ff       |    |		Load	0x2,-0x1
0297 8083       |    |		Call	0x0,0x83
0298 e5ff       |    |		Load	0x2,-0x1
0299 8084       |    |		Call	0x0,0x84
029a e5ff       |    |		Load	0x2,-0x1
029b 8082       |    |		Call	0x0,0x82
029c e5ff       |    |		Load	0x2,-0x1
029d 8089       |    |		Call	0x0,0x89
029e e402       |    |		Load	0x2,0x2
029f e233       | 3  |		Load	0x1,0x33
02a0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02a1 7841       |xA  |		Jump	0x2e3
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 8251       | Q  |		Call	0x1,0x51
02a4 680a       |h   |		Jump_Zero	0x2af
02a5 00d8       |    |		Load_Top	At_Offset_0
02a6 e232       | 2  |		Load	0x1,0x32
02a7 e260       | `  |		Load	0x1,0x60
02a8 e261       | a  |		Load	0x1,0x61
02a9 1d62       | b  |		Execute_Immediate	Reference_Lex_1,0x62
02aa 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
02ab 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
02ac 8014       |    |		Call	0x0,0x14
02ad 00d1       |    |		Pop_Control	Pop_Count_1
02ae 7834       |x4  |		Jump	0x2e3
02af e5ff       |    |		Load	0x2,-0x1
02b0 8252       | R  |		Call	0x1,0x52
02b1 6811       |h   |		Jump_Zero	0x2c3
02b2 e5ff       |    |		Load	0x2,-0x1
02b3 807c       | |  |		Call	0x0,0x7c
02b4 e5ff       |    |		Load	0x2,-0x1
02b5 8085       |    |		Call	0x0,0x85
02b6 8086       |    |		Call	0x0,0x86
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 8083       |    |		Call	0x0,0x83
02b9 e5ff       |    |		Load	0x2,-0x1
02ba 8084       |    |		Call	0x0,0x84
02bb e5ff       |    |		Load	0x2,-0x1
02bc 8082       |    |		Call	0x0,0x82
02bd e5ff       |    |		Load	0x2,-0x1
02be 808a       |    |		Call	0x0,0x8a
02bf e402       |    |		Load	0x2,0x2
02c0 e233       | 3  |		Load	0x1,0x33
02c1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c2 7820       |x   |		Jump	0x2e3
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 8253       | S  |		Call	0x1,0x53
02c5 7003       |p   |		Jump_Nonzero	0x2c9
02c6 e5ff       |    |		Load	0x2,-0x1
02c7 8254       | T  |		Call	0x1,0x54
02c8 6810       |h   |		Jump_Zero	0x2d9
02c9 e5ff       |    |		Load	0x2,-0x1
02ca 807c       | |  |		Call	0x0,0x7c
02cb e5ff       |    |		Load	0x2,-0x1
02cc 8087       |    |		Call	0x0,0x87
02cd e5ff       |    |		Load	0x2,-0x1
02ce 8083       |    |		Call	0x0,0x83
02cf e5ff       |    |		Load	0x2,-0x1
02d0 8084       |    |		Call	0x0,0x84
02d1 e5ff       |    |		Load	0x2,-0x1
02d2 8082       |    |		Call	0x0,0x82
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 8089       |    |		Call	0x0,0x89
02d5 e402       |    |		Load	0x2,0x2
02d6 e233       | 3  |		Load	0x1,0x33
02d7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02d8 780a       |x   |		Jump	0x2e3
02d9 e227       | '  |		Load	0x1,0x27
02da 0257       | W  |		Execute	Discrete,Raise
02db 00d8       |    |		Load_Top	At_Offset_0
02dc 00da       |    |		Load_Top	At_Offset_2
02dd e259       | Y  |		Load	0x1,0x59
02de 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
02df e25b       | [  |		Load	0x1,0x5b
02e0 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
02e1 800f       |    |		Call	0x0,0xf
02e2 00d1       |    |		Pop_Control	Pop_Count_1
02e3 e5fe       |    |		Load	0x2,-0x2
02e4 e01e       |    |		Load	0x0,0x1e
02e5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02e6 c5fe       |    |		Store	0x2,-0x2
02e7 e5fe       |    |		Load	0x2,-0x2
02e8 0120       |    |		Execute	Any,Is_Value
02e9 6803       |h   |		Jump_Zero	0x2ed
02ea e01e       |    |		Load	0x0,0x1e
02eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ec 7801       |x   |		Jump	0x2ee
02ed e5fe       |    |		Load	0x2,-0x2
02ee e5ff       |    |		Load	0x2,-0x1
02ef 808b       |    |		Call	0x0,0x8b
02f0 c5fe       |    |		Store	0x2,-0x2
02f1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f2			TRAP_0228:
02f2 e225       | %  |		Load	0x1,0x25
02f3 010f       |    |		Execute	Exception,Equal
02f4 6806       |h   |		Jump_Zero	0x2fb
02f5 e5fe       |    |		Load	0x2,-0x2
02f6 e21d       |    |		Load	0x1,0x1d
02f7 e01e       |    |		Load	0x0,0x1e
02f8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02f9 c5fe       |    |		Store	0x2,-0x2
02fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02fb e228       | (  |		Load	0x1,0x28
02fc 010f       |    |		Execute	Exception,Equal
02fd 6806       |h   |		Jump_Zero	0x304
02fe e5fe       |    |		Load	0x2,-0x2
02ff e21f       |    |		Load	0x1,0x1f
0300 e01e       |    |		Load	0x0,0x1e
0301 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0302 c5fe       |    |		Store	0x2,-0x2
0303 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0304 e052       | R  |		Load	0x0,0x52
0305 010f       |    |		Execute	Exception,Equal
0306 6806       |h   |		Jump_Zero	0x30d
0307 e5fe       |    |		Load	0x2,-0x2
0308 e221       | !  |		Load	0x1,0x21
0309 e01e       |    |		Load	0x0,0x1e
030a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
030b c5fe       |    |		Store	0x2,-0x2
030c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
030d e233       | 3  |		Load	0x1,0x33
030e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
030f 010f       |    |		Execute	Exception,Equal
0310 7004       |p   |		Jump_Nonzero	0x315
0311 e233       | 3  |		Load	0x1,0x33
0312 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0313 010f       |    |		Execute	Exception,Equal
0314 6806       |h   |		Jump_Zero	0x31b
0315 e5fe       |    |		Load	0x2,-0x2
0316 e222       | "  |		Load	0x1,0x22
0317 e01e       |    |		Load	0x0,0x1e
0318 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0319 c5fe       |    |		Store	0x2,-0x2
031a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
031b e226       | &  |		Load	0x1,0x26
031c 010f       |    |		Execute	Exception,Equal
031d 6806       |h   |		Jump_Zero	0x324
031e e5fe       |    |		Load	0x2,-0x2
031f e223       | #  |		Load	0x1,0x23
0320 e01e       |    |		Load	0x0,0x1e
0321 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0322 c5fe       |    |		Store	0x2,-0x2
0323 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0324 e233       | 3  |		Load	0x1,0x33
0325 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0326 010f       |    |		Execute	Exception,Equal
0327 6806       |h   |		Jump_Zero	0x32e
0328 e5fe       |    |		Load	0x2,-0x2
0329 e224       | $  |		Load	0x1,0x24
032a e01e       |    |		Load	0x0,0x1e
032b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
032c c5fe       |    |		Store	0x2,-0x2
032d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
032e e08c       |    |		Load	0x0,0x8c
032f 010f       |    |		Execute	Exception,Equal
0330 6806       |h   |		Jump_Zero	0x337
0331 e5fe       |    |		Load	0x2,-0x2
0332 e21e       |    |		Load	0x1,0x1e
0333 e01e       |    |		Load	0x0,0x1e
0334 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0335 c5fe       |    |		Store	0x2,-0x2
0336 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0337 e5fe       |    |		Load	0x2,-0x2
0338 e220       |    |		Load	0x1,0x20
0339 e034       | 4  |		Load	0x0,0x34
033a 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
033b 01cc       |    |		Execute	Vector,Catenate
033c e01e       |    |		Load	0x0,0x1e
033d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
033e c5fe       |    |		Store	0x2,-0x2
033f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0347       | G  |		.CONST	0x0347								; Address of begin
0341 0364       | d  |		.CONST	0x0364								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 e002       |    |		Load	0x0,0x2
0345 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0346 03f1       |    |		Declare_Variable	Discrete,With_Value
0347			BODY_0340:
0347 00db       |    |		Load_Top	At_Offset_3
0348 0f04       |    |		Execute_Immediate	Equal,0x4
0349 6803       |h   |		Jump_Zero	0x34d
034a 4800       |H   |		Short_Literal	0x0
034b a239       | 9  |		Store_Unchecked	0x1,0x39
034c 7809       |x   |		Jump	0x356
034d 00db       |    |		Load_Top	At_Offset_3
034e 0f05       |    |		Execute_Immediate	Equal,0x5
034f 6803       |h   |		Jump_Zero	0x353
0350 4800       |H   |		Short_Literal	0x0
0351 a23a       | :  |		Store_Unchecked	0x1,0x3a
0352 7803       |x   |		Jump	0x356
0353 00db       |    |		Load_Top	At_Offset_3
0354 e233       | 3  |		Load	0x1,0x33
0355 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0356 e01e       |    |		Load	0x0,0x1e
0357 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0358 c5fe       |    |		Store	0x2,-0x2
0359 e5fe       |    |		Load	0x2,-0x2
035a 0120       |    |		Execute	Any,Is_Value
035b 6803       |h   |		Jump_Zero	0x35f
035c e01e       |    |		Load	0x0,0x1e
035d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035e 7801       |x   |		Jump	0x360
035f e5fe       |    |		Load	0x2,-0x2
0360 e5ff       |    |		Load	0x2,-0x1
0361 808d       |    |		Call	0x0,0x8d
0362 c5fe       |    |		Store	0x2,-0x2
0363 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0364			TRAP_0340:
0364 0007       |    |		Action	Break_Optional
0365 e220       |    |		Load	0x1,0x20
0366 e034       | 4  |		Load	0x0,0x34
0367 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0368 01cc       |    |		Execute	Vector,Catenate
0369 e01e       |    |		Load	0x0,0x1e
036a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
036b c5fe       |    |		Store	0x2,-0x2
036c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
036d 0000 0000  |    |		.XXX[0x3]
036f 0000       |    |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0377       | w  |		.CONST	0x0377								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 00da       |    |		Load_Top	At_Offset_2
0374 e002       |    |		Load	0x0,0x2
0375 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0376 03f1       |    |		Declare_Variable	Discrete,With_Value
0377			BODY_0370:
0377 00db       |    |		Load_Top	At_Offset_3
0378 e233       | 3  |		Load	0x1,0x33
0379 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
037a 7009       |p   |		Jump_Nonzero	0x384
037b 00db       |    |		Load_Top	At_Offset_3
037c e5fe       |    |		Load	0x2,-0x2
037d e233       | 3  |		Load	0x1,0x33
037e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
037f e5fd       |    |		Load	0x2,-0x3
0380 e01e       |    |		Load	0x0,0x1e
0381 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0382 c5fd       |    |		Store	0x2,-0x3
0383 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0384 00db       |    |		Load_Top	At_Offset_3
0385 a236       | 6  |		Store_Unchecked	0x1,0x36
0386 4801       |H   |		Short_Literal	0x1
0387 a235       | 5  |		Store_Unchecked	0x1,0x35
0388 00d8       |    |		Load_Top	At_Offset_0
0389 e232       | 2  |		Load	0x1,0x32
038a e269       | i  |		Load	0x1,0x69
038b e26a       | j  |		Load	0x1,0x6a
038c 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
038d 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
038e 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
038f 8014       |    |		Call	0x0,0x14
0390 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0391 00db       |    |		Load_Top	At_Offset_3
0392 e233       | 3  |		Load	0x1,0x33
0393 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0394 00db       |    |		Load_Top	At_Offset_3
0395 e5fe       |    |		Load	0x2,-0x2
0396 e233       | 3  |		Load	0x1,0x33
0397 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0398 e5fd       |    |		Load	0x2,-0x3
0399 e01e       |    |		Load	0x0,0x1e
039a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
039b c5fd       |    |		Store	0x2,-0x3
039c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
039d 0000 0000  |    |		.XXX[0x3]
039f 0000       |    |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5fd       |    |		Load	0x2,-0x3
03a4 e5fe       |    |		Load	0x2,-0x2
03a5 e5ff       |    |		Load	0x2,-0x1
03a6 e234       | 4  |		Load	0x1,0x34
03a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a8 c5fd       |    |		Store	0x2,-0x3
03a9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03aa 0000 0000  |    |		.BLANK	0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 03ba       |    |		.CONST	0x03ba								; 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 e233       | 3  |		Load	0x1,0x33
03b5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03b6 e01e       |    |		Load	0x0,0x1e
03b7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03b8 c5fe       |    |		Store	0x2,-0x2
03b9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ba			TRAP_03b0:
03ba 0007       |    |		Action	Break_Optional
03bb 0092 09af  |    |		Action	Push_String_Extended,0x9af					; "Unable to set task interface subprogram"
03bd e01e       |    |		Load	0x0,0x1e
03be 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03bf c5fe       |    |		Store	0x2,-0x2
03c0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c1 0000 0000  |    |		.BLANK	0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cd       |    |		.CONST	0x03cd								; Address of begin
03c9 03de       |    |		.CONST	0x03de								; Address of exception handler
03ca 0002       |    |		.CONST	0x0002								; Number of locals
03cb			INIT_03c8:
03cb 029f 096b  |   k|		Declare_Subprogram	INIT_0968,For_Call
03cd			BODY_03c8:
03cd 00db       |    |		Load_Top	At_Offset_3
03ce 808e       |    |		Call	0x0,0x8e
03cf 6804       |h   |		Jump_Zero	0x3d4
03d0 e01e       |    |		Load	0x0,0x1e
03d1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03d2 c5fe       |    |		Store	0x2,-0x2
03d3 7806       |x   |		Jump	0x3da
03d4 e5fe       |    |		Load	0x2,-0x2
03d5 4801       |H   |		Short_Literal	0x1
03d6 e5ff       |    |		Load	0x2,-0x1
03d7 e234       | 4  |		Load	0x1,0x34
03d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d9 c5fe       |    |		Store	0x2,-0x2
03da 00db       |    |		Load_Top	At_Offset_3
03db 808f       |    |		Call	0x0,0x8f
03dc 8402       |    |		Call	0x2,0x2
03dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03de			TRAP_03c8:
03de 0007       |    |		Action	Break_Optional
03df e5fe       |    |		Load	0x2,-0x2
03e0 00ea       |    |		Load_Encached	Null_String_Cache
03e1 e034       | 4  |		Load	0x0,0x34
03e2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03e3 0092 09b0  |    |		Action	Push_String_Extended,0x9b0					; "Disable_Debugging exception"
03e5 e01e       |    |		Load	0x0,0x1e
03e6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03e7 c5fe       |    |		Store	0x2,-0x2
03e8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e9 0000 0000  |    |		.BLANK	0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 e5fd       |    |		Load	0x2,-0x3
03f4 e229       | )  |		Load	0x1,0x29
03f5 4801       |H   |		Short_Literal	0x1
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 e5ff       |    |		Load	0x2,-0x1
03f8 826f       | o  |		Call	0x1,0x6f
03f9 c5fd       |    |		Store	0x2,-0x3
03fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03fb 0000 0000  |    |		.BLANK	0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 a238       | 8  |		Store_Unchecked	0x1,0x38
0405 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0406 0000 0000  |    |		.XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00e5       |    |		Load_Encached	Long_Integer_Cache
040c 00e5       |    |		Load_Encached	Long_Integer_Cache
040d 00e5       |    |		Load_Encached	Long_Integer_Cache
040e 00e5       |    |		Load_Encached	Long_Integer_Cache
040f e233       | 3  |		Load	0x1,0x33
0410 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0411 c5ff       |    |		Store	0x2,-0x1
0412 c5fe       |    |		Store	0x2,-0x2
0413 c5fd       |    |		Store	0x2,-0x3
0414 c5fc       |    |		Store	0x2,-0x4
0415 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0416 0000 0000  |    |		.XXX[0x2]
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 e233       | 3  |		Load	0x1,0x33
041d 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
041e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
041f 0000       |    |		.XXX[0x1]
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 e5fa       |    |		Load	0x2,-0x6
0424 e5fb       |    |		Load	0x2,-0x5
0425 00e3       |    |		Load_Encached	Natural_Cache
0426 e5fd       |    |		Load	0x2,-0x3
0427 e5fe       |    |		Load	0x2,-0x2
0428 e5ff       |    |		Load	0x2,-0x1
0429 e233       | 3  |		Load	0x1,0x33
042a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
042b c5fc       |    |		Store	0x2,-0x4
042c 00d1       |    |		Pop_Control	Pop_Count_1
042d c5fa       |    |		Store	0x2,-0x6
042e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
042f 0000       |    |		.XXX[0x1]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00da       |    |		Load_Top	At_Offset_2
0434 e233       | 3  |		Load	0x1,0x33
0435 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0436 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0437 0000       |    |		.XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b e5fd       |    |		Load	0x2,-0x3
043c 00e3       |    |		Load_Encached	Natural_Cache
043d e5ff       |    |		Load	0x2,-0x1
043e e233       | 3  |		Load	0x1,0x33
043f 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0440 c5fe       |    |		Store	0x2,-0x2
0441 c5fd       |    |		Store	0x2,-0x3
0442 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0443 0000 0000  |    |		.BLANK	0000[0x5]
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 e23b       | ;  |		Load	0x1,0x3b
044c 00ca       |    |		Action	Exit_Nullary_Function
044d 0000 0000  |    |		.XXX[0x3]
044f 0000       |    |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 e233       | 3  |		Load	0x1,0x33
0454 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0455 e234       | 4  |		Load	0x1,0x34
0456 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0457 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045d       | ]  |		.CONST	0x045d								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0002       |    |		.CONST	0x0002								; Number of locals
045b			INIT_0458:
045b 029f 0983  |    |		Declare_Subprogram	INIT_0980,For_Call
045d			BODY_0458:
045d 0092 09b1  |    |		Action	Push_String_Extended,0x9b1					; "*** Internal Error: "
045f e5ff       |    |		Load	0x2,-0x1
0460 01cc       |    |		Execute	Vector,Catenate
0461 8090       |    |		Call	0x0,0x90
0462 8402       |    |		Call	0x2,0x2
0463 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0464 0000 0000  |    |		.BLANK	0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 4801       |H   |		Short_Literal	0x1
046c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
046d 0000 0000  |    |		.XXX[0x3]
046f 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
0474 808e       |    |		Call	0x0,0x8e
0475 0e02       |    |		Execute_Immediate	Not_Equal,0x2
0476 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0477 0000       |    |		.XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0485       |    |		.CONST	0x0485								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0006       |    |		.CONST	0x0006								; Number of locals
047b			INIT_0478:
047b e012       |    |		Load	0x0,0x12
047c 0322       | "  |		Declare_Variable	Record
047d 00d8       |    |		Load_Top	At_Offset_0
047e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
047f 00e1       |    |		Load_Encached	Boolean_Cache
0480 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0481 00e1       |    |		Load_Encached	Boolean_Cache
0482 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0483 00e1       |    |		Load_Encached	Boolean_Cache
0484 00e3       |    |		Load_Encached	Natural_Cache
0485			BODY_0478:
0485 4801       |H   |		Short_Literal	0x1
0486 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0487 e5fc       |    |		Load	0x2,-0x4
0488 e5ff       |    |		Load	0x2,-0x1
0489 8091       |    |		Call	0x0,0x91
048a 00cf       |    |		Action	Mark_Auxiliary
048b 00d9       |    |		Load_Top	At_Offset_1
048c e5fd       |    |		Load	0x2,-0x3
048d 027d       | }  |		Execute	Discrete,Greater
048e 706b       |pk  |		Jump_Nonzero	0x4fa
048f e402       |    |		Load	0x2,0x2
0490 00da       |    |		Load_Top	At_Offset_2
0491 e5fe       |    |		Load	0x2,-0x2
0492 01d7       |    |		Execute	Vector,Field_Read
0493 8092       |    |		Call	0x0,0x92
0494 00d1       |    |		Pop_Control	Pop_Count_1
0495 00d9       |    |		Load_Top	At_Offset_1
0496 e5fe       |    |		Load	0x2,-0x2
0497 01d7       |    |		Execute	Vector,Field_Read
0498 e5ff       |    |		Load	0x2,-0x1
0499 8093       |    |		Call	0x0,0x93
049a e402       |    |		Load	0x2,0x2
049b 8094       |    |		Call	0x0,0x94
049c 4602       |F   |		Jump_Case	0x3
049d 7807       |x   |		Jump	0x4a5								; case 0x0
049e 7852       |xR  |		Jump	0x4f1								; case 0x1
049f 7800       |x   |		Jump	0x4a0								; case 0x2
04a0 0092 09b2  |    |		Action	Push_String_Extended,0x9b2					; "Process: Special item on control list"
04a2 e095       |    |		Load	0x0,0x95
04a3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04a4 7850       |xP  |		Jump	0x4f5
04a5 e402       |    |		Load	0x2,0x2
04a6 8087       |    |		Call	0x0,0x87
04a7 4605       |F   |		Jump_Case	0x6
04a8 780a       |x   |		Jump	0x4b3								; case 0x0
04a9 7810       |x   |		Jump	0x4ba								; case 0x1
04aa 7808       |x   |		Jump	0x4b3								; case 0x2
04ab 7840       |x@  |		Jump	0x4ec								; case 0x3
04ac 7812       |x   |		Jump	0x4bf								; case 0x4
04ad 7800       |x   |		Jump	0x4ae								; case 0x5
04ae 0092 09b3  |    |		Action	Push_String_Extended,0x9b3					; "Process: unknown class"
04b0 e095       |    |		Load	0x0,0x95
04b1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04b2 7842       |xB  |		Jump	0x4f5
04b3 00e1       |    |		Load_Encached	Boolean_Cache
04b4 4800       |H   |		Short_Literal	0x0
04b5 e5ff       |    |		Load	0x2,-0x1
04b6 e234       | 4  |		Load	0x1,0x34
04b7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04b8 c403       |    |		Store	0x2,0x3
04b9 783b       |x;  |		Jump	0x4f5
04ba 0092 09b4  |    |		Action	Push_String_Extended,0x9b4					; "Profile unimplemented"
04bc e095       |    |		Load	0x0,0x95
04bd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04be 7836       |x6  |		Jump	0x4f5
04bf 4800       |H   |		Short_Literal	0x0
04c0 a404       |    |		Store_Unchecked	0x2,0x4
04c1 00cf       |    |		Action	Mark_Auxiliary
04c2 00e1       |    |		Load_Encached	Boolean_Cache
04c3 e5ff       |    |		Load	0x2,-0x1
04c4 e234       | 4  |		Load	0x1,0x34
04c5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04c6 c405       |    |		Store	0x2,0x5
04c7 00db       |    |		Load_Top	At_Offset_3
04c8 6802       |h   |		Jump_Zero	0x4cb
04c9 4801       |H   |		Short_Literal	0x1
04ca a404       |    |		Store_Unchecked	0x2,0x4
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 0a01       |    |		Execute_Immediate	Plus,0x1
04cd e5fd       |    |		Load	0x2,-0x3
04ce 027d       | }  |		Execute	Discrete,Greater
04cf 7015       |p   |		Jump_Nonzero	0x4e5
04d0 e402       |    |		Load	0x2,0x2
04d1 00db       |    |		Load_Top	At_Offset_3
04d2 0a01       |    |		Execute_Immediate	Plus,0x1
04d3 e5fe       |    |		Load	0x2,-0x2
04d4 01d7       |    |		Execute	Vector,Field_Read
04d5 8092       |    |		Call	0x0,0x92
04d6 00d1       |    |		Pop_Control	Pop_Count_1
04d7 e402       |    |		Load	0x2,0x2
04d8 8087       |    |		Call	0x0,0x87
04d9 0e04       |    |		Execute_Immediate	Not_Equal,0x4
04da 700a       |p   |		Jump_Nonzero	0x4e5
04db 00da       |    |		Load_Top	At_Offset_2
04dc 0a01       |    |		Execute_Immediate	Plus,0x1
04dd 005b       | [  |		Store_Top	Discrete,At_Offset_3
04de 00da       |    |		Load_Top	At_Offset_2
04df e5fe       |    |		Load	0x2,-0x2
04e0 01d7       |    |		Execute	Vector,Field_Read
04e1 e5ff       |    |		Load	0x2,-0x1
04e2 8093       |    |		Call	0x0,0x93
04e3 00c9       |    |		Action	Pop_Auxiliary_Loop
04e4 7fdd       |    |		Jump	0x4c2
04e5 00ce       |    |		Action	Pop_Auxiliary
04e6 00db       |    |		Load_Top	At_Offset_3
04e7 680d       |h   |		Jump_Zero	0x4f5
04e8 e5ff       |    |		Load	0x2,-0x1
04e9 e234       | 4  |		Load	0x1,0x34
04ea 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04eb 7809       |x   |		Jump	0x4f5
04ec 0092 09b5  |    |		Action	Push_String_Extended,0x9b5					; "Continue unexpected"
04ee e095       |    |		Load	0x0,0x95
04ef 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04f0 7804       |x   |		Jump	0x4f5
04f1 0092 09b6  |    |		Action	Push_String_Extended,0x9b6					; "Process: Exception item on control list"
04f3 e095       |    |		Load	0x0,0x95
04f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04f5 00d9       |    |		Load_Top	At_Offset_1
04f6 0a01       |    |		Execute_Immediate	Plus,0x1
04f7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04f8 00c9       |    |		Action	Pop_Auxiliary_Loop
04f9 7f91       |    |		Jump	0x48b
04fa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04fb 0000 0000  |    |		.BLANK	0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0511       |    |		.CONST	0x0511								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0007       |    |		.CONST	0x0007								; Number of locals
0503			INIT_0500:
0503 e012       |    |		Load	0x0,0x12
0504 0322       | "  |		Declare_Variable	Record
0505 00d8       |    |		Load_Top	At_Offset_0
0506 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0507 e233       | 3  |		Load	0x1,0x33
0508 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0509 e5fe       |    |		Load	0x2,-0x2
050a e005       |    |		Load	0x0,0x5
050b 03f1       |    |		Declare_Variable	Discrete,With_Value
050c 00e1       |    |		Load_Encached	Boolean_Cache
050d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
050e 00e1       |    |		Load_Encached	Boolean_Cache
050f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0510 00e1       |    |		Load_Encached	Boolean_Cache
0511			BODY_0500:
0511 4801       |H   |		Short_Literal	0x1
0512 a403       |    |		Store_Unchecked	0x2,0x3
0513 e5fb       |    |		Load	0x2,-0x5
0514 e5ff       |    |		Load	0x2,-0x1
0515 8091       |    |		Call	0x0,0x91
0516 e5fb       |    |		Load	0x2,-0x5
0517 8023       | #  |		Call	0x0,0x23
0518 e5fe       |    |		Load	0x2,-0x2
0519 e5ff       |    |		Load	0x2,-0x1
051a 8096       |    |		Call	0x0,0x96
051b 00cf       |    |		Action	Mark_Auxiliary
051c e403       |    |		Load	0x2,0x3
051d e5fc       |    |		Load	0x2,-0x4
051e 027d       | }  |		Execute	Discrete,Greater
051f 706b       |pk  |		Jump_Nonzero	0x58b
0520 e402       |    |		Load	0x2,0x2
0521 e403       |    |		Load	0x2,0x3
0522 e5fd       |    |		Load	0x2,-0x3
0523 01d7       |    |		Execute	Vector,Field_Read
0524 8092       |    |		Call	0x0,0x92
0525 00d1       |    |		Pop_Control	Pop_Count_1
0526 e403       |    |		Load	0x2,0x3
0527 e5fd       |    |		Load	0x2,-0x3
0528 01d7       |    |		Execute	Vector,Field_Read
0529 e5ff       |    |		Load	0x2,-0x1
052a 8093       |    |		Call	0x0,0x93
052b e402       |    |		Load	0x2,0x2
052c 8094       |    |		Call	0x0,0x94
052d 4602       |F   |		Jump_Case	0x3
052e 7807       |x   |		Jump	0x536								; case 0x0
052f 780b       |x   |		Jump	0x53b								; case 0x1
0530 7800       |x   |		Jump	0x531								; case 0x2
0531 0092 09b7  |    |		Action	Push_String_Extended,0x9b7					; "Process: Special item on exception list"
0533 e095       |    |		Load	0x0,0x95
0534 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0535 7850       |xP  |		Jump	0x586
0536 0092 09b8  |    |		Action	Push_String_Extended,0x9b8					; "Process: Control item on exception list"
0538 e095       |    |		Load	0x0,0x95
0539 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
053a 784b       |xK  |		Jump	0x586
053b e402       |    |		Load	0x2,0x2
053c 8087       |    |		Call	0x0,0x87
053d 4605       |F   |		Jump_Case	0x6
053e 780a       |x   |		Jump	0x549								; case 0x0
053f 7810       |x   |		Jump	0x550								; case 0x1
0540 7808       |x   |		Jump	0x549								; case 0x2
0541 7840       |x@  |		Jump	0x582								; case 0x3
0542 7812       |x   |		Jump	0x555								; case 0x4
0543 7800       |x   |		Jump	0x544								; case 0x5
0544 0092 09b9  |    |		Action	Push_String_Extended,0x9b9					; "Process: Other_Action undefined"
0546 e095       |    |		Load	0x0,0x95
0547 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0548 783d       |x=  |		Jump	0x586
0549 00e1       |    |		Load_Encached	Boolean_Cache
054a 4800       |H   |		Short_Literal	0x0
054b e5ff       |    |		Load	0x2,-0x1
054c e234       | 4  |		Load	0x1,0x34
054d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
054e c405       |    |		Store	0x2,0x5
054f 7836       |x6  |		Jump	0x586
0550 0092 09b4  |    |		Action	Push_String_Extended,0x9b4					; "Profile unimplemented"
0552 e095       |    |		Load	0x0,0x95
0553 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0554 7831       |x1  |		Jump	0x586
0555 4800       |H   |		Short_Literal	0x0
0556 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0557 00cf       |    |		Action	Mark_Auxiliary
0558 00e1       |    |		Load_Encached	Boolean_Cache
0559 e5ff       |    |		Load	0x2,-0x1
055a e234       | 4  |		Load	0x1,0x34
055b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
055c 005b       | [  |		Store_Top	Discrete,At_Offset_3
055d 00da       |    |		Load_Top	At_Offset_2
055e 6802       |h   |		Jump_Zero	0x561
055f 4801       |H   |		Short_Literal	0x1
0560 a406       |    |		Store_Unchecked	0x2,0x6
0561 e403       |    |		Load	0x2,0x3
0562 0a01       |    |		Execute_Immediate	Plus,0x1
0563 e5fc       |    |		Load	0x2,-0x4
0564 027d       | }  |		Execute	Discrete,Greater
0565 7015       |p   |		Jump_Nonzero	0x57b
0566 e402       |    |		Load	0x2,0x2
0567 e403       |    |		Load	0x2,0x3
0568 0a01       |    |		Execute_Immediate	Plus,0x1
0569 e5fd       |    |		Load	0x2,-0x3
056a 01d7       |    |		Execute	Vector,Field_Read
056b 8092       |    |		Call	0x0,0x92
056c 00d1       |    |		Pop_Control	Pop_Count_1
056d e402       |    |		Load	0x2,0x2
056e 8087       |    |		Call	0x0,0x87
056f 0e04       |    |		Execute_Immediate	Not_Equal,0x4
0570 700a       |p   |		Jump_Nonzero	0x57b
0571 e403       |    |		Load	0x2,0x3
0572 0a01       |    |		Execute_Immediate	Plus,0x1
0573 c403       |    |		Store	0x2,0x3
0574 e403       |    |		Load	0x2,0x3
0575 e5fd       |    |		Load	0x2,-0x3
0576 01d7       |    |		Execute	Vector,Field_Read
0577 e5ff       |    |		Load	0x2,-0x1
0578 8093       |    |		Call	0x0,0x93
0579 00c9       |    |		Action	Pop_Auxiliary_Loop
057a 7fdd       |    |		Jump	0x558
057b 00ce       |    |		Action	Pop_Auxiliary
057c 00da       |    |		Load_Top	At_Offset_2
057d 6808       |h   |		Jump_Zero	0x586
057e e5ff       |    |		Load	0x2,-0x1
057f e234       | 4  |		Load	0x1,0x34
0580 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0581 7804       |x   |		Jump	0x586
0582 0092 09ba  |    |		Action	Push_String_Extended,0x9ba					; "Process: Continue unexpected"
0584 e095       |    |		Load	0x0,0x95
0585 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0586 e403       |    |		Load	0x2,0x3
0587 0a01       |    |		Execute_Immediate	Plus,0x1
0588 c403       |    |		Store	0x2,0x3
0589 00c9       |    |		Action	Pop_Auxiliary_Loop
058a 7f91       |    |		Jump	0x51c
058b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
058c 0000 0000  |    |		.BLANK	0000[0x4]
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 e237       | 7  |		Load	0x1,0x37
0594 e5fe       |    |		Load	0x2,-0x2
0595 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0596 e236       | 6  |		Load	0x1,0x36
0597 e5fe       |    |		Load	0x2,-0x2
0598 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0599 e235       | 5  |		Load	0x1,0x35
059a e5fe       |    |		Load	0x2,-0x2
059b 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
059c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
059d 0000 0000  |    |		.XXX[0x3]
059f 0000       |    |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 e5fd       |    |		Load	0x2,-0x3
05a4 00e2       |    |		Load_Encached	Integer_Cache
05a5 025e       | ^  |		Execute	Discrete,Convert
05a6 e5fe       |    |		Load	0x2,-0x2
05a7 e5ff       |    |		Load	0x2,-0x1
05a8 e00e       |    |		Load	0x0,0xe
05a9 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05aa 00d9       |    |		Load_Top	At_Offset_1
05ab 00d0       |    |		Action	Swap_Control
05ac 0260       | `  |		Execute	Discrete,In_Type
05ad 7001       |p   |		Jump_Nonzero	0x5af
05ae 0801       |    |		Execute_Immediate	Raise,0x1
05af 8241       | A  |		Call	0x1,0x41
05b0 00d1       |    |		Pop_Control	Pop_Count_1
05b1 c5fd       |    |		Store	0x2,-0x3
05b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b3 0000 0000  |    |		.BLANK	0000[0x5]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bd       |    |		.CONST	0x05bd								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0002       |    |		.CONST	0x0002								; Number of locals
05bb			INIT_05b8:
05bb 029f 0993  |    |		Declare_Subprogram	INIT_0990,For_Call
05bd			BODY_05b8:
05bd 8402       |    |		Call	0x2,0x2
05be e235       | 5  |		Load	0x1,0x35
05bf e237       | 7  |		Load	0x1,0x37
05c0 0278       | x  |		Execute	Discrete,Or
05c1 6808       |h   |		Jump_Zero	0x5ca
05c2 e232       | 2  |		Load	0x1,0x32
05c3 e5ff       |    |		Load	0x2,-0x1
05c4 e243       | C  |		Load	0x1,0x43
05c5 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
05c6 e245       | E  |		Load	0x1,0x45
05c7 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
05c8 800f       |    |		Call	0x0,0xf
05c9 c232       | 2  |		Store	0x1,0x32
05ca 00db       |    |		Load_Top	At_Offset_3
05cb e233       | 3  |		Load	0x1,0x33
05cc 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
05cd e5fe       |    |		Load	0x2,-0x2
05ce e05b       | [  |		Load	0x0,0x5b
05cf 017f       |    |		Execute	Record,Equal
05d0 7006       |p   |		Jump_Nonzero	0x5d7
05d1 e5fe       |    |		Load	0x2,-0x2
05d2 8069       | i  |		Call	0x0,0x69
05d3 00d1       |    |		Pop_Control	Pop_Count_1
05d4 e5fe       |    |		Load	0x2,-0x2
05d5 e5ff       |    |		Load	0x2,-0x1
05d6 8091       |    |		Call	0x0,0x91
05d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05dc       |    |		.CONST	0x05dc								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0002       |    |		.CONST	0x0002								; Number of locals
05db			INIT_05d8:
05db 00e1       |    |		Load_Encached	Boolean_Cache
05dc			BODY_05d8:
05dc e239       | 9  |		Load	0x1,0x39
05dd 680a       |h   |		Jump_Zero	0x5e8
05de 4804       |H   |		Short_Literal	0x4
05df e5ff       |    |		Load	0x2,-0x1
05e0 8093       |    |		Call	0x0,0x93
05e1 00e1       |    |		Load_Encached	Boolean_Cache
05e2 4801       |H   |		Short_Literal	0x1
05e3 e5ff       |    |		Load	0x2,-0x1
05e4 e234       | 4  |		Load	0x1,0x34
05e5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05e6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05e8 e23a       | :  |		Load	0x1,0x3a
05e9 680a       |h   |		Jump_Zero	0x5f4
05ea 4805       |H   |		Short_Literal	0x5
05eb e5ff       |    |		Load	0x2,-0x1
05ec 8093       |    |		Call	0x0,0x93
05ed 00e1       |    |		Load_Encached	Boolean_Cache
05ee 4800       |H   |		Short_Literal	0x0
05ef e5ff       |    |		Load	0x2,-0x1
05f0 e234       | 4  |		Load	0x1,0x34
05f1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05f2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05f4 e238       | 8  |		Load	0x1,0x38
05f5 6809       |h   |		Jump_Zero	0x5ff
05f6 4804       |H   |		Short_Literal	0x4
05f7 e5ff       |    |		Load	0x2,-0x1
05f8 8093       |    |		Call	0x0,0x93
05f9 00e1       |    |		Load_Encached	Boolean_Cache
05fa 4801       |H   |		Short_Literal	0x1
05fb e5ff       |    |		Load	0x2,-0x1
05fc e234       | 4  |		Load	0x1,0x34
05fd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05fe 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05ff 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603       |    |		.CONST	0x0603								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0001       |    |		.CONST	0x0001								; Number of locals
0603			BODY_0600:
0603			INIT_0600:
0603 e239       | 9  |		Load	0x1,0x39
0604 e23a       | :  |		Load	0x1,0x3a
0605 e238       | 8  |		Load	0x1,0x38
0606 0278       | x  |		Execute	Discrete,Or
0607 0278       | x  |		Execute	Discrete,Or
0608 00ca       |    |		Action	Exit_Nullary_Function
0609 0000 0000  |    |		.BLANK	0000[0x7]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 00da       |    |		Load_Top	At_Offset_2
0614 e003       |    |		Load	0x0,0x3
0615 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0616 0aff       |    |		Execute_Immediate	Plus,-0x1
0617 e003       |    |		Load	0x0,0x3
0618 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0619 00d9       |    |		Load_Top	At_Offset_1
061a 00d0       |    |		Action	Swap_Control
061b 0260       | `  |		Execute	Discrete,In_Type
061c 7001       |p   |		Jump_Nonzero	0x61e
061d 0801       |    |		Execute_Immediate	Raise,0x1
061e 00db       |    |		Load_Top	At_Offset_3
061f e003       |    |		Load	0x0,0x3
0620 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0621 e003       |    |		Load	0x0,0x3
0622 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0623 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0624 0000 0000  |    |		.BLANK	0000[0x4]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 063b       | ;  |		.CONST	0x063b								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0008       |    |		.CONST	0x0008								; Number of locals
062b			INIT_0628:
062b e003       |    |		Load	0x0,0x3
062c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
062d 00e1       |    |		Load_Encached	Boolean_Cache
062e e054       | T  |		Load	0x0,0x54
062f 0322       | "  |		Declare_Variable	Record
0630 00d8       |    |		Load_Top	At_Offset_0
0631 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0632 e003       |    |		Load	0x0,0x3
0633 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0634 02c7       |    |		Declare_Variable	Any
0635 00d8       |    |		Load_Top	At_Offset_0
0636 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0637 e097       |    |		Load	0x0,0x97
0638 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0639 00e3       |    |		Load_Encached	Natural_Cache
063a 00e1       |    |		Load_Encached	Boolean_Cache
063b			BODY_0628:
063b 4800       |H   |		Short_Literal	0x0
063c e5ff       |    |		Load	0x2,-0x1
063d 806b       | k  |		Call	0x0,0x6b
063e e5fc       |    |		Load	0x2,-0x4
063f e003       |    |		Load	0x0,0x3
0640 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0641 0afe       |    |		Execute_Immediate	Plus,-0x2
0642 e003       |    |		Load	0x0,0x3
0643 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0644 00d9       |    |		Load_Top	At_Offset_1
0645 00d0       |    |		Action	Swap_Control
0646 0260       | `  |		Execute	Discrete,In_Type
0647 7001       |p   |		Jump_Nonzero	0x649
0648 0801       |    |		Execute_Immediate	Raise,0x1
0649 e5fc       |    |		Load	0x2,-0x4
064a e003       |    |		Load	0x0,0x3
064b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
064c e003       |    |		Load	0x0,0x3
064d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
064e a402       |    |		Store_Unchecked	0x2,0x2
064f e402       |    |		Load	0x2,0x2
0650 0f07       |    |		Execute_Immediate	Equal,0x7
0651 6811       |h   |		Jump_Zero	0x663
0652 e5fc       |    |		Load	0x2,-0x4
0653 e003       |    |		Load	0x0,0x3
0654 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0655 0afd       |    |		Execute_Immediate	Plus,-0x3
0656 e003       |    |		Load	0x0,0x3
0657 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0658 00d9       |    |		Load_Top	At_Offset_1
0659 00d0       |    |		Action	Swap_Control
065a 0260       | `  |		Execute	Discrete,In_Type
065b 7001       |p   |		Jump_Nonzero	0x65d
065c 0801       |    |		Execute_Immediate	Raise,0x1
065d e5fc       |    |		Load	0x2,-0x4
065e e003       |    |		Load	0x0,0x3
065f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0660 e003       |    |		Load	0x0,0x3
0661 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0662 a402       |    |		Store_Unchecked	0x2,0x2
0663 e402       |    |		Load	0x2,0x2
0664 00d8       |    |		Load_Top	At_Offset_0
0665 0c09       |    |		Execute_Immediate	Greater_Equal,0x9
0666 703f       |p?  |		Jump_Nonzero	0x6a6
0667 4608       |F   |		Jump_Case	0x9
0668 7846       |xF  |		Jump	0x6af								; case 0x0
0669 7807       |x   |		Jump	0x671								; case 0x1
066a 7867       |xg  |		Jump	0x6d2								; case 0x2
066b 7879       |xy  |		Jump	0x6e5								; case 0x3
066c 783a       |x:  |		Jump	0x6a7								; case 0x4
066d 7839       |x9  |		Jump	0x6a7								; case 0x5
066e 7838       |x8  |		Jump	0x6a7								; case 0x6
066f 7837       |x7  |		Jump	0x6a7								; case 0x7
0670 7800       |x   |		Jump	0x671								; case 0x8
0671 e5fd       |    |		Load	0x2,-0x3
0672 e00a       |    |		Load	0x0,0xa
0673 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0674 e5fe       |    |		Load	0x2,-0x2
0675 e003       |    |		Load	0x0,0x3
0676 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
0677 c405       |    |		Store	0x2,0x5
0678 00db       |    |		Load_Top	At_Offset_3
0679 e00a       |    |		Load	0x0,0xa
067a 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
067b e5fe       |    |		Load	0x2,-0x2
067c e003       |    |		Load	0x0,0x3
067d 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
067e c405       |    |		Store	0x2,0x5
067f 00db       |    |		Load_Top	At_Offset_3
0680 e00a       |    |		Load	0x0,0xa
0681 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0682 e5fe       |    |		Load	0x2,-0x2
0683 e003       |    |		Load	0x0,0x3
0684 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
0685 c405       |    |		Store	0x2,0x5
0686 e404       |    |		Load	0x2,0x4
0687 e405       |    |		Load	0x2,0x5
0688 e230       | 0  |		Load	0x1,0x30
0689 e5fe       |    |		Load	0x2,-0x2
068a e003       |    |		Load	0x0,0x3
068b 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
068c 824b       | K  |		Call	0x1,0x4b
068d 8055       | U  |		Call	0x0,0x55
068e 00d1       |    |		Pop_Control	Pop_Count_1
068f e404       |    |		Load	0x2,0x4
0690 e405       |    |		Load	0x2,0x5
0691 8056       | V  |		Call	0x0,0x56
0692 00d1       |    |		Pop_Control	Pop_Count_1
0693 e404       |    |		Load	0x2,0x4
0694 8069       | i  |		Call	0x0,0x69
0695 00d1       |    |		Pop_Control	Pop_Count_1
0696 e404       |    |		Load	0x2,0x4
0697 806a       | j  |		Call	0x0,0x6a
0698 00d1       |    |		Pop_Control	Pop_Count_1
0699 e404       |    |		Load	0x2,0x4
069a e5ff       |    |		Load	0x2,-0x1
069b 8091       |    |		Call	0x0,0x91
069c 4809       |H   |		Short_Literal	0x9
069d e5ff       |    |		Load	0x2,-0x1
069e 8093       |    |		Call	0x0,0x93
069f 00e1       |    |		Load_Encached	Boolean_Cache
06a0 4801       |H   |		Short_Literal	0x1
06a1 e5ff       |    |		Load	0x2,-0x1
06a2 e234       | 4  |		Load	0x1,0x34
06a3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06a4 c403       |    |		Store	0x2,0x3
06a5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06a6 00d1       |    |		Pop_Control	Pop_Count_1
06a7 0092 09bb  |    |		Action	Push_String_Extended,0x9bb					; "Illegal internal call: "
06a9 e402       |    |		Load	0x2,0x2
06aa 00e0       |    |		Load_Encached	Standard_Cache
06ab 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06ac 01cc       |    |		Execute	Vector,Catenate
06ad 8090       |    |		Call	0x0,0x90
06ae 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06af e5ff       |    |		Load	0x2,-0x1
06b0 a23b       | ;  |		Store_Unchecked	0x1,0x3b
06b1 e5fd       |    |		Load	0x2,-0x3
06b2 c405       |    |		Store	0x2,0x5
06b3 e404       |    |		Load	0x2,0x4
06b4 e405       |    |		Load	0x2,0x5
06b5 e230       | 0  |		Load	0x1,0x30
06b6 e5fe       |    |		Load	0x2,-0x2
06b7 e003       |    |		Load	0x0,0x3
06b8 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
06b9 8055       | U  |		Call	0x0,0x55
06ba 00d1       |    |		Pop_Control	Pop_Count_1
06bb e404       |    |		Load	0x2,0x4
06bc e405       |    |		Load	0x2,0x5
06bd 8056       | V  |		Call	0x0,0x56
06be 00d1       |    |		Pop_Control	Pop_Count_1
06bf e404       |    |		Load	0x2,0x4
06c0 8069       | i  |		Call	0x0,0x69
06c1 00d1       |    |		Pop_Control	Pop_Count_1
06c2 e404       |    |		Load	0x2,0x4
06c3 806a       | j  |		Call	0x0,0x6a
06c4 00d1       |    |		Pop_Control	Pop_Count_1
06c5 e404       |    |		Load	0x2,0x4
06c6 e5ff       |    |		Load	0x2,-0x1
06c7 8091       |    |		Call	0x0,0x91
06c8 4804       |H   |		Short_Literal	0x4
06c9 e5ff       |    |		Load	0x2,-0x1
06ca 8093       |    |		Call	0x0,0x93
06cb 00e1       |    |		Load_Encached	Boolean_Cache
06cc 4801       |H   |		Short_Literal	0x1
06cd e5ff       |    |		Load	0x2,-0x1
06ce e234       | 4  |		Load	0x1,0x34
06cf 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06d0 c403       |    |		Store	0x2,0x3
06d1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06d2 00e1       |    |		Load_Encached	Boolean_Cache
06d3 00e3       |    |		Load_Encached	Natural_Cache
06d4 e097       |    |		Load	0x0,0x97
06d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d6 e5fc       |    |		Load	0x2,-0x4
06d7 e003       |    |		Load	0x0,0x3
06d8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06d9 8098       |    |		Call	0x0,0x98
06da c406       |    |		Store	0x2,0x6
06db 005b       | [  |		Store_Top	Discrete,At_Offset_3
06dc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
06dd 00d9       |    |		Load_Top	At_Offset_1
06de 00db       |    |		Load_Top	At_Offset_3
06df e5fd       |    |		Load	0x2,-0x3
06e0 e5fc       |    |		Load	0x2,-0x4
06e1 e003       |    |		Load	0x0,0x3
06e2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06e3 8099       |    |		Call	0x0,0x99
06e4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06e5 e5fd       |    |		Load	0x2,-0x3
06e6 e00a       |    |		Load	0x0,0xa
06e7 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
06e8 e5fe       |    |		Load	0x2,-0x2
06e9 e003       |    |		Load	0x0,0x3
06ea 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
06eb c405       |    |		Store	0x2,0x5
06ec 00e1       |    |		Load_Encached	Boolean_Cache
06ed 00e3       |    |		Load_Encached	Natural_Cache
06ee e097       |    |		Load	0x0,0x97
06ef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06f0 e5fc       |    |		Load	0x2,-0x4
06f1 e003       |    |		Load	0x0,0x3
06f2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06f3 8098       |    |		Call	0x0,0x98
06f4 c406       |    |		Store	0x2,0x6
06f5 005b       | [  |		Store_Top	Discrete,At_Offset_3
06f6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
06f7 00d9       |    |		Load_Top	At_Offset_1
06f8 00db       |    |		Load_Top	At_Offset_3
06f9 e405       |    |		Load	0x2,0x5
06fa e5fc       |    |		Load	0x2,-0x4
06fb e003       |    |		Load	0x0,0x3
06fc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06fd 809a       |    |		Call	0x0,0x9a
06fe 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06ff 0000       |    |		.XXX[0x1]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0705       |    |		.CONST	0x0705								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0002       |    |		.CONST	0x0002								; Number of locals
0703			INIT_0700:
0703 e003       |    |		Load	0x0,0x3
0704 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0705			BODY_0700:
0705 e5fe       |    |		Load	0x2,-0x2
0706 809b       |    |		Call	0x0,0x9b
0707 4603       |F   |		Jump_Case	0x4
0708 7806       |x   |		Jump	0x70f								; case 0x0
0709 780f       |x   |		Jump	0x719								; case 0x1
070a 7801       |x   |		Jump	0x70c								; case 0x2
070b 7800       |x   |		Jump	0x70c								; case 0x3
070c 601b       |`   |		Indirect_Literal	Discrete,0x728,{0x00000000, 0x000fffff}
070d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
070e 7814       |x   |		Jump	0x723
070f 00db       |    |		Load_Top	At_Offset_3
0710 8030       | 0  |		Call	0x0,0x30
0711 809c       |    |		Call	0x0,0x9c
0712 e003       |    |		Load	0x0,0x3
0713 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0714 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0715 00d8       |    |		Load_Top	At_Offset_0
0716 0a01       |    |		Execute_Immediate	Plus,0x1
0717 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0718 780a       |x   |		Jump	0x723
0719 00db       |    |		Load_Top	At_Offset_3
071a 8030       | 0  |		Call	0x0,0x30
071b 809c       |    |		Call	0x0,0x9c
071c e003       |    |		Load	0x0,0x3
071d 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
071e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
071f 00d8       |    |		Load_Top	At_Offset_0
0720 7002       |p   |		Jump_Nonzero	0x723
0721 e226       | &  |		Load	0x1,0x26
0722 0257       | W  |		Execute	Discrete,Raise
0723 00d8       |    |		Load_Top	At_Offset_0
0724 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0725 0000 0000  |    |		.XXX[0x3]
0727 0000       |    |
0728 0000 0000  |    |		.LITERAL	{0x00000000, 0x000fffff}
072c 0000 0000  |    |		.BLANK	0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733       | 3  |		.CONST	0x0733								; Address of begin
0731 0004       |    |		.CONST	0x0004								; Address of exception handler
0732 0001       |    |		.CONST	0x0001								; Number of locals
0733			BODY_0730:
0733			INIT_0730:
0733 00da       |    |		Load_Top	At_Offset_2
0734 8094       |    |		Call	0x0,0x94
0735 702a       |p*  |		Jump_Nonzero	0x760
0736 00da       |    |		Load_Top	At_Offset_2
0737 8087       |    |		Call	0x0,0x87
0738 0f04       |    |		Execute_Immediate	Equal,0x4
0739 6824       |h$  |		Jump_Zero	0x75e
073a 00da       |    |		Load_Top	At_Offset_2
073b 8082       |    |		Call	0x0,0x82
073c e22f       | /  |		Load	0x1,0x2f
073d 017f       |    |		Execute	Record,Equal
073e 681d       |h   |		Jump_Zero	0x75c
073f 00da       |    |		Load_Top	At_Offset_2
0740 8084       |    |		Call	0x0,0x84
0741 e231       | 1  |		Load	0x1,0x31
0742 017f       |    |		Execute	Record,Equal
0743 6816       |h   |		Jump_Zero	0x75a
0744 00da       |    |		Load_Top	At_Offset_2
0745 8083       |    |		Call	0x0,0x83
0746 e22e       | .  |		Load	0x1,0x2e
0747 027f       |    |		Execute	Discrete,Equal
0748 680f       |h   |		Jump_Zero	0x758
0749 00da       |    |		Load_Top	At_Offset_2
074a 8081       |    |		Call	0x0,0x81
074b 0f01       |    |		Execute_Immediate	Equal,0x1
074c 6809       |h   |		Jump_Zero	0x756
074d 00da       |    |		Load_Top	At_Offset_2
074e 809b       |    |		Call	0x0,0x9b
074f 0f02       |    |		Execute_Immediate	Equal,0x2
0750 6803       |h   |		Jump_Zero	0x754
0751 00da       |    |		Load_Top	At_Offset_2
0752 809d       |    |		Call	0x0,0x9d
0753 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0754 4800       |H   |		Short_Literal	0x0
0755 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0756 4800       |H   |		Short_Literal	0x0
0757 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0758 4800       |H   |		Short_Literal	0x0
0759 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
075a 4800       |H   |		Short_Literal	0x0
075b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
075c 4800       |H   |		Short_Literal	0x0
075d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
075e 4800       |H   |		Short_Literal	0x0
075f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0760 4800       |H   |		Short_Literal	0x0
0761 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0762 0000 0000  |    |		.BLANK	0000[0x6]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b 00da       |    |		Load_Top	At_Offset_2
076c 8094       |    |		Call	0x0,0x94
076d 7025       |p%  |		Jump_Nonzero	0x793
076e 00da       |    |		Load_Top	At_Offset_2
076f 8087       |    |		Call	0x0,0x87
0770 0f04       |    |		Execute_Immediate	Equal,0x4
0771 681f       |h   |		Jump_Zero	0x791
0772 00da       |    |		Load_Top	At_Offset_2
0773 8082       |    |		Call	0x0,0x82
0774 e22f       | /  |		Load	0x1,0x2f
0775 017f       |    |		Execute	Record,Equal
0776 6818       |h   |		Jump_Zero	0x78f
0777 00da       |    |		Load_Top	At_Offset_2
0778 8084       |    |		Call	0x0,0x84
0779 e231       | 1  |		Load	0x1,0x31
077a 017f       |    |		Execute	Record,Equal
077b 6811       |h   |		Jump_Zero	0x78d
077c 00da       |    |		Load_Top	At_Offset_2
077d 8083       |    |		Call	0x0,0x83
077e e22e       | .  |		Load	0x1,0x2e
077f 027f       |    |		Execute	Discrete,Equal
0780 680a       |h   |		Jump_Zero	0x78b
0781 00da       |    |		Load_Top	At_Offset_2
0782 807e       | ~  |		Call	0x0,0x7e
0783 807f       |    |		Call	0x0,0x7f
0784 6804       |h   |		Jump_Zero	0x789
0785 00da       |    |		Load_Top	At_Offset_2
0786 809d       |    |		Call	0x0,0x9d
0787 0f00       |    |		Execute_Immediate	Equal,0x0
0788 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0789 4800       |H   |		Short_Literal	0x0
078a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078b 4800       |H   |		Short_Literal	0x0
078c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078d 4800       |H   |		Short_Literal	0x0
078e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078f 4800       |H   |		Short_Literal	0x0
0790 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0791 4800       |H   |		Short_Literal	0x0
0792 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0793 4800       |H   |		Short_Literal	0x0
0794 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0795 0000 0000  |    |		.XXX[0x3]
0797 0000       |    |
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b       |    |		.CONST	0x079b								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0001       |    |		.CONST	0x0001								; Number of locals
079b			BODY_0798:
079b			INIT_0798:
079b 00da       |    |		Load_Top	At_Offset_2
079c 8094       |    |		Call	0x0,0x94
079d 7017       |p   |		Jump_Nonzero	0x7b5
079e 00da       |    |		Load_Top	At_Offset_2
079f 8087       |    |		Call	0x0,0x87
07a0 0f04       |    |		Execute_Immediate	Equal,0x4
07a1 6811       |h   |		Jump_Zero	0x7b3
07a2 00da       |    |		Load_Top	At_Offset_2
07a3 8084       |    |		Call	0x0,0x84
07a4 e231       | 1  |		Load	0x1,0x31
07a5 017e       | ~  |		Execute	Record,Not_Equal
07a6 6805       |h   |		Jump_Zero	0x7ac
07a7 00da       |    |		Load_Top	At_Offset_2
07a8 8083       |    |		Call	0x0,0x83
07a9 e22e       | .  |		Load	0x1,0x2e
07aa 027e       | ~  |		Execute	Discrete,Not_Equal
07ab 7005       |p   |		Jump_Nonzero	0x7b1
07ac 00da       |    |		Load_Top	At_Offset_2
07ad 807e       | ~  |		Call	0x0,0x7e
07ae 807f       |    |		Call	0x0,0x7f
07af 0f00       |    |		Execute_Immediate	Equal,0x0
07b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b1 4801       |H   |		Short_Literal	0x1
07b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b3 4800       |H   |		Short_Literal	0x0
07b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b5 4800       |H   |		Short_Literal	0x0
07b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b7 0000       |    |		.XXX[0x1]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb       |    |		.CONST	0x07bb								; Address of begin
07b9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ba 0001       |    |		.CONST	0x0001								; Number of locals
07bb			BODY_07b8:
07bb			INIT_07b8:
07bb 00da       |    |		Load_Top	At_Offset_2
07bc 8094       |    |		Call	0x0,0x94
07bd 7004       |p   |		Jump_Nonzero	0x7c2
07be 00da       |    |		Load_Top	At_Offset_2
07bf 8087       |    |		Call	0x0,0x87
07c0 0f02       |    |		Execute_Immediate	Equal,0x2
07c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c2 4800       |H   |		Short_Literal	0x0
07c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb       |    |		.CONST	0x07cb								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0001       |    |		.CONST	0x0001								; Number of locals
07cb			BODY_07c8:
07cb			INIT_07c8:
07cb 00da       |    |		Load_Top	At_Offset_2
07cc 8094       |    |		Call	0x0,0x94
07cd 7004       |p   |		Jump_Nonzero	0x7d2
07ce 00da       |    |		Load_Top	At_Offset_2
07cf 8087       |    |		Call	0x0,0x87
07d0 0f00       |    |		Execute_Immediate	Equal,0x0
07d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07d2 4800       |H   |		Short_Literal	0x0
07d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07d4 0000 0000  |    |		.BLANK	0000[0x4]
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 8094       |    |		Call	0x0,0x94
07dd 0f01       |    |		Execute_Immediate	Equal,0x1
07de 6804       |h   |		Jump_Zero	0x7e3
07df 00da       |    |		Load_Top	At_Offset_2
07e0 8087       |    |		Call	0x0,0x87
07e1 0f02       |    |		Execute_Immediate	Equal,0x2
07e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e3 4800       |H   |		Short_Literal	0x0
07e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e5 0000 0000  |    |		.XXX[0x3]
07e7 0000       |    |
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb       |    |		.CONST	0x07eb								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0001       |    |		.CONST	0x0001								; Number of locals
07eb			BODY_07e8:
07eb			INIT_07e8:
07eb 00da       |    |		Load_Top	At_Offset_2
07ec 8094       |    |		Call	0x0,0x94
07ed 0f01       |    |		Execute_Immediate	Equal,0x1
07ee 6804       |h   |		Jump_Zero	0x7f3
07ef 00da       |    |		Load_Top	At_Offset_2
07f0 8087       |    |		Call	0x0,0x87
07f1 0f00       |    |		Execute_Immediate	Equal,0x0
07f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07f3 4800       |H   |		Short_Literal	0x0
07f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07f5 0000 0000  |    |		.XXX[0x3]
07f7 0000       |    |
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb 00da       |    |		Load_Top	At_Offset_2
07fc 8094       |    |		Call	0x0,0x94
07fd 0f01       |    |		Execute_Immediate	Equal,0x1
07fe 680a       |h   |		Jump_Zero	0x809
07ff 00da       |    |		Load_Top	At_Offset_2
0800 8087       |    |		Call	0x0,0x87
0801 0f04       |    |		Execute_Immediate	Equal,0x4
0802 7004       |p   |		Jump_Nonzero	0x807
0803 00da       |    |		Load_Top	At_Offset_2
0804 8087       |    |		Call	0x0,0x87
0805 0f03       |    |		Execute_Immediate	Equal,0x3
0806 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0807 4801       |H   |		Short_Literal	0x1
0808 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0809 4800       |H   |		Short_Literal	0x0
080a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
080b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
0814 8087       |    |		Call	0x0,0x87
0815 0f01       |    |		Execute_Immediate	Equal,0x1
0816 7001       |p   |		Jump_Nonzero	0x818
0817 7802       |x   |		Jump	0x81a
0818 e228       | (  |		Load	0x1,0x28
0819 0257       | W  |		Execute	Discrete,Raise
081a 00da       |    |		Load_Top	At_Offset_2
081b 8094       |    |		Call	0x0,0x94
081c 4801       |H   |		Short_Literal	0x1
081d 4802       |H   |		Short_Literal	0x2
081e 0262       | b  |		Execute	Discrete,In_Range
081f 7019       |p   |		Jump_Nonzero	0x839
0820 7800       |x   |		Jump	0x821
0821 00da       |    |		Load_Top	At_Offset_2
0822 808a       |    |		Call	0x0,0x8a
0823 460a       |F   |		Jump_Case	0xb
0824 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
0825 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
0826 780a       |x   |		Jump	0x831								; case 0x2
0827 7807       |x   |		Jump	0x82f								; case 0x3
0828 7806       |x   |		Jump	0x82f								; case 0x4
0829 7809       |x   |		Jump	0x833								; case 0x5
082a 780a       |x   |		Jump	0x835								; case 0x6
082b 7803       |x   |		Jump	0x82f								; case 0x7
082c 780a       |x   |		Jump	0x837								; case 0x8
082d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x9
082e 7800       |x   |		Jump	0x82f								; case 0xa
082f e228       | (  |		Load	0x1,0x28
0830 0257       | W  |		Execute	Discrete,Raise
0831 e228       | (  |		Load	0x1,0x28
0832 0257       | W  |		Execute	Discrete,Raise
0833 e228       | (  |		Load	0x1,0x28
0834 0257       | W  |		Execute	Discrete,Raise
0835 e228       | (  |		Load	0x1,0x28
0836 0257       | W  |		Execute	Discrete,Raise
0837 e228       | (  |		Load	0x1,0x28
0838 0257       | W  |		Execute	Discrete,Raise
0839 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
083a 0000 0000  |    |		.BLANK	0000[0x6]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0848       | H  |		.CONST	0x0848								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0002       |    |		.CONST	0x0002								; Number of locals
0843			INIT_0840:
0843 e5fd       |    |		Load	0x2,-0x3
0844 807c       | |  |		Call	0x0,0x7c
0845 e002       |    |		Load	0x0,0x2
0846 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0847 03f1       |    |		Declare_Variable	Discrete,With_Value
0848			BODY_0840:
0848 e5fd       |    |		Load	0x2,-0x3
0849 824f       | O  |		Call	0x1,0x4f
084a 6821       |h!  |		Jump_Zero	0x86c
084b e5fd       |    |		Load	0x2,-0x3
084c 808a       |    |		Call	0x0,0x8a
084d 0f09       |    |		Execute_Immediate	Equal,0x9
084e 680c       |h   |		Jump_Zero	0x85b
084f 00d8       |    |		Load_Top	At_Offset_0
0850 e5fd       |    |		Load	0x2,-0x3
0851 8081       |    |		Call	0x0,0x81
0852 00d8       |    |		Load_Top	At_Offset_0
0853 00e4       |    |		Load_Encached	Positive_Cache
0854 0260       | `  |		Execute	Discrete,In_Type
0855 7001       |p   |		Jump_Nonzero	0x857
0856 0801       |    |		Execute_Immediate	Raise,0x1
0857 e5ff       |    |		Load	0x2,-0x1
0858 e233       | 3  |		Load	0x1,0x33
0859 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
085a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
085b e5fe       |    |		Load	0x2,-0x2
085c 00d9       |    |		Load_Top	At_Offset_1
085d e5fd       |    |		Load	0x2,-0x3
085e e5ff       |    |		Load	0x2,-0x1
085f 824d       | M  |		Call	0x1,0x4d
0860 e5fd       |    |		Load	0x2,-0x3
0861 8081       |    |		Call	0x0,0x81
0862 00d8       |    |		Load_Top	At_Offset_0
0863 00e4       |    |		Load_Encached	Positive_Cache
0864 0260       | `  |		Execute	Discrete,In_Type
0865 7001       |p   |		Jump_Nonzero	0x867
0866 0801       |    |		Execute_Immediate	Raise,0x1
0867 e5ff       |    |		Load	0x2,-0x1
0868 e233       | 3  |		Load	0x1,0x33
0869 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
086a 00d1       |    |		Pop_Control	Pop_Count_1
086b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
086c e5fd       |    |		Load	0x2,-0x3
086d 824e       | N  |		Call	0x1,0x4e
086e 6808       |h   |		Jump_Zero	0x877
086f 00d8       |    |		Load_Top	At_Offset_0
0870 e5fe       |    |		Load	0x2,-0x2
0871 e5ff       |    |		Load	0x2,-0x1
0872 e233       | 3  |		Load	0x1,0x33
0873 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0874 00d1       |    |		Pop_Control	Pop_Count_1
0875 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0876 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0877 e5fd       |    |		Load	0x2,-0x3
0878 8250       | P  |		Call	0x1,0x50
0879 6831       |h1  |		Jump_Zero	0x8ab
087a e5fd       |    |		Load	0x2,-0x3
087b 807e       | ~  |		Call	0x0,0x7e
087c 807f       |    |		Call	0x0,0x7f
087d 6819       |h   |		Jump_Zero	0x897
087e 00d8       |    |		Load_Top	At_Offset_0
087f e5fd       |    |		Load	0x2,-0x3
0880 8080       |    |		Call	0x0,0x80
0881 0f00       |    |		Execute_Immediate	Equal,0x0
0882 e5fd       |    |		Load	0x2,-0x3
0883 8081       |    |		Call	0x0,0x81
0884 00d8       |    |		Load_Top	At_Offset_0
0885 00e4       |    |		Load_Encached	Positive_Cache
0886 0260       | `  |		Execute	Discrete,In_Type
0887 7001       |p   |		Jump_Nonzero	0x889
0888 0801       |    |		Execute_Immediate	Raise,0x1
0889 e5fd       |    |		Load	0x2,-0x3
088a 8082       |    |		Call	0x0,0x82
088b e5fd       |    |		Load	0x2,-0x3
088c 8083       |    |		Call	0x0,0x83
088d e5fd       |    |		Load	0x2,-0x3
088e 8084       |    |		Call	0x0,0x84
088f e5fd       |    |		Load	0x2,-0x3
0890 8085       |    |		Call	0x0,0x85
0891 8086       |    |		Call	0x0,0x86
0892 8049       | I  |		Call	0x0,0x49
0893 e5ff       |    |		Load	0x2,-0x1
0894 e233       | 3  |		Load	0x1,0x33
0895 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0896 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0897 00d8       |    |		Load_Top	At_Offset_0
0898 e5fd       |    |		Load	0x2,-0x3
0899 8080       |    |		Call	0x0,0x80
089a 0f00       |    |		Execute_Immediate	Equal,0x0
089b e5fd       |    |		Load	0x2,-0x3
089c 8081       |    |		Call	0x0,0x81
089d 00d8       |    |		Load_Top	At_Offset_0
089e 00e4       |    |		Load_Encached	Positive_Cache
089f 0260       | `  |		Execute	Discrete,In_Type
08a0 7001       |p   |		Jump_Nonzero	0x8a2
08a1 0801       |    |		Execute_Immediate	Raise,0x1
08a2 e5fd       |    |		Load	0x2,-0x3
08a3 8082       |    |		Call	0x0,0x82
08a4 e5fd       |    |		Load	0x2,-0x3
08a5 807e       | ~  |		Call	0x0,0x7e
08a6 8037       | 7  |		Call	0x0,0x37
08a7 e5ff       |    |		Load	0x2,-0x1
08a8 e233       | 3  |		Load	0x1,0x33
08a9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08aa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08ab e5fd       |    |		Load	0x2,-0x3
08ac 8251       | Q  |		Call	0x1,0x51
08ad 6812       |h   |		Jump_Zero	0x8c0
08ae e5fe       |    |		Load	0x2,-0x2
08af e5fd       |    |		Load	0x2,-0x3
08b0 807d       | }  |		Call	0x0,0x7d
08b1 8036       | 6  |		Call	0x0,0x36
08b2 00da       |    |		Load_Top	At_Offset_2
08b3 e5fd       |    |		Load	0x2,-0x3
08b4 8083       |    |		Call	0x0,0x83
08b5 e5fd       |    |		Load	0x2,-0x3
08b6 8084       |    |		Call	0x0,0x84
08b7 e5fd       |    |		Load	0x2,-0x3
08b8 8082       |    |		Call	0x0,0x82
08b9 e5fd       |    |		Load	0x2,-0x3
08ba 808a       |    |		Call	0x0,0x8a
08bb e5ff       |    |		Load	0x2,-0x1
08bc e233       | 3  |		Load	0x1,0x33
08bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08be 00d1       |    |		Pop_Control	Pop_Count_1
08bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08c0 e5fd       |    |		Load	0x2,-0x3
08c1 8252       | R  |		Call	0x1,0x52
08c2 6810       |h   |		Jump_Zero	0x8d3
08c3 00d8       |    |		Load_Top	At_Offset_0
08c4 e5fd       |    |		Load	0x2,-0x3
08c5 8085       |    |		Call	0x0,0x85
08c6 8086       |    |		Call	0x0,0x86
08c7 e5fd       |    |		Load	0x2,-0x3
08c8 8083       |    |		Call	0x0,0x83
08c9 e5fd       |    |		Load	0x2,-0x3
08ca 8084       |    |		Call	0x0,0x84
08cb e5fd       |    |		Load	0x2,-0x3
08cc 8082       |    |		Call	0x0,0x82
08cd e5fd       |    |		Load	0x2,-0x3
08ce 808a       |    |		Call	0x0,0x8a
08cf e5ff       |    |		Load	0x2,-0x1
08d0 e233       | 3  |		Load	0x1,0x33
08d1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
08d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08d3 e5fd       |    |		Load	0x2,-0x3
08d4 8255       | U  |		Call	0x1,0x55
08d5 6811       |h   |		Jump_Zero	0x8e7
08d6 00d8       |    |		Load_Top	At_Offset_0
08d7 e5fd       |    |		Load	0x2,-0x3
08d8 8087       |    |		Call	0x0,0x87
08d9 e5fd       |    |		Load	0x2,-0x3
08da 8088       |    |		Call	0x0,0x88
08db e5fd       |    |		Load	0x2,-0x3
08dc 8083       |    |		Call	0x0,0x83
08dd e5fd       |    |		Load	0x2,-0x3
08de 8084       |    |		Call	0x0,0x84
08df e5fd       |    |		Load	0x2,-0x3
08e0 8082       |    |		Call	0x0,0x82
08e1 e5fd       |    |		Load	0x2,-0x3
08e2 8089       |    |		Call	0x0,0x89
08e3 e5ff       |    |		Load	0x2,-0x1
08e4 e233       | 3  |		Load	0x1,0x33
08e5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08e6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08e7 e5fd       |    |		Load	0x2,-0x3
08e8 8253       | S  |		Call	0x1,0x53
08e9 7003       |p   |		Jump_Nonzero	0x8ed
08ea e5fd       |    |		Load	0x2,-0x3
08eb 8254       | T  |		Call	0x1,0x54
08ec 680f       |h   |		Jump_Zero	0x8fc
08ed 00d8       |    |		Load_Top	At_Offset_0
08ee e5fd       |    |		Load	0x2,-0x3
08ef 8087       |    |		Call	0x0,0x87
08f0 e5fd       |    |		Load	0x2,-0x3
08f1 8083       |    |		Call	0x0,0x83
08f2 e5fd       |    |		Load	0x2,-0x3
08f3 8084       |    |		Call	0x0,0x84
08f4 e5fd       |    |		Load	0x2,-0x3
08f5 8082       |    |		Call	0x0,0x82
08f6 e5fd       |    |		Load	0x2,-0x3
08f7 8089       |    |		Call	0x0,0x89
08f8 e5ff       |    |		Load	0x2,-0x1
08f9 e233       | 3  |		Load	0x1,0x33
08fa 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
08fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08fc e227       | '  |		Load	0x1,0x27
08fd 0257       | W  |		Execute	Discrete,Raise
08fe 0000 0000  |    |		.XXX[0x2]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903       |    |		.CONST	0x0903								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0001       |    |		.CONST	0x0001								; Number of locals
0903			BODY_0900:
0903			BODY_0900:
0903			INIT_0900:
0903			INIT_0900:
0903 e5fd       |    |		Load	0x2,-0x3
0904 e5fe       |    |		Load	0x2,-0x2
0905 e5ff       |    |		Load	0x2,-0x1
0906 e00e       |    |		Load	0x0,0xe
0907 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0908 00d9       |    |		Load_Top	At_Offset_1
0909 00d0       |    |		Action	Swap_Control
090a 0260       | `  |		Execute	Discrete,In_Type
090b 7001       |p   |		Jump_Nonzero	0x90d
090c 0801       |    |		Execute_Immediate	Raise,0x1
090d 8257       | W  |		Call	0x1,0x57
090e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
090f 0000       |    |		.XXX[0x1]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
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			BODY_0910:
0913			INIT_0910:
0913			INIT_0910:
0913 e5fd       |    |		Load	0x2,-0x3
0914 00d8       |    |		Load_Top	At_Offset_0
0915 00e2       |    |		Load_Encached	Integer_Cache
0916 0260       | `  |		Execute	Discrete,In_Type
0917 7001       |p   |		Jump_Nonzero	0x919
0918 0801       |    |		Execute_Immediate	Raise,0x1
0919 e5fe       |    |		Load	0x2,-0x2
091a e5ff       |    |		Load	0x2,-0x1
091b e00e       |    |		Load	0x0,0xe
091c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
091d 00d9       |    |		Load_Top	At_Offset_1
091e 00d0       |    |		Action	Swap_Control
091f 0260       | `  |		Execute	Discrete,In_Type
0920 7001       |p   |		Jump_Nonzero	0x922
0921 0801       |    |		Execute_Immediate	Raise,0x1
0922 823e       | >  |		Call	0x1,0x3e
0923 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0924 0000 0000  |    |		.BLANK	0000[0x4]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b       | +  |		.CONST	0x092b								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0001       |    |		.CONST	0x0001								; Number of locals
092b			BODY_0928:
092b			INIT_0928:
092b e5fd       |    |		Load	0x2,-0x3
092c e5fe       |    |		Load	0x2,-0x2
092d e5ff       |    |		Load	0x2,-0x1
092e e233       | 3  |		Load	0x1,0x33
092f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0930 00d1       |    |		Pop_Control	Pop_Count_1
0931 c5fd       |    |		Store	0x2,-0x3
0932 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0933 0000 0000  |    |		.BLANK	0000[0x5]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093b       | ;  |		.CONST	0x093b								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0001       |    |		.CONST	0x0001								; Number of locals
093b			BODY_0938:
093b			INIT_0938:
093b e5fd       |    |		Load	0x2,-0x3
093c e002       |    |		Load	0x0,0x2
093d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
093e 025e       | ^  |		Execute	Discrete,Convert
093f e5fe       |    |		Load	0x2,-0x2
0940 e5ff       |    |		Load	0x2,-0x1
0941 e00e       |    |		Load	0x0,0xe
0942 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0943 00d9       |    |		Load_Top	At_Offset_1
0944 00d0       |    |		Action	Swap_Control
0945 0260       | `  |		Execute	Discrete,In_Type
0946 7001       |p   |		Jump_Nonzero	0x948
0947 0801       |    |		Execute_Immediate	Raise,0x1
0948 8266       | f  |		Call	0x1,0x66
0949 00d1       |    |		Pop_Control	Pop_Count_1
094a c5fd       |    |		Store	0x2,-0x3
094b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
094c 0000 0000  |    |		.BLANK	0000[0x4]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953       | S  |		.CONST	0x0953								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0001       |    |		.CONST	0x0001								; Number of locals
0953			BODY_0950:
0953			INIT_0950:
0953 00db       |    |		Load_Top	At_Offset_3
0954 6806       |h   |		Jump_Zero	0x95b
0955 e5fc       |    |		Load	0x2,-0x4
0956 e5fd       |    |		Load	0x2,-0x3
0957 e5ff       |    |		Load	0x2,-0x1
0958 e233       | 3  |		Load	0x1,0x33
0959 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
095a 7803       |x   |		Jump	0x95e
095b e5fc       |    |		Load	0x2,-0x4
095c e233       | 3  |		Load	0x1,0x33
095d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
095e e01e       |    |		Load	0x0,0x1e
095f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0960 c5fb       |    |		Store	0x2,-0x5
0961 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0962 0000 0000  |    |		.BLANK	0000[0x6]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b       | k  |		.CONST	0x096b								; Address of begin
0969 0973       | s  |		.CONST	0x0973								; Address of exception handler
096a 0001       |    |		.CONST	0x0001								; Number of locals
096b			BODY_0968:
096b			INIT_0968:
096b e003       |    |		Load	0x0,0x3
096c 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
096d e5ff       |    |		Load	0x2,-0x1
096e e00a       |    |		Load	0x0,0xa
096f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0970 e003       |    |		Load	0x0,0x3
0971 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0972 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0973			TRAP_0968:
0973 0007       |    |		Action	Break_Optional
0974 0092 09bc  |    |		Action	Push_String_Extended,0x9bc					; "Exception raised setting break mask"
0976 e01e       |    |		Load	0x0,0x1e
0977 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0978 c5fe       |    |		Store	0x2,-0x2
0979 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
097a 0000 0000  |    |		.BLANK	0000[0x6]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983       |    |		.CONST	0x0983								; Address of begin
0981 0987       |    |		.CONST	0x0987								; Address of exception handler
0982 0001       |    |		.CONST	0x0001								; Number of locals
0983			BODY_0980:
0983			INIT_0980:
0983 e5ff       |    |		Load	0x2,-0x1
0984 e095       |    |		Load	0x0,0x95
0985 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0986 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0987			TRAP_0980:
0987 0007       |    |		Action	Break_Optional
0988 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0989 0000 0000  |    |		.BLANK	0000[0x7]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993       |    |		.CONST	0x0993								; Address of begin
0991 0997       |    |		.CONST	0x0997								; Address of exception handler
0992 0001       |    |		.CONST	0x0001								; Number of locals
0993			BODY_0990:
0993			INIT_0990:
0993 e5fe       |    |		Load	0x2,-0x2
0994 e5ff       |    |		Load	0x2,-0x1
0995 8091       |    |		Call	0x0,0x91
0996 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0997			TRAP_0990:
0997 e052       | R  |		Load	0x0,0x52
0998 010f       |    |		Execute	Exception,Equal
0999 680c       |h   |		Jump_Zero	0x9a6
099a 4801       |H   |		Short_Literal	0x1
099b 4801       |H   |		Short_Literal	0x1
099c e5ff       |    |		Load	0x2,-0x1
099d 8045       | E  |		Call	0x0,0x45
099e 4800       |H   |		Short_Literal	0x0
099f 809e       |    |		Call	0x0,0x9e
09a0 e5ff       |    |		Load	0x2,-0x1
09a1 809f       |    |		Call	0x0,0x9f
09a2 e5fe       |    |		Load	0x2,-0x2
09a3 e5ff       |    |		Load	0x2,-0x1
09a4 8091       |    |		Call	0x0,0x91
09a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09a6 0100       |    |		Execute	Exception,Raise
09a7 ; --------------------------------------------------------------------------------------
09a7 ; STRING TABLE
09a7 ; --------------------------------------------------------------------------------------
09a7 002e       | .  |		.STRTAB	0x002e->0x09be							; "Illegal item type"
09a8 003d       | =  |		.STRTAB	0x003d->0x09c6							; "No code generated for this statement"
09a9 005f       | _  |		.STRTAB	0x005f->0x09d8							; "Item requires unimplemented facility"
09aa 0081       |    |		.STRTAB	0x0081->0x09ea							; "Exception raised:"
09ab 0090       |    |		.STRTAB	0x0090->0x09f3							; "Task unknown or terminated"
09ac 00a8       |    |		.STRTAB	0x00a8->0x0a00							; "Too many action items"
09ad 00bb       |    |		.STRTAB	0x00bb->0x0a0a							; "Return stepping illegal from task body"
09ae 00df       |    |		.STRTAB	0x00df->0x0a1d							; "Illegal Pc value"
09af 00ed       |    |		.STRTAB	0x00ed->0x0a25							; "Unable to set task interface subprogram"
09b0 0112       |    |		.STRTAB	0x0112->0x0a39							; "Disable_Debugging exception"
09b1 012b       | +  |		.STRTAB	0x012b->0x0a46							; "*** Internal Error: "
09b2 013d       | =  |		.STRTAB	0x013d->0x0a50							; "Process: Special item on control list"
09b3 0160       | `  |		.STRTAB	0x0160->0x0a63							; "Process: unknown class"
09b4 0174       | t  |		.STRTAB	0x0174->0x0a6e							; "Profile unimplemented"
09b5 0187       |    |		.STRTAB	0x0187->0x0a78							; "Continue unexpected"
09b6 0198       |    |		.STRTAB	0x0198->0x0a82							; "Process: Exception item on control list"
09b7 01bd       |    |		.STRTAB	0x01bd->0x0a95							; "Process: Special item on exception list"
09b8 01e2       |    |		.STRTAB	0x01e2->0x0aa9							; "Process: Control item on exception list"
09b9 0207       |    |		.STRTAB	0x0207->0x0abc							; "Process: Other_Action undefined"
09ba 0224       | $  |		.STRTAB	0x0224->0x0acc							; "Process: Continue unexpected"
09bb 023e       | >  |		.STRTAB	0x023e->0x0ada							; "Illegal internal call: "
09bc 0253       | S  |		.STRTAB	0x0253->0x0ae5							; "Exception raised setting break mask"
09bd 0274       | t  |		.STREND 0x0274->0x0af7
09be 496c 6c65  |Ille|		.STRTAB_STRINGS
0af7 0000       |    |		.XXX[0x1]
0af8 ; --------------------------------------------------------------------------------------
0af8 ; Debug Table
0af8 ; --------------------------------------------------------------------------------------
0af8 0004 0007  |    |		.DEBUG4	0x0004,0x0007,0x8197,0x0000,0x0001,0x0000
0afe 041c 2000  |    |		.XXX[0x2]
0b00 0000 0000  |    |		.BLANK	0000[0x7]
0b07 0008 0000  |    |		.XXX[0x9]
0b09 0000 0000  |    |
0b0b 0008 000a  |    |
0b0d da78 061c  | x  |
0b0f 6560       |e`  |
0b10 0000 0000  |    |		.BLANK	0000[0x4]
0b14 030e 4604  |  F |		.XXX[0x2b]
0b16 0006 d523  |   #|
0b18 2085 5905  |  Y |
0b1a f493 0000  |    |
0b1c 0490 42ac  |  B |
0b1e 830d f2c0  |    |
0b20 0002 4000  |  @ |
0b22 0000 0000  |    |
0b24 0000 000a  |    |
0b26 1d94 8580  |    |
0b28 0000 400a  |  @ |
0b2a 1d96 8580  |    |
0b2c 0000 4000  |  @ |
0b2e 0000 0001  |    |
0b30 43b2 d0b0  |C   |
0b32 0000 0804  |    |
0b34 10ab 20c1  |    |
0b36 15b8 0000  |    |
0b38 9000 0000  |    |
0b3a 4800 029b  |H   |
0b3c 5000 0000  |P   |
0b3e 1000       |    |
0b3f 0000 0000  |    |		.BLANK	0000[0x8]
0b47 0107 0800  |    |		.XXX[0x2]
0b49 0000 0000  |    |		.BLANK	0000[0x7]
0b50 0002 0000  |    |		.XXX[0x3a]
0b52 0000 0000  |    |
0b54 0002 0002  |    |
0b56 de08 0187  |    |
0b58 227c 0187  |"|  |
0b5a 213a 0187  |!:  |
0b5c 3382 00c3  |3   |
0b5e 9613 0001  |    |
0b60 d2cd 0821  |   !|
0b62 5786 bcaa  |W   |
0b64 9000 0124  |   $|
0b66 156a d5d1  | j  |
0b68 4468 0000  |Dh  |
0b6a 9100 0000  |    |
0b6c 0000 0000  |    |
0b6e 0002 5736  |  W6|
0b70 2140 0000  |!@  |
0b72 1002 5736  |  W6|
0b74 a140 0000  | @  |
0b76 1000 0003  |    |
0b78 4e10 4ae6  |N J |
0b7a d428 0000  | (  |
0b7c 0201 042a  |   *|
0b7e f0d8 cf82  |    |
0b80 0000 2400  |  $ |
0b82 0000 1200  |    |
0b84 01f0 b000  |    |
0b86 0000 0400  |    |
0b88 0000 0800  |    |
0b8a 0000 0000  |    |		.BLANK	0000[0x6]
0b90 0041 c200  | A  |		.XXX[0x2]
0b92 0000 0000  |    |		.BLANK	0000[0x8]
0b9a 8000 0000  |    |		.XXX[0x8]
0b9c 0000 0000  |    |
0b9e 8000 b97a  |   z|
0ba0 8061 cae8  | a  |
0ba2 0000 0000  |    |		.BLANK	0000[0x4]
0ba6 0030 e6a9  | 0  |		.XXX[0xe]
0ba8 4000 9a75  |@  u|
0baa 9208 c0de  |    |
0bac e5a4 5000  |  P |
0bae 00f5 0460  |   `|
0bb0 6f74 1448  |ot H|
0bb2 0000 7a00  |  z |
0bb4 0000 0000  |    |		.BLANK	0000[0x4]
0bb8 c410 6858  |  hX|		.XXX[0x48]
0bba 0000 0400  |    |
0bbc c410 8858  |   X|
0bbe 0000 0400  |    |
0bc0 0001 02c4  |    |
0bc2 1882 110b  |    |
0bc4 0000 0080  |    |
0bc6 4118 1bdd  |A   |
0bc8 0512 0000  |    |
0bca 1e80 0000  |    |
0bcc 0480 0094  |    |
0bce a400 0000  |    |
0bd0 0100 0000  |    |
0bd2 0100 0020  |    |
0bd4 5880 0000  |X   |
0bd6 0000 0000  |    |
0bd8 0008 22f6  |  " |
0bda 0ca0 8020  |    |
0bdc 0003 d000  |    |
0bde 0000 9000  |    |
0be0 1294 8000  |    |
0be2 0000 2000  |    |
0be4 0000 2000  |    |
0be6 0000 2000  |    |
0be8 36be c018  |6   |
0bea 734c 4018  |sL@ |
0bec 72a5 e018  |r   |
0bee 74ee e00c  |t   |
0bf0 39f3 7000  |9 p |
0bf2 173a 0a82  | :  |
0bf4 3d4b 8141  |=K A|
0bf6 7700 0012  |w   |
0bf8 4152 8997  |AR  |
0bfa 78ee 0000  |x   |
0bfc 0090 0000  |    |
0bfe 0000 0000  |    |