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

⟦f957d6e29⟧

    Length: 3072 (0xc00)
    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 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0058       | X  |		.CONST	0x0058								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x033a,0x8000,0x0000,0x0033,0xd314,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
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 1b37       | 7  |		Execute	Package,Field_Read,Field_Number 0x37
0013 0129       | )  |		Execute	Any,Make_Visible
0014 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x14,0xfffc
0016 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x16,0xfffb
0018 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x5 = 0x18,0xfffa
0019 4802       |H   |		Short_Literal	0x2
001a 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
001c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1d,0xfff9
001f 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1f,0xfff8
0021 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x21,0xfff7
0023 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x23,0xfff6
0025 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x25,0xfff5
0027 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x27,0xfff4
0029 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x29,0xfff3
002b e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0xd = 0x2b,0xfff2
002c 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
002d 0129       | )  |		Execute	Any,Make_Visible
002e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x2e,0xfff1
0030 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xf = 0x30,0xfff0
0031 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x10 = 0x31,0xffef
0032 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x11 = 0x32,0xffee
0033 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0033,0x0360,0x8000,0x0000,0x0033,0xdd94,0x0000,0x0011
													; Debug Table 0x1.0x0 = 0x33,0xffff
0034 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x34,0xfffe
0035 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x2 = 0x35,0xfffd
0036 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
0037 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0038 0007       |    |		Action	Break_Optional
0039 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x3 = 0x39,0xfffc
003a 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
003b 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
003c 0007       |    |		Action	Break_Optional
003d 029d 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call			; Debug Table 0x1.0x4 = 0x3d,0xfffb
003f 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call			; Debug Table 0x1.0x5 = 0x3f,0xfffa
0041 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call			; Debug Table 0x1.0x6 = 0x41,0xfff9
0043 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x43,0xfff8
0044 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x8 = 0x44,0xfff7
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x9 = 0x46,0xfff6
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xa = 0x48,0xfff5
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xb = 0x4a,0xfff4
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xc = 0x4c,0xfff3
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xd = 0x4e,0xfff2
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0xe = 0x50,0xfff1
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xf = 0x52,0xfff0
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x10 = 0x54,0xffef
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x11 = 0x56,0xffee
0057 00c7       |    |		Action	Elaborate_Subprogram
0058			BODY_0008:
0058 00bc       |    |		Action	Signal_Activated
0059 00bb       |    |		Action	Signal_Completion
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0064       | d  |		.CONST	0x0064								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0002       |    |		.CONST	0x0002								; Number of locals
0063			INIT_0060:
0063 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2 = .DEBUG	0x0063,0x0386,0x0002,0x0000,0x0033,0xd314,0x0000,0x0018
													; Debug Table 0x2.0x0 = 0x63,0xffff
0064			BODY_0060:
0064 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1 = 0x64,0x1
0065 821c       |    |		Call	0x1,0x1c
0066 821e       |    |		Call	0x1,0x1e
0067 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0068 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x2 = 0x68,0x2
0069 00eb       |    |		Load_Encached	Diana_Cache
006a 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
006b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
006c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x3 = 0x6c,0x3
006d 00eb       |    |		Load_Encached	Diana_Cache
006e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
006f 0f49       | I  |		Execute_Immediate	Equal,0x49
0070 6804       |h   |		Jump_Zero	0x75
0071 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x4 = 0x71,0x4
0072 00eb       |    |		Load_Encached	Diana_Cache
0073 18e5       |    |		Execute	Package,Field_Execute,Field_Number 0xe5
0074 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0075 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x5 = 0x75,0x5
0076 821d       |    |		Call	0x1,0x1d
0077 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007c       | |  |		.CONST	0x007c								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0002       |    |		.CONST	0x0002								; Number of locals
007b			INIT_0078:
007b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3 = .DEBUG	0x007b,0x0394,0x0002,0x0000,0x0033,0xd314,0x0000,0x0021
													; Debug Table 0x3.0x0 = 0x7b,0xffff
007c			BODY_0078:
007c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x1 = 0x7c,0x1
007d 821c       |    |		Call	0x1,0x1c
007e 821e       |    |		Call	0x1,0x1e
007f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0080 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0x80,0x2
0081 00eb       |    |		Load_Encached	Diana_Cache
0082 18bb       |    |		Execute	Package,Field_Execute,Field_Number 0xbb
0083 00eb       |    |		Load_Encached	Diana_Cache
0084 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0085 e001       |    |		Load	0x0,0x1
0086 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
0087 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0088 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0089 0000 0000  |    |		.BLANK	0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4603       |F   |		Jump_Case	0x4							; Debug Table 0x4 = .DEBUG	0x0093,0x039c,0x0005,0x0000,0x0033,0xd314,0x0000,0x002c
0094 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0095 7802       |x   |		Jump	0x98								; case 0x1
0096 7805       |x   |		Jump	0x9c								; case 0x2
0097 7809       |x   |		Jump	0xa1								; case 0x3
0098 00da       |    |		Load_Top	At_Offset_2
0099 0091 0250  |   P|		Action	Push_String_Extended_Indexed,0x250				; "A_WITH_CLAUSE"
009b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
009c 00db       |    |		Load_Top	At_Offset_3
009d 00db       |    |		Load_Top	At_Offset_3
009e 00e0       |    |		Load_Encached	Standard_Cache
009f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 00e0       |    |		Load_Encached	Standard_Cache
00a3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x00ab,0x039e,0x0002,0x0000,0x0033,0xd314,0x0000,0x0033
													; Debug Table 0x5.0x0 = 0xab,0x1
