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

⟦b31db5b11⟧

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

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 0368       | h  |		.CONST	0x0368								; 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 0020       |    |		.CONST	0x0020								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000f 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
0011 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0013 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 00bf       |    |		Action	Accept_Activation
0016 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001d 00c7       |    |		Action	Elaborate_Subprogram
001e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
001f 00c7       |    |		Action	Elaborate_Subprogram
0020			BODY_0008:
0020 00bc       |    |		Action	Signal_Activated
0021 00bb       |    |		Action	Signal_Completion
0022 0000 0000  |    |		.BLANK	0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0032       | 2  |		.CONST	0x0032								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0004       |    |		.CONST	0x0004								; Number of locals
002b			INIT_0028:
002b e002       |    |		Load	0x0,0x2
002c 02ff       |    |		Declare_Variable	Variant_Record
002d 00d8       |    |		Load_Top	At_Offset_0
002e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002f e003       |    |		Load	0x0,0x3
0030 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0032			BODY_0028:
0032 e5ff       |    |		Load	0x2,-0x1
0033 8004       |    |		Call	0x0,0x4
0034 8404       |    |		Call	0x2,0x4
0035 4801       |H   |		Short_Literal	0x1
0036 a5f6       |    |		Store_Unchecked	0x2,-0xa
0037 e5ff       |    |		Load	0x2,-0x1
0038 8005       |    |		Call	0x0,0x5
0039 e5ff       |    |		Load	0x2,-0x1
003a 8006       |    |		Call	0x0,0x6
003b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
003c 0000 0000  |    |		.BLANK	0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 004a       | J  |		.CONST	0x004a								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0004       |    |		.CONST	0x0004								; Number of locals
0043			INIT_0040:
0043 e002       |    |		Load	0x0,0x2
0044 02ff       |    |		Declare_Variable	Variant_Record
0045 00d8       |    |		Load_Top	At_Offset_0
0046 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0047 e003       |    |		Load	0x0,0x3
0048 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
004a			BODY_0040:
004a e5ff       |    |		Load	0x2,-0x1
004b 8004       |    |		Call	0x0,0x4
004c 8404       |    |		Call	0x2,0x4
004d 4801       |H   |		Short_Literal	0x1
004e a5fc       |    |		Store_Unchecked	0x2,-0x4
004f e5ff       |    |		Load	0x2,-0x1
0050 8005       |    |		Call	0x0,0x5
0051 e5ff       |    |		Load	0x2,-0x1
0052 8006       |    |		Call	0x0,0x6
0053 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0062       | b  |		.CONST	0x0062								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0004       |    |		.CONST	0x0004								; Number of locals
005b			INIT_0058:
005b e002       |    |		Load	0x0,0x2
005c 02ff       |    |		Declare_Variable	Variant_Record
005d 00d8       |    |		Load_Top	At_Offset_0
005e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005f e003       |    |		Load	0x0,0x3
0060 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
0062			BODY_0058:
0062 e5ff       |    |		Load	0x2,-0x1
0063 8004       |    |		Call	0x0,0x4
0064 8404       |    |		Call	0x2,0x4
0065 e5ff       |    |		Load	0x2,-0x1
0066 8005       |    |		Call	0x0,0x5
0067 e5ff       |    |		Load	0x2,-0x1
0068 8006       |    |		Call	0x0,0x6
0069 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007c       | |  |		.CONST	0x007c								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0005       |    |		.CONST	0x0005								; Number of locals
0073			INIT_0070:
0073 e002       |    |		Load	0x0,0x2
0074 02ff       |    |		Declare_Variable	Variant_Record
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 e007       |    |		Load	0x0,0x7
0078 0007       |    |		Action	Break_Optional
0079 e003       |    |		Load	0x0,0x3
007a 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
007c			BODY_0070:
007c e5ff       |    |		Load	0x2,-0x1
007d 8004       |    |		Call	0x0,0x4
007e 8405       |    |		Call	0x2,0x5
007f e5ff       |    |		Load	0x2,-0x1
0080 8005       |    |		Call	0x0,0x5
0081 e5ff       |    |		Load	0x2,-0x1
0082 8006       |    |		Call	0x0,0x6
0083 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0092       |    |		.CONST	0x0092								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0004       |    |		.CONST	0x0004								; Number of locals
008b			INIT_0088:
008b e002       |    |		Load	0x0,0x2
008c 02ff       |    |		Declare_Variable	Variant_Record
008d 00d8       |    |		Load_Top	At_Offset_0
008e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008f e003       |    |		Load	0x0,0x3
0090 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
0092			BODY_0088:
0092 e5ff       |    |		Load	0x2,-0x1
0093 8004       |    |		Call	0x0,0x4
0094 8404       |    |		Call	0x2,0x4
0095 e5ff       |    |		Load	0x2,-0x1
0096 8005       |    |		Call	0x0,0x5
0097 e5ff       |    |		Load	0x2,-0x1
0098 8006       |    |		Call	0x0,0x6
0099 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 00fd       |    |		.CONST	0x00fd								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 e008       |    |		Load	0x0,0x8
00a4 0322       | "  |		Declare_Variable	Record
00a5 480e       |H   |		Short_Literal	0xe
00a6 00d9       |    |		Load_Top	At_Offset_1
00a7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00a8 e008       |    |		Load	0x0,0x8
00a9 012c       | ,  |		Execute	Any,Size
00aa 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
00ab 00d9       |    |		Load_Top	At_Offset_1
00ac 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ad 4800       |H   |		Short_Literal	0x0
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b0 e5fe       |    |		Load	0x2,-0x2
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00b3 e5ff       |    |		Load	0x2,-0x1
00b4 e009       |    |		Load	0x0,0x9
00b5 a00a       |    |		Store_Unchecked	0x0,0xa
00b6 e00b       |    |		Load	0x0,0xb
00b7 e00c       |    |		Load	0x0,0xc
00b8 a00d       |    |		Store_Unchecked	0x0,0xd
00b9 800e       |    |		Call	0x0,0xe
00ba e003       |    |		Load	0x0,0x3
00bb e402       |    |		Load	0x2,0x2
00bc 4801       |H   |		Short_Literal	0x1
00bd 4800       |H   |		Short_Literal	0x0
00be 480e       |H   |		Short_Literal	0xe
00bf e5ff       |    |		Load	0x2,-0x1
00c0 e00f       |    |		Load	0x0,0xf
00c1 a010       |    |		Store_Unchecked	0x0,0x10
00c2 a011       |    |		Store_Unchecked	0x0,0x11
00c3 8012       |    |		Call	0x0,0x12
00c4 00d1       |    |		Pop_Control	Pop_Count_1
00c5 c403       |    |		Store	0x2,0x3
00c6 e403       |    |		Load	0x2,0x3
00c7 7017       |p   |		Jump_Nonzero	0xdf
00c8 e013       |    |		Load	0x0,0x13
00c9 e5fd       |    |		Load	0x2,-0x3
00ca 017d       | }  |		Execute	Record,Structure_Write
00cb 4800       |H   |		Short_Literal	0x0
00cc a5fc       |    |		Store_Unchecked	0x2,-0x4
00cd 4800       |H   |		Short_Literal	0x0
00ce a5fb       |    |		Store_Unchecked	0x2,-0x5
00cf 4800       |H   |		Short_Literal	0x0
00d0 a5fa       |    |		Store_Unchecked	0x2,-0x6
00d1 4800       |H   |		Short_Literal	0x0
00d2 a5f9       |    |		Store_Unchecked	0x2,-0x7
00d3 4800       |H   |		Short_Literal	0x0
00d4 a5f8       |    |		Store_Unchecked	0x2,-0x8
00d5 4800       |H   |		Short_Literal	0x0
00d6 a5f7       |    |		Store_Unchecked	0x2,-0x9
00d7 4800       |H   |		Short_Literal	0x0
00d8 a5f6       |    |		Store_Unchecked	0x2,-0xa
00d9 e5ff       |    |		Load	0x2,-0x1
00da 8005       |    |		Call	0x0,0x5
00db e5ff       |    |		Load	0x2,-0x1
00dc 8006       |    |		Call	0x0,0x6
00dd 00cc       |    |		Action	Pop_Block
00de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00df e402       |    |		Load	0x2,0x2
00e0 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00e1 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00e2 e5fd       |    |		Load	0x2,-0x3
00e3 017d       | }  |		Execute	Record,Structure_Write
00e4 e402       |    |		Load	0x2,0x2
00e5 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00e6 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
00e7 a5fc       |    |		Store_Unchecked	0x2,-0x4
00e8 e402       |    |		Load	0x2,0x2
00e9 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00ea 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
00eb a5fb       |    |		Store_Unchecked	0x2,-0x5
00ec e402       |    |		Load	0x2,0x2
00ed 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00ee 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
00ef a5fa       |    |		Store_Unchecked	0x2,-0x6
00f0 e402       |    |		Load	0x2,0x2
00f1 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00f2 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
00f3 a5f9       |    |		Store_Unchecked	0x2,-0x7
00f4 e402       |    |		Load	0x2,0x2
00f5 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00f6 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
00f7 a5f8       |    |		Store_Unchecked	0x2,-0x8
00f8 e402       |    |		Load	0x2,0x2
00f9 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
00fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00fb a5f7       |    |		Store_Unchecked	0x2,-0x9
00fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00fd			TRAP_00a0:
00fd 0007       |    |		Action	Break_Optional
00fe e5ff       |    |		Load	0x2,-0x1
00ff 8005       |    |		Call	0x0,0x5
0100 00d8       |    |		Load_Top	At_Offset_0
0101 0101       |    |		Execute	Exception,Reraise
0102 0000 0000  |    |		.BLANK	0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0200       |    |		.CONST	0x0200								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e014       |    |		Load	0x0,0x14
010c 0322       | "  |		Declare_Variable	Record
010d 4803       |H   |		Short_Literal	0x3
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0110 e014       |    |		Load	0x0,0x14
0111 012c       | ,  |		Execute	Any,Size
0112 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0113 00d9       |    |		Load_Top	At_Offset_1
0114 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0115 4800       |H   |		Short_Literal	0x0
0116 00d9       |    |		Load_Top	At_Offset_1
0117 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0118 e5fe       |    |		Load	0x2,-0x2
0119 00d9       |    |		Load_Top	At_Offset_1
011a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
011b e5ff       |    |		Load	0x2,-0x1
011c e015       |    |		Load	0x0,0x15
011d a016       |    |		Store_Unchecked	0x0,0x16
011e e017       |    |		Load	0x0,0x17
011f e018       |    |		Load	0x0,0x18
0120 a019       |    |		Store_Unchecked	0x0,0x19
0121 800e       |    |		Call	0x0,0xe
0122 e003       |    |		Load	0x0,0x3
0123 e402       |    |		Load	0x2,0x2
0124 4801       |H   |		Short_Literal	0x1
0125 4800       |H   |		Short_Literal	0x0
0126 4803       |H   |		Short_Literal	0x3
0127 e5ff       |    |		Load	0x2,-0x1
0128 e00f       |    |		Load	0x0,0xf
0129 a010       |    |		Store_Unchecked	0x0,0x10
012a a011       |    |		Store_Unchecked	0x0,0x11
012b 8012       |    |		Call	0x0,0x12
012c 00d1       |    |		Pop_Control	Pop_Count_1
012d c403       |    |		Store	0x2,0x3
012e e403       |    |		Load	0x2,0x3
012f 7008       |p   |		Jump_Nonzero	0x138
0130 4800       |H   |		Short_Literal	0x0
0131 a5fc       |    |		Store_Unchecked	0x2,-0x4
0132 e5ff       |    |		Load	0x2,-0x1
0133 8005       |    |		Call	0x0,0x5
0134 e5ff       |    |		Load	0x2,-0x1
0135 8006       |    |		Call	0x0,0x6
0136 00cc       |    |		Action	Pop_Block
0137 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0138 e402       |    |		Load	0x2,0x2
0139 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
013a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
013b e5fd       |    |		Load	0x2,-0x3
013c 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
013d e402       |    |		Load	0x2,0x2
013e 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
013f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0140 e5fd       |    |		Load	0x2,-0x3
0141 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0142 e402       |    |		Load	0x2,0x2
0143 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0144 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0145 e5fd       |    |		Load	0x2,-0x3
0146 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0147 e402       |    |		Load	0x2,0x2
0148 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0149 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014a e5fd       |    |		Load	0x2,-0x3
014b 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
014c e402       |    |		Load	0x2,0x2
014d 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
014e 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
014f e5fd       |    |		Load	0x2,-0x3
0150 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0151 e402       |    |		Load	0x2,0x2
0152 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0153 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0154 e5fd       |    |		Load	0x2,-0x3
0155 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0156 e402       |    |		Load	0x2,0x2
0157 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0158 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0159 801a       |    |		Call	0x0,0x1a
015a e5fd       |    |		Load	0x2,-0x3
015b 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
015c e402       |    |		Load	0x2,0x2
015d 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
015e 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
015f e5fd       |    |		Load	0x2,-0x3
0160 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0161 e402       |    |		Load	0x2,0x2
0162 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0163 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0164 801a       |    |		Call	0x0,0x1a
0165 e5fd       |    |		Load	0x2,-0x3
0166 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
0167 e402       |    |		Load	0x2,0x2
0168 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0169 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
016a e5fd       |    |		Load	0x2,-0x3
016b 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
016c e402       |    |		Load	0x2,0x2
016d 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
016e 340f       |4   |		Execute	Record,Field_Reference,Field_Number 0xf
016f e5fd       |    |		Load	0x2,-0x3
0170 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
0171 e402       |    |		Load	0x2,0x2
0172 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0173 3410       |4   |		Execute	Record,Field_Reference,Field_Number 0x10
0174 e5fd       |    |		Load	0x2,-0x3
0175 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
0176 e402       |    |		Load	0x2,0x2
0177 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0178 3411       |4   |		Execute	Record,Field_Reference,Field_Number 0x11
0179 801b       |    |		Call	0x0,0x1b
017a e5fd       |    |		Load	0x2,-0x3
017b 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
017c e402       |    |		Load	0x2,0x2
017d 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
017e 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
017f 801a       |    |		Call	0x0,0x1a
0180 e5fd       |    |		Load	0x2,-0x3
0181 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
0182 e003       |    |		Load	0x0,0x3
0183 e5fd       |    |		Load	0x2,-0x3
0184 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0185 e402       |    |		Load	0x2,0x2
0186 2615       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x15
0187 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0188 e5ff       |    |		Load	0x2,-0x1
0189 801c       |    |		Call	0x0,0x1c
018a e5fd       |    |		Load	0x2,-0x3
018b 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
018c c403       |    |		Store	0x2,0x3
018d e008       |    |		Load	0x0,0x8
018e 0322       | "  |		Declare_Variable	Record
018f 480e       |H   |		Short_Literal	0xe
0190 00d9       |    |		Load_Top	At_Offset_1
0191 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0192 e008       |    |		Load	0x0,0x8
0193 012c       | ,  |		Execute	Any,Size
0194 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0195 00d9       |    |		Load_Top	At_Offset_1
0196 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0197 4800       |H   |		Short_Literal	0x0
0198 00d9       |    |		Load_Top	At_Offset_1
0199 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019a e5fe       |    |		Load	0x2,-0x2
019b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
019c 00d9       |    |		Load_Top	At_Offset_1
019d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
019e e5ff       |    |		Load	0x2,-0x1
019f e009       |    |		Load	0x0,0x9
01a0 a00a       |    |		Store_Unchecked	0x0,0xa
01a1 e00b       |    |		Load	0x0,0xb
01a2 e00c       |    |		Load	0x0,0xc
01a3 a00d       |    |		Store_Unchecked	0x0,0xd
01a4 800e       |    |		Call	0x0,0xe
01a5 e003       |    |		Load	0x0,0x3
01a6 e402       |    |		Load	0x2,0x2
01a7 4801       |H   |		Short_Literal	0x1
01a8 4800       |H   |		Short_Literal	0x0
01a9 480e       |H   |		Short_Literal	0xe
01aa e5ff       |    |		Load	0x2,-0x1
01ab e00f       |    |		Load	0x0,0xf
01ac a010       |    |		Store_Unchecked	0x0,0x10
01ad a011       |    |		Store_Unchecked	0x0,0x11
01ae 8012       |    |		Call	0x0,0x12
01af 00d1       |    |		Pop_Control	Pop_Count_1
01b0 c403       |    |		Store	0x2,0x3
01b1 e403       |    |		Load	0x2,0x3
01b2 7008       |p   |		Jump_Nonzero	0x1bb
01b3 4800       |H   |		Short_Literal	0x0
01b4 a5fc       |    |		Store_Unchecked	0x2,-0x4
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 8005       |    |		Call	0x0,0x5
01b7 e5ff       |    |		Load	0x2,-0x1
01b8 8006       |    |		Call	0x0,0x6
01b9 00cc       |    |		Action	Pop_Block
01ba 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bb e402       |    |		Load	0x2,0x2
01bc 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01bd 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01be e5fd       |    |		Load	0x2,-0x3
01bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01c0 e402       |    |		Load	0x2,0x2
01c1 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01c2 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01c3 e5fd       |    |		Load	0x2,-0x3
01c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c5 e402       |    |		Load	0x2,0x2
01c6 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01c7 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01c8 e5fd       |    |		Load	0x2,-0x3
01c9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01ca e402       |    |		Load	0x2,0x2
01cb 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01cc 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
01cd e5fd       |    |		Load	0x2,-0x3
01ce 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01cf e402       |    |		Load	0x2,0x2
01d0 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01d1 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01d2 e5fd       |    |		Load	0x2,-0x3
01d3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01d4 e402       |    |		Load	0x2,0x2
01d5 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01d9 e402       |    |		Load	0x2,0x2
01da 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01db 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01dc e5fd       |    |		Load	0x2,-0x3
01dd 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01de 00cf       |    |		Action	Mark_Auxiliary
01df e5ff       |    |		Load	0x2,-0x1
01e0 0227       | '  |		Execute	Access,All_Reference
01e1 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
01e2 0227       | '  |		Execute	Access,All_Reference
01e3 01d9       |    |		Execute	Vector,Reverse_Bounds
01e4 0263       | c  |		Execute	Discrete,Above_Bound
01e5 7019       |p   |		Jump_Nonzero	0x1ff
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 0227       | '  |		Execute	Access,All_Reference
01e9 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
01ea 0227       | '  |		Execute	Access,All_Reference
01eb 01d7       |    |		Execute	Vector,Field_Read
01ec 0227       | '  |		Execute	Access,All_Reference
01ed 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01ee e402       |    |		Load	0x2,0x2
01ef 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
01f0 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01f1 017f       |    |		Execute	Record,Equal
01f2 680a       |h   |		Jump_Zero	0x1fd
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 e5ff       |    |		Load	0x2,-0x1
01f5 0227       | '  |		Execute	Access,All_Reference
01f6 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
01f7 0227       | '  |		Execute	Access,All_Reference
01f8 01d7       |    |		Execute	Vector,Field_Read
01f9 e5fd       |    |		Load	0x2,-0x3
01fa 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
01fb 00d2       |    |		Pop_Control	Pop_Count_2
01fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01fd 00c8       |    |		Action	Pop_Auxiliary_Range
01fe 3fe7       |?   |		Loop_Increasing	0x1e6
01ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0200			TRAP_0108:
0200 0007       |    |		Action	Break_Optional
0201 e5ff       |    |		Load	0x2,-0x1
0202 8005       |    |		Call	0x0,0x5
0203 00d8       |    |		Load_Top	At_Offset_0
0204 0101       |    |		Execute	Exception,Reraise
0205 0000 0000  |    |		.XXX[0x3]
0207 0000       |    |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 026e       | n  |		.CONST	0x026e								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b e01d       |    |		Load	0x0,0x1d
020c 0322       | "  |		Declare_Variable	Record
020d 4826       |H&  |		Short_Literal	0x26
020e 00d9       |    |		Load_Top	At_Offset_1
020f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0210 e01d       |    |		Load	0x0,0x1d
0211 012c       | ,  |		Execute	Any,Size
0212 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0213 00d9       |    |		Load_Top	At_Offset_1
0214 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0215 4800       |H   |		Short_Literal	0x0
0216 00d9       |    |		Load_Top	At_Offset_1
0217 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0218 e5fe       |    |		Load	0x2,-0x2
0219 00d9       |    |		Load_Top	At_Offset_1
021a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
021b e5ff       |    |		Load	0x2,-0x1
021c e01e       |    |		Load	0x0,0x1e
021d a01f       |    |		Store_Unchecked	0x0,0x1f
021e e020       |    |		Load	0x0,0x20
021f e021       | !  |		Load	0x0,0x21
0220 a022       | "  |		Store_Unchecked	0x0,0x22
0221 800e       |    |		Call	0x0,0xe
0222 e003       |    |		Load	0x0,0x3
0223 e402       |    |		Load	0x2,0x2
0224 4801       |H   |		Short_Literal	0x1
0225 4800       |H   |		Short_Literal	0x0
0226 4826       |H&  |		Short_Literal	0x26
0227 e5ff       |    |		Load	0x2,-0x1
0228 e00f       |    |		Load	0x0,0xf
0229 a010       |    |		Store_Unchecked	0x0,0x10
022a a011       |    |		Store_Unchecked	0x0,0x11
022b 8012       |    |		Call	0x0,0x12
022c 00d1       |    |		Pop_Control	Pop_Count_1
022d c403       |    |		Store	0x2,0x3
022e e403       |    |		Load	0x2,0x3
022f 7019       |p   |		Jump_Nonzero	0x249
0230 e013       |    |		Load	0x0,0x13
0231 e5fd       |    |		Load	0x2,-0x3
0232 017d       | }  |		Execute	Record,Structure_Write
0233 e013       |    |		Load	0x0,0x13
0234 e5fc       |    |		Load	0x2,-0x4
0235 017d       | }  |		Execute	Record,Structure_Write
0236 4800       |H   |		Short_Literal	0x0
0237 a5fb       |    |		Store_Unchecked	0x2,-0x5
0238 4800       |H   |		Short_Literal	0x0
0239 a5fa       |    |		Store_Unchecked	0x2,-0x6
023a 4800       |H   |		Short_Literal	0x0
023b a5f9       |    |		Store_Unchecked	0x2,-0x7
023c 4800       |H   |		Short_Literal	0x0
023d a5f8       |    |		Store_Unchecked	0x2,-0x8
023e e023       | #  |		Load	0x0,0x23
023f e5f7       |    |		Load	0x2,-0x9
0240 01d4       |    |		Execute	Vector,Structure_Write
0241 4800       |H   |		Short_Literal	0x0
0242 a5f6       |    |		Store_Unchecked	0x2,-0xa
0243 e5ff       |    |		Load	0x2,-0x1
0244 8005       |    |		Call	0x0,0x5
0245 e5ff       |    |		Load	0x2,-0x1
0246 8006       |    |		Call	0x0,0x6
0247 00cc       |    |		Action	Pop_Block
0248 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0249 e402       |    |		Load	0x2,0x2
024a 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
024b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
024c e5fd       |    |		Load	0x2,-0x3
024d 017d       | }  |		Execute	Record,Structure_Write
024e e402       |    |		Load	0x2,0x2
024f 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
0250 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0251 e5fc       |    |		Load	0x2,-0x4
0252 017d       | }  |		Execute	Record,Structure_Write
0253 e402       |    |		Load	0x2,0x2
0254 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
0255 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0256 a5fb       |    |		Store_Unchecked	0x2,-0x5
0257 e402       |    |		Load	0x2,0x2
0258 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
0259 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
025a a5fa       |    |		Store_Unchecked	0x2,-0x6
025b e402       |    |		Load	0x2,0x2
025c 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
025d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
025e a5f9       |    |		Store_Unchecked	0x2,-0x7
025f e402       |    |		Load	0x2,0x2
0260 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
0261 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0262 a5f8       |    |		Store_Unchecked	0x2,-0x8
0263 e402       |    |		Load	0x2,0x2
0264 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
0265 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0266 801a       |    |		Call	0x0,0x1a
0267 a5f6       |    |		Store_Unchecked	0x2,-0xa
0268 e402       |    |		Load	0x2,0x2
0269 2625       |&%  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x25
026a 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
026b e5f7       |    |		Load	0x2,-0x9
026c 01d4       |    |		Execute	Vector,Structure_Write
026d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
026e			TRAP_0208:
026e 0007       |    |		Action	Break_Optional
026f e5ff       |    |		Load	0x2,-0x1
0270 8005       |    |		Call	0x0,0x5
0271 00d8       |    |		Load_Top	At_Offset_0
0272 0101       |    |		Execute	Exception,Reraise
0273 0000 0000  |    |		.BLANK	0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 02b4       |    |		.CONST	0x02b4								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
027d			BODY_0278:
027d e024       | $  |		Load	0x0,0x24
027e 0322       | "  |		Declare_Variable	Record
027f 480f       |H   |		Short_Literal	0xf
0280 00d9       |    |		Load_Top	At_Offset_1
0281 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0282 e024       | $  |		Load	0x0,0x24
0283 012c       | ,  |		Execute	Any,Size
0284 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0285 00d9       |    |		Load_Top	At_Offset_1
0286 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0287 4800       |H   |		Short_Literal	0x0
0288 00d9       |    |		Load_Top	At_Offset_1
0289 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
028a e5fe       |    |		Load	0x2,-0x2
028b 00d9       |    |		Load_Top	At_Offset_1
028c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
028d e5ff       |    |		Load	0x2,-0x1
028e e025       | %  |		Load	0x0,0x25
028f a026       | &  |		Store_Unchecked	0x0,0x26
0290 e027       | '  |		Load	0x0,0x27
0291 e028       | (  |		Load	0x0,0x28
0292 a029       | )  |		Store_Unchecked	0x0,0x29
0293 800e       |    |		Call	0x0,0xe
0294 e003       |    |		Load	0x0,0x3
0295 e402       |    |		Load	0x2,0x2
0296 4800       |H   |		Short_Literal	0x0
0297 4800       |H   |		Short_Literal	0x0
0298 480f       |H   |		Short_Literal	0xf
0299 e5ff       |    |		Load	0x2,-0x1
029a e00f       |    |		Load	0x0,0xf
029b a010       |    |		Store_Unchecked	0x0,0x10
029c a011       |    |		Store_Unchecked	0x0,0x11
029d 8012       |    |		Call	0x0,0x12
029e 00d1       |    |		Pop_Control	Pop_Count_1
029f c404       |    |		Store	0x2,0x4
02a0 e404       |    |		Load	0x2,0x4
02a1 7010       |p   |		Jump_Nonzero	0x2b2
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 8005       |    |		Call	0x0,0x5
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 8006       |    |		Call	0x0,0x6
02a6 e013       |    |		Load	0x0,0x13
02a7 e5fd       |    |		Load	0x2,-0x3
02a8 017d       | }  |		Execute	Record,Structure_Write
02a9 e013       |    |		Load	0x0,0x13
02aa e5fc       |    |		Load	0x2,-0x4
02ab 017d       | }  |		Execute	Record,Structure_Write
02ac e02a       | *  |		Load	0x0,0x2a
02ad a5fb       |    |		Store_Unchecked	0x2,-0x5
02ae 4800       |H   |		Short_Literal	0x0
02af a5fa       |    |		Store_Unchecked	0x2,-0x6
02b0 00cc       |    |		Action	Pop_Block
02b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b2 8602       |    |		Call	0x3,0x2
02b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b4			TRAP_0278:
02b4 0007       |    |		Action	Break_Optional
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 8005       |    |		Call	0x0,0x5
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 0101       |    |		Execute	Exception,Reraise
02b9 0000 0000  |    |		.BLANK	0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 030e       |    |		.CONST	0x030e								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 e02b       | +  |		Load	0x0,0x2b
02c4 0322       | "  |		Declare_Variable	Record
02c5 4828       |H(  |		Short_Literal	0x28
02c6 00d9       |    |		Load_Top	At_Offset_1
02c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c8 e02b       | +  |		Load	0x0,0x2b
02c9 012c       | ,  |		Execute	Any,Size
02ca 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02cd 4800       |H   |		Short_Literal	0x0
02ce 00d9       |    |		Load_Top	At_Offset_1
02cf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d0 e5fe       |    |		Load	0x2,-0x2
02d1 00d9       |    |		Load_Top	At_Offset_1
02d2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02d3 e5fd       |    |		Load	0x2,-0x3
02d4 00d9       |    |		Load_Top	At_Offset_1
02d5 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02d6 e5fc       |    |		Load	0x2,-0x4
02d7 00d9       |    |		Load_Top	At_Offset_1
02d8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02d9 e5fb       |    |		Load	0x2,-0x5
02da 00d9       |    |		Load_Top	At_Offset_1
02db 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02dc e5ff       |    |		Load	0x2,-0x1
02dd e02c       | ,  |		Load	0x0,0x2c
02de a02d       | -  |		Store_Unchecked	0x0,0x2d
02df e02e       | .  |		Load	0x0,0x2e
02e0 e02f       | /  |		Load	0x0,0x2f
02e1 a030       | 0  |		Store_Unchecked	0x0,0x30
02e2 800e       |    |		Call	0x0,0xe
02e3 e003       |    |		Load	0x0,0x3
02e4 e402       |    |		Load	0x2,0x2
02e5 4801       |H   |		Short_Literal	0x1
02e6 4800       |H   |		Short_Literal	0x0
02e7 4828       |H(  |		Short_Literal	0x28
02e8 e5ff       |    |		Load	0x2,-0x1
02e9 e00f       |    |		Load	0x0,0xf
02ea a010       |    |		Store_Unchecked	0x0,0x10
02eb a011       |    |		Store_Unchecked	0x0,0x11
02ec 8012       |    |		Call	0x0,0x12
02ed 00d1       |    |		Pop_Control	Pop_Count_1
02ee c403       |    |		Store	0x2,0x3
02ef e403       |    |		Load	0x2,0x3
02f0 700a       |p   |		Jump_Nonzero	0x2fb
02f1 4800       |H   |		Short_Literal	0x0
02f2 a5fa       |    |		Store_Unchecked	0x2,-0x6
02f3 4800       |H   |		Short_Literal	0x0
02f4 a5f9       |    |		Store_Unchecked	0x2,-0x7
02f5 e013       |    |		Load	0x0,0x13
02f6 e5f8       |    |		Load	0x2,-0x8
02f7 017d       | }  |		Execute	Record,Structure_Write
02f8 4800       |H   |		Short_Literal	0x0
02f9 a5f7       |    |		Store_Unchecked	0x2,-0x9
02fa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02fb e402       |    |		Load	0x2,0x2
02fc 262a       |&*  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2a
02fd 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
02fe e5f8       |    |		Load	0x2,-0x8
02ff 017d       | }  |		Execute	Record,Structure_Write
0300 e402       |    |		Load	0x2,0x2
0301 262a       |&*  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2a
0302 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0303 a5fa       |    |		Store_Unchecked	0x2,-0x6
0304 e402       |    |		Load	0x2,0x2
0305 262a       |&*  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2a
0306 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0307 a5f9       |    |		Store_Unchecked	0x2,-0x7
0308 e402       |    |		Load	0x2,0x2
0309 262a       |&*  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2a
030a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030b 801a       |    |		Call	0x0,0x1a
030c a5f7       |    |		Store_Unchecked	0x2,-0x9
030d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
030e			TRAP_02c0:
030e 0007       |    |		Action	Break_Optional
030f e5ff       |    |		Load	0x2,-0x1
0310 8005       |    |		Call	0x0,0x5
0311 00d8       |    |		Load_Top	At_Offset_0
0312 0101       |    |		Execute	Exception,Reraise
0313 0000 0000  |    |		.BLANK	0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031e       |    |		.CONST	0x031e								; Address of begin
0319 0341       | A  |		.CONST	0x0341								; Address of exception handler
031a 0003       |    |		.CONST	0x0003								; Number of locals
031b			INIT_0318:
031b e02a       | *  |		Load	0x0,0x2a
031c 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
031e			BODY_0318:
031e e402       |    |		Load	0x2,0x2
031f 2627       |&'  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x27
0320 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0321 a403       |    |		Store_Unchecked	0x2,0x3
0322 e402       |    |		Load	0x2,0x2
0323 2627       |&'  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x27
0324 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0325 e5fc       |    |		Load	0x2,-0x4
0326 017d       | }  |		Execute	Record,Structure_Write
0327 e402       |    |		Load	0x2,0x2
0328 2627       |&'  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x27
0329 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
032a e5fd       |    |		Load	0x2,-0x3
032b 017d       | }  |		Execute	Record,Structure_Write
032c 4801       |H   |		Short_Literal	0x1
032d a5fa       |    |		Store_Unchecked	0x2,-0x6
032e 8803       |    |		Call	0x4,0x3
032f e403       |    |		Load	0x2,0x3
0330 680d       |h   |		Jump_Zero	0x33e
0331 00d9       |    |		Load_Top	At_Offset_1
0332 0229       | )  |		Execute	Access,All_Read
0333 00d8       |    |		Load_Top	At_Offset_0
0334 e5ff       |    |		Load	0x2,-0x1
0335 e031       | 1  |		Load	0x0,0x31
0336 e032       | 2  |		Load	0x0,0x32
0337 e033       | 3  |		Load	0x0,0x33
0338 a034       | 4  |		Store_Unchecked	0x0,0x34
0339 e035       | 5  |		Load	0x0,0x35
033a e036       | 6  |		Load	0x0,0x36
033b a037       | 7  |		Store_Unchecked	0x0,0x37
033c 8038       | 8  |		Call	0x0,0x38
033d 00d2       |    |		Pop_Control	Pop_Count_2
033e 00d9       |    |		Load_Top	At_Offset_1
033f a5fb       |    |		Store_Unchecked	0x2,-0x5
0340 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0341			TRAP_0318:
0341 0007       |    |		Action	Break_Optional
0342 00da       |    |		Load_Top	At_Offset_2
0343 e039       | 9  |		Load	0x0,0x39
0344 e03a       | :  |		Load	0x0,0x3a
0345 a03b       | ;  |		Store_Unchecked	0x0,0x3b
0346 803c       | <  |		Call	0x0,0x3c
0347 003b       | ;  |		Store_Top	Access,At_Offset_3
0348 00d8       |    |		Load_Top	At_Offset_0
0349 0101       |    |		Execute	Exception,Reraise
034a 0000 0000  |    |		.BLANK	0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0359       | Y  |		.CONST	0x0359								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 4801       |H   |		Short_Literal	0x1
0354 e403       |    |		Load	0x2,0x3
0355 e02a       | *  |		Load	0x0,0x2a
0356 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0357 a802       |    |		Store_Unchecked	0x4,0x2
0358 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0359			TRAP_0350:
0359 0007       |    |		Action	Break_Optional
035a e403       |    |		Load	0x2,0x3
035b e03d       | =  |		Load	0x0,0x3d
035c 012c       | ,  |		Execute	Any,Size
035d 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
035e 0271       | q  |		Execute	Discrete,Times
035f 00d8       |    |		Load_Top	At_Offset_0
0360 e007       |    |		Load	0x0,0x7
0361 0260       | `  |		Execute	Discrete,In_Type
0362 7001       |p   |		Jump_Nonzero	0x364
0363 0801       |    |		Execute_Immediate	Raise,0x1
0364 e5ff       |    |		Load	0x2,-0x1
0365 803e       | >  |		Call	0x0,0x3e
0366 00d8       |    |		Load_Top	At_Offset_0
0367 0101       |    |		Execute	Exception,Reraise
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug Table
0368 ; --------------------------------------------------------------------------------------
0368 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68c3,0x0000,0x0001,0x000e
036e 000b 03a6  |    |		.DBG4T	0x000b,0x03a6,0x8000,0x0000
0372 0016 03ad  |    |		.DBG4T	0x0016,0x03ad,0x8000,0x0000
0376 002b 03b4  | +  |		.DBG4T	0x002b,0x03b4,0x0001,0x0000
037a 0043 03bd  | C  |		.DBG4T	0x0043,0x03bd,0x0001,0x0000
037e 005b 03c6  | [  |		.DBG4T	0x005b,0x03c6,0x0001,0x0000
0382 0073 03ce  | s  |		.DBG4T	0x0073,0x03ce,0x0001,0x0000
0386 008b 03d7  |    |		.DBG4T	0x008b,0x03d7,0x0001,0x0000
038a 00a3 03df  |    |		.DBG4T	0x00a3,0x03df,0x0004,0x0000
038e 010b 03f8  |    |		.DBG4T	0x010b,0x03f8,0x0004,0x0000
0392 020b 0424  |   $|		.DBG4T	0x020b,0x0424,0x0004,0x0000
0396 027b 043e  | { >|		.DBG4T	0x027b,0x043e,0x0004,0x0000
039a 02c3 044d  |   M|		.DBG4T	0x02c3,0x044d,0x0004,0x0000
039e 031b 045c  |   \|		.DBG4T	0x031b,0x045c,0x0004,0x0000
03a2 0353 0469  | S i|		.DBG4T	0x0353,0x0469,0x0004,0x0000
03a6 ; --------------------------------------------------------------------------------------
03a6 ; Debug chain
03a6 ; --------------------------------------------------------------------------------------
03a6 0005 0000  |    |		.DBGLEN	0x0005,0x0000
03a8 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013
03ad ; --------------------------------------------------------------------------------------
03ad ; Debug chain
03ad ; --------------------------------------------------------------------------------------
03ad 0005 0000  |    |		.DBGLEN	0x0005,0x0000
03af 0016 0018  |    |		.DBGLNO	0x0016,0x0018,0x001a,0x001c,0x001e
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug chain
03b4 ; --------------------------------------------------------------------------------------
03b4 0002 0005  |    |		.DBGLEN	0x0002,0x0005
03b6 002b 002f  | + /|		.DBGLNO	0x002b,0x002f,0x0032,0x0034,0x0035,0x0037,0x0039
03bd ; --------------------------------------------------------------------------------------
03bd ; Debug chain
03bd ; --------------------------------------------------------------------------------------
03bd 0002 0005  |    |		.DBGLEN	0x0002,0x0005
03bf 0043 0047  | C G|		.DBGLNO	0x0043,0x0047,0x004a,0x004c,0x004d,0x004f,0x0051
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug chain
03c6 ; --------------------------------------------------------------------------------------
03c6 0002 0004  |    |		.DBGLEN	0x0002,0x0004
03c8 005b 005f  | [ _|		.DBGLNO	0x005b,0x005f,0x0062,0x0064,0x0065,0x0067
03ce ; --------------------------------------------------------------------------------------
03ce ; Debug chain
03ce ; --------------------------------------------------------------------------------------
03ce 0003 0004  |    |		.DBGLEN	0x0003,0x0004
03d0 0073 0077  | s w|		.DBGLNO	0x0073,0x0077,0x0079,0x007c,0x007e,0x007f,0x0081
03d7 ; --------------------------------------------------------------------------------------
03d7 ; Debug chain
03d7 ; --------------------------------------------------------------------------------------
03d7 0002 0004  |    |		.DBGLEN	0x0002,0x0004
03d9 008b 008f  |    |		.DBGLNO	0x008b,0x008f,0x0092,0x0094,0x0095,0x0097
03df ; --------------------------------------------------------------------------------------
03df ; Debug chain
03df ; --------------------------------------------------------------------------------------
03df 0000 0017  |    |		.DBGLEN	0x0000,0x0017
03e1 00a3 00ba  |    |		.DBGLNO	0x00a3,0x00ba,0x00c6,0x00c8,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e4,0x00e8,0x00ec,0x00f0,0x00f4,0x00f8,0x00fe,0x0100
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug chain
03f8 ; --------------------------------------------------------------------------------------
03f8 0000 002a  |   *|		.DBGLEN	0x0000,0x002a
03fa 010b 0122  |   "|		.DBGLNO	0x010b,0x0122,0x012e,0x0130,0x0132,0x0134,0x0136,0x0138,0x013d,0x0142,0x0147,0x014c,0x0151,0x0156,0x015c,0x0161,0x0167,0x016c,0x0171,0x0176,0x017c,0x0182,0x018d,0x01a5,0x01b1,0x01b3,0x01b5,0x01b7,0x01b9,0x01bb,0x01c0,0x01c5,0x01ca,0x01cf,0x01d4,0x01d9,0x01df,0x01e6,0x01f3,0x01fb,0x0201,0x0203
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug chain
0424 ; --------------------------------------------------------------------------------------
0424 0000 0018  |    |		.DBGLEN	0x0000,0x0018
0426 020b 0222  |   "|		.DBGLNO	0x020b,0x0222,0x022e,0x0230,0x0233,0x0236,0x0238,0x023a,0x023c,0x023e,0x0241,0x0243,0x0245,0x0247,0x0249,0x024e,0x0253,0x0257,0x025b,0x025f,0x0263,0x0268,0x026f,0x0271
043e ; --------------------------------------------------------------------------------------
043e ; Debug chain
043e ; --------------------------------------------------------------------------------------
043e 0000 000d  |    |		.DBGLEN	0x0000,0x000d
0440 027d 0294  | }  |		.DBGLNO	0x027d,0x0294,0x02a0,0x02a2,0x02a4,0x02a6,0x02a9,0x02ac,0x02ae,0x02b0,0x02b2,0x02b5,0x02b7
044d ; --------------------------------------------------------------------------------------
044d ; Debug chain
044d ; --------------------------------------------------------------------------------------
044d 0000 000d  |    |		.DBGLEN	0x0000,0x000d
044f 02c3 02e3  |    |		.DBGLNO	0x02c3,0x02e3,0x02ef,0x02f1,0x02f3,0x02f5,0x02f8,0x02fb,0x0300,0x0304,0x0308,0x030f,0x0311
045c ; --------------------------------------------------------------------------------------
045c ; Debug chain
045c ; --------------------------------------------------------------------------------------
045c 0001 000a  |    |		.DBGLEN	0x0001,0x000a
045e 031b 031e  |    |		.DBGLNO	0x031b,0x031e,0x0322,0x0327,0x032c,0x032e,0x032f,0x0331,0x033e,0x0342,0x0348
0469 ; --------------------------------------------------------------------------------------
0469 ; Debug chain
0469 ; --------------------------------------------------------------------------------------
0469 0000 0003  |    |		.DBGLEN	0x0000,0x0003
046b 0353 035a  | S Z|		.DBGLNO	0x0353,0x035a,0x0366
046e 0000 0000  |    |		.BLANK	0000[0x192]