DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦adb939632⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »4661256.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »4661256.SEG« 
    └─ ⟦this⟧ »4661256.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »4661256.SEG« 
    └─ ⟦this⟧ »4661256.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »4661256.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »4661256.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »4661256.SEG« 

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 0380       |    |		.CONST	0x0380								; 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 0055       | U  |		.CONST	0x0055								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0422,0x8000,0x0000,0x000e,0x88b4,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3 = 0x11,0xfffc
0012 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x4 = 0x12,0xfffb
0013 0129       | )  |		Execute	Any,Make_Visible
0014 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x16,0xfff9
0018 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x18,0xfff8
001a 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1a,0xfff7
001c 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1c,0xfff6
001e 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1e,0xfff5
0020 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x20,0xfff4
0022 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x22,0xfff3
0024 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x24,0xfff2
0026 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x26,0xfff1
0028 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0xf = 0x28,0xfff0
0029 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0029,0x0444,0x8000,0x0000,0x0016,0x74d4,0x0000,0x0012
													; Debug Table 0x1.0x0 = 0x29,0xffff
002a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x2a,0xfffe
002b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x2b,0xfffd
002c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x3 = 0x2c,0xfffc
002d 4832       |H2  |		Short_Literal	0x32
002e e001       |    |		Load	0x0,0x1
002f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0030 0334       | 4  |		Declare_Variable	Array,With_Constraint
0031 e21b       |    |		Load	0x1,0x1b
0032 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0033 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x1.0x4 = 0x33,0xfffb
0034 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0035 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call			; Debug Table 0x1.0x5 = 0x35,0xfffa
0037 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x6 = 0x37,0xfff9
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x7 = 0x39,0xfff8
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x8 = 0x3b,0xfff7
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x9 = 0x3d,0xfff6
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xa = 0x3f,0xfff5
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xb = 0x41,0xfff4
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xc = 0x43,0xfff3
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xd = 0x45,0xfff2
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0xe = 0x47,0xfff1
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xf = 0x49,0xfff0
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x10 = 0x4b,0xffef
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x11 = 0x4d,0xffee
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call			; Debug Table 0x1.0x12 = 0x4f,0xffed
0051 029d 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call			; Debug Table 0x1.0x13 = 0x51,0xffec
0053 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x14 = 0x53,0xffeb
0054 00c7       |    |		Action	Elaborate_Subprogram
0055			BODY_0008:
0055 0092 0262  |   b|		Action	Push_String_Extended,0x262					; "ADA_BASE"
													; Debug Table 0x1.0x15 = 0x55,0x1
0057 821d       |    |		Call	0x1,0x1d
0058 0092 0263  |   c|		Action	Push_String_Extended,0x263					; "MACHINE_INTERFACE"
													; Debug Table 0x1.0x16 = 0x58,0x2
005a 821d       |    |		Call	0x1,0x1d
005b 0092 0264  |   d|		Action	Push_String_Extended,0x264					; "KERNEL_DEBUGGER_IO"
													; Debug Table 0x1.0x17 = 0x5b,0x3
005d 821d       |    |		Call	0x1,0x1d
005e 0092 0265  |   e|		Action	Push_String_Extended,0x265					; "KERNEL_DEBUGGER"
													; Debug Table 0x1.0x18 = 0x5e,0x4
0060 821d       |    |		Call	0x1,0x1d
0061 0092 0266  |   f|		Action	Push_String_Extended,0x266					; "KERNEL"
													; Debug Table 0x1.0x19 = 0x61,0x5
0063 821d       |    |		Call	0x1,0x1d
0064 0092 0267  |   g|		Action	Push_String_Extended,0x267					; "ENVIRONMENT_DEBUGGER"
													; Debug Table 0x1.0x1a = 0x64,0x6
0066 821d       |    |		Call	0x1,0x1d
0067 0092 0268  |   h|		Action	Push_String_Extended,0x268					; "TEST_UTILITIES"
													; Debug Table 0x1.0x1b = 0x67,0x7
0069 821d       |    |		Call	0x1,0x1d
006a 0092 0269  |   i|		Action	Push_String_Extended,0x269					; "ABSTRACT_TYPES"
													; Debug Table 0x1.0x1c = 0x6a,0x8
006c 821d       |    |		Call	0x1,0x1d
006d 0092 026a  |   j|		Action	Push_String_Extended,0x26a					; "MISCELLANEOUS"
													; Debug Table 0x1.0x1d = 0x6d,0x9
006f 821d       |    |		Call	0x1,0x1d
0070 0092 026b  |   k|		Action	Push_String_Extended,0x26b					; "ELABORATOR_DATABASE"
													; Debug Table 0x1.0x1e = 0x70,0xa
0072 821d       |    |		Call	0x1,0x1d
0073 0092 026c  |   l|		Action	Push_String_Extended,0x26c					; "OS_UTILITIES"
													; Debug Table 0x1.0x1f = 0x73,0xb
0075 821d       |    |		Call	0x1,0x1d
0076 0092 026d  |   m|		Action	Push_String_Extended,0x26d					; "NETWORK"
													; Debug Table 0x1.0x20 = 0x76,0xc
0078 821d       |    |		Call	0x1,0x1d
0079 0092 026e  |   n|		Action	Push_String_Extended,0x26e					; "REMOTE_PROCEDURE"
													; Debug Table 0x1.0x21 = 0x79,0xd
007b 821d       |    |		Call	0x1,0x1d
007c 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "BACKUP_RECOVERY"
													; Debug Table 0x1.0x22 = 0x7c,0xe
007e 821d       |    |		Call	0x1,0x1d
007f 0092 0270  |   p|		Action	Push_String_Extended,0x270					; "OM_MECHANISMS"
													; Debug Table 0x1.0x23 = 0x7f,0xf
