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

⟦5f8255e20⟧

    Length: 4096 (0x1000)
    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
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 06f8       |    |		.CONST	0x06f8								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006d       | m  |		.CONST	0x006d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0023       | #  |		.CONST	0x0023								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 48ff       |H   |		Short_Literal	0xff
000d 00e5       |    |		Load_Encached	Long_Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 4900       |I   |		Short_Literal	0x100
0010 6103       |a   |		Indirect_Literal	Discrete,0x114,{0x7fffffff, 0xffffffff}
0011 00e5       |    |		Load_Encached	Long_Integer_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 4800       |H   |		Short_Literal	0x0
0014 48df       |H   |		Short_Literal	0xdf
0015 00e5       |    |		Load_Encached	Long_Integer_Cache
0016 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0017 48e0       |H   |		Short_Literal	0xe0
0018 60fb       |`   |		Indirect_Literal	Discrete,0x114,{0x7fffffff, 0xffffffff}
0019 00e5       |    |		Load_Encached	Long_Integer_Cache
001a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001b 48e0       |H   |		Short_Literal	0xe0
001c 48ff       |H   |		Short_Literal	0xff
001d 00e5       |    |		Load_Encached	Long_Integer_Cache
001e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001f 4801       |H   |		Short_Literal	0x1
0020 481f       |H   |		Short_Literal	0x1f
0021 e20d       |    |		Load	0x1,0xd
0022 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0023 4820       |H   |		Short_Literal	0x20
0024 482f       |H/  |		Short_Literal	0x2f
0025 e20d       |    |		Load	0x1,0xd
0026 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0027 4830       |H0  |		Short_Literal	0x30
0028 483f       |H?  |		Short_Literal	0x3f
0029 e20d       |    |		Load	0x1,0xd
002a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
002b 4840       |H@  |		Short_Literal	0x40
002c 484f       |HO  |		Short_Literal	0x4f
002d e20d       |    |		Load	0x1,0xd
002e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
002f 4850       |HP  |		Short_Literal	0x50
0030 485f       |H_  |		Short_Literal	0x5f
0031 e20d       |    |		Load	0x1,0xd
0032 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0033 4860       |H`  |		Short_Literal	0x60
0034 487f       |H   |		Short_Literal	0x7f
0035 e20d       |    |		Load	0x1,0xd
0036 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0037 4880       |H   |		Short_Literal	0x80
0038 48df       |H   |		Short_Literal	0xdf
0039 e20d       |    |		Load	0x1,0xd
003a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
003b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
003d 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
003f 4800       |H   |		Short_Literal	0x0
0040 0093 02db  |    |		push_full_address	INIT_02d8
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 038f       |    |		Declare_Type	Package,Defined,Visible
0044 0386       |    |		Declare_Variable	Package,Visible
0045 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0047 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0049 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
004b 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
004d 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
004f 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0051 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0053 0093 0000  |    |		push_full_address	0x0
0055 60ba       |`   |		Indirect_Literal	Discrete,0x110,{0x80000000, 0x00010000}
0056 0273       | s  |		Execute	Discrete,Plus
0057 0129       | )  |		Execute	Any,Make_Visible
0058 00bf       |    |		Action	Accept_Activation
0059 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006a 00c7       |    |		Action	Elaborate_Subprogram
006b e21b       |    |		Load	0x1,0x1b
006c 020f       |    |		Execute	Module,Activate
006d			BODY_0008:
006d 00bc       |    |		Action	Signal_Activated
006e 00bb       |    |		Action	Signal_Completion
006f 0000       |    |		.XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 010a       |    |		.CONST	0x010a								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e5ff       |    |		Load	0x2,-0x1
0074 00d8       |    |		Load_Top	At_Offset_0
0075 0d40       | @  |		Execute_Immediate	Less,0x40
0076 7020       |p   |		Jump_Nonzero	0x97
0077 00d8       |    |		Load_Top	At_Offset_0
0078 0c50       | P  |		Execute_Immediate	Greater_Equal,0x50
0079 700e       |p   |		Jump_Nonzero	0x88
007a 00d1       |    |		Pop_Control	Pop_Count_1
007b e5ff       |    |		Load	0x2,-0x1
007c 0ac0       |    |		Execute_Immediate	Plus,-0x40
007d 00d8       |    |		Load_Top	At_Offset_0
007e e21b       |    |		Load	0x1,0x1b
007f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0080 0260       | `  |		Execute	Discrete,In_Type
0081 7001       |p   |		Jump_Nonzero	0x83
0082 0801       |    |		Execute_Immediate	Raise,0x1
0083 e21b       |    |		Load	0x1,0x1b
0084 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0085 011c       |    |		Execute	Any,Convert_Unchecked
0086 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0087 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0088 00d8       |    |		Load_Top	At_Offset_0
0089 0c60       | `  |		Execute_Immediate	Greater_Equal,0x60
008a 6847       |hG  |		Jump_Zero	0xd2
008b 00d8       |    |		Load_Top	At_Offset_0
008c 0c80       |    |		Execute_Immediate	Greater_Equal,-0x80
008d 6852       |hR  |		Jump_Zero	0xe0
008e 00d8       |    |		Load_Top	At_Offset_0
008f 0ce0       |    |		Execute_Immediate	Greater_Equal,-0x20
0090 685d       |h]  |		Jump_Zero	0xee
0091 48ff       |H   |		Short_Literal	0xff
0092 027d       | }  |		Execute	Discrete,Greater
0093 6868       |hh  |		Jump_Zero	0xfc
0094 0092 0495  |    |		Action	Push_String_Extended,0x495					; "User defined exception"
0096 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0097 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0098 700c       |p   |		Jump_Nonzero	0xa5
0099 00d8       |    |		Load_Top	At_Offset_0
009a e212       |    |		Load	0x1,0x12
009b 0260       | `  |		Execute	Discrete,In_Type
009c 700c       |p   |		Jump_Nonzero	0xa9
009d 00d8       |    |		Load_Top	At_Offset_0
009e e213       |    |		Load	0x1,0x13
009f 0260       | `  |		Execute	Discrete,In_Type
00a0 7016       |p   |		Jump_Nonzero	0xb7
00a1 e214       |    |		Load	0x1,0x14
00a2 0260       | `  |		Execute	Discrete,In_Type
00a3 7021       |p!  |		Jump_Nonzero	0xc5
00a4 7fef       |    |		Jump	0x94
00a5 00d1       |    |		Pop_Control	Pop_Count_1
00a6 0092 0496  |    |		Action	Push_String_Extended,0x496					; "No exception"
00a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a9 00d1       |    |		Pop_Control	Pop_Count_1
00aa e5ff       |    |		Load	0x2,-0x1
00ab 0aff       |    |		Execute_Immediate	Plus,-0x1
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad e21b       |    |		Load	0x1,0x1b
00ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00af 0260       | `  |		Execute	Discrete,In_Type
00b0 7001       |p   |		Jump_Nonzero	0xb2
00b1 0801       |    |		Execute_Immediate	Raise,0x1
00b2 e21b       |    |		Load	0x1,0x1b
00b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b4 011c       |    |		Execute	Any,Convert_Unchecked
00b5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b7 00d1       |    |		Pop_Control	Pop_Count_1
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 0ae0       |    |		Execute_Immediate	Plus,-0x20
00ba 00d8       |    |		Load_Top	At_Offset_0
00bb e21b       |    |		Load	0x1,0x1b
00bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00bd 0260       | `  |		Execute	Discrete,In_Type
00be 7001       |p   |		Jump_Nonzero	0xc0
00bf 0801       |    |		Execute_Immediate	Raise,0x1
00c0 e21b       |    |		Load	0x1,0x1b
00c1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c2 011c       |    |		Execute	Any,Convert_Unchecked
00c3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c5 e5ff       |    |		Load	0x2,-0x1
00c6 0ad0       |    |		Execute_Immediate	Plus,-0x30
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 e21b       |    |		Load	0x1,0x1b
00c9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ca 0260       | `  |		Execute	Discrete,In_Type
00cb 7001       |p   |		Jump_Nonzero	0xcd
00cc 0801       |    |		Execute_Immediate	Raise,0x1
00cd e21b       |    |		Load	0x1,0x1b
00ce 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00cf 011c       |    |		Execute	Any,Convert_Unchecked
00d0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d2 00d1       |    |		Pop_Control	Pop_Count_1
00d3 e5ff       |    |		Load	0x2,-0x1
00d4 0ab0       |    |		Execute_Immediate	Plus,-0x50
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 e21b       |    |		Load	0x1,0x1b
00d7 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d8 0260       | `  |		Execute	Discrete,In_Type
00d9 7001       |p   |		Jump_Nonzero	0xdb
00da 0801       |    |		Execute_Immediate	Raise,0x1
00db e21b       |    |		Load	0x1,0x1b
00dc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00dd 011c       |    |		Execute	Any,Convert_Unchecked
00de 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e0 00d1       |    |		Pop_Control	Pop_Count_1
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 0aa0       |    |		Execute_Immediate	Plus,-0x60
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 e21b       |    |		Load	0x1,0x1b
00e5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00e6 0260       | `  |		Execute	Discrete,In_Type
00e7 7001       |p   |		Jump_Nonzero	0xe9
00e8 0801       |    |		Execute_Immediate	Raise,0x1
00e9 e21b       |    |		Load	0x1,0x1b
00ea 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00eb 011c       |    |		Execute	Any,Convert_Unchecked
00ec 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ee 00d1       |    |		Pop_Control	Pop_Count_1
00ef e5ff       |    |		Load	0x2,-0x1
00f0 0a80       |    |		Execute_Immediate	Plus,-0x80
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 e21b       |    |		Load	0x1,0x1b
00f3 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00f4 0260       | `  |		Execute	Discrete,In_Type
00f5 7001       |p   |		Jump_Nonzero	0xf7
00f6 0801       |    |		Execute_Immediate	Raise,0x1
00f7 e21b       |    |		Load	0x1,0x1b
00f8 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00f9 011c       |    |		Execute	Any,Convert_Unchecked
00fa 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fc e5ff       |    |		Load	0x2,-0x1
00fd 4f20       |O   |		Short_Literal	-0xe0
00fe 0273       | s  |		Execute	Discrete,Plus
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 e21b       |    |		Load	0x1,0x1b
0101 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0102 0260       | `  |		Execute	Discrete,In_Type
0103 7001       |p   |		Jump_Nonzero	0x105
0104 0801       |    |		Execute_Immediate	Raise,0x1
0105 e21b       |    |		Load	0x1,0x1b
0106 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0107 011c       |    |		Execute	Any,Convert_Unchecked
0108 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0109 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010a			TRAP_0070:
010a 010e       |    |		Execute	Exception,Is_Constraint_Error
010b 6803       |h   |		Jump_Zero	0x10f
010c 0092 0497  |    |		Action	Push_String_Extended,0x497					; "Illegal predefined value"
010e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010f 0100       |    |		Execute	Exception,Raise
0110 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0114 7fff ffff  |    |		.LITERAL	{0x7fffffff, 0xffffffff}
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012b       | +  |		.CONST	0x012b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0009       |    |		.CONST	0x0009								; Number of locals
011b			INIT_0118:
011b 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
011d 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call
011f 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
0121 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
0123 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
0125 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
0127 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
0129 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
012b			BODY_0118:
012b 8402       |    |		Call	0x2,0x2
012c 8403       |    |		Call	0x2,0x3
012d 8404       |    |		Call	0x2,0x4
012e 8405       |    |		Call	0x2,0x5
012f 8406       |    |		Call	0x2,0x6
0130 8407       |    |		Call	0x2,0x7
0131 8408       |    |		Call	0x2,0x8
0132 8409       |    |		Call	0x2,0x9
0133 08e0       |    |		Execute_Immediate	Raise,0xe0
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d       | =  |		.CONST	0x013d								; Address of begin
0139 014e       | N  |		.CONST	0x014e								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b 00e5       |    |		Load_Encached	Long_Integer_Cache
013c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
013d			BODY_0138:
013d e5ff       |    |		Load	0x2,-0x1
013e 0107       |    |		Execute	Exception,Get_Name
013f c402       |    |		Store	0x2,0x2
0140 00d8       |    |		Load_Top	At_Offset_0
0141 0fe0       |    |		Execute_Immediate	Equal,-0x20
0142 6802       |h   |		Jump_Zero	0x145
0143 4809       |H   |		Short_Literal	0x9
0144 00ca       |    |		Action	Exit_Nullary_Function
0145 00d8       |    |		Load_Top	At_Offset_0
0146 0aff       |    |		Execute_Immediate	Plus,-0x1
0147 00d8       |    |		Load_Top	At_Offset_0
0148 e21b       |    |		Load	0x1,0x1b
0149 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014a 0260       | `  |		Execute	Discrete,In_Type
014b 7001       |p   |		Jump_Nonzero	0x14d
014c 0801       |    |		Execute_Immediate	Raise,0x1
014d 00ca       |    |		Action	Exit_Nullary_Function
014e			TRAP_0138:
014e 0007       |    |		Action	Break_Optional
014f e223       | #  |		Load	0x1,0x23
0150 0257       | W  |		Execute	Discrete,Raise
0151 0000 0000  |    |		.BLANK	0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 016e       | n  |		.CONST	0x016e								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b 00e5       |    |		Load_Encached	Long_Integer_Cache
015c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
015d			BODY_0158:
015d e5ff       |    |		Load	0x2,-0x1
015e 0107       |    |		Execute	Exception,Get_Name
015f c402       |    |		Store	0x2,0x2
0160 00d8       |    |		Load_Top	At_Offset_0
0161 0fe1       |    |		Execute_Immediate	Equal,-0x1f
0162 6802       |h   |		Jump_Zero	0x165
0163 4802       |H   |		Short_Literal	0x2
0164 00ca       |    |		Action	Exit_Nullary_Function
0165 00d8       |    |		Load_Top	At_Offset_0
0166 0ae0       |    |		Execute_Immediate	Plus,-0x20
0167 00d8       |    |		Load_Top	At_Offset_0
0168 e21b       |    |		Load	0x1,0x1b
0169 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
016a 0260       | `  |		Execute	Discrete,In_Type
016b 7001       |p   |		Jump_Nonzero	0x16d
016c 0801       |    |		Execute_Immediate	Raise,0x1
016d 00ca       |    |		Action	Exit_Nullary_Function
016e			TRAP_0158:
016e 0007       |    |		Action	Break_Optional
016f e223       | #  |		Load	0x1,0x23
0170 0257       | W  |		Execute	Discrete,Raise
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d       | }  |		.CONST	0x017d								; Address of begin
0179 018e       |    |		.CONST	0x018e								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b 00e5       |    |		Load_Encached	Long_Integer_Cache
017c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
017d			BODY_0178:
017d e5ff       |    |		Load	0x2,-0x1
017e 0107       |    |		Execute	Exception,Get_Name
017f c402       |    |		Store	0x2,0x2
0180 00d8       |    |		Load_Top	At_Offset_0
0181 0fe2       |    |		Execute_Immediate	Equal,-0x1e
0182 6802       |h   |		Jump_Zero	0x185
0183 4803       |H   |		Short_Literal	0x3
0184 00ca       |    |		Action	Exit_Nullary_Function
0185 00d8       |    |		Load_Top	At_Offset_0
0186 0ad0       |    |		Execute_Immediate	Plus,-0x30
0187 00d8       |    |		Load_Top	At_Offset_0
0188 e21b       |    |		Load	0x1,0x1b
0189 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
018a 0260       | `  |		Execute	Discrete,In_Type
018b 7001       |p   |		Jump_Nonzero	0x18d
018c 0801       |    |		Execute_Immediate	Raise,0x1
018d 00ca       |    |		Action	Exit_Nullary_Function
018e			TRAP_0178:
018e 0007       |    |		Action	Break_Optional
018f e223       | #  |		Load	0x1,0x23
0190 0257       | W  |		Execute	Discrete,Raise
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d       |    |		.CONST	0x019d								; Address of begin
0199 01ae       |    |		.CONST	0x01ae								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b 00e5       |    |		Load_Encached	Long_Integer_Cache
019c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
019d			BODY_0198:
019d e5ff       |    |		Load	0x2,-0x1
019e 0107       |    |		Execute	Exception,Get_Name
019f c402       |    |		Store	0x2,0x2
01a0 00d8       |    |		Load_Top	At_Offset_0
01a1 0fe3       |    |		Execute_Immediate	Equal,-0x1d
01a2 6802       |h   |		Jump_Zero	0x1a5
01a3 480a       |H   |		Short_Literal	0xa
01a4 00ca       |    |		Action	Exit_Nullary_Function
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 0ac0       |    |		Execute_Immediate	Plus,-0x40
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 e21b       |    |		Load	0x1,0x1b
01a9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01aa 0260       | `  |		Execute	Discrete,In_Type
01ab 7001       |p   |		Jump_Nonzero	0x1ad
01ac 0801       |    |		Execute_Immediate	Raise,0x1
01ad 00ca       |    |		Action	Exit_Nullary_Function
01ae			TRAP_0198:
01ae 0007       |    |		Action	Break_Optional
01af e223       | #  |		Load	0x1,0x23
01b0 0257       | W  |		Execute	Discrete,Raise
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd       |    |		.CONST	0x01bd								; Address of begin
01b9 01ce       |    |		.CONST	0x01ce								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb 00e5       |    |		Load_Encached	Long_Integer_Cache
01bc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01bd			BODY_01b8:
01bd e5ff       |    |		Load	0x2,-0x1
01be 0107       |    |		Execute	Exception,Get_Name
01bf c402       |    |		Store	0x2,0x2
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 0fe4       |    |		Execute_Immediate	Equal,-0x1c
01c2 6802       |h   |		Jump_Zero	0x1c5
01c3 4803       |H   |		Short_Literal	0x3
01c4 00ca       |    |		Action	Exit_Nullary_Function
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 0ab0       |    |		Execute_Immediate	Plus,-0x50
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 e21b       |    |		Load	0x1,0x1b
01c9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01ca 0260       | `  |		Execute	Discrete,In_Type
01cb 7001       |p   |		Jump_Nonzero	0x1cd
01cc 0801       |    |		Execute_Immediate	Raise,0x1
01cd 00ca       |    |		Action	Exit_Nullary_Function
01ce			TRAP_01b8:
01ce 0007       |    |		Action	Break_Optional
01cf e223       | #  |		Load	0x1,0x23
01d0 0257       | W  |		Execute	Discrete,Raise
01d1 0000 0000  |    |		.BLANK	0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd       |    |		.CONST	0x01dd								; Address of begin
01d9 01e9       |    |		.CONST	0x01e9								; Address of exception handler
01da 0002       |    |		.CONST	0x0002								; Number of locals
01db			INIT_01d8:
01db 00e5       |    |		Load_Encached	Long_Integer_Cache
01dc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01dd			BODY_01d8:
01dd e5ff       |    |		Load	0x2,-0x1
01de 0107       |    |		Execute	Exception,Get_Name
01df c402       |    |		Store	0x2,0x2
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 0aa0       |    |		Execute_Immediate	Plus,-0x60
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 e21b       |    |		Load	0x1,0x1b
01e4 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01e5 0260       | `  |		Execute	Discrete,In_Type
01e6 7001       |p   |		Jump_Nonzero	0x1e8
01e7 0801       |    |		Execute_Immediate	Raise,0x1
01e8 00ca       |    |		Action	Exit_Nullary_Function
01e9			TRAP_01d8:
01e9 0007       |    |		Action	Break_Optional
01ea e223       | #  |		Load	0x1,0x23
01eb 0257       | W  |		Execute	Discrete,Raise
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5       |    |		.CONST	0x01f5								; Address of begin
01f1 0201       |    |		.CONST	0x0201								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 00e5       |    |		Load_Encached	Long_Integer_Cache
01f4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01f5			BODY_01f0:
01f5 e5ff       |    |		Load	0x2,-0x1
01f6 0107       |    |		Execute	Exception,Get_Name
01f7 c402       |    |		Store	0x2,0x2
01f8 00d8       |    |		Load_Top	At_Offset_0
01f9 0a80       |    |		Execute_Immediate	Plus,-0x80
01fa 00d8       |    |		Load_Top	At_Offset_0
01fb e21b       |    |		Load	0x1,0x1b
01fc 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
01fd 0260       | `  |		Execute	Discrete,In_Type
01fe 7001       |p   |		Jump_Nonzero	0x200
01ff 0801       |    |		Execute_Immediate	Raise,0x1
0200 00ca       |    |		Action	Exit_Nullary_Function
0201			TRAP_01f0:
0201 0007       |    |		Action	Break_Optional
0202 e223       | #  |		Load	0x1,0x23
0203 0257       | W  |		Execute	Discrete,Raise
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 021c       |    |		.CONST	0x021c								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b e5ff       |    |		Load	0x2,-0x1
020c e21b       |    |		Load	0x1,0x1b
020d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020e 1c02       |    |		Execute_Immediate	Run_Utility,0x2
020f 00d8       |    |		Load_Top	At_Offset_0
0210 e20d       |    |		Load	0x1,0xd
0211 0260       | `  |		Execute	Discrete,In_Type
0212 7001       |p   |		Jump_Nonzero	0x214
0213 0801       |    |		Execute_Immediate	Raise,0x1
0214 0a01       |    |		Execute_Immediate	Plus,0x1
0215 00d8       |    |		Load_Top	At_Offset_0
0216 e20d       |    |		Load	0x1,0xd
0217 0260       | `  |		Execute	Discrete,In_Type
0218 7001       |p   |		Jump_Nonzero	0x21a
0219 0801       |    |		Execute_Immediate	Raise,0x1
021a 00cb       |    |		Action	Pop_Block_With_Result
021b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021c			TRAP_0208:
021c 010e       |    |		Execute	Exception,Is_Constraint_Error
021d 6801       |h   |		Jump_Zero	0x21f
021e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021f 0100       |    |		Execute	Exception,Raise
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0234       | 4  |		.CONST	0x0234								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5ff       |    |		Load	0x2,-0x1
0224 e21b       |    |		Load	0x1,0x1b
0225 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0226 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0227 00d8       |    |		Load_Top	At_Offset_0
0228 e20d       |    |		Load	0x1,0xd
0229 0260       | `  |		Execute	Discrete,In_Type
022a 7001       |p   |		Jump_Nonzero	0x22c
022b 0801       |    |		Execute_Immediate	Raise,0x1
022c 0a50       | P  |		Execute_Immediate	Plus,0x50
022d 00d8       |    |		Load_Top	At_Offset_0
022e e20d       |    |		Load	0x1,0xd
022f 0260       | `  |		Execute	Discrete,In_Type
0230 7001       |p   |		Jump_Nonzero	0x232
0231 0801       |    |		Execute_Immediate	Raise,0x1
0232 00cb       |    |		Action	Pop_Block_With_Result
0233 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0234			TRAP_0220:
0234 010e       |    |		Execute	Exception,Is_Constraint_Error
0235 6801       |h   |		Jump_Zero	0x237
0236 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0237 0100       |    |		Execute	Exception,Raise
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 024c       | L  |		.CONST	0x024c								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b e5ff       |    |		Load	0x2,-0x1
023c e21b       |    |		Load	0x1,0x1b
023d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
023e 1c02       |    |		Execute_Immediate	Run_Utility,0x2
023f 00d8       |    |		Load_Top	At_Offset_0
0240 e20d       |    |		Load	0x1,0xd
0241 0260       | `  |		Execute	Discrete,In_Type
0242 7001       |p   |		Jump_Nonzero	0x244
0243 0801       |    |		Execute_Immediate	Raise,0x1
0244 0a20       |    |		Execute_Immediate	Plus,0x20
0245 00d8       |    |		Load_Top	At_Offset_0
0246 e20d       |    |		Load	0x1,0xd
0247 0260       | `  |		Execute	Discrete,In_Type
0248 7001       |p   |		Jump_Nonzero	0x24a
0249 0801       |    |		Execute_Immediate	Raise,0x1
024a 00cb       |    |		Action	Pop_Block_With_Result
024b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024c			TRAP_0238:
024c 010e       |    |		Execute	Exception,Is_Constraint_Error
024d 6801       |h   |		Jump_Zero	0x24f
024e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024f 0100       |    |		Execute	Exception,Raise
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0264       | d  |		.CONST	0x0264								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 e5ff       |    |		Load	0x2,-0x1
0254 e21b       |    |		Load	0x1,0x1b
0255 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0256 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0257 00d8       |    |		Load_Top	At_Offset_0
0258 e20d       |    |		Load	0x1,0xd
0259 0260       | `  |		Execute	Discrete,In_Type
025a 7001       |p   |		Jump_Nonzero	0x25c
025b 0801       |    |		Execute_Immediate	Raise,0x1
025c 0a30       | 0  |		Execute_Immediate	Plus,0x30
025d 00d8       |    |		Load_Top	At_Offset_0
025e e20d       |    |		Load	0x1,0xd
025f 0260       | `  |		Execute	Discrete,In_Type
0260 7001       |p   |		Jump_Nonzero	0x262
0261 0801       |    |		Execute_Immediate	Raise,0x1
0262 00cb       |    |		Action	Pop_Block_With_Result
0263 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0264			TRAP_0250:
0264 010e       |    |		Execute	Exception,Is_Constraint_Error
0265 6801       |h   |		Jump_Zero	0x267
0266 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0267 0100       |    |		Execute	Exception,Raise
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 027c       | |  |		.CONST	0x027c								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b e5ff       |    |		Load	0x2,-0x1
026c e21b       |    |		Load	0x1,0x1b
026d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
026e 1c02       |    |		Execute_Immediate	Run_Utility,0x2
026f 00d8       |    |		Load_Top	At_Offset_0
0270 e20d       |    |		Load	0x1,0xd
0271 0260       | `  |		Execute	Discrete,In_Type
0272 7001       |p   |		Jump_Nonzero	0x274
0273 0801       |    |		Execute_Immediate	Raise,0x1
0274 0a40       | @  |		Execute_Immediate	Plus,0x40
0275 00d8       |    |		Load_Top	At_Offset_0
0276 e20d       |    |		Load	0x1,0xd
0277 0260       | `  |		Execute	Discrete,In_Type
0278 7001       |p   |		Jump_Nonzero	0x27a
0279 0801       |    |		Execute_Immediate	Raise,0x1
027a 00cb       |    |		Action	Pop_Block_With_Result
027b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027c			TRAP_0268:
027c 010e       |    |		Execute	Exception,Is_Constraint_Error
027d 6801       |h   |		Jump_Zero	0x27f
027e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
027f 0100       |    |		Execute	Exception,Raise
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0294       |    |		.CONST	0x0294								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e5ff       |    |		Load	0x2,-0x1
0284 e21b       |    |		Load	0x1,0x1b
0285 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0286 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0287 00d8       |    |		Load_Top	At_Offset_0
0288 e20d       |    |		Load	0x1,0xd
0289 0260       | `  |		Execute	Discrete,In_Type
028a 7001       |p   |		Jump_Nonzero	0x28c
028b 0801       |    |		Execute_Immediate	Raise,0x1
028c 0a60       | `  |		Execute_Immediate	Plus,0x60
028d 00d8       |    |		Load_Top	At_Offset_0
028e e20d       |    |		Load	0x1,0xd
028f 0260       | `  |		Execute	Discrete,In_Type
0290 7001       |p   |		Jump_Nonzero	0x292
0291 0801       |    |		Execute_Immediate	Raise,0x1
0292 00cb       |    |		Action	Pop_Block_With_Result
0293 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0294			TRAP_0280:
0294 010e       |    |		Execute	Exception,Is_Constraint_Error
0295 6801       |h   |		Jump_Zero	0x297
0296 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0297 0100       |    |		Execute	Exception,Raise
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 02ad       |    |		.CONST	0x02ad								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e5ff       |    |		Load	0x2,-0x1
029c e21b       |    |		Load	0x1,0x1b
029d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
029e 1c02       |    |		Execute_Immediate	Run_Utility,0x2
029f 00d8       |    |		Load_Top	At_Offset_0
02a0 e20d       |    |		Load	0x1,0xd
02a1 0260       | `  |		Execute	Discrete,In_Type
02a2 7001       |p   |		Jump_Nonzero	0x2a4
02a3 0801       |    |		Execute_Immediate	Raise,0x1
02a4 4880       |H   |		Short_Literal	0x80
02a5 0273       | s  |		Execute	Discrete,Plus
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 e20d       |    |		Load	0x1,0xd
02a8 0260       | `  |		Execute	Discrete,In_Type
02a9 7001       |p   |		Jump_Nonzero	0x2ab
02aa 0801       |    |		Execute_Immediate	Raise,0x1
02ab 00cb       |    |		Action	Pop_Block_With_Result
02ac 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ad			TRAP_0298:
02ad 010e       |    |		Execute	Exception,Is_Constraint_Error
02ae 6801       |h   |		Jump_Zero	0x2b0
02af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b0 0100       |    |		Execute	Exception,Raise
02b1 0000 0000  |    |		.BLANK	0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 02cd       |    |		.CONST	0x02cd								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e5ff       |    |		Load	0x2,-0x1
02bc e21b       |    |		Load	0x1,0x1b
02bd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02be 1c02       |    |		Execute_Immediate	Run_Utility,0x2
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 e20d       |    |		Load	0x1,0xd
02c1 0260       | `  |		Execute	Discrete,In_Type
02c2 7001       |p   |		Jump_Nonzero	0x2c4
02c3 0801       |    |		Execute_Immediate	Raise,0x1
02c4 48e0       |H   |		Short_Literal	0xe0
02c5 0273       | s  |		Execute	Discrete,Plus
02c6 00d8       |    |		Load_Top	At_Offset_0
02c7 e20d       |    |		Load	0x1,0xd
02c8 0260       | `  |		Execute	Discrete,In_Type
02c9 7001       |p   |		Jump_Nonzero	0x2cb
02ca 0801       |    |		Execute_Immediate	Raise,0x1
02cb 00cb       |    |		Action	Pop_Block_With_Result
02cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cd			TRAP_02b8:
02cd 010e       |    |		Execute	Exception,Is_Constraint_Error
02ce 6801       |h   |		Jump_Zero	0x2d0
02cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d0 0100       |    |		Execute	Exception,Raise
02d1 0000 0000  |    |		.BLANK	0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 0304       |    |		.CONST	0x0304								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0014       |    |		.CONST	0x0014								; Number of locals
02db			INIT_02d8:
02db 4800       |H   |		Short_Literal	0x0
02dc 480c       |H   |		Short_Literal	0xc
02dd 029f 030b  |    |		Declare_Subprogram	INIT_0308,For_Call
02df 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02e0 4800       |H   |		Short_Literal	0x0
02e1 4805       |H   |		Short_Literal	0x5
02e2 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
02e4 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02e5 4800       |H   |		Short_Literal	0x0
02e6 4806       |H   |		Short_Literal	0x6
02e7 029f 035b  |   [|		Declare_Subprogram	INIT_0358,For_Call
02e9 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02ea 4800       |H   |		Short_Literal	0x0
02eb 480d       |H   |		Short_Literal	0xd
02ec 029f 0383  |    |		Declare_Subprogram	INIT_0380,For_Call
02ee 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02ef 4800       |H   |		Short_Literal	0x0
02f0 4806       |H   |		Short_Literal	0x6
02f1 029f 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Call
02f3 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02f4 4800       |H   |		Short_Literal	0x0
02f5 480f       |H   |		Short_Literal	0xf
02f6 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
02f8 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02f9 4800       |H   |		Short_Literal	0x0
02fa 480a       |H   |		Short_Literal	0xa
02fb 029f 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Call
02fd 03fe       |    |		Declare_Type	Discrete,Defined,Visible
02fe 4800       |H   |		Short_Literal	0x0
02ff 4804       |H   |		Short_Literal	0x4
0300 029f 0423  |   #|		Declare_Subprogram	INIT_0420,For_Call
0302 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0303 00bf       |    |		Action	Accept_Activation
0304			BODY_02d8:
0304 00bc       |    |		Action	Signal_Activated
0305 00bb       |    |		Action	Signal_Completion
0306 0000 0000  |    |		.XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 4607       |F   |		Jump_Case	0x8
030c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
030d 7807       |x   |		Jump	0x315								; case 0x1
030e 780a       |x   |		Jump	0x319								; case 0x2
030f 780e       |x   |		Jump	0x31e								; case 0x3
0310 7811       |x   |		Jump	0x322								; case 0x4
0311 7812       |x   |		Jump	0x324								; case 0x5
0312 7813       |x   |		Jump	0x326								; case 0x6
0313 7816       |x   |		Jump	0x32a								; case 0x7
0314 4302       |C   |		.XXX[0x1]
0315 00da       |    |		Load_Top	At_Offset_2
0316 0091 0446  |   F|		Action	Push_String_Extended_Indexed,0x446				; "RANGE_ERROR"
0318 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0319 00db       |    |		Load_Top	At_Offset_3
031a 00db       |    |		Load_Top	At_Offset_3
031b 00e0       |    |		Load_Encached	Standard_Cache
031c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
031d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
031e 00da       |    |		Load_Top	At_Offset_2
031f 00e0       |    |		Load_Encached	Standard_Cache
0320 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0321 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0322 00db       |    |		Load_Top	At_Offset_3
0323 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0324 00db       |    |		Load_Top	At_Offset_3
0325 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0326 e20d       |    |		Load	0x1,0xd
0327 00dc       |    |		Load_Top	At_Offset_4
0328 0267       | g  |		Execute	Discrete,Predecessor
0329 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
032a e20d       |    |		Load	0x1,0xd
032b 00dc       |    |		Load_Top	At_Offset_4
032c 0268       | h  |		Execute	Discrete,Successor
032d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 4607       |F   |		Jump_Case	0x8
0334 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0335 7807       |x   |		Jump	0x33d								; case 0x1
0336 780a       |x   |		Jump	0x341								; case 0x2
0337 780e       |x   |		Jump	0x346								; case 0x3
0338 7811       |x   |		Jump	0x34a								; case 0x4
0339 7812       |x   |		Jump	0x34c								; case 0x5
033a 7813       |x   |		Jump	0x34e								; case 0x6
033b 7816       |x   |		Jump	0x352								; case 0x7
033c 4302       |C   |		.XXX[0x1]
033d 00da       |    |		Load_Top	At_Offset_2
033e 0091 0453  |   S|		Action	Push_String_Extended_Indexed,0x453				; "ZERO_DIVIDE_ERROR"
0340 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0341 00db       |    |		Load_Top	At_Offset_3
0342 00db       |    |		Load_Top	At_Offset_3
0343 00e0       |    |		Load_Encached	Standard_Cache
0344 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0345 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0346 00da       |    |		Load_Top	At_Offset_2
0347 00e0       |    |		Load_Encached	Standard_Cache
0348 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0349 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
034a 00db       |    |		Load_Top	At_Offset_3
034b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
034c 00db       |    |		Load_Top	At_Offset_3
034d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
034e e20e       |    |		Load	0x1,0xe
034f 00dc       |    |		Load_Top	At_Offset_4
0350 0267       | g  |		Execute	Discrete,Predecessor
0351 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0352 e20e       |    |		Load	0x1,0xe
0353 00dc       |    |		Load_Top	At_Offset_4
0354 0268       | h  |		Execute	Discrete,Successor
0355 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0356 0000 0000  |    |		.XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 4607       |F   |		Jump_Case	0x8
035c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
035d 7807       |x   |		Jump	0x365								; case 0x1
035e 780a       |x   |		Jump	0x369								; case 0x2
035f 780e       |x   |		Jump	0x36e								; case 0x3
0360 7811       |x   |		Jump	0x372								; case 0x4
0361 7812       |x   |		Jump	0x374								; case 0x5
0362 7813       |x   |		Jump	0x376								; case 0x6
0363 7816       |x   |		Jump	0x37a								; case 0x7
0364 4302       |C   |		.XXX[0x1]
0365 00da       |    |		Load_Top	At_Offset_2
0366 0091 0459  |   Y|		Action	Push_String_Extended_Indexed,0x459				; "ELABORATION_ERROR"
0368 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0369 00db       |    |		Load_Top	At_Offset_3
036a 00db       |    |		Load_Top	At_Offset_3
036b 00e0       |    |		Load_Encached	Standard_Cache
036c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
036d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
036e 00da       |    |		Load_Top	At_Offset_2
036f 00e0       |    |		Load_Encached	Standard_Cache
0370 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0371 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0372 00db       |    |		Load_Top	At_Offset_3
0373 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0374 00db       |    |		Load_Top	At_Offset_3
0375 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0376 e20f       |    |		Load	0x1,0xf
0377 00dc       |    |		Load_Top	At_Offset_4
0378 0267       | g  |		Execute	Discrete,Predecessor
0379 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
037a e20f       |    |		Load	0x1,0xf
037b 00dc       |    |		Load_Top	At_Offset_4
037c 0268       | h  |		Execute	Discrete,Successor
037d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
037e 0000 0000  |    |		.XXX[0x2]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 4607       |F   |		Jump_Case	0x8
0384 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0385 7807       |x   |		Jump	0x38d								; case 0x1
0386 780a       |x   |		Jump	0x391								; case 0x2
0387 780e       |x   |		Jump	0x396								; case 0x3
0388 7811       |x   |		Jump	0x39a								; case 0x4
0389 7812       |x   |		Jump	0x39c								; case 0x5
038a 7813       |x   |		Jump	0x39e								; case 0x6
038b 7816       |x   |		Jump	0x3a2								; case 0x7
038c 4302       |C   |		.XXX[0x1]
038d 00da       |    |		Load_Top	At_Offset_2
038e 0091 0460  |   `|		Action	Push_String_Extended_Indexed,0x460				; "CONTROL_SPACE_ERROR"
0390 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0391 00db       |    |		Load_Top	At_Offset_3
0392 00db       |    |		Load_Top	At_Offset_3
0393 00e0       |    |		Load_Encached	Standard_Cache
0394 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0395 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0396 00da       |    |		Load_Top	At_Offset_2
0397 00e0       |    |		Load_Encached	Standard_Cache
0398 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0399 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
039a 00db       |    |		Load_Top	At_Offset_3
039b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039c 00db       |    |		Load_Top	At_Offset_3
039d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039e e210       |    |		Load	0x1,0x10
039f 00dc       |    |		Load_Top	At_Offset_4
03a0 0267       | g  |		Execute	Discrete,Predecessor
03a1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03a2 e210       |    |		Load	0x1,0x10
03a3 00dc       |    |		Load_Top	At_Offset_4
03a4 0268       | h  |		Execute	Discrete,Successor
03a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03a6 0000 0000  |    |		.XXX[0x2]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 4607       |F   |		Jump_Case	0x8
03ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03ad 7807       |x   |		Jump	0x3b5								; case 0x1
03ae 780a       |x   |		Jump	0x3b9								; case 0x2
03af 780e       |x   |		Jump	0x3be								; case 0x3
03b0 7811       |x   |		Jump	0x3c2								; case 0x4
03b1 7812       |x   |		Jump	0x3c4								; case 0x5
03b2 7813       |x   |		Jump	0x3c6								; case 0x6
03b3 7816       |x   |		Jump	0x3ca								; case 0x7
03b4 4302       |C   |		.XXX[0x1]
03b5 00da       |    |		Load_Top	At_Offset_2
03b6 0091 046e  |   n|		Action	Push_String_Extended_Indexed,0x46e				; "ACTIVATION_ERROR"
03b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b9 00db       |    |		Load_Top	At_Offset_3
03ba 00db       |    |		Load_Top	At_Offset_3
03bb 00e0       |    |		Load_Encached	Standard_Cache
03bc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03be 00da       |    |		Load_Top	At_Offset_2
03bf 00e0       |    |		Load_Encached	Standard_Cache
03c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03c1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03c2 00db       |    |		Load_Top	At_Offset_3
03c3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c4 00db       |    |		Load_Top	At_Offset_3
03c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c6 e211       |    |		Load	0x1,0x11
03c7 00dc       |    |		Load_Top	At_Offset_4
03c8 0267       | g  |		Execute	Discrete,Predecessor
03c9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ca e211       |    |		Load	0x1,0x11
03cb 00dc       |    |		Load_Top	At_Offset_4
03cc 0268       | h  |		Execute	Discrete,Successor
03cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ce 0000 0000  |    |		.XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 4607       |F   |		Jump_Case	0x8
03d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03d5 7807       |x   |		Jump	0x3dd								; case 0x1
03d6 780a       |x   |		Jump	0x3e1								; case 0x2
03d7 780e       |x   |		Jump	0x3e6								; case 0x3
03d8 7811       |x   |		Jump	0x3ea								; case 0x4
03d9 7812       |x   |		Jump	0x3ec								; case 0x5
03da 7813       |x   |		Jump	0x3ee								; case 0x6
03db 7816       |x   |		Jump	0x3f2								; case 0x7
03dc 4302       |C   |		.XXX[0x1]
03dd 00da       |    |		Load_Top	At_Offset_2
03de 0091 0475  |   u|		Action	Push_String_Extended_Indexed,0x475				; "OPERAND_CLASS_ERROR"
03e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03e1 00db       |    |		Load_Top	At_Offset_3
03e2 00db       |    |		Load_Top	At_Offset_3
03e3 00e0       |    |		Load_Encached	Standard_Cache
03e4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e6 00da       |    |		Load_Top	At_Offset_2
03e7 00e0       |    |		Load_Encached	Standard_Cache
03e8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03e9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03ea 00db       |    |		Load_Top	At_Offset_3
03eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ec 00db       |    |		Load_Top	At_Offset_3
03ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ee e212       |    |		Load	0x1,0x12
03ef 00dc       |    |		Load_Top	At_Offset_4
03f0 0267       | g  |		Execute	Discrete,Predecessor
03f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03f2 e212       |    |		Load	0x1,0x12
03f3 00dc       |    |		Load_Top	At_Offset_4
03f4 0268       | h  |		Execute	Discrete,Successor
03f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03f6 0000 0000  |    |		.XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 4607       |F   |		Jump_Case	0x8
03fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03fd 7807       |x   |		Jump	0x405								; case 0x1
03fe 780a       |x   |		Jump	0x409								; case 0x2
03ff 780e       |x   |		Jump	0x40e								; case 0x3
0400 7811       |x   |		Jump	0x412								; case 0x4
0401 7812       |x   |		Jump	0x414								; case 0x5
0402 7813       |x   |		Jump	0x416								; case 0x6
0403 7816       |x   |		Jump	0x41a								; case 0x7
0404 4302       |C   |		.XXX[0x1]
0405 00da       |    |		Load_Top	At_Offset_2
0406 0091 0485  |    |		Action	Push_String_Extended_Indexed,0x485				; "TASK_ABORTED"
0408 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0409 00db       |    |		Load_Top	At_Offset_3
040a 00db       |    |		Load_Top	At_Offset_3
040b 00e0       |    |		Load_Encached	Standard_Cache
040c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
040d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
040e 00da       |    |		Load_Top	At_Offset_2
040f 00e0       |    |		Load_Encached	Standard_Cache
0410 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0411 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0412 00db       |    |		Load_Top	At_Offset_3
0413 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0414 00db       |    |		Load_Top	At_Offset_3
0415 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0416 e213       |    |		Load	0x1,0x13
0417 00dc       |    |		Load_Top	At_Offset_4
0418 0267       | g  |		Execute	Discrete,Predecessor
0419 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
041a e213       |    |		Load	0x1,0x13
041b 00dc       |    |		Load_Top	At_Offset_4
041c 0268       | h  |		Execute	Discrete,Successor
041d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
041e 0000 0000  |    |		.XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 4607       |F   |		Jump_Case	0x8
0424 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0425 7807       |x   |		Jump	0x42d								; case 0x1
0426 780a       |x   |		Jump	0x431								; case 0x2
0427 780e       |x   |		Jump	0x436								; case 0x3
0428 7811       |x   |		Jump	0x43a								; case 0x4
0429 7812       |x   |		Jump	0x43c								; case 0x5
042a 7813       |x   |		Jump	0x43e								; case 0x6
042b 7816       |x   |		Jump	0x442								; case 0x7
042c 4302       |C   |		.XXX[0x1]
042d 00da       |    |		Load_Top	At_Offset_2
042e 0091 0490  |    |		Action	Push_String_Extended_Indexed,0x490				; "CONSTRAINT_ERROR"
0430 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0431 00db       |    |		Load_Top	At_Offset_3
0432 00db       |    |		Load_Top	At_Offset_3
0433 00e0       |    |		Load_Encached	Standard_Cache
0434 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0435 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0436 00da       |    |		Load_Top	At_Offset_2
0437 00e0       |    |		Load_Encached	Standard_Cache
0438 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0439 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
043a 00db       |    |		Load_Top	At_Offset_3
043b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043c 00db       |    |		Load_Top	At_Offset_3
043d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043e e214       |    |		Load	0x1,0x14
043f 00dc       |    |		Load_Top	At_Offset_4
0440 0267       | g  |		Execute	Discrete,Predecessor
0441 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0442 e214       |    |		Load	0x1,0x14
0443 00dc       |    |		Load_Top	At_Offset_4
0444 0268       | h  |		Execute	Discrete,Successor
0445 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0446 ; --------------------------------------------------------------------------------------
0446 ; STRING TABLE
0446 ; --------------------------------------------------------------------------------------
0446 00a6       |    |		.STRTAB	0x00a6->0x0499							; "RANGE_ERROR"
0447 00af       |    |		.STRTAB	0x00af->0x049e							; "CASE_RANGE_ERROR"
0448 00bd       |    |		.STRTAB	0x00bd->0x04a6							; "EXPONENT_ERROR"
0449 00c9       |    |		.STRTAB	0x00c9->0x04ad							; "NULL_ACCESS_ERROR"
044a 00d8       |    |		.STRTAB	0x00d8->0x04b6							; "INDEX_ERROR"
044b 00e1       |    |		.STRTAB	0x00e1->0x04bb							; "LENGTH_ERROR"
044c 00eb       |    |		.STRTAB	0x00eb->0x04c1							; "DISCRIMINANT_ERROR"
044d 00fb       |    |		.STRTAB	0x00fb->0x04ca							; "VARIANT_ERROR"
044e 0106       |    |		.STRTAB	0x0106->0x04d1							; "FAMILY_ERROR"
044f 0110       |    |		.STRTAB	0x0110->0x04d7							; "EXPLICIT_CONSTRAINT_ERROR"
0450 0127       | '  |		.STRTAB	0x0127->0x04e3							; "SPARE_0"
0451 012c       | ,  |		.STRTAB	0x012c->0x04e7							; "SPARE_1"
0452 0131       | 1  |		.STRTAB	0x0131->0x04ea							; "SPARE_2"
0453 0136       | 6  |		.STRTAB	0x0136->0x04ee							; "ZERO_DIVIDE_ERROR"
0454 0145       | E  |		.STRTAB	0x0145->0x04f6							; "OVERFLOW_ERROR"
0455 0151       | Q  |		.STRTAB	0x0151->0x04fd							; "EXPLICIT_NUMERIC_ERROR"
0456 0165       | e  |		.STRTAB	0x0165->0x0508							; "SPARE_0"
0457 016a       | j  |		.STRTAB	0x016a->0x050c							; "SPARE_1"
0458 016f       | o  |		.STRTAB	0x016f->0x050f							; "SPARE_2"
0459 0174       | t  |		.STRTAB	0x0174->0x0513							; "ELABORATION_ERROR"
045a 0183       |    |		.STRTAB	0x0183->0x051b							; "FUNCTION_EXIT_ERROR"
045b 0194       |    |		.STRTAB	0x0194->0x0525							; "SELECT_ERROR"
045c 019e       |    |		.STRTAB	0x019e->0x052b							; "EXPLICIT_PROGRAM_ERROR"
045d 01b2       |    |		.STRTAB	0x01b2->0x0536							; "SPARE_0"
045e 01b7       |    |		.STRTAB	0x01b7->0x0539							; "SPARE_1"
045f 01bc       |    |		.STRTAB	0x01bc->0x053d							; "SPARE_2"
0460 01c1       |    |		.STRTAB	0x01c1->0x0540							; "CONTROL_SPACE_ERROR"
0461 01d2       |    |		.STRTAB	0x01d2->0x054a							; "TYPE_SPACE_ERROR"
0462 01e0       |    |		.STRTAB	0x01e0->0x0552							; "DATA_SPACE_ERROR"
0463 01ee       |    |		.STRTAB	0x01ee->0x055a							; "IMPORT_SPACE_ERROR"
0464 01fe       |    |		.STRTAB	0x01fe->0x0563							; "QUEUE_SPACE_ERROR"
0465 020d       |    |		.STRTAB	0x020d->0x056b							; "PROGRAM_SPACE_ERROR"
0466 021e       |    |		.STRTAB	0x021e->0x0575							; "ALLOCATION_ERROR"
0467 022c       | ,  |		.STRTAB	0x022c->0x057d							; "RESOURCE_ERROR"
0468 0238       | 8  |		.STRTAB	0x0238->0x0584							; "OVERSIZE_OBJECT"
0469 0245       | E  |		.STRTAB	0x0245->0x058b							; "NAME_ERROR"
046a 024d       | M  |		.STRTAB	0x024d->0x0590							; "EXPLICIT_STORAGE_ERROR"
046b 0261       | a  |		.STRTAB	0x0261->0x059b							; "SPARE_0"
046c 0266       | f  |		.STRTAB	0x0266->0x059f							; "SPARE_1"
046d 026b       | k  |		.STRTAB	0x026b->0x05a2							; "SPARE_2"
046e 0270       | p  |		.STRTAB	0x0270->0x05a6							; "ACTIVATION_ERROR"
046f 027e       | ~  |		.STRTAB	0x027e->0x05ae							; "COMPLETED_TASK_ERROR"
0470 0290       |    |		.STRTAB	0x0290->0x05b8							; "ABNORMAL_TASK_ERROR"
0471 02a1       |    |		.STRTAB	0x02a1->0x05c1							; "EXPLICIT_TASKING_ERROR"
0472 02b5       |    |		.STRTAB	0x02b5->0x05cc							; "SPARE_0"
0473 02ba       |    |		.STRTAB	0x02ba->0x05d0							; "SPARE_1"
0474 02bf       |    |		.STRTAB	0x02bf->0x05d3							; "SPARE_2"
0475 02c4       |    |		.STRTAB	0x02c4->0x05d7							; "OPERAND_CLASS_ERROR"
0476 02d5       |    |		.STRTAB	0x02d5->0x05e0							; "TYPE_ERROR"
0477 02dd       |    |		.STRTAB	0x02dd->0x05e5							; "VISIBILITY_ERROR"
0478 02eb       |    |		.STRTAB	0x02eb->0x05ed							; "CAPABILITY_ERROR"
0479 02f9       |    |		.STRTAB	0x02f9->0x05f5							; "MACHINE_RESTRICTION"
047a 030a       |    |		.STRTAB	0x030a->0x05ff							; "ILLEGAL_INSTRUCTION"
047b 031b       |    |		.STRTAB	0x031b->0x0608							; "ILLEGAL_REFERENCE"
047c 032a       | *  |		.STRTAB	0x032a->0x0611							; "ILLEGAL_FRAME_EXIT"
047d 033a       | :  |		.STRTAB	0x033a->0x061a							; "RECORD_FIELD_ERROR"
047e 034a       | J  |		.STRTAB	0x034a->0x0623							; "UTILITY_ERROR"
047f 0355       | U  |		.STRTAB	0x0355->0x0629							; "UNSUPPORTED_FEATURE"
0480 0366       | f  |		.STRTAB	0x0366->0x0633							; "ILLEGAL_HEAP_ACCESS"
0481 0377       | w  |		.STRTAB	0x0377->0x063c							; "SELECT_USE_ERROR"
0482 0385       |    |		.STRTAB	0x0385->0x0644							; "SPARE_0"
0483 038a       |    |		.STRTAB	0x038a->0x0648							; "SPARE_1"
0484 038f       |    |		.STRTAB	0x038f->0x064b							; "SPARE_2"
0485 0394       |    |		.STRTAB	0x0394->0x064f							; "TASK_ABORTED"
0486 039e       |    |		.STRTAB	0x039e->0x0655							; "FRAME_ESTABLISH_ERROR"
0487 03b1       |    |		.STRTAB	0x03b1->0x065f							; "UNIMPLEMENTED_MICROCODE"
0488 03c6       |    |		.STRTAB	0x03c6->0x066b							; "NONEXISTENT_SPACE_ERROR"
0489 03db       |    |		.STRTAB	0x03db->0x0676							; "NONEXISTENT_PAGE_ERROR"
048a 03ef       |    |		.STRTAB	0x03ef->0x0681							; "WRITE_TO_READ_ONLY_PAGE"
048b 0404       |    |		.STRTAB	0x0404->0x068d							; "HEAP_POINTER_COPY_ERROR"
048c 0419       |    |		.STRTAB	0x0419->0x0698							; "ASSERTION_ERROR"
048d 0426       | &  |		.STRTAB	0x0426->0x06a0							; "MICROCODE_ASSIST_ERROR"
048e 043a       | :  |		.STRTAB	0x043a->0x06ab							; "SPARE_0"
048f 043f       | ?  |		.STRTAB	0x043f->0x06ae							; "SPARE_1"
0490 0444       | D  |		.STRTAB	0x0444->0x06b2							; "CONSTRAINT_ERROR"
0491 0452       | R  |		.STRTAB	0x0452->0x06ba							; "NUMERIC_ERROR"
0492 045d       | ]  |		.STRTAB	0x045d->0x06c0							; "PROGRAM_ERROR"
0493 0468       | h  |		.STRTAB	0x0468->0x06c7							; "STORAGE_ERROR"
0494 0473       | s  |		.STRTAB	0x0473->0x06cd							; "TASKING_ERROR"
0495 047e       | ~  |		.STRTAB	0x047e->0x06d4							; "User defined exception"
0496 0492       |    |		.STRTAB	0x0492->0x06df							; "No exception"
0497 049c       |    |		.STRTAB	0x049c->0x06e5							; "Illegal predefined value"
0498 04b2       |    |		.STREND 0x04b2->0x06f1
0499 5241 4e47  |RANG|		.STRTAB_STRINGS
06f1 0000 0000  |    |		.BLANK	0000[0x7]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug Table
06f8 ; --------------------------------------------------------------------------------------
06f8 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0x099e,0x0000,0x0001,0x0000
06fe 4cac ed2d  |L  -|		.XXX[0x22]
0700 edc5 cead  |    |
0702 cc6d edad  | m  |
0704 acad ce80  |    |
0706 0000 0120  |    |
0708 0000 0424  |   $|
070a 286d edad  |(m  |
070c ac2d cc8e  | -  |
070e 65c8 ac8d  |e   |
0710 2e8d ee45  |.  E|
0712 ca4c aced  | L  |
0714 2ded c5ca  |-   |
0716 adcc 6ded  |  m |
0718 adac adce  |    |
071a 8000 0000  |    |
071c 00cc 39ec  |  9 |
071e 617a a840  |az @|
0720 0000 0000  |    |		.BLANK	0000[0x5]
0725 0740 0000  | @  |		.XXX[0xc8]
0727 0066 56e6  | fV |
0729 1626 c650  | & P|
072b 0000 0530  |   0|
072d 0000 01a2  |    |
072f 1436 f6d6  | 6  |
0731 d616 e647  |   G|
0733 32e5 3636  |2 66|
0735 8656 4756  | VGV|
0737 c657 22e4  | W" |
0739 56e6 1626  |V  &|
073b c650 0000  | P  |
073d 0660 0000  | `  |
073f 0162 1436  | b 6|
0741 f6d6 d616  |    |
0743 e647 32e5  | G2 |
0745 1756 5756  | VWV|
0747 52e4 56e6  |R V |
0749 1626 c650  | & P|
074b 0000 04b0  |    |
074d 0000 0222  |   "|
074f 1436 f6d6  | 6  |
0751 d616 e647  |   G|
0753 32e4 f706  |2   |
0755 5726 1746  |W& F|
0757 f722 e456  | " V|
0759 e616 26c6  |  & |
075b 55f5 4657  |U FW|
075d 26d6 96e6  |&   |
075f 16c0 0000  |    |
0761 0120 0000  |    |
0763 0242 1436  | B 6|
0765 f6d6 d616  |    |
0767 e647 32e4  | G2 |
0769 f706 5726  |  W&|
076b 1746 f722  | F "|
076d e456 e616  | V  |
076f 26c6 55f5  |& U |
0771 0726 9766  | & f|
0773 96c6 5676  |  Vv|
0775 5730 0000  |W0  |
0777 0550 0000  | P  |
0779 0142 1436  | B 6|
077b f6d6 d616  |    |
077d e647 32e4  | G2 |
077f a6f6 22e4  |  " |
0781 56e6 1626  |V  &|
0783 c650 0000  | P  |
0785 0640 0000  | @  |
0787 0162 1436  | b 6|
0789 f6d6 d616  |    |
078b e647 32e4  | G2 |
078d 4656 2756  |FV'V|
078f 72e4 56e6  |r V |
0791 1626 c650  | & P|
0793 0000 0000  |    |
0795 661d 23c0  |f # |
0797 bd5d 1066  | ] f|
0799 18ad e066  |   f|
079b 291a 0000  |)   |
079d 0000 9800  |    |
079f 0000 ab2b  |   +|
07a1 234b a37b  |#K {|
07a3 9173 9b2b  | s +|
07a5 a173 4b73  | sKs|
07a7 83ab a2fb  |    |
07a9 3393 7b68  |3 {h|
07ab 0000 0048  |   H|
07ad 0000 00f9  |    |
07af 0a1b 7b6b  |  {k|
07b1 6b0b 7323  |k s#|
07b3 9972 2b23  | r+#|
07b5 4ba3 7b91  |K { |
07b7 729b 2ba1  |r + |
07b9 724b 7383  |rKs |
07bb aba2 fa33  |   3|
07bd 937b 6800  | {h |
07bf 0000 0033  |   3|
07c1 0ece 285e  |  (^|
07c3 b300 330e  |  3 |
07c5 f370 330f  | p3 |
07c7 05bc 0000  |    |
07c9 004c 0000  | L  |
07cb 0049 9591  | I  |
07cd a5d1 bdc8  |    |
07cf b9cd 9585  |    |
07d1 c98d a0b9  |    |
07d3 b995 e1d0  |    |
07d5 0000 0024  |   $|
07d7 0000 0070  |   p|
07d9 850d bdb5  |    |
07db b585 b991  |    |
07dd ccb9 1591  |    |
07df a5d1 bdc8  |    |
07e1 b94d 9585  | M  |
07e3 c98d a0b9  |    |
07e5 3995 e1d0  |9   |
07e7 0000 0000  |    |
07e9 1987 71f8  |  q |
07eb 2f5b bc00  |/[  |
07ed 0000 0000  |    |		.BLANK	0000[0x5]
07f2 fc00 0000  |    |		.XXX[0xe]
07f4 0eca d8c2  |    |
07f6 e0e6 cac8  |    |
07f8 0000 00cc  |    |
07fa 0000 003e  |   >|
07fc 42a8 dede  |B   |
07fe d8e6 5ca6  |  \ |