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

⟦02d5951b5⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0308       |    |		.CONST	0x0308								; 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 0045       | E  |		.CONST	0x0045								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 029a 004b  |   K|		Declare_Subprogram	INIT_0048,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 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0015 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0017 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a e003       |    |		Load	0x0,0x3
001b 0265       | e  |		Execute	Discrete,Reverse_Bounds
001c e003       |    |		Load	0x0,0x3
001d 1c04       |    |		Execute_Immediate	Run_Utility,0x4
001e 00d0       |    |		Action	Swap_Control
001f e003       |    |		Load	0x0,0x3
0020 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0021 e004       |    |		Load	0x0,0x4
0022 02a0       |    |		Declare_Subprogram	Null_Subprogram
0023 4801       |H   |		Short_Literal	0x1
0024 035d       | ]  |		Declare_Type	Array,Defined
0025 00d8       |    |		Load_Top	At_Offset_0
0026 0337       | 7  |		Declare_Variable	Array
0027 00d8       |    |		Load_Top	At_Offset_0
0028 0335       | 5  |		Declare_Variable	Array,Duplicate
0029 00cd       |    |		Action	Spare6_Action
002a 00d9       |    |		Load_Top	At_Offset_1
002b 01d9       |    |		Execute	Vector,Reverse_Bounds
002c 0263       | c  |		Execute	Discrete,Above_Bound
002d 7005       |p   |		Jump_Nonzero	0x33
002e e004       |    |		Load	0x0,0x4
002f 00d9       |    |		Load_Top	At_Offset_1
0030 e216       |    |		Load	0x1,0x16
0031 01d6       |    |		Execute	Vector,Field_Write
0032 3ffb       |?   |		Loop_Increasing	0x2e
0033 00d9       |    |		Load_Top	At_Offset_1
0034 01d4       |    |		Execute	Vector,Structure_Write
0035 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 029d 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call
003d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0044 00c7       |    |		Action	Elaborate_Subprogram
0045			BODY_0008:
0045 00bc       |    |		Action	Signal_Activated
0046 00bb       |    |		Action	Signal_Completion
0047 0000       |    |		.XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 00cf       |    |		Action	Mark_Auxiliary
004c e003       |    |		Load	0x0,0x3
004d 0265       | e  |		Execute	Discrete,Reverse_Bounds
004e 0263       | c  |		Execute	Discrete,Above_Bound
004f 7022       |p"  |		Jump_Nonzero	0x72
0050 00d8       |    |		Load_Top	At_Offset_0
0051 e005       |    |		Load	0x0,0x5
0052 027e       | ~  |		Execute	Discrete,Not_Equal
0053 6814       |h   |		Jump_Zero	0x68
0054 00d8       |    |		Load_Top	At_Offset_0
0055 e003       |    |		Load	0x0,0x3
0056 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0057 e215       |    |		Load	0x1,0x15
0058 01d7       |    |		Execute	Vector,Field_Read
0059 e004       |    |		Load	0x0,0x4
005a 022e       | .  |		Execute	Access,Not_Equal
005b 680c       |h   |		Jump_Zero	0x68
005c e215       |    |		Load	0x1,0x15
005d 00d9       |    |		Load_Top	At_Offset_1
005e e003       |    |		Load	0x0,0x3
005f 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0060 00d8       |    |		Load_Top	At_Offset_0
0061 00da       |    |		Load_Top	At_Offset_2
0062 01d7       |    |		Execute	Vector,Field_Read
0063 8006       |    |		Call	0x0,0x6
0064 00d9       |    |		Load_Top	At_Offset_1
0065 00db       |    |		Load_Top	At_Offset_3
0066 01d6       |    |		Execute	Vector,Field_Write
0067 00d2       |    |		Pop_Control	Pop_Count_2
0068 00c8       |    |		Action	Pop_Auxiliary_Range
0069 00d9       |    |		Load_Top	At_Offset_1
006a 00d9       |    |		Load_Top	At_Offset_1
006b 027f       |    |		Execute	Discrete,Equal
006c 7004       |p   |		Jump_Nonzero	0x71
006d e003       |    |		Load	0x0,0x3
006e 0122       | "  |		Execute	Any,Make_Root_Type
006f 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0070 7fdf       |    |		Jump	0x50
0071 00d2       |    |		Pop_Control	Pop_Count_2
0072 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0073 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
007c 00db       |    |		Load_Top	At_Offset_3
007d 8007       |    |		Call	0x0,0x7
007e e003       |    |		Load	0x0,0x3
007f 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0080 e215       |    |		Load	0x1,0x15
0081 01d6       |    |		Execute	Vector,Field_Write
0082 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0083 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
008c e003       |    |		Load	0x0,0x3
008d 1c04       |    |		Execute_Immediate	Run_Utility,0x4
008e e215       |    |		Load	0x1,0x15
008f 01d7       |    |		Execute	Vector,Field_Read
0090 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00bc       |    |		.CONST	0x00bc								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0006       |    |		.CONST	0x0006								; Number of locals
009b			INIT_0098:
009b e5f8       |    |		Load	0x2,-0x8
009c 01da       |    |		Execute	Vector,Bounds
009d e008       |    |		Load	0x0,0x8
009e 035b       | [  |		Declare_Type	Array,Constrained
009f 0337       | 7  |		Declare_Variable	Array
00a0 00d8       |    |		Load_Top	At_Offset_0
00a1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a2 e5f8       |    |		Load	0x2,-0x8
00a3 01da       |    |		Execute	Vector,Bounds
00a4 00e3       |    |		Load_Encached	Natural_Cache
00a5 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a6 4801       |H   |		Short_Literal	0x1
00a7 035d       | ]  |		Declare_Type	Array,Defined
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 0337       | 7  |		Declare_Variable	Array
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 0335       | 5  |		Declare_Variable	Array,Duplicate
00ac 00cd       |    |		Action	Spare6_Action
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 01d9       |    |		Execute	Vector,Reverse_Bounds
00af 0263       | c  |		Execute	Discrete,Above_Bound
00b0 7005       |p   |		Jump_Nonzero	0xb6
00b1 4801       |H   |		Short_Literal	0x1
00b2 00d9       |    |		Load_Top	At_Offset_1
00b3 e405       |    |		Load	0x2,0x5
00b4 01d6       |    |		Execute	Vector,Field_Write
00b5 3ffb       |?   |		Loop_Increasing	0xb1
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 01d4       |    |		Execute	Vector,Structure_Write
00b8 00e1       |    |		Load_Encached	Boolean_Cache
00b9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00ba 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
00bc			BODY_0098:
00bc e5f8       |    |		Load	0x2,-0x8
00bd 01db       |    |		Execute	Vector,Length
00be 6818       |h   |		Jump_Zero	0xd7
00bf 00cf       |    |		Action	Mark_Auxiliary
00c0 780a       |x   |		Jump	0xcb
00c1 4801       |H   |		Short_Literal	0x1
00c2 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00c3 e402       |    |		Load	0x2,0x2
00c4 8216       |    |		Call	0x1,0x16
00c5 7004       |p   |		Jump_Nonzero	0xca
00c6 e402       |    |		Load	0x2,0x2
00c7 e5f9       |    |		Load	0x2,-0x7
00c8 85fc       |    |		Call	0x2,-0x4
00c9 85fd       |    |		Call	0x2,-0x3
00ca 00c9       |    |		Action	Pop_Auxiliary_Loop
00cb 85fe       |    |		Call	0x2,-0x2
00cc 7009       |p   |		Jump_Nonzero	0xd6
00cd e5f8       |    |		Load	0x2,-0x8
00ce 01dd       |    |		Execute	Vector,First
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 00e4       |    |		Load_Encached	Positive_Cache
00d1 0260       | `  |		Execute	Discrete,In_Type
00d2 7001       |p   |		Jump_Nonzero	0xd4
00d3 0801       |    |		Execute_Immediate	Raise,0x1
00d4 8406       |    |		Call	0x2,0x6
00d5 77eb       |w   |		Jump_Nonzero	0xc1
00d6 00ce       |    |		Action	Pop_Auxiliary
00d7 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e6       |    |		.CONST	0x00e6								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0004       |    |		.CONST	0x0004								; Number of locals
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc 01da       |    |		Execute	Vector,Bounds
00dd e008       |    |		Load	0x0,0x8
00de 035b       | [  |		Declare_Type	Array,Constrained
00df 0337       | 7  |		Declare_Variable	Array
00e0 00d8       |    |		Load_Top	At_Offset_0
00e1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e2 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
00e4 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
00e6			BODY_00d8:
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 01db       |    |		Execute	Vector,Length
00e8 680d       |h   |		Jump_Zero	0xf6
00e9 e5ff       |    |		Load	0x2,-0x1
00ea 01dd       |    |		Execute	Vector,First
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec 00e4       |    |		Load_Encached	Positive_Cache
00ed 0260       | `  |		Execute	Discrete,In_Type
00ee 7001       |p   |		Jump_Nonzero	0xf0
00ef 0801       |    |		Execute_Immediate	Raise,0x1
00f0 8404       |    |		Call	0x2,0x4
00f1 6804       |h   |		Jump_Zero	0xf6
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 e008       |    |		Load	0x0,0x8
00f4 01c6       |    |		Execute	Vector,Convert_To_Formal
00f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f6 8009       |    |		Call	0x0,0x9
00f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 010b       |    |		.CONST	0x010b								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0004       |    |		.CONST	0x0004								; Number of locals
00fb			INIT_00f8:
00fb a00a       |    |		Store_Unchecked	0x0,0xa
00fc 00c6       |    |		Action	Check_Subprogram_Elaborated
00fd 4ffe       |O   |		Short_Literal	-0x2
00fe 4802       |H   |		Short_Literal	0x2
00ff 0099       |    |		Action	Reference_Dynamic
0100 0093 0000  |    |		push_full_address	0x0
0102 6035       |`5  |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00020000}
0103 0273       | s  |		Execute	Discrete,Plus
0104 e5ff       |    |		Load	0x2,-0x1
0105 602e       |`.  |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0000ffff}
0106 0279       | y  |		Execute	Discrete,And
0107 0273       | s  |		Execute	Discrete,Plus
0108 e00b       |    |		Load	0x0,0xb
0109 0273       | s  |		Execute	Discrete,Plus
010a 4804       |H   |		Short_Literal	0x4
010b			BODY_00f8:
010b 00cf       |    |		Action	Mark_Auxiliary
010c e215       |    |		Load	0x1,0x15
010d 01da       |    |		Execute	Vector,Bounds
010e e003       |    |		Load	0x0,0x3
010f 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0110 00d0       |    |		Action	Swap_Control
0111 e003       |    |		Load	0x0,0x3
0112 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0113 0263       | c  |		Execute	Discrete,Above_Bound
0114 701b       |p   |		Jump_Nonzero	0x130
0115 00d8       |    |		Load_Top	At_Offset_0
0116 e005       |    |		Load	0x0,0x5
0117 027e       | ~  |		Execute	Discrete,Not_Equal
0118 680d       |h   |		Jump_Zero	0x126
0119 e5fd       |    |		Load	0x2,-0x3
011a 00d9       |    |		Load_Top	At_Offset_1
011b e003       |    |		Load	0x0,0x3
011c 1c04       |    |		Execute_Immediate	Run_Utility,0x4
011d e215       |    |		Load	0x1,0x15
011e 01d7       |    |		Execute	Vector,Field_Read
011f 4802       |H   |		Short_Literal	0x2
0120 4802       |H   |		Short_Literal	0x2
0121 0099       |    |		Action	Reference_Dynamic
0122 4803       |H   |		Short_Literal	0x3
0123 4802       |H   |		Short_Literal	0x2
0124 0099       |    |		Action	Reference_Dynamic
0125 800a       |    |		Call	0x0,0xa
0126 00c8       |    |		Action	Pop_Auxiliary_Range
0127 00d9       |    |		Load_Top	At_Offset_1
0128 00d9       |    |		Load_Top	At_Offset_1
0129 027f       |    |		Execute	Discrete,Equal
012a 7004       |p   |		Jump_Nonzero	0x12f
012b e003       |    |		Load	0x0,0x3
012c 0122       | "  |		Execute	Any,Make_Root_Type
012d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
012e 7fe6       |    |		Jump	0x115
012f 00d2       |    |		Pop_Control	Pop_Count_2
0130 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0131 0000 0000  |    |		.XXX[0x3]
0133 0000       |    |
0134 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0153       | S  |		.CONST	0x0153								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0004       |    |		.CONST	0x0004								; Number of locals
0143			INIT_0140:
0143 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0144 00c6       |    |		Action	Check_Subprogram_Elaborated
0145 a00c       |    |		Store_Unchecked	0x0,0xc
0146 0093 0000  |    |		push_full_address	0x0
0148 6013       |`   |		Indirect_Literal	Discrete,0x15c,{0x80000000, 0x00010000}
0149 0273       | s  |		Execute	Discrete,Plus
014a e00d       |    |		Load	0x0,0xd
014b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014c 67e7       |g   |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0000ffff}
014d 0279       | y  |		Execute	Discrete,And
014e 0273       | s  |		Execute	Discrete,Plus
014f e00e       |    |		Load	0x0,0xe
0150 0273       | s  |		Execute	Discrete,Plus
0151 4804       |H   |		Short_Literal	0x4
0152 0007       |    |		Action	Break_Optional
0153			BODY_0140:
0153 e5ff       |    |		Load	0x2,-0x1
0154 4802       |H   |		Short_Literal	0x2
0155 4802       |H   |		Short_Literal	0x2
0156 0099       |    |		Action	Reference_Dynamic
0157 4803       |H   |		Short_Literal	0x3
0158 4802       |H   |		Short_Literal	0x2
0159 0099       |    |		Action	Reference_Dynamic
015a 8212       |    |		Call	0x1,0x12
015b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00cf       |    |		Action	Mark_Auxiliary
0164 00db       |    |		Load_Top	At_Offset_3
0165 01dc       |    |		Execute	Vector,Last
0166 0aff       |    |		Execute_Immediate	Plus,-0x1
0167 00d8       |    |		Load_Top	At_Offset_0
0168 00e2       |    |		Load_Encached	Integer_Cache
0169 0260       | `  |		Execute	Discrete,In_Type
016a 7001       |p   |		Jump_Nonzero	0x16c
016b 0801       |    |		Execute_Immediate	Raise,0x1
016c e5ff       |    |		Load	0x2,-0x1
016d 01dd       |    |		Execute	Vector,First
016e 0263       | c  |		Execute	Discrete,Above_Bound
016f 7021       |p!  |		Jump_Nonzero	0x191
0170 00cf       |    |		Action	Mark_Auxiliary
0171 e5ff       |    |		Load	0x2,-0x1
0172 01dc       |    |		Execute	Vector,Last
0173 00da       |    |		Load_Top	At_Offset_2
0174 0a01       |    |		Execute_Immediate	Plus,0x1
0175 00d8       |    |		Load_Top	At_Offset_0
0176 00e2       |    |		Load_Encached	Integer_Cache
0177 0260       | `  |		Execute	Discrete,In_Type
0178 7001       |p   |		Jump_Nonzero	0x17a
0179 0801       |    |		Execute_Immediate	Raise,0x1
017a 0263       | c  |		Execute	Discrete,Above_Bound
017b 7012       |p   |		Jump_Nonzero	0x18e
017c 00db       |    |		Load_Top	At_Offset_3
017d e5ff       |    |		Load	0x2,-0x1
017e 01d5       |    |		Execute	Vector,Field_Reference
017f e00f       |    |		Load	0x0,0xf
0180 017f       |    |		Execute	Record,Equal
0181 700a       |p   |		Jump_Nonzero	0x18c
0182 00db       |    |		Load_Top	At_Offset_3
0183 e5ff       |    |		Load	0x2,-0x1
0184 01d5       |    |		Execute	Vector,Field_Reference
0185 00d9       |    |		Load_Top	At_Offset_1
0186 e5ff       |    |		Load	0x2,-0x1
0187 01d5       |    |		Execute	Vector,Field_Reference
0188 017f       |    |		Execute	Record,Equal
0189 6802       |h   |		Jump_Zero	0x18c
018a 4801       |H   |		Short_Literal	0x1
018b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018c 00c8       |    |		Action	Pop_Auxiliary_Range
018d 3fee       |?   |		Loop_Increasing	0x17c
018e 00ce       |    |		Action	Pop_Auxiliary
018f 00c8       |    |		Action	Pop_Auxiliary_Range
0190 3fdf       |?   |		Loop_Increasing	0x170
0191 00ce       |    |		Action	Pop_Auxiliary
0192 4800       |H   |		Short_Literal	0x0
0193 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0194 0000 0000  |    |		.BLANK	0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a4       |    |		.CONST	0x01a4								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0005       |    |		.CONST	0x0005								; Number of locals
019b			INIT_0198:
019b e003       |    |		Load	0x0,0x3
019c 0007       |    |		Action	Break_Optional
019d e004       |    |		Load	0x0,0x4
019e 0007       |    |		Action	Break_Optional
019f e010       |    |		Load	0x0,0x10
01a0 0322       | "  |		Declare_Variable	Record
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a3 00e3       |    |		Load_Encached	Natural_Cache
01a4			BODY_0198:
01a4 e7ff       |    |		Load	0x3,-0x1
01a5 e5f8       |    |		Load	0x2,-0x8
01a6 01dc       |    |		Execute	Vector,Last
01a7 027d       | }  |		Execute	Discrete,Greater
01a8 6818       |h   |		Jump_Zero	0x1c1
01a9 e405       |    |		Load	0x2,0x5
01aa 6814       |h   |		Jump_Zero	0x1bf
01ab 4800       |H   |		Short_Literal	0x0
01ac a405       |    |		Store_Unchecked	0x2,0x5
01ad e404       |    |		Load	0x2,0x4
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 0335       | 5  |		Declare_Variable	Array,Duplicate
01b0 00cd       |    |		Action	Spare6_Action
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 01d9       |    |		Execute	Vector,Reverse_Bounds
01b3 0263       | c  |		Execute	Discrete,Above_Bound
01b4 7005       |p   |		Jump_Nonzero	0x1ba
01b5 4801       |H   |		Short_Literal	0x1
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 e607       |    |		Load	0x3,0x7
01b8 01d6       |    |		Execute	Vector,Field_Write
01b9 3ffb       |?   |		Loop_Increasing	0x1b5
01ba 00cd       |    |		Action	Spare6_Action
01bb e404       |    |		Load	0x2,0x4
01bc 01d4       |    |		Execute	Vector,Structure_Write
01bd 4800       |H   |		Short_Literal	0x0
01be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bf 4801       |H   |		Short_Literal	0x1
01c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c1 e7ff       |    |		Load	0x3,-0x1
01c2 e5f8       |    |		Load	0x2,-0x8
01c3 01d5       |    |		Execute	Vector,Field_Reference
01c4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c5 4602       |F   |		Jump_Case	0x3
01c6 781d       |x   |		Jump	0x1e4								; case 0x0
01c7 7855       |xU  |		Jump	0x21d								; case 0x1
01c8 7800       |x   |		Jump	0x1c9								; case 0x2
01c9 e7ff       |    |		Load	0x3,-0x1
01ca e5f8       |    |		Load	0x2,-0x8
01cb 01d5       |    |		Execute	Vector,Field_Reference
01cc 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01cd e7ff       |    |		Load	0x3,-0x1
01ce e5f8       |    |		Load	0x2,-0x8
01cf 01d5       |    |		Execute	Vector,Field_Reference
01d0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01d1 e011       |    |		Load	0x0,0x11
01d2 0119       |    |		Execute	Any,Check_In_Formal_Type
01d3 8012       |    |		Call	0x0,0x12
01d4 6877       |hw  |		Jump_Zero	0x24c
01d5 e7ff       |    |		Load	0x3,-0x1
01d6 0a01       |    |		Execute_Immediate	Plus,0x1
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 00e4       |    |		Load_Encached	Positive_Cache
01d9 0260       | `  |		Execute	Discrete,In_Type
01da 7001       |p   |		Jump_Nonzero	0x1dc
01db 0801       |    |		Execute_Immediate	Raise,0x1
01dc 8406       |    |		Call	0x2,0x6
01dd 686e       |hn  |		Jump_Zero	0x24c
01de e00f       |    |		Load	0x0,0xf
01df e7ff       |    |		Load	0x3,-0x1
01e0 e402       |    |		Load	0x2,0x2
01e1 01d6       |    |		Execute	Vector,Field_Write
01e2 4801       |H   |		Short_Literal	0x1
01e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e4 e7ff       |    |		Load	0x3,-0x1
01e5 e5f8       |    |		Load	0x2,-0x8
01e6 01d5       |    |		Execute	Vector,Field_Reference
01e7 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01e8 c602       |    |		Store	0x3,0x2
01e9 00db       |    |		Load_Top	At_Offset_3
01ea e003       |    |		Load	0x0,0x3
01eb 1c04       |    |		Execute_Immediate	Run_Utility,0x4
01ec e215       |    |		Load	0x1,0x15
01ed 01d7       |    |		Execute	Vector,Field_Read
01ee 003b       | ;  |		Store_Top	Access,At_Offset_3
01ef 00da       |    |		Load_Top	At_Offset_2
01f0 8013       |    |		Call	0x0,0x13
01f1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01f2 00cf       |    |		Action	Mark_Auxiliary
01f3 00d9       |    |		Load_Top	At_Offset_1
01f4 e7ff       |    |		Load	0x3,-0x1
01f5 e404       |    |		Load	0x2,0x4
01f6 01d7       |    |		Execute	Vector,Field_Read
01f7 0263       | c  |		Execute	Discrete,Above_Bound
01f8 7022       |p"  |		Jump_Nonzero	0x21b
01f9 e603       |    |		Load	0x3,0x3
01fa e7ff       |    |		Load	0x3,-0x1
01fb e5f8       |    |		Load	0x2,-0x8
01fc 01d5       |    |		Execute	Vector,Field_Reference
01fd 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
01fe 00da       |    |		Load_Top	At_Offset_2
01ff 8014       |    |		Call	0x0,0x14
0200 6818       |h   |		Jump_Zero	0x219
0201 e7ff       |    |		Load	0x3,-0x1
0202 0a01       |    |		Execute_Immediate	Plus,0x1
0203 00d8       |    |		Load_Top	At_Offset_0
0204 00e4       |    |		Load_Encached	Positive_Cache
0205 0260       | `  |		Execute	Discrete,In_Type
0206 7001       |p   |		Jump_Nonzero	0x208
0207 0801       |    |		Execute_Immediate	Raise,0x1
0208 8406       |    |		Call	0x2,0x6
0209 680f       |h   |		Jump_Zero	0x219
020a e603       |    |		Load	0x3,0x3
020b 00d9       |    |		Load_Top	At_Offset_1
020c 8015       |    |		Call	0x0,0x15
020d e604       |    |		Load	0x3,0x4
020e 017d       | }  |		Execute	Record,Structure_Write
020f e604       |    |		Load	0x3,0x4
0210 e7ff       |    |		Load	0x3,-0x1
0211 e402       |    |		Load	0x2,0x2
0212 01d6       |    |		Execute	Vector,Field_Write
0213 00d8       |    |		Load_Top	At_Offset_0
0214 e7ff       |    |		Load	0x3,-0x1
0215 e404       |    |		Load	0x2,0x4
0216 01d6       |    |		Execute	Vector,Field_Write
0217 4801       |H   |		Short_Literal	0x1
0218 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0219 00c8       |    |		Action	Pop_Auxiliary_Range
021a 3fde       |?   |		Loop_Increasing	0x1f9
021b 00ce       |    |		Action	Pop_Auxiliary
021c 782f       |x/  |		Jump	0x24c
021d e7ff       |    |		Load	0x3,-0x1
021e e5f8       |    |		Load	0x2,-0x8
021f 01d5       |    |		Execute	Vector,Field_Reference
0220 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0221 c602       |    |		Store	0x3,0x2
0222 00db       |    |		Load_Top	At_Offset_3
0223 e003       |    |		Load	0x0,0x3
0224 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0225 e215       |    |		Load	0x1,0x15
0226 01d7       |    |		Execute	Vector,Field_Read
0227 003b       | ;  |		Store_Top	Access,At_Offset_3
0228 00da       |    |		Load_Top	At_Offset_2
0229 8013       |    |		Call	0x0,0x13
022a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
022b 00cf       |    |		Action	Mark_Auxiliary
022c 00d9       |    |		Load_Top	At_Offset_1
022d 4801       |H   |		Short_Literal	0x1
022e 0263       | c  |		Execute	Discrete,Above_Bound
022f 700c       |p   |		Jump_Nonzero	0x23c
0230 e603       |    |		Load	0x3,0x3
0231 e7ff       |    |		Load	0x3,-0x1
0232 e5f8       |    |		Load	0x2,-0x8
0233 01d5       |    |		Execute	Vector,Field_Reference
0234 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0235 00da       |    |		Load_Top	At_Offset_2
0236 8014       |    |		Call	0x0,0x14
0237 6802       |h   |		Jump_Zero	0x23a
0238 4800       |H   |		Short_Literal	0x0
0239 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023a 00c8       |    |		Action	Pop_Auxiliary_Range
023b 3ff4       |?   |		Loop_Increasing	0x230
023c 00ce       |    |		Action	Pop_Auxiliary
023d e7ff       |    |		Load	0x3,-0x1
023e 0a01       |    |		Execute_Immediate	Plus,0x1
023f 00d8       |    |		Load_Top	At_Offset_0
0240 00e4       |    |		Load_Encached	Positive_Cache
0241 0260       | `  |		Execute	Discrete,In_Type
0242 7001       |p   |		Jump_Nonzero	0x244
0243 0801       |    |		Execute_Immediate	Raise,0x1
0244 8406       |    |		Call	0x2,0x6
0245 6806       |h   |		Jump_Zero	0x24c
0246 e00f       |    |		Load	0x0,0xf
0247 e7ff       |    |		Load	0x3,-0x1
0248 e402       |    |		Load	0x2,0x2
0249 01d6       |    |		Execute	Vector,Field_Write
024a 4801       |H   |		Short_Literal	0x1
024b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024c 4800       |H   |		Short_Literal	0x0
024d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024e 0000 0000  |    |		.XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00cf       |    |		Action	Mark_Auxiliary
0254 e402       |    |		Load	0x2,0x2
0255 01dc       |    |		Execute	Vector,Last
0256 e7ff       |    |		Load	0x3,-0x1
0257 0263       | c  |		Execute	Discrete,Above_Bound
0258 700a       |p   |		Jump_Nonzero	0x263
0259 00d8       |    |		Load_Top	At_Offset_0
025a e402       |    |		Load	0x2,0x2
025b 01d5       |    |		Execute	Vector,Field_Reference
025c e7fe       |    |		Load	0x3,-0x2
025d 017f       |    |		Execute	Record,Equal
025e 6802       |h   |		Jump_Zero	0x261
025f 4801       |H   |		Short_Literal	0x1
0260 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0261 00c8       |    |		Action	Pop_Auxiliary_Range
0262 3ff6       |?   |		Loop_Increasing	0x259
0263 00ce       |    |		Action	Pop_Auxiliary
0264 4800       |H   |		Short_Literal	0x0
0265 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0273       | s  |		.CONST	0x0273								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0004       |    |		.CONST	0x0004								; Number of locals
026b			INIT_0268:
026b e003       |    |		Load	0x0,0x3
026c 0007       |    |		Action	Break_Optional
026d e004       |    |		Load	0x0,0x4
026e 0007       |    |		Action	Break_Optional
026f e010       |    |		Load	0x0,0x10
0270 0322       | "  |		Declare_Variable	Record
0271 00d8       |    |		Load_Top	At_Offset_0
0272 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0273			BODY_0268:
0273 e7ff       |    |		Load	0x3,-0x1
0274 e5ff       |    |		Load	0x2,-0x1
0275 01dc       |    |		Execute	Vector,Last
0276 027d       | }  |		Execute	Discrete,Greater
0277 6802       |h   |		Jump_Zero	0x27a
0278 4801       |H   |		Short_Literal	0x1
0279 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027a e7ff       |    |		Load	0x3,-0x1
027b e5ff       |    |		Load	0x2,-0x1
027c 01d5       |    |		Execute	Vector,Field_Reference
027d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027e 4602       |F   |		Jump_Case	0x3
027f 781d       |x   |		Jump	0x29d								; case 0x0
0280 7857       |xW  |		Jump	0x2d8								; case 0x1
0281 7800       |x   |		Jump	0x282								; case 0x2
0282 e7ff       |    |		Load	0x3,-0x1
0283 e5ff       |    |		Load	0x2,-0x1
0284 01d5       |    |		Execute	Vector,Field_Reference
0285 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0286 e7ff       |    |		Load	0x3,-0x1
0287 e5ff       |    |		Load	0x2,-0x1
0288 01d5       |    |		Execute	Vector,Field_Reference
0289 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
028a e011       |    |		Load	0x0,0x11
028b 0119       |    |		Execute	Any,Check_In_Formal_Type
028c 8012       |    |		Call	0x0,0x12
028d 6877       |hw  |		Jump_Zero	0x305
028e e7ff       |    |		Load	0x3,-0x1
028f 0a01       |    |		Execute_Immediate	Plus,0x1
0290 00d8       |    |		Load_Top	At_Offset_0
0291 00e4       |    |		Load_Encached	Positive_Cache
0292 0260       | `  |		Execute	Discrete,In_Type
0293 7001       |p   |		Jump_Nonzero	0x295
0294 0801       |    |		Execute_Immediate	Raise,0x1
0295 8404       |    |		Call	0x2,0x4
0296 686e       |hn  |		Jump_Zero	0x305
0297 e00f       |    |		Load	0x0,0xf
0298 e7ff       |    |		Load	0x3,-0x1
0299 e402       |    |		Load	0x2,0x2
029a 01d6       |    |		Execute	Vector,Field_Write
029b 4801       |H   |		Short_Literal	0x1
029c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029d e7ff       |    |		Load	0x3,-0x1
029e e5ff       |    |		Load	0x2,-0x1
029f 01d5       |    |		Execute	Vector,Field_Reference
02a0 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02a1 005b       | [  |		Store_Top	Discrete,At_Offset_3
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 e003       |    |		Load	0x0,0x3
02a4 1c04       |    |		Execute_Immediate	Run_Utility,0x4
02a5 e215       |    |		Load	0x1,0x15
02a6 01d7       |    |		Execute	Vector,Field_Read
02a7 003a       | :  |		Store_Top	Access,At_Offset_2
02a8 00cf       |    |		Action	Mark_Auxiliary
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 8013       |    |		Call	0x0,0x13
02ab 4801       |H   |		Short_Literal	0x1
02ac 0263       | c  |		Execute	Discrete,Above_Bound
02ad 7028       |p(  |		Jump_Nonzero	0x2d6
02ae e603       |    |		Load	0x3,0x3
02af e7ff       |    |		Load	0x3,-0x1
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 01d5       |    |		Execute	Vector,Field_Reference
02b2 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 8014       |    |		Call	0x0,0x14
02b5 681e       |h   |		Jump_Zero	0x2d4
02b6 e7ff       |    |		Load	0x3,-0x1
02b7 0a01       |    |		Execute_Immediate	Plus,0x1
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 00e4       |    |		Load_Encached	Positive_Cache
02ba 0260       | `  |		Execute	Discrete,In_Type
02bb 7001       |p   |		Jump_Nonzero	0x2bd
02bc 0801       |    |		Execute_Immediate	Raise,0x1
02bd 8404       |    |		Call	0x2,0x4
02be 6815       |h   |		Jump_Zero	0x2d4
02bf e603       |    |		Load	0x3,0x3
02c0 00d9       |    |		Load_Top	At_Offset_1
02c1 8015       |    |		Call	0x0,0x15
02c2 e604       |    |		Load	0x3,0x4
02c3 017d       | }  |		Execute	Record,Structure_Write
02c4 00db       |    |		Load_Top	At_Offset_3
02c5 e7ff       |    |		Load	0x3,-0x1
02c6 0a01       |    |		Execute_Immediate	Plus,0x1
02c7 00d8       |    |		Load_Top	At_Offset_0
02c8 00e4       |    |		Load_Encached	Positive_Cache
02c9 0260       | `  |		Execute	Discrete,In_Type
02ca 7001       |p   |		Jump_Nonzero	0x2cc
02cb 0801       |    |		Execute_Immediate	Raise,0x1
02cc 8403       |    |		Call	0x2,0x3
02cd 7006       |p   |		Jump_Nonzero	0x2d4
02ce 00db       |    |		Load_Top	At_Offset_3
02cf e7ff       |    |		Load	0x3,-0x1
02d0 e402       |    |		Load	0x2,0x2
02d1 01d6       |    |		Execute	Vector,Field_Write
02d2 4801       |H   |		Short_Literal	0x1
02d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d4 00c8       |    |		Action	Pop_Auxiliary_Range
02d5 3fd8       |?   |		Loop_Increasing	0x2ae
02d6 00ce       |    |		Action	Pop_Auxiliary
02d7 782d       |x-  |		Jump	0x305
02d8 e7ff       |    |		Load	0x3,-0x1
02d9 e5ff       |    |		Load	0x2,-0x1
02da 01d5       |    |		Execute	Vector,Field_Reference
02db 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02dc 005b       | [  |		Store_Top	Discrete,At_Offset_3
02dd 00da       |    |		Load_Top	At_Offset_2
02de e003       |    |		Load	0x0,0x3
02df 1c04       |    |		Execute_Immediate	Run_Utility,0x4
02e0 e215       |    |		Load	0x1,0x15
02e1 01d7       |    |		Execute	Vector,Field_Read
02e2 003a       | :  |		Store_Top	Access,At_Offset_2
02e3 00cf       |    |		Action	Mark_Auxiliary
02e4 00da       |    |		Load_Top	At_Offset_2
02e5 8013       |    |		Call	0x0,0x13
02e6 4801       |H   |		Short_Literal	0x1
02e7 0263       | c  |		Execute	Discrete,Above_Bound
02e8 700c       |p   |		Jump_Nonzero	0x2f5
02e9 e603       |    |		Load	0x3,0x3
02ea e7ff       |    |		Load	0x3,-0x1
02eb e5ff       |    |		Load	0x2,-0x1
02ec 01d5       |    |		Execute	Vector,Field_Reference
02ed 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02ee 00da       |    |		Load_Top	At_Offset_2
02ef 8014       |    |		Call	0x0,0x14
02f0 6802       |h   |		Jump_Zero	0x2f3
02f1 4800       |H   |		Short_Literal	0x0
02f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f3 00c8       |    |		Action	Pop_Auxiliary_Range
02f4 3ff4       |?   |		Loop_Increasing	0x2e9
02f5 00ce       |    |		Action	Pop_Auxiliary
02f6 e7ff       |    |		Load	0x3,-0x1
02f7 0a01       |    |		Execute_Immediate	Plus,0x1
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 00e4       |    |		Load_Encached	Positive_Cache
02fa 0260       | `  |		Execute	Discrete,In_Type
02fb 7001       |p   |		Jump_Nonzero	0x2fd
02fc 0801       |    |		Execute_Immediate	Raise,0x1
02fd 8404       |    |		Call	0x2,0x4
02fe 6806       |h   |		Jump_Zero	0x305
02ff e00f       |    |		Load	0x0,0xf
0300 e7ff       |    |		Load	0x3,-0x1
0301 e402       |    |		Load	0x2,0x2
0302 01d6       |    |		Execute	Vector,Field_Write
0303 4801       |H   |		Short_Literal	0x1
0304 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0305 4800       |H   |		Short_Literal	0x0
0306 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0307 0000       |    |		.XXX[0x1]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xf11b,0x0000,0x0001,0x000d
030e 000b 0342  |   B|		.DBG4T	0x000b,0x0342,0x0000,0x0000
0312 001a 034b  |   K|		.DBG4T	0x001a,0x034b,0x0000,0x0000
0316 004b 0357  | K W|		.DBG4T	0x004b,0x0357,0x0001,0x0000
031a 007b 035c  | { \|		.DBG4T	0x007b,0x035c,0x0001,0x0000
031e 008b 035f  |   _|		.DBG4T	0x008b,0x035f,0x0002,0x0000
0322 009b 0362  |   b|		.DBG4T	0x009b,0x0362,0x2801,0x4002
0326 00db 0372  |   r|		.DBG4T	0x00db,0x0372,0x0002,0x0000
032a 00fb 037a  |   z|		.DBG4T	0x00fb,0x037a,0x2801,0x0002
032e 0143 0380  | C  |		.DBG4T	0x0143,0x0380,0x0001,0x0000
0332 0163 0384  | c  |		.DBG4T	0x0163,0x0384,0x0002,0x0000
0336 019b 038b  |    |		.DBG4T	0x019b,0x038b,0x0802,0x4002
033a 0253 03cf  | S  |		.DBG4T	0x0253,0x03cf,0x0002,0x0000
033e 026b 03d5  | k  |		.DBG4T	0x026b,0x03d5,0x0002,0x4000
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug chain
0342 ; --------------------------------------------------------------------------------------
0342 0007 0000  |    |		.DBGLEN	0x0007,0x0000
0344 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017
034b ; --------------------------------------------------------------------------------------
034b ; Debug chain
034b ; --------------------------------------------------------------------------------------
034b 000a 0000  |    |		.DBGLEN	0x000a,0x0000
034d 001a 0025  |   %|		.DBGLNO	0x001a,0x0025,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
0357 ; --------------------------------------------------------------------------------------
0357 ; Debug chain
0357 ; --------------------------------------------------------------------------------------
0357 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0359 004c 0050  | L P|		.DBGLNO	0x004c,0x0050,0x005c
035c ; --------------------------------------------------------------------------------------
035c ; Debug chain
035c ; --------------------------------------------------------------------------------------
035c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
035e 007b       | {  |		.DBGLNO	0x007b
035f ; --------------------------------------------------------------------------------------
035f ; Debug chain
035f ; --------------------------------------------------------------------------------------
035f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0361 008b       |    |		.DBGLNO	0x008b
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug chain
0362 ; --------------------------------------------------------------------------------------
0362 0004 0005  |    |		.DBGLEN	0x0004,0x0005
0364 009b 00a2  |    |		.DBGLNO	0x009b,0x00a2,0x00b8,0x00ba,0x00bc,0x00c1,0x00c3,0x00c6,0x00cb
036d 0001 0003  |    |		.XXX[0x5]
036f 0004 0005  |    |
0371 0002       |    |
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug chain
0372 ; --------------------------------------------------------------------------------------
0372 0003 0003  |    |		.DBGLEN	0x0003,0x0003
0374 00db 00e2  |    |		.DBGLNO	0x00db,0x00e2,0x00e4,0x00e6,0x00f2,0x00f6
037a ; --------------------------------------------------------------------------------------
037a ; Debug chain
037a ; --------------------------------------------------------------------------------------
037a 0001 0003  |    |		.DBGLEN	0x0001,0x0003
037c 00fb 010c  |    |		.DBGLNO	0x00fb,0x010c,0x0115,0x0119
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug chain
0380 ; --------------------------------------------------------------------------------------
0380 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0382 0143 0153  | C S|		.DBGLNO	0x0143,0x0153
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug chain
0384 ; --------------------------------------------------------------------------------------
0384 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0386 0164 0171  | d q|		.DBGLNO	0x0164,0x0171,0x017c,0x018a,0x0192
038b ; --------------------------------------------------------------------------------------
038b ; Debug chain
038b ; --------------------------------------------------------------------------------------
038b 0004 001f  |    |		.DBGLEN	0x0004,0x001f
038d 019b 019d  |    |		.DBGLNO	0x019b,0x019d,0x019f,0x01a3,0x01a4,0x01a9,0x01ab,0x01ad,0x01bd,0x01bf,0x01c1,0x01c9,0x01d5,0x01de,0x01e2,0x01e4,0x01e9,0x01ef,0x01f3,0x01f9,0x0201,0x020a,0x020f,0x0213,0x0217,0x021d,0x0222,0x0228,0x022c,0x0230,0x0238,0x023d,0x0246,0x024a,0x024c
03b0 0001 0002  |    |		.XXX[0x1f]
03b2 0003 0004  |    |
03b4 0005 0006  |    |
03b6 0007 001b  |    |
03b8 001c 001d  |    |
03ba 001e 0008  |    |
03bc 0009 000a  |    |
03be 000b 000c  |    |
03c0 000d 000e  |    |
03c2 000f 0010  |    |
03c4 0011 0012  |    |
03c6 0013 0014  |    |
03c8 0015 0016  |    |
03ca 0017 0018  |    |
03cc 0019 001a  |    |
03ce 001f       |    |
03cf ; --------------------------------------------------------------------------------------
03cf ; Debug chain
03cf ; --------------------------------------------------------------------------------------
03cf 0000 0004  |    |		.DBGLEN	0x0000,0x0004
03d1 0254 0259  | T Y|		.DBGLNO	0x0254,0x0259,0x025f,0x0264
03d5 ; --------------------------------------------------------------------------------------
03d5 ; Debug chain
03d5 ; --------------------------------------------------------------------------------------
03d5 0003 0019  |    |		.DBGLEN	0x0003,0x0019
03d7 026b 026d  | k m|		.DBGLNO	0x026b,0x026d,0x026f,0x0273,0x0278,0x027a,0x0282,0x028e,0x0297,0x029b,0x029d,0x02a2,0x02a9,0x02ae,0x02b6,0x02bf,0x02c4,0x02ce,0x02d2,0x02d8,0x02dd,0x02e4,0x02e9,0x02f1,0x02f6,0x02ff,0x0303,0x0305
03f3 0001 0002  |    |		.XXX[0x19]
03f5 0003 0015  |    |
03f7 0016 0017  |    |
03f9 0018 0004  |    |
03fb 0005 0006  |    |
03fd 0007 0008  |    |
03ff 0009 000a  |    |
0401 000b 000c  |    |
0403 000d 000e  |    |
0405 000f 0010  |    |
0407 0011 0012  |    |
0409 0013 0014  |    |
040b 0019       |    |
040c 0000 0000  |    |		.BLANK	0000[0x1f4]