00ac 821c       |    |		Call	0x1,0x1c
00ad 00eb       |    |		Load_Encached	Diana_Cache
00ae 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00af 0b85       |    |		Execute_Immediate	Case_Compare,0x85
00b0 7004       |p   |		Jump_Nonzero	0xb5
00b1 0b45       | E  |		Execute_Immediate	Case_Compare,0x45
00b2 7004       |p   |		Jump_Nonzero	0xb7
00b3 4802       |H   |		Short_Literal	0x2							; Debug Table 0x5.0x1 = 0xb3,0x4
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x2 = 0xb5,0x2
00b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b7 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x3 = 0xb7,0x3
00b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x00c3,0x03a8,0x0002,0x0000,0x0033,0xd314,0x0000,0x003c
													; Debug Table 0x6.0x0 = 0xc3,0x1
00c4 4801       |H   |		Short_Literal	0x1
00c5 8220       |    |		Call	0x1,0x20
00c6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x1 = 0xc6,0x2
00c7 821c       |    |		Call	0x1,0x1c
00c8 00eb       |    |		Load_Encached	Diana_Cache
00c9 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
00ca e001       |    |		Load	0x0,0x1
00cb 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
00cc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d4       |    |		.CONST	0x00d4								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x7 = .DEBUG	0x00d3,0x03ae,0x0002,0x0000,0x0033,0xd314,0x0000,0x0047
													; Debug Table 0x7.0x0 = 0xd3,0xffff
00d4			BODY_00d0:
00d4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x1 = 0xd4,0x1
00d5 821c       |    |		Call	0x1,0x1c
00d6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00d7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x2 = 0xd7,0x2
00d8 00eb       |    |		Load_Encached	Diana_Cache
00d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00da 6803       |h   |		Jump_Zero	0xde
00db e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x3 = 0xdb,0x3
00dc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00de 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x4 = 0xde,0x4
00df 4974       |It  |		Short_Literal	0x174
00e0 00eb       |    |		Load_Encached	Diana_Cache
00e1 0098       |    |		Execute	Package,Field_Read_Dynamic
00e2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00e3 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00e4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x5 = 0xe4,0x5
00e5 00eb       |    |		Load_Encached	Diana_Cache
00e6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00e7 0fa8       |    |		Execute_Immediate	Equal,-0x58
00e8 6803       |h   |		Jump_Zero	0xec
00e9 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x6 = 0xe9,0x6
00ea 821d       |    |		Call	0x1,0x1d
00eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ec 0092 0253  |   S|		Action	Push_String_Extended,0x253					; "Element is not in a compilation unit"
													; Debug Table 0x7.0x7 = 0xec,0x7
00ee e002       |    |		Load	0x0,0x2
00ef 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00f0 e003       |    |		Load	0x0,0x3
00f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f2 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x8 = 0xf2,0x8
00f3 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00f4 0257       | W  |		Execute	Discrete,Raise
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fc       |    |		.CONST	0x00fc								; 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 0x8 = .DEBUG	0x00fb,0x03c2,0x0002,0x0000,0x0033,0xd314,0x0000,0x0052
													; Debug Table 0x8.0x0 = 0xfb,0xffff
00fc			BODY_00f8:
00fc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x1 = 0xfc,0x1
00fd 821c       |    |		Call	0x1,0x1c
00fe 821e       |    |		Call	0x1,0x1e
00ff 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0100 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0x100,0x2
0101 00eb       |    |		Load_Encached	Diana_Cache
0102 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
0103 00eb       |    |		Load_Encached	Diana_Cache
0104 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0105 0f49       | I  |		Execute_Immediate	Equal,0x49
0106 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0107 0000       |    |		.XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e20e       |    |		Load	0x1,0xe								; Debug Table 0x9 = .DEBUG	0x010b,0x03ca,0x0002,0x0000,0x0033,0xd314,0x0000,0x005b
													; Debug Table 0x9.0x0 = 0x10b,0xffff
