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

⟦57ed59a47⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04f0       |    |		.CONST	0x04f0								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0081       |    |		.CONST	0x0081								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0029       | )  |		.CONST	0x0029								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x05aa,0x8000,0x0000,0x0032,0xc794,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 0129       | )  |		Execute	Any,Make_Visible
000e e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0013 0129       | )  |		Execute	Any,Make_Visible
0014 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x3 = 0x14,0xfffc
0015 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
0016 0129       | )  |		Execute	Any,Make_Visible
0017 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x4 = 0x17,0xfffb
0018 1b3c       | <  |		Execute	Package,Field_Read,Field_Number 0x3c
0019 0129       | )  |		Execute	Any,Make_Visible
001a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x5 = 0x1a,0xfffa
001b 4804       |H   |		Short_Literal	0x4
001c 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
001e 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001f 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1f,0xfff9
0021 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x21,0xfff8
0023 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x23,0xfff7
0025 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x25,0xfff6
0027 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x27,0xfff5
0029 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x29,0xfff4
002b 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x2b,0xfff3
002d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xd = 0x2d,0xfff2
002e 4803       |H   |		Short_Literal	0x3
002f 029f 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Call
0031 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0032 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x32,0xfff1
0034 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x34,0xfff0
0036 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x36,0xffef
0038 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x11 = 0x38,0xffee
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a 0129       | )  |		Execute	Any,Make_Visible
003b e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x12 = 0x3b,0xffed
003c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003d 0129       | )  |		Execute	Any,Make_Visible
003e 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x3e,0xffec
0040 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x40,0xffeb
0042 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x15 = 0x42,0xffea
0044 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x16 = 0x44,0xffe9
0046 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x17 = 0x46,0xffe8
0048 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x18 = 0x48,0xffe7
004a 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x19 = 0x4a,0xffe6
004c 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1a = 0x4c,0xffe5
004e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1b = 0x4e,0xffe4
004f 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1c = 0x4f,0xffe3
0050 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x1d = 0x50,0xffe2
0051 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0051,0x05e8,0x8000,0x0000,0x0033,0xd6e4,0x0000,0x0013
													; Debug Table 0x1.0x0 = 0x51,0xffff
0052 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x52,0xfffe
0053 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x53,0xfffd
0054 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x54,0xfffc
0055 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x4 = 0x55,0xfffb
0056 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
0057 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0058 0007       |    |		Action	Break_Optional
0059 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x5 = 0x59,0xfffa
005a 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
005b 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
005c 0007       |    |		Action	Break_Optional
005d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x6 = 0x5d,0xfff9
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x7 = 0x5f,0xfff8
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x8 = 0x61,0xfff7
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x9 = 0x63,0xfff6
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xa = 0x65,0xfff5
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0xb = 0x67,0xfff4
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xc = 0x69,0xfff3
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0xd = 0x6b,0xfff2
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0xe = 0x6d,0xfff1
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0xf = 0x6f,0xfff0
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x10 = 0x71,0xffef
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21				; Debug Table 0x1.0x11 = 0x73,0xffee
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22				; Debug Table 0x1.0x12 = 0x75,0xffed
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23				; Debug Table 0x1.0x13 = 0x77,0xffec
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24				; Debug Table 0x1.0x14 = 0x79,0xffeb
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0x15 = 0x7b,0xffea
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26				; Debug Table 0x1.0x16 = 0x7d,0xffe9
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27				; Debug Table 0x1.0x17 = 0x7f,0xffe8
0080 00c7       |    |		Action	Elaborate_Subprogram
0081			BODY_0008:
0081 00bc       |    |		Action	Signal_Activated
0082 00bb       |    |		Action	Signal_Completion
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x008b,0x061a,0x0005,0x0000,0x0032,0xc794,0x0000,0x0024
008c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
008d 7802       |x   |		Jump	0x90								; case 0x1
008e 7805       |x   |		Jump	0x94								; case 0x2
008f 7809       |x   |		Jump	0x99								; case 0x3
0090 00da       |    |		Load_Top	At_Offset_2
0091 0091 0387  |    |		Action	Push_String_Extended_Indexed,0x387				; "A_LENGTH_CLAUSE"
0093 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0094 00db       |    |		Load_Top	At_Offset_3
0095 00db       |    |		Load_Top	At_Offset_3
0096 00e0       |    |		Load_Encached	Standard_Cache
0097 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0098 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0099 00da       |    |		Load_Top	At_Offset_2
009a 00e0       |    |		Load_Encached	Standard_Cache
009b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
009c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
009d 0000 0000  |    |		.XXX[0x3]
009f 0000       |    |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ac       |    |		.CONST	0x00ac								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0002       |    |		.CONST	0x0002								; Number of locals
00a3			INIT_00a0:
00a3 e002       |    |		Load	0x0,0x2								; Debug Table 0x3 = .DEBUG	0x00a3,0x061c,0x0002,0x0000,0x0032,0xc794,0x0000,0x002d
													; Debug Table 0x3.0x0 = 0xa3,0xffff
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 02ff       |    |		Declare_Variable	Variant_Record
00a6 00db       |    |		Load_Top	At_Offset_3
00a7 8228       | (  |		Call	0x1,0x28
00a8 e002       |    |		Load	0x0,0x2
00a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 016d       | m  |		Execute	Variant_Record,Structure_Write
00ac			BODY_00a0:
00ac 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x1 = 0xac,0x1
00ad 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ae 0f05       |    |		Execute_Immediate	Equal,0x5
00af 6803       |h   |		Jump_Zero	0xb3
00b0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0xb0,0x2
00b1 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
00b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b3 4804       |H   |		Short_Literal	0x4							; Debug Table 0x3.0x3 = 0xb3,0x3
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c0       |    |		.CONST	0x00c0								; Address of begin
00b9 00ea       |    |		.CONST	0x00ea								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4 = .DEBUG	0x00bb,0x0626,0x0002,0x0000,0x0032,0xc794,0x0000,0x0036
													; Debug Table 0x4.0x0 = 0xbb,0xffff
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 8228       | (  |		Call	0x1,0x28
00be 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00bf 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x1 = 0xbf,0xfffe
00c0			BODY_00b8:
00c0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x2 = 0xc0,0x1
00c1 00eb       |    |		Load_Encached	Diana_Cache
00c2 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
00c3 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x3 = 0xc4,0x2
00c5 00eb       |    |		Load_Encached	Diana_Cache
00c6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00c7 0b44       | D  |		Execute_Immediate	Case_Compare,0x44
00c8 700d       |p   |		Jump_Nonzero	0xd6
00c9 0b43       | C  |		Execute_Immediate	Case_Compare,0x43
00ca 701a       |p   |		Jump_Nonzero	0xe5
00cb 0b42       | B  |		Execute_Immediate	Case_Compare,0x42
00cc 7018       |p   |		Jump_Nonzero	0xe5
00cd 0092 0390  |    |		Action	Push_String_Extended,0x390					; "Element is not a Representation Clause"
													; Debug Table 0x4.0x4 = 0xcd,0x7
00cf e003       |    |		Load	0x0,0x3
00d0 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00d1 e004       |    |		Load	0x0,0x4
00d2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d3 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x5 = 0xd3,0x8
00d4 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00d5 0257       | W  |		Execute	Discrete,Raise
00d6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x6 = 0xd6,0x3
00d7 00eb       |    |		Load_Encached	Diana_Cache
00d8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00d9 0f0e       |    |		Execute_Immediate	Equal,0xe
00da 6805       |h   |		Jump_Zero	0xe0
00db 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x7 = 0xdb,0x4
00dc e005       |    |		Load	0x0,0x5
00dd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00de 8229       | )  |		Call	0x1,0x29
00df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x8 = 0xe0,0x5
00e1 e005       |    |		Load	0x0,0x5
00e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e3 8229       | )  |		Call	0x1,0x29
00e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e5 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x9 = 0xe5,0x6
00e6 e005       |    |		Load	0x0,0x5
00e7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e8 8229       | )  |		Call	0x1,0x29
00e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ea			TRAP_00b8:
00ea 010e       |    |		Execute	Exception,Is_Constraint_Error
00eb 6809       |h   |		Jump_Zero	0xf5
00ec 0092 0390  |    |		Action	Push_String_Extended,0x390					; "Element is not a Representation Clause"
													; Debug Table 0x4.0xa = 0xec,0x9
