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

⟦7c4c0e471⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02b8       |    |		.CONST	0x02b8								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0042       | B  |		.CONST	0x0042								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0322,0x0000,0x0000,0x0057,0x5005,0x0000,0x0430
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 00bf       |    |		Action	Accept_Activation
001e e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x001e,0x0336,0x0000,0x0000,0x0057,0x5195,0x0000,0x0008
													; Debug Table 0x1.0x0 = 0x1e,0xffff
001f 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
0020 0322       | "  |		Declare_Variable	Record
0021 e002       |    |		Load	0x0,0x2
0022 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0023 00d9       |    |		Load_Top	At_Offset_1
0024 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0025 4800       |H   |		Short_Literal	0x0
0026 00d9       |    |		Load_Top	At_Offset_1
0027 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0028 4800       |H   |		Short_Literal	0x0
0029 00d9       |    |		Load_Top	At_Offset_1
002a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
002b 4800       |H   |		Short_Literal	0x0
002c 00d9       |    |		Load_Top	At_Offset_1
002d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
002e 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call			; Debug Table 0x1.0x1 = 0x2e,0xfffe
0030 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x2 = 0x30,0xfffd
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x3 = 0x32,0xfffc
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x4 = 0x34,0xfffb
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x5 = 0x36,0xfffa
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x6 = 0x38,0xfff9
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x7 = 0x3a,0xfff8
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x8 = 0x3c,0xfff7
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x9 = 0x3e,0xfff6
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xa = 0x40,0xfff5
0041 00c7       |    |		Action	Elaborate_Subprogram
0042			BODY_0008:
0042 00bc       |    |		Action	Signal_Activated
0043 00bb       |    |		Action	Signal_Completion
0044 0000 0000  |    |		.BLANK	0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004f       | O  |		.CONST	0x004f								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0003       |    |		.CONST	0x0003								; Number of locals
004b			INIT_0048:
004b e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x004b,0x034e,0x0001,0x0000,0x0057,0x5005,0x0000,0x0431
													; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
