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

⟦247ce7a34⟧

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

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 02f0       |    |		.CONST	0x02f0								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007c       | |  |		.CONST	0x007c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6086       |`   |		Indirect_Literal	Discrete,0x94,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 0129       | )  |		Execute	Any,Make_Visible
0010 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0012 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0014 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0016 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0018 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
001a 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001c 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
001e 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0020 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0022 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0024 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0026 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0028 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
002a 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
002c 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
002e 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0030 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0032 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0034 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0036 00e3       |    |		Load_Encached	Natural_Cache
0037 00e9       |    |		Load_Encached	String_Cache
0038 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
003a 4800       |H   |		Short_Literal	0x0
003b 4801       |H   |		Short_Literal	0x1
003c 4800       |H   |		Short_Literal	0x0
003d 4800       |H   |		Short_Literal	0x0
003e 4801       |H   |		Short_Literal	0x1
003f 4801       |H   |		Short_Literal	0x1
0040 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0041 00d8       |    |		Load_Top	At_Offset_0
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 4818       |H   |		Short_Literal	0x18
0044 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0045 00bf       |    |		Action	Accept_Activation
0046 e002       |    |		Load	0x0,0x2
0047 e003       |    |		Load	0x0,0x3
0048 00e2       |    |		Load_Encached	Integer_Cache
0049 e004       |    |		Load	0x0,0x4
004a 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
004b 0387       |    |		Declare_Variable	Package
004c 00d8       |    |		Load_Top	At_Offset_0
004d 020f       |    |		Execute	Module,Activate
004e e005       |    |		Load	0x0,0x5
004f e006       |    |		Load	0x0,0x6
0050 00e6       |    |		Load_Encached	Float_Cache
0051 e004       |    |		Load	0x0,0x4
0052 1b51       | Q  |		Execute	Package,Field_Read,Field_Number 0x51
0053 0387       |    |		Declare_Variable	Package
0054 00d8       |    |		Load_Top	At_Offset_0
0055 020f       |    |		Execute	Module,Activate
0056 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007b 00c7       |    |		Action	Elaborate_Subprogram
007c			BODY_0008:
007c 00bc       |    |		Action	Signal_Activated
007d 00bb       |    |		Action	Signal_Completion
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0085       |    |		.CONST	0x0085								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0002       |    |		.CONST	0x0002								; Number of locals
0083			INIT_0080:
0083 e222       | "  |		Load	0x1,0x22
0084 0007       |    |		Action	Break_Optional
0085			BODY_0080:
0085 4801       |H   |		Short_Literal	0x1
0086 e221       | !  |		Load	0x1,0x21
0087 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0088 e222       | "  |		Load	0x1,0x22
0089 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
008a 0039       | 9  |		Store_Top	Access,At_Offset_1
008b 00db       |    |		Load_Top	At_Offset_3
008c 4801       |H   |		Short_Literal	0x1
008d 00da       |    |		Load_Top	At_Offset_2
008e 0227       | '  |		Execute	Access,All_Reference
008f 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0090 01d6       |    |		Execute	Vector,Field_Write
0091 00d8       |    |		Load_Top	At_Offset_0
0092 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0093 0000       |    |		.XXX[0x1]
0094 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009d       |    |		.CONST	0x009d								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b e222       | "  |		Load	0x1,0x22
009c 0007       |    |		Action	Break_Optional
009d			BODY_0098:
009d 00db       |    |		Load_Top	At_Offset_3
009e 01db       |    |		Execute	Vector,Length
009f e221       | !  |		Load	0x1,0x21
00a0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a1 e222       | "  |		Load	0x1,0x22
00a2 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00a3 0039       | 9  |		Store_Top	Access,At_Offset_1
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 4801       |H   |		Short_Literal	0x1
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 0227       | '  |		Execute	Access,All_Reference
00a8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00a9 00db       |    |		Load_Top	At_Offset_3
00aa 0229       | )  |		Execute	Access,All_Read
00ab 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00ac 01ce       |    |		Execute	Vector,Slice_Write
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5       |    |		.CONST	0x00b5								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0002       |    |		.CONST	0x0002								; Number of locals
00b3			INIT_00b0:
00b3 e222       | "  |		Load	0x1,0x22
00b4 0007       |    |		Action	Break_Optional
00b5			BODY_00b0:
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 00e0       |    |		Load_Encached	Standard_Cache
00b7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00b8 820f       |    |		Call	0x1,0xf
00b9 0039       | 9  |		Store_Top	Access,At_Offset_1
00ba 00d8       |    |		Load_Top	At_Offset_0
00bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bc 0000 0000  |    |		.BLANK	0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4801       |H   |		Short_Literal	0x1
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 0227       | '  |		Execute	Access,All_Reference
00c6 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00c7 01d7       |    |		Execute	Vector,Field_Read
00c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 4801       |H   |		Short_Literal	0x1
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 0227       | '  |		Execute	Access,All_Reference
00d6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 0227       | '  |		Execute	Access,All_Reference
00d9 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00da 01cf       |    |		Execute	Vector,Slice_Read
00db 0335       | 5  |		Declare_Variable	Array,Duplicate
00dc 00cd       |    |		Action	Spare6_Action
00dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00de 0000 0000  |    |		.XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5       |    |		.CONST	0x00e5								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0003       |    |		.CONST	0x0003								; Number of locals
00e3			INIT_00e0:
00e3 00e2       |    |		Load_Encached	Integer_Cache
00e4 00e4       |    |		Load_Encached	Positive_Cache
00e5			BODY_00e0:
00e5 00e4       |    |		Load_Encached	Positive_Cache
00e6 e223       | #  |		Load	0x1,0x23
00e7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 8212       |    |		Call	0x1,0x12
00ea e223       | #  |		Load	0x1,0x23
00eb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ec 005b       | [  |		Store_Top	Discrete,At_Offset_3
00ed 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ee 00d9       |    |		Load_Top	At_Offset_1
00ef 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5       |    |		.CONST	0x00f5								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0003       |    |		.CONST	0x0003								; Number of locals
00f3			INIT_00f0:
00f3 00e6       |    |		Load_Encached	Float_Cache
00f4 00e4       |    |		Load_Encached	Positive_Cache
00f5			BODY_00f0:
00f5 00e4       |    |		Load_Encached	Positive_Cache
00f6 e224       | $  |		Load	0x1,0x24
00f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f8 e5ff       |    |		Load	0x2,-0x1
00f9 8212       |    |		Call	0x1,0x12
00fa e224       | $  |		Load	0x1,0x24
00fb 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00fc 004b       | K  |		Store_Top	Float,At_Offset_3
00fd 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00fe 00d9       |    |		Load_Top	At_Offset_1
00ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 0227       | '  |		Execute	Access,All_Reference
0105 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0106 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0107 0000       |    |		.XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 8212       |    |		Call	0x1,0x12
010d e5fe       |    |		Load	0x2,-0x2
010e 8212       |    |		Call	0x1,0x12
010f 01c1       |    |		Execute	Vector,Less
0110 6802       |h   |		Jump_Zero	0x113
0111 4801       |H   |		Short_Literal	0x1
0112 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0113 4800       |H   |		Short_Literal	0x0
0114 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d       |    |		.CONST	0x011d								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b e222       | "  |		Load	0x1,0x22
011c 0007       |    |		Action	Break_Optional
011d			BODY_0118:
011d 00db       |    |		Load_Top	At_Offset_3
011e 0227       | '  |		Execute	Access,All_Reference
011f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0120 e5fe       |    |		Load	0x2,-0x2
0121 0227       | '  |		Execute	Access,All_Reference
0122 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0123 0273       | s  |		Execute	Discrete,Plus
0124 e221       | !  |		Load	0x1,0x21
0125 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0126 e222       | "  |		Load	0x1,0x22
0127 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0128 0039       | 9  |		Store_Top	Access,At_Offset_1
0129 4801       |H   |		Short_Literal	0x1
012a e5ff       |    |		Load	0x2,-0x1
012b 0227       | '  |		Execute	Access,All_Reference
012c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012d e5ff       |    |		Load	0x2,-0x1
012e 0227       | '  |		Execute	Access,All_Reference
012f 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0130 01cf       |    |		Execute	Vector,Slice_Read
0131 4801       |H   |		Short_Literal	0x1
0132 e5fe       |    |		Load	0x2,-0x2
0133 0227       | '  |		Execute	Access,All_Reference
0134 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0135 e5fe       |    |		Load	0x2,-0x2
0136 0227       | '  |		Execute	Access,All_Reference
0137 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0138 01cf       |    |		Execute	Vector,Slice_Read
0139 01cc       |    |		Execute	Vector,Catenate
013a 4801       |H   |		Short_Literal	0x1
013b 00da       |    |		Load_Top	At_Offset_2
013c 0227       | '  |		Execute	Access,All_Reference
013d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013e 00db       |    |		Load_Top	At_Offset_3
013f 0229       | )  |		Execute	Access,All_Read
0140 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0141 01ce       |    |		Execute	Vector,Slice_Write
0142 00d8       |    |		Load_Top	At_Offset_0
0143 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150       | P  |		.CONST	0x0150								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0003       |    |		.CONST	0x0003								; Number of locals
014b			INIT_0148:
014b e222       | "  |		Load	0x1,0x22
014c 0007       |    |		Action	Break_Optional
014d e5fd       |    |		Load	0x2,-0x3
014e 00e3       |    |		Load_Encached	Natural_Cache
014f 03f1       |    |		Declare_Variable	Discrete,With_Value
0150			BODY_0148:
0150 e5fe       |    |		Load	0x2,-0x2
0151 0d01       |    |		Execute_Immediate	Less,0x1
0152 e5fe       |    |		Load	0x2,-0x2
0153 e5ff       |    |		Load	0x2,-0x1
0154 0227       | '  |		Execute	Access,All_Reference
0155 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0156 027d       | }  |		Execute	Discrete,Greater
0157 0278       | x  |		Execute	Discrete,Or
0158 6801       |h   |		Jump_Zero	0x15a
0159 08e0       |    |		Execute_Immediate	Raise,0xe0
015a 00d8       |    |		Load_Top	At_Offset_0
015b 7007       |p   |		Jump_Nonzero	0x163
015c e5ff       |    |		Load	0x2,-0x1
015d 0227       | '  |		Execute	Access,All_Reference
015e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015f e5fe       |    |		Load	0x2,-0x2
0160 0272       | r  |		Execute	Discrete,Minus
0161 0a01       |    |		Execute_Immediate	Plus,0x1
0162 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0163 e5ff       |    |		Load	0x2,-0x1
0164 0227       | '  |		Execute	Access,All_Reference
0165 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0166 e5fe       |    |		Load	0x2,-0x2
0167 00da       |    |		Load_Top	At_Offset_2
0168 0273       | s  |		Execute	Discrete,Plus
0169 0aff       |    |		Execute_Immediate	Plus,-0x1
016a 027c       | |  |		Execute	Discrete,Less
016b 6802       |h   |		Jump_Zero	0x16e
016c e20d       |    |		Load	0x1,0xd
016d 0257       | W  |		Execute	Discrete,Raise
016e 00d8       |    |		Load_Top	At_Offset_0
016f e221       | !  |		Load	0x1,0x21
0170 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0171 e222       | "  |		Load	0x1,0x22
0172 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0173 003a       | :  |		Store_Top	Access,At_Offset_2
0174 e5fe       |    |		Load	0x2,-0x2
0175 00d8       |    |		Load_Top	At_Offset_0
0176 00da       |    |		Load_Top	At_Offset_2
0177 0273       | s  |		Execute	Discrete,Plus
0178 0aff       |    |		Execute_Immediate	Plus,-0x1
0179 00d8       |    |		Load_Top	At_Offset_0
017a 00e2       |    |		Load_Encached	Integer_Cache
017b 0260       | `  |		Execute	Discrete,In_Type
017c 7001       |p   |		Jump_Nonzero	0x17e
017d 0801       |    |		Execute_Immediate	Raise,0x1
017e e5ff       |    |		Load	0x2,-0x1
017f 0227       | '  |		Execute	Access,All_Reference
0180 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0181 01cf       |    |		Execute	Vector,Slice_Read
0182 4801       |H   |		Short_Literal	0x1
0183 00da       |    |		Load_Top	At_Offset_2
0184 e402       |    |		Load	0x2,0x2
0185 0229       | )  |		Execute	Access,All_Read
0186 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0187 01ce       |    |		Execute	Vector,Slice_Write
0188 00d9       |    |		Load_Top	At_Offset_1
0189 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
018a 0000 0000  |    |		.BLANK	0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198       |    |		.CONST	0x0198								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0003       |    |		.CONST	0x0003								; Number of locals
0193			INIT_0190:
0193 00e2       |    |		Load_Encached	Integer_Cache
0194 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0195 4fff       |O   |		Short_Literal	-0x1
0196 00e2       |    |		Load_Encached	Integer_Cache
0197 03f1       |    |		Declare_Variable	Discrete,With_Value
0198			BODY_0190:
0198 e5ff       |    |		Load	0x2,-0x1
0199 0227       | '  |		Execute	Access,All_Reference
019a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
019b e5fe       |    |		Load	0x2,-0x2
019c 0227       | '  |		Execute	Access,All_Reference
019d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
019e e5fd       |    |		Load	0x2,-0x3
019f 0273       | s  |		Execute	Discrete,Plus
01a0 0aff       |    |		Execute_Immediate	Plus,-0x1
01a1 027c       | |  |		Execute	Discrete,Less
01a2 e5fd       |    |		Load	0x2,-0x3
01a3 0d01       |    |		Execute_Immediate	Less,0x1
01a4 0278       | x  |		Execute	Discrete,Or
01a5 6802       |h   |		Jump_Zero	0x1a8
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01a8 00cf       |    |		Action	Mark_Auxiliary
01a9 e5ff       |    |		Load	0x2,-0x1
01aa 0227       | '  |		Execute	Access,All_Reference
01ab 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ac e5fe       |    |		Load	0x2,-0x2
01ad 0227       | '  |		Execute	Access,All_Reference
01ae 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01af 0272       | r  |		Execute	Discrete,Minus
01b0 0a01       |    |		Execute_Immediate	Plus,0x1
01b1 00d8       |    |		Load_Top	At_Offset_0
01b2 00e2       |    |		Load_Encached	Integer_Cache
01b3 0260       | `  |		Execute	Discrete,In_Type
01b4 7001       |p   |		Jump_Nonzero	0x1b6
01b5 0801       |    |		Execute_Immediate	Raise,0x1
01b6 e5fd       |    |		Load	0x2,-0x3
01b7 0263       | c  |		Execute	Discrete,Above_Bound
01b8 701e       |p   |		Jump_Nonzero	0x1d7
01b9 00d8       |    |		Load_Top	At_Offset_0
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb e5fe       |    |		Load	0x2,-0x2
01bc 0227       | '  |		Execute	Access,All_Reference
01bd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01be 0273       | s  |		Execute	Discrete,Plus
01bf 0aff       |    |		Execute_Immediate	Plus,-0x1
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 00e2       |    |		Load_Encached	Integer_Cache
01c2 0260       | `  |		Execute	Discrete,In_Type
01c3 7001       |p   |		Jump_Nonzero	0x1c5
01c4 0801       |    |		Execute_Immediate	Raise,0x1
01c5 e5ff       |    |		Load	0x2,-0x1
01c6 0227       | '  |		Execute	Access,All_Reference
01c7 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01c8 01cf       |    |		Execute	Vector,Slice_Read
01c9 4801       |H   |		Short_Literal	0x1
01ca e5fe       |    |		Load	0x2,-0x2
01cb 0227       | '  |		Execute	Access,All_Reference
01cc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01cd e5fe       |    |		Load	0x2,-0x2
01ce 0227       | '  |		Execute	Access,All_Reference
01cf 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01d0 01cf       |    |		Execute	Vector,Slice_Read
01d1 01df       |    |		Execute	Vector,Equal
01d2 6802       |h   |		Jump_Zero	0x1d5
01d3 00d8       |    |		Load_Top	At_Offset_0
01d4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01d5 00c8       |    |		Action	Pop_Auxiliary_Range
01d6 3fe2       |?   |		Loop_Increasing	0x1b9
01d7 00ce       |    |		Action	Pop_Auxiliary
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8       |    |		.CONST	0x01e8								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0003       |    |		.CONST	0x0003								; Number of locals
01e3			INIT_01e0:
01e3 00e2       |    |		Load_Encached	Integer_Cache
01e4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01e5 4fff       |O   |		Short_Literal	-0x1
01e6 00e2       |    |		Load_Encached	Integer_Cache
01e7 03f1       |    |		Declare_Variable	Discrete,With_Value
01e8			BODY_01e0:
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 0227       | '  |		Execute	Access,All_Reference
01ea 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01eb e5fe       |    |		Load	0x2,-0x2
01ec 0227       | '  |		Execute	Access,All_Reference
01ed 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ee e5fd       |    |		Load	0x2,-0x3
01ef 0273       | s  |		Execute	Discrete,Plus
01f0 0aff       |    |		Execute_Immediate	Plus,-0x1
01f1 027c       | |  |		Execute	Discrete,Less
01f2 e5fd       |    |		Load	0x2,-0x3
01f3 0d01       |    |		Execute_Immediate	Less,0x1
01f4 0278       | x  |		Execute	Discrete,Or
01f5 6802       |h   |		Jump_Zero	0x1f8
01f6 00d8       |    |		Load_Top	At_Offset_0
01f7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01f8 00cf       |    |		Action	Mark_Auxiliary
01f9 4801       |H   |		Short_Literal	0x1
01fa e5fd       |    |		Load	0x2,-0x3
01fb 0264       | d  |		Execute	Discrete,Below_Bound
01fc 701e       |p   |		Jump_Nonzero	0x21b
01fd 00d8       |    |		Load_Top	At_Offset_0
01fe 00d9       |    |		Load_Top	At_Offset_1
01ff e5fe       |    |		Load	0x2,-0x2
0200 0227       | '  |		Execute	Access,All_Reference
0201 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0202 0273       | s  |		Execute	Discrete,Plus
0203 0aff       |    |		Execute_Immediate	Plus,-0x1
0204 00d8       |    |		Load_Top	At_Offset_0
0205 00e2       |    |		Load_Encached	Integer_Cache
0206 0260       | `  |		Execute	Discrete,In_Type
0207 7001       |p   |		Jump_Nonzero	0x209
0208 0801       |    |		Execute_Immediate	Raise,0x1
0209 e5ff       |    |		Load	0x2,-0x1
020a 0227       | '  |		Execute	Access,All_Reference
020b 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
020c 01cf       |    |		Execute	Vector,Slice_Read
020d 4801       |H   |		Short_Literal	0x1
020e e5fe       |    |		Load	0x2,-0x2
020f 0227       | '  |		Execute	Access,All_Reference
0210 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0211 e5fe       |    |		Load	0x2,-0x2
0212 0227       | '  |		Execute	Access,All_Reference
0213 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0214 01cf       |    |		Execute	Vector,Slice_Read
0215 01df       |    |		Execute	Vector,Equal
0216 6802       |h   |		Jump_Zero	0x219
0217 00d8       |    |		Load_Top	At_Offset_0
0218 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0219 00c8       |    |		Action	Pop_Auxiliary_Range
021a 37e2       |7   |		Loop_Decreasing	0x1fd
021b 00ce       |    |		Action	Pop_Auxiliary
021c 00d9       |    |		Load_Top	At_Offset_1
021d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
021e 0000 0000  |    |		.XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0229       | )  |		.CONST	0x0229								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0002       |    |		.CONST	0x0002								; Number of locals
0223			INIT_0220:
0223 4801       |H   |		Short_Literal	0x1
0224 00db       |    |		Load_Top	At_Offset_3
0225 8215       |    |		Call	0x1,0x15
0226 00e9       |    |		Load_Encached	String_Cache
0227 035b       | [  |		Declare_Type	Array,Constrained
0228 0337       | 7  |		Declare_Variable	Array
0229			BODY_0220:
0229 00db       |    |		Load_Top	At_Offset_3
022a 8212       |    |		Call	0x1,0x12
022b 00d9       |    |		Load_Top	At_Offset_1
022c 01d4       |    |		Execute	Vector,Structure_Write
022d 00cf       |    |		Action	Mark_Auxiliary
022e e5ff       |    |		Load	0x2,-0x1
022f 8215       |    |		Call	0x1,0x15
0230 4801       |H   |		Short_Literal	0x1
0231 0263       | c  |		Execute	Discrete,Above_Bound
0232 7018       |p   |		Jump_Nonzero	0x24b
0233 00d8       |    |		Load_Top	At_Offset_0
0234 e402       |    |		Load	0x2,0x2
0235 01d7       |    |		Execute	Vector,Field_Read
0236 0c61       | a  |		Execute_Immediate	Greater_Equal,0x61
0237 00d9       |    |		Load_Top	At_Offset_1
0238 e402       |    |		Load	0x2,0x2
0239 01d7       |    |		Execute	Vector,Field_Read
023a 0d7b       | {  |		Execute_Immediate	Less,0x7b
023b 0279       | y  |		Execute	Discrete,And
023c 680c       |h   |		Jump_Zero	0x249
023d 00d8       |    |		Load_Top	At_Offset_0
023e e402       |    |		Load	0x2,0x2
023f 01d7       |    |		Execute	Vector,Field_Read
0240 0ae0       |    |		Execute_Immediate	Plus,-0x20
0241 00d8       |    |		Load_Top	At_Offset_0
0242 00e8       |    |		Load_Encached	Character_Cache
0243 0260       | `  |		Execute	Discrete,In_Type
0244 7001       |p   |		Jump_Nonzero	0x246
0245 0801       |    |		Execute_Immediate	Raise,0x1
0246 00d9       |    |		Load_Top	At_Offset_1
0247 e402       |    |		Load	0x2,0x2
0248 01d6       |    |		Execute	Vector,Field_Write
0249 00c8       |    |		Action	Pop_Auxiliary_Range
024a 3fe8       |?   |		Loop_Increasing	0x233
024b 00ce       |    |		Action	Pop_Auxiliary
024c 00d8       |    |		Load_Top	At_Offset_0
024d 00e9       |    |		Load_Encached	String_Cache
024e 01c6       |    |		Execute	Vector,Convert_To_Formal
024f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259       | Y  |		.CONST	0x0259								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 4801       |H   |		Short_Literal	0x1
0254 48ff       |H   |		Short_Literal	0xff
0255 00e9       |    |		Load_Encached	String_Cache
0256 035b       | [  |		Declare_Type	Array,Constrained
0257 0337       | 7  |		Declare_Variable	Array
0258 00e3       |    |		Load_Encached	Natural_Cache
0259			BODY_0250:
0259 00e3       |    |		Load_Encached	Natural_Cache
025a 00da       |    |		Load_Top	At_Offset_2
025b e5ff       |    |		Load	0x2,-0x1
025c e004       |    |		Load	0x0,0x4
025d 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
025e 00d1       |    |		Pop_Control	Pop_Count_1
025f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0260 00d8       |    |		Load_Top	At_Offset_0
0261 4801       |H   |		Short_Literal	0x1
0262 00db       |    |		Load_Top	At_Offset_3
0263 820f       |    |		Call	0x1,0xf
0264 8218       |    |		Call	0x1,0x18
0265 a5fe       |    |		Store_Unchecked	0x2,-0x2
0266 00d8       |    |		Load_Top	At_Offset_0
0267 a5fd       |    |		Store_Unchecked	0x2,-0x3
0268 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0279       | y  |		.CONST	0x0279								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 4801       |H   |		Short_Literal	0x1
0274 48ff       |H   |		Short_Literal	0xff
0275 00e9       |    |		Load_Encached	String_Cache
0276 035b       | [  |		Declare_Type	Array,Constrained
0277 0337       | 7  |		Declare_Variable	Array
0278 00e3       |    |		Load_Encached	Natural_Cache
0279			BODY_0270:
0279 00e3       |    |		Load_Encached	Natural_Cache
027a 00da       |    |		Load_Top	At_Offset_2
027b e004       |    |		Load	0x0,0x4
027c 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
027d 00d1       |    |		Pop_Control	Pop_Count_1
027e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
027f 00d8       |    |		Load_Top	At_Offset_0
0280 4801       |H   |		Short_Literal	0x1
0281 00db       |    |		Load_Top	At_Offset_3
0282 820f       |    |		Call	0x1,0xf
0283 8218       |    |		Call	0x1,0x18
0284 a5ff       |    |		Store_Unchecked	0x2,-0x1
0285 00d8       |    |		Load_Top	At_Offset_0
0286 a5fe       |    |		Store_Unchecked	0x2,-0x2
0287 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00db       |    |		Load_Top	At_Offset_3
028c 8212       |    |		Call	0x1,0x12
028d 00db       |    |		Load_Top	At_Offset_3
028e e004       |    |		Load	0x0,0x4
028f 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0290 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0291 0000 0000  |    |		.BLANK	0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 8212       |    |		Call	0x1,0x12
029d e004       |    |		Load	0x0,0x4
029e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
029f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5fd       |    |		Load	0x2,-0x3
02a4 00ea       |    |		Load_Encached	Null_String_Cache
02a5 e5fe       |    |		Load	0x2,-0x2
02a6 8212       |    |		Call	0x1,0x12
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 e004       |    |		Load	0x0,0x4
02a9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02aa c5fd       |    |		Store	0x2,-0x3
02ab 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ac 0000 0000  |    |		.BLANK	0000[0x4]
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 4609       |F   |		Jump_Case	0xa
02b4 7809       |x   |		Jump	0x2be								; case 0x0
02b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02b6 7813       |x   |		Jump	0x2ca								; case 0x2
02b7 7816       |x   |		Jump	0x2ce								; case 0x3
02b8 7832       |x2  |		Jump	0x2eb								; case 0x4
02b9 7831       |x1  |		Jump	0x2eb								; case 0x5
02ba 7830       |x0  |		Jump	0x2eb								; case 0x6
02bb 7818       |x   |		Jump	0x2d4								; case 0x7
02bc 7820       |x   |		Jump	0x2dd								; case 0x8
02bd 7829       |x)  |		Jump	0x2e7								; case 0x9
02be 00da       |    |		Load_Top	At_Offset_2
02bf 016c       | l  |		Execute	Variant_Record,Is_Constrained
02c0 7008       |p   |		Jump_Nonzero	0x2c9
02c1 00cf       |    |		Action	Mark_Auxiliary
02c2 4800       |H   |		Short_Literal	0x0
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c7 c5ff       |    |		Store	0x2,-0x1
02c8 00ce       |    |		Action	Pop_Auxiliary
02c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02ca 4801       |H   |		Short_Literal	0x1
02cb 4802       |H   |		Short_Literal	0x2
02cc 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
02cd 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ce e5fd       |    |		Load	0x2,-0x3
02cf 00db       |    |		Load_Top	At_Offset_3
02d0 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02d1 e5fe       |    |		Load	0x2,-0x2
02d2 0306       |    |		Complete_Type	Variant_Record,By_Renaming
02d3 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
02d4 00db       |    |		Load_Top	At_Offset_3
02d5 4801       |H   |		Short_Literal	0x1
02d6 e5fe       |    |		Load	0x2,-0x2
02d7 00e9       |    |		Load_Encached	String_Cache
02d8 035b       | [  |		Declare_Type	Array,Constrained
02d9 4801       |H   |		Short_Literal	0x1
02da e5ff       |    |		Load	0x2,-0x1
02db 031b       |    |		Declare_Type	Variant_Record,Constrained
02dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02dd 00db       |    |		Load_Top	At_Offset_3
02de 00db       |    |		Load_Top	At_Offset_3
02df 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02e0 4801       |H   |		Short_Literal	0x1
02e1 e5fe       |    |		Load	0x2,-0x2
02e2 00e9       |    |		Load_Encached	String_Cache
02e3 0334       | 4  |		Declare_Variable	Array,With_Constraint
02e4 2d02       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
02e5 016a       | j  |		QQ_execute	Variant_Record,XXX
02e6 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e7 4800       |H   |		Short_Literal	0x0
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02ea 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02eb 0869       | i  |		Execute_Immediate	Raise,0x69
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug Table
02f0 ; --------------------------------------------------------------------------------------
02f0 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x29df,0x0000,0x0001,0x0016
02f6 000b 034e  |   N|		.DBG4T	0x000b,0x034e,0x8000,0x8000
02fa 0046 037c  | F ||		.DBG4T	0x0046,0x037c,0x8000,0x0000
02fe 0083 0393  |    |		.DBG4T	0x0083,0x0393,0x0002,0x0000
0302 009b 0399  |    |		.DBG4T	0x009b,0x0399,0x0002,0x0000
0306 00b3 039f  |    |		.DBG4T	0x00b3,0x039f,0x0002,0x0000
030a 00c3 03a4  |    |		.DBG4T	0x00c3,0x03a4,0x0002,0x0000
030e 00d3 03a7  |    |		.DBG4T	0x00d3,0x03a7,0x0002,0x0000
0312 00e3 03aa  |    |		.DBG4T	0x00e3,0x03aa,0x0002,0x0000
0316 00f3 03b0  |    |		.DBG4T	0x00f3,0x03b0,0x0002,0x0000
031a 0103 03b6  |    |		.DBG4T	0x0103,0x03b6,0x0002,0x0000
031e 010b 03b9  |    |		.DBG4T	0x010b,0x03b9,0x0002,0x0000
0322 011b 03be  |    |		.DBG4T	0x011b,0x03be,0x0002,0x0000
0326 014b 03c4  | K  |		.DBG4T	0x014b,0x03c4,0x0002,0x0000
032a 0193 03d1  |    |		.DBG4T	0x0193,0x03d1,0x0002,0x0000
032e 01e3 03db  |    |		.DBG4T	0x01e3,0x03db,0x0002,0x0000
0332 0223 03e5  | #  |		.DBG4T	0x0223,0x03e5,0x0002,0x0000
0336 0253 03ed  | S  |		.DBG4T	0x0253,0x03ed,0x0001,0x0000
033a 0273 03f4  | s  |		.DBG4T	0x0273,0x03f4,0x0001,0x0000
033e 028b 03fb  |    |		.DBG4T	0x028b,0x03fb,0x0001,0x0000
0342 029b 03fe  |    |		.DBG4T	0x029b,0x03fe,0x0001,0x0000
0346 02a3 0401  |    |		.DBG4T	0x02a3,0x0401,0x0001,0x0000
034a 02b3 0000  |    |		.DBG4T	0x02b3,0x0000,0x0005,0x0000
034e ; --------------------------------------------------------------------------------------
034e ; Debug chain
034e ; --------------------------------------------------------------------------------------
034e 0016 0000  |    |		.DBGLEN	0x0016,0x0000
0350 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0041
0366 0002 0003  |    |		.XXX[0x16]
0368 0004 0005  |    |
036a 0006 0007  |    |
036c 0008 0009  |    |
036e 000a 000b  |    |
0370 000c 000d  |    |
0372 000e 000f  |    |
0374 0010 0011  |    |
0376 0012 0013  |    |
0378 0014 0015  |    |
037a 0016 0017  |    |
037c ; --------------------------------------------------------------------------------------
037c ; Debug chain
037c ; --------------------------------------------------------------------------------------
037c 0015 0000  |    |		.DBGLEN	0x0015,0x0000
037e 0046 004e  | F N|		.DBGLNO	0x0046,0x004e,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a
0393 ; --------------------------------------------------------------------------------------
0393 ; Debug chain
0393 ; --------------------------------------------------------------------------------------
0393 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0395 0083 0085  |    |		.DBGLNO	0x0083,0x0085,0x008b,0x0091
0399 ; --------------------------------------------------------------------------------------
0399 ; Debug chain
0399 ; --------------------------------------------------------------------------------------
0399 0001 0003  |    |		.DBGLEN	0x0001,0x0003
039b 009b 009d  |    |		.DBGLNO	0x009b,0x009d,0x00a4,0x00ad
039f ; --------------------------------------------------------------------------------------
039f ; Debug chain
039f ; --------------------------------------------------------------------------------------
039f 0001 0002  |    |		.DBGLEN	0x0001,0x0002
03a1 00b3 00b5  |    |		.DBGLNO	0x00b3,0x00b5,0x00ba
03a4 ; --------------------------------------------------------------------------------------
03a4 ; Debug chain
03a4 ; --------------------------------------------------------------------------------------
03a4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03a6 00c3       |    |		.DBGLNO	0x00c3
03a7 ; --------------------------------------------------------------------------------------
03a7 ; Debug chain
03a7 ; --------------------------------------------------------------------------------------
03a7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03a9 00d3       |    |		.DBGLNO	0x00d3
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug chain
03aa ; --------------------------------------------------------------------------------------
03aa 0002 0002  |    |		.DBGLEN	0x0002,0x0002
03ac 00e3 00e4  |    |		.DBGLNO	0x00e3,0x00e4,0x00e5,0x00ee
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug chain
03b0 ; --------------------------------------------------------------------------------------
03b0 0002 0002  |    |		.DBGLEN	0x0002,0x0002
03b2 00f3 00f4  |    |		.DBGLNO	0x00f3,0x00f4,0x00f5,0x00fe
03b6 ; --------------------------------------------------------------------------------------
03b6 ; Debug chain
03b6 ; --------------------------------------------------------------------------------------
03b6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b8 0103       |    |		.DBGLNO	0x0103
03b9 ; --------------------------------------------------------------------------------------
03b9 ; Debug chain
03b9 ; --------------------------------------------------------------------------------------
03b9 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03bb 010b 0111  |    |		.DBGLNO	0x010b,0x0111,0x0113
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0001 0003  |    |		.DBGLEN	0x0001,0x0003
03c0 011b 011d  |    |		.DBGLNO	0x011b,0x011d,0x0129,0x0142
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug chain
03c4 ; --------------------------------------------------------------------------------------
03c4 0002 0009  |    |		.DBGLEN	0x0002,0x0009
03c6 014b 014d  | K M|		.DBGLNO	0x014b,0x014d,0x0150,0x0159,0x015a,0x015c,0x0163,0x016c,0x016e,0x0174,0x0188
03d1 ; --------------------------------------------------------------------------------------
03d1 ; Debug chain
03d1 ; --------------------------------------------------------------------------------------
03d1 0002 0006  |    |		.DBGLEN	0x0002,0x0006
03d3 0193 0195  |    |		.DBGLNO	0x0193,0x0195,0x0198,0x01a6,0x01a9,0x01b9,0x01d3,0x01d8
03db ; --------------------------------------------------------------------------------------
03db ; Debug chain
03db ; --------------------------------------------------------------------------------------
03db 0002 0006  |    |		.DBGLEN	0x0002,0x0006
03dd 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e8,0x01f6,0x01f9,0x01fd,0x0217,0x021c
03e5 ; --------------------------------------------------------------------------------------
03e5 ; Debug chain
03e5 ; --------------------------------------------------------------------------------------
03e5 0001 0005  |    |		.DBGLEN	0x0001,0x0005
03e7 0223 0229  | # )|		.DBGLNO	0x0223,0x0229,0x022e,0x0233,0x023d,0x024c
03ed ; --------------------------------------------------------------------------------------
03ed ; Debug chain
03ed ; --------------------------------------------------------------------------------------
03ed 0002 0003  |    |		.DBGLEN	0x0002,0x0003
03ef 0253 0258  | S X|		.DBGLNO	0x0253,0x0258,0x0259,0x0260,0x0266
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug chain
03f4 ; --------------------------------------------------------------------------------------
03f4 0002 0003  |    |		.DBGLEN	0x0002,0x0003
03f6 0273 0278  | s x|		.DBGLNO	0x0273,0x0278,0x0279,0x027f,0x0285
03fb ; --------------------------------------------------------------------------------------
03fb ; Debug chain
03fb ; --------------------------------------------------------------------------------------
03fb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03fd 028b       |    |		.DBGLNO	0x028b
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug chain
03fe ; --------------------------------------------------------------------------------------
03fe 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0400 029b       |    |		.DBGLNO	0x029b
0401 ; --------------------------------------------------------------------------------------
0401 ; Debug chain
0401 ; --------------------------------------------------------------------------------------
0401 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0403 02a3       |    |		.DBGLNO	0x02a3
0404 0000 0000  |    |		.BLANK	0000[0x1fc]