00ee e003       |    |		Load	0x0,0x3
00ef 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00f0 e004       |    |		Load	0x0,0x4
00f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f2 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0xb = 0xf2,0xa
00f3 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00f4 0257       | W  |		Execute	Discrete,Raise
00f5 0100       |    |		Execute	Exception,Raise
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff       |    |		.CONST	0x00ff								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5 = .DEBUG	0x00fb,0x0640,0x0002,0x0000,0x0032,0xc794,0x0000,0x003f
													; Debug Table 0x5.0x0 = 0xfb,0xffff
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 8228       | (  |		Call	0x1,0x28
00fe 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ff			BODY_00f8:
00ff 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x1 = 0xff,0x1
0100 00eb       |    |		Load_Encached	Diana_Cache
0101 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0102 0b6d       | m  |		Execute_Immediate	Case_Compare,0x6d
0103 701f       |p   |		Jump_Nonzero	0x123
0104 0b6e       | n  |		Execute_Immediate	Case_Compare,0x6e
0105 701d       |p   |		Jump_Nonzero	0x123
0106 0b6f       | o  |		Execute_Immediate	Case_Compare,0x6f
0107 701b       |p   |		Jump_Nonzero	0x123
0108 0b65       | e  |		Execute_Immediate	Case_Compare,0x65
0109 7019       |p   |		Jump_Nonzero	0x123
010a 0b64       | d  |		Execute_Immediate	Case_Compare,0x64
010b 7017       |p   |		Jump_Nonzero	0x123
010c 0b6c       | l  |		Execute_Immediate	Case_Compare,0x6c
010d 7015       |p   |		Jump_Nonzero	0x123
010e 0b72       | r  |		Execute_Immediate	Case_Compare,0x72
010f 7013       |p   |		Jump_Nonzero	0x123
0110 0b6b       | k  |		Execute_Immediate	Case_Compare,0x6b
0111 7011       |p   |		Jump_Nonzero	0x123
0112 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x2 = 0x112,0x3
0113 e006       |    |		Load	0x0,0x6
0114 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0115 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
0116 7003       |p   |		Jump_Nonzero	0x11a
0117 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x3 = 0x117,0x6
0118 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0119 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011a 0092 0391  |    |		Action	Push_String_Extended,0x391					; "Element is not a Type Definition"
													; Debug Table 0x5.0x4 = 0x11a,0x4
011c e003       |    |		Load	0x0,0x3
011d 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
011e e004       |    |		Load	0x0,0x4
011f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0120 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x5 = 0x120,0x5
0121 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0122 0257       | W  |		Execute	Discrete,Raise
0123 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x6 = 0x123,0x2
0124 4903       |I   |		Short_Literal	0x103
0125 00eb       |    |		Load_Encached	Diana_Cache
0126 0096       |    |		Execute	Package,Entry
0127 8229       | )  |		Call	0x1,0x29
0128 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0129 0000 0000  |    |		.BLANK	0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137       | 7  |		.CONST	0x0137								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6 = .DEBUG	0x0133,0x0650,0x0002,0x0000,0x0032,0xc794,0x0000,0x0048
													; Debug Table 0x6.0x0 = 0x133,0xffff
0134 00db       |    |		Load_Top	At_Offset_3
0135 8228       | (  |		Call	0x1,0x28
0136 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0137			BODY_0130:
0137 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x1 = 0x137,0x1
0138 00eb       |    |		Load_Encached	Diana_Cache
0139 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
013a 0b6d       | m  |		Execute_Immediate	Case_Compare,0x6d
013b 700d       |p   |		Jump_Nonzero	0x149
013c 0b6b       | k  |		Execute_Immediate	Case_Compare,0x6b
013d 700b       |p   |		Jump_Nonzero	0x149
013e 0b73       | s  |		Execute_Immediate	Case_Compare,0x73
013f 7009       |p   |		Jump_Nonzero	0x149
0140 0092 0392  |    |		Action	Push_String_Extended,0x392					; "Element can't have a Storage Size Rep"
													; Debug Table 0x6.0x2 = 0x140,0x3
0142 e003       |    |		Load	0x0,0x3
0143 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0144 e004       |    |		Load	0x0,0x4
0145 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0146 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x3 = 0x146,0x4
0147 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0148 0257       | W  |		Execute	Discrete,Raise
0149 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0x149,0x2
014a 4906       |I   |		Short_Literal	0x106
014b 00eb       |    |		Load_Encached	Diana_Cache
014c 0096       |    |		Execute	Package,Entry
014d 8229       | )  |		Call	0x1,0x29
014e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0157       | W  |		.CONST	0x0157								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x7 = .DEBUG	0x0153,0x065c,0x0002,0x0000,0x0032,0xc794,0x0000,0x0051
													; Debug Table 0x7.0x0 = 0x153,0xffff
0154 00db       |    |		Load_Top	At_Offset_3
0155 8228       | (  |		Call	0x1,0x28
0156 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0157			BODY_0150:
0157 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x1 = 0x157,0x1
0158 00eb       |    |		Load_Encached	Diana_Cache
0159 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
015a 0b31       | 1  |		Execute_Immediate	Case_Compare,0x31
015b 700b       |p   |		Jump_Nonzero	0x167
015c 0b32       | 2  |		Execute_Immediate	Case_Compare,0x32
015d 7009       |p   |		Jump_Nonzero	0x167
015e 0092 0393  |    |		Action	Push_String_Extended,0x393					; "Element isn't an Enumeration Element"
													; Debug Table 0x7.0x2 = 0x15e,0x3
0160 e003       |    |		Load	0x0,0x3
0161 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0162 e004       |    |		Load	0x0,0x4
0163 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0164 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x3 = 0x164,0x4
0165 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0166 0257       | W  |		Execute	Discrete,Raise
0167 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x4 = 0x167,0x2
0168 4903       |I   |		Short_Literal	0x103
0169 00eb       |    |		Load_Encached	Diana_Cache
016a 0096       |    |		Execute	Package,Entry
016b 8229       | )  |		Call	0x1,0x29
016c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177       | w  |		.CONST	0x0177								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8 = .DEBUG	0x0173,0x0668,0x0002,0x0000,0x0032,0xc794,0x0000,0x005a
													; Debug Table 0x8.0x0 = 0x173,0xffff
