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

⟦23da17d34⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »141331.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »141331.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »141331.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »141331.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »141331.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 03f0       |    |		.CONST	0x03f0								; 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 0102       |    |		.CONST	0x0102								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible			; Debug Table 0x0 = .DEBUG	0x000b,0x0462,0x8000,0x0000,0x0036,0x0a24,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xc,0xfffc
000e 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0x4 = 0xe,0xfffb
000f 6218       |b   |		Indirect_Literal	Discrete,0x228,{0x00022813, 0x00002330}		; 0x22813 = HEAP_STORAGE_MANAGER
0010 02a0       |    |		Declare_Subprogram	Null_Subprogram
0011 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0012 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x12,0xfffa
0014 620f       |b   |		Indirect_Literal	Discrete,0x224,{0x00000000, 0x360a2401}		; Debug Table 0x0.0x6 = 0x14,0xfff9
0015 0129       | )  |		Execute	Any,Make_Visible
0016 6209       |b   |		Indirect_Literal	Discrete,0x220,{0x00000000, 0x360a2402}		; Debug Table 0x0.0x7 = 0x16,0xfff8
0017 0129       | )  |		Execute	Any,Make_Visible
0018 03a6       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible,Values_Relative	; Debug Table 0x0.0x8 = 0x18,0xfff7
0019 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x19,0xfff6
001b 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1b,0xfff5
001d 4805       |H   |		Short_Literal	0x5							; Debug Table 0x0.0xb = 0x1d,0xfff4
001e 032a       | *  |		Declare_Type	Record,Incomplete
001f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0xc = 0x1f,0xfff3
0020 02a0       |    |		Declare_Subprogram	Null_Subprogram
0021 e20d       |    |		Load	0x1,0xd
0022 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0023 e20d       |    |		Load	0x1,0xd								; Debug Table 0x0.0xd = 0x23,0xfff2
													; Debug Table 0x0.0xe = 0x23,0xfff1
0024 e213       |    |		Load	0x1,0x13
0025 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
0026 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0xf = 0x26,0xfff0
0027 4807       |H   |		Short_Literal	0x7							; Debug Table 0x1 = .DEBUG	0x0027,0x0484,0x8000,0x0000,0x0036,0x0b34,0x0000,0x0011
													; Debug Table 0x1.0x0 = 0x27,0xffff
													; Debug Table 0x1.0x1 = 0x27,0xfffe
													; Debug Table 0x1.0x2 = 0x27,0xfffd
													; Debug Table 0x1.0x3 = 0x27,0xfffc
													; Debug Table 0x1.0x4 = 0x27,0xfffb
													; Debug Table 0x1.0x5 = 0x27,0xfffa
													; Debug Table 0x1.0x6 = 0x27,0xfff9
													; Debug Table 0x1.0x7 = 0x27,0xfff8
													; Debug Table 0x1.0x8 = 0x27,0xfff7
0028 032a       | *  |		Declare_Type	Record,Incomplete
0029 03a5       |    |		Declare_Type	Heap_Access,Indirect_Literal,Values_Relative		; Debug Table 0x1.0x9 = 0x29,0xfff6
002a 00d9       |    |		Load_Top	At_Offset_1
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 00da       |    |		Load_Top	At_Offset_2
002d 03a3       |    |		Complete_Type	Heap_Access,By_Defining
002e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0xa = 0x2e,0xfff5
													; Debug Table 0x1.0xb = 0x2e,0xfff4
													; Debug Table 0x1.0xc = 0x2e,0xfff3
002f 61ec       |a   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x0007ffff}
0030 e001       |    |		Load	0x0,0x1
0031 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0032 03f8       |    |		Declare_Type	Discrete,Constrained
0033 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0xd = 0x33,0xfff2
0034 e213       |    |		Load	0x1,0x13
0035 00da       |    |		Load_Top	At_Offset_2
0036 e001       |    |		Load	0x0,0x1
0037 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0038 e218       |    |		Load	0x1,0x18
0039 e218       |    |		Load	0x1,0x18
003a e218       |    |		Load	0x1,0x18
003b 02a0       |    |		Declare_Subprogram	Null_Subprogram
003c e217       |    |		Load	0x1,0x17
003d 0326       | &  |		Complete_Type	Record,By_Defining
003e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1.0xe = 0x3e,0xfff1
003f 0322       | "  |		Declare_Variable	Record
0040 4801       |H   |		Short_Literal	0x1
0041 00d9       |    |		Load_Top	At_Offset_1
0042 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0043 e213       |    |		Load	0x1,0x13
0044 00d9       |    |		Load_Top	At_Offset_1
0045 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0046 4800       |H   |		Short_Literal	0x0
0047 00d9       |    |		Load_Top	At_Offset_1
0048 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0049 4800       |H   |		Short_Literal	0x0
004a 00d9       |    |		Load_Top	At_Offset_1
004b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
004c 00da       |    |		Load_Top	At_Offset_2
004d 00d9       |    |		Load_Top	At_Offset_1
004e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
004f 00da       |    |		Load_Top	At_Offset_2
0050 00d9       |    |		Load_Top	At_Offset_1
0051 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0052 00da       |    |		Load_Top	At_Offset_2
0053 00d9       |    |		Load_Top	At_Offset_1
0054 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0055 4803       |H   |		Short_Literal	0x3							; Debug Table 0x1.0xf = 0x55,0xfff0
0056 00d9       |    |		Load_Top	At_Offset_1
0057 017c       | |  |		Execute	Record,Component_Offset
0058 e001       |    |		Load	0x0,0x1
0059 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
005a 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
005b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x10 = 0x5b,0xffef
005c 00da       |    |		Load_Top	At_Offset_2
005d 017c       | |  |		Execute	Record,Component_Offset
005e e001       |    |		Load	0x0,0x1
005f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0060 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0061 e217       |    |		Load	0x1,0x17							; Debug Table 0x1.0x11 = 0x61,0xffee
0062 012c       | ,  |		Execute	Any,Size
0063 00da       |    |		Load_Top	At_Offset_2
0064 0272       | r  |		Execute	Discrete,Minus
0065 e001       |    |		Load	0x0,0x1
0066 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0067 03f1       |    |		Declare_Variable	Discrete,With_Value
0068 e217       |    |		Load	0x1,0x17							; Debug Table 0x1.0x12 = 0x68,0xffed
													; Debug Table 0x1.0x13 = 0x68,0xffec
0069 012c       | ,  |		Execute	Any,Size
006a 00da       |    |		Load_Top	At_Offset_2
006b 0273       | s  |		Execute	Discrete,Plus
006c 61ab       |a   |		Indirect_Literal	Discrete,0x218,{0x00000000, 0x00002000}
006d 027a       | z  |		Execute	Discrete,Less_Equal
006e 7002       |p   |		Jump_Nonzero	0x71
006f 4887       |H   |		Short_Literal	0x87
0070 0257       | W  |		Execute	Discrete,Raise
0071 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x14 = 0x71,0xffeb
													; Debug Table 0x1.0x15 = 0x71,0xffea