0081 821d       |    |		Call	0x1,0x1d
0082 0092 0271  |   q|		Action	Push_String_Extended,0x271					; "BASIC_MANAGERS"
													; Debug Table 0x1.0x24 = 0x82,0x10
0084 821d       |    |		Call	0x1,0x1d
0085 0092 0272  |   r|		Action	Push_String_Extended,0x272					; "ADA_MANAGEMENT"
													; Debug Table 0x1.0x25 = 0x85,0x11
0087 821d       |    |		Call	0x1,0x1d
0088 0092 0273  |   s|		Action	Push_String_Extended,0x273					; "RUNTIME_MANAGEMENT"
													; Debug Table 0x1.0x26 = 0x88,0x12
008a 821d       |    |		Call	0x1,0x1d
008b 0092 0274  |   t|		Action	Push_String_Extended,0x274					; "PARSER"
													; Debug Table 0x1.0x27 = 0x8b,0x13
008d 821d       |    |		Call	0x1,0x1d
008e 0092 0275  |   u|		Action	Push_String_Extended,0x275					; "PRETTY_PRINTER"
													; Debug Table 0x1.0x28 = 0x8e,0x14
0090 821d       |    |		Call	0x1,0x1d
0091 0092 0276  |   v|		Action	Push_String_Extended,0x276					; "SEMANTICS"
													; Debug Table 0x1.0x29 = 0x91,0x15
0093 821d       |    |		Call	0x1,0x1d
0094 0092 0277  |   w|		Action	Push_String_Extended,0x277					; "CODE_GENERATION"
													; Debug Table 0x1.0x2a = 0x94,0x16
0096 821d       |    |		Call	0x1,0x1d
0097 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "DIRECTORY"
													; Debug Table 0x1.0x2b = 0x97,0x17
0099 821d       |    |		Call	0x1,0x1d
009a 0092 0279  |   y|		Action	Push_String_Extended,0x279					; "COMPILATION_MANAGER"
													; Debug Table 0x1.0x2c = 0x9a,0x18
009c 821d       |    |		Call	0x1,0x1d
009d 0092 027a  |   z|		Action	Push_String_Extended,0x27a					; "IMAGE"
													; Debug Table 0x1.0x2d = 0x9d,0x19