010c 0007       |    |		Action	Break_Optional
010d			BODY_0108:
010d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0x10d,0x1
010e 8218       |    |		Call	0x1,0x18
010f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0110 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x2 = 0x110,0x2
0111 821c       |    |		Call	0x1,0x1c
0112 4974       |It  |		Short_Literal	0x174
0113 00eb       |    |		Load_Encached	Diana_Cache
0114 0098       |    |		Execute	Package,Field_Read_Dynamic
0115 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0116 821d       |    |		Call	0x1,0x1d
0117 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012a       | *  |		.CONST	0x012a								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0006       |    |		.CONST	0x0006								; Number of locals
011b			INIT_0118:
011b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xa = .DEBUG	0x011b,0x03d2,0x0002,0x0000,0x0033,0xd314,0x0000,0x0064
													; Debug Table 0xa.0x0 = 0x11b,0xffff
011c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xa.0x1 = 0x11c,0xfffe
011d e004       |    |		Load	0x0,0x4								; Debug Table 0xa.0x2 = 0x11d,0xfffd
011e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011f 02c7       |    |		Declare_Variable	Any
0120 00d8       |    |		Load_Top	At_Offset_0
0121 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0122 e004       |    |		Load	0x0,0x4								; Debug Table 0xa.0x3 = 0x122,0xfffc
0123 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0124 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0125 02c7       |    |		Declare_Variable	Any
0126 00d8       |    |		Load_Top	At_Offset_0
0127 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0128 e004       |    |		Load	0x0,0x4								; Debug Table 0xa.0x4 = 0x128,0xfffb
0129 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012a			BODY_0118:
012a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x5 = 0x12a,0x1
012b 821c       |    |		Call	0x1,0x1c
012c 821e       |    |		Call	0x1,0x1e
012d a402       |    |		Store_Unchecked	0x2,0x2
012e e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x6 = 0x12e,0x2
012f 00eb       |    |		Load_Encached	Diana_Cache
0130 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
0131 00eb       |    |		Load_Encached	Diana_Cache
0132 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0133 0f49       | I  |		Execute_Immediate	Equal,0x49
0134 7009       |p   |		Jump_Nonzero	0x13e
0135 0092 0254  |   T|		Action	Push_String_Extended,0x254					; "Element is not in a subunit"
													; Debug Table 0xa.0x7 = 0x135,0x3
