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

⟦7d9459c90⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5

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 04d0       |    |		.CONST	0x04d0								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c6       |    |		.CONST	0x00c6								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003e       | >  |		.CONST	0x003e								; Number of locals
000b			INIT_0008:
000b e003       |    |		Load	0x0,0x3
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 0129       | )  |		Execute	Any,Make_Visible
000e e003       |    |		Load	0x0,0x3
000f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e003       |    |		Load	0x0,0x3
0012 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0013 0129       | )  |		Execute	Any,Make_Visible
0014 e003       |    |		Load	0x0,0x3
0015 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0016 0129       | )  |		Execute	Any,Make_Visible
0017 e003       |    |		Load	0x0,0x3
0018 191a       |    |		Execute	Package,Field_Reference,Field_Number 0x1a
0019 0129       | )  |		Execute	Any,Make_Visible
001a e002       |    |		Load	0x0,0x2
001b 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
001c 0129       | )  |		Execute	Any,Make_Visible
001d 4818       |H   |		Short_Literal	0x18
001e 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
001f 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0021 4804       |H   |		Short_Literal	0x4
0022 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0023 00c4       |    |		Action	Make_Default
0024 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0026 00e4       |    |		Load_Encached	Positive_Cache
0027 0129       | )  |		Execute	Any,Make_Visible
0028 00d8       |    |		Load_Top	At_Offset_0
0029 0266       | f  |		Execute	Discrete,Bounds
002a e215       |    |		Load	0x1,0x15
002b 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
002d 4801       |H   |		Short_Literal	0x1
002e 0349       | I  |		Declare_Type	Array,Defined_Incomplete,Visible,Bounds_With_Object
002f 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0031 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0033 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0035 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0037 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0039 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
003b 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
003d 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
003f 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0041 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0043 e003       |    |		Load	0x0,0x3
0044 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0045 e212       |    |		Load	0x1,0x12
0046 e001       |    |		Load	0x0,0x1
0047 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0048 e002       |    |		Load	0x0,0x2
0049 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
004a 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
004b 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
004d e215       |    |		Load	0x1,0x15
004e 0326       | &  |		Complete_Type	Record,By_Defining
004f e219       |    |		Load	0x1,0x19
0050 0340       | @  |		Complete_Type	Array,By_Component_Completion
0051 e215       |    |		Load	0x1,0x15
0052 0322       | "  |		Declare_Variable	Record
0053 e210       |    |		Load	0x1,0x10
0054 e215       |    |		Load	0x1,0x15
0055 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0056 0119       |    |		Execute	Any,Check_In_Formal_Type
0057 00d9       |    |		Load_Top	At_Offset_1
0058 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0059 4838       |H8  |		Short_Literal	0x38
005a 00d9       |    |		Load_Top	At_Offset_1
005b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
005c e001       |    |		Load	0x0,0x1
005d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
005e e215       |    |		Load	0x1,0x15
005f 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0060 0119       |    |		Execute	Any,Check_In_Formal_Type
0061 00d9       |    |		Load_Top	At_Offset_1
0062 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0063 e002       |    |		Load	0x0,0x2
0064 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0065 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0066 00d9       |    |		Load_Top	At_Offset_1
0067 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0068 0129       | )  |		Execute	Any,Make_Visible
0069 c216       |    |		Store	0x1,0x16
006a 00c4       |    |		Action	Make_Default
006b 00c4       |    |		Action	Make_Default
006c 00c4       |    |		Action	Make_Default
006d 00c4       |    |		Action	Make_Default
006e 00c4       |    |		Action	Make_Default
006f 00c4       |    |		Action	Make_Default
0070 00c4       |    |		Action	Make_Default
0071 00c4       |    |		Action	Make_Default
0072 00c4       |    |		Action	Make_Default
0073 00c4       |    |		Action	Make_Default
0074 00c4       |    |		Action	Make_Default
0075 00c4       |    |		Action	Make_Default
0076 00c4       |    |		Action	Make_Default
0077 4802       |H   |		Short_Literal	0x2
0078 032a       | *  |		Declare_Type	Record,Incomplete
0079 c230       | 0  |		Store	0x1,0x30
007a 00d8       |    |		Load_Top	At_Offset_0
007b 02a0       |    |		Declare_Subprogram	Null_Subprogram
007c e213       |    |		Load	0x1,0x13
007d 03c7       |    |		Complete_Type	Access,By_Defining
007e 00bf       |    |		Action	Accept_Activation
007f 4837       |H7  |		Short_Literal	0x37
0080 4837       |H7  |		Short_Literal	0x37
0081 e212       |    |		Load	0x1,0x12
0082 03f8       |    |		Declare_Type	Discrete,Constrained
0083 029b 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Unelaborated
0085 e004       |    |		Load	0x0,0x4
0086 e005       |    |		Load	0x0,0x5
0087 4bfd       |K   |		Short_Literal	0x3fd
0088 e20d       |    |		Load	0x1,0xd
0089 e215       |    |		Load	0x1,0x15
008a 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
008b e006       |    |		Load	0x0,0x6
008c 0387       |    |		Declare_Variable	Package
008d 00d8       |    |		Load_Top	At_Offset_0
008e 020f       |    |		Execute	Module,Activate
008f e001       |    |		Load	0x0,0x1
0090 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0091 00d9       |    |		Load_Top	At_Offset_1
0092 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0093 02a0       |    |		Declare_Subprogram	Null_Subprogram
0094 e230       | 0  |		Load	0x1,0x30
0095 0326       | &  |		Complete_Type	Record,By_Defining
0096 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
0098 029d 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call
009a 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
009c 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
009e 029d 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call
00a0 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call
00a2 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
00a4 029d 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call
00a6 029d 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call
00a8 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 029d 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call
00b2 029d 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call
00b4 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6			BODY_0008:
00c6 00bc       |    |		Action	Signal_Activated
00c7 00bb       |    |		Action	Signal_Completion
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 00e0       |    |		.CONST	0x00e0								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e213       |    |		Load	0x1,0x13
00cc 03bc       |    |		Declare_Variable	Access,By_Allocation
00cd a5fe       |    |		Store_Unchecked	0x2,-0x2
00ce 00da       |    |		Load_Top	At_Offset_2
00cf e5fe       |    |		Load	0x2,-0x2
00d0 0227       | '  |		Execute	Access,All_Reference
00d1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 0229       | )  |		Execute	Access,All_Read
00d4 e233       | 3  |		Load	0x1,0x33
00d5 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00d6 e233       | 3  |		Load	0x1,0x33
00d7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00d8 00d9       |    |		Load_Top	At_Offset_1
00d9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00da 00d1       |    |		Pop_Control	Pop_Count_1
00db e5fd       |    |		Load	0x2,-0x3
00dc e007       |    |		Load	0x0,0x7
00dd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00de c5fd       |    |		Store	0x2,-0x3
00df 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e0			TRAP_00c8:
00e0 e008       |    |		Load	0x0,0x8
00e1 010f       |    |		Execute	Exception,Equal
00e2 6801       |h   |		Jump_Zero	0xe4
00e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e4 e5fd       |    |		Load	0x2,-0x3
00e5 0092 04ae  |    |		Action	Push_String_Extended,0x4ae					; "Initialize"
00e7 8236       | 6  |		Call	0x1,0x36
00e8 c5fd       |    |		Store	0x2,-0x3
00e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ea 0000 0000  |    |		.BLANK	0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e216       |    |		Load	0x1,0x16
00f5 017f       |    |		Execute	Record,Equal
00f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f7 0000       |    |		.XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00d1       |    |		Pop_Control	Pop_Count_1
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 01d8       |    |		Execute	Vector,Element_Type
00fe 0322       | "  |		Declare_Variable	Record
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0101 00db       |    |		Load_Top	At_Offset_3
0102 01dc       |    |		Execute	Vector,Last
0103 e5ff       |    |		Load	0x2,-0x1
0104 01dd       |    |		Execute	Vector,First
0105 0263       | c  |		Execute	Discrete,Above_Bound
0106 7006       |p   |		Jump_Nonzero	0x10d
0107 00da       |    |		Load_Top	At_Offset_2
0108 00d9       |    |		Load_Top	At_Offset_1
0109 e5ff       |    |		Load	0x2,-0x1
010a 01d6       |    |		Execute	Vector,Field_Write
010b 0a01       |    |		Execute_Immediate	Plus,0x1
010c 7ff8       |    |		Jump	0x105
010d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4801       |H   |		Short_Literal	0x1
0114 4800       |H   |		Short_Literal	0x0
0115 e219       |    |		Load	0x1,0x19
0116 035b       | [  |		Declare_Type	Array,Constrained
0117 0337       | 7  |		Declare_Variable	Array
0118 e219       |    |		Load	0x1,0x19
0119 01c6       |    |		Execute	Vector,Convert_To_Formal
011a 00ca       |    |		Action	Exit_Nullary_Function
011b 0000 0000  |    |		.BLANK	0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 01db       |    |		Execute	Vector,Length
0125 0f00       |    |		Execute_Immediate	Equal,0x0
0126 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0127 0000       |    |		.XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 015f       | _  |		.CONST	0x015f								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0013       |    |		.CONST	0x0013								; Number of locals
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c e001       |    |		Load	0x0,0x1
012d 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
012e e001       |    |		Load	0x0,0x1
012f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0130 011e       |    |		Execute	Any,Convert
0131 e20e       |    |		Load	0x1,0xe
0132 02c7       |    |		Declare_Variable	Any
0133 e211       |    |		Load	0x1,0x11
0134 a403       |    |		Store_Unchecked	0x2,0x3
0135 e20e       |    |		Load	0x1,0xe
0136 02c7       |    |		Declare_Variable	Any
0137 e211       |    |		Load	0x1,0x11
0138 a404       |    |		Store_Unchecked	0x2,0x4
0139 e20e       |    |		Load	0x1,0xe
013a 02c7       |    |		Declare_Variable	Any
013b e211       |    |		Load	0x1,0x11
013c a405       |    |		Store_Unchecked	0x2,0x5
013d e5fe       |    |		Load	0x2,-0x2
013e 0227       | '  |		Execute	Access,All_Reference
013f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0140 0007       |    |		Action	Break_Optional
0141 00e3       |    |		Load_Encached	Natural_Cache
0142 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0143 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
0145 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
0147 e003       |    |		Load	0x0,0x3
0148 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0149 00c6       |    |		Action	Check_Subprogram_Elaborated
014a 4809       |H   |		Short_Literal	0x9
014b 4802       |H   |		Short_Literal	0x2
014c 0099       |    |		Action	Reference_Dynamic
014d e009       |    |		Load	0x0,0x9
014e e00a       |    |		Load	0x0,0xa
014f 480d       |H   |		Short_Literal	0xd
0150 0007       |    |		Action	Break_Optional
0151 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
0153 e003       |    |		Load	0x0,0x3
0154 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0155 00c6       |    |		Action	Check_Subprogram_Elaborated
0156 480e       |H   |		Short_Literal	0xe
0157 4802       |H   |		Short_Literal	0x2
0158 0099       |    |		Action	Reference_Dynamic
0159 e00b       |    |		Load	0x0,0xb
015a e00c       |    |		Load	0x0,0xc
015b 4812       |H   |		Short_Literal	0x12
015c 0007       |    |		Action	Break_Optional
015d 029f 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Call
015f			BODY_0128:
015f e402       |    |		Load	0x2,0x2
0160 8238       | 8  |		Call	0x1,0x38
0161 6806       |h   |		Jump_Zero	0x168
0162 e404       |    |		Load	0x2,0x4
0163 e402       |    |		Load	0x2,0x2
0164 e003       |    |		Load	0x0,0x3
0165 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0166 c404       |    |		Store	0x2,0x4
0167 7813       |x   |		Jump	0x17b
0168 e404       |    |		Load	0x2,0x4
0169 0120       |    |		Execute	Any,Is_Value
016a 6803       |h   |		Jump_Zero	0x16e
016b e003       |    |		Load	0x0,0x3
016c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
016d 7801       |x   |		Jump	0x16f
016e e404       |    |		Load	0x2,0x4
016f e5ff       |    |		Load	0x2,-0x1
0170 e001       |    |		Load	0x0,0x1
0171 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0172 480f       |H   |		Short_Literal	0xf
0173 4802       |H   |		Short_Literal	0x2
0174 0099       |    |		Action	Reference_Dynamic
0175 4810       |H   |		Short_Literal	0x10
0176 4802       |H   |		Short_Literal	0x2
0177 0099       |    |		Action	Reference_Dynamic
0178 e003       |    |		Load	0x0,0x3
0179 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
017a c404       |    |		Store	0x2,0x4
017b e404       |    |		Load	0x2,0x4
017c e003       |    |		Load	0x0,0x3
017d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
017e c404       |    |		Store	0x2,0x4
017f 00cf       |    |		Action	Mark_Auxiliary
0180 781f       |x   |		Jump	0x1a0
0181 e403       |    |		Load	0x2,0x3
0182 0120       |    |		Execute	Any,Is_Value
0183 6803       |h   |		Jump_Zero	0x187
0184 e003       |    |		Load	0x0,0x3
0185 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0186 7801       |x   |		Jump	0x188
0187 e403       |    |		Load	0x2,0x3
0188 e404       |    |		Load	0x2,0x4
0189 e003       |    |		Load	0x0,0x3
018a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
018b e00d       |    |		Load	0x0,0xd
018c 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
018d 480a       |H   |		Short_Literal	0xa
018e 4802       |H   |		Short_Literal	0x2
018f 0099       |    |		Action	Reference_Dynamic
0190 480b       |H   |		Short_Literal	0xb
0191 4802       |H   |		Short_Literal	0x2
0192 0099       |    |		Action	Reference_Dynamic
0193 e003       |    |		Load	0x0,0x3
0194 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0195 c403       |    |		Store	0x2,0x3
0196 e405       |    |		Load	0x2,0x5
0197 e403       |    |		Load	0x2,0x3
0198 e003       |    |		Load	0x0,0x3
0199 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
019a c405       |    |		Store	0x2,0x5
019b e404       |    |		Load	0x2,0x4
019c e003       |    |		Load	0x0,0x3
019d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
019e c404       |    |		Store	0x2,0x4
019f 00c9       |    |		Action	Pop_Auxiliary_Loop
01a0 e404       |    |		Load	0x2,0x4
01a1 e003       |    |		Load	0x0,0x3
01a2 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01a3 6fdd       |o   |		Jump_Zero	0x181
01a4 00ce       |    |		Action	Pop_Auxiliary
01a5 8413       |    |		Call	0x2,0x13
01a6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a7 0000       |    |		.XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01de       |    |		.CONST	0x01de								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0013       |    |		.CONST	0x0013								; Number of locals
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1
01ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ad 02c7       |    |		Declare_Variable	Any
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b0 e20e       |    |		Load	0x1,0xe
01b1 02c7       |    |		Declare_Variable	Any
01b2 e211       |    |		Load	0x1,0x11
01b3 a403       |    |		Store_Unchecked	0x2,0x3
01b4 e20e       |    |		Load	0x1,0xe
01b5 02c7       |    |		Declare_Variable	Any
01b6 e211       |    |		Load	0x1,0x11
01b7 a404       |    |		Store_Unchecked	0x2,0x4
01b8 e20e       |    |		Load	0x1,0xe
01b9 02c7       |    |		Declare_Variable	Any
01ba e211       |    |		Load	0x1,0x11
01bb a405       |    |		Store_Unchecked	0x2,0x5
01bc e5fe       |    |		Load	0x2,-0x2
01bd 0227       | '  |		Execute	Access,All_Reference
01be 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01bf 0007       |    |		Action	Break_Optional
01c0 00e3       |    |		Load_Encached	Natural_Cache
01c1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01c2 029f 0413  |    |		Declare_Subprogram	INIT_0410,For_Call
01c4 029f 0423  |   #|		Declare_Subprogram	INIT_0420,For_Call
01c6 e003       |    |		Load	0x0,0x3
01c7 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
01c8 00c6       |    |		Action	Check_Subprogram_Elaborated
01c9 4809       |H   |		Short_Literal	0x9
01ca 4802       |H   |		Short_Literal	0x2
01cb 0099       |    |		Action	Reference_Dynamic
01cc e00e       |    |		Load	0x0,0xe
01cd e00f       |    |		Load	0x0,0xf
01ce 480d       |H   |		Short_Literal	0xd
01cf 0007       |    |		Action	Break_Optional
01d0 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
01d2 e003       |    |		Load	0x0,0x3
01d3 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
01d4 00c6       |    |		Action	Check_Subprogram_Elaborated
01d5 480e       |H   |		Short_Literal	0xe
01d6 4802       |H   |		Short_Literal	0x2
01d7 0099       |    |		Action	Reference_Dynamic
01d8 e010       |    |		Load	0x0,0x10
01d9 e011       |    |		Load	0x0,0x11
01da 4812       |H   |		Short_Literal	0x12
01db 0007       |    |		Action	Break_Optional
01dc 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
01de			BODY_01a8:
01de 00cf       |    |		Action	Mark_Auxiliary
01df e5ff       |    |		Load	0x2,-0x1
01e0 01d9       |    |		Execute	Vector,Reverse_Bounds
01e1 0263       | c  |		Execute	Discrete,Above_Bound
01e2 7053       |pS  |		Jump_Nonzero	0x236
01e3 00d8       |    |		Load_Top	At_Offset_0
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 01d5       |    |		Execute	Vector,Field_Reference
01e6 e001       |    |		Load	0x0,0x1
01e7 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
01e8 c402       |    |		Store	0x2,0x2
01e9 e003       |    |		Load	0x0,0x3
01ea 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01eb c404       |    |		Store	0x2,0x4
01ec e402       |    |		Load	0x2,0x2
01ed 8238       | 8  |		Call	0x1,0x38
01ee 6806       |h   |		Jump_Zero	0x1f5
01ef e404       |    |		Load	0x2,0x4
01f0 e402       |    |		Load	0x2,0x2
01f1 e003       |    |		Load	0x0,0x3
01f2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01f3 c404       |    |		Store	0x2,0x4
01f4 7815       |x   |		Jump	0x20a
01f5 e404       |    |		Load	0x2,0x4
01f6 0120       |    |		Execute	Any,Is_Value
01f7 6803       |h   |		Jump_Zero	0x1fb
01f8 e003       |    |		Load	0x0,0x3
01f9 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
01fa 7801       |x   |		Jump	0x1fc
01fb e404       |    |		Load	0x2,0x4
01fc 00d9       |    |		Load_Top	At_Offset_1
01fd e5ff       |    |		Load	0x2,-0x1
01fe 01d5       |    |		Execute	Vector,Field_Reference
01ff e001       |    |		Load	0x0,0x1
0200 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0201 480f       |H   |		Short_Literal	0xf
0202 4802       |H   |		Short_Literal	0x2
0203 0099       |    |		Action	Reference_Dynamic
0204 4810       |H   |		Short_Literal	0x10
0205 4802       |H   |		Short_Literal	0x2
0206 0099       |    |		Action	Reference_Dynamic
0207 e003       |    |		Load	0x0,0x3
0208 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0209 c404       |    |		Store	0x2,0x4
020a e404       |    |		Load	0x2,0x4
020b e003       |    |		Load	0x0,0x3
020c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
020d c404       |    |		Store	0x2,0x4
020e 00cf       |    |		Action	Mark_Auxiliary
020f 781f       |x   |		Jump	0x22f
0210 e403       |    |		Load	0x2,0x3
0211 0120       |    |		Execute	Any,Is_Value
0212 6803       |h   |		Jump_Zero	0x216
0213 e003       |    |		Load	0x0,0x3
0214 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0215 7801       |x   |		Jump	0x217
0216 e403       |    |		Load	0x2,0x3
0217 e404       |    |		Load	0x2,0x4
0218 e003       |    |		Load	0x0,0x3
0219 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
021a e00d       |    |		Load	0x0,0xd
021b 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
021c 480a       |H   |		Short_Literal	0xa
021d 4802       |H   |		Short_Literal	0x2
021e 0099       |    |		Action	Reference_Dynamic
021f 480b       |H   |		Short_Literal	0xb
0220 4802       |H   |		Short_Literal	0x2
0221 0099       |    |		Action	Reference_Dynamic
0222 e003       |    |		Load	0x0,0x3
0223 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0224 c403       |    |		Store	0x2,0x3
0225 e405       |    |		Load	0x2,0x5
0226 e403       |    |		Load	0x2,0x3
0227 e003       |    |		Load	0x0,0x3
0228 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0229 c405       |    |		Store	0x2,0x5
022a e404       |    |		Load	0x2,0x4
022b e003       |    |		Load	0x0,0x3
022c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
022d c404       |    |		Store	0x2,0x4
022e 00c9       |    |		Action	Pop_Auxiliary_Loop
022f e404       |    |		Load	0x2,0x4
0230 e003       |    |		Load	0x0,0x3
0231 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0232 6fdd       |o   |		Jump_Zero	0x210
0233 00ce       |    |		Action	Pop_Auxiliary
0234 00c8       |    |		Action	Pop_Auxiliary_Range
0235 3fad       |?   |		Loop_Increasing	0x1e3
0236 00ce       |    |		Action	Pop_Auxiliary
0237 8413       |    |		Call	0x2,0x13
0238 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0245 00d8       |    |		Load_Top	At_Offset_0
0246 0120       |    |		Execute	Any,Is_Value
0247 7002       |p   |		Jump_Nonzero	0x24a
0248 00d8       |    |		Load_Top	At_Offset_0
0249 011e       |    |		Execute	Any,Convert
024a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0255 00db       |    |		Load_Top	At_Offset_3
0256 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0257 823b       | ;  |		Call	0x1,0x3b
0258 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0259 0000 0000  |    |		.BLANK	0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0265 823a       | :  |		Call	0x1,0x3a
0266 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0267 0000       |    |		.XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
026d 00d8       |    |		Load_Top	At_Offset_0
026e 0120       |    |		Execute	Any,Is_Value
026f 7002       |p   |		Jump_Nonzero	0x272
0270 00d8       |    |		Load_Top	At_Offset_0
0271 011e       |    |		Execute	Any,Convert
0272 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0273 0000 0000  |    |		.BLANK	0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
027d 0320       |    |		Declare_Variable	Record,Duplicate
027e 00cd       |    |		Action	Spare6_Action
027f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 8237       | 7  |		Call	0x1,0x37
0285 6802       |h   |		Jump_Zero	0x288
0286 4837       |H7  |		Short_Literal	0x37
0287 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0288 4838       |H8  |		Short_Literal	0x38
0289 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028a 0000 0000  |    |		.BLANK	0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 e003       |    |		Load	0x0,0x3
0295 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
0296 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0297 4bfd       |K   |		Short_Literal	0x3fd
0298 026e       | n  |		Execute	Discrete,Modulo
0299 00d8       |    |		Load_Top	At_Offset_0
029a 00e2       |    |		Load_Encached	Integer_Cache
029b 0260       | `  |		Execute	Discrete,In_Type
029c 7001       |p   |		Jump_Nonzero	0x29e
029d 0801       |    |		Execute_Immediate	Raise,0x1
029e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029f 0000       |    |		.XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 4801       |H   |		Short_Literal	0x1
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 e007       |    |		Load	0x0,0x7
02a6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a7 6802       |h   |		Jump_Zero	0x2aa
02a8 e008       |    |		Load	0x0,0x8
02a9 0257       | W  |		Execute	Discrete,Raise
02aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ab 0000 0000  |    |		.BLANK	0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 00ea       |    |		Load_Encached	Null_String_Cache
02b7 e007       |    |		Load	0x0,0x7
02b8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b9 c5fd       |    |		Store	0x2,-0x3
02ba e008       |    |		Load	0x0,0x8
02bb 0257       | W  |		Execute	Discrete,Raise
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00db       |    |		Load_Top	At_Offset_3
02c4 4829       |H)  |		Short_Literal	0x29
02c5 0092 04af  |    |		Action	Push_String_Extended,0x4af					; "Unexpected exception in Interrupts."
02c7 e5ff       |    |		Load	0x2,-0x1
02c8 01cc       |    |		Execute	Vector,Catenate
02c9 0092 04b0  |    |		Action	Push_String_Extended,0x4b0					; " ("
02cb 01cc       |    |		Execute	Vector,Catenate
02cc e007       |    |		Load	0x0,0x7
02cd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ce 01cc       |    |		Execute	Vector,Catenate
02cf 01cb       |    |		Execute	Vector,Append
02d0 e007       |    |		Load	0x0,0x7
02d1 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
02d2 e007       |    |		Load	0x0,0x7
02d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d4 c5fe       |    |		Store	0x2,-0x2
02d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 00da       |    |		Load_Top	At_Offset_2
02dc e012       |    |		Load	0x0,0x12
02dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02de 0f03       |    |		Execute_Immediate	Equal,0x3
02df 6807       |h   |		Jump_Zero	0x2e7
02e0 00da       |    |		Load_Top	At_Offset_2
02e1 e003       |    |		Load	0x0,0x3
02e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e3 e00d       |    |		Load	0x0,0xd
02e4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e5 0f19       |    |		Execute_Immediate	Equal,0x19
02e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e7 4800       |H   |		Short_Literal	0x0
02e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e9 0000 0000  |    |		.BLANK	0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 e00d       |    |		Load	0x0,0xd
02f5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02f6 0f19       |    |		Execute_Immediate	Equal,0x19
02f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 030b       |    |		.CONST	0x030b								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0006       |    |		.CONST	0x0006								; Number of locals
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 01da       |    |		Execute	Vector,Bounds
02fd 00e9       |    |		Load_Encached	String_Cache
02fe 035b       | [  |		Declare_Type	Array,Constrained
02ff 0337       | 7  |		Declare_Variable	Array
0300 00d8       |    |		Load_Top	At_Offset_0
0301 01dd       |    |		Execute	Vector,First
0302 00e3       |    |		Load_Encached	Natural_Cache
0303 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0304 00d8       |    |		Load_Top	At_Offset_0
0305 00e3       |    |		Load_Encached	Natural_Cache
0306 03f1       |    |		Declare_Variable	Discrete,With_Value
0307 00e1       |    |		Load_Encached	Boolean_Cache
0308 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0309 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
030b			BODY_02f8:
030b 00cf       |    |		Action	Mark_Auxiliary
030c e5ff       |    |		Load	0x2,-0x1
030d 01d9       |    |		Execute	Vector,Reverse_Bounds
030e 0263       | c  |		Execute	Discrete,Above_Bound
030f 7021       |p!  |		Jump_Nonzero	0x331
0310 00d8       |    |		Load_Top	At_Offset_0
0311 e5ff       |    |		Load	0x2,-0x1
0312 01d7       |    |		Execute	Vector,Field_Read
0313 00d8       |    |		Load_Top	At_Offset_0
0314 0d20       |    |		Execute_Immediate	Less,0x20
0315 700e       |p   |		Jump_Nonzero	0x324
0316 00d8       |    |		Load_Top	At_Offset_0
0317 0c21       | !  |		Execute_Immediate	Greater_Equal,0x21
0318 7008       |p   |		Jump_Nonzero	0x321
0319 00d1       |    |		Pop_Control	Pop_Count_1
031a e405       |    |		Load	0x2,0x5
031b 6813       |h   |		Jump_Zero	0x32f
031c 4820       |H   |		Short_Literal	0x20
031d 8406       |    |		Call	0x2,0x6
031e 4800       |H   |		Short_Literal	0x0
031f a405       |    |		Store_Unchecked	0x2,0x5
0320 780e       |x   |		Jump	0x32f
0321 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0322 77f7       |w   |		Jump_Nonzero	0x31a
0323 7805       |x   |		Jump	0x329
0324 4809       |H   |		Short_Literal	0x9
0325 480d       |H   |		Short_Literal	0xd
0326 0262       | b  |		Execute	Discrete,In_Range
0327 77f2       |w   |		Jump_Nonzero	0x31a
0328 7800       |x   |		Jump	0x329
0329 00d8       |    |		Load_Top	At_Offset_0
032a e5ff       |    |		Load	0x2,-0x1
032b 01d7       |    |		Execute	Vector,Field_Read
032c 8406       |    |		Call	0x2,0x6
032d 4801       |H   |		Short_Literal	0x1
032e a405       |    |		Store_Unchecked	0x2,0x5
032f 00c8       |    |		Action	Pop_Auxiliary_Range
0330 3fdf       |?   |		Loop_Increasing	0x310
0331 00ce       |    |		Action	Pop_Auxiliary
0332 00db       |    |		Load_Top	At_Offset_3
0333 00e2       |    |		Load_Encached	Integer_Cache
0334 e404       |    |		Load	0x2,0x4
0335 0267       | g  |		Execute	Discrete,Predecessor
0336 e402       |    |		Load	0x2,0x2
0337 01cf       |    |		Execute	Vector,Slice_Read
0338 e013       |    |		Load	0x0,0x13
0339 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
033a 00e9       |    |		Load_Encached	String_Cache
033b 01c6       |    |		Execute	Vector,Convert_To_Formal
033c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 e012       |    |		Load	0x0,0x12
0345 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0346 e00d       |    |		Load	0x0,0xd
0347 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0348 8239       | 9  |		Call	0x1,0x39
0349 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034a 0000 0000  |    |		.BLANK	0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 482e       |H.  |		Short_Literal	0x2e
0354 e5fe       |    |		Load	0x2,-0x2
0355 e001       |    |		Load	0x0,0x1
0356 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0357 01cb       |    |		Execute	Vector,Append
0358 00db       |    |		Load_Top	At_Offset_3
0359 823a       | :  |		Call	0x1,0x3a
035a 01cc       |    |		Execute	Vector,Catenate
035b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
035c 0000 0000  |    |		.BLANK	0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036d       | m  |		.CONST	0x036d								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0003       |    |		.CONST	0x0003								; Number of locals
0363			INIT_0360:
0363 e002       |    |		Load	0x0,0x2
0364 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0365 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0366 0322       | "  |		Declare_Variable	Record
0367 e002       |    |		Load	0x0,0x2
0368 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0369 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
036a 00d9       |    |		Load_Top	At_Offset_1
036b 017d       | }  |		Execute	Record,Structure_Write
036c 00e1       |    |		Load_Encached	Boolean_Cache
036d			BODY_0360:
036d 00e1       |    |		Load_Encached	Boolean_Cache
036e 00da       |    |		Load_Top	At_Offset_2
036f 4803       |H   |		Short_Literal	0x3
0370 e5ff       |    |		Load	0x2,-0x1
0371 e002       |    |		Load	0x0,0x2
0372 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0373 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0374 00d1       |    |		Pop_Control	Pop_Count_1
0375 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0376 00d9       |    |		Load_Top	At_Offset_1
0377 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0380       |    |		.CONST	0x0380								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0003       |    |		.CONST	0x0003								; Number of locals
037b			INIT_0378:
037b 00e1       |    |		Load_Encached	Boolean_Cache
037c e215       |    |		Load	0x1,0x15
037d 0322       | "  |		Declare_Variable	Record
037e 00d8       |    |		Load_Top	At_Offset_0
037f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0380			BODY_0378:
0380 00e1       |    |		Load_Encached	Boolean_Cache
0381 00d9       |    |		Load_Top	At_Offset_1
0382 e5ff       |    |		Load	0x2,-0x1
0383 e5fe       |    |		Load	0x2,-0x2
0384 e233       | 3  |		Load	0x1,0x33
0385 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0386 00d1       |    |		Pop_Control	Pop_Count_1
0387 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0388 00d9       |    |		Load_Top	At_Offset_1
0389 6802       |h   |		Jump_Zero	0x38c
038a 00d8       |    |		Load_Top	At_Offset_0
038b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
038c e216       |    |		Load	0x1,0x16
038d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
038e 0000 0000  |    |		.XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397       |    |		.CONST	0x0397								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0002       |    |		.CONST	0x0002								; Number of locals
0393			INIT_0390:
0393 e215       |    |		Load	0x1,0x15
0394 0322       | "  |		Declare_Variable	Record
0395 00d8       |    |		Load_Top	At_Offset_0
0396 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0397			BODY_0390:
0397 00db       |    |		Load_Top	At_Offset_3
0398 00d9       |    |		Load_Top	At_Offset_1
0399 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
039a 4837       |H7  |		Short_Literal	0x37
039b 00d9       |    |		Load_Top	At_Offset_1
039c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
039d e5fe       |    |		Load	0x2,-0x2
039e 00d9       |    |		Load_Top	At_Offset_1
039f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03a0 00db       |    |		Load_Top	At_Offset_3
03a1 823c       | <  |		Call	0x1,0x3c
03a2 00d9       |    |		Load_Top	At_Offset_1
03a3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03a4 e5fd       |    |		Load	0x2,-0x3
03a5 4800       |H   |		Short_Literal	0x0
03a6 00da       |    |		Load_Top	At_Offset_2
03a7 e5ff       |    |		Load	0x2,-0x1
03a8 e233       | 3  |		Load	0x1,0x33
03a9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03aa c5fd       |    |		Store	0x2,-0x3
03ab 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00e2       |    |		Load_Encached	Integer_Cache
03b4 e407       |    |		Load	0x2,0x7
03b5 0268       | h  |		Execute	Discrete,Successor
03b6 c407       |    |		Store	0x2,0x7
03b7 4800       |H   |		Short_Literal	0x0
03b8 00ca       |    |		Action	Exit_Nullary_Function
03b9 0000 0000  |    |		.BLANK	0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03ca       |    |		.CONST	0x03ca								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 e215       |    |		Load	0x1,0x15
03c4 0322       | "  |		Declare_Variable	Record
03c5 e406       |    |		Load	0x2,0x6
03c6 e7ff       |    |		Load	0x3,-0x1
03c7 823d       | =  |		Call	0x1,0x3d
03c8 00d9       |    |		Load_Top	At_Offset_1
03c9 017d       | }  |		Execute	Record,Structure_Write
03ca			BODY_03c0:
03ca 00d8       |    |		Load_Top	At_Offset_0
03cb 8217       |    |		Call	0x1,0x17
03cc 7002       |p   |		Jump_Nonzero	0x3cf
03cd 8408       |    |		Call	0x2,0x8
03ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03cf 00db       |    |		Load_Top	At_Offset_3
03d0 8237       | 7  |		Call	0x1,0x37
03d1 6807       |h   |		Jump_Zero	0x3d9
03d2 e406       |    |		Load	0x2,0x6
03d3 e402       |    |		Load	0x2,0x2
03d4 e7ff       |    |		Load	0x3,-0x1
03d5 823e       | >  |		Call	0x1,0x3e
03d6 c406       |    |		Store	0x2,0x6
03d7 8408       |    |		Call	0x2,0x8
03d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d9 4801       |H   |		Short_Literal	0x1
03da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03db 0000 0000  |    |		.BLANK	0000[0x5]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 8238       | 8  |		Call	0x1,0x38
03e5 0f00       |    |		Execute_Immediate	Equal,0x0
03e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e7 0000       |    |		.XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f2       |    |		.CONST	0x03f2								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0002       |    |		.CONST	0x0002								; Number of locals
03eb			INIT_03e8:
03eb 4801       |H   |		Short_Literal	0x1
03ec e407       |    |		Load	0x2,0x7
03ed e219       |    |		Load	0x1,0x19
03ee 035b       | [  |		Declare_Type	Array,Constrained
03ef 0337       | 7  |		Declare_Variable	Array
03f0 00d8       |    |		Load_Top	At_Offset_0
03f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f2			BODY_03e8:
03f2 e405       |    |		Load	0x2,0x5
03f3 e003       |    |		Load	0x0,0x3
03f4 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03f5 c405       |    |		Store	0x2,0x5
03f6 00cf       |    |		Action	Mark_Auxiliary
03f7 00d9       |    |		Load_Top	At_Offset_1
03f8 01d9       |    |		Execute	Vector,Reverse_Bounds
03f9 0263       | c  |		Execute	Discrete,Above_Bound
03fa 700f       |p   |		Jump_Nonzero	0x40a
03fb e405       |    |		Load	0x2,0x5
03fc e003       |    |		Load	0x0,0x3
03fd 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03fe e406       |    |		Load	0x2,0x6
03ff e233       | 3  |		Load	0x1,0x33
0400 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0401 00d9       |    |		Load_Top	At_Offset_1
0402 e602       |    |		Load	0x3,0x2
0403 01d6       |    |		Execute	Vector,Field_Write
0404 e405       |    |		Load	0x2,0x5
0405 e003       |    |		Load	0x0,0x3
0406 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0407 c405       |    |		Store	0x2,0x5
0408 00c8       |    |		Action	Pop_Auxiliary_Range
0409 3ff1       |?   |		Loop_Increasing	0x3fb
040a 00ce       |    |		Action	Pop_Auxiliary
040b 00d8       |    |		Load_Top	At_Offset_0
040c e219       |    |		Load	0x1,0x19
040d 01c6       |    |		Execute	Vector,Convert_To_Formal
040e 00ca       |    |		Action	Exit_Nullary_Function
040f 0000       |    |		.XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 00e2       |    |		Load_Encached	Integer_Cache
0414 e407       |    |		Load	0x2,0x7
0415 0268       | h  |		Execute	Discrete,Successor
0416 c407       |    |		Store	0x2,0x7
0417 4800       |H   |		Short_Literal	0x0
0418 00ca       |    |		Action	Exit_Nullary_Function
0419 0000 0000  |    |		.BLANK	0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 042a       | *  |		.CONST	0x042a								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0002       |    |		.CONST	0x0002								; Number of locals
0423			INIT_0420:
0423 e215       |    |		Load	0x1,0x15
0424 0322       | "  |		Declare_Variable	Record
0425 e406       |    |		Load	0x2,0x6
0426 e7ff       |    |		Load	0x3,-0x1
0427 823d       | =  |		Call	0x1,0x3d
0428 00d9       |    |		Load_Top	At_Offset_1
0429 017d       | }  |		Execute	Record,Structure_Write
042a			BODY_0420:
042a 00d8       |    |		Load_Top	At_Offset_0
042b 8217       |    |		Call	0x1,0x17
042c 7002       |p   |		Jump_Nonzero	0x42f
042d 8408       |    |		Call	0x2,0x8
042e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042f 00db       |    |		Load_Top	At_Offset_3
0430 8237       | 7  |		Call	0x1,0x37
0431 6807       |h   |		Jump_Zero	0x439
0432 e406       |    |		Load	0x2,0x6
0433 e402       |    |		Load	0x2,0x2
0434 e7ff       |    |		Load	0x3,-0x1
0435 823e       | >  |		Call	0x1,0x3e
0436 c406       |    |		Store	0x2,0x6
0437 8408       |    |		Call	0x2,0x8
0438 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0439 4801       |H   |		Short_Literal	0x1
043a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
043b 0000 0000  |    |		.BLANK	0000[0x5]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00da       |    |		Load_Top	At_Offset_2
0444 8238       | 8  |		Call	0x1,0x38
0445 0f00       |    |		Execute_Immediate	Equal,0x0
0446 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0447 0000       |    |		.XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0452       | R  |		.CONST	0x0452								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0002       |    |		.CONST	0x0002								; Number of locals
044b			INIT_0448:
044b 4801       |H   |		Short_Literal	0x1
044c e407       |    |		Load	0x2,0x7
044d e219       |    |		Load	0x1,0x19
044e 035b       | [  |		Declare_Type	Array,Constrained
044f 0337       | 7  |		Declare_Variable	Array
0450 00d8       |    |		Load_Top	At_Offset_0
0451 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0452			BODY_0448:
0452 e405       |    |		Load	0x2,0x5
0453 e003       |    |		Load	0x0,0x3
0454 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0455 c405       |    |		Store	0x2,0x5
0456 00cf       |    |		Action	Mark_Auxiliary
0457 00d9       |    |		Load_Top	At_Offset_1
0458 01d9       |    |		Execute	Vector,Reverse_Bounds
0459 0263       | c  |		Execute	Discrete,Above_Bound
045a 700f       |p   |		Jump_Nonzero	0x46a
045b e405       |    |		Load	0x2,0x5
045c e003       |    |		Load	0x0,0x3
045d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
045e e406       |    |		Load	0x2,0x6
045f e233       | 3  |		Load	0x1,0x33
0460 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0461 00d9       |    |		Load_Top	At_Offset_1
0462 e602       |    |		Load	0x3,0x2
0463 01d6       |    |		Execute	Vector,Field_Write
0464 e405       |    |		Load	0x2,0x5
0465 e003       |    |		Load	0x0,0x3
0466 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0467 c405       |    |		Store	0x2,0x5
0468 00c8       |    |		Action	Pop_Auxiliary_Range
0469 3ff1       |?   |		Loop_Increasing	0x45b
046a 00ce       |    |		Action	Pop_Auxiliary
046b 00d8       |    |		Load_Top	At_Offset_0
046c e219       |    |		Load	0x1,0x19
046d 01c6       |    |		Execute	Vector,Convert_To_Formal
046e 00ca       |    |		Action	Exit_Nullary_Function
046f 0000       |    |		.XXX[0x1]
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 e404       |    |		Load	0x2,0x4
0475 e402       |    |		Load	0x2,0x2
0476 01d6       |    |		Execute	Vector,Field_Write
0477 00e2       |    |		Load_Encached	Integer_Cache
0478 e404       |    |		Load	0x2,0x4
0479 0268       | h  |		Execute	Discrete,Successor
047a c404       |    |		Store	0x2,0x4
047b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
047c 0000 0000  |    |		.BLANK	0000[0x4]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 4608       |F   |		Jump_Case	0x9
0484 7808       |x   |		Jump	0x48d								; case 0x0
0485 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0486 7826       |x&  |		Jump	0x4ad								; case 0x2
0487 7825       |x%  |		Jump	0x4ad								; case 0x3
0488 7824       |x$  |		Jump	0x4ad								; case 0x4
0489 7823       |x#  |		Jump	0x4ad								; case 0x5
048a 7822       |x"  |		Jump	0x4ad								; case 0x6
048b 7821       |x!  |		Jump	0x4ad								; case 0x7
048c 7820       |x   |		Jump	0x4ad								; case 0x8
048d 00da       |    |		Load_Top	At_Offset_2
048e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
048f 0125       | %  |		Execute	Any,Set_Constraint
0490 e210       |    |		Load	0x1,0x10
0491 00db       |    |		Load_Top	At_Offset_3
0492 00d9       |    |		Load_Top	At_Offset_1
0493 00d9       |    |		Load_Top	At_Offset_1
0494 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0495 0119       |    |		Execute	Any,Check_In_Formal_Type
0496 00d1       |    |		Pop_Control	Pop_Count_1
0497 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0498 4838       |H8  |		Short_Literal	0x38
0499 00db       |    |		Load_Top	At_Offset_3
049a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
049b 00da       |    |		Load_Top	At_Offset_2
049c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
049d 0125       | %  |		Execute	Any,Set_Constraint
049e e001       |    |		Load	0x0,0x1
049f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
04a0 00db       |    |		Load_Top	At_Offset_3
04a1 00d9       |    |		Load_Top	At_Offset_1
04a2 00d9       |    |		Load_Top	At_Offset_1
04a3 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
04a4 0119       |    |		Execute	Any,Check_In_Formal_Type
04a5 00d1       |    |		Pop_Control	Pop_Count_1
04a6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04a7 e002       |    |		Load	0x0,0x2
04a8 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
04a9 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
04aa 00db       |    |		Load_Top	At_Offset_3
04ab 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04ad 0869       | i  |		Execute_Immediate	Raise,0x69
04ae ; --------------------------------------------------------------------------------------
04ae ; STRING TABLE
04ae ; --------------------------------------------------------------------------------------
04ae 0008       |    |		.STRTAB	0x0008->0x04b2							; "Initialize"
04af 0010       |    |		.STRTAB	0x0010->0x04b7							; "Unexpected exception in Interrupts."
04b0 0031       | 1  |		.STRTAB	0x0031->0x04c8							; " ("
04b1 0031       | 1  |		.STREND 0x0031->0x04c9
04b2 496e 6974  |Init|		.STRTAB_STRINGS
04ca 0000 0000  |    |		.BLANK	0000[0x6]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug Table
04d0 ; --------------------------------------------------------------------------------------
04d0 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xc595,0x0000,0x0001,0x0000
04d6 dcc0 dcc9  |    |		.XXX[0x12a]
04d8 0d19 1510  |    |
04da d0e0 d909  |    |
04dc 0cc1 04c1  |    |
04de 18d8 c0cc  |    |
04e0 e115 08cd  |    |
04e2 1108 dd05  |    |
04e4 0d04 e4e1  |    |
04e6 0d18 dce5  |    |
04e8 10d4 c4e4  |    |
04ea dcdd 0ccc  |    |
04ec d8c0 ccd4  |    |
04ee d918 e104  |    |
04f0 c8d0 c0d0  |    |
04f2 d0c8 d0c0  |    |
04f4 ccd4 e0cc  |    |
04f6 ccc0 c8cc  |    |
04f8 c918 d8c9  |    |
04fa 1110 c8d4  |    |
04fc c119 0cdd  |    |
04fe 1514 c4e0  |    |
0500 d108 d8cd  |    |
0502 18c5 14cc  |    |
0504 dccd 08e0  |    |
0506 c4cc c0dc  |    |
0508 c911 0ce4  |    |
050a c919 0cd1  |    |
050c 18c4 d508  |    |
050e c8c5 190c  |    |
0510 e4d0 c511  |    |
0512 0cd5 0d14  |    |
0514 c519 10c1  |    |
0516 1115 18c4  |    |
0518 d4dc dd18  |    |
051a e4d4 d4c0  |    |
051c dd18 c8e0  |    |
051e c518 c515  |    |
0520 1514 c4d8  |    |
0522 dce0 c4d4  |    |
0524 d0c1 1505  |    |
0526 18e4 c0d0  |    |
0528 cccc dd15  |    |
052a 08c0 c50d  |    |
052c 0d09 0cd9  |    |
052e 1904 d515  |    |
0530 0cd5 08cd  |    |
0532 0cc1 14cc  |    |
0534 c8d9 14c1  |    |
0536 08cc e0c4  |    |
0538 d8d5 1119  |    |
053a 0cd4 c8d8  |    |
053c e0e1 0515  |    |
053e 0d05 1919  |    |
0540 0d15 04c4  |    |
0542 d518 c504  |    |
0544 c8c8 d110  |    |
0546 c0c1 0d09  |    |
0548 14c5 0cc9  |    |
054a 110c d4c4  |    |
054c c515 0511  |    |
054e 18c0 d919  |    |
0550 090c e4d1  |    |
0552 04c4 c0c5  |    |
0554 0ce1 0cd9  |    |
0556 18dc dcc0  |    |
0558 c8e0 d4c1  |    |
055a 10c4 d0d4  |    |
055c cd04 c50d  |    |
055e 0d04 d0c8  |    |
0560 c8e0 e0d0  |    |
0562 e4c0 d0c8  |    |
0564 c4d1 110d  |    |
0566 04c5 18d8  |    |
0568 e0d5 0514  |    |
056a ccc4 c110  |    |
056c ccd8 cd15  |    |
056e 14cd 0911  |    |
0570 1110 c8d0  |    |
0572 c509 14d4  |    |
0574 c4cd 1509  |    |
0576 0914 e109  |    |
0578 1919 18d4  |    |
057a c114 d118  |    |
057c dd11 10c9  |    |
057e 14d4 d515  |    |
0580 14d0 ccc8  |    |
0582 d514 c8e0  |    |
0584 e111 10e4  |    |
0586 d8c5 1109  |    |
0588 1910 c0d9  |    |
058a 10d4 e4c9  |    |
058c 08e1 14c4  |    |
058e ccc0 c4dc  |    |
0590 c505 10c0  |    |
0592 c504 d0e1  |    |
0594 0d14 d4c0  |    |
0596 e104 d510  |    |
0598 c0dd 1919  |    |
059a 08c4 d911  |    |
059c 10cc dce4  |    |
059e dce1 04d5  |    |
05a0 0cc5 04d1  |    |
05a2 1904 ccc0  |    |
05a4 d4e4 c4d4  |    |
05a6 c4d8 e4c5  |    |
05a8 08c4 c0d9  |    |
05aa 08e5 04dd  |    |
05ac 1914 dd14  |    |
05ae cccc c914  |    |
05b0 d8c4 d4dd  |    |
05b2 14e4 c90c  |    |
05b4 c4e5 08cd  |    |
05b6 150c e0dd  |    |
05b8 18d4 c4c8  |    |
05ba c4dc dccc  |    |
05bc d0d9 10e0  |    |
05be e4d4 c8d0  |    |
05c0 d515 1504  |    |
05c2 e4e0 d8dd  |    |
05c4 10c5 0cd8  |    |
05c6 d118 e50c  |    |
05c8 c518 c4e1  |    |
05ca 1919 1109  |    |
05cc 0d09 0919  |    |
05ce 0510 d519  |    |
05d0 14d0 e118  |    |
05d2 c8e0 d4d8  |    |
05d4 e0c8 c4c9  |    |
05d6 08d1 04c8  |    |
05d8 d111 10cc  |    |
05da ccc1 090c  |    |
05dc c8d5 0919  |    |
05de 1908 dd0c  |    |
05e0 d8c0 c4c8  |    |
05e2 c8e5 08d0  |    |
05e4 c109 0d10  |    |
05e6 d0d8 c4cc  |    |
05e8 cd14 d4e0  |    |
05ea e4d0 cd18  |    |
05ec d0e1 04d1  |    |
05ee 0514 e0e1  |    |
05f0 0d14 d915  |    |
05f2 0ccc d914  |    |
05f4 d4c1 050d  |    |
05f6 1104 e4c5  |    |
05f8 1509 0d0c  |    |
05fa c111 04cc  |    |
05fc d8c0 e0cd  |    |
05fe 14d8 e0e1  |    |