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

⟦5a047ad0a⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0328       | (  |		.CONST	0x0328								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005c       | \  |		.CONST	0x005c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0015 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0017 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0019 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
001b 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
001d 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
001f 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0021 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0023 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0025 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0027 00bf       |    |		Action	Accept_Activation
0028 4800       |H   |		Short_Literal	0x0
0029 0093 028b  |    |		push_full_address	INIT_0288
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 038e       |    |		Declare_Type	Package,Defined
002d e001       |    |		Load	0x0,0x1
002e 4801       |H   |		Short_Literal	0x1
002f 00da       |    |		Load_Top	At_Offset_2
0030 020e       |    |		Execute	Module,Augment_Imports
0031 0387       |    |		Declare_Variable	Package
0032 e001       |    |		Load	0x0,0x1
0033 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0034 02c7       |    |		Declare_Variable	Any
0035 00d8       |    |		Load_Top	At_Offset_0
0036 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0037 e001       |    |		Load	0x0,0x1
0038 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0039 02c7       |    |		Declare_Variable	Any
003a 00d8       |    |		Load_Top	At_Offset_0
003b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call
0046 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 00db       |    |		Load_Top	At_Offset_3
005b 020f       |    |		Execute	Module,Activate
005c			BODY_0008:
005c 00bc       |    |		Action	Signal_Activated
005d 00bb       |    |		Action	Signal_Completion
005e 0000 0000  |    |		.XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e21d       |    |		Load	0x1,0x1d
0064 00ea       |    |		Load_Encached	Null_String_Cache
0065 e5ff       |    |		Load	0x2,-0x1
0066 4801       |H   |		Short_Literal	0x1
0067 e001       |    |		Load	0x0,0x1
0068 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0069 c21d       |    |		Store	0x1,0x1d
006a e21c       |    |		Load	0x1,0x1c
006b 00ea       |    |		Load_Encached	Null_String_Cache
006c e5ff       |    |		Load	0x2,-0x1
006d 4800       |H   |		Short_Literal	0x0
006e e001       |    |		Load	0x0,0x1
006f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0070 c21c       |    |		Store	0x1,0x1c
0071 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0072 0000 0000  |    |		.BLANK	0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e21c       |    |		Load	0x1,0x1c
007c e001       |    |		Load	0x0,0x1
007d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007e c21c       |    |		Store	0x1,0x1c
007f e21d       |    |		Load	0x1,0x1d
0080 e001       |    |		Load	0x0,0x1
0081 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0082 c21d       |    |		Store	0x1,0x1d
0083 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 4800       |H   |		Short_Literal	0x0
008c e002       |    |		Load	0x0,0x2
008d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
008e e002       |    |		Load	0x0,0x2
008f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0090 00d9       |    |		Load_Top	At_Offset_1
0091 00d0       |    |		Action	Swap_Control
0092 0260       | `  |		Execute	Discrete,In_Type
0093 7001       |p   |		Jump_Nonzero	0x95
0094 0801       |    |		Execute_Immediate	Raise,0x1
0095 8003       |    |		Call	0x0,0x3
0096 e004       |    |		Load	0x0,0x4
0097 01d7       |    |		Execute	Vector,Field_Read
0098 0a01       |    |		Execute_Immediate	Plus,0x1
0099 e5ff       |    |		Load	0x2,-0x1
009a 0273       | s  |		Execute	Discrete,Plus
009b 00d8       |    |		Load_Top	At_Offset_0
009c 00e4       |    |		Load_Encached	Positive_Cache
009d 0260       | `  |		Execute	Discrete,In_Type
009e 7001       |p   |		Jump_Nonzero	0xa0
009f 0801       |    |		Execute_Immediate	Raise,0x1
00a0 e002       |    |		Load	0x0,0x2
00a1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00a2 e002       |    |		Load	0x0,0x2
00a3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 00d0       |    |		Action	Swap_Control
00a6 0260       | `  |		Execute	Discrete,In_Type
00a7 7001       |p   |		Jump_Nonzero	0xa9
00a8 0801       |    |		Execute_Immediate	Raise,0x1
00a9 8005       |    |		Call	0x0,0x5
00aa e21d       |    |		Load	0x1,0x1d
00ab e001       |    |		Load	0x0,0x1
00ac 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00ad 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 4802       |H   |		Short_Literal	0x2
00b4 e21b       |    |		Load	0x1,0x1b
00b5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 e21d       |    |		Load	0x1,0x1d
00b8 e001       |    |		Load	0x0,0x1
00b9 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bb 0000 0000  |    |		.BLANK	0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4802       |H   |		Short_Literal	0x2
00c4 e21b       |    |		Load	0x1,0x1b
00c5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 e21d       |    |		Load	0x1,0x1d
00c8 e001       |    |		Load	0x0,0x1
00c9 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 0107       |    |		.CONST	0x0107								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 00e3       |    |		Load_Encached	Natural_Cache
00d4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00d5			BODY_00d0:
00d5 00cf       |    |		Action	Mark_Auxiliary
00d6 e006       |    |		Load	0x0,0x6
00d7 0269       | i  |		Execute	Discrete,Last
00d8 e002       |    |		Load	0x0,0x2
00d9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00da e002       |    |		Load	0x0,0x2
00db 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00dc 00d9       |    |		Load_Top	At_Offset_1
00dd 00d0       |    |		Action	Swap_Control
00de 0260       | `  |		Execute	Discrete,In_Type
00df 7001       |p   |		Jump_Nonzero	0xe1
00e0 0801       |    |		Execute_Immediate	Raise,0x1
00e1 8003       |    |		Call	0x0,0x3
00e2 0a01       |    |		Execute_Immediate	Plus,0x1
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 00e2       |    |		Load_Encached	Integer_Cache
00e5 0260       | `  |		Execute	Discrete,In_Type
00e6 7001       |p   |		Jump_Nonzero	0xe8
00e7 0801       |    |		Execute_Immediate	Raise,0x1
00e8 0263       | c  |		Execute	Discrete,Above_Bound
00e9 7008       |p   |		Jump_Nonzero	0xf2
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec e007       |    |		Load	0x0,0x7
00ed 01d7       |    |		Execute	Vector,Field_Read
00ee 0273       | s  |		Execute	Discrete,Plus
00ef c402       |    |		Store	0x2,0x2
00f0 00c8       |    |		Action	Pop_Auxiliary_Range
00f1 3ff8       |?   |		Loop_Increasing	0xea
00f2 00ce       |    |		Action	Pop_Auxiliary
00f3 4801       |H   |		Short_Literal	0x1
00f4 e21b       |    |		Load	0x1,0x1b
00f5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00f6 e5ff       |    |		Load	0x2,-0x1
00f7 4820       |H   |		Short_Literal	0x20
00f8 e402       |    |		Load	0x2,0x2
00f9 e002       |    |		Load	0x0,0x2
00fa 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00fb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00fc 01cc       |    |		Execute	Vector,Catenate
00fd e21d       |    |		Load	0x1,0x1d
00fe e001       |    |		Load	0x0,0x1
00ff 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0100 4800       |H   |		Short_Literal	0x0
0101 820f       |    |		Call	0x1,0xf
0102 00ea       |    |		Load_Encached	Null_String_Cache
0103 e21c       |    |		Load	0x1,0x1c
0104 e001       |    |		Load	0x0,0x1
0105 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0106 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0107			TRAP_00d0:
0107 00d8       |    |		Load_Top	At_Offset_0
0108 0107       |    |		Execute	Exception,Get_Name
0109 4950       |IP  |		Short_Literal	0x150
010a 495f       |I_  |		Short_Literal	0x15f
010b 0262       | b  |		Execute	Discrete,In_Range
010c 6802       |h   |		Jump_Zero	0x10f
010d 00ea       |    |		Load_Encached	Null_String_Cache
010e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010f 0100       |    |		Execute	Exception,Raise
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00cf       |    |		Action	Mark_Auxiliary
0114 e008       |    |		Load	0x0,0x8
0115 0269       | i  |		Execute	Discrete,Last
0116 4801       |H   |		Short_Literal	0x1
0117 0263       | c  |		Execute	Discrete,Above_Bound
0118 7017       |p   |		Jump_Nonzero	0x130
0119 4800       |H   |		Short_Literal	0x0
011a 4801       |H   |		Short_Literal	0x1
011b 00da       |    |		Load_Top	At_Offset_2
011c e21d       |    |		Load	0x1,0x1d
011d e001       |    |		Load	0x0,0x1
011e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
011f 00cf       |    |		Action	Mark_Auxiliary
0120 e006       |    |		Load	0x0,0x6
0121 0269       | i  |		Execute	Discrete,Last
0122 4801       |H   |		Short_Literal	0x1
0123 0263       | c  |		Execute	Discrete,Above_Bound
0124 7008       |p   |		Jump_Nonzero	0x12d
0125 00d8       |    |		Load_Top	At_Offset_0
0126 e404       |    |		Load	0x2,0x4
0127 e009       |    |		Load	0x0,0x9
0128 01a7       |    |		Execute	Matrix,Field_Read
0129 0227       | '  |		Execute	Access,All_Reference
012a 8210       |    |		Call	0x1,0x10
012b 00c8       |    |		Action	Pop_Auxiliary_Range
012c 3ff8       |?   |		Loop_Increasing	0x125
012d 00ce       |    |		Action	Pop_Auxiliary
012e 00c8       |    |		Action	Pop_Auxiliary_Range
012f 3fe9       |?   |		Loop_Increasing	0x119
0130 00ce       |    |		Action	Pop_Auxiliary
0131 4800       |H   |		Short_Literal	0x0
0132 820f       |    |		Call	0x1,0xf
0133 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00cf       |    |		Action	Mark_Auxiliary
013c e008       |    |		Load	0x0,0x8
013d 0269       | i  |		Execute	Discrete,Last
013e 4801       |H   |		Short_Literal	0x1
013f 0263       | c  |		Execute	Discrete,Above_Bound
0140 7040       |p@  |		Jump_Nonzero	0x181
0141 4800       |H   |		Short_Literal	0x0
0142 4801       |H   |		Short_Literal	0x1
0143 00da       |    |		Load_Top	At_Offset_2
0144 e21d       |    |		Load	0x1,0x1d
0145 e001       |    |		Load	0x0,0x1
0146 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0147 00cf       |    |		Action	Mark_Auxiliary
0148 e006       |    |		Load	0x0,0x6
0149 0269       | i  |		Execute	Discrete,Last
014a 4801       |H   |		Short_Literal	0x1
014b 0263       | c  |		Execute	Discrete,Above_Bound
014c 7031       |p1  |		Jump_Nonzero	0x17e
014d 00d8       |    |		Load_Top	At_Offset_0
014e 0aff       |    |		Execute_Immediate	Plus,-0x1
014f 00d8       |    |		Load_Top	At_Offset_0
0150 e002       |    |		Load	0x0,0x2
0151 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0152 0122       | "  |		Execute	Any,Make_Root_Type
0153 0260       | `  |		Execute	Discrete,In_Type
0154 7001       |p   |		Jump_Nonzero	0x156
0155 0801       |    |		Execute_Immediate	Raise,0x1
0156 e002       |    |		Load	0x0,0x2
0157 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0158 00d9       |    |		Load_Top	At_Offset_1
0159 00d0       |    |		Action	Swap_Control
015a 0260       | `  |		Execute	Discrete,In_Type
015b 7001       |p   |		Jump_Nonzero	0x15d
015c 0801       |    |		Execute_Immediate	Raise,0x1
015d e404       |    |		Load	0x2,0x4
015e 0aff       |    |		Execute_Immediate	Plus,-0x1
015f 00d8       |    |		Load_Top	At_Offset_0
0160 e002       |    |		Load	0x0,0x2
0161 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0162 0122       | "  |		Execute	Any,Make_Root_Type
0163 0260       | `  |		Execute	Discrete,In_Type
0164 7001       |p   |		Jump_Nonzero	0x166
0165 0801       |    |		Execute_Immediate	Raise,0x1
0166 e002       |    |		Load	0x0,0x2
0167 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0168 00d9       |    |		Load_Top	At_Offset_1
0169 00d0       |    |		Action	Swap_Control
016a 0260       | `  |		Execute	Discrete,In_Type
016b 7001       |p   |		Jump_Nonzero	0x16d
016c 0801       |    |		Execute_Immediate	Raise,0x1
016d 85fe       |    |		Call	0x2,-0x2
016e 6807       |h   |		Jump_Zero	0x176
016f 00d8       |    |		Load_Top	At_Offset_0
0170 e404       |    |		Load	0x2,0x4
0171 e009       |    |		Load	0x0,0x9
0172 01a7       |    |		Execute	Matrix,Field_Read
0173 0227       | '  |		Execute	Access,All_Reference
0174 821e       |    |		Call	0x1,0x1e
0175 7806       |x   |		Jump	0x17c
0176 00d8       |    |		Load_Top	At_Offset_0
0177 e404       |    |		Load	0x2,0x4
0178 e009       |    |		Load	0x0,0x9
0179 01a7       |    |		Execute	Matrix,Field_Read
017a 0227       | '  |		Execute	Access,All_Reference
017b 8210       |    |		Call	0x1,0x10
017c 00c8       |    |		Action	Pop_Auxiliary_Range
017d 3fcf       |?   |		Loop_Increasing	0x14d
017e 00ce       |    |		Action	Pop_Auxiliary
017f 00c8       |    |		Action	Pop_Auxiliary_Range
0180 3fc0       |?   |		Loop_Increasing	0x141
0181 00ce       |    |		Action	Pop_Auxiliary
0182 4800       |H   |		Short_Literal	0x0
0183 820f       |    |		Call	0x1,0xf
0184 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 4800       |H   |		Short_Literal	0x0
018c 820f       |    |		Call	0x1,0xf
018d 00cf       |    |		Action	Mark_Auxiliary
018e e006       |    |		Load	0x0,0x6
018f 0269       | i  |		Execute	Discrete,Last
0190 e002       |    |		Load	0x0,0x2
0191 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0192 e002       |    |		Load	0x0,0x2
0193 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0194 00d9       |    |		Load_Top	At_Offset_1
0195 00d0       |    |		Action	Swap_Control
0196 0260       | `  |		Execute	Discrete,In_Type
0197 7001       |p   |		Jump_Nonzero	0x199
0198 0801       |    |		Execute_Immediate	Raise,0x1
0199 8003       |    |		Call	0x0,0x3
019a 0263       | c  |		Execute	Discrete,Above_Bound
019b 7011       |p   |		Jump_Nonzero	0x1ad
019c 00d8       |    |		Load_Top	At_Offset_0
019d e002       |    |		Load	0x0,0x2
019e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
019f e002       |    |		Load	0x0,0x2
01a0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a1 00d9       |    |		Load_Top	At_Offset_1
01a2 00d0       |    |		Action	Swap_Control
01a3 0260       | `  |		Execute	Discrete,In_Type
01a4 7001       |p   |		Jump_Nonzero	0x1a6
01a5 0801       |    |		Execute_Immediate	Raise,0x1
01a6 8005       |    |		Call	0x0,0x5
01a7 e009       |    |		Load	0x0,0x9
01a8 01a7       |    |		Execute	Matrix,Field_Read
01a9 0227       | '  |		Execute	Access,All_Reference
01aa 8210       |    |		Call	0x1,0x10
01ab 00c8       |    |		Action	Pop_Auxiliary_Range
01ac 3fef       |?   |		Loop_Increasing	0x19c
01ad 00ce       |    |		Action	Pop_Auxiliary
01ae 4800       |H   |		Short_Literal	0x0
01af 820f       |    |		Call	0x1,0xf
01b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb e002       |    |		Load	0x0,0x2
01bc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01bd e002       |    |		Load	0x0,0x2
01be 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01bf 00d9       |    |		Load_Top	At_Offset_1
01c0 00d0       |    |		Action	Swap_Control
01c1 0260       | `  |		Execute	Discrete,In_Type
01c2 7001       |p   |		Jump_Nonzero	0x1c4
01c3 0801       |    |		Execute_Immediate	Raise,0x1
01c4 8003       |    |		Call	0x0,0x3
01c5 e002       |    |		Load	0x0,0x2
01c6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01c7 e002       |    |		Load	0x0,0x2
01c8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01c9 00d9       |    |		Load_Top	At_Offset_1
01ca 00d0       |    |		Action	Swap_Control
01cb 0260       | `  |		Execute	Discrete,In_Type
01cc 7001       |p   |		Jump_Nonzero	0x1ce
01cd 0801       |    |		Execute_Immediate	Raise,0x1
01ce 8005       |    |		Call	0x0,0x5
01cf e009       |    |		Load	0x0,0x9
01d0 01a7       |    |		Execute	Matrix,Field_Read
01d1 0227       | '  |		Execute	Access,All_Reference
01d2 8211       |    |		Call	0x1,0x11
01d3 4800       |H   |		Short_Literal	0x0
01d4 820f       |    |		Call	0x1,0xf
01d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db e002       |    |		Load	0x0,0x2
01dc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01dd e002       |    |		Load	0x0,0x2
01de 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 00d0       |    |		Action	Swap_Control
01e1 0260       | `  |		Execute	Discrete,In_Type
01e2 7001       |p   |		Jump_Nonzero	0x1e4
01e3 0801       |    |		Execute_Immediate	Raise,0x1
01e4 8003       |    |		Call	0x0,0x3
01e5 e002       |    |		Load	0x0,0x2
01e6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01e7 e002       |    |		Load	0x0,0x2
01e8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 00d0       |    |		Action	Swap_Control
01eb 0260       | `  |		Execute	Discrete,In_Type
01ec 7001       |p   |		Jump_Nonzero	0x1ee
01ed 0801       |    |		Execute_Immediate	Raise,0x1
01ee 8005       |    |		Call	0x0,0x5
01ef e009       |    |		Load	0x0,0x9
01f0 01a7       |    |		Execute	Matrix,Field_Read
01f1 0227       | '  |		Execute	Access,All_Reference
01f2 8210       |    |		Call	0x1,0x10
01f3 4800       |H   |		Short_Literal	0x0
01f4 820f       |    |		Call	0x1,0xf
01f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc e002       |    |		Load	0x0,0x2
01fd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01fe e002       |    |		Load	0x0,0x2
01ff 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0200 00d9       |    |		Load_Top	At_Offset_1
0201 00d0       |    |		Action	Swap_Control
0202 0260       | `  |		Execute	Discrete,In_Type
0203 7001       |p   |		Jump_Nonzero	0x205
0204 0801       |    |		Execute_Immediate	Raise,0x1
0205 8005       |    |		Call	0x0,0x5
0206 027f       |    |		Execute	Discrete,Equal
0207 e5fe       |    |		Load	0x2,-0x2
0208 e002       |    |		Load	0x0,0x2
0209 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
020a e002       |    |		Load	0x0,0x2
020b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
020c 00d9       |    |		Load_Top	At_Offset_1
020d 00d0       |    |		Action	Swap_Control
020e 0260       | `  |		Execute	Discrete,In_Type
020f 7001       |p   |		Jump_Nonzero	0x211
0210 0801       |    |		Execute_Immediate	Raise,0x1
0211 8003       |    |		Call	0x0,0x3
0212 027f       |    |		Execute	Discrete,Equal
0213 0279       | y  |		Execute	Discrete,And
0214 6802       |h   |		Jump_Zero	0x217
0215 8216       |    |		Call	0x1,0x16
0216 7814       |x   |		Jump	0x22b
0217 4800       |H   |		Short_Literal	0x0
0218 e5fe       |    |		Load	0x2,-0x2
0219 e004       |    |		Load	0x0,0x4
021a 01d7       |    |		Execute	Vector,Field_Read
021b 0a01       |    |		Execute_Immediate	Plus,0x1
021c 00d8       |    |		Load_Top	At_Offset_0
021d 00e4       |    |		Load_Encached	Positive_Cache
021e 0260       | `  |		Execute	Discrete,In_Type
021f 7001       |p   |		Jump_Nonzero	0x221
0220 0801       |    |		Execute_Immediate	Raise,0x1
0221 e5ff       |    |		Load	0x2,-0x1
0222 e21d       |    |		Load	0x1,0x1d
0223 e001       |    |		Load	0x0,0x1
0224 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0225 00db       |    |		Load_Top	At_Offset_3
0226 00db       |    |		Load_Top	At_Offset_3
0227 e009       |    |		Load	0x0,0x9
0228 01a7       |    |		Execute	Matrix,Field_Read
0229 0227       | '  |		Execute	Access,All_Reference
022a 8210       |    |		Call	0x1,0x10
022b 4800       |H   |		Short_Literal	0x0
022c 820f       |    |		Call	0x1,0xf
022d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00da       |    |		Load_Top	At_Offset_2
0234 01db       |    |		Execute	Vector,Length
0235 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0236 6803       |h   |		Jump_Zero	0x23a
0237 00da       |    |		Load_Top	At_Offset_2
0238 e00a       |    |		Load	0x0,0xa
0239 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
023a 00cf       |    |		Action	Mark_Auxiliary
023b e5fe       |    |		Load	0x2,-0x2
023c 4801       |H   |		Short_Literal	0x1
023d 0263       | c  |		Execute	Discrete,Above_Bound
023e 7005       |p   |		Jump_Nonzero	0x244
023f e21d       |    |		Load	0x1,0x1d
0240 e001       |    |		Load	0x0,0x1
0241 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0242 00c8       |    |		Action	Pop_Auxiliary_Range
0243 3ffb       |?   |		Loop_Increasing	0x23f
0244 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00da       |    |		Load_Top	At_Offset_2
024c 6807       |h   |		Jump_Zero	0x254
024d 00db       |    |		Load_Top	At_Offset_3
024e 0092 031c  |    |		Action	Push_String_Extended,0x31c					; "Field_3"
0250 e21d       |    |		Load	0x1,0x1d
0251 e001       |    |		Load	0x0,0x1
0252 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0253 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0254 0092 031d  |    |		Action	Push_String_Extended,0x31d					; "<"
0256 e002       |    |		Load	0x0,0x2
0257 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0258 e002       |    |		Load	0x0,0x2
0259 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025a 0122       | "  |		Execute	Any,Make_Root_Type
025b 011c       |    |		Execute	Any,Convert_Unchecked
025c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
025d 01cc       |    |		Execute	Vector,Catenate
025e 0092 031e  |    |		Action	Push_String_Extended,0x31e					; ","
0260 01cc       |    |		Execute	Vector,Catenate
0261 e002       |    |		Load	0x0,0x2
0262 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0263 e002       |    |		Load	0x0,0x2
0264 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0265 0122       | "  |		Execute	Any,Make_Root_Type
0266 011c       |    |		Execute	Any,Convert_Unchecked
0267 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0268 01cc       |    |		Execute	Vector,Catenate
0269 0092 031f  |    |		Action	Push_String_Extended,0x31f					; ">"
026b 01cc       |    |		Execute	Vector,Catenate
026c e002       |    |		Load	0x0,0x2
026d 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
026e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
026f e001       |    |		Load	0x0,0x1
0270 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0271 e21d       |    |		Load	0x1,0x1d
0272 e001       |    |		Load	0x0,0x1
0273 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0274 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 4802       |H   |		Short_Literal	0x2
027c e21b       |    |		Load	0x1,0x1b
027d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
027e e5ff       |    |		Load	0x2,-0x1
027f e21d       |    |		Load	0x1,0x1d
0280 e001       |    |		Load	0x0,0x1
0281 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0282 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0283 0000 0000  |    |		.BLANK	0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 031a       |    |		.CONST	0x031a								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0013       |    |		.CONST	0x0013								; Number of locals
028b			INIT_0288:
028b e001       |    |		Load	0x0,0x1
028c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
028d 0322       | "  |		Declare_Variable	Record
028e 4800       |H   |		Short_Literal	0x0
028f 00d9       |    |		Load_Top	At_Offset_1
0290 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0291 4800       |H   |		Short_Literal	0x0
0292 00d9       |    |		Load_Top	At_Offset_1
0293 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0294 4800       |H   |		Short_Literal	0x0
0295 00d9       |    |		Load_Top	At_Offset_1
0296 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0297 4800       |H   |		Short_Literal	0x0
0298 00d9       |    |		Load_Top	At_Offset_1
0299 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
029a 4800       |H   |		Short_Literal	0x0
029b 00d9       |    |		Load_Top	At_Offset_1
029c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
029d 4800       |H   |		Short_Literal	0x0
029e 00d9       |    |		Load_Top	At_Offset_1
029f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02a0 4800       |H   |		Short_Literal	0x0
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02a3 4800       |H   |		Short_Literal	0x0
02a4 00d9       |    |		Load_Top	At_Offset_1
02a5 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02a6 0129       | )  |		Execute	Any,Make_Visible
02a7 e001       |    |		Load	0x0,0x1
02a8 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
02a9 0322       | "  |		Declare_Variable	Record
02aa 4801       |H   |		Short_Literal	0x1
02ab 00d9       |    |		Load_Top	At_Offset_1
02ac 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ad 4800       |H   |		Short_Literal	0x0
02ae 00d9       |    |		Load_Top	At_Offset_1
02af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02b0 4800       |H   |		Short_Literal	0x0
02b1 00d9       |    |		Load_Top	At_Offset_1
02b2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b3 4800       |H   |		Short_Literal	0x0
02b4 00d9       |    |		Load_Top	At_Offset_1
02b5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02b6 4800       |H   |		Short_Literal	0x0
02b7 00d9       |    |		Load_Top	At_Offset_1
02b8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02b9 4800       |H   |		Short_Literal	0x0
02ba 00d9       |    |		Load_Top	At_Offset_1
02bb 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02bc 4800       |H   |		Short_Literal	0x0
02bd 00d9       |    |		Load_Top	At_Offset_1
02be 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02bf 4800       |H   |		Short_Literal	0x0
02c0 00d9       |    |		Load_Top	At_Offset_1
02c1 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02c2 0129       | )  |		Execute	Any,Make_Visible
02c3 e001       |    |		Load	0x0,0x1
02c4 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
02c5 0322       | "  |		Declare_Variable	Record
02c6 4801       |H   |		Short_Literal	0x1
02c7 00d9       |    |		Load_Top	At_Offset_1
02c8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c9 4800       |H   |		Short_Literal	0x0
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02cc 4800       |H   |		Short_Literal	0x0
02cd 00d9       |    |		Load_Top	At_Offset_1
02ce 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02cf 4800       |H   |		Short_Literal	0x0
02d0 00d9       |    |		Load_Top	At_Offset_1
02d1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02d2 4800       |H   |		Short_Literal	0x0
02d3 00d9       |    |		Load_Top	At_Offset_1
02d4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02d5 4800       |H   |		Short_Literal	0x0
02d6 00d9       |    |		Load_Top	At_Offset_1
02d7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02d8 4800       |H   |		Short_Literal	0x0
02d9 00d9       |    |		Load_Top	At_Offset_1
02da 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02db 4800       |H   |		Short_Literal	0x0
02dc 00d9       |    |		Load_Top	At_Offset_1
02dd 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02de 0129       | )  |		Execute	Any,Make_Visible
02df e001       |    |		Load	0x0,0x1
02e0 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
02e1 0322       | "  |		Declare_Variable	Record
02e2 4801       |H   |		Short_Literal	0x1
02e3 00d9       |    |		Load_Top	At_Offset_1
02e4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02e5 4800       |H   |		Short_Literal	0x0
02e6 00d9       |    |		Load_Top	At_Offset_1
02e7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02e8 4800       |H   |		Short_Literal	0x0
02e9 00d9       |    |		Load_Top	At_Offset_1
02ea 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02eb 4800       |H   |		Short_Literal	0x0
02ec 00d9       |    |		Load_Top	At_Offset_1
02ed 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ee 4800       |H   |		Short_Literal	0x0
02ef 00d9       |    |		Load_Top	At_Offset_1
02f0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02f1 4800       |H   |		Short_Literal	0x0
02f2 00d9       |    |		Load_Top	At_Offset_1
02f3 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02f4 4800       |H   |		Short_Literal	0x0
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02f7 4800       |H   |		Short_Literal	0x0
02f8 00d9       |    |		Load_Top	At_Offset_1
02f9 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02fa 0129       | )  |		Execute	Any,Make_Visible
02fb e001       |    |		Load	0x0,0x1
02fc 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
02fd 0322       | "  |		Declare_Variable	Record
02fe 4800       |H   |		Short_Literal	0x0
02ff 00d9       |    |		Load_Top	At_Offset_1
0300 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0301 e20d       |    |		Load	0x1,0xd
0302 00d9       |    |		Load_Top	At_Offset_1
0303 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0304 0129       | )  |		Execute	Any,Make_Visible
0305 e001       |    |		Load	0x0,0x1
0306 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0307 0322       | "  |		Declare_Variable	Record
0308 4800       |H   |		Short_Literal	0x0
0309 00d9       |    |		Load_Top	At_Offset_1
030a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
030b 00da       |    |		Load_Top	At_Offset_2
030c 00d9       |    |		Load_Top	At_Offset_1
030d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
030e 0129       | )  |		Execute	Any,Make_Visible
030f e001       |    |		Load	0x0,0x1
0310 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0311 0322       | "  |		Declare_Variable	Record
0312 4800       |H   |		Short_Literal	0x0
0313 00d9       |    |		Load_Top	At_Offset_1
0314 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0315 e20f       |    |		Load	0x1,0xf
0316 00d9       |    |		Load_Top	At_Offset_1
0317 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0318 0129       | )  |		Execute	Any,Make_Visible
0319 00bf       |    |		Action	Accept_Activation
031a			BODY_0288:
031a 00bc       |    |		Action	Signal_Activated
031b 00bb       |    |		Action	Signal_Completion
031c ; --------------------------------------------------------------------------------------
031c ; STRING TABLE
031c ; --------------------------------------------------------------------------------------
031c 000a       |    |		.STRTAB	0x000a->0x0321							; "Field_3"
031d 000f       |    |		.STRTAB	0x000f->0x0324							; "<"
031e 000e       |    |		.STRTAB	0x000e->0x0325							; ","
031f 000d       |    |		.STRTAB	0x000d->0x0325							; ">"
0320 000c       |    |		.STREND 0x000c->0x0326
0321 4669 656c  |Fiel|		.STRTAB_STRINGS
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x715e,0x0000,0x0001,0x0012
032e 000b 0376  |   v|		.DBG4T	0x000b,0x0376,0x0000,0x0000
0332 0028 0386  | (  |		.DBG4T	0x0028,0x0386,0x0000,0x8000
0336 0063 03aa  | c  |		.DBG4T	0x0063,0x03aa,0x0001,0x0000
033a 007b 03ae  | {  |		.DBG4T	0x007b,0x03ae,0x0001,0x0000
033e 008b 03b2  |    |		.DBG4T	0x008b,0x03b2,0x0001,0x0000
0342 00b3 03b5  |    |		.DBG4T	0x00b3,0x03b5,0x0001,0x0000
0346 00c3 03b8  |    |		.DBG4T	0x00c3,0x03b8,0x0001,0x0000
034a 00d3 03bb  |    |		.DBG4T	0x00d3,0x03bb,0x0002,0x0000
034e 0113 03c4  |    |		.DBG4T	0x0113,0x03c4,0x0001,0x0000
0352 013b 03cb  | ;  |		.DBG4T	0x013b,0x03cb,0x2801,0x0002
0356 018b 03d4  |    |		.DBG4T	0x018b,0x03d4,0x0001,0x0000
035a 01bb 03da  |    |		.DBG4T	0x01bb,0x03da,0x0001,0x0000
035e 01db 03de  |    |		.DBG4T	0x01db,0x03de,0x0001,0x0000
0362 01fb 03e2  |    |		.DBG4T	0x01fb,0x03e2,0x0001,0x0000
0366 0233 03e9  | 3  |		.DBG4T	0x0233,0x03e9,0x0001,0x0000
036a 024b 03ef  | K  |		.DBG4T	0x024b,0x03ef,0x0001,0x4000
036e 027b 03f7  | {  |		.DBG4T	0x027b,0x03f7,0x0001,0x0000
0372 028b 03fa  |    |		.DBG4T	0x028b,0x03fa,0x0000,0x0000
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug chain
0376 ; --------------------------------------------------------------------------------------
0376 000e 0000  |    |		.DBGLEN	0x000e,0x0000
0378 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug chain
0386 ; --------------------------------------------------------------------------------------
0386 0011 0000  |    |		.DBGLEN	0x0011,0x0000
0388 0028 0032  | ( 2|		.DBGLNO	0x0028,0x0032,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058
0399 0002 0003  |    |		.XXX[0x11]
039b 0004 0005  |    |
039d 0006 0007  |    |
039f 0008 0009  |    |
03a1 000a 000b  |    |
03a3 000c 000d  |    |
03a5 000e 000f  |    |
03a7 0010 0011  |    |
03a9 0012       |    |
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug chain
03aa ; --------------------------------------------------------------------------------------
03aa 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03ac 0063 006a  | c j|		.DBGLNO	0x0063,0x006a
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug chain
03ae ; --------------------------------------------------------------------------------------
03ae 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03b0 007b 007f  | {  |		.DBGLNO	0x007b,0x007f
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug chain
03b2 ; --------------------------------------------------------------------------------------
03b2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b4 008b       |    |		.DBGLNO	0x008b
03b5 ; --------------------------------------------------------------------------------------
03b5 ; Debug chain
03b5 ; --------------------------------------------------------------------------------------
03b5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03b7 00b3       |    |		.DBGLNO	0x00b3
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03ba 00c3       |    |		.DBGLNO	0x00c3
03bb ; --------------------------------------------------------------------------------------
03bb ; Debug chain
03bb ; --------------------------------------------------------------------------------------
03bb 0001 0006  |    |		.DBGLEN	0x0001,0x0006
03bd 00d3 00d6  |    |		.DBGLNO	0x00d3,0x00d6,0x00ea,0x00f3,0x0100,0x0102,0x010d
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug chain
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0005  |    |		.DBGLEN	0x0000,0x0005
03c6 0114 0119  |    |		.DBGLNO	0x0114,0x0119,0x0120,0x0125,0x0131
03cb ; --------------------------------------------------------------------------------------
03cb ; Debug chain
03cb ; --------------------------------------------------------------------------------------
03cb 0000 0007  |    |		.DBGLEN	0x0000,0x0007
03cd 013c 0141  | < A|		.DBGLNO	0x013c,0x0141,0x0148,0x014d,0x016f,0x0176,0x0182
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug chain
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03d6 018b 018e  |    |		.DBGLNO	0x018b,0x018e,0x019c,0x01ae
03da ; --------------------------------------------------------------------------------------
03da ; Debug chain
03da ; --------------------------------------------------------------------------------------
03da 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03dc 01bb 01d3  |    |		.DBGLNO	0x01bb,0x01d3
03de ; --------------------------------------------------------------------------------------
03de ; Debug chain
03de ; --------------------------------------------------------------------------------------
03de 0000 0002  |    |		.DBGLEN	0x0000,0x0002
03e0 01db 01f3  |    |		.DBGLNO	0x01db,0x01f3
03e2 ; --------------------------------------------------------------------------------------
03e2 ; Debug chain
03e2 ; --------------------------------------------------------------------------------------
03e2 0000 0005  |    |		.DBGLEN	0x0000,0x0005
03e4 01fb 0215  |    |		.DBGLNO	0x01fb,0x0215,0x0217,0x0225,0x022b
03e9 ; --------------------------------------------------------------------------------------
03e9 ; Debug chain
03e9 ; --------------------------------------------------------------------------------------
03e9 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03eb 0233 0237  | 3 7|		.DBGLNO	0x0233,0x0237,0x023b,0x023f
03ef ; --------------------------------------------------------------------------------------
03ef ; Debug chain
03ef ; --------------------------------------------------------------------------------------
03ef 0000 0003  |    |		.DBGLEN	0x0000,0x0003
03f1 024b 024d  | K M|		.DBGLNO	0x024b,0x024d,0x0254
03f4 0001 0003  |    |		.XXX[0x3]
03f6 0002       |    |
03f7 ; --------------------------------------------------------------------------------------
03f7 ; Debug chain
03f7 ; --------------------------------------------------------------------------------------
03f7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
03f9 027b       | {  |		.DBGLNO	0x027b
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug chain
03fa ; --------------------------------------------------------------------------------------
03fa 0007 0000  |    |		.DBGLEN	0x0007,0x0000
03fc 028b 02a7  |    |		.DBGLNO	0x028b,0x02a7,0x02c3,0x02df,0x02fb,0x0305,0x030f
0403 0000 0000  |    |		.BLANK	0000[0x1fd]