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

⟦914453c3e⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb

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 0328       | (  |		.CONST	0x0328								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e4       |    |		.CONST	0x00e4								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0057       | W  |		.CONST	0x0057								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c 4800       |H   |		Short_Literal	0x0
000d 4800       |H   |		Short_Literal	0x0
000e 4801       |H   |		Short_Literal	0x1
000f 4804       |H   |		Short_Literal	0x4
0010 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0011 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0013 00d9       |    |		Load_Top	At_Offset_1
0014 012a       | *  |		Execute	Any,Change_Utility
0015 0007       |    |		Action	Break_Optional
0016 4800       |H   |		Short_Literal	0x0
0017 48ff       |H   |		Short_Literal	0xff
0018 00e3       |    |		Load_Encached	Natural_Cache
0019 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001a 4800       |H   |		Short_Literal	0x0
001b 6100       |a   |		Indirect_Literal	Discrete,0x11c,{0x00000000, 0x0000ffff}
001c 00e3       |    |		Load_Encached	Natural_Cache
001d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001e 00d8       |    |		Load_Top	At_Offset_0
001f 0129       | )  |		Execute	Any,Make_Visible
0020 e001       |    |		Load	0x0,0x1
0021 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0022 0129       | )  |		Execute	Any,Make_Visible
0023 e001       |    |		Load	0x0,0x1
0024 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0025 0129       | )  |		Execute	Any,Make_Visible
0026 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0028 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
002a 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
002c 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
002e 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0030 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0032 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0034 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0036 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0038 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
003a 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
003c 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
003e 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0040 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0042 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0044 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0046 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0048 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
004a 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
004c 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
004e 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0050 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0052 e215       |    |		Load	0x1,0x15
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 4818       |H   |		Short_Literal	0x18
0055 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0056 00e3       |    |		Load_Encached	Natural_Cache
0057 00e3       |    |		Load_Encached	Natural_Cache
0058 00da       |    |		Load_Top	At_Offset_2
0059 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
005b 4800       |H   |		Short_Literal	0x0
005c 4803       |H   |		Short_Literal	0x3
005d e210       |    |		Load	0x1,0x10
005e 0307       |    |		Complete_Type	Variant_Record,By_Defining
005f 00bf       |    |		Action	Accept_Activation
0060 e002       |    |		Load	0x0,0x2
0061 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0062 0007       |    |		Action	Break_Optional
0063 e002       |    |		Load	0x0,0x2
0064 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0065 0007       |    |		Action	Break_Optional
0066 e003       |    |		Load	0x0,0x3
0067 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0068 00c6       |    |		Action	Check_Subprogram_Elaborated
0069 00e6       |    |		Load_Encached	Float_Cache
006a e004       |    |		Load	0x0,0x4
006b e005       |    |		Load	0x0,0x5
006c 4800       |H   |		Short_Literal	0x0
006d 0007       |    |		Action	Break_Optional
006e e003       |    |		Load	0x0,0x3
006f 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0070 00c6       |    |		Action	Check_Subprogram_Elaborated
0071 e211       |    |		Load	0x1,0x11
0072 e006       |    |		Load	0x0,0x6
0073 e007       |    |		Load	0x0,0x7
0074 4800       |H   |		Short_Literal	0x0
0075 0007       |    |		Action	Break_Optional
0076 e003       |    |		Load	0x0,0x3
0077 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0078 00c6       |    |		Action	Check_Subprogram_Elaborated
0079 e212       |    |		Load	0x1,0x12
007a e008       |    |		Load	0x0,0x8
007b e009       |    |		Load	0x0,0x9
007c 4800       |H   |		Short_Literal	0x0
007d 0007       |    |		Action	Break_Optional
007e e003       |    |		Load	0x0,0x3
007f 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0080 00c6       |    |		Action	Check_Subprogram_Elaborated
0081 00e2       |    |		Load_Encached	Integer_Cache
0082 e00a       |    |		Load	0x0,0xa
0083 e00b       |    |		Load	0x0,0xb
0084 4800       |H   |		Short_Literal	0x0
0085 0007       |    |		Action	Break_Optional
0086 e003       |    |		Load	0x0,0x3
0087 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0088 00c6       |    |		Action	Check_Subprogram_Elaborated
0089 00e5       |    |		Load_Encached	Long_Integer_Cache
008a e00c       |    |		Load	0x0,0xc
008b e00d       |    |		Load	0x0,0xd
008c 4800       |H   |		Short_Literal	0x0
008d 0007       |    |		Action	Break_Optional
008e e003       |    |		Load	0x0,0x3
008f 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0090 00c6       |    |		Action	Check_Subprogram_Elaborated
0091 00e6       |    |		Load_Encached	Float_Cache
0092 e00e       |    |		Load	0x0,0xe
0093 e00f       |    |		Load	0x0,0xf
0094 4800       |H   |		Short_Literal	0x0
0095 0007       |    |		Action	Break_Optional
0096 e003       |    |		Load	0x0,0x3
0097 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0098 00c6       |    |		Action	Check_Subprogram_Elaborated
0099 e211       |    |		Load	0x1,0x11
009a e010       |    |		Load	0x0,0x10
009b e011       |    |		Load	0x0,0x11
009c 4800       |H   |		Short_Literal	0x0
009d 0007       |    |		Action	Break_Optional
009e e003       |    |		Load	0x0,0x3
009f 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00a0 00c6       |    |		Action	Check_Subprogram_Elaborated
00a1 e212       |    |		Load	0x1,0x12
00a2 e012       |    |		Load	0x0,0x12
00a3 e013       |    |		Load	0x0,0x13
00a4 4800       |H   |		Short_Literal	0x0
00a5 0007       |    |		Action	Break_Optional
00a6 e003       |    |		Load	0x0,0x3
00a7 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00a8 00c6       |    |		Action	Check_Subprogram_Elaborated
00a9 00e2       |    |		Load_Encached	Integer_Cache
00aa e014       |    |		Load	0x0,0x14
00ab e015       |    |		Load	0x0,0x15
00ac 4800       |H   |		Short_Literal	0x0
00ad 0007       |    |		Action	Break_Optional
00ae e003       |    |		Load	0x0,0x3
00af 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00b0 00c6       |    |		Action	Check_Subprogram_Elaborated
00b1 00e5       |    |		Load_Encached	Long_Integer_Cache
00b2 e016       |    |		Load	0x0,0x16
00b3 e017       |    |		Load	0x0,0x17
00b4 4800       |H   |		Short_Literal	0x0
00b5 0007       |    |		Action	Break_Optional
00b6 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
00bc 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00d3 00c7       |    |		Action	Elaborate_Subprogram
00d4 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00d9 00c7       |    |		Action	Elaborate_Subprogram
00da 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00df 00c7       |    |		Action	Elaborate_Subprogram
00e0 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00e1 00c7       |    |		Action	Elaborate_Subprogram
00e2 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00e3 00c7       |    |		Action	Elaborate_Subprogram
00e4			BODY_0008:
00e4 00bc       |    |		Action	Signal_Activated
00e5 00bb       |    |		Action	Signal_Completion
00e6 0000 0000  |    |		.XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb			INIT_00e8:
00eb 4608       |F   |		Jump_Case	0x9
00ec 7808       |x   |		Jump	0xf5								; case 0x0
00ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00ee 7829       |x)  |		Jump	0x118								; case 0x2
00ef 7828       |x(  |		Jump	0x118								; case 0x3
00f0 7827       |x'  |		Jump	0x118								; case 0x4
00f1 7826       |x&  |		Jump	0x118								; case 0x5
00f2 7825       |x%  |		Jump	0x118								; case 0x6
00f3 781c       |x   |		Jump	0x110								; case 0x7
00f4 781f       |x   |		Jump	0x114								; case 0x8
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 016c       | l  |		Execute	Variant_Record,Is_Constrained
00f7 7009       |p   |		Jump_Nonzero	0x101
00f8 00cf       |    |		Action	Mark_Auxiliary
00f9 e20f       |    |		Load	0x1,0xf
00fa e5ff       |    |		Load	0x2,-0x1
00fb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00fc 00d8       |    |		Load_Top	At_Offset_0
00fd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00fe c5ff       |    |		Store	0x2,-0x1
00ff 00ce       |    |		Action	Pop_Auxiliary
0100 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0101 00da       |    |		Load_Top	At_Offset_2
0102 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0103 00db       |    |		Load_Top	At_Offset_3
0104 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0105 4800       |H   |		Short_Literal	0x0
0106 00db       |    |		Load_Top	At_Offset_3
0107 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0108 4801       |H   |		Short_Literal	0x1
0109 00db       |    |		Load_Top	At_Offset_3
010a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
010b e22c       | ,  |		Load	0x1,0x2c
010c 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
010d 00db       |    |		Load_Top	At_Offset_3
010e 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
010f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0110 00db       |    |		Load_Top	At_Offset_3
0111 e5ff       |    |		Load	0x2,-0x1
0112 031b       |    |		Declare_Type	Variant_Record,Constrained
0113 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0114 00db       |    |		Load_Top	At_Offset_3
0115 00db       |    |		Load_Top	At_Offset_3
0116 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0117 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0118 0869       | i  |		Execute_Immediate	Raise,0x69
0119 0000 0000  |    |		.XXX[0x3]
011b 0000       |    |
011c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4801       |H   |		Short_Literal	0x1
0124 00db       |    |		Load_Top	At_Offset_3
0125 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0126 e5ff       |    |		Load	0x2,-0x1
0127 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0128 0227       | '  |		Execute	Access,All_Reference
0129 01cf       |    |		Execute	Vector,Slice_Read
012a 0335       | 5  |		Declare_Variable	Array,Duplicate
012b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137       | 7  |		.CONST	0x0137								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 e210       |    |		Load	0x1,0x10
0134 02ff       |    |		Declare_Variable	Variant_Record
0135 00d8       |    |		Load_Top	At_Offset_0
0136 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0137			BODY_0130:
0137 e20f       |    |		Load	0x1,0xf
0138 e210       |    |		Load	0x1,0x10
0139 1c08       |    |		Execute_Immediate	Run_Utility,0x8
013a e5ff       |    |		Load	0x2,-0x1
013b 01db       |    |		Execute	Vector,Length
013c 00d9       |    |		Load_Top	At_Offset_1
013d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
013e e5ff       |    |		Load	0x2,-0x1
013f 01db       |    |		Execute	Vector,Length
0140 00d9       |    |		Load_Top	At_Offset_1
0141 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0142 4801       |H   |		Short_Literal	0x1
0143 e5ff       |    |		Load	0x2,-0x1
0144 01db       |    |		Execute	Vector,Length
0145 e22c       | ,  |		Load	0x1,0x2c
0146 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0147 00d9       |    |		Load_Top	At_Offset_1
0148 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0149 00d9       |    |		Load_Top	At_Offset_1
014a 016d       | m  |		Execute	Variant_Record,Structure_Write
014b 00db       |    |		Load_Top	At_Offset_3
014c 00d9       |    |		Load_Top	At_Offset_1
014d 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
014e 0228       | (  |		Execute	Access,All_Write
014f 00d8       |    |		Load_Top	At_Offset_0
0150 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0151 0000 0000  |    |		.BLANK	0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00db       |    |		Load_Top	At_Offset_3
015c 4801       |H   |		Short_Literal	0x1
015d 8257       | W  |		Call	0x1,0x57
015e 00d1       |    |		Pop_Control	Pop_Count_1
015f 00db       |    |		Load_Top	At_Offset_3
0160 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0161 0a01       |    |		Execute_Immediate	Plus,0x1
0162 e5fe       |    |		Load	0x2,-0x2
0163 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0164 00da       |    |		Load_Top	At_Offset_2
0165 e5fe       |    |		Load	0x2,-0x2
0166 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0167 e5fe       |    |		Load	0x2,-0x2
0168 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0169 0227       | '  |		Execute	Access,All_Reference
016a 01d6       |    |		Execute	Vector,Field_Write
016b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
016c 0000 0000  |    |		.BLANK	0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0003       |    |		.CONST	0x0003								; Number of locals
0173			INIT_0170:
0173 00e3       |    |		Load_Encached	Natural_Cache
0174 00e3       |    |		Load_Encached	Natural_Cache
0175			BODY_0170:
0175 e5fe       |    |		Load	0x2,-0x2
0176 e5ff       |    |		Load	0x2,-0x1
0177 01db       |    |		Execute	Vector,Length
0178 00e3       |    |		Load_Encached	Natural_Cache
0179 025b       | [  |		Execute	Discrete,Check_In_Type
017a 8257       | W  |		Call	0x1,0x57
017b 00d1       |    |		Pop_Control	Pop_Count_1
017c e5fe       |    |		Load	0x2,-0x2
017d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
017e 0a01       |    |		Execute_Immediate	Plus,0x1
017f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0180 00d9       |    |		Load_Top	At_Offset_1
0181 e5ff       |    |		Load	0x2,-0x1
0182 01db       |    |		Execute	Vector,Length
0183 0273       | s  |		Execute	Discrete,Plus
0184 0aff       |    |		Execute_Immediate	Plus,-0x1
0185 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0186 e5fe       |    |		Load	0x2,-0x2
0187 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0188 e5ff       |    |		Load	0x2,-0x1
0189 01db       |    |		Execute	Vector,Length
018a 0273       | s  |		Execute	Discrete,Plus
018b e5fe       |    |		Load	0x2,-0x2
018c 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
018d e5ff       |    |		Load	0x2,-0x1
018e 00da       |    |		Load_Top	At_Offset_2
018f 00da       |    |		Load_Top	At_Offset_2
0190 e5fe       |    |		Load	0x2,-0x2
0191 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0192 0229       | )  |		Execute	Access,All_Read
0193 01ce       |    |		Execute	Vector,Slice_Write
0194 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00db       |    |		Load_Top	At_Offset_3
019c 00db       |    |		Load_Top	At_Offset_3
019d e233       | 3  |		Load	0x1,0x33
019e 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
019f e003       |    |		Load	0x0,0x3
01a0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01a1 8219       |    |		Call	0x1,0x19
01a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a3 0000 0000  |    |		.BLANK	0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00db       |    |		Load_Top	At_Offset_3
01ac 00db       |    |		Load_Top	At_Offset_3
01ad e237       | 7  |		Load	0x1,0x37
01ae 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
01af e003       |    |		Load	0x0,0x3
01b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b1 8219       |    |		Call	0x1,0x19
01b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 00db       |    |		Load_Top	At_Offset_3
01bd 00d8       |    |		Load_Top	At_Offset_0
01be e001       |    |		Load	0x0,0x1
01bf 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01c0 0260       | `  |		Execute	Discrete,In_Type
01c1 7001       |p   |		Jump_Nonzero	0x1c3
01c2 08e0       |    |		Execute_Immediate	Raise,0xe0
01c3 8218       |    |		Call	0x1,0x18
01c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 822d       | -  |		Call	0x1,0x2d
01ce 8219       |    |		Call	0x1,0x19
01cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 00db       |    |		Load_Top	At_Offset_3
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 e001       |    |		Load	0x0,0x1
01d7 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01d8 0260       | `  |		Execute	Discrete,In_Type
01d9 7001       |p   |		Jump_Nonzero	0x1db
01da 08e0       |    |		Execute_Immediate	Raise,0xe0
01db 8218       |    |		Call	0x1,0x18
01dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 e23b       | ;  |		Load	0x1,0x3b
01e6 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
01e7 e003       |    |		Load	0x0,0x3
01e8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01e9 8219       |    |		Call	0x1,0x19
01ea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 00db       |    |		Load_Top	At_Offset_3
01f5 e23f       | ?  |		Load	0x1,0x3f
01f6 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
01f7 e003       |    |		Load	0x0,0x3
01f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01f9 8219       |    |		Call	0x1,0x19
01fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01fb 0000 0000  |    |		.BLANK	0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00db       |    |		Load_Top	At_Offset_3
0204 00db       |    |		Load_Top	At_Offset_3
0205 e22f       | /  |		Load	0x1,0x2f
0206 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0207 e003       |    |		Load	0x0,0x3
0208 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0209 8219       |    |		Call	0x1,0x19
020a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020b 0000 0000  |    |		.BLANK	0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00db       |    |		Load_Top	At_Offset_3
0214 00db       |    |		Load_Top	At_Offset_3
0215 01d7       |    |		Execute	Vector,Field_Read
0216 a5fd       |    |		Store_Unchecked	0x2,-0x3
0217 00db       |    |		Load_Top	At_Offset_3
0218 0a01       |    |		Execute_Immediate	Plus,0x1
0219 c5fe       |    |		Store	0x2,-0x2
021a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021b 0000 0000  |    |		.BLANK	0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225       | %  |		.CONST	0x0225								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0003       |    |		.CONST	0x0003								; Number of locals
0223			INIT_0220:
0223 00e3       |    |		Load_Encached	Natural_Cache
0224 00e3       |    |		Load_Encached	Natural_Cache
0225			BODY_0220:
0225 e5fe       |    |		Load	0x2,-0x2
0226 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0227 00d9       |    |		Load_Top	At_Offset_1
0228 e5fd       |    |		Load	0x2,-0x3
0229 01db       |    |		Execute	Vector,Length
022a 0273       | s  |		Execute	Discrete,Plus
022b 0aff       |    |		Execute_Immediate	Plus,-0x1
022c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
022d 00d8       |    |		Load_Top	At_Offset_0
022e 0a01       |    |		Execute_Immediate	Plus,0x1
022f c5fe       |    |		Store	0x2,-0x2
0230 00d9       |    |		Load_Top	At_Offset_1
0231 00d9       |    |		Load_Top	At_Offset_1
0232 e5ff       |    |		Load	0x2,-0x1
0233 01cf       |    |		Execute	Vector,Slice_Read
0234 e5fd       |    |		Load	0x2,-0x3
0235 01d4       |    |		Execute	Vector,Structure_Write
0236 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0237 0000       |    |		.XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d       | =  |		.CONST	0x023d								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b 00e3       |    |		Load_Encached	Natural_Cache
023c 00e3       |    |		Load_Encached	Natural_Cache
023d			BODY_0238:
023d e5fe       |    |		Load	0x2,-0x2
023e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
023f 00d9       |    |		Load_Top	At_Offset_1
0240 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0241 00d8       |    |		Load_Top	At_Offset_0
0242 0a01       |    |		Execute_Immediate	Plus,0x1
0243 c5fe       |    |		Store	0x2,-0x2
0244 00d9       |    |		Load_Top	At_Offset_1
0245 00d9       |    |		Load_Top	At_Offset_1
0246 e5ff       |    |		Load	0x2,-0x1
0247 01cf       |    |		Execute	Vector,Slice_Read
0248 e247       | G  |		Load	0x1,0x47
0249 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
024a e003       |    |		Load	0x0,0x3
024b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
024c a5fd       |    |		Store_Unchecked	0x2,-0x3
024d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024e 0000 0000  |    |		.XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0255       | U  |		.CONST	0x0255								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 00e3       |    |		Load_Encached	Natural_Cache
0254 00e3       |    |		Load_Encached	Natural_Cache
0255			BODY_0250:
0255 e5fe       |    |		Load	0x2,-0x2
0256 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0257 00d9       |    |		Load_Top	At_Offset_1
0258 0a01       |    |		Execute_Immediate	Plus,0x1
0259 0059       | Y  |		Store_Top	Discrete,At_Offset_1
025a 00d8       |    |		Load_Top	At_Offset_0
025b 0a01       |    |		Execute_Immediate	Plus,0x1
025c c5fe       |    |		Store	0x2,-0x2
025d 00d9       |    |		Load_Top	At_Offset_1
025e 00d9       |    |		Load_Top	At_Offset_1
025f e5ff       |    |		Load	0x2,-0x1
0260 01cf       |    |		Execute	Vector,Slice_Read
0261 e24b       | K  |		Load	0x1,0x4b
0262 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0263 e003       |    |		Load	0x0,0x3
0264 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0265 a5fd       |    |		Store_Unchecked	0x2,-0x3
0266 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0267 0000       |    |		.XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00db       |    |		Load_Top	At_Offset_3
026c 00db       |    |		Load_Top	At_Offset_3
026d 01d7       |    |		Execute	Vector,Field_Read
026e 00d8       |    |		Load_Top	At_Offset_0
026f 00e8       |    |		Load_Encached	Character_Cache
0270 0260       | `  |		Execute	Discrete,In_Type
0271 7001       |p   |		Jump_Nonzero	0x273
0272 08e0       |    |		Execute_Immediate	Raise,0xe0
0273 a5fd       |    |		Store_Unchecked	0x2,-0x3
0274 00db       |    |		Load_Top	At_Offset_3
0275 0a01       |    |		Execute_Immediate	Plus,0x1
0276 c5fe       |    |		Store	0x2,-0x2
0277 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b 00e3       |    |		Load_Encached	Natural_Cache
027c 00e3       |    |		Load_Encached	Natural_Cache
027d			BODY_0278:
027d e5fe       |    |		Load	0x2,-0x2
027e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
027f 00d9       |    |		Load_Top	At_Offset_1
0280 e5fd       |    |		Load	0x2,-0x3
0281 01db       |    |		Execute	Vector,Length
0282 0273       | s  |		Execute	Discrete,Plus
0283 0aff       |    |		Execute_Immediate	Plus,-0x1
0284 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0285 00d8       |    |		Load_Top	At_Offset_0
0286 0a01       |    |		Execute_Immediate	Plus,0x1
0287 c5fe       |    |		Store	0x2,-0x2
0288 00d9       |    |		Load_Top	At_Offset_1
0289 00d9       |    |		Load_Top	At_Offset_1
028a e5ff       |    |		Load	0x2,-0x1
028b 01cf       |    |		Execute	Vector,Slice_Read
028c 822e       | .  |		Call	0x1,0x2e
028d e5fd       |    |		Load	0x2,-0x3
028e 01d4       |    |		Execute	Vector,Structure_Write
028f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00db       |    |		Load_Top	At_Offset_3
0294 00db       |    |		Load_Top	At_Offset_3
0295 01d7       |    |		Execute	Vector,Field_Read
0296 00d8       |    |		Load_Top	At_Offset_0
0297 00e1       |    |		Load_Encached	Boolean_Cache
0298 0260       | `  |		Execute	Discrete,In_Type
0299 7001       |p   |		Jump_Nonzero	0x29b
029a 08e0       |    |		Execute_Immediate	Raise,0xe0
029b a5fd       |    |		Store_Unchecked	0x2,-0x3
029c 00db       |    |		Load_Top	At_Offset_3
029d 0a01       |    |		Execute_Immediate	Plus,0x1
029e c5fe       |    |		Store	0x2,-0x2
029f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5       |    |		.CONST	0x02a5								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 00e3       |    |		Load_Encached	Natural_Cache
02a4 00e3       |    |		Load_Encached	Natural_Cache
02a5			BODY_02a0:
02a5 e5fe       |    |		Load	0x2,-0x2
02a6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02a7 00d9       |    |		Load_Top	At_Offset_1
02a8 0a04       |    |		Execute_Immediate	Plus,0x4
02a9 0aff       |    |		Execute_Immediate	Plus,-0x1
02aa 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02ab 00d8       |    |		Load_Top	At_Offset_0
02ac 0a01       |    |		Execute_Immediate	Plus,0x1
02ad c5fe       |    |		Store	0x2,-0x2
02ae 00d9       |    |		Load_Top	At_Offset_1
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 01cf       |    |		Execute	Vector,Slice_Read
02b2 e24f       | O  |		Load	0x1,0x4f
02b3 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
02b4 e003       |    |		Load	0x0,0x3
02b5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02b6 a5fd       |    |		Store_Unchecked	0x2,-0x3
02b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd       |    |		.CONST	0x02bd								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0003       |    |		.CONST	0x0003								; Number of locals
02bb			INIT_02b8:
02bb 00e3       |    |		Load_Encached	Natural_Cache
02bc 00e3       |    |		Load_Encached	Natural_Cache
02bd			BODY_02b8:
02bd e5fe       |    |		Load	0x2,-0x2
02be 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02bf 00d9       |    |		Load_Top	At_Offset_1
02c0 0a08       |    |		Execute_Immediate	Plus,0x8
02c1 0aff       |    |		Execute_Immediate	Plus,-0x1
02c2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02c3 00d8       |    |		Load_Top	At_Offset_0
02c4 0a01       |    |		Execute_Immediate	Plus,0x1
02c5 c5fe       |    |		Store	0x2,-0x2
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 00d9       |    |		Load_Top	At_Offset_1
02c8 e5ff       |    |		Load	0x2,-0x1
02c9 01cf       |    |		Execute	Vector,Slice_Read
02ca e253       | S  |		Load	0x1,0x53
02cb 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
02cc e003       |    |		Load	0x0,0x3
02cd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02ce a5fd       |    |		Store_Unchecked	0x2,-0x3
02cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5       |    |		.CONST	0x02d5								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0003       |    |		.CONST	0x0003								; Number of locals
02d3			INIT_02d0:
02d3 00e3       |    |		Load_Encached	Natural_Cache
02d4 00e3       |    |		Load_Encached	Natural_Cache
02d5			BODY_02d0:
02d5 e5fe       |    |		Load	0x2,-0x2
02d6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02d7 00d9       |    |		Load_Top	At_Offset_1
02d8 0a08       |    |		Execute_Immediate	Plus,0x8
02d9 0aff       |    |		Execute_Immediate	Plus,-0x1
02da 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02db 00d8       |    |		Load_Top	At_Offset_0
02dc 0a01       |    |		Execute_Immediate	Plus,0x1
02dd c5fe       |    |		Store	0x2,-0x2
02de 00d9       |    |		Load_Top	At_Offset_1
02df 00d9       |    |		Load_Top	At_Offset_1
02e0 e5ff       |    |		Load	0x2,-0x1
02e1 01cf       |    |		Execute	Vector,Slice_Read
02e2 e243       | C  |		Load	0x1,0x43
02e3 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
02e4 e003       |    |		Load	0x0,0x3
02e5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02e6 a5fd       |    |		Store_Unchecked	0x2,-0x3
02e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f6       |    |		.CONST	0x02f6								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0006       |    |		.CONST	0x0006								; Number of locals
02eb			INIT_02e8:
02eb 00e3       |    |		Load_Encached	Natural_Cache
02ec e22c       | ,  |		Load	0x1,0x2c
02ed 0007       |    |		Action	Break_Optional
02ee e22c       | ,  |		Load	0x1,0x2c
02ef 0007       |    |		Action	Break_Optional
02f0 e5fe       |    |		Load	0x2,-0x2
02f1 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
02f2 0007       |    |		Action	Break_Optional
02f3 e5fe       |    |		Load	0x2,-0x2
02f4 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02f5 0007       |    |		Action	Break_Optional
02f6			BODY_02e8:
02f6 e5fe       |    |		Load	0x2,-0x2
02f7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02fa 0272       | r  |		Execute	Discrete,Minus
02fb c402       |    |		Store	0x2,0x2
02fc e5ff       |    |		Load	0x2,-0x1
02fd e402       |    |		Load	0x2,0x2
02fe 027d       | }  |		Execute	Discrete,Greater
02ff 6826       |h&  |		Jump_Zero	0x326
0300 00cf       |    |		Action	Mark_Auxiliary
0301 e5fe       |    |		Load	0x2,-0x2
0302 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0303 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0304 e5fe       |    |		Load	0x2,-0x2
0305 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0306 e5ff       |    |		Load	0x2,-0x1
0307 e5fe       |    |		Load	0x2,-0x2
0308 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0309 e5fe       |    |		Load	0x2,-0x2
030a 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
030b 0272       | r  |		Execute	Discrete,Minus
030c 027a       | z  |		Execute	Discrete,Less_Equal
030d 7002       |p   |		Jump_Nonzero	0x310
030e 00c9       |    |		Action	Pop_Auxiliary_Loop
030f 7ff1       |    |		Jump	0x301
0310 00ce       |    |		Action	Pop_Auxiliary
0311 4801       |H   |		Short_Literal	0x1
0312 00da       |    |		Load_Top	At_Offset_2
0313 e22c       | ,  |		Load	0x1,0x2c
0314 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0315 003b       | ;  |		Store_Top	Access,At_Offset_3
0316 e5fe       |    |		Load	0x2,-0x2
0317 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0318 a403       |    |		Store_Unchecked	0x2,0x3
0319 4801       |H   |		Short_Literal	0x1
031a 00d9       |    |		Load_Top	At_Offset_1
031b e403       |    |		Load	0x2,0x3
031c 0227       | '  |		Execute	Access,All_Reference
031d 01cf       |    |		Execute	Vector,Slice_Read
031e 4801       |H   |		Short_Literal	0x1
031f 00da       |    |		Load_Top	At_Offset_2
0320 e404       |    |		Load	0x2,0x4
0321 0229       | )  |		Execute	Access,All_Read
0322 01ce       |    |		Execute	Vector,Slice_Write
0323 00da       |    |		Load_Top	At_Offset_2
0324 e5fe       |    |		Load	0x2,-0x2
0325 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0326 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0327 0000       |    |		.XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x4ae1,0x0000,0x0001,0x0000
032e 8000 0000  |    |		.XXX[0xa5]
0330 0000 0000  |    |
0332 0380 0000  |    |
0334 0080 0000  |    |
0336 9d00 0a29  |   )|
0338 22a6 a7aa  |"   |
033a 22af a820  |"   |
033c a9a9 aba7  |    |
033e a922 2997  | ") |
0340 20a2 221e  |  " |
0342 bdca 3f48  |  ?H|
0344 1180 0627  |   '|
0346 22ab afa4  |"   |
0348 27a9 aa27  |'  '|
034a 20a6 a28b  |    |
034c 8007 a9aa  |    |
034e 20a7 2220  |  " |
0350 a922 1729  | " )|
0352 aa29 24a7  | )$ |
0354 2385 8007  |#   |
0356 9f1f 2922  |  )"|
0358 a6a7 aa22  |   "|
035a 9024 27a9  | $' |
035c aa1e 1e3f  |   ?|
035e 4811 8006  |H   |
0360 2722 abaf  |'"  |
0362 aaa9 a2a9  |    |
0364 2720 a6a2  |'   |
0366 8b80 07a9  |    |
0368 aa20 a722  |   "|
036a 20a9 2217  |  " |
036c 29aa 2924  |) )$|
036e a723 8580  | #  |
0370 079f 1f29  |   )|
0372 22a6 a7aa  |"   |
0374 2290 2aa9  |" * |
0376 a2a9 1e1e  |    |
0378 3f48 1180  |?H  |
037a 0627 22ab  | '" |
037c afa8 20a9  |    |
037e a9ab a7a9  |    |
0380 220b 8007  |"   |
0382 a9aa 20a7  |    |
0384 2220 a922  |"  "|
0386 1729 aa29  | ) )|
0388 24a7 2385  |$ # |
038a 8004 1e28  |   (|
038c 2927 a6a8  |)'  |
038e 2a1f 3f48  |* ?H|
0390 1180 0522  |   "|
0392 a721 a92c  | ! ,|
0394 a82a 24a7  | *$ |
0396 a70b 8011  |    |
0398 2922 a6a7  |)"  |
039a aa22 afa8  | "  |
039c 20a9 a9ab  |    |
039e a7a9 2229  |  ")|
03a0 9722 a721  | " !|
03a2 a92c a82a  | , *|
03a4 24a7 a72f  |$  /|
03a6 a6a2 aa24  |   $|
03a8 27a2 0b00  |'   |
03aa 1329 22a6  | )" |
03ac a7aa 22af  |  " |
03ae a820 a9a9  |    |
03b0 aba7 a922  |   "|
03b2 2997 22a7  |) " |
03b4 21a9 2ca8  |! , |
03b6 2a24 a7a7  |*$  |
03b8 2fa6 a2aa  |/   |
03ba 2427 a217  |$'  |
03bc 2222 a9bf  |""  |
03be 4811 8004  |H   |
03c0 2922 a9a8  |)"  |
03c2 27a7 29a2  |' ) |
03c4 8b80 07a9  |    |
03c6 aa20 a722  |   "|
03c8 20a9 2217  |  " |
03ca 29aa 2924  |) )$|
03cc a723 8580  | #  |
03ce 049e 2829  |  ()|
03d0 27a3 24a6  |' $ |
03d2 229f       |"   |
03d3 0000 0000  |    |		.BLANK	0000[0x4]
03d7 0f00 0000  |    |		.XXX[0x29]
03d9 0100 0000  |    |
03db 4600 1552  |F  R|
03dd 454d 4f54  |EMOT|
03df 455f 5041  |E_PA|
03e1 5353 574f  |SSWO|
03e3 5244 532e  |RDS.|
03e5 5348 4f57  |SHOW|
03e7 3d7b 947e  |={ ~|
03e9 9023 0008  | #  |
03eb 5245 5350  |RESP|
03ed 4f4e 5345  |ONSE|
03ef 1700 0f53  |   S|
03f1 5441 4e44  |TAND|
03f3 4152 442e  |ARD.|
03f5 5354 5249  |STRI|
03f7 4e47 0b00  |NG  |
03f9 093c 5052  | <PR|
03fb 4f46 494c  |OFIL|
03fd 453e 0000  |E>  |
03ff 0000       |    |