0174 00db       |    |		Load_Top	At_Offset_3
0175 8228       | (  |		Call	0x1,0x28
0176 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0177			BODY_0170:
0177 00cf       |    |		Action	Mark_Auxiliary
0178 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x1 = 0x178,0x1
0179 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x2 = 0x179,0x2
017a 00eb       |    |		Load_Encached	Diana_Cache
017b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
017c 0b1c       |    |		Execute_Immediate	Case_Compare,0x1c
017d 700d       |p   |		Jump_Nonzero	0x18b
017e 0b72       | r  |		Execute_Immediate	Case_Compare,0x72
017f 7011       |p   |		Jump_Nonzero	0x191
0180 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39
0181 7015       |p   |		Jump_Nonzero	0x197
0182 0092 0394  |    |		Action	Push_String_Extended,0x394					; "Element can't have a record rep"
													; Debug Table 0x8.0x3 = 0x182,0x6
0184 e003       |    |		Load	0x0,0x3
0185 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0186 e004       |    |		Load	0x0,0x4
0187 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0188 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x4 = 0x188,0x7
0189 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
018a 0257       | W  |		Execute	Discrete,Raise
018b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x5 = 0x18b,0x3
018c 4909       |I   |		Short_Literal	0x109
018d 00eb       |    |		Load_Encached	Diana_Cache
018e 0096       |    |		Execute	Package,Entry
018f 8229       | )  |		Call	0x1,0x29
0190 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0191 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x6 = 0x191,0x4
0192 490e       |I   |		Short_Literal	0x10e
0193 00eb       |    |		Load_Encached	Diana_Cache
0194 0096       |    |		Execute	Package,Entry
0195 8229       | )  |		Call	0x1,0x29
0196 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0197 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x7 = 0x197,0x5
0198 00eb       |    |		Load_Encached	Diana_Cache
0199 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
019a 00eb       |    |		Load_Encached	Diana_Cache
019b 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
019c 00eb       |    |		Load_Encached	Diana_Cache
019d 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
019e 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
019f 00d1       |    |		Pop_Control	Pop_Count_1
01a0 00c9       |    |		Action	Pop_Auxiliary_Loop
01a1 7fd7       |    |		Jump	0x179
01a2 0000 0000  |    |		.BLANK	0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01af       |    |		.CONST	0x01af								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9 = .DEBUG	0x01ab,0x067a,0x0002,0x0000,0x0032,0xc794,0x0000,0x0065
													; Debug Table 0x9.0x0 = 0x1ab,0xffff
01ac 00db       |    |		Load_Top	At_Offset_3
01ad 8228       | (  |		Call	0x1,0x28
01ae 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01af			BODY_01a8:
01af 00cf       |    |		Action	Mark_Auxiliary
01b0 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x1 = 0x1b0,0x1
01b1 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x2 = 0x1b1,0x2
01b2 00eb       |    |		Load_Encached	Diana_Cache
01b3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01b4 0b30       | 0  |		Execute_Immediate	Case_Compare,0x30
01b5 701b       |p   |		Jump_Nonzero	0x1d1
01b6 0b1d       |    |		Execute_Immediate	Case_Compare,0x1d
01b7 7019       |p   |		Jump_Nonzero	0x1d1
01b8 0b29       | )  |		Execute_Immediate	Case_Compare,0x29
01b9 7017       |p   |		Jump_Nonzero	0x1d1
01ba 0b1f       |    |		Execute_Immediate	Case_Compare,0x1f
01bb 7015       |p   |		Jump_Nonzero	0x1d1
01bc 0b73       | s  |		Execute_Immediate	Case_Compare,0x73
01bd 7013       |p   |		Jump_Nonzero	0x1d1
01be 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39
01bf 7016       |p   |		Jump_Nonzero	0x1d6
01c0 0b38       | 8  |		Execute_Immediate	Case_Compare,0x38
01c1 7014       |p   |		Jump_Nonzero	0x1d6
01c2 0b02       |    |		Execute_Immediate	Case_Compare,0x2
01c3 7012       |p   |		Jump_Nonzero	0x1d6
01c4 0b3e       | >  |		Execute_Immediate	Case_Compare,0x3e
01c5 7019       |p   |		Jump_Nonzero	0x1df
01c6 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
01c7 701c       |p   |		Jump_Nonzero	0x1e4
01c8 0092 0395  |    |		Action	Push_String_Extended,0x395					; "Element can't have an Address Rep"
													; Debug Table 0x9.0x3 = 0x1c8,0x7
01ca e003       |    |		Load	0x0,0x3
01cb 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01cc e004       |    |		Load	0x0,0x4
01cd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ce e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x4 = 0x1ce,0x8
01cf 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
01d0 0257       | W  |		Execute	Discrete,Raise
01d1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x5 = 0x1d1,0x3
01d2 00eb       |    |		Load_Encached	Diana_Cache
01d3 18f6       |    |		Execute	Package,Field_Execute,Field_Number 0xf6
01d4 8229       | )  |		Call	0x1,0x29
01d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x6 = 0x1d6,0x4
01d7 00eb       |    |		Load_Encached	Diana_Cache
01d8 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
01d9 00eb       |    |		Load_Encached	Diana_Cache
01da 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
01db 00eb       |    |		Load_Encached	Diana_Cache
01dc 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
01dd 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01de 7809       |x   |		Jump	0x1e8
01df 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x7 = 0x1df,0x5
01e0 00eb       |    |		Load_Encached	Diana_Cache
01e1 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
01e2 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01e3 7804       |x   |		Jump	0x1e8
01e4 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x8 = 0x1e4,0x6
01e5 00eb       |    |		Load_Encached	Diana_Cache
01e6 18bf       |    |		Execute	Package,Field_Execute,Field_Number 0xbf
01e7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01e8 00d1       |    |		Pop_Control	Pop_Count_1
01e9 00c9       |    |		Action	Pop_Auxiliary_Loop
01ea 7fc6       |    |		Jump	0x1b1
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4603       |F   |		Jump_Case	0x4							; Debug Table 0xa = .DEBUG	0x01f3,0x068e,0x0005,0x0000,0x0032,0xc794,0x0000,0x0072
01f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01f5 7802       |x   |		Jump	0x1f8								; case 0x1
01f6 7805       |x   |		Jump	0x1fc								; case 0x2
01f7 7809       |x   |		Jump	0x201								; case 0x3
01f8 00da       |    |		Load_Top	At_Offset_2
01f9 0091 038c  |    |		Action	Push_String_Extended_Indexed,0x38c				; "SIZE"
01fb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 00db       |    |		Load_Top	At_Offset_3
01fe 00e0       |    |		Load_Encached	Standard_Cache
01ff 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0200 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0201 00da       |    |		Load_Top	At_Offset_2
0202 00e0       |    |		Load_Encached	Standard_Cache
0203 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0204 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0205 0000 0000  |    |		.XXX[0x3]
0207 0000       |    |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0212       |    |		.CONST	0x0212								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0004       |    |		.CONST	0x0004								; Number of locals
020b			INIT_0208:
020b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb = .DEBUG	0x020b,0x0690,0x0002,0x0000,0x0032,0xc794,0x0000,0x007a
													; Debug Table 0xb.0x0 = 0x20b,0xffff
