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

⟦cbd69b072⟧

    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 0350       | P  |		.CONST	0x0350								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008a       |    |		.CONST	0x008a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0026       | &  |		.CONST	0x0026								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 00c4       |    |		Action	Make_Default
000d 4818       |H   |		Short_Literal	0x18
000e 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000f 00c4       |    |		Action	Make_Default
0010 e002       |    |		Load	0x0,0x2
0011 0266       | f  |		Execute	Discrete,Bounds
0012 00db       |    |		Load_Top	At_Offset_3
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 4801       |H   |		Short_Literal	0x1
0015 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0016 00d8       |    |		Load_Top	At_Offset_0
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 4818       |H   |		Short_Literal	0x18
0019 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
001a 00d8       |    |		Load_Top	At_Offset_0
001b 0221       | !  |		Execute	Access,Allow_Deallocate
001c 0007       |    |		Action	Break_Optional
001d 0007       |    |		Action	Break_Optional
001e 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0020 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0022 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0024 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0026 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0028 4804       |H   |		Short_Literal	0x4
0029 0093 013b  |   ;|		push_full_address	INIT_0138
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
002d e003       |    |		Load	0x0,0x3
002e 00d8       |    |		Load_Top	At_Offset_0
002f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0030 4802       |H   |		Short_Literal	0x2
0031 032e       | .  |		Declare_Type	Record,Defined,Visible
0032 00d8       |    |		Load_Top	At_Offset_0
0033 0322       | "  |		Declare_Variable	Record
0034 6067       |`g  |		Indirect_Literal	Discrete,0x9c,{0xffffffff, 0x80000000}
0035 00d9       |    |		Load_Top	At_Offset_1
0036 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0037 6064       |`d  |		Indirect_Literal	Discrete,0x9c,{0xffffffff, 0x80000000}
0038 00d9       |    |		Load_Top	At_Offset_1
0039 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
003a 0129       | )  |		Execute	Any,Make_Visible
003b c20d       |    |		Store	0x1,0xd
003c 4802       |H   |		Short_Literal	0x2
003d 032b       | +  |		Declare_Type	Record,Incomplete,Visible
003e 00d8       |    |		Load_Top	At_Offset_0
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 e20e       |    |		Load	0x1,0xe
0041 03c7       |    |		Complete_Type	Access,By_Defining
0042 e20e       |    |		Load	0x1,0xe
0043 0221       | !  |		Execute	Access,Allow_Deallocate
0044 0007       |    |		Action	Break_Optional
0045 e20e       |    |		Load	0x1,0xe
0046 0129       | )  |		Execute	Any,Make_Visible
0047 c20f       |    |		Store	0x1,0xf
0048 00bf       |    |		Action	Accept_Activation
0049 00d9       |    |		Load_Top	At_Offset_1
004a e004       |    |		Load	0x0,0x4
004b 02a0       |    |		Declare_Subprogram	Null_Subprogram
004c 00db       |    |		Load_Top	At_Offset_3
004d 0326       | &  |		Complete_Type	Record,By_Defining
004e e20e       |    |		Load	0x1,0xe
004f 03c4       |    |		Complete_Type	Access,By_Component_Completion
0050 e20e       |    |		Load	0x1,0xe
0051 0221       | !  |		Execute	Access,Allow_Deallocate
0052 a005       |    |		Store_Unchecked	0x0,0x5
0053 00c6       |    |		Action	Check_Subprogram_Elaborated
0054 00d8       |    |		Load_Top	At_Offset_0
0055 e20e       |    |		Load	0x1,0xe
0056 e006       |    |		Load	0x0,0x6
0057 e007       |    |		Load	0x0,0x7
0058 4800       |H   |		Short_Literal	0x0
0059 0007       |    |		Action	Break_Optional
005a e008       |    |		Load	0x0,0x8
005b 03bc       |    |		Declare_Variable	Access,By_Allocation
005c 00d8       |    |		Load_Top	At_Offset_0
005d 00e0       |    |		Load_Encached	Standard_Cache
005e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
005f e218       |    |		Load	0x1,0x18
0060 0322       | "  |		Declare_Variable	Record
0061 e20d       |    |		Load	0x1,0xd
0062 00d9       |    |		Load_Top	At_Offset_1
0063 017d       | }  |		Execute	Record,Structure_Write
0064 a005       |    |		Store_Unchecked	0x0,0x5
0065 00c6       |    |		Action	Check_Subprogram_Elaborated
0066 e210       |    |		Load	0x1,0x10
0067 e211       |    |		Load	0x1,0x11
0068 e009       |    |		Load	0x0,0x9
0069 e00a       |    |		Load	0x0,0xa
006a 4800       |H   |		Short_Literal	0x0
006b 0007       |    |		Action	Break_Optional
006c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 029d 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call
0070 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 e218       |    |		Load	0x1,0x18
0079 e004       |    |		Load	0x0,0x4
007a 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
007b e20e       |    |		Load	0x1,0xe
007c 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
007d a00b       |    |		Store_Unchecked	0x0,0xb
007e e00c       |    |		Load	0x0,0xc
007f a00d       |    |		Store_Unchecked	0x0,0xd
0080 e21a       |    |		Load	0x1,0x1a
0081 e21b       |    |		Load	0x1,0x1b
0082 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0083 a005       |    |		Store_Unchecked	0x0,0x5
0084 e20d       |    |		Load	0x1,0xd
0085 480d       |H   |		Short_Literal	0xd
0086 e217       |    |		Load	0x1,0x17
0087 020e       |    |		Execute	Module,Augment_Imports
0088 e217       |    |		Load	0x1,0x17
0089 020d       |    |		Execute	Module,Elaborate
008a			BODY_0008:
008a 00bc       |    |		Action	Signal_Activated
008b 00bb       |    |		Action	Signal_Completion
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00da       |    |		Load_Top	At_Offset_2
0094 e221       | !  |		Load	0x1,0x21
0095 e222       | "  |		Load	0x1,0x22
0096 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0097 8005       |    |		Call	0x0,0x5
0098 003b       | ;  |		Store_Top	Access,At_Offset_3
0099 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009a 0000 0000  |    |		.XXX[0x2]
009c ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 e20e       |    |		Load	0x1,0xe
00a5 022f       | /  |		Execute	Access,Equal
00a6 7006       |p   |		Jump_Nonzero	0xad
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 0227       | '  |		Execute	Access,All_Reference
00a9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00aa e20d       |    |		Load	0x1,0xd
00ab 017f       |    |		Execute	Record,Equal
00ac 6802       |h   |		Jump_Zero	0xaf
00ad e00c       |    |		Load	0x0,0xc
00ae 0257       | W  |		Execute	Discrete,Raise
00af 00da       |    |		Load_Top	At_Offset_2
00b0 0227       | '  |		Execute	Access,All_Reference
00b1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00b2 0320       |    |		Declare_Variable	Record,Duplicate
00b3 00cd       |    |		Action	Spare6_Action
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e20e       |    |		Load	0x1,0xe
00bd 022f       | /  |		Execute	Access,Equal
00be 7004       |p   |		Jump_Nonzero	0xc3
00bf 00db       |    |		Load_Top	At_Offset_3
00c0 e20e       |    |		Load	0x1,0xe
00c1 022f       | /  |		Execute	Access,Equal
00c2 6802       |h   |		Jump_Zero	0xc5
00c3 4801       |H   |		Short_Literal	0x1
00c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 0227       | '  |		Execute	Access,All_Reference
00c7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00c8 e5fe       |    |		Load	0x2,-0x2
00c9 0227       | '  |		Execute	Access,All_Reference
00ca 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00cb 017f       |    |		Execute	Record,Equal
00cc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e20e       |    |		Load	0x1,0xe
00d5 022f       | /  |		Execute	Access,Equal
00d6 6802       |h   |		Jump_Zero	0xd9
00d7 4801       |H   |		Short_Literal	0x1
00d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d9 00db       |    |		Load_Top	At_Offset_3
00da e20d       |    |		Load	0x1,0xd
00db 017f       |    |		Execute	Record,Equal
00dc 7006       |p   |		Jump_Nonzero	0xe3
00dd 00da       |    |		Load_Top	At_Offset_2
00de 0227       | '  |		Execute	Access,All_Reference
00df 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 017f       |    |		Execute	Record,Equal
00e2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e3 4801       |H   |		Short_Literal	0x1
00e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
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			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec e5fe       |    |		Load	0x2,-0x2
00ed 017f       |    |		Execute	Record,Equal
00ee 700a       |p   |		Jump_Nonzero	0xf9
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 e20d       |    |		Load	0x1,0xd
00f1 017f       |    |		Execute	Record,Equal
00f2 7004       |p   |		Jump_Nonzero	0xf7
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 e20d       |    |		Load	0x1,0xd
00f5 017f       |    |		Execute	Record,Equal
00f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f7 4801       |H   |		Short_Literal	0x1
00f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f9 4801       |H   |		Short_Literal	0x1
00fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105       |    |		.CONST	0x0105								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0105			BODY_0100:
0105 e21f       |    |		Load	0x1,0x1f
0106 800b       |    |		Call	0x0,0xb
0107 8402       |    |		Call	0x2,0x2
0108 e21f       |    |		Load	0x1,0x1f
0109 800d       |    |		Call	0x0,0xd
010a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010b 0000 0000  |    |		.BLANK	0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 012a       | *  |		.CONST	0x012a								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e220       |    |		Load	0x1,0x20
0114 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0115 601a       |`   |		Indirect_Literal	Discrete,0x130,{0x00000000, 0x7fffffff}
0116 027f       |    |		Execute	Discrete,Equal
0117 6809       |h   |		Jump_Zero	0x121
0118 4800       |H   |		Short_Literal	0x0
0119 e220       |    |		Load	0x1,0x20
011a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
011b e220       |    |		Load	0x1,0x20
011c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011d 0a01       |    |		Execute_Immediate	Plus,0x1
011e e220       |    |		Load	0x1,0x20
011f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0120 7805       |x   |		Jump	0x126
0121 e220       |    |		Load	0x1,0x20
0122 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0123 0a01       |    |		Execute_Immediate	Plus,0x1
0124 e220       |    |		Load	0x1,0x20
0125 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0126 e220       |    |		Load	0x1,0x20
0127 e5ff       |    |		Load	0x2,-0x1
0128 017d       | }  |		Execute	Record,Structure_Write
0129 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012a			TRAP_0110:
012a 0007       |    |		Action	Break_Optional
012b e21f       |    |		Load	0x1,0x1f
012c 800d       |    |		Call	0x0,0xd
012d 00d8       |    |		Load_Top	At_Offset_0
012e 0101       |    |		Execute	Exception,Reraise
012f 0000       |    |		.XXX[0x1]
0130 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0170       | p  |		.CONST	0x0170								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 001c       |    |		.CONST	0x001c								; Number of locals
013b			INIT_0138:
013b 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
013d 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
013f 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0141 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0143 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0145 00bf       |    |		Action	Accept_Activation
0146 e001       |    |		Load	0x0,0x1
0147 0322       | "  |		Declare_Variable	Record
0148 4800       |H   |		Short_Literal	0x0
0149 483f       |H?  |		Short_Literal	0x3f
014a e20f       |    |		Load	0x1,0xf
014b 02a0       |    |		Declare_Subprogram	Null_Subprogram
014c 4801       |H   |		Short_Literal	0x1
014d 035d       | ]  |		Declare_Type	Array,Defined
014e 0007       |    |		Action	Break_Optional
014f 4818       |H   |		Short_Literal	0x18
0150 03cc       |    |		Declare_Type	Access,Incomplete,Accesses_Protected
0151 0007       |    |		Action	Break_Optional
0152 00d8       |    |		Load_Top	At_Offset_0
0153 e002       |    |		Load	0x0,0x2
0154 00d8       |    |		Load_Top	At_Offset_0
0155 e217       |    |		Load	0x1,0x17
0156 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
0158 4804       |H   |		Short_Literal	0x4
0159 032d       | -  |		Declare_Type	Record,Defined
015a 00d8       |    |		Load_Top	At_Offset_0
015b 02a0       |    |		Declare_Subprogram	Null_Subprogram
015c 00db       |    |		Load_Top	At_Offset_3
015d 03c7       |    |		Complete_Type	Access,By_Defining
015e 00d9       |    |		Load_Top	At_Offset_1
015f 0221       | !  |		Execute	Access,Allow_Deallocate
0160 00d9       |    |		Load_Top	At_Offset_1
0161 0007       |    |		Action	Break_Optional
0162 00da       |    |		Load_Top	At_Offset_2
0163 0007       |    |		Action	Break_Optional
0164 e002       |    |		Load	0x0,0x2
0165 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0166 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0169 00c7       |    |		Action	Elaborate_Subprogram
016a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
016b 00c7       |    |		Action	Elaborate_Subprogram
016c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
016f 00c7       |    |		Action	Elaborate_Subprogram
0170			BODY_0138:
0170 e216       |    |		Load	0x1,0x16
0171 8003       |    |		Call	0x0,0x3
0172 00d1       |    |		Pop_Control	Pop_Count_1
0173 00bc       |    |		Action	Signal_Activated
0174 00bb       |    |		Action	Signal_Completion
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017f       |    |		.CONST	0x017f								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0003       |    |		.CONST	0x0003								; Number of locals
017b			INIT_0178:
017b e004       |    |		Load	0x0,0x4
017c 03bc       |    |		Declare_Variable	Access,By_Allocation
017d 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
017f			BODY_0178:
017f e216       |    |		Load	0x1,0x16
0180 00da       |    |		Load_Top	At_Offset_2
0181 0227       | '  |		Execute	Access,All_Reference
0182 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0183 e5ff       |    |		Load	0x2,-0x1
0184 7002       |p   |		Jump_Nonzero	0x187
0185 e004       |    |		Load	0x0,0x4
0186 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0187 e005       |    |		Load	0x0,0x5
0188 8006       |    |		Call	0x0,0x6
0189 8403       |    |		Call	0x2,0x3
018a 0831       | 1  |		Execute_Immediate	Raise,0x31
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019c       |    |		.CONST	0x019c								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0006       |    |		.CONST	0x0006								; Number of locals
0193			INIT_0190:
0193 e002       |    |		Load	0x0,0x2
0194 0007       |    |		Action	Break_Optional
0195 e002       |    |		Load	0x0,0x2
0196 0007       |    |		Action	Break_Optional
0197 e218       |    |		Load	0x1,0x18
0198 0007       |    |		Action	Break_Optional
0199 e20f       |    |		Load	0x1,0xf
019a 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
019c			BODY_0190:
019c e5ff       |    |		Load	0x2,-0x1
019d e004       |    |		Load	0x0,0x4
019e 022f       | /  |		Execute	Access,Equal
019f 6802       |h   |		Jump_Zero	0x1a2
01a0 e20f       |    |		Load	0x1,0xf
01a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a2 e5ff       |    |		Load	0x2,-0x1
01a3 0227       | '  |		Execute	Access,All_Reference
01a4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01a5 e216       |    |		Load	0x1,0x16
01a6 017e       | ~  |		Execute	Record,Not_Equal
01a7 6802       |h   |		Jump_Zero	0x1aa
01a8 e007       |    |		Load	0x0,0x7
01a9 0257       | W  |		Execute	Discrete,Raise
01aa e005       |    |		Load	0x0,0x5
01ab 8006       |    |		Call	0x0,0x6
01ac 8406       |    |		Call	0x2,0x6
01ad e005       |    |		Load	0x0,0x5
01ae 8008       |    |		Call	0x0,0x8
01af 00d9       |    |		Load_Top	At_Offset_1
01b0 e20f       |    |		Load	0x1,0xf
01b1 0223       | #  |		Execute	Access,Check_In_Type
01b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf       |    |		.CONST	0x01bf								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb e20f       |    |		Load	0x1,0xf
01bc 00db       |    |		Load_Top	At_Offset_3
01bd 8214       |    |		Call	0x1,0x14
01be 0039       | 9  |		Store_Top	Access,At_Offset_1
01bf			BODY_01b8:
01bf e004       |    |		Load	0x0,0x4
01c0 a5ff       |    |		Store_Unchecked	0x2,-0x1
01c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d4       |    |		.CONST	0x01d4								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0006       |    |		.CONST	0x0006								; Number of locals
01cb			INIT_01c8:
01cb e002       |    |		Load	0x0,0x2
01cc 0007       |    |		Action	Break_Optional
01cd e002       |    |		Load	0x0,0x2
01ce 0007       |    |		Action	Break_Optional
01cf e218       |    |		Load	0x1,0x18
01d0 0007       |    |		Action	Break_Optional
01d1 e20f       |    |		Load	0x1,0xf
01d2 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
01d4			BODY_01c8:
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 e004       |    |		Load	0x0,0x4
01d6 022f       | /  |		Execute	Access,Equal
01d7 6802       |h   |		Jump_Zero	0x1da
01d8 e20f       |    |		Load	0x1,0xf
01d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01da e5ff       |    |		Load	0x2,-0x1
01db 0227       | '  |		Execute	Access,All_Reference
01dc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01dd e216       |    |		Load	0x1,0x16
01de 017e       | ~  |		Execute	Record,Not_Equal
01df 6802       |h   |		Jump_Zero	0x1e2
01e0 e007       |    |		Load	0x0,0x7
01e1 0257       | W  |		Execute	Discrete,Raise
01e2 e5ff       |    |		Load	0x2,-0x1
01e3 0227       | '  |		Execute	Access,All_Reference
01e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01e5 4840       |H@  |		Short_Literal	0x40
01e6 026f       | o  |		Execute	Discrete,Remainder
01e7 c403       |    |		Store	0x2,0x3
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 0227       | '  |		Execute	Access,All_Reference
01ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01eb e403       |    |		Load	0x2,0x3
01ec 0272       | r  |		Execute	Discrete,Minus
01ed c402       |    |		Store	0x2,0x2
01ee e005       |    |		Load	0x0,0x5
01ef 8006       |    |		Call	0x0,0x6
01f0 8406       |    |		Call	0x2,0x6
01f1 e005       |    |		Load	0x0,0x5
01f2 8008       |    |		Call	0x0,0x8
01f3 00d9       |    |		Load_Top	At_Offset_1
01f4 e20f       |    |		Load	0x1,0xf
01f5 0223       | #  |		Execute	Access,Check_In_Type
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01ff       |    |		.CONST	0x01ff								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb e20f       |    |		Load	0x1,0xf
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 8214       |    |		Call	0x1,0x14
01fe 0039       | 9  |		Store_Top	Access,At_Offset_1
01ff			BODY_01f8:
01ff e004       |    |		Load	0x0,0x4
0200 a5ff       |    |		Store_Unchecked	0x2,-0x1
0201 00d8       |    |		Load_Top	At_Offset_0
0202 e20f       |    |		Load	0x1,0xf
0203 0122       | "  |		Execute	Any,Make_Root_Type
0204 0226       | &  |		Execute	Access,Convert
0205 8210       |    |		Call	0x1,0x10
0206 0039       | 9  |		Store_Top	Access,At_Offset_1
0207 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4601       |F   |		Jump_Case	0x2
020c 7801       |x   |		Jump	0x20e								; case 0x0
020d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
020e 4800       |H   |		Short_Literal	0x0
020f 00db       |    |		Load_Top	At_Offset_3
0210 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0211 4800       |H   |		Short_Literal	0x0
0212 00db       |    |		Load_Top	At_Offset_3
0213 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0214 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0215 0000 0000  |    |		.XXX[0x3]
0217 0000       |    |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 028c       |    |		.CONST	0x028c								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b e21a       |    |		Load	0x1,0x1a
021c 701f       |p   |		Jump_Nonzero	0x23c
021d e218       |    |		Load	0x1,0x18
021e 03bc       |    |		Declare_Variable	Access,By_Allocation
021f 00d8       |    |		Load_Top	At_Offset_0
0220 0227       | '  |		Execute	Access,All_Reference
0221 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0222 a21a       |    |		Store_Unchecked	0x1,0x1a
0223 e21a       |    |		Load	0x1,0x1a
0224 a21b       |    |		Store_Unchecked	0x1,0x1b
0225 4801       |H   |		Short_Literal	0x1
0226 e21b       |    |		Load	0x1,0x1b
0227 0227       | '  |		Execute	Access,All_Reference
0228 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0229 4801       |H   |		Short_Literal	0x1
022a e21b       |    |		Load	0x1,0x1b
022b 0227       | '  |		Execute	Access,All_Reference
022c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
022d e5ff       |    |		Load	0x2,-0x1
022e 4800       |H   |		Short_Literal	0x0
022f e21a       |    |		Load	0x1,0x1a
0230 0227       | '  |		Execute	Access,All_Reference
0231 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0232 01d6       |    |		Execute	Vector,Field_Write
0233 4800       |H   |		Short_Literal	0x0
0234 e402       |    |		Load	0x2,0x2
0235 0227       | '  |		Execute	Access,All_Reference
0236 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0237 e005       |    |		Load	0x0,0x5
0238 8008       |    |		Call	0x0,0x8
0239 e402       |    |		Load	0x2,0x2
023a 00cb       |    |		Action	Pop_Block_With_Result
023b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023c 00cf       |    |		Action	Mark_Auxiliary
023d 00cf       |    |		Action	Mark_Auxiliary
023e e21b       |    |		Load	0x1,0x1b
023f 0227       | '  |		Execute	Access,All_Reference
0240 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0241 01dc       |    |		Execute	Vector,Last
0242 e21b       |    |		Load	0x1,0x1b
0243 0227       | '  |		Execute	Access,All_Reference
0244 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0245 0263       | c  |		Execute	Discrete,Above_Bound
0246 702f       |p/  |		Jump_Nonzero	0x276
0247 00d8       |    |		Load_Top	At_Offset_0
0248 e21b       |    |		Load	0x1,0x1b
0249 0227       | '  |		Execute	Access,All_Reference
024a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
024b 01d7       |    |		Execute	Vector,Field_Read
024c 7027       |p'  |		Jump_Nonzero	0x274
024d e21b       |    |		Load	0x1,0x1b
024e 0227       | '  |		Execute	Access,All_Reference
024f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0250 0a01       |    |		Execute_Immediate	Plus,0x1
0251 e21b       |    |		Load	0x1,0x1b
0252 0227       | '  |		Execute	Access,All_Reference
0253 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0254 e21b       |    |		Load	0x1,0x1b
0255 0227       | '  |		Execute	Access,All_Reference
0256 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0257 0c40       | @  |		Execute_Immediate	Greater_Equal,0x40
0258 6805       |h   |		Jump_Zero	0x25e
0259 4840       |H@  |		Short_Literal	0x40
025a e21b       |    |		Load	0x1,0x1b
025b 0227       | '  |		Execute	Access,All_Reference
025c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
025d 7805       |x   |		Jump	0x263
025e 00d8       |    |		Load_Top	At_Offset_0
025f 0a01       |    |		Execute_Immediate	Plus,0x1
0260 e21b       |    |		Load	0x1,0x1b
0261 0227       | '  |		Execute	Access,All_Reference
0262 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0263 e5ff       |    |		Load	0x2,-0x1
0264 00d9       |    |		Load_Top	At_Offset_1
0265 e21b       |    |		Load	0x1,0x1b
0266 0227       | '  |		Execute	Access,All_Reference
0267 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0268 01d6       |    |		Execute	Vector,Field_Write
0269 e21c       |    |		Load	0x1,0x1c
026a 00d9       |    |		Load_Top	At_Offset_1
026b 0273       | s  |		Execute	Discrete,Plus
026c e402       |    |		Load	0x2,0x2
026d 0227       | '  |		Execute	Access,All_Reference
026e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
026f e005       |    |		Load	0x0,0x5
0270 8008       |    |		Call	0x0,0x8
0271 e402       |    |		Load	0x2,0x2
0272 00cb       |    |		Action	Pop_Block_With_Result
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 00c8       |    |		Action	Pop_Auxiliary_Range
0275 3fd1       |?   |		Loop_Increasing	0x247
0276 00ce       |    |		Action	Pop_Auxiliary
0277 e21c       |    |		Load	0x1,0x1c
0278 0a40       | @  |		Execute_Immediate	Plus,0x40
0279 c21c       |    |		Store	0x1,0x1c
027a e21b       |    |		Load	0x1,0x1b
027b 0227       | '  |		Execute	Access,All_Reference
027c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027d 700c       |p   |		Jump_Nonzero	0x28a
027e e218       |    |		Load	0x1,0x18
027f 03bc       |    |		Declare_Variable	Access,By_Allocation
0280 00d8       |    |		Load_Top	At_Offset_0
0281 0227       | '  |		Execute	Access,All_Reference
0282 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0283 e21b       |    |		Load	0x1,0x1b
0284 0227       | '  |		Execute	Access,All_Reference
0285 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0286 e21b       |    |		Load	0x1,0x1b
0287 0227       | '  |		Execute	Access,All_Reference
0288 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0289 a21b       |    |		Store_Unchecked	0x1,0x1b
028a 00c9       |    |		Action	Pop_Auxiliary_Loop
028b 7fb1       |    |		Jump	0x23d
028c			TRAP_0218:
028c 0007       |    |		Action	Break_Optional
028d e21a       |    |		Load	0x1,0x1a
028e a21b       |    |		Store_Unchecked	0x1,0x1b
028f 4800       |H   |		Short_Literal	0x0
0290 a21c       |    |		Store_Unchecked	0x1,0x1c
0291 e402       |    |		Load	0x2,0x2
0292 e009       |    |		Load	0x0,0x9
0293 e00a       |    |		Load	0x0,0xa
0294 a00b       |    |		Store_Unchecked	0x0,0xb
0295 800c       |    |		Call	0x0,0xc
0296 c402       |    |		Store	0x2,0x2
0297 e005       |    |		Load	0x0,0x5
0298 8008       |    |		Call	0x0,0x8
0299 00d8       |    |		Load_Top	At_Offset_0
029a 0101       |    |		Execute	Exception,Reraise
029b 0000 0000  |    |		.BLANK	0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 02d1       |    |		.CONST	0x02d1								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e5ff       |    |		Load	0x2,-0x1
02a4 0227       | '  |		Execute	Access,All_Reference
02a5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a6 4840       |H@  |		Short_Literal	0x40
02a7 026f       | o  |		Execute	Discrete,Remainder
02a8 c403       |    |		Store	0x2,0x3
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ac e403       |    |		Load	0x2,0x3
02ad 0272       | r  |		Execute	Discrete,Minus
02ae c402       |    |		Store	0x2,0x2
02af e402       |    |		Load	0x2,0x2
02b0 e21c       |    |		Load	0x1,0x1c
02b1 027c       | |  |		Execute	Discrete,Less
02b2 6803       |h   |		Jump_Zero	0x2b6
02b3 e21a       |    |		Load	0x1,0x1a
02b4 a404       |    |		Store_Unchecked	0x2,0x4
02b5 7806       |x   |		Jump	0x2bc
02b6 e21b       |    |		Load	0x1,0x1b
02b7 a404       |    |		Store_Unchecked	0x2,0x4
02b8 e402       |    |		Load	0x2,0x2
02b9 e21c       |    |		Load	0x1,0x1c
02ba 0272       | r  |		Execute	Discrete,Minus
02bb c402       |    |		Store	0x2,0x2
02bc 00cf       |    |		Action	Mark_Auxiliary
02bd 7808       |x   |		Jump	0x2c6
02be e404       |    |		Load	0x2,0x4
02bf 0227       | '  |		Execute	Access,All_Reference
02c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c1 a404       |    |		Store_Unchecked	0x2,0x4
02c2 e402       |    |		Load	0x2,0x2
02c3 0ac0       |    |		Execute_Immediate	Plus,-0x40
02c4 c402       |    |		Store	0x2,0x2
02c5 00c9       |    |		Action	Pop_Auxiliary_Loop
02c6 e402       |    |		Load	0x2,0x2
02c7 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02c8 77f5       |w   |		Jump_Nonzero	0x2be
02c9 00ce       |    |		Action	Pop_Auxiliary
02ca e403       |    |		Load	0x2,0x3
02cb e404       |    |		Load	0x2,0x4
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02ce 01d7       |    |		Execute	Vector,Field_Read
02cf a405       |    |		Store_Unchecked	0x2,0x5
02d0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d1			TRAP_02a0:
02d1 0007       |    |		Action	Break_Optional
02d2 e005       |    |		Load	0x0,0x5
02d3 8008       |    |		Call	0x0,0x8
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 0101       |    |		Execute	Exception,Reraise
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0331       | 1  |		.CONST	0x0331								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
02dd			BODY_02d8:
02dd e402       |    |		Load	0x2,0x2
02de e21c       |    |		Load	0x1,0x1c
02df 027c       | |  |		Execute	Discrete,Less
02e0 6815       |h   |		Jump_Zero	0x2f6
02e1 e21a       |    |		Load	0x1,0x1a
02e2 a404       |    |		Store_Unchecked	0x2,0x4
02e3 e402       |    |		Load	0x2,0x2
02e4 a21c       |    |		Store_Unchecked	0x1,0x1c
02e5 00cf       |    |		Action	Mark_Auxiliary
02e6 7808       |x   |		Jump	0x2ef
02e7 e404       |    |		Load	0x2,0x4
02e8 0227       | '  |		Execute	Access,All_Reference
02e9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ea a404       |    |		Store_Unchecked	0x2,0x4
02eb e402       |    |		Load	0x2,0x2
02ec 0ac0       |    |		Execute_Immediate	Plus,-0x40
02ed c402       |    |		Store	0x2,0x2
02ee 00c9       |    |		Action	Pop_Auxiliary_Loop
02ef e402       |    |		Load	0x2,0x2
02f0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02f1 77f5       |w   |		Jump_Nonzero	0x2e7
02f2 00ce       |    |		Action	Pop_Auxiliary
02f3 e404       |    |		Load	0x2,0x4
02f4 a21b       |    |		Store_Unchecked	0x1,0x1b
02f5 7814       |x   |		Jump	0x30a
02f6 e21b       |    |		Load	0x1,0x1b
02f7 a404       |    |		Store_Unchecked	0x2,0x4
02f8 e402       |    |		Load	0x2,0x2
02f9 e21c       |    |		Load	0x1,0x1c
02fa 0272       | r  |		Execute	Discrete,Minus
02fb c402       |    |		Store	0x2,0x2
02fc 00cf       |    |		Action	Mark_Auxiliary
02fd 7808       |x   |		Jump	0x306
02fe e404       |    |		Load	0x2,0x4
02ff 0227       | '  |		Execute	Access,All_Reference
0300 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0301 a404       |    |		Store_Unchecked	0x2,0x4
0302 e402       |    |		Load	0x2,0x2
0303 0ac0       |    |		Execute_Immediate	Plus,-0x40
0304 c402       |    |		Store	0x2,0x2
0305 00c9       |    |		Action	Pop_Auxiliary_Loop
0306 e402       |    |		Load	0x2,0x2
0307 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0308 77f5       |w   |		Jump_Nonzero	0x2fe
0309 00ce       |    |		Action	Pop_Auxiliary
030a e404       |    |		Load	0x2,0x4
030b 0227       | '  |		Execute	Access,All_Reference
030c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
030d e403       |    |		Load	0x2,0x3
030e 027c       | |  |		Execute	Discrete,Less
030f 6804       |h   |		Jump_Zero	0x314
0310 e403       |    |		Load	0x2,0x3
0311 e404       |    |		Load	0x2,0x4
0312 0227       | '  |		Execute	Access,All_Reference
0313 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0314 e404       |    |		Load	0x2,0x4
0315 0227       | '  |		Execute	Access,All_Reference
0316 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0317 0aff       |    |		Execute_Immediate	Plus,-0x1
0318 e404       |    |		Load	0x2,0x4
0319 0227       | '  |		Execute	Access,All_Reference
031a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
031b e403       |    |		Load	0x2,0x3
031c e404       |    |		Load	0x2,0x4
031d 0227       | '  |		Execute	Access,All_Reference
031e 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
031f 01d7       |    |		Execute	Vector,Field_Read
0320 a405       |    |		Store_Unchecked	0x2,0x5
0321 e20f       |    |		Load	0x1,0xf
0322 e403       |    |		Load	0x2,0x3
0323 e404       |    |		Load	0x2,0x4
0324 0227       | '  |		Execute	Access,All_Reference
0325 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0326 01d6       |    |		Execute	Vector,Field_Write
0327 e00d       |    |		Load	0x0,0xd
0328 e5ff       |    |		Load	0x2,-0x1
0329 0227       | '  |		Execute	Access,All_Reference
032a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
032b 600c       |`   |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x7fffffff}
032c e5ff       |    |		Load	0x2,-0x1
032d 0227       | '  |		Execute	Access,All_Reference
032e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
032f 8602       |    |		Call	0x3,0x2
0330 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0331			TRAP_02d8:
0331 0007       |    |		Action	Break_Optional
0332 e005       |    |		Load	0x0,0x5
0333 8008       |    |		Call	0x0,0x8
0334 00d8       |    |		Load_Top	At_Offset_0
0335 0101       |    |		Execute	Exception,Reraise
0336 0000 0000  |    |		.XXX[0x2]
0338 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0345       | E  |		.CONST	0x0345								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e5ff       |    |		Load	0x2,-0x1
0344 0007       |    |		Action	Break_Optional
0345			BODY_0340:
0345 00d8       |    |		Load_Top	At_Offset_0
0346 e009       |    |		Load	0x0,0x9
0347 e00a       |    |		Load	0x0,0xa
0348 a00b       |    |		Store_Unchecked	0x0,0xb
0349 800c       |    |		Call	0x0,0xc
034a 0039       | 9  |		Store_Top	Access,At_Offset_1
034b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034c 0000 0000  |    |		.BLANK	0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x6857,0x0000,0x0001,0x0015
0356 000b 03aa  |    |		.DBG4T	0x000b,0x03aa,0x8000,0x0000
035a 0049 03c0  | I  |		.DBG4T	0x0049,0x03c0,0x8000,0x0000
035e 0093 03ce  |    |		.DBG4T	0x0093,0x03ce,0x0001,0x0000
0362 00a3 03d1  |    |		.DBG4T	0x00a3,0x03d1,0x0002,0x0000
0366 00bb 03d6  |    |		.DBG4T	0x00bb,0x03d6,0x0002,0x0000
036a 00d3 03db  |    |		.DBG4T	0x00d3,0x03db,0x0002,0x0000
036e 00eb 03e0  |    |		.DBG4T	0x00eb,0x03e0,0x0002,0x0000
0372 0103 03e3  |    |		.DBG4T	0x0103,0x03e3,0x0001,0x0000
0376 0113 03e8  |    |		.DBG4T	0x0113,0x03e8,0x0004,0x0000
037a 013b 03f1  | ;  |		.DBG4T	0x013b,0x03f1,0x4000,0x0000
037e 0146 03f8  | F  |		.DBG4T	0x0146,0x03f8,0x4000,0x0000
0382 017b 0409  | {  |		.DBG4T	0x017b,0x0409,0x1002,0x0000
0386 0193 0411  |    |		.DBG4T	0x0193,0x0411,0x1002,0x0000
038a 01bb 041f  |    |		.DBG4T	0x01bb,0x041f,0x1001,0x0000
038e 01cb 0423  |   #|		.DBG4T	0x01cb,0x0423,0x1002,0x0000
0392 01fb 0433  |   3|		.DBG4T	0x01fb,0x0433,0x1001,0x0000
0396 020b 0000  |    |		.DBG4T	0x020b,0x0000,0x1005,0x0000
039a 021b 0438  |   8|		.DBG4T	0x021b,0x0438,0x1004,0x0000
039e 02a3 0457  |   W|		.DBG4T	0x02a3,0x0457,0x1004,0x4000
03a2 02db 0471  |   q|		.DBG4T	0x02db,0x0471,0x1004,0x4000
03a6 0343 049f  | C  |		.DBG4T	0x0343,0x049f,0x1004,0x0000
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug chain
03aa ; --------------------------------------------------------------------------------------
03aa 0014 0000  |    |		.DBGLEN	0x0014,0x0000
03ac 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000d,0x000f,0x0010,0x0016,0x001c,0x001d,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002d,0x0032,0x003c,0x003e,0x0044,0x0045
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug chain
03c0 ; --------------------------------------------------------------------------------------
03c0 000c 0000  |    |		.DBGLEN	0x000c,0x0000
03c2 0049 0052  | I R|		.DBGLNO	0x0049,0x0052,0x005a,0x005f,0x0064,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078
03ce ; --------------------------------------------------------------------------------------
03ce ; Debug chain
03ce ; --------------------------------------------------------------------------------------
03ce 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03d0 0093       |    |		.DBGLNO	0x0093
03d1 ; --------------------------------------------------------------------------------------
03d1 ; Debug chain
03d1 ; --------------------------------------------------------------------------------------
03d1 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03d3 00a3 00ad  |    |		.DBGLNO	0x00a3,0x00ad,0x00af
03d6 ; --------------------------------------------------------------------------------------
03d6 ; Debug chain
03d6 ; --------------------------------------------------------------------------------------
03d6 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03d8 00bb 00c3  |    |		.DBGLNO	0x00bb,0x00c3,0x00c5
03db ; --------------------------------------------------------------------------------------
03db ; Debug chain
03db ; --------------------------------------------------------------------------------------
03db 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03dd 00d3 00d7  |    |		.DBGLNO	0x00d3,0x00d7,0x00d9
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug chain
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03e2 00eb       |    |		.DBGLNO	0x00eb
03e3 ; --------------------------------------------------------------------------------------
03e3 ; Debug chain
03e3 ; --------------------------------------------------------------------------------------
03e3 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03e5 0105 0107  |    |		.DBGLNO	0x0105,0x0107,0x0108
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug chain
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0007  |    |		.DBGLEN	0x0000,0x0007
03ea 0113 0118  |    |		.DBGLNO	0x0113,0x0118,0x011b,0x0121,0x0126,0x012b,0x012d
03f1 ; --------------------------------------------------------------------------------------
03f1 ; Debug chain
03f1 ; --------------------------------------------------------------------------------------
03f1 0005 0000  |    |		.DBGLEN	0x0005,0x0000
03f3 013b 013d  | ; =|		.DBGLNO	0x013b,0x013d,0x013f,0x0141,0x0143
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug chain
03f8 ; --------------------------------------------------------------------------------------
03f8 000e 0001  |    |		.DBGLEN	0x000e,0x0001
03fa 0146 0148  | F H|		.DBGLNO	0x0146,0x0148,0x014e,0x014f,0x0151,0x0152,0x0160,0x0162,0x0164,0x0166,0x0168,0x016a,0x016c,0x016e,0x0170
0409 ; --------------------------------------------------------------------------------------
0409 ; Debug chain
0409 ; --------------------------------------------------------------------------------------
0409 0001 0005  |    |		.DBGLEN	0x0001,0x0005
040b 017b 017f  | {  |		.DBGLNO	0x017b,0x017f,0x0183,0x0185,0x0187,0x0189
0411 ; --------------------------------------------------------------------------------------
0411 ; Debug chain
0411 ; --------------------------------------------------------------------------------------
0411 0004 0008  |    |		.DBGLEN	0x0004,0x0008
0413 0193 0195  |    |		.DBGLNO	0x0193,0x0195,0x0197,0x0199,0x019c,0x01a0,0x01a2,0x01a8,0x01aa,0x01ac,0x01ad,0x01af
041f ; --------------------------------------------------------------------------------------
041f ; Debug chain
041f ; --------------------------------------------------------------------------------------
041f 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0421 01bb 01bf  |    |		.DBGLNO	0x01bb,0x01bf
0423 ; --------------------------------------------------------------------------------------
0423 ; Debug chain
0423 ; --------------------------------------------------------------------------------------
0423 0004 000a  |    |		.DBGLEN	0x0004,0x000a
0425 01cb 01cd  |    |		.DBGLNO	0x01cb,0x01cd,0x01cf,0x01d1,0x01d4,0x01d8,0x01da,0x01e0,0x01e2,0x01e8,0x01ee,0x01f0,0x01f1,0x01f3
0433 ; --------------------------------------------------------------------------------------
0433 ; Debug chain
0433 ; --------------------------------------------------------------------------------------
0433 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0435 01fb 01ff  |    |		.DBGLNO	0x01fb,0x01ff,0x0201
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug chain
0438 ; --------------------------------------------------------------------------------------
0438 0000 001d  |    |		.DBGLEN	0x0000,0x001d
043a 021b 021d  |    |		.DBGLNO	0x021b,0x021d,0x0223,0x0225,0x0229,0x022d,0x0233,0x0237,0x0239,0x023d,0x023e,0x0247,0x024d,0x0254,0x0259,0x025e,0x0263,0x0269,0x026f,0x0271,0x0277,0x027a,0x027e,0x0286,0x028d,0x028f,0x0291,0x0297,0x0299
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0000 000c  |    |		.DBGLEN	0x0000,0x000c
0459 02a3 02a9  |    |		.DBGLNO	0x02a3,0x02a9,0x02af,0x02b3,0x02b6,0x02b8,0x02be,0x02c2,0x02c6,0x02ca,0x02d2,0x02d4
0465 0001 0002  |    |		.XXX[0xc]
0467 0003 0004  |    |
0469 0005 0006  |    |
046b 0008 0009  |    |
046d 0007 000a  |    |
046f 000b 000c  |    |
0471 ; --------------------------------------------------------------------------------------
0471 ; Debug chain
0471 ; --------------------------------------------------------------------------------------
0471 0000 0016  |    |		.DBGLEN	0x0000,0x0016
0473 02dd 02e1  |    |		.DBGLNO	0x02dd,0x02e1,0x02e3,0x02e7,0x02eb,0x02ef,0x02f3,0x02f6,0x02f8,0x02fe,0x0302,0x0306,0x030a,0x0310,0x0314,0x031b,0x0321,0x0327,0x032b,0x032f,0x0332,0x0334
0489 0001 0002  |    |		.XXX[0x16]
048b 0003 0005  |    |
048d 0006 0004  |    |
048f 0007 0008  |    |
0491 0009 000b  |    |
0493 000c 000a  |    |
0495 000d 000e  |    |
0497 000f 0010  |    |
0499 0011 0012  |    |
049b 0013 0014  |    |
049d 0015 0016  |    |
049f ; --------------------------------------------------------------------------------------
049f ; Debug chain
049f ; --------------------------------------------------------------------------------------
049f 0001 0001  |    |		.DBGLEN	0x0001,0x0001
04a1 0343 0345  | C E|		.DBGLNO	0x0343,0x0345
04a3 0000 0000  |    |		.BLANK	0000[0x15d]