0072 e21a       |    |		Load	0x1,0x1a
0073 017c       | |  |		Execute	Record,Component_Offset
0074 6802       |h   |		Jump_Zero	0x77
0075 4887       |H   |		Short_Literal	0x87
0076 0257       | W  |		Execute	Discrete,Raise
0077 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x16 = 0x77,0xffe9
0078 e21a       |    |		Load	0x1,0x1a
0079 017c       | |  |		Execute	Record,Component_Offset
007a 4800       |H   |		Short_Literal	0x0
007b e21a       |    |		Load	0x1,0x1a
007c 017c       | |  |		Execute	Record,Component_Offset
007d 00e1       |    |		Load_Encached	Boolean_Cache
007e 012c       | ,  |		Execute	Any,Size
007f 0aff       |    |		Execute_Immediate	Plus,-0x1
0080 0273       | s  |		Execute	Discrete,Plus
0081 0a01       |    |		Execute_Immediate	Plus,0x1
0082 027f       |    |		Execute	Discrete,Equal
0083 7002       |p   |		Jump_Nonzero	0x86
0084 4887       |H   |		Short_Literal	0x87
0085 0257       | W  |		Execute	Discrete,Raise
0086 4802       |H   |		Short_Literal	0x2							; Debug Table 0x1.0x17 = 0x86,0xffe8
0087 e21a       |    |		Load	0x1,0x1a
0088 017c       | |  |		Execute	Record,Component_Offset
0089 4801       |H   |		Short_Literal	0x1
008a e21a       |    |		Load	0x1,0x1a
008b 017c       | |  |		Execute	Record,Component_Offset
008c e21a       |    |		Load	0x1,0x1a
008d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
008e 012c       | ,  |		Execute	Any,Size
008f 0aff       |    |		Execute_Immediate	Plus,-0x1
0090 0273       | s  |		Execute	Discrete,Plus
0091 0a01       |    |		Execute_Immediate	Plus,0x1
0092 027f       |    |		Execute	Discrete,Equal
0093 7002       |p   |		Jump_Nonzero	0x96
0094 4887       |H   |		Short_Literal	0x87
0095 0257       | W  |		Execute	Discrete,Raise
0096 4803       |H   |		Short_Literal	0x3							; Debug Table 0x1.0x18 = 0x96,0xffe7
0097 e21a       |    |		Load	0x1,0x1a
0098 017c       | |  |		Execute	Record,Component_Offset
0099 4802       |H   |		Short_Literal	0x2
009a e21a       |    |		Load	0x1,0x1a
009b 017c       | |  |		Execute	Record,Component_Offset
009c e219       |    |		Load	0x1,0x19
009d 012c       | ,  |		Execute	Any,Size
009e 0aff       |    |		Execute_Immediate	Plus,-0x1
009f 0273       | s  |		Execute	Discrete,Plus
00a0 0a01       |    |		Execute_Immediate	Plus,0x1
00a1 027f       |    |		Execute	Discrete,Equal
00a2 7002       |p   |		Jump_Nonzero	0xa5
00a3 4887       |H   |		Short_Literal	0x87
00a4 0257       | W  |		Execute	Discrete,Raise
00a5 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x19 = 0xa5,0xffe6
00a6 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00a7 00c6       |    |		Action	Check_Subprogram_Elaborated
00a8 e217       |    |		Load	0x1,0x17
00a9 e218       |    |		Load	0x1,0x18
00aa 6169       |ai  |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}
00ab 49ae       |I   |		Short_Literal	0x1ae
00ac 4800       |H   |		Short_Literal	0x0
00ad 6166       |af  |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}		; Debug Table 0x1.0x1a = 0xad,0xffe5
00ae 49bf       |I   |		Short_Literal	0x1bf
00af e217       |    |		Load	0x1,0x17
00b0 e218       |    |		Load	0x1,0x18
00b1 e002       |    |		Load	0x0,0x2
00b2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00b3 0387       |    |		Declare_Variable	Package
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 020f       |    |		Execute	Module,Activate
00b6 4b34       |K4  |		Short_Literal	0x334							; Debug Table 0x1.0x1b = 0xb6,0xffe4
00b7 6158       |aX  |		Indirect_Literal	Discrete,0x210,{0x00000000, 0x05f5e100}
00b8 0271       | q  |		Execute	Discrete,Times
00b9 6152       |aR  |		Indirect_Literal	Discrete,0x20c,{0x00000000, 0x029bb932}
00ba 0273       | s  |		Execute	Discrete,Plus
00bb 6154       |aT  |		Indirect_Literal	Discrete,0x210,{0x00000000, 0x05f5e100}
00bc 0271       | q  |		Execute	Discrete,Times
00bd 614a       |aJ  |		Indirect_Literal	Discrete,0x208,{0x00000000, 0x0270fc76}
00be 0273       | s  |		Execute	Discrete,Plus
00bf 00e5       |    |		Load_Encached	Long_Integer_Cache
00c0 03f1       |    |		Declare_Variable	Discrete,With_Value
00c1 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x1.0x1c = 0xc1,0xffe3
00c2 e218       |    |		Load	0x1,0x18
00c3 e001       |    |		Load	0x0,0x1
00c4 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00c5 e001       |    |		Load	0x0,0x1
00c6 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00c7 e001       |    |		Load	0x0,0x1
00c8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00c9 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ca e216       |    |		Load	0x1,0x16
00cb 0326       | &  |		Complete_Type	Record,By_Defining
00cc e216       |    |		Load	0x1,0x16							; Debug Table 0x1.0x1d = 0xcc,0xffe2
00cd 0322       | "  |		Declare_Variable	Record
00ce 00d9       |    |		Load_Top	At_Offset_1
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d1 e218       |    |		Load	0x1,0x18
00d2 00d9       |    |		Load_Top	At_Offset_1
00d3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00d4 4800       |H   |		Short_Literal	0x0
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00d7 4800       |H   |		Short_Literal	0x0
00d8 00d9       |    |		Load_Top	At_Offset_1
00d9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00da e002       |    |		Load	0x0,0x2
00db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00dc 0aff       |    |		Execute_Immediate	Plus,-0x1
00dd 00d9       |    |		Load_Top	At_Offset_1
00de 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00df 029d 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call			; Debug Table 0x1.0x1e = 0xdf,0xffe1
00e1 029d 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call			; Debug Table 0x1.0x1f = 0xe1,0xffe0
00e3 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x20 = 0xe3,0xffdf
00e4 00c7       |    |		Action	Elaborate_Subprogram
00e5 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call			; Debug Table 0x1.0x21 = 0xe5,0xffde
00e7 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x22 = 0xe7,0xffdd
00e8 e003       |    |		Load	0x0,0x3
00e9 e218       |    |		Load	0x1,0x18
00ea e001       |    |		Load	0x0,0x1
00eb e21b       |    |		Load	0x1,0x1b
00ec e21e       |    |		Load	0x1,0x1e
00ed e21f       |    |		Load	0x1,0x1f
00ee 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00ef 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00f0 00b6       |    |		Action	Make_Scope
00f1 e219       |    |		Load	0x1,0x19
00f2 e21d       |    |		Load	0x1,0x1d
00f3 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00f4 e223       | #  |		Load	0x1,0x23
00f5 e21c       |    |		Load	0x1,0x1c
00f6 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00f7 4810       |H   |		Short_Literal	0x10
00f8 e20f       |    |		Load	0x1,0xf
00f9 020e       |    |		Execute	Module,Augment_Imports
00fa e20f       |    |		Load	0x1,0xf
00fb 020d       |    |		Execute	Module,Elaborate
00fc 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x23 = 0xfc,0xffdc
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x24 = 0xfe,0xffdb
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x25 = 0x100,0xffda
0101 00c7       |    |		Action	Elaborate_Subprogram
0102			BODY_0008:
0102 00bc       |    |		Action	Signal_Activated
0103 00bb       |    |		Action	Signal_Completion
0104 0000 0000  |    |		.BLANK	0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0003       |    |		.CONST	0x0003								; Number of locals
010b			INIT_0108:
010b e20d       |    |		Load	0x1,0xd								; Debug Table 0x2 = .DEBUG	0x010b,0x04d2,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0019
													; Debug Table 0x2.0x0 = 0x10b,0xffff
010c e218       |    |		Load	0x1,0x18							; Debug Table 0x2.0x1 = 0x10c,0xfffe
010d			BODY_0108:
010d e225       | %  |		Load	0x1,0x25							; Debug Table 0x2.0x2 = 0x10d,0x1
010e e20d       |    |		Load	0x1,0xd
010f e5ff       |    |		Load	0x2,-0x1
0110 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0111 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0112 6105       |a   |		Indirect_Literal	Discrete,0x218,{0x00000000, 0x00002000}		; Debug Table 0x2.0x3 = 0x112,0x2
													; Debug Table 0x2.0x4 = 0x112,0x3
0113 e5fc       |    |		Load	0x2,-0x4
0114 8226       | &  |		Call	0x1,0x26
0115 00da       |    |		Load_Top	At_Offset_2
0116 0217       |    |		Execute	Heap_Access,All_Reference
0117 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0118 e21d       |    |		Load	0x1,0x1d							; Debug Table 0x2.0x5 = 0x118,0x4
0119 e5fe       |    |		Load	0x2,-0x2
011a 8226       | &  |		Call	0x1,0x26
011b 00da       |    |		Load_Top	At_Offset_2
011c 0217       |    |		Execute	Heap_Access,All_Reference
011d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011e e21a       |    |		Load	0x1,0x1a							; Debug Table 0x2.0x6 = 0x11e,0x5
011f e218       |    |		Load	0x1,0x18
0120 e5ff       |    |		Load	0x2,-0x1
0121 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0122 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0123 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x7 = 0x123,0x6
													; Debug Table 0x2.0x8 = 0x123,0x7