009f 821d       |    |		Call	0x1,0x1d
00a0 0092 027b  |   {|		Action	Push_String_Extended,0x27b					; "CORE_EDITOR"
													; Debug Table 0x1.0x2e = 0xa0,0x1a
00a2 821d       |    |		Call	0x1,0x1d
00a3 0092 027c  |   ||		Action	Push_String_Extended,0x27c					; "OE_MECHANISMS"
													; Debug Table 0x1.0x2f = 0xa3,0x1b
00a5 821d       |    |		Call	0x1,0x1d
00a6 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; "OBJECT_EDITOR"
													; Debug Table 0x1.0x30 = 0xa6,0x1c
00a8 821d       |    |		Call	0x1,0x1d
00a9 00bc       |    |		Action	Signal_Activated
00aa 00bb       |    |		Action	Signal_Completion
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 00c7       |    |		.CONST	0x00c7								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 0007       |    |		Action	Break_Optional							; Debug Table 0x2 = .DEBUG	0x00b3,0x04a8,0x0001,0x0000,0x000e,0x88b4,0x0000,0x000a
													; Debug Table 0x2.0x0 = 0xb3,0x1
00b4 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x1 = 0xb4,0x2
00b5 4801       |H   |		Short_Literal	0x1
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 01db       |    |		Execute	Vector,Length
00b8 e21b       |    |		Load	0x1,0x1b
00b9 01ce       |    |		Execute	Vector,Slice_Write
00ba e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x2 = 0xba,0x3
00bb 01db       |    |		Execute	Vector,Length
00bc 0a01       |    |		Execute_Immediate	Plus,0x1
00bd c21c       |    |		Store	0x1,0x1c
00be 0092 027e  |   ~|		Action	Push_String_Extended,0x27e					; "+++ New configuration has been loaded +++"
													; Debug Table 0x2.0x3 = 0xbe,0x4
00c0 e002       |    |		Load	0x0,0x2
00c1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00c2 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x4 = 0xc2,0x5
00c3 00ea       |    |		Load_Encached	Null_String_Cache
00c4 e003       |    |		Load	0x0,0x3
00c5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c7			TRAP_00b0:
00c7 0007       |    |		Action	Break_Optional
00c8 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x5 = 0xc8,0x6
00c9 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "Set_Configuration:"
00cb 8004       |    |		Call	0x0,0x4
00cc 01cc       |    |		Execute	Vector,Catenate
00cd e003       |    |		Load	0x0,0x3
00ce 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 00f0       |    |		.CONST	0x00f0								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 e210       |    |		Load	0x1,0x10							; Debug Table 0x3 = .DEBUG	0x00d3,0x04b6,0x0001,0x0000,0x000e,0x88b4,0x0000,0x001a
													; Debug Table 0x3.0x0 = 0xd3,0xffff
00d4 0007       |    |		Action	Break_Optional
00d5			BODY_00d0:
00d5 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x1 = 0xd5,0x1
00d6 8218       |    |		Call	0x1,0x18
00d7 a402       |    |		Store_Unchecked	0x2,0x2
00d8 e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x2 = 0xd8,0x2
00d9 8211       |    |		Call	0x1,0x11
00da 680b       |h   |		Jump_Zero	0xe6
00db e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x3 = 0xdb,0x3
00dc 0092 0280  |    |		Action	Push_String_Extended,0x280					; "Nonexistent subsystem: "
00de e5ff       |    |		Load	0x2,-0x1
00df e003       |    |		Load	0x0,0x3
00e0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e1 01cc       |    |		Execute	Vector,Catenate
00e2 e003       |    |		Load	0x0,0x3
00e3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e4 00d1       |    |		Pop_Control	Pop_Count_1
00e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x3.0x4 = 0xe5,0x4
00e6 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x5 = 0xe6,0x5
00e7 e402       |    |		Load	0x2,0x2
00e8 e21b       |    |		Load	0x1,0x1b
00e9 01d5       |    |		Execute	Vector,Field_Reference
00ea 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00eb e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x6 = 0xeb,0x6
00ec 00ea       |    |		Load_Encached	Null_String_Cache
00ed e003       |    |		Load	0x0,0x3
00ee 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ef 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f0			TRAP_00d0:
00f0 0007       |    |		Action	Break_Optional
00f1 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x7 = 0xf1,0x7
00f2 0092 0281  |    |		Action	Push_String_Extended,0x281					; "Add_Subsystem_Info:"
00f4 8004       |    |		Call	0x0,0x4
00f5 01cc       |    |		Execute	Vector,Catenate
00f6 e003       |    |		Load	0x0,0x3
00f7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00f8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f9 0000 0000  |    |		.BLANK	0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107       |    |		.CONST	0x0107								; Address of begin
0101 011f       |    |		.CONST	0x011f								; Address of exception handler
0102 0003       |    |		.CONST	0x0003								; Number of locals
0103			INIT_0100:
0103 e210       |    |		Load	0x1,0x10							; Debug Table 0x4 = .DEBUG	0x0103,0x04c8,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0032
													; Debug Table 0x4.0x0 = 0x103,0xffff
0104 0007       |    |		Action	Break_Optional
0105 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x1 = 0x105,0xfffe
0106 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0107			BODY_0100:
0107 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x2 = 0x107,0x1
0108 8219       |    |		Call	0x1,0x19
0109 a402       |    |		Store_Unchecked	0x2,0x2
010a e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x3 = 0x10a,0x2
010b 8211       |    |		Call	0x1,0x11
010c 6802       |h   |		Jump_Zero	0x10f
010d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x4 = 0x10d,0x3
010e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010f e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x5 = 0x10f,0x4
0110 8217       |    |		Call	0x1,0x17
0111 700a       |p   |		Jump_Nonzero	0x11c
0112 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x6 = 0x112,0x5
0113 821e       |    |		Call	0x1,0x1e
0114 a403       |    |		Store_Unchecked	0x2,0x3
0115 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x7 = 0x115,0x6
0116 7003       |p   |		Jump_Nonzero	0x11a
0117 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x8 = 0x117,0x7
0118 821f       |    |		Call	0x1,0x1f
0119 a403       |    |		Store_Unchecked	0x2,0x3
011a e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x9 = 0x11a,0x8
011b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011c e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xa = 0x11c,0x9
011d 8217       |    |		Call	0x1,0x17
011e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011f			TRAP_0100:
011f 0007       |    |		Action	Break_Optional
0120 0092 0282  |    |		Action	Push_String_Extended,0x282					; "***Libraries.Module: "
													; Debug Table 0x4.0xb = 0x120,0xa
0122 8004       |    |		Call	0x0,0x4
0123 01cc       |    |		Execute	Vector,Catenate
0124 e006       |    |		Load	0x0,0x6
0125 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0126 e006       |    |		Load	0x0,0x6								; Debug Table 0x4.0xc = 0x126,0xb
0127 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0128 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xd = 0x128,0xc
0129 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5 = .DEBUG	0x0133,0x04e6,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0046
													; Debug Table 0x5.0x0 = 0x133,0x1
0134 e21c       |    |		Load	0x1,0x1c
0135 027b       | {  |		Execute	Discrete,Greater_Equal
0136 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6 = .DEBUG	0x013b,0x04ea,0x0001,0x0000,0x000e,0x88b4,0x0000,0x004f
													; Debug Table 0x6.0x0 = 0x13b,0x1
013c 0a01       |    |		Execute_Immediate	Plus,0x1
013d c5ff       |    |		Store	0x2,-0x1
013e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
013f 0000       |    |		.XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7 = .DEBUG	0x0143,0x04ee,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0057
													; Debug Table 0x7.0x0 = 0x143,0x1
0144 e21b       |    |		Load	0x1,0x1b
0145 01d5       |    |		Execute	Vector,Field_Reference
0146 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0147 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0148 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8 = .DEBUG	0x0153,0x04f2,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0062
													; Debug Table 0x8.0x0 = 0x153,0x1
0154 e21b       |    |		Load	0x1,0x1b
0155 01d5       |    |		Execute	Vector,Field_Reference
0156 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0157 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0158 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9 = .DEBUG	0x0163,0x04f6,0x0002,0x0000,0x000e,0x88b4,0x0000,0x006d
													; Debug Table 0x9.0x0 = 0x163,0x1
0164 e21b       |    |		Load	0x1,0x1b
0165 01d5       |    |		Execute	Vector,Field_Reference
0166 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0167 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0168 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa = .DEBUG	0x0173,0x04fa,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0078
													; Debug Table 0xa.0x0 = 0x173,0x1
0174 e21b       |    |		Load	0x1,0x1b
0175 01d5       |    |		Execute	Vector,Field_Reference
0176 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0177 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb = .DEBUG	0x017b,0x04fe,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0085
													; Debug Table 0xb.0x0 = 0x17b,0x1
017c e21b       |    |		Load	0x1,0x1b
017d 01d5       |    |		Execute	Vector,Field_Reference
017e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
017f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xc = .DEBUG	0x0183,0x0502,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0092
													; Debug Table 0xc.0x0 = 0x183,0x1
0184 4801       |H   |		Short_Literal	0x1
0185 0263       | c  |		Execute	Discrete,Above_Bound
0186 7010       |p   |		Jump_Nonzero	0x197
0187 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x1 = 0x187,0x2
0188 e403       |    |		Load	0x2,0x3
0189 e21b       |    |		Load	0x1,0x1b
018a 01d5       |    |		Execute	Vector,Field_Reference
018b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
018c e003       |    |		Load	0x0,0x3
018d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
018e e5ff       |    |		Load	0x2,-0x1
018f e003       |    |		Load	0x0,0x3
0190 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0191 e007       |    |		Load	0x0,0x7
0192 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0193 6802       |h   |		Jump_Zero	0x196
0194 e403       |    |		Load	0x2,0x3								; Debug Table 0xc.0x2 = 0x194,0x3
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 3ff0       |?   |		Loop_Increasing	0x187
0197 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xc.0x3 = 0x197,0x4
0198 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xd = .DEBUG	0x01a3,0x050c,0x0002,0x0000,0x000e,0x88b4,0x0000,0x009d
													; Debug Table 0xd.0x0 = 0x1a3,0x1
01a4 4801       |H   |		Short_Literal	0x1
01a5 0263       | c  |		Execute	Discrete,Above_Bound
01a6 700a       |p   |		Jump_Nonzero	0x1b1
01a7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x1 = 0x1a7,0x2
01a8 e403       |    |		Load	0x2,0x3
01a9 e21b       |    |		Load	0x1,0x1b
01aa 01d5       |    |		Execute	Vector,Field_Reference
01ab 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01ac 027f       |    |		Execute	Discrete,Equal
01ad 6802       |h   |		Jump_Zero	0x1b0
01ae e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x2 = 0x1ae,0x3
01af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b0 3ff6       |?   |		Loop_Increasing	0x1a7
01b1 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xd.0x3 = 0x1b1,0x4
01b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe = .DEBUG	0x01bb,0x0516,0x0001,0x0000,0x000e,0x88b4,0x0000,0x00a6
													; Debug Table 0xe.0x0 = 0x1bb,0x1
01bc a5ff       |    |		Store_Unchecked	0x2,-0x1
01bd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c9       |    |		.CONST	0x01c9								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0004       |    |		.CONST	0x0004								; Number of locals
01c3			INIT_01c0:
01c3 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0xf = .DEBUG	0x01c3,0x051a,0x0001,0x0000,0x0016,0x74d4,0x0000,0x003c
													; Debug Table 0xf.0x0 = 0x1c3,0xffff
01c4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01c5 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
01c7 029f 025b  |   [|		Declare_Subprogram	INIT_0258,For_Call
01c9			BODY_01c0:
01c9 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xf.0x1 = 0x1c9,0x1
01ca e21b       |    |		Load	0x1,0x1b
01cb 01d7       |    |		Execute	Vector,Field_Read
01cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cd e405       |    |		Load	0x2,0x5
01ce e5ff       |    |		Load	0x2,-0x1
01cf e003       |    |		Load	0x0,0x3
01d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d1 00d2       |    |		Pop_Control	Pop_Count_2
01d2 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xf.0x2 = 0x1d2,0x2
01d3 e21b       |    |		Load	0x1,0x1b
01d4 01d7       |    |		Execute	Vector,Field_Read
01d5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d6 e405       |    |		Load	0x2,0x5
01d7 00ea       |    |		Load_Encached	Null_String_Cache
01d8 e003       |    |		Load	0x0,0x3
01d9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01da 00d2       |    |		Pop_Control	Pop_Count_2
01db e21c       |    |		Load	0x1,0x1c							; Debug Table 0xf.0x3 = 0x1db,0x3
01dc e21b       |    |		Load	0x1,0x1b
01dd 01d7       |    |		Execute	Vector,Field_Read
01de 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01df e405       |    |		Load	0x2,0x5
01e0 00ea       |    |		Load_Encached	Null_String_Cache
01e1 e003       |    |		Load	0x0,0x3
01e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e3 00d2       |    |		Pop_Control	Pop_Count_2
01e4 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0x4 = 0x1e4,0x4
01e5 e21c       |    |		Load	0x1,0x1c
01e6 e21b       |    |		Load	0x1,0x1b
01e7 01d5       |    |		Execute	Vector,Field_Reference
01e8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01e9 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0x5 = 0x1e9,0x5
01ea e21c       |    |		Load	0x1,0x1c
01eb e21b       |    |		Load	0x1,0x1b
01ec 01d5       |    |		Execute	Vector,Field_Reference
01ed 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01ee 8403       |    |		Call	0x2,0x3								; Debug Table 0xf.0x6 = 0x1ee,0x6
01ef e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0x7 = 0x1ef,0x7
01f0 6817       |h   |		Jump_Zero	0x208
01f1 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xf.0x8 = 0x1f1,0x8
01f2 e21b       |    |		Load	0x1,0x1b
01f3 01d7       |    |		Execute	Vector,Field_Read
01f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f5 e405       |    |		Load	0x2,0x5
01f6 e402       |    |		Load	0x2,0x2
01f7 e008       |    |		Load	0x0,0x8
01f8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01f9 025b       | [  |		Execute	Discrete,Check_In_Type
01fa e009       |    |		Load	0x0,0x9
01fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01fc e003       |    |		Load	0x0,0x3
01fd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01fe 00d2       |    |		Pop_Control	Pop_Count_2
01ff e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0x9 = 0x1ff,0x9
0200 e008       |    |		Load	0x0,0x8
0201 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0202 025b       | [  |		Execute	Discrete,Check_In_Type
0203 e21c       |    |		Load	0x1,0x1c
0204 e21b       |    |		Load	0x1,0x1b
0205 01d5       |    |		Execute	Vector,Field_Reference
0206 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0207 7819       |x   |		Jump	0x221
0208 8404       |    |		Call	0x2,0x4								; Debug Table 0xf.0xa = 0x208,0xa
0209 e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0xb = 0x209,0xb
020a 6816       |h   |		Jump_Zero	0x221
020b e21c       |    |		Load	0x1,0x1c							; Debug Table 0xf.0xc = 0x20b,0xc
020c e21b       |    |		Load	0x1,0x1b
020d 01d7       |    |		Execute	Vector,Field_Read
020e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020f e405       |    |		Load	0x2,0x5
0210 e402       |    |		Load	0x2,0x2
0211 e008       |    |		Load	0x0,0x8
0212 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0213 025b       | [  |		Execute	Discrete,Check_In_Type
0214 e00a       |    |		Load	0x0,0xa
0215 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0216 e003       |    |		Load	0x0,0x3
0217 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0218 00d2       |    |		Pop_Control	Pop_Count_2
0219 e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0xd = 0x219,0xd
021a e008       |    |		Load	0x0,0x8
021b 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
021c 025b       | [  |		Execute	Discrete,Check_In_Type
021d e21c       |    |		Load	0x1,0x1c
021e e21b       |    |		Load	0x1,0x1b
021f 01d5       |    |		Execute	Vector,Field_Reference
0220 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0221 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xf.0xe = 0x221,0xe
0222 0a01       |    |		Execute_Immediate	Plus,0x1
0223 c21c       |    |		Store	0x1,0x1c
0224 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0225 0000 0000  |    |		.XXX[0x3]
0227 0000       |    |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0235       | 5  |		.CONST	0x0235								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x10 = .DEBUG	0x022b,0x053a,0x0002,0x0000,0x0016,0x74d4,0x0000,0x02da
													; Debug Table 0x10.0x0 = 0x22b,0x1
022c e008       |    |		Load	0x0,0x8
022d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
022e 025b       | [  |		Execute	Discrete,Check_In_Type
022f e00a       |    |		Load	0x0,0xa
0230 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0231 0248       | H  |		Execute	Discrete,Check_In_Integer
0232 e00b       |    |		Load	0x0,0xb
0233 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0234 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0235			TRAP_0228:
0235 0007       |    |		Action	Break_Optional
0236 4800       |H   |		Short_Literal	0x0							; Debug Table 0x10.0x1 = 0x236,0x2
0237 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0245       | E  |		.CONST	0x0245								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x11 = .DEBUG	0x023b,0x0540,0x0002,0x0000,0x0016,0x74d4,0x0000,0x0307
													; Debug Table 0x11.0x0 = 0x23b,0x1
023c e008       |    |		Load	0x0,0x8
023d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
023e 025b       | [  |		Execute	Discrete,Check_In_Type
023f e009       |    |		Load	0x0,0x9
0240 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0241 0248       | H  |		Execute	Discrete,Check_In_Integer
0242 e00b       |    |		Load	0x0,0xb
0243 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0244 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0245			TRAP_0238:
0245 0007       |    |		Action	Break_Optional
0246 4800       |H   |		Short_Literal	0x0							; Debug Table 0x11.0x1 = 0x246,0x2
0247 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0250       | P  |		.CONST	0x0250								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12 = .DEBUG	0x024b,0x0546,0x0004,0x0000,0x0016,0x74d4,0x0000,0x0097
													; Debug Table 0x12.0x0 = 0x24b,0x1
024c e009       |    |		Load	0x0,0x9
024d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
024e a402       |    |		Store_Unchecked	0x2,0x2
024f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0250			TRAP_0248:
0250 0007       |    |		Action	Break_Optional
0251 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x12.0x1 = 0x251,0x2
0252 0000 0000  |    |		.BLANK	0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0260       | `  |		.CONST	0x0260								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13 = .DEBUG	0x025b,0x054c,0x0004,0x0000,0x0016,0x74d4,0x0000,0x00d9
													; Debug Table 0x13.0x0 = 0x25b,0x1
025c e00a       |    |		Load	0x0,0xa
025d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
025e a402       |    |		Store_Unchecked	0x2,0x2
025f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0260			TRAP_0258:
0260 0007       |    |		Action	Break_Optional
0261 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x13.0x1 = 0x261,0x2
0262 ; --------------------------------------------------------------------------------------
0262 ; STRING TABLE
0262 ; --------------------------------------------------------------------------------------
0262 0044       | D  |		.STRTAB	0x0044->0x0284							; "ADA_BASE"
0263 004a       | J  |		.STRTAB	0x004a->0x0288							; "MACHINE_INTERFACE"
0264 0059       | Y  |		.STRTAB	0x0059->0x0290							; "KERNEL_DEBUGGER_IO"
0265 0069       | i  |		.STRTAB	0x0069->0x0299							; "KERNEL_DEBUGGER"
0266 0076       | v  |		.STRTAB	0x0076->0x02a1							; "KERNEL"
0267 007a       | z  |		.STRTAB	0x007a->0x02a4							; "ENVIRONMENT_DEBUGGER"
0268 008c       |    |		.STRTAB	0x008c->0x02ae							; "TEST_UTILITIES"
0269 0098       |    |		.STRTAB	0x0098->0x02b5							; "ABSTRACT_TYPES"
026a 00a4       |    |		.STRTAB	0x00a4->0x02bc							; "MISCELLANEOUS"
026b 00af       |    |		.STRTAB	0x00af->0x02c2							; "ELABORATOR_DATABASE"
026c 00c0       |    |		.STRTAB	0x00c0->0x02cc							; "OS_UTILITIES"
026d 00ca       |    |		.STRTAB	0x00ca->0x02d2							; "NETWORK"
026e 00cf       |    |		.STRTAB	0x00cf->0x02d5							; "REMOTE_PROCEDURE"
026f 00dd       |    |		.STRTAB	0x00dd->0x02dd							; "BACKUP_RECOVERY"
0270 00ea       |    |		.STRTAB	0x00ea->0x02e5							; "OM_MECHANISMS"
0271 00f5       |    |		.STRTAB	0x00f5->0x02eb							; "BASIC_MANAGERS"
0272 0101       |    |		.STRTAB	0x0101->0x02f2							; "ADA_MANAGEMENT"
0273 010d       |    |		.STRTAB	0x010d->0x02f9							; "RUNTIME_MANAGEMENT"
0274 011d       |    |		.STRTAB	0x011d->0x0302							; "PARSER"
0275 0121       | !  |		.STRTAB	0x0121->0x0305							; "PRETTY_PRINTER"
0276 012d       | -  |		.STRTAB	0x012d->0x030c							; "SEMANTICS"
0277 0134       | 4  |		.STRTAB	0x0134->0x0311							; "CODE_GENERATION"
0278 0141       | A  |		.STRTAB	0x0141->0x0318							; "DIRECTORY"
0279 0148       | H  |		.STRTAB	0x0148->0x031d							; "COMPILATION_MANAGER"
027a 0159       | Y  |		.STRTAB	0x0159->0x0326							; "IMAGE"
027b 015c       | \  |		.STRTAB	0x015c->0x0329							; "CORE_EDITOR"
027c 0165       | e  |		.STRTAB	0x0165->0x032e							; "OE_MECHANISMS"
027d 0170       | p  |		.STRTAB	0x0170->0x0335							; "OBJECT_EDITOR"
027e 017b       | {  |		.STRTAB	0x017b->0x033b							; "+++ New configuration has been loaded +++"
027f 01a2       |    |		.STRTAB	0x01a2->0x0350							; "Set_Configuration:"
0280 01b2       |    |		.STRTAB	0x01b2->0x0359							; "Nonexistent subsystem: "
0281 01c7       |    |		.STRTAB	0x01c7->0x0364							; "Add_Subsystem_Info:"
0282 01d8       |    |		.STRTAB	0x01d8->0x036e							; "***Libraries.Module: "
0283 01eb       |    |		.STREND 0x01eb->0x0378
0284 4144 415f  |ADA_|		.STRTAB_STRINGS
0379 0000 0000  |    |		.BLANK	0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug Table
0380 ; --------------------------------------------------------------------------------------
0380 0003 0014  |    |		.CONST	0x0003,0x0014
0382 000b 0422  |   "|		.DEBUG	0x000b,0x0422,0x8000,0x0000,0x000e,0x88b4,0x0000,0x0009
038a 0029 0444  | ) D|		.DEBUG	0x0029,0x0444,0x8000,0x0000,0x0016,0x74d4,0x0000,0x0012
0392 00b3 04a8  |    |		.DEBUG	0x00b3,0x04a8,0x0001,0x0000,0x000e,0x88b4,0x0000,0x000a
039a 00d3 04b6  |    |		.DEBUG	0x00d3,0x04b6,0x0001,0x0000,0x000e,0x88b4,0x0000,0x001a
03a2 0103 04c8  |    |		.DEBUG	0x0103,0x04c8,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0032
03aa 0133 04e6  | 3  |		.DEBUG	0x0133,0x04e6,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0046
03b2 013b 04ea  | ;  |		.DEBUG	0x013b,0x04ea,0x0001,0x0000,0x000e,0x88b4,0x0000,0x004f
03ba 0143 04ee  | C  |		.DEBUG	0x0143,0x04ee,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0057
03c2 0153 04f2  | S  |		.DEBUG	0x0153,0x04f2,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0062
03ca 0163 04f6  | c  |		.DEBUG	0x0163,0x04f6,0x0002,0x0000,0x000e,0x88b4,0x0000,0x006d
03d2 0173 04fa  | s  |		.DEBUG	0x0173,0x04fa,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0078
03da 017b 04fe  | {  |		.DEBUG	0x017b,0x04fe,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0085
03e2 0183 0502  |    |		.DEBUG	0x0183,0x0502,0x0002,0x0000,0x000e,0x88b4,0x0000,0x0092
03ea 01a3 050c  |    |		.DEBUG	0x01a3,0x050c,0x0002,0x0000,0x000e,0x88b4,0x0000,0x009d
03f2 01bb 0516  |    |		.DEBUG	0x01bb,0x0516,0x0001,0x0000,0x000e,0x88b4,0x0000,0x00a6
03fa 01c3 051a  |    |		.DEBUG	0x01c3,0x051a,0x0001,0x0000,0x0016,0x74d4,0x0000,0x003c
0402 022b 053a  | + :|		.DEBUG	0x022b,0x053a,0x0002,0x0000,0x0016,0x74d4,0x0000,0x02da
040a 023b 0540  | ; @|		.DEBUG	0x023b,0x0540,0x0002,0x0000,0x0016,0x74d4,0x0000,0x0307
0412 024b 0546  | K F|		.DEBUG	0x024b,0x0546,0x0004,0x0000,0x0016,0x74d4,0x0000,0x0097
041a 025b 054c  | [ L|		.DEBUG	0x025b,0x054c,0x0004,0x0000,0x0016,0x74d4,0x0000,0x00d9
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x0
0422 ; --------------------------------------------------------------------------------------
0422 0010 0000  |    |		.DBG3TAB	0x0010,0x0000
0424 000b ffff  |    |		.CONST	0x000b,0xffff
0426 000d fffe  |    |		.CONST	0x000d,0xfffe
0428 000f fffd  |    |		.CONST	0x000f,0xfffd
042a 0011 fffc  |    |		.CONST	0x0011,0xfffc
042c 0012 fffb  |    |		.CONST	0x0012,0xfffb
042e 0014 fffa  |    |		.CONST	0x0014,0xfffa
0430 0016 fff9  |    |		.CONST	0x0016,0xfff9
0432 0018 fff8  |    |		.CONST	0x0018,0xfff8
0434 001a fff7  |    |		.CONST	0x001a,0xfff7
0436 001c fff6  |    |		.CONST	0x001c,0xfff6
0438 001e fff5  |    |		.CONST	0x001e,0xfff5
043a 0020 fff4  |    |		.CONST	0x0020,0xfff4
043c 0022 fff3  | "  |		.CONST	0x0022,0xfff3
043e 0024 fff2  | $  |		.CONST	0x0024,0xfff2
0440 0026 fff1  | &  |		.CONST	0x0026,0xfff1
0442 0028 fff0  | (  |		.CONST	0x0028,0xfff0
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug3 Subtable 0x1
0444 ; --------------------------------------------------------------------------------------
0444 0015 001c  |    |		.DBG3TAB	0x0015,0x001c
0446 0029 ffff  | )  |		.CONST	0x0029,0xffff
0448 002a fffe  | *  |		.CONST	0x002a,0xfffe
044a 002b fffd  | +  |		.CONST	0x002b,0xfffd
044c 002c fffc  | ,  |		.CONST	0x002c,0xfffc
044e 0033 fffb  | 3  |		.CONST	0x0033,0xfffb
0450 0035 fffa  | 5  |		.CONST	0x0035,0xfffa
0452 0037 fff9  | 7  |		.CONST	0x0037,0xfff9
0454 0039 fff8  | 9  |		.CONST	0x0039,0xfff8
0456 003b fff7  | ;  |		.CONST	0x003b,0xfff7
0458 003d fff6  | =  |		.CONST	0x003d,0xfff6
045a 003f fff5  | ?  |		.CONST	0x003f,0xfff5
045c 0041 fff4  | A  |		.CONST	0x0041,0xfff4
045e 0043 fff3  | C  |		.CONST	0x0043,0xfff3
0460 0045 fff2  | E  |		.CONST	0x0045,0xfff2
0462 0047 fff1  | G  |		.CONST	0x0047,0xfff1
0464 0049 fff0  | I  |		.CONST	0x0049,0xfff0
0466 004b ffef  | K  |		.CONST	0x004b,0xffef
0468 004d ffee  | M  |		.CONST	0x004d,0xffee
046a 004f ffed  | O  |		.CONST	0x004f,0xffed
046c 0051 ffec  | Q  |		.CONST	0x0051,0xffec
046e 0053 ffeb  | S  |		.CONST	0x0053,0xffeb
0470 0055 0001  | U  |		.CONST	0x0055,0x0001
0472 0058 0002  | X  |		.CONST	0x0058,0x0002
0474 005b 0003  | [  |		.CONST	0x005b,0x0003
0476 005e 0004  | ^  |		.CONST	0x005e,0x0004
0478 0061 0005  | a  |		.CONST	0x0061,0x0005
047a 0064 0006  | d  |		.CONST	0x0064,0x0006
047c 0067 0007  | g  |		.CONST	0x0067,0x0007
047e 006a 0008  | j  |		.CONST	0x006a,0x0008
0480 006d 0009  | m  |		.CONST	0x006d,0x0009
0482 0070 000a  | p  |		.CONST	0x0070,0x000a
0484 0073 000b  | s  |		.CONST	0x0073,0x000b
0486 0076 000c  | v  |		.CONST	0x0076,0x000c
0488 0079 000d  | y  |		.CONST	0x0079,0x000d
048a 007c 000e  | |  |		.CONST	0x007c,0x000e
048c 007f 000f  |    |		.CONST	0x007f,0x000f
048e 0082 0010  |    |		.CONST	0x0082,0x0010
0490 0085 0011  |    |		.CONST	0x0085,0x0011
0492 0088 0012  |    |		.CONST	0x0088,0x0012
0494 008b 0013  |    |		.CONST	0x008b,0x0013
0496 008e 0014  |    |		.CONST	0x008e,0x0014
0498 0091 0015  |    |		.CONST	0x0091,0x0015
049a 0094 0016  |    |		.CONST	0x0094,0x0016
049c 0097 0017  |    |		.CONST	0x0097,0x0017
049e 009a 0018  |    |		.CONST	0x009a,0x0018
04a0 009d 0019  |    |		.CONST	0x009d,0x0019
04a2 00a0 001a  |    |		.CONST	0x00a0,0x001a
04a4 00a3 001b  |    |		.CONST	0x00a3,0x001b
04a6 00a6 001c  |    |		.CONST	0x00a6,0x001c
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x2
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
04aa 00b3 0001  |    |		.CONST	0x00b3,0x0001
04ac 00b4 0002  |    |		.CONST	0x00b4,0x0002
04ae 00ba 0003  |    |		.CONST	0x00ba,0x0003
04b0 00be 0004  |    |		.CONST	0x00be,0x0004
04b2 00c2 0005  |    |		.CONST	0x00c2,0x0005
04b4 00c8 0006  |    |		.CONST	0x00c8,0x0006
04b6 ; --------------------------------------------------------------------------------------
04b6 ; Debug3 Subtable 0x3
04b6 ; --------------------------------------------------------------------------------------
04b6 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
04b8 00d3 ffff  |    |		.CONST	0x00d3,0xffff
04ba 00d5 0001  |    |		.CONST	0x00d5,0x0001
04bc 00d8 0002  |    |		.CONST	0x00d8,0x0002
04be 00db 0003  |    |		.CONST	0x00db,0x0003
04c0 00e5 0004  |    |		.CONST	0x00e5,0x0004
04c2 00e6 0005  |    |		.CONST	0x00e6,0x0005
04c4 00eb 0006  |    |		.CONST	0x00eb,0x0006
04c6 00f1 0007  |    |		.CONST	0x00f1,0x0007
04c8 ; --------------------------------------------------------------------------------------
04c8 ; Debug3 Subtable 0x4
04c8 ; --------------------------------------------------------------------------------------
04c8 0002 000c  |    |		.DBG3TAB	0x0002,0x000c
04ca 0103 ffff  |    |		.CONST	0x0103,0xffff
04cc 0105 fffe  |    |		.CONST	0x0105,0xfffe
04ce 0107 0001  |    |		.CONST	0x0107,0x0001
04d0 010a 0002  |    |		.CONST	0x010a,0x0002
04d2 010d 0003  |    |		.CONST	0x010d,0x0003
04d4 010f 0004  |    |		.CONST	0x010f,0x0004
04d6 0112 0005  |    |		.CONST	0x0112,0x0005
04d8 0115 0006  |    |		.CONST	0x0115,0x0006
04da 0117 0007  |    |		.CONST	0x0117,0x0007
04dc 011a 0008  |    |		.CONST	0x011a,0x0008
04de 011c 0009  |    |		.CONST	0x011c,0x0009
04e0 0120 000a  |    |		.CONST	0x0120,0x000a
04e2 0126 000b  | &  |		.CONST	0x0126,0x000b
04e4 0128 000c  | (  |		.CONST	0x0128,0x000c
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug3 Subtable 0x5
04e6 ; --------------------------------------------------------------------------------------
04e6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04e8 0133 0001  | 3  |		.CONST	0x0133,0x0001
04ea ; --------------------------------------------------------------------------------------
04ea ; Debug3 Subtable 0x6
04ea ; --------------------------------------------------------------------------------------
04ea 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04ec 013b 0001  | ;  |		.CONST	0x013b,0x0001
04ee ; --------------------------------------------------------------------------------------
04ee ; Debug3 Subtable 0x7
04ee ; --------------------------------------------------------------------------------------
04ee 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04f0 0143 0001  | C  |		.CONST	0x0143,0x0001
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug3 Subtable 0x8
04f2 ; --------------------------------------------------------------------------------------
04f2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04f4 0153 0001  | S  |		.CONST	0x0153,0x0001
04f6 ; --------------------------------------------------------------------------------------
04f6 ; Debug3 Subtable 0x9
04f6 ; --------------------------------------------------------------------------------------
04f6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04f8 0163 0001  | c  |		.CONST	0x0163,0x0001
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug3 Subtable 0xa
04fa ; --------------------------------------------------------------------------------------
04fa 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04fc 0173 0001  | s  |		.CONST	0x0173,0x0001
04fe ; --------------------------------------------------------------------------------------
04fe ; Debug3 Subtable 0xb
04fe ; --------------------------------------------------------------------------------------
04fe 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0500 017b 0001  | {  |		.CONST	0x017b,0x0001
0502 ; --------------------------------------------------------------------------------------
0502 ; Debug3 Subtable 0xc
0502 ; --------------------------------------------------------------------------------------
0502 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0504 0183 0001  |    |		.CONST	0x0183,0x0001
0506 0187 0002  |    |		.CONST	0x0187,0x0002
0508 0194 0003  |    |		.CONST	0x0194,0x0003
050a 0197 0004  |    |		.CONST	0x0197,0x0004
050c ; --------------------------------------------------------------------------------------
050c ; Debug3 Subtable 0xd
050c ; --------------------------------------------------------------------------------------
050c 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
050e 01a3 0001  |    |		.CONST	0x01a3,0x0001
0510 01a7 0002  |    |		.CONST	0x01a7,0x0002
0512 01ae 0003  |    |		.CONST	0x01ae,0x0003
0514 01b1 0004  |    |		.CONST	0x01b1,0x0004
0516 ; --------------------------------------------------------------------------------------
0516 ; Debug3 Subtable 0xe
0516 ; --------------------------------------------------------------------------------------
0516 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0518 01bb 0001  |    |		.CONST	0x01bb,0x0001
051a ; --------------------------------------------------------------------------------------
051a ; Debug3 Subtable 0xf
051a ; --------------------------------------------------------------------------------------
051a 0001 000e  |    |		.DBG3TAB	0x0001,0x000e
051c 01c3 ffff  |    |		.CONST	0x01c3,0xffff
051e 01c9 0001  |    |		.CONST	0x01c9,0x0001
0520 01d2 0002  |    |		.CONST	0x01d2,0x0002
0522 01db 0003  |    |		.CONST	0x01db,0x0003
0524 01e4 0004  |    |		.CONST	0x01e4,0x0004
0526 01e9 0005  |    |		.CONST	0x01e9,0x0005
0528 01ee 0006  |    |		.CONST	0x01ee,0x0006
052a 01ef 0007  |    |		.CONST	0x01ef,0x0007
052c 01f1 0008  |    |		.CONST	0x01f1,0x0008
052e 01ff 0009  |    |		.CONST	0x01ff,0x0009
0530 0208 000a  |    |		.CONST	0x0208,0x000a
0532 0209 000b  |    |		.CONST	0x0209,0x000b
0534 020b 000c  |    |		.CONST	0x020b,0x000c
0536 0219 000d  |    |		.CONST	0x0219,0x000d
0538 0221 000e  | !  |		.CONST	0x0221,0x000e
053a ; --------------------------------------------------------------------------------------
053a ; Debug3 Subtable 0x10
053a ; --------------------------------------------------------------------------------------
053a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
053c 022b 0001  | +  |		.CONST	0x022b,0x0001
053e 0236 0002  | 6  |		.CONST	0x0236,0x0002
0540 ; --------------------------------------------------------------------------------------
0540 ; Debug3 Subtable 0x11
0540 ; --------------------------------------------------------------------------------------
0540 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0542 023b 0001  | ;  |		.CONST	0x023b,0x0001
0544 0246 0002  | F  |		.CONST	0x0246,0x0002
0546 ; --------------------------------------------------------------------------------------
0546 ; Debug3 Subtable 0x12
0546 ; --------------------------------------------------------------------------------------
0546 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0548 024b 0001  | K  |		.CONST	0x024b,0x0001
054a 0251 0002  | Q  |		.CONST	0x0251,0x0002
054c ; --------------------------------------------------------------------------------------
054c ; Debug3 Subtable 0x13
054c ; --------------------------------------------------------------------------------------
054c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
054e 025b 0001  | [  |		.CONST	0x025b,0x0001
0550 0261 0002  | a  |		.CONST	0x0261,0x0002
0552 0000 0000  |    |		.BLANK	0000[0xae]