020c 00db       |    |		Load_Top	At_Offset_3
020d 8228       | (  |		Call	0x1,0x28
020e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
020f 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0x1 = 0x20f,0xfffe
0210 029f 035b  |   [|		Declare_Subprogram	INIT_0358,For_Call
0212			BODY_0208:
0212 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x2 = 0x212,0x1
0213 00eb       |    |		Load_Encached	Diana_Cache
0214 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0215 0f44       | D  |		Execute_Immediate	Equal,0x44
0216 6806       |h   |		Jump_Zero	0x21d
0217 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x3 = 0x217,0x2
0218 00eb       |    |		Load_Encached	Diana_Cache
0219 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
021a 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
021b 8404       |    |		Call	0x2,0x4								; Debug Table 0xb.0x4 = 0x21b,0x3
021c 7809       |x   |		Jump	0x226
021d 0092 0396  |    |		Action	Push_String_Extended,0x396					; "Element isn't a Length Clause"
													; Debug Table 0xb.0x5 = 0x21d,0x4
021f e003       |    |		Load	0x0,0x3
0220 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0221 e004       |    |		Load	0x0,0x4
0222 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0223 e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x6 = 0x223,0x5
0224 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0225 0257       | W  |		Execute	Discrete,Raise
0226 4831       |H1  |		Short_Literal	0x31
0227 0257       | W  |		Execute	Discrete,Raise
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f       | /  |		.CONST	0x022f								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xc = .DEBUG	0x022b,0x06a0,0x0002,0x0000,0x0032,0xc794,0x0000,0x0083
													; Debug Table 0xc.0x0 = 0x22b,0xffff
022c 00db       |    |		Load_Top	At_Offset_3
022d 8228       | (  |		Call	0x1,0x28
022e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
022f			BODY_0228:
022f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x1 = 0x22f,0x1
0230 00eb       |    |		Load_Encached	Diana_Cache
0231 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0232 0f44       | D  |		Execute_Immediate	Equal,0x44
0233 680c       |h   |		Jump_Zero	0x240
0234 00d8       |    |		Load_Top	At_Offset_0
0235 00eb       |    |		Load_Encached	Diana_Cache
0236 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0237 00eb       |    |		Load_Encached	Diana_Cache
0238 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0239 0f0e       |    |		Execute_Immediate	Equal,0xe
023a 7005       |p   |		Jump_Nonzero	0x240
023b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x2 = 0x23b,0x2
023c 00eb       |    |		Load_Encached	Diana_Cache
023d 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
023e 8229       | )  |		Call	0x1,0x29
023f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0240 0092 0397  |    |		Action	Push_String_Extended,0x397					; "Element isn't a Representation Aggregate"
													; Debug Table 0xc.0x3 = 0x240,0x3
0242 e003       |    |		Load	0x0,0x3
0243 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0244 e004       |    |		Load	0x0,0x4
0245 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0246 e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x4 = 0x246,0x4
0247 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0248 0257       | W  |		Execute	Discrete,Raise
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0258       | X  |		.CONST	0x0258								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd = .DEBUG	0x0253,0x06ac,0x0002,0x0000,0x0032,0xc794,0x0000,0x008c
													; Debug Table 0xd.0x0 = 0x253,0xffff
0254 00db       |    |		Load_Top	At_Offset_3
0255 8228       | (  |		Call	0x1,0x28
0256 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0257 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd.0x1 = 0x257,0xfffe
0258			BODY_0250:
0258 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x2 = 0x258,0x1
0259 00eb       |    |		Load_Encached	Diana_Cache
025a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
025b 0f43       | C  |		Execute_Immediate	Equal,0x43
025c 6810       |h   |		Jump_Zero	0x26d
025d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x3 = 0x25d,0x2
025e 00eb       |    |		Load_Encached	Diana_Cache
025f 18b3       |    |		Execute	Package,Field_Execute,Field_Number 0xb3
0260 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0261 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x4 = 0x261,0x3
0262 00eb       |    |		Load_Encached	Diana_Cache
0263 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0264 6803       |h   |		Jump_Zero	0x268
0265 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x5 = 0x265,0x4
0266 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0267 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0268 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x6 = 0x268,0x5
0269 00eb       |    |		Load_Encached	Diana_Cache
026a 18ca       |    |		Execute	Package,Field_Execute,Field_Number 0xca
026b 8229       | )  |		Call	0x1,0x29
026c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026d 0092 0398  |    |		Action	Push_String_Extended,0x398					; "Element isn't an Alignment Expression"
													; Debug Table 0xd.0x7 = 0x26d,0x6
026f e003       |    |		Load	0x0,0x3
0270 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0271 e004       |    |		Load	0x0,0x4
0272 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0273 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x8 = 0x273,0x7
0274 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0275 0257       | W  |		Execute	Discrete,Raise
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f       |    |		.CONST	0x027f								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xe = .DEBUG	0x027b,0x06c0,0x0002,0x0000,0x0032,0xc794,0x0000,0x00a1
													; Debug Table 0xe.0x0 = 0x27b,0xffff
027c 00db       |    |		Load_Top	At_Offset_3
027d 8228       | (  |		Call	0x1,0x28
027e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
027f			BODY_0278:
027f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x1 = 0x27f,0x1
0280 00eb       |    |		Load_Encached	Diana_Cache
0281 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0282 0f43       | C  |		Execute_Immediate	Equal,0x43
0283 6809       |h   |		Jump_Zero	0x28d
0284 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x2 = 0x284,0x2
0285 00eb       |    |		Load_Encached	Diana_Cache
0286 18b8       |    |		Execute	Package,Field_Execute,Field_Number 0xb8
0287 00eb       |    |		Load_Encached	Diana_Cache
0288 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0289 e001       |    |		Load	0x0,0x1
028a 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
028b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028d 0092 0399  |    |		Action	Push_String_Extended,0x399					; "Element isn't a Record Rep"
													; Debug Table 0xe.0x3 = 0x28d,0x3
028f e003       |    |		Load	0x0,0x3
0290 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0291 e004       |    |		Load	0x0,0x4
0292 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0293 e001       |    |		Load	0x0,0x1								; Debug Table 0xe.0x4 = 0x293,0x4
0294 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0295 0257       | W  |		Execute	Discrete,Raise
0296 0000 0000  |    |		.XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf = .DEBUG	0x029b,0x06cc,0x0002,0x0000,0x0032,0xc794,0x0000,0x00ac
													; Debug Table 0xf.0x0 = 0x29b,0x1
029c 8228       | (  |		Call	0x1,0x28
029d 00eb       |    |		Load_Encached	Diana_Cache
029e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
029f 0fa0       |    |		Execute_Immediate	Equal,-0x60
02a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a1 0000 0000  |    |		.BLANK	0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02af       |    |		.CONST	0x02af								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0002       |    |		.CONST	0x0002								; Number of locals
02ab			INIT_02a8:
02ab 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x10 = .DEBUG	0x02ab,0x06d0,0x0002,0x0000,0x0032,0xc794,0x0000,0x00b5
													; Debug Table 0x10.0x0 = 0x2ab,0xffff
02ac 00db       |    |		Load_Top	At_Offset_3
02ad 8228       | (  |		Call	0x1,0x28
02ae 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02af			BODY_02a8:
02af 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x10.0x1 = 0x2af,0x1
02b0 00eb       |    |		Load_Encached	Diana_Cache
02b1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02b2 0fa0       |    |		Execute_Immediate	Equal,-0x60
02b3 6804       |h   |		Jump_Zero	0x2b8
02b4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x10.0x2 = 0x2b4,0x2
02b5 e001       |    |		Load	0x0,0x1
02b6 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
02b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b8 0092 039a  |    |		Action	Push_String_Extended,0x39a					; "Element isn't a Component Clause"
													; Debug Table 0x10.0x3 = 0x2b8,0x3
02ba e003       |    |		Load	0x0,0x3
02bb 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02bc e004       |    |		Load	0x0,0x4
02bd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02be e001       |    |		Load	0x0,0x1								; Debug Table 0x10.0x4 = 0x2be,0x4
02bf 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
02c0 0257       | W  |		Execute	Discrete,Raise
02c1 0000 0000  |    |		.BLANK	0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf       |    |		.CONST	0x02cf								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x11 = .DEBUG	0x02cb,0x06dc,0x0002,0x0000,0x0032,0xc794,0x0000,0x00be
													; Debug Table 0x11.0x0 = 0x2cb,0xffff
02cc 00db       |    |		Load_Top	At_Offset_3
02cd 8228       | (  |		Call	0x1,0x28
02ce 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02cf			BODY_02c8:
02cf 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x1 = 0x2cf,0x1
02d0 00eb       |    |		Load_Encached	Diana_Cache
02d1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02d2 0fa0       |    |		Execute_Immediate	Equal,-0x60
02d3 6805       |h   |		Jump_Zero	0x2d9
02d4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x2 = 0x2d4,0x2
02d5 00eb       |    |		Load_Encached	Diana_Cache
02d6 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
02d7 8229       | )  |		Call	0x1,0x29
02d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d9 0092 039a  |    |		Action	Push_String_Extended,0x39a					; "Element isn't a Component Clause"
													; Debug Table 0x11.0x3 = 0x2d9,0x3
02db e003       |    |		Load	0x0,0x3
02dc 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02dd e004       |    |		Load	0x0,0x4
02de 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02df e001       |    |		Load	0x0,0x1								; Debug Table 0x11.0x4 = 0x2df,0x4
02e0 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
02e1 0257       | W  |		Execute	Discrete,Raise
02e2 0000 0000  |    |		.BLANK	0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef       |    |		.CONST	0x02ef								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0002       |    |		.CONST	0x0002								; Number of locals
02eb			INIT_02e8:
02eb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x12 = .DEBUG	0x02eb,0x06e8,0x0002,0x0000,0x0032,0xc794,0x0000,0x00c7
													; Debug Table 0x12.0x0 = 0x2eb,0xffff
02ec 00db       |    |		Load_Top	At_Offset_3
02ed 8228       | (  |		Call	0x1,0x28
02ee 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02ef			BODY_02e8:
02ef 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0x1 = 0x2ef,0x1
02f0 00eb       |    |		Load_Encached	Diana_Cache
02f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02f2 0fa0       |    |		Execute_Immediate	Equal,-0x60
02f3 6805       |h   |		Jump_Zero	0x2f9
02f4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0x2 = 0x2f4,0x2
02f5 00eb       |    |		Load_Encached	Diana_Cache
02f6 18dc       |    |		Execute	Package,Field_Execute,Field_Number 0xdc
02f7 8229       | )  |		Call	0x1,0x29
02f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f9 0092 039a  |    |		Action	Push_String_Extended,0x39a					; "Element isn't a Component Clause"
													; Debug Table 0x12.0x3 = 0x2f9,0x3
02fb e003       |    |		Load	0x0,0x3
02fc 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02fd e004       |    |		Load	0x0,0x4
02fe 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ff e001       |    |		Load	0x0,0x1								; Debug Table 0x12.0x4 = 0x2ff,0x4
0300 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0301 0257       | W  |		Execute	Discrete,Raise
0302 0000 0000  |    |		.BLANK	0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030f       |    |		.CONST	0x030f								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x13 = .DEBUG	0x030b,0x06f4,0x0002,0x0000,0x0032,0xc794,0x0000,0x00d0
													; Debug Table 0x13.0x0 = 0x30b,0xffff
030c 00db       |    |		Load_Top	At_Offset_3
030d 8228       | (  |		Call	0x1,0x28
030e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
030f			BODY_0308:
030f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x1 = 0x30f,0x1
0310 00eb       |    |		Load_Encached	Diana_Cache
0311 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0312 0f42       | B  |		Execute_Immediate	Equal,0x42
0313 6806       |h   |		Jump_Zero	0x31a
0314 4801       |H   |		Short_Literal	0x1							; Debug Table 0x13.0x2 = 0x314,0x2
0315 00d9       |    |		Load_Top	At_Offset_1
0316 e007       |    |		Load	0x0,0x7
0317 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0318 8229       | )  |		Call	0x1,0x29
0319 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031a 0092 039b  |    |		Action	Push_String_Extended,0x39b					; "Element isn't an Address Clause"
													; Debug Table 0x13.0x3 = 0x31a,0x3
031c e003       |    |		Load	0x0,0x3
031d 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
031e e004       |    |		Load	0x0,0x4
031f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0320 e001       |    |		Load	0x0,0x1								; Debug Table 0x13.0x4 = 0x320,0x4
0321 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0322 0257       | W  |		Execute	Discrete,Raise
0323 0000 0000  |    |		.BLANK	0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032f       | /  |		.CONST	0x032f								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x14 = .DEBUG	0x032b,0x0700,0x0002,0x0000,0x0032,0xc794,0x0000,0x00d9
													; Debug Table 0x14.0x0 = 0x32b,0xffff
032c 00db       |    |		Load_Top	At_Offset_3
032d 8228       | (  |		Call	0x1,0x28
032e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
032f			BODY_0328:
032f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x14.0x1 = 0x32f,0x1
0330 00eb       |    |		Load_Encached	Diana_Cache
0331 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0332 0f42       | B  |		Execute_Immediate	Equal,0x42
0333 6805       |h   |		Jump_Zero	0x339
0334 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x14.0x2 = 0x334,0x2
0335 00eb       |    |		Load_Encached	Diana_Cache
0336 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
0337 8229       | )  |		Call	0x1,0x29
0338 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0339 0092 039b  |    |		Action	Push_String_Extended,0x39b					; "Element isn't an Address Clause"
													; Debug Table 0x14.0x3 = 0x339,0x3
033b e003       |    |		Load	0x0,0x3
033c 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
033d e004       |    |		Load	0x0,0x4
033e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
033f e001       |    |		Load	0x0,0x1								; Debug Table 0x14.0x4 = 0x33f,0x4
0340 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0341 0257       | W  |		Execute	Discrete,Raise
0342 0000 0000  |    |		.BLANK	0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 0092 039c  |    |		Action	Push_String_Extended,0x39c					; "The LONG_INTEGER form of Associated_Enumeration_Representation is not yet implemented"
													; Debug Table 0x15 = .DEBUG	0x034b,0x070c,0x0002,0x0000,0x0032,0xc794,0x0000,0x00e2
													; Debug Table 0x15.0x0 = 0x34b,0x1
034d e003       |    |		Load	0x0,0x3
034e 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
034f e004       |    |		Load	0x0,0x4
0350 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0351 e001       |    |		Load	0x0,0x1								; Debug Table 0x15.0x1 = 0x351,0x2
0352 1b48       | H  |		Execute	Package,Field_Read,Field_Number 0x48
0353 0257       | W  |		Execute	Discrete,Raise
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035e       | ^  |		.CONST	0x035e								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0002       |    |		.CONST	0x0002								; Number of locals
035b			INIT_0358:
035b e403       |    |		Load	0x2,0x3								; Debug Table 0x16 = .DEBUG	0x035b,0x0712,0x0004,0x0000,0x0033,0xd6e4,0x0000,0x038e
													; Debug Table 0x16.0x0 = 0x35b,0xffff
035c e005       |    |		Load	0x0,0x5
035d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
035e			BODY_0358:
035e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x1 = 0x35e,0x1
035f 0092 038c  |    |		Action	Push_String_Extended,0x38c					; "SIZE"
0361 01df       |    |		Execute	Vector,Equal
0362 6803       |h   |		Jump_Zero	0x366
0363 4800       |H   |		Short_Literal	0x0							; Debug Table 0x16.0x2 = 0x363,0x2
0364 00cb       |    |		Action	Pop_Block_With_Result
0365 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0366 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x3 = 0x366,0x3
0367 0092 039d  |    |		Action	Push_String_Extended,0x39d					; "STORAGE_SIZE"
0369 01df       |    |		Execute	Vector,Equal
036a 6812       |h   |		Jump_Zero	0x37d
036b e403       |    |		Load	0x2,0x3								; Debug Table 0x16.0x4 = 0x36b,0x4
036c e005       |    |		Load	0x0,0x5
036d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
036e 00eb       |    |		Load_Encached	Diana_Cache
036f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0370 0b6b       | k  |		Execute_Immediate	Case_Compare,0x6b
0371 7003       |p   |		Jump_Nonzero	0x375
0372 0b73       | s  |		Execute_Immediate	Case_Compare,0x73
0373 7004       |p   |		Jump_Nonzero	0x378
0374 7806       |x   |		Jump	0x37b								; Debug Table 0x16.0x5 = 0x374,0x7
0375 4801       |H   |		Short_Literal	0x1							; Debug Table 0x16.0x6 = 0x375,0x5
0376 00cb       |    |		Action	Pop_Block_With_Result
0377 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0378 4802       |H   |		Short_Literal	0x2							; Debug Table 0x16.0x7 = 0x378,0x6
0379 00cb       |    |		Action	Pop_Block_With_Result
037a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037b 00d1       |    |		Pop_Control	Pop_Count_1
037c 7808       |x   |		Jump	0x385
037d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x8 = 0x37d,0x8
037e 0092 038f  |    |		Action	Push_String_Extended,0x38f					; "SMALL"
0380 01df       |    |		Execute	Vector,Equal
0381 6803       |h   |		Jump_Zero	0x385
0382 4803       |H   |		Short_Literal	0x3							; Debug Table 0x16.0x9 = 0x382,0x9
0383 00cb       |    |		Action	Pop_Block_With_Result
0384 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0385 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x16.0xa = 0x385,0xa
0386 0257       | W  |		Execute	Discrete,Raise
0387 ; --------------------------------------------------------------------------------------
0387 ; STRING TABLE
0387 ; --------------------------------------------------------------------------------------
0387 0030       | 0  |		.STRTAB	0x0030->0x039f							; "A_LENGTH_CLAUSE"
0388 003d       | =  |		.STRTAB	0x003d->0x03a6							; "AN_ENUMERATION_REPRESENTATION_CLAUSE"
0389 005f       | _  |		.STRTAB	0x005f->0x03b8							; "A_RECORD_REPRESENTATION_CLAUSE"
038a 007b       | {  |		.STRTAB	0x007b->0x03c7							; "AN_ADDRESS_CLAUSE"
038b 008a       |    |		.STRTAB	0x008a->0x03d0							; "NOT_A_REPRESENTATION_CLAUSE"
038c 00a3       |    |		.STRTAB	0x00a3->0x03dd							; "SIZE"
038d 00a5       |    |		.STRTAB	0x00a5->0x03df							; "COLLECTION_STORAGE_SIZE"
038e 00ba       |    |		.STRTAB	0x00ba->0x03eb							; "TASK_STORAGE_SIZE"
038f 00c9       |    |		.STRTAB	0x00c9->0x03f3							; "SMALL"
0390 00cc       |    |		.STRTAB	0x00cc->0x03f6							; "Element is not a Representation Clause"
0391 00f0       |    |		.STRTAB	0x00f0->0x0409							; "Element is not a Type Definition"
0392 010e       |    |		.STRTAB	0x010e->0x0419							; "Element can't have a Storage Size Rep"
0393 0131       | 1  |		.STRTAB	0x0131->0x042b							; "Element isn't an Enumeration Element"
0394 0153       | S  |		.STRTAB	0x0153->0x043d							; "Element can't have a record rep"
0395 0170       | p  |		.STRTAB	0x0170->0x044d							; "Element can't have an Address Rep"
0396 018f       |    |		.STRTAB	0x018f->0x045d							; "Element isn't a Length Clause"
0397 01aa       |    |		.STRTAB	0x01aa->0x046c							; "Element isn't a Representation Aggregate"
0398 01d0       |    |		.STRTAB	0x01d0->0x0480							; "Element isn't an Alignment Expression"
0399 01f3       |    |		.STRTAB	0x01f3->0x0492							; "Element isn't a Record Rep"
039a 020b       |    |		.STRTAB	0x020b->0x049f							; "Element isn't a Component Clause"
039b 0229       | )  |		.STRTAB	0x0229->0x04af							; "Element isn't an Address Clause"
039c 0246       | F  |		.STRTAB	0x0246->0x04bf							; "The LONG_INTEGER form of Associated_Enumeration_Representation is not yet implemented"
039d 0299       |    |		.STRTAB	0x0299->0x04e9							; "STORAGE_SIZE"
039e 02a3       |    |		.STREND 0x02a3->0x04ef
039f 415f 4c45  |A_LE|		.STRTAB_STRINGS
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug Table
04f0 ; --------------------------------------------------------------------------------------
04f0 0003 0017  |    |		.CONST	0x0003,0x0017
04f2 000b 05aa  |    |		.DEBUG	0x000b,0x05aa,0x8000,0x0000,0x0032,0xc794,0x0000,0x0005
04fa 0051 05e8  | Q  |		.DEBUG	0x0051,0x05e8,0x8000,0x0000,0x0033,0xd6e4,0x0000,0x0013
0502 008b 061a  |    |		.DEBUG	0x008b,0x061a,0x0005,0x0000,0x0032,0xc794,0x0000,0x0024
050a 00a3 061c  |    |		.DEBUG	0x00a3,0x061c,0x0002,0x0000,0x0032,0xc794,0x0000,0x002d
0512 00bb 0626  |   &|		.DEBUG	0x00bb,0x0626,0x0002,0x0000,0x0032,0xc794,0x0000,0x0036
051a 00fb 0640  |   @|		.DEBUG	0x00fb,0x0640,0x0002,0x0000,0x0032,0xc794,0x0000,0x003f
0522 0133 0650  | 3 P|		.DEBUG	0x0133,0x0650,0x0002,0x0000,0x0032,0xc794,0x0000,0x0048
052a 0153 065c  | S \|		.DEBUG	0x0153,0x065c,0x0002,0x0000,0x0032,0xc794,0x0000,0x0051
0532 0173 0668  | s h|		.DEBUG	0x0173,0x0668,0x0002,0x0000,0x0032,0xc794,0x0000,0x005a
053a 01ab 067a  |   z|		.DEBUG	0x01ab,0x067a,0x0002,0x0000,0x0032,0xc794,0x0000,0x0065
0542 01f3 068e  |    |		.DEBUG	0x01f3,0x068e,0x0005,0x0000,0x0032,0xc794,0x0000,0x0072
054a 020b 0690  |    |		.DEBUG	0x020b,0x0690,0x0002,0x0000,0x0032,0xc794,0x0000,0x007a
0552 022b 06a0  | +  |		.DEBUG	0x022b,0x06a0,0x0002,0x0000,0x0032,0xc794,0x0000,0x0083
055a 0253 06ac  | S  |		.DEBUG	0x0253,0x06ac,0x0002,0x0000,0x0032,0xc794,0x0000,0x008c
0562 027b 06c0  | {  |		.DEBUG	0x027b,0x06c0,0x0002,0x0000,0x0032,0xc794,0x0000,0x00a1
056a 029b 06cc  |    |		.DEBUG	0x029b,0x06cc,0x0002,0x0000,0x0032,0xc794,0x0000,0x00ac
0572 02ab 06d0  |    |		.DEBUG	0x02ab,0x06d0,0x0002,0x0000,0x0032,0xc794,0x0000,0x00b5
057a 02cb 06dc  |    |		.DEBUG	0x02cb,0x06dc,0x0002,0x0000,0x0032,0xc794,0x0000,0x00be
0582 02eb 06e8  |    |		.DEBUG	0x02eb,0x06e8,0x0002,0x0000,0x0032,0xc794,0x0000,0x00c7
058a 030b 06f4  |    |		.DEBUG	0x030b,0x06f4,0x0002,0x0000,0x0032,0xc794,0x0000,0x00d0
0592 032b 0700  | +  |		.DEBUG	0x032b,0x0700,0x0002,0x0000,0x0032,0xc794,0x0000,0x00d9
059a 034b 070c  | K  |		.DEBUG	0x034b,0x070c,0x0002,0x0000,0x0032,0xc794,0x0000,0x00e2
05a2 035b 0712  | [  |		.DEBUG	0x035b,0x0712,0x0004,0x0000,0x0033,0xd6e4,0x0000,0x038e
05aa ; --------------------------------------------------------------------------------------
05aa ; Debug3 Subtable 0x0
05aa ; --------------------------------------------------------------------------------------
05aa 001e 0000  |    |		.DBG3TAB	0x001e,0x0000
05ac 000b ffff  |    |		.CONST	0x000b,0xffff
05ae 000e fffe  |    |		.CONST	0x000e,0xfffe
05b0 0011 fffd  |    |		.CONST	0x0011,0xfffd
05b2 0014 fffc  |    |		.CONST	0x0014,0xfffc
05b4 0017 fffb  |    |		.CONST	0x0017,0xfffb
05b6 001a fffa  |    |		.CONST	0x001a,0xfffa
05b8 001f fff9  |    |		.CONST	0x001f,0xfff9
05ba 0021 fff8  | !  |		.CONST	0x0021,0xfff8
05bc 0023 fff7  | #  |		.CONST	0x0023,0xfff7
05be 0025 fff6  | %  |		.CONST	0x0025,0xfff6
05c0 0027 fff5  | '  |		.CONST	0x0027,0xfff5
05c2 0029 fff4  | )  |		.CONST	0x0029,0xfff4
05c4 002b fff3  | +  |		.CONST	0x002b,0xfff3
05c6 002d fff2  | -  |		.CONST	0x002d,0xfff2
05c8 0032 fff1  | 2  |		.CONST	0x0032,0xfff1
05ca 0034 fff0  | 4  |		.CONST	0x0034,0xfff0
05cc 0036 ffef  | 6  |		.CONST	0x0036,0xffef
05ce 0038 ffee  | 8  |		.CONST	0x0038,0xffee
05d0 003b ffed  | ;  |		.CONST	0x003b,0xffed
05d2 003e ffec  | >  |		.CONST	0x003e,0xffec
05d4 0040 ffeb  | @  |		.CONST	0x0040,0xffeb
05d6 0042 ffea  | B  |		.CONST	0x0042,0xffea
05d8 0044 ffe9  | D  |		.CONST	0x0044,0xffe9
05da 0046 ffe8  | F  |		.CONST	0x0046,0xffe8
05dc 0048 ffe7  | H  |		.CONST	0x0048,0xffe7
05de 004a ffe6  | J  |		.CONST	0x004a,0xffe6
05e0 004c ffe5  | L  |		.CONST	0x004c,0xffe5
05e2 004e ffe4  | N  |		.CONST	0x004e,0xffe4
05e4 004f ffe3  | O  |		.CONST	0x004f,0xffe3
05e6 0050 ffe2  | P  |		.CONST	0x0050,0xffe2
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug3 Subtable 0x1
05e8 ; --------------------------------------------------------------------------------------
05e8 0018 0000  |    |		.DBG3TAB	0x0018,0x0000
05ea 0051 ffff  | Q  |		.CONST	0x0051,0xffff
05ec 0052 fffe  | R  |		.CONST	0x0052,0xfffe
05ee 0053 fffd  | S  |		.CONST	0x0053,0xfffd
05f0 0054 fffc  | T  |		.CONST	0x0054,0xfffc
05f2 0055 fffb  | U  |		.CONST	0x0055,0xfffb
05f4 0059 fffa  | Y  |		.CONST	0x0059,0xfffa
05f6 005d fff9  | ]  |		.CONST	0x005d,0xfff9
05f8 005f fff8  | _  |		.CONST	0x005f,0xfff8
05fa 0061 fff7  | a  |		.CONST	0x0061,0xfff7
05fc 0063 fff6  | c  |		.CONST	0x0063,0xfff6
05fe 0065 fff5  | e  |		.CONST	0x0065,0xfff5
0600 0067 fff4  | g  |		.CONST	0x0067,0xfff4
0602 0069 fff3  | i  |		.CONST	0x0069,0xfff3
0604 006b fff2  | k  |		.CONST	0x006b,0xfff2
0606 006d fff1  | m  |		.CONST	0x006d,0xfff1
0608 006f fff0  | o  |		.CONST	0x006f,0xfff0
060a 0071 ffef  | q  |		.CONST	0x0071,0xffef
060c 0073 ffee  | s  |		.CONST	0x0073,0xffee
060e 0075 ffed  | u  |		.CONST	0x0075,0xffed
0610 0077 ffec  | w  |		.CONST	0x0077,0xffec
0612 0079 ffeb  | y  |		.CONST	0x0079,0xffeb
0614 007b ffea  | {  |		.CONST	0x007b,0xffea
0616 007d ffe9  | }  |		.CONST	0x007d,0xffe9
0618 007f ffe8  |    |		.CONST	0x007f,0xffe8
061a ; --------------------------------------------------------------------------------------
061a ; Debug3 Subtable 0x2
061a ; --------------------------------------------------------------------------------------
061a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
061c ; --------------------------------------------------------------------------------------
061c ; Debug3 Subtable 0x3
061c ; --------------------------------------------------------------------------------------
061c 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
061e 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0620 00ac 0001  |    |		.CONST	0x00ac,0x0001
0622 00b0 0002  |    |		.CONST	0x00b0,0x0002
0624 00b3 0003  |    |		.CONST	0x00b3,0x0003
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug3 Subtable 0x4
0626 ; --------------------------------------------------------------------------------------
0626 0002 000a  |    |		.DBG3TAB	0x0002,0x000a
0628 00bb ffff  |    |		.CONST	0x00bb,0xffff
062a 00bf fffe  |    |		.CONST	0x00bf,0xfffe
062c 00c0 0001  |    |		.CONST	0x00c0,0x0001
062e 00c4 0002  |    |		.CONST	0x00c4,0x0002
0630 00cd 0007  |    |		.CONST	0x00cd,0x0007
0632 00d3 0008  |    |		.CONST	0x00d3,0x0008
0634 00d6 0003  |    |		.CONST	0x00d6,0x0003
0636 00db 0004  |    |		.CONST	0x00db,0x0004
0638 00e0 0005  |    |		.CONST	0x00e0,0x0005
063a 00e5 0006  |    |		.CONST	0x00e5,0x0006
063c 00ec 0009  |    |		.CONST	0x00ec,0x0009
063e 00f2 000a  |    |		.CONST	0x00f2,0x000a
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug3 Subtable 0x5
0640 ; --------------------------------------------------------------------------------------
0640 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
0642 00fb ffff  |    |		.CONST	0x00fb,0xffff
0644 00ff 0001  |    |		.CONST	0x00ff,0x0001
0646 0112 0003  |    |		.CONST	0x0112,0x0003
0648 0117 0006  |    |		.CONST	0x0117,0x0006
064a 011a 0004  |    |		.CONST	0x011a,0x0004
064c 0120 0005  |    |		.CONST	0x0120,0x0005
064e 0123 0002  | #  |		.CONST	0x0123,0x0002
0650 ; --------------------------------------------------------------------------------------
0650 ; Debug3 Subtable 0x6
0650 ; --------------------------------------------------------------------------------------
0650 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0652 0133 ffff  | 3  |		.CONST	0x0133,0xffff
0654 0137 0001  | 7  |		.CONST	0x0137,0x0001
0656 0140 0003  | @  |		.CONST	0x0140,0x0003
0658 0146 0004  | F  |		.CONST	0x0146,0x0004
065a 0149 0002  | I  |		.CONST	0x0149,0x0002
065c ; --------------------------------------------------------------------------------------
065c ; Debug3 Subtable 0x7
065c ; --------------------------------------------------------------------------------------
065c 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
065e 0153 ffff  | S  |		.CONST	0x0153,0xffff
0660 0157 0001  | W  |		.CONST	0x0157,0x0001
0662 015e 0003  | ^  |		.CONST	0x015e,0x0003
0664 0164 0004  | d  |		.CONST	0x0164,0x0004
0666 0167 0002  | g  |		.CONST	0x0167,0x0002
0668 ; --------------------------------------------------------------------------------------
0668 ; Debug3 Subtable 0x8
0668 ; --------------------------------------------------------------------------------------
0668 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
066a 0173 ffff  | s  |		.CONST	0x0173,0xffff
066c 0178 0001  | x  |		.CONST	0x0178,0x0001
066e 0179 0002  | y  |		.CONST	0x0179,0x0002
0670 0182 0006  |    |		.CONST	0x0182,0x0006
0672 0188 0007  |    |		.CONST	0x0188,0x0007
0674 018b 0003  |    |		.CONST	0x018b,0x0003
0676 0191 0004  |    |		.CONST	0x0191,0x0004
0678 0197 0005  |    |		.CONST	0x0197,0x0005
067a ; --------------------------------------------------------------------------------------
067a ; Debug3 Subtable 0x9
067a ; --------------------------------------------------------------------------------------
067a 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
067c 01ab ffff  |    |		.CONST	0x01ab,0xffff
067e 01b0 0001  |    |		.CONST	0x01b0,0x0001
0680 01b1 0002  |    |		.CONST	0x01b1,0x0002
0682 01c8 0007  |    |		.CONST	0x01c8,0x0007
0684 01ce 0008  |    |		.CONST	0x01ce,0x0008
0686 01d1 0003  |    |		.CONST	0x01d1,0x0003
0688 01d6 0004  |    |		.CONST	0x01d6,0x0004
068a 01df 0005  |    |		.CONST	0x01df,0x0005
068c 01e4 0006  |    |		.CONST	0x01e4,0x0006
068e ; --------------------------------------------------------------------------------------
068e ; Debug3 Subtable 0xa
068e ; --------------------------------------------------------------------------------------
068e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug3 Subtable 0xb
0690 ; --------------------------------------------------------------------------------------
0690 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
0692 020b ffff  |    |		.CONST	0x020b,0xffff
0694 020f fffe  |    |		.CONST	0x020f,0xfffe
0696 0212 0001  |    |		.CONST	0x0212,0x0001
0698 0217 0002  |    |		.CONST	0x0217,0x0002
069a 021b 0003  |    |		.CONST	0x021b,0x0003
069c 021d 0004  |    |		.CONST	0x021d,0x0004
069e 0223 0005  | #  |		.CONST	0x0223,0x0005
06a0 ; --------------------------------------------------------------------------------------
06a0 ; Debug3 Subtable 0xc
06a0 ; --------------------------------------------------------------------------------------
06a0 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
06a2 022b ffff  | +  |		.CONST	0x022b,0xffff
06a4 022f 0001  | /  |		.CONST	0x022f,0x0001
06a6 023b 0002  | ;  |		.CONST	0x023b,0x0002
06a8 0240 0003  | @  |		.CONST	0x0240,0x0003
06aa 0246 0004  | F  |		.CONST	0x0246,0x0004
06ac ; --------------------------------------------------------------------------------------
06ac ; Debug3 Subtable 0xd
06ac ; --------------------------------------------------------------------------------------
06ac 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
06ae 0253 ffff  | S  |		.CONST	0x0253,0xffff
06b0 0257 fffe  | W  |		.CONST	0x0257,0xfffe
06b2 0258 0001  | X  |		.CONST	0x0258,0x0001
06b4 025d 0002  | ]  |		.CONST	0x025d,0x0002
06b6 0261 0003  | a  |		.CONST	0x0261,0x0003
06b8 0265 0004  | e  |		.CONST	0x0265,0x0004
06ba 0268 0005  | h  |		.CONST	0x0268,0x0005
06bc 026d 0006  | m  |		.CONST	0x026d,0x0006
06be 0273 0007  | s  |		.CONST	0x0273,0x0007
06c0 ; --------------------------------------------------------------------------------------
06c0 ; Debug3 Subtable 0xe
06c0 ; --------------------------------------------------------------------------------------
06c0 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
06c2 027b ffff  | {  |		.CONST	0x027b,0xffff
06c4 027f 0001  |    |		.CONST	0x027f,0x0001
06c6 0284 0002  |    |		.CONST	0x0284,0x0002
06c8 028d 0003  |    |		.CONST	0x028d,0x0003
06ca 0293 0004  |    |		.CONST	0x0293,0x0004
06cc ; --------------------------------------------------------------------------------------
06cc ; Debug3 Subtable 0xf
06cc ; --------------------------------------------------------------------------------------
06cc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
06ce 029b 0001  |    |		.CONST	0x029b,0x0001
06d0 ; --------------------------------------------------------------------------------------
06d0 ; Debug3 Subtable 0x10
06d0 ; --------------------------------------------------------------------------------------
06d0 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
06d2 02ab ffff  |    |		.CONST	0x02ab,0xffff
06d4 02af 0001  |    |		.CONST	0x02af,0x0001
06d6 02b4 0002  |    |		.CONST	0x02b4,0x0002
06d8 02b8 0003  |    |		.CONST	0x02b8,0x0003
06da 02be 0004  |    |		.CONST	0x02be,0x0004
06dc ; --------------------------------------------------------------------------------------
06dc ; Debug3 Subtable 0x11
06dc ; --------------------------------------------------------------------------------------
06dc 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
06de 02cb ffff  |    |		.CONST	0x02cb,0xffff
06e0 02cf 0001  |    |		.CONST	0x02cf,0x0001
06e2 02d4 0002  |    |		.CONST	0x02d4,0x0002
06e4 02d9 0003  |    |		.CONST	0x02d9,0x0003
06e6 02df 0004  |    |		.CONST	0x02df,0x0004
06e8 ; --------------------------------------------------------------------------------------
06e8 ; Debug3 Subtable 0x12
06e8 ; --------------------------------------------------------------------------------------
06e8 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
06ea 02eb ffff  |    |		.CONST	0x02eb,0xffff
06ec 02ef 0001  |    |		.CONST	0x02ef,0x0001
06ee 02f4 0002  |    |		.CONST	0x02f4,0x0002
06f0 02f9 0003  |    |		.CONST	0x02f9,0x0003
06f2 02ff 0004  |    |		.CONST	0x02ff,0x0004
06f4 ; --------------------------------------------------------------------------------------
06f4 ; Debug3 Subtable 0x13
06f4 ; --------------------------------------------------------------------------------------
06f4 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
06f6 030b ffff  |    |		.CONST	0x030b,0xffff
06f8 030f 0001  |    |		.CONST	0x030f,0x0001
06fa 0314 0002  |    |		.CONST	0x0314,0x0002
06fc 031a 0003  |    |		.CONST	0x031a,0x0003
06fe 0320 0004  |    |		.CONST	0x0320,0x0004
0700 ; --------------------------------------------------------------------------------------
0700 ; Debug3 Subtable 0x14
0700 ; --------------------------------------------------------------------------------------
0700 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0702 032b ffff  | +  |		.CONST	0x032b,0xffff
0704 032f 0001  | /  |		.CONST	0x032f,0x0001
0706 0334 0002  | 4  |		.CONST	0x0334,0x0002
0708 0339 0003  | 9  |		.CONST	0x0339,0x0003
070a 033f 0004  | ?  |		.CONST	0x033f,0x0004
070c ; --------------------------------------------------------------------------------------
070c ; Debug3 Subtable 0x15
070c ; --------------------------------------------------------------------------------------
070c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
070e 034b 0001  | K  |		.CONST	0x034b,0x0001
0710 0351 0002  | Q  |		.CONST	0x0351,0x0002
0712 ; --------------------------------------------------------------------------------------
0712 ; Debug3 Subtable 0x16
0712 ; --------------------------------------------------------------------------------------
0712 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
0714 035b ffff  | [  |		.CONST	0x035b,0xffff
0716 035e 0001  | ^  |		.CONST	0x035e,0x0001
0718 0363 0002  | c  |		.CONST	0x0363,0x0002
071a 0366 0003  | f  |		.CONST	0x0366,0x0003
071c 036b 0004  | k  |		.CONST	0x036b,0x0004
071e 0374 0007  | t  |		.CONST	0x0374,0x0007
0720 0375 0005  | u  |		.CONST	0x0375,0x0005
0722 0378 0006  | x  |		.CONST	0x0378,0x0006
0724 037d 0008  | }  |		.CONST	0x037d,0x0008
0726 0382 0009  |    |		.CONST	0x0382,0x0009
0728 0385 000a  |    |		.CONST	0x0385,0x000a
072a 0000 0000  |    |		.BLANK	0000[0xd6]