0124 00d9       |    |		Load_Top	At_Offset_1
0125 0217       |    |		Execute	Heap_Access,All_Reference
0126 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0127 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x9 = 0x127,0x8
0128 00d9       |    |		Load_Top	At_Offset_1
0129 0217       |    |		Execute	Heap_Access,All_Reference
012a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
012b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xa = 0x12b,0x9
012c 00d9       |    |		Load_Top	At_Offset_1
012d 0217       |    |		Execute	Heap_Access,All_Reference
012e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xb = 0x12f,0xa
0130 00d9       |    |		Load_Top	At_Offset_1
0131 0217       |    |		Execute	Heap_Access,All_Reference
0132 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0133 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xc = 0x133,0xb
0134 00d9       |    |		Load_Top	At_Offset_1
0135 0217       |    |		Execute	Heap_Access,All_Reference
0136 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0137 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xd = 0x137,0xc
0138 00da       |    |		Load_Top	At_Offset_2
0139 0217       |    |		Execute	Heap_Access,All_Reference
013a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
013b e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xe = 0x13b,0xd
013c 60db       |`   |		Indirect_Literal	Discrete,0x218,{0x00000000, 0x00002000}
013d 027b       | {  |		Execute	Discrete,Greater_Equal
013e 6804       |h   |		Jump_Zero	0x143
013f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xf = 0x13f,0xe
0140 00d9       |    |		Load_Top	At_Offset_1
0141 e5fd       |    |		Load	0x2,-0x3
0142 8227       | '  |		Call	0x1,0x27
0143 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x10 = 0x143,0xf
0144 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0145 0000 0000  |    |		.XXX[0x3]
0147 0000       |    |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 60d0       |`   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x0007ffff}		; Debug Table 0x3 = .DEBUG	0x014b,0x04f6,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0068
													; Debug Table 0x3.0x0 = 0x14b,0x1
014c 00ca       |    |		Action	Exit_Nullary_Function
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x0153,0x04fa,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0079
													; Debug Table 0x4.0x0 = 0x153,0x1
0154 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x015b,0x04fe,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0082
													; Debug Table 0x5.0x0 = 0x15b,0x1
015c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x0163,0x0502,0x0002,0x0000,0x0036,0x0b34,0x0000,0x0228
													; Debug Table 0x6.0x0 = 0x163,0x1
0164 e5fe       |    |		Load	0x2,-0x2
0165 027b       | {  |		Execute	Discrete,Greater_Equal
0166 6802       |h   |		Jump_Zero	0x169
0167 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x1 = 0x167,0x2
0168 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0169 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x2 = 0x169,0x3
016a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 01ae       |    |		.CONST	0x01ae								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 000b       |    |		.CONST	0x000b								; Number of locals
0173			INIT_0170:
0173 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7 = .DEBUG	0x0173,0x050a,0x0001,0x0000,0x0036,0x0b34,0x0000,0x0246
													; Debug Table 0x7.0x0 = 0x173,0xffff
0174 00db       |    |		Load_Top	At_Offset_3
0175 00e1       |    |		Load_Encached	Boolean_Cache
0176 02a0       |    |		Declare_Subprogram	Null_Subprogram
0177 4801       |H   |		Short_Literal	0x1
0178 035d       | ]  |		Declare_Type	Array,Defined
0179 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x1 = 0x179,0xfffe
017a 02a0       |    |		Declare_Subprogram	Null_Subprogram
017b 03ad       |    |		Declare_Type	Heap_Access,Defined
017c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x2 = 0x17c,0xfffd
													; Debug Table 0x7.0x3 = 0x17c,0xfffc