0137 e002       |    |		Load	0x0,0x2
0138 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0139 e003       |    |		Load	0x0,0x3
013a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013b e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x8 = 0x13b,0x4
013c 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
013d 0257       | W  |		Execute	Discrete,Raise
013e e004       |    |		Load	0x0,0x4								; Debug Table 0xa.0x9 = 0x13e,0x5
013f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0140 00da       |    |		Load_Top	At_Offset_2
0141 0120       |    |		Execute	Any,Is_Value
0142 6804       |h   |		Jump_Zero	0x147
0143 e004       |    |		Load	0x0,0x4
0144 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0145 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0146 7801       |x   |		Jump	0x148
0147 00da       |    |		Load_Top	At_Offset_2
0148 e402       |    |		Load	0x2,0x2
0149 e004       |    |		Load	0x0,0x4
014a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
014c c405       |    |		Store	0x2,0x5
014d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
014e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xa = 0x14e,0x6
014f 821f       |    |		Call	0x1,0x1f
0150 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0xb = 0x150,0x7
0151 e004       |    |		Load	0x0,0x4
0152 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0153 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0154 c404       |    |		Store	0x2,0x4
0155 e004       |    |		Load	0x0,0x4								; Debug Table 0xa.0xc = 0x155,0x8
0156 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0157 e004       |    |		Load	0x0,0x4
0158 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0159 60f2       |`   |		Indirect_Literal	Discrete,0x24c,{0x00000000, 0x00004000}
015a e005       |    |		Load	0x0,0x5
015b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015c 4800       |H   |		Short_Literal	0x0
015d e404       |    |		Load	0x2,0x4
015e e004       |    |		Load	0x0,0x4
015f 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0160 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0161 c403       |    |		Store	0x2,0x3
0162 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0163 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xd = 0x163,0x9
0164 821f       |    |		Call	0x1,0x1f
0165 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0xe = 0x165,0xa
0166 821d       |    |		Call	0x1,0x1d
0167 e006       |    |		Load	0x0,0x6
0168 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0169 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016a 0000 0000  |    |		.BLANK	0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0176       | v  |		.CONST	0x0176								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0004       |    |		.CONST	0x0004								; Number of locals
0173			INIT_0170:
0173 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb = .DEBUG	0x0173,0x03f2,0x0002,0x0000,0x0033,0xd314,0x0000,0x006d
													; Debug Table 0xb.0x0 = 0x173,0xffff
0174 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0x1 = 0x174,0xfffe
0175 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xb.0x2 = 0x175,0xfffd
0176			BODY_0170:
0176 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x3 = 0x176,0x1
0177 821c       |    |		Call	0x1,0x1c
0178 821e       |    |		Call	0x1,0x1e
0179 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
017a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x4 = 0x17a,0x2
017b 00eb       |    |		Load_Encached	Diana_Cache
017c 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
017d 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
017e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x5 = 0x17e,0x3
017f 00eb       |    |		Load_Encached	Diana_Cache
0180 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0181 0f49       | I  |		Execute_Immediate	Equal,0x49
0182 6804       |h   |		Jump_Zero	0x187
0183 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x6 = 0x183,0x4
0184 00eb       |    |		Load_Encached	Diana_Cache
0185 18e5       |    |		Execute	Package,Field_Execute,Field_Number 0xe5
0186 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0187 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x7 = 0x187,0x5
0188 00eb       |    |		Load_Encached	Diana_Cache
0189 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
018a 0b48       | H  |		Execute_Immediate	Case_Compare,0x48
018b 700b       |p   |		Jump_Nonzero	0x197
018c 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
018d 7009       |p   |		Jump_Nonzero	0x197
018e 0092 0255  |   U|		Action	Push_String_Extended,0x255					; "Element is not a procedure"
													; Debug Table 0xb.0x8 = 0x18e,0x7
0190 e002       |    |		Load	0x0,0x2
0191 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0192 e003       |    |		Load	0x0,0x3
0193 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0194 e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x9 = 0x194,0x8
0195 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0196 0257       | W  |		Execute	Discrete,Raise
0197 00d1       |    |		Pop_Control	Pop_Count_1
0198 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0xa = 0x198,0x9
0199 00eb       |    |		Load_Encached	Diana_Cache
019a 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
019b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
019c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0xb = 0x19c,0xa
019d 00eb       |    |		Load_Encached	Diana_Cache
019e 18db       |    |		Execute	Package,Field_Execute,Field_Number 0xdb
019f 00eb       |    |		Load_Encached	Diana_Cache
01a0 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
01a1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01a2 00cf       |    |		Action	Mark_Auxiliary
01a3 7810       |x   |		Jump	0x1b4
01a4 0092 0256  |   V|		Action	Push_String_Extended,0x256					; "MAIN"
													; Debug Table 0xb.0xc = 0x1a4,0xc
01a6 00da       |    |		Load_Top	At_Offset_2
01a7 00eb       |    |		Load_Encached	Diana_Cache
01a8 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
01a9 e007       |    |		Load	0x0,0x7
01aa 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01ab 01df       |    |		Execute	Vector,Equal
01ac 6802       |h   |		Jump_Zero	0x1af
01ad 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0xd = 0x1ad,0xd
01ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01af 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0xe = 0x1af,0xe
01b0 00eb       |    |		Load_Encached	Diana_Cache
01b1 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
01b2 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01b3 00c9       |    |		Action	Pop_Auxiliary_Loop
01b4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0xf = 0x1b4,0xb
01b5 00eb       |    |		Load_Encached	Diana_Cache
01b6 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
01b7 6fec       |o   |		Jump_Zero	0x1a4
01b8 00ce       |    |		Action	Pop_Auxiliary
01b9 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x10 = 0x1b9,0xf
01ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ca       |    |		.CONST	0x01ca								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xc = .DEBUG	0x01c3,0x0416,0x0002,0x0000,0x0033,0xd314,0x0000,0x007c
													; Debug Table 0xc.0x0 = 0x1c3,0xffff
01c4 00db       |    |		Load_Top	At_Offset_3
01c5 821c       |    |		Call	0x1,0x1c
01c6 821e       |    |		Call	0x1,0x1e
01c7 00eb       |    |		Load_Encached	Diana_Cache
01c8 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
01c9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ca			BODY_01c0:
01ca 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x1 = 0x1ca,0x1
01cb 00eb       |    |		Load_Encached	Diana_Cache
01cc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01cd 0b49       | I  |		Execute_Immediate	Case_Compare,0x49
01ce 7009       |p   |		Jump_Nonzero	0x1d8
01cf 0092 0254  |   T|		Action	Push_String_Extended,0x254					; "Element is not in a subunit"
													; Debug Table 0xc.0x2 = 0x1cf,0x3
01d1 e002       |    |		Load	0x0,0x2
01d2 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01d3 e003       |    |		Load	0x0,0x3
01d4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d5 e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x3 = 0x1d5,0x4
01d6 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
01d7 0257       | W  |		Execute	Discrete,Raise
01d8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x4 = 0x1d8,0x2
01d9 00eb       |    |		Load_Encached	Diana_Cache
01da 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
01db 821d       |    |		Call	0x1,0x1d
01dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01dd 0000 0000  |    |		.XXX[0x3]
01df 0000       |    |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e4       |    |		.CONST	0x01e4								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd = .DEBUG	0x01e3,0x0422,0x0002,0x0000,0x0033,0xdd94,0x0000,0x0058
													; Debug Table 0xd.0x0 = 0x1e3,0xffff
01e4			BODY_01e0:
01e4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x1 = 0x1e4,0x1
01e5 00eb       |    |		Load_Encached	Diana_Cache
01e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01e7 6805       |h   |		Jump_Zero	0x1ed
01e8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x2 = 0x1e8,0x2
01e9 00eb       |    |		Load_Encached	Diana_Cache
01ea 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
01eb 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ec 7802       |x   |		Jump	0x1ef
01ed 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x3 = 0x1ed,0x3
01ee 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ef 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x4 = 0x1ef,0x4
01f0 00eb       |    |		Load_Encached	Diana_Cache
01f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01f2 0b3e       | >  |		Execute_Immediate	Case_Compare,0x3e
01f3 7009       |p   |		Jump_Nonzero	0x1fd
01f4 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
01f5 7007       |p   |		Jump_Nonzero	0x1fd
01f6 0b47       | G  |		Execute_Immediate	Case_Compare,0x47
01f7 7005       |p   |		Jump_Nonzero	0x1fd
01f8 0b46       | F  |		Execute_Immediate	Case_Compare,0x46
01f9 7003       |p   |		Jump_Nonzero	0x1fd
01fa 0b48       | H  |		Execute_Immediate	Case_Compare,0x48
01fb 7001       |p   |		Jump_Nonzero	0x1fd
01fc 7804       |x   |		Jump	0x201								; Debug Table 0xd.0x5 = 0x1fc,0x6
01fd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x6 = 0x1fd,0x5
01fe 00eb       |    |		Load_Encached	Diana_Cache
01ff 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0200 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0201 00d1       |    |		Pop_Control	Pop_Count_1
0202 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x7 = 0x202,0x7
0203 00eb       |    |		Load_Encached	Diana_Cache
0204 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0205 0f49       | I  |		Execute_Immediate	Equal,0x49
0206 6804       |h   |		Jump_Zero	0x20b
0207 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x8 = 0x207,0x8
0208 00eb       |    |		Load_Encached	Diana_Cache
0209 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
020a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
020b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x9 = 0x20b,0x9
020c 821d       |    |		Call	0x1,0x1d
020d e001       |    |		Load	0x0,0x1
020e 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
020f 7002       |p   |		Jump_Nonzero	0x212
0210 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0xa = 0x210,0xa
0211 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0212 0092 0257  |   W|		Action	Push_String_Extended,0x257					; "Element is not a compilation unit"
													; Debug Table 0xd.0xb = 0x212,0xb
0214 e002       |    |		Load	0x0,0x2
0215 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0216 e003       |    |		Load	0x0,0x3
0217 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0218 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0xc = 0x218,0xc
0219 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
021a 0257       | W  |		Execute	Discrete,Raise
021b 0000 0000  |    |		.BLANK	0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe = .DEBUG	0x0223,0x043e,0x0001,0x0000,0x0033,0xdd94,0x0000,0x00e7
													; Debug Table 0xe.0x0 = 0x223,0x1
0224 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0225 7009       |p   |		Jump_Nonzero	0x22f
0226 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe.0x1 = 0x226,0x3
0227 e004       |    |		Load	0x0,0x4
0228 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0229 025e       | ^  |		Execute	Discrete,Convert
022a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
022b e002       |    |		Load	0x0,0x2
022c 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
022d e003       |    |		Load	0x0,0x3
022e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf = .DEBUG	0x0233,0x0444,0x0001,0x0000,0x0033,0xdd94,0x0000,0x0112
													; Debug Table 0xf.0x0 = 0x233,0x1
0234 e001       |    |		Load	0x0,0x1
0235 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0236 00db       |    |		Load_Top	At_Offset_3
0237 027f       |    |		Execute	Discrete,Equal
0238 700f       |p   |		Jump_Nonzero	0x248
0239 0092 0258  |   X|		Action	Push_String_Extended,0x258					; "Element is not "
													; Debug Table 0xf.0x1 = 0x239,0x2
023b 00db       |    |		Load_Top	At_Offset_3
023c e001       |    |		Load	0x0,0x1
023d 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
023e 025e       | ^  |		Execute	Discrete,Convert
023f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0240 01cc       |    |		Execute	Vector,Catenate
0241 e002       |    |		Load	0x0,0x2
0242 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0243 e003       |    |		Load	0x0,0x3
0244 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0245 e001       |    |		Load	0x0,0x1								; Debug Table 0xf.0x2 = 0x245,0x3
0246 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0247 0257       | W  |		Execute	Discrete,Raise
0248 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0249 0000 0000  |    |		.XXX[0x3]
024b 0000       |    |
024c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0250 ; --------------------------------------------------------------------------------------
0250 ; STRING TABLE
0250 ; --------------------------------------------------------------------------------------
0250 0014       |    |		.STRTAB	0x0014->0x025a							; "A_WITH_CLAUSE"
0251 001f       |    |		.STRTAB	0x001f->0x0260							; "A_USE_CLAUSE"
0252 0029       | )  |		.STRTAB	0x0029->0x0266							; "NOT_A_CONTEXT_CLAUSE"
0253 003b       | ;  |		.STRTAB	0x003b->0x0270							; "Element is not in a compilation unit"
0254 005d       | ]  |		.STRTAB	0x005d->0x0282							; "Element is not in a subunit"
0255 0076       | v  |		.STRTAB	0x0076->0x0290							; "Element is not a procedure"
0256 008e       |    |		.STRTAB	0x008e->0x029d							; "MAIN"
0257 0090       |    |		.STRTAB	0x0090->0x029f							; "Element is not a compilation unit"
0258 00af       |    |		.STRTAB	0x00af->0x02af							; "Element is not "
0259 00bc       |    |		.STREND 0x00bc->0x02b7
025a 415f 5749  |A_WI|		.STRTAB_STRINGS
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0003 0010  |    |		.CONST	0x0003,0x0010
02ba 000b 033a  |   :|		.DEBUG	0x000b,0x033a,0x8000,0x0000,0x0033,0xd314,0x0000,0x0005
02c2 0033 0360  | 3 `|		.DEBUG	0x0033,0x0360,0x8000,0x0000,0x0033,0xdd94,0x0000,0x0011
02ca 0063 0386  | c  |		.DEBUG	0x0063,0x0386,0x0002,0x0000,0x0033,0xd314,0x0000,0x0018
02d2 007b 0394  | {  |		.DEBUG	0x007b,0x0394,0x0002,0x0000,0x0033,0xd314,0x0000,0x0021
02da 0093 039c  |    |		.DEBUG	0x0093,0x039c,0x0005,0x0000,0x0033,0xd314,0x0000,0x002c
02e2 00ab 039e  |    |		.DEBUG	0x00ab,0x039e,0x0002,0x0000,0x0033,0xd314,0x0000,0x0033
02ea 00c3 03a8  |    |		.DEBUG	0x00c3,0x03a8,0x0002,0x0000,0x0033,0xd314,0x0000,0x003c
02f2 00d3 03ae  |    |		.DEBUG	0x00d3,0x03ae,0x0002,0x0000,0x0033,0xd314,0x0000,0x0047
02fa 00fb 03c2  |    |		.DEBUG	0x00fb,0x03c2,0x0002,0x0000,0x0033,0xd314,0x0000,0x0052
0302 010b 03ca  |    |		.DEBUG	0x010b,0x03ca,0x0002,0x0000,0x0033,0xd314,0x0000,0x005b
030a 011b 03d2  |    |		.DEBUG	0x011b,0x03d2,0x0002,0x0000,0x0033,0xd314,0x0000,0x0064
0312 0173 03f2  | s  |		.DEBUG	0x0173,0x03f2,0x0002,0x0000,0x0033,0xd314,0x0000,0x006d
031a 01c3 0416  |    |		.DEBUG	0x01c3,0x0416,0x0002,0x0000,0x0033,0xd314,0x0000,0x007c
0322 01e3 0422  |   "|		.DEBUG	0x01e3,0x0422,0x0002,0x0000,0x0033,0xdd94,0x0000,0x0058
032a 0223 043e  | # >|		.DEBUG	0x0223,0x043e,0x0001,0x0000,0x0033,0xdd94,0x0000,0x00e7
0332 0233 0444  | 3 D|		.DEBUG	0x0233,0x0444,0x0001,0x0000,0x0033,0xdd94,0x0000,0x0112
033a ; --------------------------------------------------------------------------------------
033a ; Debug3 Subtable 0x0
033a ; --------------------------------------------------------------------------------------
033a 0012 0000  |    |		.DBG3TAB	0x0012,0x0000
033c 000b ffff  |    |		.CONST	0x000b,0xffff
033e 000e fffe  |    |		.CONST	0x000e,0xfffe
0340 0011 fffd  |    |		.CONST	0x0011,0xfffd
0342 0014 fffc  |    |		.CONST	0x0014,0xfffc
0344 0016 fffb  |    |		.CONST	0x0016,0xfffb
0346 0018 fffa  |    |		.CONST	0x0018,0xfffa
0348 001d fff9  |    |		.CONST	0x001d,0xfff9
034a 001f fff8  |    |		.CONST	0x001f,0xfff8
034c 0021 fff7  | !  |		.CONST	0x0021,0xfff7
034e 0023 fff6  | #  |		.CONST	0x0023,0xfff6
0350 0025 fff5  | %  |		.CONST	0x0025,0xfff5
0352 0027 fff4  | '  |		.CONST	0x0027,0xfff4
0354 0029 fff3  | )  |		.CONST	0x0029,0xfff3
0356 002b fff2  | +  |		.CONST	0x002b,0xfff2
0358 002e fff1  | .  |		.CONST	0x002e,0xfff1
035a 0030 fff0  | 0  |		.CONST	0x0030,0xfff0
035c 0031 ffef  | 1  |		.CONST	0x0031,0xffef
035e 0032 ffee  | 2  |		.CONST	0x0032,0xffee
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug3 Subtable 0x1
0360 ; --------------------------------------------------------------------------------------
0360 0012 0000  |    |		.DBG3TAB	0x0012,0x0000
0362 0033 ffff  | 3  |		.CONST	0x0033,0xffff
0364 0034 fffe  | 4  |		.CONST	0x0034,0xfffe
0366 0035 fffd  | 5  |		.CONST	0x0035,0xfffd
0368 0039 fffc  | 9  |		.CONST	0x0039,0xfffc
036a 003d fffb  | =  |		.CONST	0x003d,0xfffb
036c 003f fffa  | ?  |		.CONST	0x003f,0xfffa
036e 0041 fff9  | A  |		.CONST	0x0041,0xfff9
0370 0043 fff8  | C  |		.CONST	0x0043,0xfff8
0372 0044 fff7  | D  |		.CONST	0x0044,0xfff7
0374 0046 fff6  | F  |		.CONST	0x0046,0xfff6
0376 0048 fff5  | H  |		.CONST	0x0048,0xfff5
0378 004a fff4  | J  |		.CONST	0x004a,0xfff4
037a 004c fff3  | L  |		.CONST	0x004c,0xfff3
037c 004e fff2  | N  |		.CONST	0x004e,0xfff2
037e 0050 fff1  | P  |		.CONST	0x0050,0xfff1
0380 0052 fff0  | R  |		.CONST	0x0052,0xfff0
0382 0054 ffef  | T  |		.CONST	0x0054,0xffef
0384 0056 ffee  | V  |		.CONST	0x0056,0xffee
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug3 Subtable 0x2
0386 ; --------------------------------------------------------------------------------------
0386 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
0388 0063 ffff  | c  |		.CONST	0x0063,0xffff
038a 0064 0001  | d  |		.CONST	0x0064,0x0001
038c 0068 0002  | h  |		.CONST	0x0068,0x0002
038e 006c 0003  | l  |		.CONST	0x006c,0x0003
0390 0071 0004  | q  |		.CONST	0x0071,0x0004
0392 0075 0005  | u  |		.CONST	0x0075,0x0005
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x3
0394 ; --------------------------------------------------------------------------------------
0394 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0396 007b ffff  | {  |		.CONST	0x007b,0xffff
0398 007c 0001  | |  |		.CONST	0x007c,0x0001
039a 0080 0002  |    |		.CONST	0x0080,0x0002
039c ; --------------------------------------------------------------------------------------
039c ; Debug3 Subtable 0x4
039c ; --------------------------------------------------------------------------------------
039c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
039e ; --------------------------------------------------------------------------------------
039e ; Debug3 Subtable 0x5
039e ; --------------------------------------------------------------------------------------
039e 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
03a0 00ab 0001  |    |		.CONST	0x00ab,0x0001
03a2 00b3 0004  |    |		.CONST	0x00b3,0x0004
03a4 00b5 0002  |    |		.CONST	0x00b5,0x0002
03a6 00b7 0003  |    |		.CONST	0x00b7,0x0003
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug3 Subtable 0x6
03a8 ; --------------------------------------------------------------------------------------
03a8 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
03aa 00c3 0001  |    |		.CONST	0x00c3,0x0001
03ac 00c6 0002  |    |		.CONST	0x00c6,0x0002
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x7
03ae ; --------------------------------------------------------------------------------------
03ae 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
03b0 00d3 ffff  |    |		.CONST	0x00d3,0xffff
03b2 00d4 0001  |    |		.CONST	0x00d4,0x0001
03b4 00d7 0002  |    |		.CONST	0x00d7,0x0002
03b6 00db 0003  |    |		.CONST	0x00db,0x0003
03b8 00de 0004  |    |		.CONST	0x00de,0x0004
03ba 00e4 0005  |    |		.CONST	0x00e4,0x0005
03bc 00e9 0006  |    |		.CONST	0x00e9,0x0006
03be 00ec 0007  |    |		.CONST	0x00ec,0x0007
03c0 00f2 0008  |    |		.CONST	0x00f2,0x0008
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug3 Subtable 0x8
03c2 ; --------------------------------------------------------------------------------------
03c2 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
03c4 00fb ffff  |    |		.CONST	0x00fb,0xffff
03c6 00fc 0001  |    |		.CONST	0x00fc,0x0001
03c8 0100 0002  |    |		.CONST	0x0100,0x0002
03ca ; --------------------------------------------------------------------------------------
03ca ; Debug3 Subtable 0x9
03ca ; --------------------------------------------------------------------------------------
03ca 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
03cc 010b ffff  |    |		.CONST	0x010b,0xffff
03ce 010d 0001  |    |		.CONST	0x010d,0x0001
03d0 0110 0002  |    |		.CONST	0x0110,0x0002
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug3 Subtable 0xa
03d2 ; --------------------------------------------------------------------------------------
03d2 0005 000a  |    |		.DBG3TAB	0x0005,0x000a
03d4 011b ffff  |    |		.CONST	0x011b,0xffff
03d6 011c fffe  |    |		.CONST	0x011c,0xfffe
03d8 011d fffd  |    |		.CONST	0x011d,0xfffd
03da 0122 fffc  | "  |		.CONST	0x0122,0xfffc
03dc 0128 fffb  | (  |		.CONST	0x0128,0xfffb
03de 012a 0001  | *  |		.CONST	0x012a,0x0001
03e0 012e 0002  | .  |		.CONST	0x012e,0x0002
03e2 0135 0003  | 5  |		.CONST	0x0135,0x0003
03e4 013b 0004  | ;  |		.CONST	0x013b,0x0004
03e6 013e 0005  | >  |		.CONST	0x013e,0x0005
03e8 014e 0006  | N  |		.CONST	0x014e,0x0006
03ea 0150 0007  | P  |		.CONST	0x0150,0x0007
03ec 0155 0008  | U  |		.CONST	0x0155,0x0008
03ee 0163 0009  | c  |		.CONST	0x0163,0x0009
03f0 0165 000a  | e  |		.CONST	0x0165,0x000a
03f2 ; --------------------------------------------------------------------------------------
03f2 ; Debug3 Subtable 0xb
03f2 ; --------------------------------------------------------------------------------------
03f2 0003 000e  |    |		.DBG3TAB	0x0003,0x000e
03f4 0173 ffff  | s  |		.CONST	0x0173,0xffff
03f6 0174 fffe  | t  |		.CONST	0x0174,0xfffe
03f8 0175 fffd  | u  |		.CONST	0x0175,0xfffd
03fa 0176 0001  | v  |		.CONST	0x0176,0x0001
03fc 017a 0002  | z  |		.CONST	0x017a,0x0002
03fe 017e 0003  | ~  |		.CONST	0x017e,0x0003
0400 0183 0004  |    |		.CONST	0x0183,0x0004
0402 0187 0005  |    |		.CONST	0x0187,0x0005
0404 018e 0007  |    |		.CONST	0x018e,0x0007
0406 0194 0008  |    |		.CONST	0x0194,0x0008
0408 0198 0009  |    |		.CONST	0x0198,0x0009
040a 019c 000a  |    |		.CONST	0x019c,0x000a
040c 01a4 000c  |    |		.CONST	0x01a4,0x000c
040e 01ad 000d  |    |		.CONST	0x01ad,0x000d
0410 01af 000e  |    |		.CONST	0x01af,0x000e
0412 01b4 000b  |    |		.CONST	0x01b4,0x000b
0414 01b9 000f  |    |		.CONST	0x01b9,0x000f
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0xc
0416 ; --------------------------------------------------------------------------------------
0416 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0418 01c3 ffff  |    |		.CONST	0x01c3,0xffff
041a 01ca 0001  |    |		.CONST	0x01ca,0x0001
041c 01cf 0003  |    |		.CONST	0x01cf,0x0003
041e 01d5 0004  |    |		.CONST	0x01d5,0x0004
0420 01d8 0002  |    |		.CONST	0x01d8,0x0002
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0xd
0422 ; --------------------------------------------------------------------------------------
0422 0001 000c  |    |		.DBG3TAB	0x0001,0x000c
0424 01e3 ffff  |    |		.CONST	0x01e3,0xffff
0426 01e4 0001  |    |		.CONST	0x01e4,0x0001
0428 01e8 0002  |    |		.CONST	0x01e8,0x0002
042a 01ed 0003  |    |		.CONST	0x01ed,0x0003
042c 01ef 0004  |    |		.CONST	0x01ef,0x0004
042e 01fc 0006  |    |		.CONST	0x01fc,0x0006
0430 01fd 0005  |    |		.CONST	0x01fd,0x0005
0432 0202 0007  |    |		.CONST	0x0202,0x0007
0434 0207 0008  |    |		.CONST	0x0207,0x0008
0436 020b 0009  |    |		.CONST	0x020b,0x0009
0438 0210 000a  |    |		.CONST	0x0210,0x000a
043a 0212 000b  |    |		.CONST	0x0212,0x000b
043c 0218 000c  |    |		.CONST	0x0218,0x000c
043e ; --------------------------------------------------------------------------------------
043e ; Debug3 Subtable 0xe
043e ; --------------------------------------------------------------------------------------
043e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0440 0223 0001  | #  |		.CONST	0x0223,0x0001
0442 0226 0003  | &  |		.CONST	0x0226,0x0003
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug3 Subtable 0xf
0444 ; --------------------------------------------------------------------------------------
0444 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0446 0233 0001  | 3  |		.CONST	0x0233,0x0001
0448 0239 0002  | 9  |		.CONST	0x0239,0x0002
044a 0245 0003  | E  |		.CONST	0x0245,0x0003
044c 0000 0000  |    |		.BLANK	0000[0x1b4]