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

⟦8415e11de⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0320       |    |		.CONST	0x0320								; 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 008a       |    |		.CONST	0x008a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002b       | +  |		.CONST	0x002b								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0013 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0015 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0017 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0019 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
001b 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
001d 4804       |H   |		Short_Literal	0x4
001e 032b       | +  |		Declare_Type	Record,Incomplete,Visible
001f 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0021 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0023 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0025 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0027 e001       |    |		Load	0x0,0x1
0028 0129       | )  |		Execute	Any,Make_Visible
0029 e002       |    |		Load	0x0,0x2
002a 0129       | )  |		Execute	Any,Make_Visible
002b 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
002d 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
002f 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0031 4800       |H   |		Short_Literal	0x0
0032 e20f       |    |		Load	0x1,0xf
0033 0aff       |    |		Execute_Immediate	Plus,-0x1
0034 00e3       |    |		Load_Encached	Natural_Cache
0035 03f8       |    |		Declare_Type	Discrete,Constrained
0036 00e3       |    |		Load_Encached	Natural_Cache
0037 4800       |H   |		Short_Literal	0x0
0038 4801       |H   |		Short_Literal	0x1
0039 4801       |H   |		Short_Literal	0x1
003a 4804       |H   |		Short_Literal	0x4
003b 0318       |    |		Declare_Type	Variant_Record,Incomplete
003c 029f 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Call
003e 00d9       |    |		Load_Top	At_Offset_1
003f 012a       | *  |		Execute	Any,Change_Utility
0040 0007       |    |		Action	Break_Optional
0041 00d8       |    |		Load_Top	At_Offset_0
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 4818       |H   |		Short_Literal	0x18
0044 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0045 4800       |H   |		Short_Literal	0x0
0046 00db       |    |		Load_Top	At_Offset_3
0047 0269       | i  |		Execute	Discrete,Last
0048 00da       |    |		Load_Top	At_Offset_2
0049 02a0       |    |		Declare_Subprogram	Null_Subprogram
004a 4801       |H   |		Short_Literal	0x1
004b 035d       | ]  |		Declare_Type	Array,Defined
004c 00d8       |    |		Load_Top	At_Offset_0
004d 00e2       |    |		Load_Encached	Integer_Cache
004e 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
0050 4802       |H   |		Short_Literal	0x2
0051 032d       | -  |		Declare_Type	Record,Defined
0052 00d8       |    |		Load_Top	At_Offset_0
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 e212       |    |		Load	0x1,0x12
0055 03c7       |    |		Complete_Type	Access,By_Defining
0056 e212       |    |		Load	0x1,0x12
0057 e225       | %  |		Load	0x1,0x25
0058 e227       | '  |		Load	0x1,0x27
0059 00e1       |    |		Load_Encached	Boolean_Cache
005a 02a0       |    |		Declare_Subprogram	Null_Subprogram
005b e21b       |    |		Load	0x1,0x1b
005c 0326       | &  |		Complete_Type	Record,By_Defining
005d 00da       |    |		Load_Top	At_Offset_2
005e e210       |    |		Load	0x1,0x10
005f 00e9       |    |		Load_Encached	String_Cache
0060 029f 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Call
0062 4800       |H   |		Short_Literal	0x0
0063 4801       |H   |		Short_Literal	0x1
0064 4802       |H   |		Short_Literal	0x2
0065 e226       | &  |		Load	0x1,0x26
0066 0307       |    |		Complete_Type	Variant_Record,By_Defining
0067 00bf       |    |		Action	Accept_Activation
0068 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call
006a 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call
006c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0089 00c7       |    |		Action	Elaborate_Subprogram
008a			BODY_0008:
008a 00bc       |    |		Action	Signal_Activated
008b 00bb       |    |		Action	Signal_Completion
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009d       |    |		.CONST	0x009d								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 e227       | '  |		Load	0x1,0x27
0094 e5fe       |    |		Load	0x2,-0x2
0095 00d8       |    |		Load_Top	At_Offset_0
0096 822b       | +  |		Call	0x1,0x2b
0097 e5ff       |    |		Load	0x2,-0x1
0098 0227       | '  |		Execute	Access,All_Reference
0099 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
009a 01d7       |    |		Execute	Vector,Field_Read
009b 822a       | *  |		Call	0x1,0x2a
009c 0039       | 9  |		Store_Top	Access,At_Offset_1
009d			BODY_0090:
009d 00d8       |    |		Load_Top	At_Offset_0
009e 680b       |h   |		Jump_Zero	0xaa
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 0227       | '  |		Execute	Access,All_Reference
00a1 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 0120       |    |		Execute	Any,Is_Value
00a4 7002       |p   |		Jump_Nonzero	0xa7
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 011e       |    |		Execute	Any,Convert
00a7 e210       |    |		Load	0x1,0x10
00a8 0119       |    |		Execute	Any,Check_In_Formal_Type
00a9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00aa e220       |    |		Load	0x1,0x20
00ab 0257       | W  |		Execute	Discrete,Raise
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00bd       |    |		.CONST	0x00bd								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0002       |    |		.CONST	0x0002								; Number of locals
00b3			INIT_00b0:
00b3 e227       | '  |		Load	0x1,0x27
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 822b       | +  |		Call	0x1,0x2b
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 0227       | '  |		Execute	Access,All_Reference
00b9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00ba 01d7       |    |		Execute	Vector,Field_Read
00bb 822a       | *  |		Call	0x1,0x2a
00bc 0039       | 9  |		Store_Top	Access,At_Offset_1
00bd			BODY_00b0:
00bd 00d8       |    |		Load_Top	At_Offset_0
00be 6807       |h   |		Jump_Zero	0xc6
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 0227       | '  |		Execute	Access,All_Reference
00c1 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00c2 c5fd       |    |		Store	0x2,-0x3
00c3 4801       |H   |		Short_Literal	0x1
00c4 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c6 4800       |H   |		Short_Literal	0x0
00c7 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e3       |    |		.CONST	0x00e3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0005       |    |		.CONST	0x0005								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 822b       | +  |		Call	0x1,0x2b
00d5 e5fc       |    |		Load	0x2,-0x4
00d6 0227       | '  |		Execute	Access,All_Reference
00d7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00d8 01d5       |    |		Execute	Vector,Field_Reference
00d9 0007       |    |		Action	Break_Optional
00da 00d8       |    |		Load_Top	At_Offset_0
00db 0007       |    |		Action	Break_Optional
00dc e227       | '  |		Load	0x1,0x27
00dd e5ff       |    |		Load	0x2,-0x1
00de 00da       |    |		Load_Top	At_Offset_2
00df 822a       | *  |		Call	0x1,0x2a
00e0 0039       | 9  |		Store_Top	Access,At_Offset_1
00e1 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
00e3			BODY_00d0:
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 7013       |p   |		Jump_Nonzero	0xf8
00e5 e5ff       |    |		Load	0x2,-0x1
00e6 01db       |    |		Execute	Vector,Length
00e7 e226       | &  |		Load	0x1,0x26
00e8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00e9 e227       | '  |		Load	0x1,0x27
00ea 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec 0227       | '  |		Execute	Access,All_Reference
00ed 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ee a402       |    |		Store_Unchecked	0x2,0x2
00ef 8405       |    |		Call	0x2,0x5
00f0 e5fc       |    |		Load	0x2,-0x4
00f1 0227       | '  |		Execute	Access,All_Reference
00f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f3 0a01       |    |		Execute_Immediate	Plus,0x1
00f4 e5fc       |    |		Load	0x2,-0x4
00f5 0227       | '  |		Execute	Access,All_Reference
00f6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00f8 e5fd       |    |		Load	0x2,-0x3
00f9 6802       |h   |		Jump_Zero	0xfc
00fa e221       | !  |		Load	0x1,0x21
00fb 0257       | W  |		Execute	Discrete,Raise
00fc e5fe       |    |		Load	0x2,-0x2
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 0227       | '  |		Execute	Access,All_Reference
00ff 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0100 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0117       |    |		.CONST	0x0117								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0004       |    |		.CONST	0x0004								; Number of locals
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 822b       | +  |		Call	0x1,0x2b
010d e225       | %  |		Load	0x1,0x25
010e 03f1       |    |		Declare_Variable	Discrete,With_Value
010f e227       | '  |		Load	0x1,0x27
0110 00d9       |    |		Load_Top	At_Offset_1
0111 e5fe       |    |		Load	0x2,-0x2
0112 0227       | '  |		Execute	Access,All_Reference
0113 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0114 01d7       |    |		Execute	Vector,Field_Read
0115 0039       | 9  |		Store_Top	Access,At_Offset_1
0116 e227       | '  |		Load	0x1,0x27
0117			BODY_0108:
0117 00cf       |    |		Action	Mark_Auxiliary
0118 7826       |x&  |		Jump	0x13f
0119 00da       |    |		Load_Top	At_Offset_2
011a 0227       | '  |		Execute	Access,All_Reference
011b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
011c e5ff       |    |		Load	0x2,-0x1
011d 01df       |    |		Execute	Vector,Equal
011e 6819       |h   |		Jump_Zero	0x138
011f 00d9       |    |		Load_Top	At_Offset_1
0120 6807       |h   |		Jump_Zero	0x128
0121 00da       |    |		Load_Top	At_Offset_2
0122 0227       | '  |		Execute	Access,All_Reference
0123 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0124 00da       |    |		Load_Top	At_Offset_2
0125 0227       | '  |		Execute	Access,All_Reference
0126 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0127 7808       |x   |		Jump	0x130
0128 00da       |    |		Load_Top	At_Offset_2
0129 0227       | '  |		Execute	Access,All_Reference
012a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
012b e402       |    |		Load	0x2,0x2
012c e5fe       |    |		Load	0x2,-0x2
012d 0227       | '  |		Execute	Access,All_Reference
012e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
012f 01d6       |    |		Execute	Vector,Field_Write
0130 e5fe       |    |		Load	0x2,-0x2
0131 0227       | '  |		Execute	Access,All_Reference
0132 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0133 0aff       |    |		Execute_Immediate	Plus,-0x1
0134 e5fe       |    |		Load	0x2,-0x2
0135 0227       | '  |		Execute	Access,All_Reference
0136 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0137 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0138 00da       |    |		Load_Top	At_Offset_2
0139 003a       | :  |		Store_Top	Access,At_Offset_2
013a 00da       |    |		Load_Top	At_Offset_2
013b 0227       | '  |		Execute	Access,All_Reference
013c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013d 003b       | ;  |		Store_Top	Access,At_Offset_3
013e 00c9       |    |		Action	Pop_Auxiliary_Loop
013f 00da       |    |		Load_Top	At_Offset_2
0140 77d8       |w   |		Jump_Nonzero	0x119
0141 00ce       |    |		Action	Pop_Auxiliary
0142 e220       |    |		Load	0x1,0x20
0143 0257       | W  |		Execute	Discrete,Raise
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b e212       |    |		Load	0x1,0x12
014c 03bc       |    |		Declare_Variable	Access,By_Allocation
014d 00d8       |    |		Load_Top	At_Offset_0
014e 0227       | '  |		Execute	Access,All_Reference
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150 003b       | ;  |		Store_Top	Access,At_Offset_3
0151 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0152 0000 0000  |    |		.BLANK	0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b e21b       |    |		Load	0x1,0x1b
015c 0322       | "  |		Declare_Variable	Record
015d			BODY_0158:
015d 00cf       |    |		Action	Mark_Auxiliary
015e e225       | %  |		Load	0x1,0x25
015f 0269       | i  |		Execute	Discrete,Last
0160 4800       |H   |		Short_Literal	0x0
0161 0263       | c  |		Execute	Discrete,Above_Bound
0162 700a       |p   |		Jump_Nonzero	0x16d
0163 00d8       |    |		Load_Top	At_Offset_0
0164 e5ff       |    |		Load	0x2,-0x1
0165 0227       | '  |		Execute	Access,All_Reference
0166 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0167 01d7       |    |		Execute	Vector,Field_Read
0168 6802       |h   |		Jump_Zero	0x16b
0169 4800       |H   |		Short_Literal	0x0
016a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016b 00c8       |    |		Action	Pop_Auxiliary_Range
016c 3ff6       |?   |		Loop_Increasing	0x163
016d 00ce       |    |		Action	Pop_Auxiliary
016e 4801       |H   |		Short_Literal	0x1
016f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00cf       |    |		Action	Mark_Auxiliary
0174 e225       | %  |		Load	0x1,0x25
0175 0269       | i  |		Execute	Discrete,Last
0176 4800       |H   |		Short_Literal	0x0
0177 0263       | c  |		Execute	Discrete,Above_Bound
0178 7008       |p   |		Jump_Nonzero	0x181
0179 e227       | '  |		Load	0x1,0x27
017a 00d9       |    |		Load_Top	At_Offset_1
017b e5ff       |    |		Load	0x2,-0x1
017c 0227       | '  |		Execute	Access,All_Reference
017d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
017e 01d6       |    |		Execute	Vector,Field_Write
017f 00c8       |    |		Action	Pop_Auxiliary_Range
0180 3ff8       |?   |		Loop_Increasing	0x179
0181 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018c       |    |		.CONST	0x018c								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e227       | '  |		Load	0x1,0x27
018c			BODY_0188:
018c 00cf       |    |		Action	Mark_Auxiliary
018d e225       | %  |		Load	0x1,0x25
018e 0269       | i  |		Execute	Discrete,Last
018f 4800       |H   |		Short_Literal	0x0
0190 0263       | c  |		Execute	Discrete,Above_Bound
0191 7049       |pI  |		Jump_Nonzero	0x1db
0192 00d8       |    |		Load_Top	At_Offset_0
0193 e5ff       |    |		Load	0x2,-0x1
0194 0227       | '  |		Execute	Access,All_Reference
0195 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0196 01d7       |    |		Execute	Vector,Field_Read
0197 a402       |    |		Store_Unchecked	0x2,0x2
0198 e227       | '  |		Load	0x1,0x27
0199 00d9       |    |		Load_Top	At_Offset_1
019a e5fe       |    |		Load	0x2,-0x2
019b 0227       | '  |		Execute	Access,All_Reference
019c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
019d 01d6       |    |		Execute	Vector,Field_Write
019e 00cf       |    |		Action	Mark_Auxiliary
019f 7836       |x6  |		Jump	0x1d6
01a0 e402       |    |		Load	0x2,0x2
01a1 0227       | '  |		Execute	Access,All_Reference
01a2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01a3 01db       |    |		Execute	Vector,Length
01a4 e226       | &  |		Load	0x1,0x26
01a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a6 e402       |    |		Load	0x2,0x2
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01a9 00d9       |    |		Load_Top	At_Offset_1
01aa 00d8       |    |		Load_Top	At_Offset_0
01ab 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 01da       |    |		Execute	Vector,Bounds
01ae 00da       |    |		Load_Top	At_Offset_2
01af 01da       |    |		Execute	Vector,Bounds
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 027f       |    |		Execute	Discrete,Equal
01b2 7001       |p   |		Jump_Nonzero	0x1b4
01b3 08e0       |    |		Execute_Immediate	Raise,0xe0
01b4 00cd       |    |		Action	Spare6_Action
01b5 027f       |    |		Execute	Discrete,Equal
01b6 7001       |p   |		Jump_Nonzero	0x1b8
01b7 08e0       |    |		Execute_Immediate	Raise,0xe0
01b8 00d2       |    |		Pop_Control	Pop_Count_2
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
01bb e402       |    |		Load	0x2,0x2
01bc 0227       | '  |		Execute	Access,All_Reference
01bd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01be e226       | &  |		Load	0x1,0x26
01bf 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
01c0 0119       |    |		Execute	Any,Check_In_Formal_Type
01c1 00d9       |    |		Load_Top	At_Offset_1
01c2 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 e5fe       |    |		Load	0x2,-0x2
01c5 0227       | '  |		Execute	Access,All_Reference
01c6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01c7 01d7       |    |		Execute	Vector,Field_Read
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ca e227       | '  |		Load	0x1,0x27
01cb 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01cc 00da       |    |		Load_Top	At_Offset_2
01cd e5fe       |    |		Load	0x2,-0x2
01ce 0227       | '  |		Execute	Access,All_Reference
01cf 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d0 01d6       |    |		Execute	Vector,Field_Write
01d1 e402       |    |		Load	0x2,0x2
01d2 0227       | '  |		Execute	Access,All_Reference
01d3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d4 a402       |    |		Store_Unchecked	0x2,0x2
01d5 00c9       |    |		Action	Pop_Auxiliary_Loop
01d6 e402       |    |		Load	0x2,0x2
01d7 77c8       |w   |		Jump_Nonzero	0x1a0
01d8 00ce       |    |		Action	Pop_Auxiliary
01d9 00c8       |    |		Action	Pop_Auxiliary_Range
01da 3fb7       |?   |		Loop_Increasing	0x192
01db 00ce       |    |		Action	Pop_Auxiliary
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 0227       | '  |		Execute	Access,All_Reference
01de 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01df e5fe       |    |		Load	0x2,-0x2
01e0 0227       | '  |		Execute	Access,All_Reference
01e1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e3 0000 0000  |    |		.BLANK	0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed       |    |		.CONST	0x01ed								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0002       |    |		.CONST	0x0002								; Number of locals
01eb			INIT_01e8:
01eb e21b       |    |		Load	0x1,0x1b
01ec 0322       | "  |		Declare_Variable	Record
01ed			BODY_01e8:
01ed 00cf       |    |		Action	Mark_Auxiliary
01ee e225       | %  |		Load	0x1,0x25
01ef 0269       | i  |		Execute	Discrete,Last
01f0 4800       |H   |		Short_Literal	0x0
01f1 0263       | c  |		Execute	Discrete,Above_Bound
01f2 7019       |p   |		Jump_Nonzero	0x20c
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 e5ff       |    |		Load	0x2,-0x1
01f5 0227       | '  |		Execute	Access,All_Reference
01f6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01f7 01d7       |    |		Execute	Vector,Field_Read
01f8 e402       |    |		Load	0x2,0x2
01f9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01fa 00db       |    |		Load_Top	At_Offset_3
01fb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01fc 680d       |h   |		Jump_Zero	0x20a
01fd 4800       |H   |		Short_Literal	0x0
01fe e402       |    |		Load	0x2,0x2
01ff 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0200 00d8       |    |		Load_Top	At_Offset_0
0201 e402       |    |		Load	0x2,0x2
0202 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0203 e5ff       |    |		Load	0x2,-0x1
0204 e402       |    |		Load	0x2,0x2
0205 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0206 00db       |    |		Load_Top	At_Offset_3
0207 e5fe       |    |		Load	0x2,-0x2
0208 017d       | }  |		Execute	Record,Structure_Write
0209 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020a 00c8       |    |		Action	Pop_Auxiliary_Range
020b 3fe7       |?   |		Loop_Increasing	0x1f3
020c 00ce       |    |		Action	Pop_Auxiliary
020d 4801       |H   |		Short_Literal	0x1
020e 00d9       |    |		Load_Top	At_Offset_1
020f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0210 00d8       |    |		Load_Top	At_Offset_0
0211 e5fe       |    |		Load	0x2,-0x2
0212 017d       | }  |		Execute	Record,Structure_Write
0213 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0214 0000 0000  |    |		.BLANK	0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
021d 0227       | '  |		Execute	Access,All_Reference
021e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
021f 00db       |    |		Load_Top	At_Offset_3
0220 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0221 00cf       |    |		Action	Mark_Auxiliary
0222 7819       |x   |		Jump	0x23c
0223 00db       |    |		Load_Top	At_Offset_3
0224 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0225 e225       | %  |		Load	0x1,0x25
0226 0269       | i  |		Execute	Discrete,Last
0227 027f       |    |		Execute	Discrete,Equal
0228 6804       |h   |		Jump_Zero	0x22d
0229 4801       |H   |		Short_Literal	0x1
022a e5ff       |    |		Load	0x2,-0x1
022b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
022c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022d 00db       |    |		Load_Top	At_Offset_3
022e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022f 0a01       |    |		Execute_Immediate	Plus,0x1
0230 e5ff       |    |		Load	0x2,-0x1
0231 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0232 00db       |    |		Load_Top	At_Offset_3
0233 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0234 e5ff       |    |		Load	0x2,-0x1
0235 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0236 0227       | '  |		Execute	Access,All_Reference
0237 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0238 01d7       |    |		Execute	Vector,Field_Read
0239 e5ff       |    |		Load	0x2,-0x1
023a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
023b 00c9       |    |		Action	Pop_Auxiliary_Loop
023c 00db       |    |		Load_Top	At_Offset_3
023d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023e 6fe4       |o   |		Jump_Zero	0x223
023f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0245 0227       | '  |		Execute	Access,All_Reference
0246 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0247 0335       | 5  |		Declare_Variable	Array,Duplicate
0248 00cd       |    |		Action	Spare6_Action
0249 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024a 0000 0000  |    |		.BLANK	0000[0x6]
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 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0255 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0256 0000 0000  |    |		.XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e212       |    |		Load	0x1,0x12
025c 00ca       |    |		Action	Exit_Nullary_Function
025d 0000 0000  |    |		.XXX[0x3]
025f 0000       |    |
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 022d       | -  |		Execute	Access,Is_Null
0265 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0266 0000 0000  |    |		.XXX[0x2]
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 0227       | '  |		Execute	Access,All_Reference
026d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026e 00d8       |    |		Load_Top	At_Offset_0
026f 00e3       |    |		Load_Encached	Natural_Cache
0270 0260       | `  |		Execute	Discrete,In_Type
0271 7001       |p   |		Jump_Nonzero	0x273
0272 0801       |    |		Execute_Immediate	Raise,0x1
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0280       |    |		.CONST	0x0280								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e227       | '  |		Load	0x1,0x27
027c 00db       |    |		Load_Top	At_Offset_3
027d 0039       | 9  |		Store_Top	Access,At_Offset_1
027e 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
0280			BODY_0278:
0280 e211       |    |		Load	0x1,0x11
0281 6802       |h   |		Jump_Zero	0x284
0282 8403       |    |		Call	0x2,0x3
0283 7812       |x   |		Jump	0x296
0284 00cf       |    |		Action	Mark_Auxiliary
0285 780d       |x   |		Jump	0x293
0286 00da       |    |		Load_Top	At_Offset_2
0287 0227       | '  |		Execute	Access,All_Reference
0288 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0289 e5fe       |    |		Load	0x2,-0x2
028a 01df       |    |		Execute	Vector,Equal
028b 6802       |h   |		Jump_Zero	0x28e
028c 00da       |    |		Load_Top	At_Offset_2
028d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028e 00da       |    |		Load_Top	At_Offset_2
028f 0227       | '  |		Execute	Access,All_Reference
0290 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0291 003b       | ;  |		Store_Top	Access,At_Offset_3
0292 00c9       |    |		Action	Pop_Auxiliary_Loop
0293 00da       |    |		Load_Top	At_Offset_2
0294 77f1       |w   |		Jump_Nonzero	0x286
0295 00ce       |    |		Action	Pop_Auxiliary
0296 e227       | '  |		Load	0x1,0x27
0297 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e003       |    |		Load	0x0,0x3
029d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
029e e20f       |    |		Load	0x1,0xf
029f 026e       | n  |		Execute	Discrete,Modulo
02a0 00d8       |    |		Load_Top	At_Offset_0
02a1 e225       | %  |		Load	0x1,0x25
02a2 0260       | `  |		Execute	Discrete,In_Type
02a3 7001       |p   |		Jump_Nonzero	0x2a5
02a4 0801       |    |		Execute_Immediate	Raise,0x1
02a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a6 0000 0000  |    |		.XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ae       |    |		.CONST	0x02ae								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0002       |    |		.CONST	0x0002								; Number of locals
02ab			INIT_02a8:
02ab e402       |    |		Load	0x2,0x2
02ac 0227       | '  |		Execute	Access,All_Reference
02ad 0007       |    |		Action	Break_Optional
02ae			BODY_02a8:
02ae e403       |    |		Load	0x2,0x3
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b1 e5fe       |    |		Load	0x2,-0x2
02b2 00d9       |    |		Load_Top	At_Offset_1
02b3 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02b4 e5ff       |    |		Load	0x2,-0x1
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
02b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02be       |    |		.CONST	0x02be								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e5fe       |    |		Load	0x2,-0x2
02bc e003       |    |		Load	0x0,0x3
02bd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02be			BODY_02b8:
02be 00cf       |    |		Action	Mark_Auxiliary
02bf 7818       |x   |		Jump	0x2d8
02c0 e402       |    |		Load	0x2,0x2
02c1 0227       | '  |		Execute	Access,All_Reference
02c2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02c3 01db       |    |		Execute	Vector,Length
02c4 00da       |    |		Load_Top	At_Offset_2
02c5 01db       |    |		Execute	Vector,Length
02c6 027f       |    |		Execute	Discrete,Equal
02c7 680b       |h   |		Jump_Zero	0x2d3
02c8 e402       |    |		Load	0x2,0x2
02c9 0227       | '  |		Execute	Access,All_Reference
02ca 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02cb e003       |    |		Load	0x0,0x3
02cc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02cd 00da       |    |		Load_Top	At_Offset_2
02ce 01df       |    |		Execute	Vector,Equal
02cf 6803       |h   |		Jump_Zero	0x2d3
02d0 e402       |    |		Load	0x2,0x2
02d1 00cb       |    |		Action	Pop_Block_With_Result
02d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02d3 e402       |    |		Load	0x2,0x2
02d4 0227       | '  |		Execute	Access,All_Reference
02d5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02d6 a402       |    |		Store_Unchecked	0x2,0x2
02d7 00c9       |    |		Action	Pop_Auxiliary_Loop
02d8 e402       |    |		Load	0x2,0x2
02d9 77e6       |w   |		Jump_Nonzero	0x2c0
02da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02db 0000 0000  |    |		.BLANK	0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 4608       |F   |		Jump_Case	0x9
02e4 7808       |x   |		Jump	0x2ed								; case 0x0
02e5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02e6 780a       |x   |		Jump	0x2f1								; case 0x2
02e7 7809       |x   |		Jump	0x2f1								; case 0x3
02e8 7808       |x   |		Jump	0x2f1								; case 0x4
02e9 7807       |x   |		Jump	0x2f1								; case 0x5
02ea 7806       |x   |		Jump	0x2f1								; case 0x6
02eb 7805       |x   |		Jump	0x2f1								; case 0x7
02ec 7804       |x   |		Jump	0x2f1								; case 0x8
02ed 4800       |H   |		Short_Literal	0x0
02ee 00db       |    |		Load_Top	At_Offset_3
02ef 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02f0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02f1 0869       | i  |		Execute_Immediate	Raise,0x69
02f2 0000 0000  |    |		.BLANK	0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb			INIT_02f8:
02fb 4608       |F   |		Jump_Case	0x9
02fc 7808       |x   |		Jump	0x305								; case 0x0
02fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02fe 781f       |x   |		Jump	0x31e								; case 0x2
02ff 781e       |x   |		Jump	0x31e								; case 0x3
0300 781d       |x   |		Jump	0x31e								; case 0x4
0301 781c       |x   |		Jump	0x31e								; case 0x5
0302 781b       |x   |		Jump	0x31e								; case 0x6
0303 7807       |x   |		Jump	0x30b								; case 0x7
0304 780f       |x   |		Jump	0x314								; case 0x8
0305 00da       |    |		Load_Top	At_Offset_2
0306 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0307 00da       |    |		Load_Top	At_Offset_2
0308 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0309 1c00       |    |		Execute_Immediate	Run_Utility,0x0
030a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
030b 00db       |    |		Load_Top	At_Offset_3
030c 4801       |H   |		Short_Literal	0x1
030d e5fe       |    |		Load	0x2,-0x2
030e 00e9       |    |		Load_Encached	String_Cache
030f 035b       | [  |		Declare_Type	Array,Constrained
0310 4801       |H   |		Short_Literal	0x1
0311 e5ff       |    |		Load	0x2,-0x1
0312 031b       |    |		Declare_Type	Variant_Record,Constrained
0313 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0314 00db       |    |		Load_Top	At_Offset_3
0315 00db       |    |		Load_Top	At_Offset_3
0316 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0317 4801       |H   |		Short_Literal	0x1
0318 e5fe       |    |		Load	0x2,-0x2
0319 00e9       |    |		Load_Encached	String_Cache
031a 0334       | 4  |		Declare_Variable	Array,With_Constraint
031b 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
031c 016a       | j  |		QQ_execute	Variant_Record,XXX
031d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
031e 0869       | i  |		Execute_Immediate	Raise,0x69
031f 0000       |    |		.XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; Debug Table
0320 ; --------------------------------------------------------------------------------------
0320 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2e90,0x0000,0x0001,0x0017
0326 000b 0382  |    |		.DBG4T	0x000b,0x0382,0xc000,0x0000
032a 0068 039f  | h  |		.DBG4T	0x0068,0x039f,0xc000,0x8000
032e 0093 03c3  |    |		.DBG4T	0x0093,0x03c3,0x1002,0x0000
0332 00b3 03c9  |    |		.DBG4T	0x00b3,0x03c9,0x1001,0x0000
0336 00d3 03d0  |    |		.DBG4T	0x00d3,0x03d0,0x1001,0x0000
033a 010b 03dc  |    |		.DBG4T	0x010b,0x03dc,0x1001,0x4000
033e 014b 03f5  | K  |		.DBG4T	0x014b,0x03f5,0x1001,0x0000
0342 015b 03f8  | [  |		.DBG4T	0x015b,0x03f8,0x1002,0x0000
0346 0173 03ff  | s  |		.DBG4T	0x0173,0x03ff,0x1001,0x0000
034a 018b 0403  |    |		.DBG4T	0x018b,0x0403,0x1001,0x4000
034e 01eb 0414  |    |		.DBG4T	0x01eb,0x0414,0x1001,0x0000
0352 021b 0421  |   !|		.DBG4T	0x021b,0x0421,0x1001,0x4000
0356 0243 0431  | C 1|		.DBG4T	0x0243,0x0431,0x1002,0x0000
035a 0253 0434  | S 4|		.DBG4T	0x0253,0x0434,0x1002,0x0000
035e 025b 0437  | [ 7|		.DBG4T	0x025b,0x0437,0x1002,0x0000
0362 0263 043a  | c :|		.DBG4T	0x0263,0x043a,0x1002,0x0000
0366 026b 043d  | k =|		.DBG4T	0x026b,0x043d,0x1002,0x0000
036a 027b 0440  | { @|		.DBG4T	0x027b,0x0440,0x1002,0x4000
036e 029b 0451  |   Q|		.DBG4T	0x029b,0x0451,0x1002,0x0000
0372 02ab 0454  |   T|		.DBG4T	0x02ab,0x0454,0x1004,0x0000
0376 02bb 045a  |   Z|		.DBG4T	0x02bb,0x045a,0x1004,0x4000
037a 02e3 0000  |    |		.DBG4T	0x02e3,0x0000,0x1005,0x0000
037e 02fb 0000  |    |		.DBG4T	0x02fb,0x0000,0x1005,0x0000
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug chain
0382 ; --------------------------------------------------------------------------------------
0382 001b 0000  |    |		.DBGLEN	0x001b,0x0000
0384 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0036,0x0041,0x0045,0x004c,0x0052,0x0056,0x005d
039f ; --------------------------------------------------------------------------------------
039f ; Debug chain
039f ; --------------------------------------------------------------------------------------
039f 0011 0000  |    |		.DBGLEN	0x0011,0x0000
03a1 0068 006a  | h j|		.DBGLNO	0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088
03b2 0001 0002  |    |		.XXX[0x11]
03b4 0004 0005  |    |
03b6 0006 0007  |    |
03b8 0008 0009  |    |
03ba 000a 000b  |    |
03bc 000c 000d  |    |
03be 000e 000f  |    |
03c0 0010 0011  |    |
03c2 0012       |    |
03c3 ; --------------------------------------------------------------------------------------
03c3 ; Debug chain
03c3 ; --------------------------------------------------------------------------------------
03c3 0001 0003  |    |		.DBGLEN	0x0001,0x0003
03c5 0093 009d  |    |		.DBGLNO	0x0093,0x009d,0x009f,0x00aa
03c9 ; --------------------------------------------------------------------------------------
03c9 ; Debug chain
03c9 ; --------------------------------------------------------------------------------------
03c9 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03cb 00b3 00bd  |    |		.DBGLNO	0x00b3,0x00bd,0x00bf,0x00c3,0x00c6
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug chain
03d0 ; --------------------------------------------------------------------------------------
03d0 0003 0007  |    |		.DBGLEN	0x0003,0x0007
03d2 00d3 00da  |    |		.DBGLNO	0x00d3,0x00da,0x00dc,0x00e3,0x00e5,0x00ef,0x00f0,0x00f8,0x00fa,0x00fc
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug chain
03dc ; --------------------------------------------------------------------------------------
03dc 0003 000a  |    |		.DBGLEN	0x0003,0x000a
03de 010b 010f  |    |		.DBGLNO	0x010b,0x010f,0x0116,0x0119,0x011f,0x0121,0x0128,0x0130,0x0137,0x0138,0x013a,0x013f,0x0142
03eb 0002 0003  |    |		.XXX[0xa]
03ed 0004 0005  |    |
03ef 0006 0007  |    |
03f1 0008 0009  |    |
03f3 0001 000a  |    |
03f5 ; --------------------------------------------------------------------------------------
03f5 ; Debug chain
03f5 ; --------------------------------------------------------------------------------------
03f5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03f7 014b       | K  |		.DBGLNO	0x014b
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug chain
03f8 ; --------------------------------------------------------------------------------------
03f8 0001 0004  |    |		.DBGLEN	0x0001,0x0004
03fa 015b 015e  | [ ^|		.DBGLNO	0x015b,0x015e,0x0163,0x0169,0x016e
03ff ; --------------------------------------------------------------------------------------
03ff ; Debug chain
03ff ; --------------------------------------------------------------------------------------
03ff 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0401 0174 0179  | t y|		.DBGLNO	0x0174,0x0179
0403 ; --------------------------------------------------------------------------------------
0403 ; Debug chain
0403 ; --------------------------------------------------------------------------------------
0403 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0405 018b 018d  |    |		.DBGLNO	0x018b,0x018d,0x0192,0x0198,0x01a0,0x01d1,0x01d6,0x01dc
040d 0001 0002  |    |		.XXX[0x7]
040f 0003 0005  |    |
0411 0006 0004  |    |
0413 0007       |    |
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug chain
0414 ; --------------------------------------------------------------------------------------
0414 0001 000a  |    |		.DBGLEN	0x0001,0x000a
0416 01eb 01ee  |    |		.DBGLNO	0x01eb,0x01ee,0x01f3,0x01fa,0x01fd,0x0200,0x0203,0x0206,0x0209,0x020d,0x0210
0421 ; --------------------------------------------------------------------------------------
0421 ; Debug chain
0421 ; --------------------------------------------------------------------------------------
0421 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0423 021b 0223  |   #|		.DBGLNO	0x021b,0x0223,0x0229,0x022c,0x022d,0x0232,0x023c
042a 0001 0003  |    |		.XXX[0x7]
042c 0004 0005  |    |
042e 0006 0007  |    |
0430 0002       |    |
0431 ; --------------------------------------------------------------------------------------
0431 ; Debug chain
0431 ; --------------------------------------------------------------------------------------
0431 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0433 0243       | C  |		.DBGLNO	0x0243
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug chain
0434 ; --------------------------------------------------------------------------------------
0434 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0436 0253       | S  |		.DBGLNO	0x0253
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0439 025b       | [  |		.DBGLNO	0x025b
043a ; --------------------------------------------------------------------------------------
043a ; Debug chain
043a ; --------------------------------------------------------------------------------------
043a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
043c 0263       | c  |		.DBGLNO	0x0263
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
043f 026b       | k  |		.DBGLNO	0x026b
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug chain
0440 ; --------------------------------------------------------------------------------------
0440 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0442 027b 0280  | {  |		.DBGLNO	0x027b,0x0280,0x0282,0x0286,0x028c,0x028e,0x0293,0x0296
044a 0001 0002  |    |		.XXX[0x7]
044c 0004 0005  |    |
044e 0006 0003  |    |
0450 0007       |    |
0451 ; --------------------------------------------------------------------------------------
0451 ; Debug chain
0451 ; --------------------------------------------------------------------------------------
0451 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0453 029b       |    |		.DBGLNO	0x029b
0454 ; --------------------------------------------------------------------------------------
0454 ; Debug chain
0454 ; --------------------------------------------------------------------------------------
0454 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0456 02ab 02ae  |    |		.DBGLNO	0x02ab,0x02ae,0x02b1,0x02b4
045a ; --------------------------------------------------------------------------------------
045a ; Debug chain
045a ; --------------------------------------------------------------------------------------
045a 0001 0004  |    |		.DBGLEN	0x0001,0x0004
045c 02bb 02c0  |    |		.DBGLNO	0x02bb,0x02c0,0x02d0,0x02d3,0x02d8
0461 0002 0003  |    |		.XXX[0x4]
0463 0004 0001  |    |
0465 0000 0000  |    |		.BLANK	0000[0x19b]