017d 00d9       |    |		Load_Top	At_Offset_1
017e e5fd       |    |		Load	0x2,-0x3
017f 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0180 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0181 6092       |`   |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}		; Debug Table 0x7.0x4 = 0x181,0xfffb
													; Debug Table 0x7.0x5 = 0x181,0xfffa
0182 4a77       |Jw  |		Short_Literal	0x277
0183 e402       |    |		Load	0x2,0x2
0184 e403       |    |		Load	0x2,0x3
0185 e002       |    |		Load	0x0,0x2
0186 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0187 0387       |    |		Declare_Variable	Package
0188 00d8       |    |		Load_Top	At_Offset_0
0189 020f       |    |		Execute	Module,Activate
018a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x6 = 0x18a,0xfff9
018b 00d9       |    |		Load_Top	At_Offset_1
018c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
018d e001       |    |		Load	0x0,0x1
018e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
018f 03f1       |    |		Declare_Variable	Discrete,With_Value
0190 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x7.0x7 = 0x190,0xfff8
0191 00db       |    |		Load_Top	At_Offset_3
0192 00db       |    |		Load_Top	At_Offset_3
0193 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0194 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0195 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x8 = 0x195,0xfff7
0196 e5fd       |    |		Load	0x2,-0x3
0197 0217       |    |		Execute	Heap_Access,All_Reference
0198 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0199 027f       |    |		Execute	Discrete,Equal
019a 00e1       |    |		Load_Encached	Boolean_Cache
019b 03f1       |    |		Declare_Variable	Discrete,With_Value
019c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x9 = 0x19c,0xfff6
019d e21c       |    |		Load	0x1,0x1c
019e 0272       | r  |		Execute	Discrete,Minus
019f e001       |    |		Load	0x0,0x1
01a0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01a1 03f1       |    |		Declare_Variable	Discrete,With_Value
01a2 e218       |    |		Load	0x1,0x18							; Debug Table 0x7.0xa = 0x1a2,0xfff5
01a3 e406       |    |		Load	0x2,0x6
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 0273       | s  |		Execute	Discrete,Plus
01a6 e407       |    |		Load	0x2,0x7
01a7 e21e       |    |		Load	0x1,0x1e
01a8 e21f       |    |		Load	0x1,0x1f
01a9 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
01aa e002       |    |		Load	0x0,0x2
01ab 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ac 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ad e218       |    |		Load	0x1,0x18							; Debug Table 0x7.0xb = 0x1ad,0xfff4
01ae			BODY_0170:
01ae 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0xc = 0x1ae,0x1
01af 00da       |    |		Load_Top	At_Offset_2
01b0 0217       |    |		Execute	Heap_Access,All_Reference
01b1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b2 e406       |    |		Load	0x2,0x6								; Debug Table 0x7.0xd = 0x1b2,0x2
01b3 e5ff       |    |		Load	0x2,-0x1
01b4 0273       | s  |		Execute	Discrete,Plus
01b5 e5fd       |    |		Load	0x2,-0x3
01b6 0217       |    |		Execute	Heap_Access,All_Reference
01b7 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01b8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0xe = 0x1b8,0x3
01b9 6808       |h   |		Jump_Zero	0x1c2
01ba e406       |    |		Load	0x2,0x6								; Debug Table 0x7.0xf = 0x1ba,0x4
01bb e21c       |    |		Load	0x1,0x1c
01bc 0272       | r  |		Execute	Discrete,Minus
01bd a406       |    |		Store_Unchecked	0x2,0x6
01be 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x10 = 0x1be,0x5
01bf e21c       |    |		Load	0x1,0x1c
01c0 0273       | s  |		Execute	Discrete,Plus
01c1 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
01c2 e406       |    |		Load	0x2,0x6								; Debug Table 0x7.0x11 = 0x1c2,0x6
01c3 e407       |    |		Load	0x2,0x7
01c4 e21e       |    |		Load	0x1,0x1e
01c5 e21f       |    |		Load	0x1,0x1f
01c6 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
01c7 e002       |    |		Load	0x0,0x2
01c8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01c9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01ca 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x12 = 0x1ca,0x7
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc 0217       |    |		Execute	Heap_Access,All_Reference
01cd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ce e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x7.0x13 = 0x1ce,0x8
01cf 00d9       |    |		Load_Top	At_Offset_1
01d0 0217       |    |		Execute	Heap_Access,All_Reference
01d1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d2 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x14 = 0x1d2,0x9
01d3 e21b       |    |		Load	0x1,0x1b
01d4 0272       | r  |		Execute	Discrete,Minus
01d5 00d9       |    |		Load_Top	At_Offset_1
01d6 0217       |    |		Execute	Heap_Access,All_Reference
01d7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01d8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x15 = 0x1d8,0xa
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 0217       |    |		Execute	Heap_Access,All_Reference
01db 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01dc e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x16 = 0x1dc,0xb
01dd 00d9       |    |		Load_Top	At_Offset_1
01de 0217       |    |		Execute	Heap_Access,All_Reference
01df 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01e0 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x17 = 0x1e0,0xc
01e1 0217       |    |		Execute	Heap_Access,All_Reference
01e2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01e3 00d9       |    |		Load_Top	At_Offset_1
01e4 0217       |    |		Execute	Heap_Access,All_Reference
01e5 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01e6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x18 = 0x1e6,0xd
01e7 00d9       |    |		Load_Top	At_Offset_1
01e8 0217       |    |		Execute	Heap_Access,All_Reference
01e9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ea 0217       |    |		Execute	Heap_Access,All_Reference
01eb 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01ec 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x19 = 0x1ec,0xe
01ed 00d9       |    |		Load_Top	At_Offset_1
01ee 0217       |    |		Execute	Heap_Access,All_Reference
01ef 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
01f0 0217       |    |		Execute	Heap_Access,All_Reference
01f1 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01f2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0203       |    |		.CONST	0x0203								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x01fb,0x0540,0x0002,0x0000,0x0036,0x0b34,0x0000,0x03c2
													; Debug Table 0x8.0x0 = 0x1fb,0x1
01fc 0217       |    |		Execute	Heap_Access,All_Reference
01fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01fe 0217       |    |		Execute	Heap_Access,All_Reference
01ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0200 e224       | $  |		Load	0x1,0x24
0201 027f       |    |		Execute	Discrete,Equal
0202 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0203			TRAP_01f8:
0203 0007       |    |		Action	Break_Optional
0204 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x1 = 0x204,0x2
0205 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0206 0000 0000  |    |		.XXX[0x2]
0208 0000 0000  |    |		.LITERAL	{0x00000000, 0x0270fc76}
020c 0000 0000  |    |		.LITERAL	{0x00000000, 0x029bb932}
0210 0000 0000  |    |		.LITERAL	{0x00000000, 0x05f5e100}
0214 0000 0000  |    |		.LITERAL	{0x00000000, 0x00360b34}
0218 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002000}
021c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0007ffff}
0220 0000 0000  |    |		.LITERAL	{0x00000000, 0x360a2402}
0224 0000 0000  |    |		.LITERAL	{0x00000000, 0x360a2401}
0228 0002 2813  |  ( |		.LITERAL	{0x00022813, 0x00002330}
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 025e 0004  | ^  |		.XXX[0x3]
0232 001f       |    |
0233 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x9 = .DEBUG	0x0233,0x0546,0x4000,0x0000,0x0036,0x0a24,0x0000,0x0039
													; Debug Table 0x9.0x0 = 0x233,0xffff
0235 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x9.0x1 = 0x235,0xfffe
0237 00bf       |    |		Action	Accept_Activation
0238 67db       |g   |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}		; Debug Table 0xa = .DEBUG	0x0238,0x054c,0x4000,0x0000,0x0036,0x0b34,0x0000,0x03df
													; Debug Table 0xa.0x0 = 0x238,0xffff
0239 4be0       |K   |		Short_Literal	0x3e0
023a e20f       |    |		Load	0x1,0xf
023b e210       |    |		Load	0x1,0x10
023c e001       |    |		Load	0x0,0x1
023d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
023e 0387       |    |		Declare_Variable	Package
023f 00d8       |    |		Load_Top	At_Offset_0
0240 020f       |    |		Execute	Module,Activate
0241 e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x1 = 0x241,0xfffe
0242 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0243 00c6       |    |		Action	Check_Subprogram_Elaborated
0244 e20f       |    |		Load	0x1,0xf
0245 e210       |    |		Load	0x1,0x10
0246 67cd       |g   |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}
0247 4bed       |K   |		Short_Literal	0x3ed
0248 4800       |H   |		Short_Literal	0x0
0249 e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x2 = 0x249,0xfffd
024a 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
024b 00c6       |    |		Action	Check_Subprogram_Elaborated
024c e20f       |    |		Load	0x1,0xf
024d e210       |    |		Load	0x1,0x10
024e 67c5       |g   |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}
024f 4bfe       |K   |		Short_Literal	0x3fe
0250 4800       |H   |		Short_Literal	0x0
0251 67c2       |g   |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00360b34}		; Debug Table 0xa.0x3 = 0x251,0xfffc
0252 6195       |a   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x0000040f}
0253 e20f       |    |		Load	0x1,0xf
0254 e002       |    |		Load	0x0,0x2
0255 0387       |    |		Declare_Variable	Package
0256 00d8       |    |		Load_Top	At_Offset_0
0257 020f       |    |		Execute	Module,Activate
0258 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call			; Debug Table 0xa.0x4 = 0x258,0xfffb
025a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0xa.0x5 = 0x25a,0xfffa
025b 00c7       |    |		Action	Elaborate_Subprogram
025c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0xa.0x6 = 0x25c,0xfff9
025d 00c7       |    |		Action	Elaborate_Subprogram
025e 00bc       |    |		Action	Signal_Activated
025f 00bb       |    |		Action	Signal_Completion
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb = .DEBUG	0x0263,0x055c,0x1002,0x0000,0x0036,0x0a24,0x0000,0x004f
													; Debug Table 0xb.0x0 = 0x263,0x1
0264 00db       |    |		Load_Top	At_Offset_3
0265 e20f       |    |		Load	0x1,0xf
0266 0119       |    |		Execute	Any,Check_In_Formal_Type
0267 e21e       |    |		Load	0x1,0x1e
0268 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0269 e20f       |    |		Load	0x1,0xf
026a 0119       |    |		Execute	Any,Check_In_Formal_Type
026b 821f       |    |		Call	0x1,0x1f
026c e210       |    |		Load	0x1,0x10
026d 0213       |    |		Execute	Heap_Access,Check_In_Type
026e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0284       |    |		.CONST	0x0284								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0005       |    |		.CONST	0x0005								; Number of locals
0273			INIT_0270:
0273 e003       |    |		Load	0x0,0x3								; Debug Table 0xc = .DEBUG	0x0273,0x0560,0x1001,0x0000,0x0036,0x0a24,0x0000,0x005c
													; Debug Table 0xc.0x0 = 0x273,0xffff
0274 039d       |    |		Declare_Variable	Heap_Access,Duplicate
0275 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0xc.0x1 = 0x275,0xfffe
0276 e5ff       |    |		Load	0x2,-0x1
0277 e210       |    |		Load	0x1,0x10
0278 0213       |    |		Execute	Heap_Access,Check_In_Type
0279 e213       |    |		Load	0x1,0x13
027a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
027b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
027c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x2 = 0x27c,0xfffd
027d e210       |    |		Load	0x1,0x10
027e 0213       |    |		Execute	Heap_Access,Check_In_Type
027f e213       |    |		Load	0x1,0x13
0280 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0281 e004       |    |		Load	0x0,0x4
0282 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0283 03f1       |    |		Declare_Variable	Discrete,With_Value
0284			BODY_0270:
0284 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x3 = 0x284,0x1
0285 7001       |p   |		Jump_Nonzero	0x287
0286 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xc.0x4 = 0x286,0x2
0287 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x5 = 0x287,0x3
0288 0219       |    |		Execute	Heap_Access,All_Read
0289 011f       |    |		Execute	Any,Is_Scalar
028a 6802       |h   |		Jump_Zero	0x28d
028b e20f       |    |		Load	0x1,0xf
028c 7802       |x   |		Jump	0x28f
028d e5ff       |    |		Load	0x2,-0x1
028e 0219       |    |		Execute	Heap_Access,All_Read
028f 012c       | ,  |		Execute	Any,Size
0290 678b       |g   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x0007ffff}
0291 027d       | }  |		Execute	Discrete,Greater
0292 6803       |h   |		Jump_Zero	0x296
0293 e210       |    |		Load	0x1,0x10							; Debug Table 0xc.0x6 = 0x293,0x4
0294 a5ff       |    |		Store_Unchecked	0x2,-0x1
0295 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xc.0x7 = 0x295,0x5
0296 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x8 = 0x296,0x6
0297 e005       |    |		Load	0x0,0x5
0298 0272       | r  |		Execute	Discrete,Minus
0299 00da       |    |		Load_Top	At_Offset_2
029a e006       |    |		Load	0x0,0x6
029b e007       |    |		Load	0x0,0x7
029c a008       |    |		Store_Unchecked	0x0,0x8
029d e001       |    |		Load	0x0,0x1
029e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
029f a402       |    |		Store_Unchecked	0x2,0x2
02a0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x9 = 0x2a0,0x7
02a1 8009       |    |		Call	0x0,0x9
02a2 6804       |h   |		Jump_Zero	0x2a7
02a3 00db       |    |		Load_Top	At_Offset_3
02a4 0217       |    |		Execute	Heap_Access,All_Reference
02a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a6 7003       |p   |		Jump_Nonzero	0x2aa
02a7 e00a       |    |		Load	0x0,0xa								; Debug Table 0xc.0xa = 0x2a7,0x8
02a8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02a9 0257       | W  |		Execute	Discrete,Raise
02aa 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0xb = 0x2aa,0x9
02ab e402       |    |		Load	0x2,0x2
02ac 0217       |    |		Execute	Heap_Access,All_Reference
02ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ae 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0xc = 0x2ae,0xa
02af 0217       |    |		Execute	Heap_Access,All_Reference
02b0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b1 e402       |    |		Load	0x2,0x2
02b2 0217       |    |		Execute	Heap_Access,All_Reference
02b3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02b4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0xd = 0x2b4,0xb
02b5 e402       |    |		Load	0x2,0x2
02b6 0217       |    |		Execute	Heap_Access,All_Reference
02b7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02b8 0273       | s  |		Execute	Discrete,Plus
02b9 00da       |    |		Load_Top	At_Offset_2
02ba e006       |    |		Load	0x0,0x6
02bb e007       |    |		Load	0x0,0x7
02bc a008       |    |		Store_Unchecked	0x0,0x8
02bd e001       |    |		Load	0x0,0x1
02be 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02bf e402       |    |		Load	0x2,0x2
02c0 0217       |    |		Execute	Heap_Access,All_Reference
02c1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02c2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0xe = 0x2c2,0xc
02c3 0217       |    |		Execute	Heap_Access,All_Reference
02c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c5 0217       |    |		Execute	Heap_Access,All_Reference
02c6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
02c8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0xf = 0x2c8,0xd
02c9 e402       |    |		Load	0x2,0x2
02ca 0217       |    |		Execute	Heap_Access,All_Reference
02cb 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02cc 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x10 = 0x2cc,0xe
02cd 0217       |    |		Execute	Heap_Access,All_Reference
02ce 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
02cf e402       |    |		Load	0x2,0x2
02d0 0217       |    |		Execute	Heap_Access,All_Reference
02d1 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02d2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x11 = 0x2d2,0xf
02d3 e402       |    |		Load	0x2,0x2
02d4 0217       |    |		Execute	Heap_Access,All_Reference
02d5 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
02d6 0217       |    |		Execute	Heap_Access,All_Reference
02d7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02d8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x12 = 0x2d8,0x10
02d9 e402       |    |		Load	0x2,0x2
02da 0217       |    |		Execute	Heap_Access,All_Reference
02db 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02dc 0217       |    |		Execute	Heap_Access,All_Reference
02dd 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02de e210       |    |		Load	0x1,0x10							; Debug Table 0xc.0x13 = 0x2de,0x11
02df a5ff       |    |		Store_Unchecked	0x2,-0x1
02e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e1 0000 0000  |    |		.BLANK	0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f2       |    |		.CONST	0x02f2								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0007       |    |		.CONST	0x0007								; Number of locals
02eb			INIT_02e8:
02eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd = .DEBUG	0x02eb,0x058a,0x1002,0x0000,0x0036,0x0b34,0x0000,0x0415
													; Debug Table 0xd.0x0 = 0x2eb,0xffff
02ec 0217       |    |		Execute	Heap_Access,All_Reference
02ed e003       |    |		Load	0x0,0x3								; Debug Table 0xd.0x1 = 0x2ed,0xfffe
02ee 039d       |    |		Declare_Variable	Heap_Access,Duplicate
02ef e003       |    |		Load	0x0,0x3								; Debug Table 0xd.0x2 = 0x2ef,0xfffd
02f0 e00b       |    |		Load	0x0,0xb								; Debug Table 0xd.0x3 = 0x2f0,0xfffc
02f1 e210       |    |		Load	0x1,0x10							; Debug Table 0xd.0x4 = 0x2f1,0xfffb
02f2			BODY_02e8:
02f2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x5 = 0x2f2,0x1
02f3 011f       |    |		Execute	Any,Is_Scalar
02f4 6802       |h   |		Jump_Zero	0x2f7
02f5 e20f       |    |		Load	0x1,0xf
02f6 7801       |x   |		Jump	0x2f8
02f7 e5ff       |    |		Load	0x2,-0x1
02f8 012c       | ,  |		Execute	Any,Size
02f9 6722       |g"  |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x0007ffff}
02fa 027d       | }  |		Execute	Discrete,Greater
02fb 6809       |h   |		Jump_Zero	0x305
02fc e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x6 = 0x2fc,0x2
02fd e20f       |    |		Load	0x1,0xf
02fe 0119       |    |		Execute	Any,Check_In_Formal_Type
02ff e210       |    |		Load	0x1,0x10
0300 e5fe       |    |		Load	0x2,-0x2
0301 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0302 e210       |    |		Load	0x1,0x10
0303 0213       |    |		Execute	Heap_Access,Check_In_Type
0304 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0305 e00c       |    |		Load	0x0,0xc								; Debug Table 0xd.0x7 = 0x305,0x3
													; Debug Table 0xd.0x8 = 0x305,0x4
0306 e5ff       |    |		Load	0x2,-0x1
0307 011f       |    |		Execute	Any,Is_Scalar
0308 6802       |h   |		Jump_Zero	0x30b
0309 e20f       |    |		Load	0x1,0xf
030a 7801       |x   |		Jump	0x30c
030b e5ff       |    |		Load	0x2,-0x1
030c 012c       | ,  |		Execute	Any,Size
030d e004       |    |		Load	0x0,0x4
030e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
030f 025b       | [  |		Execute	Discrete,Check_In_Type
0310 800d       |    |		Call	0x0,0xd
0311 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0312 e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0x9 = 0x312,0x5
0313 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0314 a403       |    |		Store_Unchecked	0x2,0x3
0315 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0xa = 0x315,0x6
0316 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0317 7834       |x4  |		Jump	0x34c								; Debug Table 0xd.0xb = 0x317,0x7
0318 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0xc = 0x318,0x9
0319 0217       |    |		Execute	Heap_Access,All_Reference
031a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
031b a404       |    |		Store_Unchecked	0x2,0x4
031c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xd = 0x31c,0xa
031d 8009       |    |		Call	0x0,0x9
031e 7003       |p   |		Jump_Nonzero	0x322
031f e00a       |    |		Load	0x0,0xa								; Debug Table 0xd.0xe = 0x31f,0xb
0320 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0321 0257       | W  |		Execute	Discrete,Raise
0322 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xf = 0x322,0xc
0323 00db       |    |		Load_Top	At_Offset_3
0324 021f       |    |		Execute	Heap_Access,Equal
0325 6804       |h   |		Jump_Zero	0x32a
0326 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x10 = 0x326,0xd
0327 0217       |    |		Execute	Heap_Access,All_Reference
0328 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0329 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
032a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x11 = 0x32a,0xe
032b 0217       |    |		Execute	Heap_Access,All_Reference
032c 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
032d e404       |    |		Load	0x2,0x4
032e 0217       |    |		Execute	Heap_Access,All_Reference
032f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0330 0217       |    |		Execute	Heap_Access,All_Reference
0331 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0332 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x12 = 0x332,0xf
0333 0217       |    |		Execute	Heap_Access,All_Reference
0334 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0335 e404       |    |		Load	0x2,0x4
0336 0217       |    |		Execute	Heap_Access,All_Reference
0337 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0338 0217       |    |		Execute	Heap_Access,All_Reference
0339 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
033a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x13 = 0x33a,0x10
033b 0217       |    |		Execute	Heap_Access,All_Reference
033c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
033d e403       |    |		Load	0x2,0x3
033e 0217       |    |		Execute	Heap_Access,All_Reference
033f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0340 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x14 = 0x340,0x11
0341 0217       |    |		Execute	Heap_Access,All_Reference
0342 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0343 e404       |    |		Load	0x2,0x4
0344 0217       |    |		Execute	Heap_Access,All_Reference
0345 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0346 0273       | s  |		Execute	Discrete,Plus
0347 e005       |    |		Load	0x0,0x5
0348 0273       | s  |		Execute	Discrete,Plus
0349 e403       |    |		Load	0x2,0x3
034a 0217       |    |		Execute	Heap_Access,All_Reference
034b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
034c e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x15 = 0x34c,0x8
034d 0217       |    |		Execute	Heap_Access,All_Reference
034e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
034f 0217       |    |		Execute	Heap_Access,All_Reference
0350 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0351 6fc6       |o   |		Jump_Zero	0x318
0352 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x16 = 0x352,0x12
0353 0217       |    |		Execute	Heap_Access,All_Reference
0354 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0355 00da       |    |		Load_Top	At_Offset_2
0356 027b       | {  |		Execute	Discrete,Greater_Equal
0357 685a       |hZ  |		Jump_Zero	0x3b2
0358 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x17 = 0x358,0x13
0359 0217       |    |		Execute	Heap_Access,All_Reference
035a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
035b e402       |    |		Load	0x2,0x2
035c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
035d e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x18 = 0x35d,0x14
035e 0217       |    |		Execute	Heap_Access,All_Reference
035f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0360 00da       |    |		Load_Top	At_Offset_2
0361 0272       | r  |		Execute	Discrete,Minus
0362 e005       |    |		Load	0x0,0x5
0363 0272       | r  |		Execute	Discrete,Minus
0364 e402       |    |		Load	0x2,0x2
0365 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0366 027c       | |  |		Execute	Discrete,Less
0367 681d       |h   |		Jump_Zero	0x385
0368 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x19 = 0x368,0x15
0369 0217       |    |		Execute	Heap_Access,All_Reference
036a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
036b e403       |    |		Load	0x2,0x3
036c 0217       |    |		Execute	Heap_Access,All_Reference
036d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
036e 0217       |    |		Execute	Heap_Access,All_Reference
036f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0370 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x1a = 0x370,0x16
0371 0217       |    |		Execute	Heap_Access,All_Reference
0372 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0373 e403       |    |		Load	0x2,0x3
0374 0217       |    |		Execute	Heap_Access,All_Reference
0375 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0376 0217       |    |		Execute	Heap_Access,All_Reference
0377 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0378 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x1b = 0x378,0x17
0379 0217       |    |		Execute	Heap_Access,All_Reference
037a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
037b e403       |    |		Load	0x2,0x3
037c 0217       |    |		Execute	Heap_Access,All_Reference
037d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
037e 4801       |H   |		Short_Literal	0x1							; Debug Table 0xd.0x1c = 0x37e,0x18
037f e403       |    |		Load	0x2,0x3
0380 0217       |    |		Execute	Heap_Access,All_Reference
0381 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0382 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x1d = 0x382,0x19
0383 a404       |    |		Store_Unchecked	0x2,0x4
0384 7845       |xE  |		Jump	0x3ca
0385 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x1e = 0x385,0x1a
0386 0217       |    |		Execute	Heap_Access,All_Reference
0387 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0388 e00e       |    |		Load	0x0,0xe
0389 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
038a 00da       |    |		Load_Top	At_Offset_2
038b 0272       | r  |		Execute	Discrete,Minus
038c e005       |    |		Load	0x0,0x5
038d 0272       | r  |		Execute	Discrete,Minus
038e e403       |    |		Load	0x2,0x3
038f e00e       |    |		Load	0x0,0xe
0390 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0391 e006       |    |		Load	0x0,0x6
0392 e007       |    |		Load	0x0,0x7
0393 a008       |    |		Store_Unchecked	0x0,0x8
0394 e001       |    |		Load	0x0,0x1
0395 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0396 a404       |    |		Store_Unchecked	0x2,0x4
0397 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x1f = 0x397,0x1b
0398 e404       |    |		Load	0x2,0x4
0399 0217       |    |		Execute	Heap_Access,All_Reference
039a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
039b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x20 = 0x39b,0x1c
039c e404       |    |		Load	0x2,0x4
039d 0217       |    |		Execute	Heap_Access,All_Reference
039e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
039f 4801       |H   |		Short_Literal	0x1							; Debug Table 0xd.0x21 = 0x39f,0x1d
03a0 e404       |    |		Load	0x2,0x4
03a1 0217       |    |		Execute	Heap_Access,All_Reference
03a2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03a3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x22 = 0x3a3,0x1e
03a4 e403       |    |		Load	0x2,0x3
03a5 0217       |    |		Execute	Heap_Access,All_Reference
03a6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03a7 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x23 = 0x3a7,0x1f
03a8 0217       |    |		Execute	Heap_Access,All_Reference
03a9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03aa 00da       |    |		Load_Top	At_Offset_2
03ab 0272       | r  |		Execute	Discrete,Minus
03ac e005       |    |		Load	0x0,0x5
03ad 0272       | r  |		Execute	Discrete,Minus
03ae e403       |    |		Load	0x2,0x3
03af 0217       |    |		Execute	Heap_Access,All_Reference
03b0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03b1 7818       |x   |		Jump	0x3ca								; Debug Table 0xd.0x24 = 0x3b1,0x20
03b2 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x25 = 0x3b2,0x21
03b3 0217       |    |		Execute	Heap_Access,All_Reference
03b4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03b5 a403       |    |		Store_Unchecked	0x2,0x3
03b6 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x26 = 0x3b6,0x22
03b7 00db       |    |		Load_Top	At_Offset_3
03b8 021f       |    |		Execute	Heap_Access,Equal
03b9 6f92       |o   |		Jump_Zero	0x34c
03ba e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x27 = 0x3ba,0x23
03bb e403       |    |		Load	0x2,0x3
03bc e402       |    |		Load	0x2,0x2
03bd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03be e005       |    |		Load	0x0,0x5
03bf e00f       |    |		Load	0x0,0xf
03c0 0273       | s  |		Execute	Discrete,Plus
03c1 e406       |    |		Load	0x2,0x6
03c2 0273       | s  |		Execute	Discrete,Plus
03c3 800d       |    |		Call	0x0,0xd
03c4 8010       |    |		Call	0x0,0x10
03c5 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x28 = 0x3c5,0x24
03c6 0217       |    |		Execute	Heap_Access,All_Reference
03c7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03c8 a403       |    |		Store_Unchecked	0x2,0x3
03c9 7f82       |    |		Jump	0x34c
03ca 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x29 = 0x3ca,0x25
03cb e00e       |    |		Load	0x0,0xe
03cc 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03cd e005       |    |		Load	0x0,0x5
03ce 0273       | s  |		Execute	Discrete,Plus
03cf e404       |    |		Load	0x2,0x4
03d0 e00e       |    |		Load	0x0,0xe
03d1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03d2 e214       |    |		Load	0x1,0x14
03d3 e215       |    |		Load	0x1,0x15
03d4 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
03d5 e001       |    |		Load	0x0,0x1
03d6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03d7 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03d8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x2a = 0x3d8,0x26
03d9 e210       |    |		Load	0x1,0x10
03da 0213       |    |		Execute	Heap_Access,Check_In_Type
03db e5ff       |    |		Load	0x2,-0x1
03dc e20f       |    |		Load	0x1,0xf
03dd 0119       |    |		Execute	Any,Check_In_Formal_Type
03de e219       |    |		Load	0x1,0x19
03df e21a       |    |		Load	0x1,0x1a
03e0 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
03e1 e001       |    |		Load	0x0,0x1
03e2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
03e3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x2b = 0x3e3,0x27
03e4 e210       |    |		Load	0x1,0x10
03e5 0213       |    |		Execute	Heap_Access,Check_In_Type
03e6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e7 0000       |    |		.XXX[0x1]
03e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000040f}
03ec 0000 0000  |    |		.BLANK	0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug Table
03f0 ; --------------------------------------------------------------------------------------
03f0 0003 000e  |    |		.CONST	0x0003,0x000e
03f2 000b 0462  |   b|		.DEBUG	0x000b,0x0462,0x8000,0x0000,0x0036,0x0a24,0x0000,0x0007
03fa 0027 0484  | '  |		.DEBUG	0x0027,0x0484,0x8000,0x0000,0x0036,0x0b34,0x0000,0x0011
0402 010b 04d2  |    |		.DEBUG	0x010b,0x04d2,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0019
040a 014b 04f6  | K  |		.DEBUG	0x014b,0x04f6,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0068
0412 0153 04fa  | S  |		.DEBUG	0x0153,0x04fa,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0079
041a 015b 04fe  | [  |		.DEBUG	0x015b,0x04fe,0x0002,0x0000,0x0036,0x0a24,0x0000,0x0082
0422 0163 0502  | c  |		.DEBUG	0x0163,0x0502,0x0002,0x0000,0x0036,0x0b34,0x0000,0x0228
042a 0173 050a  | s  |		.DEBUG	0x0173,0x050a,0x0001,0x0000,0x0036,0x0b34,0x0000,0x0246
0432 01fb 0540  |   @|		.DEBUG	0x01fb,0x0540,0x0002,0x0000,0x0036,0x0b34,0x0000,0x03c2
043a 0233 0546  | 3 F|		.DEBUG	0x0233,0x0546,0x4000,0x0000,0x0036,0x0a24,0x0000,0x0039
0442 0238 054c  | 8 L|		.DEBUG	0x0238,0x054c,0x4000,0x0000,0x0036,0x0b34,0x0000,0x03df
044a 0263 055c  | c \|		.DEBUG	0x0263,0x055c,0x1002,0x0000,0x0036,0x0a24,0x0000,0x004f
0452 0273 0560  | s `|		.DEBUG	0x0273,0x0560,0x1001,0x0000,0x0036,0x0a24,0x0000,0x005c
045a 02eb 058a  |    |		.DEBUG	0x02eb,0x058a,0x1002,0x0000,0x0036,0x0b34,0x0000,0x0415
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug3 Subtable 0x0
0462 ; --------------------------------------------------------------------------------------
0462 0010 0000  |    |		.DBG3TAB	0x0010,0x0000
0464 000b ffff  |    |		.CONST	0x000b,0xffff
0466 000b fffe  |    |		.CONST	0x000b,0xfffe
0468 000b fffd  |    |		.CONST	0x000b,0xfffd
046a 000c fffc  |    |		.CONST	0x000c,0xfffc
046c 000e fffb  |    |		.CONST	0x000e,0xfffb
046e 0012 fffa  |    |		.CONST	0x0012,0xfffa
0470 0014 fff9  |    |		.CONST	0x0014,0xfff9
0472 0016 fff8  |    |		.CONST	0x0016,0xfff8
0474 0018 fff7  |    |		.CONST	0x0018,0xfff7
0476 0019 fff6  |    |		.CONST	0x0019,0xfff6
0478 001b fff5  |    |		.CONST	0x001b,0xfff5
047a 001d fff4  |    |		.CONST	0x001d,0xfff4
047c 001f fff3  |    |		.CONST	0x001f,0xfff3
047e 0023 fff2  | #  |		.CONST	0x0023,0xfff2
0480 0023 fff1  | #  |		.CONST	0x0023,0xfff1
0482 0026 fff0  | &  |		.CONST	0x0026,0xfff0
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug3 Subtable 0x1
0484 ; --------------------------------------------------------------------------------------
0484 0026 0000  | &  |		.DBG3TAB	0x0026,0x0000
0486 0027 ffff  | '  |		.CONST	0x0027,0xffff
0488 0027 fffe  | '  |		.CONST	0x0027,0xfffe
048a 0027 fffd  | '  |		.CONST	0x0027,0xfffd
048c 0027 fffc  | '  |		.CONST	0x0027,0xfffc
048e 0027 fffb  | '  |		.CONST	0x0027,0xfffb
0490 0027 fffa  | '  |		.CONST	0x0027,0xfffa
0492 0027 fff9  | '  |		.CONST	0x0027,0xfff9
0494 0027 fff8  | '  |		.CONST	0x0027,0xfff8
0496 0027 fff7  | '  |		.CONST	0x0027,0xfff7
0498 0029 fff6  | )  |		.CONST	0x0029,0xfff6
049a 002e fff5  | .  |		.CONST	0x002e,0xfff5
049c 002e fff4  | .  |		.CONST	0x002e,0xfff4
049e 002e fff3  | .  |		.CONST	0x002e,0xfff3
04a0 0033 fff2  | 3  |		.CONST	0x0033,0xfff2
04a2 003e fff1  | >  |		.CONST	0x003e,0xfff1
04a4 0055 fff0  | U  |		.CONST	0x0055,0xfff0
04a6 005b ffef  | [  |		.CONST	0x005b,0xffef
04a8 0061 ffee  | a  |		.CONST	0x0061,0xffee
04aa 0068 ffed  | h  |		.CONST	0x0068,0xffed
04ac 0068 ffec  | h  |		.CONST	0x0068,0xffec
04ae 0071 ffeb  | q  |		.CONST	0x0071,0xffeb
04b0 0071 ffea  | q  |		.CONST	0x0071,0xffea
04b2 0077 ffe9  | w  |		.CONST	0x0077,0xffe9
04b4 0086 ffe8  |    |		.CONST	0x0086,0xffe8
04b6 0096 ffe7  |    |		.CONST	0x0096,0xffe7
04b8 00a5 ffe6  |    |		.CONST	0x00a5,0xffe6
04ba 00ad ffe5  |    |		.CONST	0x00ad,0xffe5
04bc 00b6 ffe4  |    |		.CONST	0x00b6,0xffe4
04be 00c1 ffe3  |    |		.CONST	0x00c1,0xffe3
04c0 00cc ffe2  |    |		.CONST	0x00cc,0xffe2
04c2 00df ffe1  |    |		.CONST	0x00df,0xffe1
04c4 00e1 ffe0  |    |		.CONST	0x00e1,0xffe0
04c6 00e3 ffdf  |    |		.CONST	0x00e3,0xffdf
04c8 00e5 ffde  |    |		.CONST	0x00e5,0xffde
04ca 00e7 ffdd  |    |		.CONST	0x00e7,0xffdd
04cc 00fc ffdc  |    |		.CONST	0x00fc,0xffdc
04ce 00fe ffdb  |    |		.CONST	0x00fe,0xffdb
04d0 0100 ffda  |    |		.CONST	0x0100,0xffda
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug3 Subtable 0x2
04d2 ; --------------------------------------------------------------------------------------
04d2 0002 000f  |    |		.DBG3TAB	0x0002,0x000f
04d4 010b ffff  |    |		.CONST	0x010b,0xffff
04d6 010c fffe  |    |		.CONST	0x010c,0xfffe
04d8 010d 0001  |    |		.CONST	0x010d,0x0001
04da 0112 0002  |    |		.CONST	0x0112,0x0002
04dc 0112 0003  |    |		.CONST	0x0112,0x0003
04de 0118 0004  |    |		.CONST	0x0118,0x0004
04e0 011e 0005  |    |		.CONST	0x011e,0x0005
04e2 0123 0006  | #  |		.CONST	0x0123,0x0006
04e4 0123 0007  | #  |		.CONST	0x0123,0x0007
04e6 0127 0008  | '  |		.CONST	0x0127,0x0008
04e8 012b 0009  | +  |		.CONST	0x012b,0x0009
04ea 012f 000a  | /  |		.CONST	0x012f,0x000a
04ec 0133 000b  | 3  |		.CONST	0x0133,0x000b
04ee 0137 000c  | 7  |		.CONST	0x0137,0x000c
04f0 013b 000d  | ;  |		.CONST	0x013b,0x000d
04f2 013f 000e  | ?  |		.CONST	0x013f,0x000e
04f4 0143 000f  | C  |		.CONST	0x0143,0x000f
04f6 ; --------------------------------------------------------------------------------------
04f6 ; Debug3 Subtable 0x3
04f6 ; --------------------------------------------------------------------------------------
04f6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04f8 014b 0001  | K  |		.CONST	0x014b,0x0001
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug3 Subtable 0x4
04fa ; --------------------------------------------------------------------------------------
04fa 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04fc 0153 0001  | S  |		.CONST	0x0153,0x0001
04fe ; --------------------------------------------------------------------------------------
04fe ; Debug3 Subtable 0x5
04fe ; --------------------------------------------------------------------------------------
04fe 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0500 015b 0001  | [  |		.CONST	0x015b,0x0001
0502 ; --------------------------------------------------------------------------------------
0502 ; Debug3 Subtable 0x6
0502 ; --------------------------------------------------------------------------------------
0502 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0504 0163 0001  | c  |		.CONST	0x0163,0x0001
0506 0167 0002  | g  |		.CONST	0x0167,0x0002
0508 0169 0003  | i  |		.CONST	0x0169,0x0003
050a ; --------------------------------------------------------------------------------------
050a ; Debug3 Subtable 0x7
050a ; --------------------------------------------------------------------------------------
050a 000c 000e  |    |		.DBG3TAB	0x000c,0x000e
050c 0173 ffff  | s  |		.CONST	0x0173,0xffff
050e 0179 fffe  | y  |		.CONST	0x0179,0xfffe
0510 017c fffd  | |  |		.CONST	0x017c,0xfffd
0512 017c fffc  | |  |		.CONST	0x017c,0xfffc
0514 0181 fffb  |    |		.CONST	0x0181,0xfffb
0516 0181 fffa  |    |		.CONST	0x0181,0xfffa
0518 018a fff9  |    |		.CONST	0x018a,0xfff9
051a 0190 fff8  |    |		.CONST	0x0190,0xfff8
051c 0195 fff7  |    |		.CONST	0x0195,0xfff7
051e 019c fff6  |    |		.CONST	0x019c,0xfff6
0520 01a2 fff5  |    |		.CONST	0x01a2,0xfff5
0522 01ad fff4  |    |		.CONST	0x01ad,0xfff4
0524 01ae 0001  |    |		.CONST	0x01ae,0x0001
0526 01b2 0002  |    |		.CONST	0x01b2,0x0002
0528 01b8 0003  |    |		.CONST	0x01b8,0x0003
052a 01ba 0004  |    |		.CONST	0x01ba,0x0004
052c 01be 0005  |    |		.CONST	0x01be,0x0005
052e 01c2 0006  |    |		.CONST	0x01c2,0x0006
0530 01ca 0007  |    |		.CONST	0x01ca,0x0007
0532 01ce 0008  |    |		.CONST	0x01ce,0x0008
0534 01d2 0009  |    |		.CONST	0x01d2,0x0009
0536 01d8 000a  |    |		.CONST	0x01d8,0x000a
0538 01dc 000b  |    |		.CONST	0x01dc,0x000b
053a 01e0 000c  |    |		.CONST	0x01e0,0x000c
053c 01e6 000d  |    |		.CONST	0x01e6,0x000d
053e 01ec 000e  |    |		.CONST	0x01ec,0x000e
0540 ; --------------------------------------------------------------------------------------
0540 ; Debug3 Subtable 0x8
0540 ; --------------------------------------------------------------------------------------
0540 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0542 01fb 0001  |    |		.CONST	0x01fb,0x0001
0544 0204 0002  |    |		.CONST	0x0204,0x0002
0546 ; --------------------------------------------------------------------------------------
0546 ; Debug3 Subtable 0x9
0546 ; --------------------------------------------------------------------------------------
0546 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
0548 0233 ffff  | 3  |		.CONST	0x0233,0xffff
054a 0235 fffe  | 5  |		.CONST	0x0235,0xfffe
054c ; --------------------------------------------------------------------------------------
054c ; Debug3 Subtable 0xa
054c ; --------------------------------------------------------------------------------------
054c 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
054e 0238 ffff  | 8  |		.CONST	0x0238,0xffff
0550 0241 fffe  | A  |		.CONST	0x0241,0xfffe
0552 0249 fffd  | I  |		.CONST	0x0249,0xfffd
0554 0251 fffc  | Q  |		.CONST	0x0251,0xfffc
0556 0258 fffb  | X  |		.CONST	0x0258,0xfffb
0558 025a fffa  | Z  |		.CONST	0x025a,0xfffa
055a 025c fff9  | \  |		.CONST	0x025c,0xfff9
055c ; --------------------------------------------------------------------------------------
055c ; Debug3 Subtable 0xb
055c ; --------------------------------------------------------------------------------------
055c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
055e 0263 0001  | c  |		.CONST	0x0263,0x0001
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug3 Subtable 0xc
0560 ; --------------------------------------------------------------------------------------
0560 0003 0011  |    |		.DBG3TAB	0x0003,0x0011
0562 0273 ffff  | s  |		.CONST	0x0273,0xffff
0564 0275 fffe  | u  |		.CONST	0x0275,0xfffe
0566 027c fffd  | |  |		.CONST	0x027c,0xfffd
0568 0284 0001  |    |		.CONST	0x0284,0x0001
056a 0286 0002  |    |		.CONST	0x0286,0x0002
056c 0287 0003  |    |		.CONST	0x0287,0x0003
056e 0293 0004  |    |		.CONST	0x0293,0x0004
0570 0295 0005  |    |		.CONST	0x0295,0x0005
0572 0296 0006  |    |		.CONST	0x0296,0x0006
0574 02a0 0007  |    |		.CONST	0x02a0,0x0007
0576 02a7 0008  |    |		.CONST	0x02a7,0x0008
0578 02aa 0009  |    |		.CONST	0x02aa,0x0009
057a 02ae 000a  |    |		.CONST	0x02ae,0x000a
057c 02b4 000b  |    |		.CONST	0x02b4,0x000b
057e 02c2 000c  |    |		.CONST	0x02c2,0x000c
0580 02c8 000d  |    |		.CONST	0x02c8,0x000d
0582 02cc 000e  |    |		.CONST	0x02cc,0x000e
0584 02d2 000f  |    |		.CONST	0x02d2,0x000f
0586 02d8 0010  |    |		.CONST	0x02d8,0x0010
0588 02de 0011  |    |		.CONST	0x02de,0x0011
058a ; --------------------------------------------------------------------------------------
058a ; Debug3 Subtable 0xd
058a ; --------------------------------------------------------------------------------------
058a 0005 0027  |   '|		.DBG3TAB	0x0005,0x0027
058c 02eb ffff  |    |		.CONST	0x02eb,0xffff
058e 02ed fffe  |    |		.CONST	0x02ed,0xfffe
0590 02ef fffd  |    |		.CONST	0x02ef,0xfffd
0592 02f0 fffc  |    |		.CONST	0x02f0,0xfffc
0594 02f1 fffb  |    |		.CONST	0x02f1,0xfffb
0596 02f2 0001  |    |		.CONST	0x02f2,0x0001
0598 02fc 0002  |    |		.CONST	0x02fc,0x0002
059a 0305 0003  |    |		.CONST	0x0305,0x0003
059c 0305 0004  |    |		.CONST	0x0305,0x0004
059e 0312 0005  |    |		.CONST	0x0312,0x0005
05a0 0315 0006  |    |		.CONST	0x0315,0x0006
05a2 0317 0007  |    |		.CONST	0x0317,0x0007
05a4 0318 0009  |    |		.CONST	0x0318,0x0009
05a6 031c 000a  |    |		.CONST	0x031c,0x000a
05a8 031f 000b  |    |		.CONST	0x031f,0x000b
05aa 0322 000c  | "  |		.CONST	0x0322,0x000c
05ac 0326 000d  | &  |		.CONST	0x0326,0x000d
05ae 032a 000e  | *  |		.CONST	0x032a,0x000e
05b0 0332 000f  | 2  |		.CONST	0x0332,0x000f
05b2 033a 0010  | :  |		.CONST	0x033a,0x0010
05b4 0340 0011  | @  |		.CONST	0x0340,0x0011
05b6 034c 0008  | L  |		.CONST	0x034c,0x0008
05b8 0352 0012  | R  |		.CONST	0x0352,0x0012
05ba 0358 0013  | X  |		.CONST	0x0358,0x0013
05bc 035d 0014  | ]  |		.CONST	0x035d,0x0014
05be 0368 0015  | h  |		.CONST	0x0368,0x0015
05c0 0370 0016  | p  |		.CONST	0x0370,0x0016
05c2 0378 0017  | x  |		.CONST	0x0378,0x0017
05c4 037e 0018  | ~  |		.CONST	0x037e,0x0018
05c6 0382 0019  |    |		.CONST	0x0382,0x0019
05c8 0385 001a  |    |		.CONST	0x0385,0x001a
05ca 0397 001b  |    |		.CONST	0x0397,0x001b
05cc 039b 001c  |    |		.CONST	0x039b,0x001c
05ce 039f 001d  |    |		.CONST	0x039f,0x001d
05d0 03a3 001e  |    |		.CONST	0x03a3,0x001e
05d2 03a7 001f  |    |		.CONST	0x03a7,0x001f
05d4 03b1 0020  |    |		.CONST	0x03b1,0x0020
05d6 03b2 0021  |   !|		.CONST	0x03b2,0x0021
05d8 03b6 0022  |   "|		.CONST	0x03b6,0x0022
05da 03ba 0023  |   #|		.CONST	0x03ba,0x0023
05dc 03c5 0024  |   $|		.CONST	0x03c5,0x0024
05de 03ca 0025  |   %|		.CONST	0x03ca,0x0025
05e0 03d8 0026  |   &|		.CONST	0x03d8,0x0026
05e2 03e3 0027  |   '|		.CONST	0x03e3,0x0027
05e4 0000 0000  |    |		.BLANK	0000[0x1c]