004d 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x2.0x1 = 0x4d,0xfffe
004e 0606       |    |		Execute_Immediate	Set_Value_Unchecked,0x6
004f			BODY_0048:
004f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x2 = 0x4f,0x1
0050 e001       |    |		Load	0x0,0x1
0051 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0052 025b       | [  |		Execute	Discrete,Check_In_Type
0053 e001       |    |		Load	0x0,0x1
0054 1b9e       |    |		Execute	Package,Field_Read,Field_Number 0x9e
0055 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0056 4801       |H   |		Short_Literal	0x1
0057 e5ff       |    |		Load	0x2,-0x1
0058 e001       |    |		Load	0x0,0x1
0059 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
005a 025b       | [  |		Execute	Discrete,Check_In_Type
005b e001       |    |		Load	0x0,0x1
005c 1ba9       |    |		Execute	Package,Field_Read,Field_Number 0xa9
005d 0334       | 4  |		Declare_Variable	Array,With_Constraint
005e 00d8       |    |		Load_Top	At_Offset_0
005f 01dc       |    |		Execute	Vector,Last
0060 4801       |H   |		Short_Literal	0x1
0061 0263       | c  |		Execute	Discrete,Above_Bound
0062 7005       |p   |		Jump_Nonzero	0x68
0063 e216       |    |		Load	0x1,0x16
0064 00d9       |    |		Load_Top	At_Offset_1
0065 e405       |    |		Load	0x2,0x5
0066 01d6       |    |		Execute	Vector,Field_Write
0067 3ffb       |?   |		Loop_Increasing	0x63
0068 00d9       |    |		Load_Top	At_Offset_1
0069 00d8       |    |		Load_Top	At_Offset_0
006a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
006b 00da       |    |		Load_Top	At_Offset_2
006c 01da       |    |		Execute	Vector,Bounds
006d 00da       |    |		Load_Top	At_Offset_2
006e 01da       |    |		Execute	Vector,Bounds
006f 00da       |    |		Load_Top	At_Offset_2
0070 027f       |    |		Execute	Discrete,Equal
0071 7002       |p   |		Jump_Nonzero	0x74
0072 48e0       |H   |		Short_Literal	0xe0
0073 0257       | W  |		Execute	Discrete,Raise
0074 00d0       |    |		Action	Swap_Control
0075 00d1       |    |		Pop_Control	Pop_Count_1
0076 027f       |    |		Execute	Discrete,Equal
0077 7002       |p   |		Jump_Nonzero	0x7a
0078 48e0       |H   |		Short_Literal	0xe0
0079 0257       | W  |		Execute	Discrete,Raise
007a 00d2       |    |		Pop_Control	Pop_Count_2
007b 00d9       |    |		Load_Top	At_Offset_1
007c 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
007d e5fe       |    |		Load	0x2,-0x2
007e 0217       |    |		Execute	Heap_Access,All_Reference
007f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0080 e003       |    |		Load	0x0,0x3
0081 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0082 0119       |    |		Execute	Any,Check_In_Formal_Type
0083 00d9       |    |		Load_Top	At_Offset_1
0084 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0085 4805       |H   |		Short_Literal	0x5
0086 00d9       |    |		Load_Top	At_Offset_1
0087 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0088 e001       |    |		Load	0x0,0x1
0089 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
008a e5fe       |    |		Load	0x2,-0x2
008b 0217       |    |		Execute	Heap_Access,All_Reference
008c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
008d 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
008e 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
008f e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x3 = 0x8f,0x2
													; Debug Table 0x2.0x4 = 0x8f,0x3
0090 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
0091 0322       | "  |		Declare_Variable	Record
0092 0092 029c  |    |		Action	Push_String_Extended,0x29c					; "STATUS"
0094 e004       |    |		Load	0x0,0x4
0095 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0096 00d9       |    |		Load_Top	At_Offset_1
0097 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0098 4803       |H   |		Short_Literal	0x3
0099 00d9       |    |		Load_Top	At_Offset_1
009a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009b 4801       |H   |		Short_Literal	0x1
009c 00d9       |    |		Load_Top	At_Offset_1
009d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
009e 4801       |H   |		Short_Literal	0x1
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a1 e001       |    |		Load	0x0,0x1
00a2 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
00a3 00db       |    |		Load_Top	At_Offset_3
00a4 0217       |    |		Execute	Heap_Access,All_Reference
00a5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00a6 01d6       |    |		Execute	Vector,Field_Write
00a7 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x5 = 0xa7,0x4
00a8 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
00a9 0322       | "  |		Declare_Variable	Record
00aa 0092 029d  |    |		Action	Push_String_Extended,0x29d					; "NAME"
00ac e004       |    |		Load	0x0,0x4
00ad 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b0 4828       |H(  |		Short_Literal	0x28
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b3 4802       |H   |		Short_Literal	0x2
00b4 00d9       |    |		Load_Top	At_Offset_1
00b5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00b6 4801       |H   |		Short_Literal	0x1
00b7 00d9       |    |		Load_Top	At_Offset_1
00b8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00b9 e001       |    |		Load	0x0,0x1
00ba 1b42       | B  |		Execute	Package,Field_Read,Field_Number 0x42
00bb 00db       |    |		Load_Top	At_Offset_3
00bc 0217       |    |		Execute	Heap_Access,All_Reference
00bd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00be 01d6       |    |		Execute	Vector,Field_Write
00bf e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x6 = 0xbf,0x5
00c0 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
00c1 0322       | "  |		Declare_Variable	Record
00c2 0092 029e  |    |		Action	Push_String_Extended,0x29e					; "OBJECT_EDITOR"
00c4 e004       |    |		Load	0x0,0x4
00c5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c8 480c       |H   |		Short_Literal	0xc
00c9 00d9       |    |		Load_Top	At_Offset_1
00ca 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00cb 4803       |H   |		Short_Literal	0x3
00cc 00d9       |    |		Load_Top	At_Offset_1
00cd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ce 4801       |H   |		Short_Literal	0x1
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00d1 e001       |    |		Load	0x0,0x1
00d2 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 0217       |    |		Execute	Heap_Access,All_Reference
00d5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00d6 01d6       |    |		Execute	Vector,Field_Write
00d7 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x7 = 0xd7,0x6
00d8 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
00d9 0322       | "  |		Declare_Variable	Record
00da 0092 029f  |    |		Action	Push_String_Extended,0x29f					; "OVERWRITE"
00dc e004       |    |		Load	0x0,0x4
00dd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00de 00d9       |    |		Load_Top	At_Offset_1
00df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e0 61b7       |a   |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x7fffffff}
00e1 00d9       |    |		Load_Top	At_Offset_1
00e2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e3 4804       |H   |		Short_Literal	0x4
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e6 4801       |H   |		Short_Literal	0x1
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00e9 e001       |    |		Load	0x0,0x1
00ea 1b44       | D  |		Execute	Package,Field_Read,Field_Number 0x44
00eb 00db       |    |		Load_Top	At_Offset_3
00ec 0217       |    |		Execute	Heap_Access,All_Reference
00ed 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00ee 01d6       |    |		Execute	Vector,Field_Write
00ef e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x8 = 0xef,0x7
00f0 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
00f1 0322       | "  |		Declare_Variable	Record
00f2 0092 02a0  |    |		Action	Push_String_Extended,0x2a0					; "FILL"
00f4 e004       |    |		Load	0x0,0x4
00f5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00f8 619f       |a   |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x7fffffff}
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00fb 4805       |H   |		Short_Literal	0x5
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00fe 4801       |H   |		Short_Literal	0x1
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0101 e001       |    |		Load	0x0,0x1
0102 1b45       | E  |		Execute	Package,Field_Read,Field_Number 0x45
0103 00db       |    |		Load_Top	At_Offset_3
0104 0217       |    |		Execute	Heap_Access,All_Reference
0105 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0106 01d6       |    |		Execute	Vector,Field_Write
0107 00cf       |    |		Action	Mark_Auxiliary
0108 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x9 = 0x108,0x8
0109 0a09       |    |		Execute_Immediate	Plus,0x9
010a 0248       | H  |		Execute	Discrete,Check_In_Integer
010b e5ff       |    |		Load	0x2,-0x1
010c 0aff       |    |		Execute_Immediate	Plus,-0x1
010d 0248       | H  |		Execute	Discrete,Check_In_Integer
010e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xa = 0x10e,0x401
010f 00da       |    |		Load_Top	At_Offset_2
0110 027c       | |  |		Execute	Discrete,Less
0111 6802       |h   |		Jump_Zero	0x114
0112 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xb = 0x112,0x402
0113 7801       |x   |		Jump	0x115
0114 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xc = 0x114,0x403
0115 00d0       |    |		Action	Swap_Control
0116 00d1       |    |		Pop_Control	Pop_Count_1
0117 00d0       |    |		Action	Swap_Control
0118 00d1       |    |		Pop_Control	Pop_Count_1
0119 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0xd = 0x119,0x8
011a 0263       | c  |		Execute	Discrete,Above_Bound
011b 7021       |p!  |		Jump_Nonzero	0x13d
011c e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0xe = 0x11c,0x9
011d 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
011e 0322       | "  |		Declare_Variable	Record
011f 00d9       |    |		Load_Top	At_Offset_1
0120 e403       |    |		Load	0x2,0x3
0121 0272       | r  |		Execute	Discrete,Minus
0122 00e3       |    |		Load_Encached	Natural_Cache
0123 025b       | [  |		Execute	Discrete,Check_In_Type
0124 8217       |    |		Call	0x1,0x17
0125 e004       |    |		Load	0x0,0x4
0126 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0127 00d9       |    |		Load_Top	At_Offset_1
0128 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0129 616e       |an  |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x7fffffff}
012a 00d9       |    |		Load_Top	At_Offset_1
012b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012c 00d9       |    |		Load_Top	At_Offset_1
012d 0a01       |    |		Execute_Immediate	Plus,0x1
012e 00d9       |    |		Load_Top	At_Offset_1
012f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0130 4801       |H   |		Short_Literal	0x1
0131 00d9       |    |		Load_Top	At_Offset_1
0132 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0133 00d9       |    |		Load_Top	At_Offset_1
0134 e001       |    |		Load	0x0,0x1
0135 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0136 025b       | [  |		Execute	Discrete,Check_In_Type
0137 e402       |    |		Load	0x2,0x2
0138 0217       |    |		Execute	Heap_Access,All_Reference
0139 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
013a 01d6       |    |		Execute	Vector,Field_Write
013b 00c8       |    |		Action	Pop_Auxiliary_Range
013c 3fdf       |?   |		Loop_Increasing	0x11c
013d 00ce       |    |		Action	Pop_Auxiliary
013e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xf = 0x13e,0xa
013f 0a09       |    |		Execute_Immediate	Plus,0x9
0140 0248       | H  |		Execute	Discrete,Check_In_Integer
0141 e5ff       |    |		Load	0x2,-0x1
0142 0aff       |    |		Execute_Immediate	Plus,-0x1
0143 0248       | H  |		Execute	Discrete,Check_In_Integer
0144 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x10 = 0x144,0x801
0145 00da       |    |		Load_Top	At_Offset_2
0146 027c       | |  |		Execute	Discrete,Less
0147 6802       |h   |		Jump_Zero	0x14a
0148 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x11 = 0x148,0x802
0149 7801       |x   |		Jump	0x14b
014a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x12 = 0x14a,0x803
014b 00d0       |    |		Action	Swap_Control
014c 00d1       |    |		Pop_Control	Pop_Count_1
014d 00d0       |    |		Action	Swap_Control
014e 00d1       |    |		Pop_Control	Pop_Count_1
014f e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x13 = 0x14f,0xa
0150 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0151 025b       | [  |		Execute	Discrete,Check_In_Type
0152 00da       |    |		Load_Top	At_Offset_2
0153 0217       |    |		Execute	Heap_Access,All_Reference
0154 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0155 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x14 = 0x155,0xb
0156 a5fd       |    |		Store_Unchecked	0x2,-0x3
0157 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x015b,0x037a,0x0001,0x0000,0x0057,0x5005,0x0000,0x0441
													; Debug Table 0x3.0x0 = 0x15b,0x1
015c 0217       |    |		Execute	Heap_Access,All_Reference
015d e001       |    |		Load	0x0,0x1
015e 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
015f e5ff       |    |		Load	0x2,-0x1
0160 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0161 a5fe       |    |		Store_Unchecked	0x2,-0x2
0162 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x3.0x1 = 0x162,0x2
0163 0000 0000  |    |		.BLANK	0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 019b       |    |		.CONST	0x019b								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4 = .DEBUG	0x016b,0x0380,0x0001,0x0000,0x0057,0x5005,0x0000,0x044d
													; Debug Table 0x4.0x0 = 0x16b,0x1
016c 0217       |    |		Execute	Heap_Access,All_Reference
016d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
016e e5fb       |    |		Load	0x2,-0x5
016f 0217       |    |		Execute	Heap_Access,All_Reference
0170 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0171 027f       |    |		Execute	Discrete,Equal
0172 6804       |h   |		Jump_Zero	0x177
0173 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1 = 0x173,0x2
0174 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0175 a5fa       |    |		Store_Unchecked	0x2,-0x6
0176 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0177 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4.0x2 = 0x177,0x3
0178 0217       |    |		Execute	Heap_Access,All_Reference
0179 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
017a 0a01       |    |		Execute_Immediate	Plus,0x1
017b e5fb       |    |		Load	0x2,-0x5
017c 0217       |    |		Execute	Heap_Access,All_Reference
017d 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
017e e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4.0x3 = 0x17e,0x4
017f 0217       |    |		Execute	Heap_Access,All_Reference
0180 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0181 a5fa       |    |		Store_Unchecked	0x2,-0x6
0182 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x4 = 0x182,0x5
0183 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
0184 0322       | "  |		Declare_Variable	Record
0185 00db       |    |		Load_Top	At_Offset_3
0186 e004       |    |		Load	0x0,0x4
0187 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0188 00d9       |    |		Load_Top	At_Offset_1
0189 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018a e5fe       |    |		Load	0x2,-0x2
018b 00d9       |    |		Load_Top	At_Offset_1
018c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
018d e5fc       |    |		Load	0x2,-0x4
018e 00d9       |    |		Load_Top	At_Offset_1
018f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0190 e5fd       |    |		Load	0x2,-0x3
0191 00d9       |    |		Load_Top	At_Offset_1
0192 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0193 e5fb       |    |		Load	0x2,-0x5
0194 0217       |    |		Execute	Heap_Access,All_Reference
0195 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0196 e5fb       |    |		Load	0x2,-0x5
0197 0217       |    |		Execute	Heap_Access,All_Reference
0198 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0199 01d6       |    |		Execute	Vector,Field_Write
019a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
019b			TRAP_0168:
019b 010e       |    |		Execute	Exception,Is_Constraint_Error
019c 6804       |h   |		Jump_Zero	0x1a1
019d e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x5 = 0x19d,0x6
019e 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
019f a5fa       |    |		Store_Unchecked	0x2,-0x6
01a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a1 0100       |    |		Execute	Exception,Raise
01a2 0000 0000  |    |		.BLANK	0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x01ab,0x038e,0x0001,0x0000,0x0057,0x5005,0x0000,0x046d
													; Debug Table 0x5.0x0 = 0x1ab,0x1
01ac 1ba8       |    |		Execute	Package,Field_Read,Field_Number 0xa8
01ad 0322       | "  |		Declare_Variable	Record
01ae e5fe       |    |		Load	0x2,-0x2
01af e004       |    |		Load	0x0,0x4
01b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b3 e5fd       |    |		Load	0x2,-0x3
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b6 e5fb       |    |		Load	0x2,-0x5
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b9 e5fc       |    |		Load	0x2,-0x4
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01bc 00db       |    |		Load_Top	At_Offset_3
01bd e5fa       |    |		Load	0x2,-0x6
01be 0217       |    |		Execute	Heap_Access,All_Reference
01bf 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01c0 01d6       |    |		Execute	Vector,Field_Write
01c1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d9       |    |		.CONST	0x01d9								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0005       |    |		.CONST	0x0005								; Number of locals
01cb			INIT_01c8:
01cb e002       |    |		Load	0x0,0x2								; Debug Table 0x6 = .DEBUG	0x01cb,0x0392,0x0002,0x0000,0x0057,0x5005,0x0000,0x048d
													; Debug Table 0x6.0x0 = 0x1cb,0xffff
01cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01cd e5fe       |    |		Load	0x2,-0x2
01ce e004       |    |		Load	0x0,0x4
01cf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d0 0039       | 9  |		Store_Top	Access,At_Offset_1
01d1 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x6.0x1 = 0x1d1,0xfffe
01d2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01d3 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x2 = 0x1d3,0xfffd
01d4 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
01d5 e5ff       |    |		Load	0x2,-0x1
01d6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01d7 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x3 = 0x1d7,0xfffc
01d8 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
01d9			BODY_01c8:
01d9 00cf       |    |		Action	Mark_Auxiliary
01da e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x4 = 0x1da,0x1
01db 0217       |    |		Execute	Heap_Access,All_Reference
01dc 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01dd 4801       |H   |		Short_Literal	0x1
01de 0263       | c  |		Execute	Discrete,Above_Bound
01df 701e       |p   |		Jump_Nonzero	0x1fe
01e0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x5 = 0x1e0,0x2
01e1 e5ff       |    |		Load	0x2,-0x1
01e2 0217       |    |		Execute	Heap_Access,All_Reference
01e3 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01e4 01d5       |    |		Execute	Vector,Field_Reference
01e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e6 e402       |    |		Load	0x2,0x2
01e7 e004       |    |		Load	0x0,0x4
01e8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01e9 6802       |h   |		Jump_Zero	0x1ec
01ea 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x6 = 0x1ea,0x3
01eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ec 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x7 = 0x1ec,0x4
01ed e5ff       |    |		Load	0x2,-0x1
01ee 0217       |    |		Execute	Heap_Access,All_Reference
01ef 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01f0 01d5       |    |		Execute	Vector,Field_Reference
01f1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01f2 e403       |    |		Load	0x2,0x3
01f3 027d       | }  |		Execute	Discrete,Greater
01f4 6807       |h   |		Jump_Zero	0x1fc
01f5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x8 = 0x1f5,0x5
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 0217       |    |		Execute	Heap_Access,All_Reference
01f8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01f9 01d5       |    |		Execute	Vector,Field_Reference
01fa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01fb a403       |    |		Store_Unchecked	0x2,0x3
01fc 00c8       |    |		Action	Pop_Auxiliary_Range
01fd 3fe2       |?   |		Loop_Increasing	0x1e0
01fe 00ce       |    |		Action	Pop_Auxiliary
01ff e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x9 = 0x1ff,0x6
0200 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0201 00da       |    |		Load_Top	At_Offset_2
0202 e403       |    |		Load	0x2,0x3
0203 0a01       |    |		Execute_Immediate	Plus,0x1
0204 00e3       |    |		Load_Encached	Natural_Cache
0205 025b       | [  |		Execute	Discrete,Check_In_Type
0206 4800       |H   |		Short_Literal	0x0
0207 6090       |`   |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x7fffffff}
0208 e5fe       |    |		Load	0x2,-0x2
0209 820f       |    |		Call	0x1,0xf
020a 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
020b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
020c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0xa = 0x20c,0x7
020d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7 = .DEBUG	0x0213,0x03aa,0x0002,0x0000,0x0057,0x5005,0x0000,0x049a
													; Debug Table 0x7.0x0 = 0x213,0x1
0214 e001       |    |		Load	0x0,0x1
0215 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0216 027e       | ~  |		Execute	Discrete,Not_Equal
0217 6809       |h   |		Jump_Zero	0x221
0218 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x1 = 0x218,0x2
0219 00db       |    |		Load_Top	At_Offset_3
021a 0217       |    |		Execute	Heap_Access,All_Reference
021b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
021c 01d5       |    |		Execute	Vector,Field_Reference
021d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021e e004       |    |		Load	0x0,0x4
021f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0220 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0221 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x7.0x2 = 0x221,0x3
0222 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8 = .DEBUG	0x022b,0x03b2,0x0002,0x0000,0x0057,0x5005,0x0000,0x04a7
													; Debug Table 0x8.0x0 = 0x22b,0x1
022c e001       |    |		Load	0x0,0x1
022d 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
022e 027e       | ~  |		Execute	Discrete,Not_Equal
022f 6807       |h   |		Jump_Zero	0x237
0230 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x1 = 0x230,0x2
0231 00db       |    |		Load_Top	At_Offset_3
0232 0217       |    |		Execute	Heap_Access,All_Reference
0233 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0234 01d5       |    |		Execute	Vector,Field_Reference
0235 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0236 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0237 6060       |``  |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x7fffffff}		; Debug Table 0x8.0x2 = 0x237,0x3
0238 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9 = .DEBUG	0x0243,0x03ba,0x0002,0x0000,0x0057,0x5005,0x0000,0x04b4
													; Debug Table 0x9.0x0 = 0x243,0x1
0244 e001       |    |		Load	0x0,0x1
0245 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0246 027e       | ~  |		Execute	Discrete,Not_Equal
0247 6807       |h   |		Jump_Zero	0x24f
0248 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0x248,0x2
0249 00db       |    |		Load_Top	At_Offset_3
024a 0217       |    |		Execute	Heap_Access,All_Reference
024b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
024c 01d5       |    |		Execute	Vector,Field_Reference
024d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
024e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x2 = 0x24f,0x3
0250 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0251 0000 0000  |    |		.BLANK	0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa = .DEBUG	0x025b,0x03c2,0x0002,0x0000,0x0057,0x5005,0x0000,0x04c1
													; Debug Table 0xa.0x0 = 0x25b,0x1
025c e001       |    |		Load	0x0,0x1
025d 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
025e 027e       | ~  |		Execute	Discrete,Not_Equal
025f 6807       |h   |		Jump_Zero	0x267
0260 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x1 = 0x260,0x2
0261 00db       |    |		Load_Top	At_Offset_3
0262 0217       |    |		Execute	Heap_Access,All_Reference
0263 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0264 01d5       |    |		Execute	Vector,Field_Reference
0265 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0266 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0267 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x2 = 0x267,0x3
0268 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275       | u  |		.CONST	0x0275								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0002       |    |		.CONST	0x0002								; Number of locals
0273			INIT_0270:
0273 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call				; Debug Table 0xb = .DEBUG	0x0273,0x03ca,0x0002,0x0000,0x0057,0x5195,0x0000,0x0015
													; Debug Table 0xb.0x0 = 0x273,0xffff
0275			BODY_0270:
0275 0092 02a1  |    |		Action	Push_String_Extended,0x2a1					; "FIELD"
													; Debug Table 0xb.0x1 = 0x275,0x1
0277 e5ff       |    |		Load	0x2,-0x1
0278 00e0       |    |		Load_Encached	Standard_Cache
0279 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
027a 01cc       |    |		Execute	Vector,Catenate
027b 8402       |    |		Call	0x2,0x2
027c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027d 0000 0000  |    |		.XXX[0x3]
027f 0000       |    |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 028d       |    |		.CONST	0x028d								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x0283,0x03d0,0x0002,0x0000,0x0057,0x5195,0x0000,0x001d
													; Debug Table 0xc.0x0 = 0x283,0xffff
0284 01dd       |    |		Execute	Vector,First
0285 00db       |    |		Load_Top	At_Offset_3
0286 01dc       |    |		Execute	Vector,Last
0287 00e9       |    |		Load_Encached	String_Cache
0288 035b       | [  |		Declare_Type	Array,Constrained
0289 0337       | 7  |		Declare_Variable	Array
028a 00db       |    |		Load_Top	At_Offset_3
028b 00d9       |    |		Load_Top	At_Offset_1
028c 01d4       |    |		Execute	Vector,Structure_Write
028d			BODY_0280:
028d 485f       |H_  |		Short_Literal	0x5f							; Debug Table 0xc.0x1 = 0x28d,0x1
028e e7ff       |    |		Load	0x3,-0x1
028f 01dd       |    |		Execute	Vector,First
0290 0a05       |    |		Execute_Immediate	Plus,0x5
0291 0248       | H  |		Execute	Discrete,Check_In_Integer
0292 00da       |    |		Load_Top	At_Offset_2
0293 01d6       |    |		Execute	Vector,Field_Write
0294 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x2 = 0x294,0x2
0295 00e9       |    |		Load_Encached	String_Cache
0296 01c6       |    |		Execute	Vector,Convert_To_Formal
0297 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0298 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
029c ; --------------------------------------------------------------------------------------
029c ; STRING TABLE
029c ; --------------------------------------------------------------------------------------
029c 000e       |    |		.STRTAB	0x000e->0x02a3							; "STATUS"
029d 0012       |    |		.STRTAB	0x0012->0x02a6							; "NAME"
029e 0014       |    |		.STRTAB	0x0014->0x02a8							; "OBJECT_EDITOR"
029f 001f       |    |		.STRTAB	0x001f->0x02ae							; "OVERWRITE"
02a0 0026       | &  |		.STRTAB	0x0026->0x02b3							; "FILL"
02a1 0028       | (  |		.STRTAB	0x0028->0x02b5							; "FIELD"
02a2 002b       | +  |		.STREND 0x002b->0x02b7
02a3 5354 4154  |STAT|		.STRTAB_STRINGS
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0003 000d  |    |		.CONST	0x0003,0x000d
02ba 000b 0322  |   "|		.DEBUG	0x000b,0x0322,0x0000,0x0000,0x0057,0x5005,0x0000,0x0430
02c2 001e 0336  |   6|		.DEBUG	0x001e,0x0336,0x0000,0x0000,0x0057,0x5195,0x0000,0x0008
02ca 004b 034e  | K N|		.DEBUG	0x004b,0x034e,0x0001,0x0000,0x0057,0x5005,0x0000,0x0431
02d2 015b 037a  | [ z|		.DEBUG	0x015b,0x037a,0x0001,0x0000,0x0057,0x5005,0x0000,0x0441
02da 016b 0380  | k  |		.DEBUG	0x016b,0x0380,0x0001,0x0000,0x0057,0x5005,0x0000,0x044d
02e2 01ab 038e  |    |		.DEBUG	0x01ab,0x038e,0x0001,0x0000,0x0057,0x5005,0x0000,0x046d
02ea 01cb 0392  |    |		.DEBUG	0x01cb,0x0392,0x0002,0x0000,0x0057,0x5005,0x0000,0x048d
02f2 0213 03aa  |    |		.DEBUG	0x0213,0x03aa,0x0002,0x0000,0x0057,0x5005,0x0000,0x049a
02fa 022b 03b2  | +  |		.DEBUG	0x022b,0x03b2,0x0002,0x0000,0x0057,0x5005,0x0000,0x04a7
0302 0243 03ba  | C  |		.DEBUG	0x0243,0x03ba,0x0002,0x0000,0x0057,0x5005,0x0000,0x04b4
030a 025b 03c2  | [  |		.DEBUG	0x025b,0x03c2,0x0002,0x0000,0x0057,0x5005,0x0000,0x04c1
0312 0273 03ca  | s  |		.DEBUG	0x0273,0x03ca,0x0002,0x0000,0x0057,0x5195,0x0000,0x0015
031a 0283 03d0  |    |		.DEBUG	0x0283,0x03d0,0x0002,0x0000,0x0057,0x5195,0x0000,0x001d
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x0
0322 ; --------------------------------------------------------------------------------------
0322 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
0324 000b ffff  |    |		.CONST	0x000b,0xffff
0326 000d fffe  |    |		.CONST	0x000d,0xfffe
0328 000f fffd  |    |		.CONST	0x000f,0xfffd
032a 0011 fffc  |    |		.CONST	0x0011,0xfffc
032c 0013 fffb  |    |		.CONST	0x0013,0xfffb
032e 0015 fffa  |    |		.CONST	0x0015,0xfffa
0330 0017 fff9  |    |		.CONST	0x0017,0xfff9
0332 0019 fff8  |    |		.CONST	0x0019,0xfff8
0334 001b fff7  |    |		.CONST	0x001b,0xfff7
0336 ; --------------------------------------------------------------------------------------
0336 ; Debug3 Subtable 0x1
0336 ; --------------------------------------------------------------------------------------
0336 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
0338 001e ffff  |    |		.CONST	0x001e,0xffff
033a 002e fffe  | .  |		.CONST	0x002e,0xfffe
033c 0030 fffd  | 0  |		.CONST	0x0030,0xfffd
033e 0032 fffc  | 2  |		.CONST	0x0032,0xfffc
0340 0034 fffb  | 4  |		.CONST	0x0034,0xfffb
0342 0036 fffa  | 6  |		.CONST	0x0036,0xfffa
0344 0038 fff9  | 8  |		.CONST	0x0038,0xfff9
0346 003a fff8  | :  |		.CONST	0x003a,0xfff8
0348 003c fff7  | <  |		.CONST	0x003c,0xfff7
034a 003e fff6  | >  |		.CONST	0x003e,0xfff6
034c 0040 fff5  | @  |		.CONST	0x0040,0xfff5
034e ; --------------------------------------------------------------------------------------
034e ; Debug3 Subtable 0x2
034e ; --------------------------------------------------------------------------------------
034e 0002 0013  |    |		.DBG3TAB	0x0002,0x0013
0350 004b ffff  | K  |		.CONST	0x004b,0xffff
0352 004d fffe  | M  |		.CONST	0x004d,0xfffe
0354 004f 0001  | O  |		.CONST	0x004f,0x0001
0356 008f 0002  |    |		.CONST	0x008f,0x0002
0358 008f 0003  |    |		.CONST	0x008f,0x0003
035a 00a7 0004  |    |		.CONST	0x00a7,0x0004
035c 00bf 0005  |    |		.CONST	0x00bf,0x0005
035e 00d7 0006  |    |		.CONST	0x00d7,0x0006
0360 00ef 0007  |    |		.CONST	0x00ef,0x0007
0362 0108 0008  |    |		.CONST	0x0108,0x0008
0364 010e 0401  |    |		.CONST	0x010e,0x0401
0366 0112 0402  |    |		.CONST	0x0112,0x0402
0368 0114 0403  |    |		.CONST	0x0114,0x0403
036a 0119 0008  |    |		.CONST	0x0119,0x0008
036c 011c 0009  |    |		.CONST	0x011c,0x0009
036e 013e 000a  | >  |		.CONST	0x013e,0x000a
0370 0144 0801  | D  |		.CONST	0x0144,0x0801
0372 0148 0802  | H  |		.CONST	0x0148,0x0802
0374 014a 0803  | J  |		.CONST	0x014a,0x0803
0376 014f 000a  | O  |		.CONST	0x014f,0x000a
0378 0155 000b  | U  |		.CONST	0x0155,0x000b
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0x3
037a ; --------------------------------------------------------------------------------------
037a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
037c 015b 0001  | [  |		.CONST	0x015b,0x0001
037e 0162 0002  | b  |		.CONST	0x0162,0x0002
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug3 Subtable 0x4
0380 ; --------------------------------------------------------------------------------------
0380 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0382 016b 0001  | k  |		.CONST	0x016b,0x0001
0384 0173 0002  | s  |		.CONST	0x0173,0x0002
0386 0177 0003  | w  |		.CONST	0x0177,0x0003
0388 017e 0004  | ~  |		.CONST	0x017e,0x0004
038a 0182 0005  |    |		.CONST	0x0182,0x0005
038c 019d 0006  |    |		.CONST	0x019d,0x0006
038e ; --------------------------------------------------------------------------------------
038e ; Debug3 Subtable 0x5
038e ; --------------------------------------------------------------------------------------
038e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0390 01ab 0001  |    |		.CONST	0x01ab,0x0001
0392 ; --------------------------------------------------------------------------------------
0392 ; Debug3 Subtable 0x6
0392 ; --------------------------------------------------------------------------------------
0392 0004 0007  |    |		.DBG3TAB	0x0004,0x0007
0394 01cb ffff  |    |		.CONST	0x01cb,0xffff
0396 01d1 fffe  |    |		.CONST	0x01d1,0xfffe
0398 01d3 fffd  |    |		.CONST	0x01d3,0xfffd
039a 01d7 fffc  |    |		.CONST	0x01d7,0xfffc
039c 01da 0001  |    |		.CONST	0x01da,0x0001
039e 01e0 0002  |    |		.CONST	0x01e0,0x0002
03a0 01ea 0003  |    |		.CONST	0x01ea,0x0003
03a2 01ec 0004  |    |		.CONST	0x01ec,0x0004
03a4 01f5 0005  |    |		.CONST	0x01f5,0x0005
03a6 01ff 0006  |    |		.CONST	0x01ff,0x0006
03a8 020c 0007  |    |		.CONST	0x020c,0x0007
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug3 Subtable 0x7
03aa ; --------------------------------------------------------------------------------------
03aa 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03ac 0213 0001  |    |		.CONST	0x0213,0x0001
03ae 0218 0002  |    |		.CONST	0x0218,0x0002
03b0 0221 0003  | !  |		.CONST	0x0221,0x0003
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug3 Subtable 0x8
03b2 ; --------------------------------------------------------------------------------------
03b2 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03b4 022b 0001  | +  |		.CONST	0x022b,0x0001
03b6 0230 0002  | 0  |		.CONST	0x0230,0x0002
03b8 0237 0003  | 7  |		.CONST	0x0237,0x0003
03ba ; --------------------------------------------------------------------------------------
03ba ; Debug3 Subtable 0x9
03ba ; --------------------------------------------------------------------------------------
03ba 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03bc 0243 0001  | C  |		.CONST	0x0243,0x0001
03be 0248 0002  | H  |		.CONST	0x0248,0x0002
03c0 024f 0003  | O  |		.CONST	0x024f,0x0003
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug3 Subtable 0xa
03c2 ; --------------------------------------------------------------------------------------
03c2 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03c4 025b 0001  | [  |		.CONST	0x025b,0x0001
03c6 0260 0002  | `  |		.CONST	0x0260,0x0002
03c8 0267 0003  | g  |		.CONST	0x0267,0x0003
03ca ; --------------------------------------------------------------------------------------
03ca ; Debug3 Subtable 0xb
03ca ; --------------------------------------------------------------------------------------
03ca 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
03cc 0273 ffff  | s  |		.CONST	0x0273,0xffff
03ce 0275 0001  | u  |		.CONST	0x0275,0x0001
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0xc
03d0 ; --------------------------------------------------------------------------------------
03d0 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
03d2 0283 ffff  |    |		.CONST	0x0283,0xffff
03d4 028d 0001  |    |		.CONST	0x028d,0x0001
03d6 0294 0002  |    |		.CONST	0x0294,0x0002
03d8 0000 0000  |    |		.BLANK	0000[0x28]