DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦894ec96bf⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04f0       |    |		.CONST	0x04f0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002e       | .  |		.CONST	0x002e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x054a,0x0000,0x0000,0x0057,0x79c5,0x0000,0x0415
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 00bf       |    |		Action	Accept_Activation
001c 029d 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call			; Debug Table 0x1 = .DEBUG	0x001c,0x055c,0x0000,0x0000,0x0057,0x7a05,0x0000,0x000a
													; Debug Table 0x1.0x0 = 0x1c,0xffff
001e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x1 = 0x1e,0xfffe
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x2 = 0x20,0xfffd
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x3 = 0x22,0xfffc
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x4 = 0x24,0xfffb
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x5 = 0x26,0xfffa
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x6 = 0x28,0xfff9
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x7 = 0x2a,0xfff8
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x8 = 0x2c,0xfff7
002d 00c7       |    |		Action	Elaborate_Subprogram
002e			BODY_0008:
002e 00bc       |    |		Action	Signal_Activated
002f 00bb       |    |		Action	Signal_Completion
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0038       | 8  |		.CONST	0x0038								; Address of begin
0031 004c       | L  |		.CONST	0x004c								; Address of exception handler
0032 0002       |    |		.CONST	0x0002								; Number of locals
0033			INIT_0030:
0033 e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x0033,0x0570,0x0001,0x0000,0x0057,0x79c5,0x0000,0x0416
													; Debug Table 0x2.0x0 = 0x33,0xffff
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 02c7       |    |		Declare_Variable	Any
0036 00d8       |    |		Load_Top	At_Offset_0
0037 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0038			BODY_0030:
0038 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1 = 0x38,0x1
0039 00ea       |    |		Load_Encached	Null_String_Cache
003a e5fe       |    |		Load	0x2,-0x2
003b 4801       |H   |		Short_Literal	0x1
003c e001       |    |		Load	0x0,0x1
003d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
003e c402       |    |		Store	0x2,0x2
003f e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x2 = 0x3f,0x2
0040 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0041 00d9       |    |		Load_Top	At_Offset_1
0042 e5fd       |    |		Load	0x2,-0x3
0043 e5ff       |    |		Load	0x2,-0x1
0044 820f       |    |		Call	0x1,0xf
0045 c402       |    |		Store	0x2,0x2
0046 c5fc       |    |		Store	0x2,-0x4
0047 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x3 = 0x47,0x3
0048 e001       |    |		Load	0x0,0x1
0049 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
004a c402       |    |		Store	0x2,0x2
004b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
004c			TRAP_0030:
004c 00d8       |    |		Load_Top	At_Offset_0
004d 0107       |    |		Execute	Exception,Get_Name
004e 4920       |I   |		Short_Literal	0x120
004f 492f       |I/  |		Short_Literal	0x12f
0050 0262       | b  |		Execute	Discrete,In_Range
0051 6803       |h   |		Jump_Zero	0x55
0052 481c       |H   |		Short_Literal	0x1c							; Debug Table 0x2.0x4 = 0x52,0x4
0053 a5fc       |    |		Store_Unchecked	0x2,-0x4
0054 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0055 0100       |    |		Execute	Exception,Raise
0056 0000 0000  |    |		.XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 006c       | l  |		.CONST	0x006c								; Address of begin
0059 00aa       |    |		.CONST	0x00aa								; Address of exception handler
005a 0005       |    |		.CONST	0x0005								; Number of locals
005b			INIT_0058:
005b e003       |    |		Load	0x0,0x3								; Debug Table 0x3 = .DEBUG	0x005b,0x057c,0x0001,0x0000,0x0057,0x79c5,0x0000,0x042b
													; Debug Table 0x3.0x0 = 0x5b,0xffff
005c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005d 02c7       |    |		Declare_Variable	Any
005e 00d8       |    |		Load_Top	At_Offset_0
005f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0060 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x1 = 0x60,0xfffe
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 02c7       |    |		Declare_Variable	Any
0063 00d8       |    |		Load_Top	At_Offset_0
0064 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0065 e004       |    |		Load	0x0,0x4								; Debug Table 0x3.0x2 = 0x65,0xfffd
0066 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0067 02ff       |    |		Declare_Variable	Variant_Record
0068 00d8       |    |		Load_Top	At_Offset_0
0069 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006a e005       |    |		Load	0x0,0x5								; Debug Table 0x3.0x3 = 0x6a,0xfffc
006b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006c			BODY_0058:
006c e005       |    |		Load	0x0,0x5								; Debug Table 0x3.0x4 = 0x6c,0x1
006d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006e 00da       |    |		Load_Top	At_Offset_2
006f e5ff       |    |		Load	0x2,-0x1
0070 0217       |    |		Execute	Heap_Access,All_Reference
0071 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0072 0217       |    |		Execute	Heap_Access,All_Reference
0073 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0074 0217       |    |		Execute	Heap_Access,All_Reference
0075 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0076 e5fe       |    |		Load	0x2,-0x2
0077 e006       |    |		Load	0x0,0x6
0078 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0079 00d1       |    |		Pop_Control	Pop_Count_1
007a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
007b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x5 = 0x7b,0x2
007c e002       |    |		Load	0x0,0x2
007d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
007e 6803       |h   |		Jump_Zero	0x82
007f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0x7f,0x3
0080 a5fc       |    |		Store_Unchecked	0x2,-0x4
0081 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x3.0x7 = 0x81,0x4
0082 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x8 = 0x82,0x5
0083 e5ff       |    |		Load	0x2,-0x1
0084 0217       |    |		Execute	Heap_Access,All_Reference
0085 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0086 0217       |    |		Execute	Heap_Access,All_Reference
0087 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0088 0217       |    |		Execute	Heap_Access,All_Reference
0089 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
008a e004       |    |		Load	0x0,0x4
008b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
008c 00ea       |    |		Load_Encached	Null_String_Cache
008d e404       |    |		Load	0x2,0x4
008e 4801       |H   |		Short_Literal	0x1
008f e003       |    |		Load	0x0,0x3
0090 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0091 c402       |    |		Store	0x2,0x2
0092 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x9 = 0x92,0x6
0093 e001       |    |		Load	0x0,0x1
0094 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
0095 c403       |    |		Store	0x2,0x3
0096 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0xa = 0x96,0x7
0097 00ea       |    |		Load_Encached	Null_String_Cache
0098 00ea       |    |		Load_Encached	Null_String_Cache
0099 4801       |H   |		Short_Literal	0x1
009a e001       |    |		Load	0x0,0x1
009b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
009c c403       |    |		Store	0x2,0x3
009d e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0xb = 0x9d,0x8
009e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
009f 00db       |    |		Load_Top	At_Offset_3
00a0 e5fd       |    |		Load	0x2,-0x3
00a1 e5ff       |    |		Load	0x2,-0x1
00a2 820f       |    |		Call	0x1,0xf
00a3 c403       |    |		Store	0x2,0x3
00a4 c5fc       |    |		Store	0x2,-0x4
00a5 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0xc = 0xa5,0x9
00a6 e001       |    |		Load	0x0,0x1
00a7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00a8 c403       |    |		Store	0x2,0x3
00a9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00aa			TRAP_0058:
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 0107       |    |		Execute	Exception,Get_Name
00ac 4920       |I   |		Short_Literal	0x120
00ad 492f       |I/  |		Short_Literal	0x12f
00ae 0262       | b  |		Execute	Discrete,In_Range
00af 6803       |h   |		Jump_Zero	0xb3
00b0 481c       |H   |		Short_Literal	0x1c							; Debug Table 0x3.0xd = 0xb0,0xa
00b1 a5fc       |    |		Store_Unchecked	0x2,-0x4
00b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00b3 0100       |    |		Execute	Exception,Raise
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c4       |    |		.CONST	0x00c4								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0004       |    |		.CONST	0x0004								; Number of locals
00bb			INIT_00b8:
00bb e007       |    |		Load	0x0,0x7								; Debug Table 0x4 = .DEBUG	0x00bb,0x059a,0x0001,0x0000,0x0057,0x79c5,0x0000,0x0442
													; Debug Table 0x4.0x0 = 0xbb,0xffff
00bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bd e007       |    |		Load	0x0,0x7
00be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bf 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c0 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x1 = 0xc0,0xfffe
00c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c2 e008       |    |		Load	0x0,0x8								; Debug Table 0x4.0x2 = 0xc2,0xfffd
00c3 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00c4			BODY_00b8:
00c4 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x3 = 0xc4,0x1
00c5 7003       |p   |		Jump_Nonzero	0xc9
00c6 4818       |H   |		Short_Literal	0x18							; Debug Table 0x4.0x4 = 0xc6,0x2
00c7 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x5 = 0xc8,0x3
00c9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x6 = 0xc9,0x4
00ca 8215       |    |		Call	0x1,0x15
00cb 7003       |p   |		Jump_Nonzero	0xcf
00cc 4830       |H0  |		Short_Literal	0x30							; Debug Table 0x4.0x7 = 0xcc,0x5
00cd a5fc       |    |		Store_Unchecked	0x2,-0x4
00ce 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x8 = 0xce,0x6
00cf e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x9 = 0xcf,0x7
00d0 0217       |    |		Execute	Heap_Access,All_Reference
00d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d2 0217       |    |		Execute	Heap_Access,All_Reference
00d3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00d5 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0xa = 0xd5,0x8
00d6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 0217       |    |		Execute	Heap_Access,All_Reference
00da 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00db e5fe       |    |		Load	0x2,-0x2
00dc e404       |    |		Load	0x2,0x4
00dd 8009       |    |		Call	0x0,0x9
00de c402       |    |		Store	0x2,0x2
00df 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00e0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xb = 0xe0,0x9
00e1 e002       |    |		Load	0x0,0x2
00e2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e3 6803       |h   |		Jump_Zero	0xe7
00e4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xc = 0xe4,0xa
00e5 a5fc       |    |		Store_Unchecked	0x2,-0x4
00e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0xd = 0xe6,0xb
00e7 00cf       |    |		Action	Mark_Auxiliary
00e8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xe = 0xe8,0xc
00e9 e007       |    |		Load	0x0,0x7
00ea 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00eb 4801       |H   |		Short_Literal	0x1
00ec 0263       | c  |		Execute	Discrete,Above_Bound
00ed 7009       |p   |		Jump_Nonzero	0xf7
00ee 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xf = 0xee,0xd
00ef e402       |    |		Load	0x2,0x2
00f0 e007       |    |		Load	0x0,0x7
00f1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00f2 e5fd       |    |		Load	0x2,-0x3
00f3 e001       |    |		Load	0x0,0x1
00f4 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00f5 00c8       |    |		Action	Pop_Auxiliary_Range
00f6 3ff7       |?   |		Loop_Increasing	0xee
00f7 00ce       |    |		Action	Pop_Auxiliary
00f8 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x10 = 0xf8,0xe
00f9 a5fc       |    |		Store_Unchecked	0x2,-0x4
00fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010c       |    |		.CONST	0x010c								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0004       |    |		.CONST	0x0004								; Number of locals
0103			INIT_0100:
0103 e007       |    |		Load	0x0,0x7								; Debug Table 0x5 = .DEBUG	0x0103,0x05be,0x2801,0x0002,0x0057,0x79c5,0x0000,0x0459
													; Debug Table 0x5.0x0 = 0x103,0xffff
0104 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0105 e007       |    |		Load	0x0,0x7
0106 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0107 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0108 e005       |    |		Load	0x0,0x5								; Debug Table 0x5.0x1 = 0x108,0xfffe
0109 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010a e008       |    |		Load	0x0,0x8								; Debug Table 0x5.0x2 = 0x10a,0xfffd
010b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
010c			BODY_0100:
010c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x3 = 0x10c,0x1
010d 7003       |p   |		Jump_Nonzero	0x111
010e 4818       |H   |		Short_Literal	0x18							; Debug Table 0x5.0x4 = 0x10e,0x2
010f a5fb       |    |		Store_Unchecked	0x2,-0x5
0110 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x5.0x5 = 0x110,0x3
0111 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x6 = 0x111,0x4
0112 8215       |    |		Call	0x1,0x15
0113 7003       |p   |		Jump_Nonzero	0x117
0114 4830       |H0  |		Short_Literal	0x30							; Debug Table 0x5.0x7 = 0x114,0x5
0115 a5fb       |    |		Store_Unchecked	0x2,-0x5
0116 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x5.0x8 = 0x116,0x6
0117 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x9 = 0x117,0x7
0118 0217       |    |		Execute	Heap_Access,All_Reference
0119 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011a 0217       |    |		Execute	Heap_Access,All_Reference
011b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011c 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
011d e005       |    |		Load	0x0,0x5								; Debug Table 0x5.0xa = 0x11d,0x8
011e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011f 00db       |    |		Load_Top	At_Offset_3
0120 e5fd       |    |		Load	0x2,-0x3
0121 0217       |    |		Execute	Heap_Access,All_Reference
0122 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0123 e5fc       |    |		Load	0x2,-0x4
0124 e404       |    |		Load	0x2,0x4
0125 8009       |    |		Call	0x0,0x9
0126 c402       |    |		Store	0x2,0x2
0127 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0128 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xb = 0x128,0x9
0129 e002       |    |		Load	0x0,0x2
012a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
012b 6803       |h   |		Jump_Zero	0x12f
012c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xc = 0x12c,0xa
012d a5fb       |    |		Store_Unchecked	0x2,-0x5
012e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x5.0xd = 0x12e,0xb
012f 00cf       |    |		Action	Mark_Auxiliary
0130 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xe = 0x130,0xc
0131 e007       |    |		Load	0x0,0x7
0132 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0133 4801       |H   |		Short_Literal	0x1
0134 0263       | c  |		Execute	Discrete,Above_Bound
0135 7007       |p   |		Jump_Nonzero	0x13d
0136 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0xf = 0x136,0xd
0137 e402       |    |		Load	0x2,0x2
0138 e007       |    |		Load	0x0,0x7
0139 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
013a 85fe       |    |		Call	0x2,-0x2
013b 00c8       |    |		Action	Pop_Auxiliary_Range
013c 3ff9       |?   |		Loop_Increasing	0x136
013d 00ce       |    |		Action	Pop_Auxiliary
013e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x10 = 0x13e,0xe
013f a5fb       |    |		Store_Unchecked	0x2,-0x5
0140 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0163       | c  |		.CONST	0x0163								; Address of begin
0149 0229       | )  |		.CONST	0x0229								; Address of exception handler
014a 0007       |    |		.CONST	0x0007								; Number of locals
014b			INIT_0148:
014b e00a       |    |		Load	0x0,0xa								; Debug Table 0x6 = .DEBUG	0x014b,0x05e2,0x0001,0x0000,0x0057,0x79c5,0x0000,0x0474
													; Debug Table 0x6.0x0 = 0x14b,0xffff
014c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014d 02c7       |    |		Declare_Variable	Any
014e 00d8       |    |		Load_Top	At_Offset_0
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150 e00a       |    |		Load	0x0,0xa								; Debug Table 0x6.0x1 = 0x150,0xfffe
0151 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0152 0322       | "  |		Declare_Variable	Record
0153 00d8       |    |		Load_Top	At_Offset_0
0154 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0155 e00b       |    |		Load	0x0,0xb								; Debug Table 0x6.0x2 = 0x155,0xfffd
0156 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0157 0322       | "  |		Declare_Variable	Record
0158 00d8       |    |		Load_Top	At_Offset_0
0159 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015a e00b       |    |		Load	0x0,0xb								; Debug Table 0x6.0x3 = 0x15a,0xfffc
015b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015c 02c7       |    |		Declare_Variable	Any
015d 00d8       |    |		Load_Top	At_Offset_0
015e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015f e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x4 = 0x15f,0xfffb
0160 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0161 e008       |    |		Load	0x0,0x8								; Debug Table 0x6.0x5 = 0x161,0xfffa
0162 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0163			BODY_0148:
0163 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x6 = 0x163,0x1
0164 a5fc       |    |		Store_Unchecked	0x2,-0x4
0165 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x7 = 0x165,0x2
0166 021d       |    |		Execute	Heap_Access,Is_Null
0167 e5fe       |    |		Load	0x2,-0x2
0168 021d       |    |		Execute	Heap_Access,Is_Null
0169 0278       | x  |		Execute	Discrete,Or
016a 6803       |h   |		Jump_Zero	0x16e
016b 4819       |H   |		Short_Literal	0x19							; Debug Table 0x6.0x8 = 0x16b,0x3
016c a5fb       |    |		Store_Unchecked	0x2,-0x5
016d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x9 = 0x16d,0x4
016e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0xa = 0x16e,0x5
016f 0217       |    |		Execute	Heap_Access,All_Reference
0170 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0171 e5fe       |    |		Load	0x2,-0x2
0172 0217       |    |		Execute	Heap_Access,All_Reference
0173 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0174 021e       |    |		Execute	Heap_Access,Maximum
0175 6803       |h   |		Jump_Zero	0x179
0176 480c       |H   |		Short_Literal	0xc							; Debug Table 0x6.0xb = 0x176,0x6
0177 a5fb       |    |		Store_Unchecked	0x2,-0x5
0178 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0xc = 0x178,0x7
0179 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0xd = 0x179,0x8
017a 0217       |    |		Execute	Heap_Access,All_Reference
017b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
017c 0217       |    |		Execute	Heap_Access,All_Reference
017d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
017f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0xe = 0x17f,0x9
0180 e5fe       |    |		Load	0x2,-0x2
0181 0217       |    |		Execute	Heap_Access,All_Reference
0182 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0183 00da       |    |		Load_Top	At_Offset_2
0184 e00b       |    |		Load	0x0,0xb
0185 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0186 00d1       |    |		Pop_Control	Pop_Count_1
0187 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0xf = 0x187,0xa
0188 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0189 e5ff       |    |		Load	0x2,-0x1
018a 0217       |    |		Execute	Heap_Access,All_Reference
018b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018c 00da       |    |		Load_Top	At_Offset_2
018d e00b       |    |		Load	0x0,0xb
018e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
018f c405       |    |		Store	0x2,0x5
0190 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x10 = 0x190,0xb
0191 e00b       |    |		Load	0x0,0xb
0192 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0193 6803       |h   |		Jump_Zero	0x197
0194 481e       |H   |		Short_Literal	0x1e							; Debug Table 0x6.0x11 = 0x194,0xc
0195 a5fb       |    |		Store_Unchecked	0x2,-0x5
0196 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x12 = 0x196,0xd
0197 e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x13 = 0x197,0xe
0198 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0199 e402       |    |		Load	0x2,0x2
019a 0120       |    |		Execute	Any,Is_Value
019b 6803       |h   |		Jump_Zero	0x19f
019c e00a       |    |		Load	0x0,0xa
019d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019e 7801       |x   |		Jump	0x1a0
019f e402       |    |		Load	0x2,0x2
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 0217       |    |		Execute	Heap_Access,All_Reference
01a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a3 e002       |    |		Load	0x0,0x2
01a4 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01a5 e407       |    |		Load	0x2,0x7
01a6 e00a       |    |		Load	0x0,0xa
01a7 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01a8 c402       |    |		Store	0x2,0x2
01a9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01aa 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x14 = 0x1aa,0xf
01ab e002       |    |		Load	0x0,0x2
01ac 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ad 6803       |h   |		Jump_Zero	0x1b1
01ae 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x15 = 0x1ae,0x10
01af a5fb       |    |		Store_Unchecked	0x2,-0x5
01b0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x16 = 0x1b0,0x11
01b1 e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x17 = 0x1b1,0x12
01b2 e402       |    |		Load	0x2,0x2
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 e00a       |    |		Load	0x0,0xa
01b5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01b6 00d1       |    |		Pop_Control	Pop_Count_1
01b7 e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x18 = 0x1b7,0x13
01b8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01b9 e403       |    |		Load	0x2,0x3
01ba 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01bb 0f00       |    |		Execute_Immediate	Equal,0x0
01bc 0279       | y  |		Execute	Discrete,And
01bd 6803       |h   |		Jump_Zero	0x1c1
01be 4825       |H%  |		Short_Literal	0x25							; Debug Table 0x6.0x19 = 0x1be,0x14
01bf a5fb       |    |		Store_Unchecked	0x2,-0x5
01c0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x1a = 0x1c0,0x15
01c1 e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x1b = 0x1c1,0x16
01c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c3 e402       |    |		Load	0x2,0x2
01c4 0120       |    |		Execute	Any,Is_Value
01c5 6803       |h   |		Jump_Zero	0x1c9
01c6 e00a       |    |		Load	0x0,0xa
01c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c8 7801       |x   |		Jump	0x1ca
01c9 e402       |    |		Load	0x2,0x2
01ca e5ff       |    |		Load	0x2,-0x1
01cb 0217       |    |		Execute	Heap_Access,All_Reference
01cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cd 00db       |    |		Load_Top	At_Offset_3
01ce e00a       |    |		Load	0x0,0xa
01cf 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01d0 c402       |    |		Store	0x2,0x2
01d1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d2 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x1c = 0x1d2,0x17
01d3 e002       |    |		Load	0x0,0x2
01d4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01d5 680a       |h   |		Jump_Zero	0x1e0
01d6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x1d = 0x1d6,0x18
01d7 a5fb       |    |		Store_Unchecked	0x2,-0x5
01d8 e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x1e = 0x1d8,0x19
01d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01da 4801       |H   |		Short_Literal	0x1
01db 00da       |    |		Load_Top	At_Offset_2
01dc e008       |    |		Load	0x0,0x8
01dd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01de 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01df 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x1f = 0x1df,0x1a
01e0 e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x20 = 0x1e0,0x1b
01e1 e402       |    |		Load	0x2,0x2
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 e00a       |    |		Load	0x0,0xa
01e4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01e5 00d1       |    |		Pop_Control	Pop_Count_1
01e6 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x21 = 0x1e6,0x1c
01e7 e403       |    |		Load	0x2,0x3
01e8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01e9 e00c       |    |		Load	0x0,0xc								; Debug Table 0x6.0x22 = 0x1e9,0x1d
01ea 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01eb e403       |    |		Load	0x2,0x3
01ec 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01ed e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x23 = 0x1ed,0x1e
01ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ef e403       |    |		Load	0x2,0x3
01f0 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01f1 0120       |    |		Execute	Any,Is_Value
01f2 6803       |h   |		Jump_Zero	0x1f6
01f3 e00d       |    |		Load	0x0,0xd
01f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f5 7802       |x   |		Jump	0x1f8
01f6 e403       |    |		Load	0x2,0x3
01f7 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01f8 e5fd       |    |		Load	0x2,-0x3
01f9 00db       |    |		Load_Top	At_Offset_3
01fa e00d       |    |		Load	0x0,0xd
01fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01fc e403       |    |		Load	0x2,0x3
01fd 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01fe 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ff 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x24 = 0x1ff,0x1f
0200 e002       |    |		Load	0x0,0x2
0201 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0202 680a       |h   |		Jump_Zero	0x20d
0203 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x25 = 0x203,0x20
0204 a5fb       |    |		Store_Unchecked	0x2,-0x5
0205 e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x26 = 0x205,0x21
0206 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0207 4801       |H   |		Short_Literal	0x1
0208 00da       |    |		Load_Top	At_Offset_2
0209 e008       |    |		Load	0x0,0x8
020a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
020b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
020c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x27 = 0x20c,0x22
020d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x28 = 0x20d,0x23
020e 0217       |    |		Execute	Heap_Access,All_Reference
020f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0210 e403       |    |		Load	0x2,0x3
0211 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0212 e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x29 = 0x212,0x24
0213 e402       |    |		Load	0x2,0x2
0214 00da       |    |		Load_Top	At_Offset_2
0215 e00a       |    |		Load	0x0,0xa
0216 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0217 e402       |    |		Load	0x2,0x2								; Debug Table 0x6.0x2a = 0x217,0x25
0218 e5ff       |    |		Load	0x2,-0x1
0219 0217       |    |		Execute	Heap_Access,All_Reference
021a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021b e405       |    |		Load	0x2,0x5
021c 00db       |    |		Load_Top	At_Offset_3
021d e00b       |    |		Load	0x0,0xb
021e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
021f e405       |    |		Load	0x2,0x5
0220 e407       |    |		Load	0x2,0x7
0221 e00b       |    |		Load	0x0,0xb
0222 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0223 e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x2b = 0x223,0x26
0224 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0225 a5fc       |    |		Store_Unchecked	0x2,-0x4
0226 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x2c = 0x226,0x27
0227 a5fb       |    |		Store_Unchecked	0x2,-0x5
0228 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0229			TRAP_0148:
0229 0007       |    |		Action	Break_Optional
022a e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x2d = 0x22a,0x28
022b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022c 4801       |H   |		Short_Literal	0x1
022d 00db       |    |		Load_Top	At_Offset_3
022e e008       |    |		Load	0x0,0x8
022f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0230 005b       | [  |		Store_Top	Discrete,At_Offset_3
0231 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x2e = 0x231,0x29
0232 0101       |    |		Execute	Exception,Reraise
0233 0000 0000  |    |		.BLANK	0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 025d       | ]  |		.CONST	0x025d								; Address of begin
0239 036f       | o  |		.CONST	0x036f								; Address of exception handler
023a 0009       |    |		.CONST	0x0009								; Number of locals
023b			INIT_0238:
023b e00a       |    |		Load	0x0,0xa								; Debug Table 0x7 = .DEBUG	0x023b,0x0642,0x0001,0x0000,0x0057,0x79c5,0x0000,0x048d
													; Debug Table 0x7.0x0 = 0x23b,0xffff
023c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
023d 0322       | "  |		Declare_Variable	Record
023e 00d8       |    |		Load_Top	At_Offset_0
023f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0240 e00a       |    |		Load	0x0,0xa								; Debug Table 0x7.0x1 = 0x240,0xfffe
0241 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0242 0322       | "  |		Declare_Variable	Record
0243 00d8       |    |		Load_Top	At_Offset_0
0244 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0245 e00a       |    |		Load	0x0,0xa								; Debug Table 0x7.0x2 = 0x245,0xfffd
0246 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0247 02c7       |    |		Declare_Variable	Any
0248 00d8       |    |		Load_Top	At_Offset_0
0249 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024a e00a       |    |		Load	0x0,0xa								; Debug Table 0x7.0x3 = 0x24a,0xfffc
024b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
024c 0322       | "  |		Declare_Variable	Record
024d 00d8       |    |		Load_Top	At_Offset_0
024e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024f e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x4 = 0x24f,0xfffb
0250 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0251 e00a       |    |		Load	0x0,0xa								; Debug Table 0x7.0x5 = 0x251,0xfffa
0252 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0253 0322       | "  |		Declare_Variable	Record
0254 00d8       |    |		Load_Top	At_Offset_0
0255 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0256 e008       |    |		Load	0x0,0x8								; Debug Table 0x7.0x6 = 0x256,0xfff9
0257 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0258 e007       |    |		Load	0x0,0x7								; Debug Table 0x7.0x7 = 0x258,0xfff8
0259 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
025a 02c7       |    |		Declare_Variable	Any
025b 00d8       |    |		Load_Top	At_Offset_0
025c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
025d			BODY_0238:
025d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x8 = 0x25d,0x1
025e a5fb       |    |		Store_Unchecked	0x2,-0x5
025f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x9 = 0x25f,0x2
0260 021d       |    |		Execute	Heap_Access,Is_Null
0261 e5fd       |    |		Load	0x2,-0x3
0262 021d       |    |		Execute	Heap_Access,Is_Null
0263 0278       | x  |		Execute	Discrete,Or
0264 6803       |h   |		Jump_Zero	0x268
0265 4819       |H   |		Short_Literal	0x19							; Debug Table 0x7.0xa = 0x265,0x3
0266 a5fa       |    |		Store_Unchecked	0x2,-0x6
0267 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0xb = 0x267,0x4
0268 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xc = 0x268,0x5
0269 0217       |    |		Execute	Heap_Access,All_Reference
026a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026b e5fd       |    |		Load	0x2,-0x3
026c 0217       |    |		Execute	Heap_Access,All_Reference
026d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026e 021e       |    |		Execute	Heap_Access,Maximum
026f 6803       |h   |		Jump_Zero	0x273
0270 480c       |H   |		Short_Literal	0xc							; Debug Table 0x7.0xd = 0x270,0x6
0271 a5fa       |    |		Store_Unchecked	0x2,-0x6
0272 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0xe = 0x272,0x7
0273 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xf = 0x273,0x8
0274 0217       |    |		Execute	Heap_Access,All_Reference
0275 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0276 0217       |    |		Execute	Heap_Access,All_Reference
0277 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0278 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0279 e405       |    |		Load	0x2,0x5								; Debug Table 0x7.0x10 = 0x279,0x9
027a e5ff       |    |		Load	0x2,-0x1
027b 0217       |    |		Execute	Heap_Access,All_Reference
027c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027d 00db       |    |		Load_Top	At_Offset_3
027e e00a       |    |		Load	0x0,0xa
027f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0280 00d1       |    |		Pop_Control	Pop_Count_1
0281 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x11 = 0x281,0xa
0282 e405       |    |		Load	0x2,0x5
0283 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0284 00db       |    |		Load_Top	At_Offset_3
0285 e00a       |    |		Load	0x0,0xa
0286 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0287 00d1       |    |		Pop_Control	Pop_Count_1
0288 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x12 = 0x288,0xb
0289 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
028a 0f00       |    |		Execute_Immediate	Equal,0x0
028b e402       |    |		Load	0x2,0x2
028c 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
028d 0278       | x  |		Execute	Discrete,Or
028e 6803       |h   |		Jump_Zero	0x292
028f 481d       |H   |		Short_Literal	0x1d							; Debug Table 0x7.0x13 = 0x28f,0xc
0290 a5fa       |    |		Store_Unchecked	0x2,-0x6
0291 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0x14 = 0x291,0xd
0292 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0x15 = 0x292,0xe
0293 e402       |    |		Load	0x2,0x2
0294 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0295 e00c       |    |		Load	0x0,0xc								; Debug Table 0x7.0x16 = 0x295,0xf
0296 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0297 e402       |    |		Load	0x2,0x2
0298 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0299 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x17 = 0x299,0x10
029a e402       |    |		Load	0x2,0x2
029b 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
029c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x18 = 0x29c,0x11
029d 0217       |    |		Execute	Heap_Access,All_Reference
029e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029f e5fe       |    |		Load	0x2,-0x2
02a0 e00e       |    |		Load	0x0,0xe
02a1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02a2 e402       |    |		Load	0x2,0x2
02a3 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
02a4 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x19 = 0x2a4,0x12
02a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a6 e402       |    |		Load	0x2,0x2
02a7 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02a8 0120       |    |		Execute	Any,Is_Value
02a9 6803       |h   |		Jump_Zero	0x2ad
02aa e00d       |    |		Load	0x0,0xd
02ab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ac 7802       |x   |		Jump	0x2af
02ad e402       |    |		Load	0x2,0x2
02ae 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02af e5fc       |    |		Load	0x2,-0x4
02b0 e408       |    |		Load	0x2,0x8
02b1 e00d       |    |		Load	0x0,0xd
02b2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b3 e402       |    |		Load	0x2,0x2
02b4 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
02b5 c406       |    |		Store	0x2,0x6
02b6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x1a = 0x2b6,0x13
02b7 e002       |    |		Load	0x0,0x2
02b8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02b9 680a       |h   |		Jump_Zero	0x2c4
02ba 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x1b = 0x2ba,0x14
02bb a5fa       |    |		Store_Unchecked	0x2,-0x6
02bc e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x1c = 0x2bc,0x15
02bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02be 4801       |H   |		Short_Literal	0x1
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 e008       |    |		Load	0x0,0x8
02c1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02c2 c406       |    |		Store	0x2,0x6
02c3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0x1d = 0x2c3,0x16
02c4 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x1e = 0x2c4,0x17
02c5 e405       |    |		Load	0x2,0x5
02c6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02c7 00db       |    |		Load_Top	At_Offset_3
02c8 e00a       |    |		Load	0x0,0xa
02c9 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
02ca 00d1       |    |		Pop_Control	Pop_Count_1
02cb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x1f = 0x2cb,0x18
02cc 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02cd 4801       |H   |		Short_Literal	0x1
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 0217       |    |		Execute	Heap_Access,All_Reference
02d0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02d1 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02d2 01d7       |    |		Execute	Vector,Field_Read
02d3 0278       | x  |		Execute	Discrete,Or
02d4 708e       |p   |		Jump_Nonzero	0x363
02d5 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x20 = 0x2d5,0x19
02d6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d7 e402       |    |		Load	0x2,0x2
02d8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d9 0120       |    |		Execute	Any,Is_Value
02da 6803       |h   |		Jump_Zero	0x2de
02db e007       |    |		Load	0x0,0x7
02dc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02dd 7802       |x   |		Jump	0x2e0
02de e402       |    |		Load	0x2,0x2
02df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02e0 e5fe       |    |		Load	0x2,-0x2
02e1 e408       |    |		Load	0x2,0x8
02e2 e007       |    |		Load	0x0,0x7
02e3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e4 e402       |    |		Load	0x2,0x2
02e5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02e6 c406       |    |		Store	0x2,0x6
02e7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x21 = 0x2e7,0x1a
02e8 e002       |    |		Load	0x0,0x2
02e9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02ea 680a       |h   |		Jump_Zero	0x2f5
02eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x22 = 0x2eb,0x1b
02ec a5fa       |    |		Store_Unchecked	0x2,-0x6
02ed e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x23 = 0x2ed,0x1c
02ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ef 4801       |H   |		Short_Literal	0x1
02f0 00db       |    |		Load_Top	At_Offset_3
02f1 e008       |    |		Load	0x0,0x8
02f2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02f3 c406       |    |		Store	0x2,0x6
02f4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0x24 = 0x2f4,0x1d
02f5 e405       |    |		Load	0x2,0x5								; Debug Table 0x7.0x25 = 0x2f5,0x1e
02f6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02f7 e405       |    |		Load	0x2,0x5
02f8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02f9 027e       | ~  |		Execute	Discrete,Not_Equal
02fa 6868       |hh  |		Jump_Zero	0x363
02fb e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x26 = 0x2fb,0x1f
02fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fd e404       |    |		Load	0x2,0x4
02fe 0120       |    |		Execute	Any,Is_Value
02ff 6803       |h   |		Jump_Zero	0x303
0300 e00a       |    |		Load	0x0,0xa
0301 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0302 7801       |x   |		Jump	0x304
0303 e404       |    |		Load	0x2,0x4
0304 e5ff       |    |		Load	0x2,-0x1
0305 0217       |    |		Execute	Heap_Access,All_Reference
0306 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0307 e402       |    |		Load	0x2,0x2
0308 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0309 0aff       |    |		Execute_Immediate	Plus,-0x1
030a 00e3       |    |		Load_Encached	Natural_Cache
030b 025b       | [  |		Execute	Discrete,Check_In_Type
030c e408       |    |		Load	0x2,0x8
030d e00a       |    |		Load	0x0,0xa
030e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
030f c404       |    |		Store	0x2,0x4
0310 c406       |    |		Store	0x2,0x6
0311 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x27 = 0x311,0x20
0312 e002       |    |		Load	0x0,0x2
0313 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0314 680a       |h   |		Jump_Zero	0x31f
0315 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x28 = 0x315,0x21
0316 a5fa       |    |		Store_Unchecked	0x2,-0x6
0317 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x29 = 0x317,0x22
0318 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0319 4801       |H   |		Short_Literal	0x1
031a 00db       |    |		Load_Top	At_Offset_3
031b e008       |    |		Load	0x0,0x8
031c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
031d c406       |    |		Store	0x2,0x6
031e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0x2a = 0x31e,0x23
031f e403       |    |		Load	0x2,0x3								; Debug Table 0x7.0x2b = 0x31f,0x24
0320 e404       |    |		Load	0x2,0x4
0321 00db       |    |		Load_Top	At_Offset_3
0322 e00a       |    |		Load	0x0,0xa
0323 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0324 00d1       |    |		Pop_Control	Pop_Count_1
0325 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x2c = 0x325,0x25
0326 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0327 00d9       |    |		Load_Top	At_Offset_1
0328 0120       |    |		Execute	Any,Is_Value
0329 6803       |h   |		Jump_Zero	0x32d
032a e007       |    |		Load	0x0,0x7
032b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
032c 7801       |x   |		Jump	0x32e
032d 00d9       |    |		Load_Top	At_Offset_1
032e e402       |    |		Load	0x2,0x2
032f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0330 e403       |    |		Load	0x2,0x3
0331 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0332 e408       |    |		Load	0x2,0x8
0333 e007       |    |		Load	0x0,0x7
0334 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0335 c409       |    |		Store	0x2,0x9
0336 c406       |    |		Store	0x2,0x6
0337 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x2d = 0x337,0x26
0338 e002       |    |		Load	0x0,0x2
0339 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
033a 680a       |h   |		Jump_Zero	0x345
033b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x2e = 0x33b,0x27
033c a5fa       |    |		Store_Unchecked	0x2,-0x6
033d e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x2f = 0x33d,0x28
033e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
033f 4801       |H   |		Short_Literal	0x1
0340 00db       |    |		Load_Top	At_Offset_3
0341 e008       |    |		Load	0x0,0x8
0342 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0343 c406       |    |		Store	0x2,0x6
0344 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0x30 = 0x344,0x29
0345 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x31 = 0x345,0x2a
0346 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0347 e403       |    |		Load	0x2,0x3
0348 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0349 00db       |    |		Load_Top	At_Offset_3
034a e007       |    |		Load	0x0,0x7
034b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
034c c406       |    |		Store	0x2,0x6
034d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x32 = 0x34d,0x2b
034e e002       |    |		Load	0x0,0x2
034f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0350 680a       |h   |		Jump_Zero	0x35b
0351 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x33 = 0x351,0x2c
0352 a5fa       |    |		Store_Unchecked	0x2,-0x6
0353 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x34 = 0x353,0x2d
0354 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0355 4801       |H   |		Short_Literal	0x1
0356 00db       |    |		Load_Top	At_Offset_3
0357 e008       |    |		Load	0x0,0x8
0358 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0359 c406       |    |		Store	0x2,0x6
035a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x7.0x35 = 0x35a,0x2e
035b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x36 = 0x35b,0x2f
035c e403       |    |		Load	0x2,0x3
035d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
035e e403       |    |		Load	0x2,0x3								; Debug Table 0x7.0x37 = 0x35e,0x30
035f e404       |    |		Load	0x2,0x4
0360 00db       |    |		Load_Top	At_Offset_3
0361 e00a       |    |		Load	0x0,0xa
0362 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0363 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x38 = 0x363,0x31
0364 e405       |    |		Load	0x2,0x5
0365 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0366 00db       |    |		Load_Top	At_Offset_3
0367 e00a       |    |		Load	0x0,0xa
0368 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0369 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x39 = 0x369,0x32
036a a5fa       |    |		Store_Unchecked	0x2,-0x6
036b e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x3a = 0x36b,0x33
036c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
036d a5fb       |    |		Store_Unchecked	0x2,-0x5
036e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
036f			TRAP_0238:
036f 0007       |    |		Action	Break_Optional
0370 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x3b = 0x370,0x34
0371 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0372 4801       |H   |		Short_Literal	0x1
0373 e408       |    |		Load	0x2,0x8
0374 e008       |    |		Load	0x0,0x8
0375 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0376 c406       |    |		Store	0x2,0x6
0377 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x3c = 0x377,0x35
0378 0101       |    |		Execute	Exception,Reraise
0379 0000 0000  |    |		.BLANK	0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0396       |    |		.CONST	0x0396								; Address of begin
0381 0449       | I  |		.CONST	0x0449								; Address of exception handler
0382 0006       |    |		.CONST	0x0006								; Number of locals
0383			INIT_0380:
0383 e005       |    |		Load	0x0,0x5								; Debug Table 0x8 = .DEBUG	0x0383,0x06be,0x0001,0x0000,0x0057,0x79c5,0x0000,0x04ac
													; Debug Table 0x8.0x0 = 0x383,0xffff
0384 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0385 e00b       |    |		Load	0x0,0xb								; Debug Table 0x8.0x1 = 0x385,0xfffe
0386 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0387 02c7       |    |		Declare_Variable	Any
0388 00d8       |    |		Load_Top	At_Offset_0
0389 1c00       |    |		Execute_Immediate	Run_Utility,0x0
038a e00a       |    |		Load	0x0,0xa								; Debug Table 0x8.0x2 = 0x38a,0xfffd
038b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
038c 02c7       |    |		Declare_Variable	Any
038d 00d8       |    |		Load_Top	At_Offset_0
038e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
038f e00a       |    |		Load	0x0,0xa								; Debug Table 0x8.0x3 = 0x38f,0xfffc
0390 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0391 0322       | "  |		Declare_Variable	Record
0392 00d8       |    |		Load_Top	At_Offset_0
0393 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0394 e008       |    |		Load	0x0,0x8								; Debug Table 0x8.0x4 = 0x394,0xfffb
0395 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0396			BODY_0380:
0396 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0x5 = 0x396,0x1
0397 e002       |    |		Load	0x0,0x2
0398 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0399 e5fd       |    |		Load	0x2,-0x3
039a e002       |    |		Load	0x0,0x2
039b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
039c 0278       | x  |		Execute	Discrete,Or
039d 6803       |h   |		Jump_Zero	0x3a1
039e 4819       |H   |		Short_Literal	0x19							; Debug Table 0x8.0x6 = 0x39e,0x2
039f a5fc       |    |		Store_Unchecked	0x2,-0x4
03a0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0x7 = 0x3a0,0x3
03a1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0x8 = 0x3a1,0x4
03a2 0217       |    |		Execute	Heap_Access,All_Reference
03a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a4 e5fd       |    |		Load	0x2,-0x3
03a5 0217       |    |		Execute	Heap_Access,All_Reference
03a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a7 021e       |    |		Execute	Heap_Access,Maximum
03a8 6803       |h   |		Jump_Zero	0x3ac
03a9 480c       |H   |		Short_Literal	0xc							; Debug Table 0x8.0x9 = 0x3a9,0x5
03aa a5fc       |    |		Store_Unchecked	0x2,-0x4
03ab 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0xa = 0x3ab,0x6
03ac e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0xb = 0x3ac,0x7
03ad 0217       |    |		Execute	Heap_Access,All_Reference
03ae 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03af 0217       |    |		Execute	Heap_Access,All_Reference
03b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03b2 e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0xc = 0x3b2,0x8
03b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b4 00db       |    |		Load_Top	At_Offset_3
03b5 0120       |    |		Execute	Any,Is_Value
03b6 6803       |h   |		Jump_Zero	0x3ba
03b7 e00a       |    |		Load	0x0,0xa
03b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b9 7801       |x   |		Jump	0x3bb
03ba 00db       |    |		Load_Top	At_Offset_3
03bb e5ff       |    |		Load	0x2,-0x1
03bc 0217       |    |		Execute	Heap_Access,All_Reference
03bd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03be e002       |    |		Load	0x0,0x2
03bf 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03c0 e406       |    |		Load	0x2,0x6
03c1 e00a       |    |		Load	0x0,0xa
03c2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03c3 c404       |    |		Store	0x2,0x4
03c4 c402       |    |		Store	0x2,0x2
03c5 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0xd = 0x3c5,0x9
03c6 e002       |    |		Load	0x0,0x2
03c7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03c8 6803       |h   |		Jump_Zero	0x3cc
03c9 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0xe = 0x3c9,0xa
03ca a5fc       |    |		Store_Unchecked	0x2,-0x4
03cb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0xf = 0x3cb,0xb
03cc 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x10 = 0x3cc,0xc
03cd 00db       |    |		Load_Top	At_Offset_3
03ce 00da       |    |		Load_Top	At_Offset_2
03cf e00a       |    |		Load	0x0,0xa
03d0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03d1 00d1       |    |		Pop_Control	Pop_Count_1
03d2 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x11 = 0x3d2,0xd
03d3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03d4 6803       |h   |		Jump_Zero	0x3d8
03d5 00d9       |    |		Load_Top	At_Offset_1
03d6 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03d7 6803       |h   |		Jump_Zero	0x3db
03d8 481d       |H   |		Short_Literal	0x1d							; Debug Table 0x8.0x12 = 0x3d8,0xe
03d9 a5fc       |    |		Store_Unchecked	0x2,-0x4
03da 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0x13 = 0x3da,0xf
03db e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x14 = 0x3db,0x10
03dc 0217       |    |		Execute	Heap_Access,All_Reference
03dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03de 00da       |    |		Load_Top	At_Offset_2
03df 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
03e0 012e       | .  |		Execute	Any,Not_Equal
03e1 6803       |h   |		Jump_Zero	0x3e5
03e2 4820       |H   |		Short_Literal	0x20							; Debug Table 0x8.0x15 = 0x3e2,0x11
03e3 a5fc       |    |		Store_Unchecked	0x2,-0x4
03e4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0x16 = 0x3e4,0x12
03e5 e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x17 = 0x3e5,0x13
03e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03e7 e5ff       |    |		Load	0x2,-0x1
03e8 0217       |    |		Execute	Heap_Access,All_Reference
03e9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ea e404       |    |		Load	0x2,0x4
03eb 00db       |    |		Load_Top	At_Offset_3
03ec e00a       |    |		Load	0x0,0xa
03ed 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03ee c402       |    |		Store	0x2,0x2
03ef e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x18 = 0x3ef,0x14
03f0 e002       |    |		Load	0x0,0x2
03f1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03f2 680a       |h   |		Jump_Zero	0x3fd
03f3 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x19 = 0x3f3,0x15
03f4 a5fc       |    |		Store_Unchecked	0x2,-0x4
03f5 e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x1a = 0x3f5,0x16
03f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f7 4801       |H   |		Short_Literal	0x1
03f8 00da       |    |		Load_Top	At_Offset_2
03f9 e008       |    |		Load	0x0,0x8
03fa 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03fb c402       |    |		Store	0x2,0x2
03fc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0x1b = 0x3fc,0x17
03fd e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x1c = 0x3fd,0x18
03fe 0217       |    |		Execute	Heap_Access,All_Reference
03ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0400 00d9       |    |		Load_Top	At_Offset_1
0401 e00b       |    |		Load	0x0,0xb
0402 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0403 c403       |    |		Store	0x2,0x3
0404 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x1d = 0x404,0x19
0405 e5ff       |    |		Load	0x2,-0x1
0406 0217       |    |		Execute	Heap_Access,All_Reference
0407 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0408 00da       |    |		Load_Top	At_Offset_2
0409 e00b       |    |		Load	0x0,0xb
040a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
040b c403       |    |		Store	0x2,0x3
040c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x1e = 0x40c,0x1a
040d e00b       |    |		Load	0x0,0xb
040e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
040f 680a       |h   |		Jump_Zero	0x41a
0410 e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x1f = 0x410,0x1b
0411 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0412 4801       |H   |		Short_Literal	0x1
0413 00da       |    |		Load_Top	At_Offset_2
0414 e008       |    |		Load	0x0,0x8
0415 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0416 c402       |    |		Store	0x2,0x2
0417 481e       |H   |		Short_Literal	0x1e							; Debug Table 0x8.0x20 = 0x417,0x1c
0418 a5fc       |    |		Store_Unchecked	0x2,-0x4
0419 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0x21 = 0x419,0x1d
041a e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x22 = 0x41a,0x1e
041b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
041c 00db       |    |		Load_Top	At_Offset_3
041d 0120       |    |		Execute	Any,Is_Value
041e 6803       |h   |		Jump_Zero	0x422
041f e00a       |    |		Load	0x0,0xa
0420 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0421 7801       |x   |		Jump	0x423
0422 00db       |    |		Load_Top	At_Offset_3
0423 e5ff       |    |		Load	0x2,-0x1
0424 0217       |    |		Execute	Heap_Access,All_Reference
0425 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0426 e5fe       |    |		Load	0x2,-0x2
0427 e406       |    |		Load	0x2,0x6
0428 e00a       |    |		Load	0x0,0xa
0429 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
042a c404       |    |		Store	0x2,0x4
042b c402       |    |		Store	0x2,0x2
042c e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x23 = 0x42c,0x1f
042d e002       |    |		Load	0x0,0x2
042e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
042f 680a       |h   |		Jump_Zero	0x43a
0430 4813       |H   |		Short_Literal	0x13							; Debug Table 0x8.0x24 = 0x430,0x20
0431 a5fc       |    |		Store_Unchecked	0x2,-0x4
0432 e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x25 = 0x432,0x21
0433 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0434 4801       |H   |		Short_Literal	0x1
0435 00da       |    |		Load_Top	At_Offset_2
0436 e008       |    |		Load	0x0,0x8
0437 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0438 c402       |    |		Store	0x2,0x2
0439 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x8.0x26 = 0x439,0x22
043a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x27 = 0x43a,0x23
043b e5ff       |    |		Load	0x2,-0x1
043c 0217       |    |		Execute	Heap_Access,All_Reference
043d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
043e e403       |    |		Load	0x2,0x3
043f 00db       |    |		Load_Top	At_Offset_3
0440 e00b       |    |		Load	0x0,0xb
0441 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0442 e403       |    |		Load	0x2,0x3
0443 e406       |    |		Load	0x2,0x6
0444 e00b       |    |		Load	0x0,0xb
0445 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0446 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x28 = 0x446,0x24
0447 a5fc       |    |		Store_Unchecked	0x2,-0x4
0448 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0449			TRAP_0380:
0449 0007       |    |		Action	Break_Optional
044a e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x29 = 0x44a,0x25
044b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
044c 4801       |H   |		Short_Literal	0x1
044d 00db       |    |		Load_Top	At_Offset_3
044e e008       |    |		Load	0x0,0x8
044f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0450 c402       |    |		Store	0x2,0x2
0451 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2a = 0x451,0x26
0452 0101       |    |		Execute	Exception,Reraise
0453 0000 0000  |    |		.BLANK	0000[0x5]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 046e       | n  |		.CONST	0x046e								; Address of begin
0459 04d4       |    |		.CONST	0x04d4								; Address of exception handler
045a 0006       |    |		.CONST	0x0006								; Number of locals
045b			INIT_0458:
045b e005       |    |		Load	0x0,0x5								; Debug Table 0x9 = .DEBUG	0x045b,0x0716,0x0001,0x0000,0x0057,0x79c5,0x0000,0x04c0
													; Debug Table 0x9.0x0 = 0x45b,0xffff
045c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
045d e00b       |    |		Load	0x0,0xb								; Debug Table 0x9.0x1 = 0x45d,0xfffe
045e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
045f 02c7       |    |		Declare_Variable	Any
0460 00d8       |    |		Load_Top	At_Offset_0
0461 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0462 e00a       |    |		Load	0x0,0xa								; Debug Table 0x9.0x2 = 0x462,0xfffd
0463 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0464 02c7       |    |		Declare_Variable	Any
0465 00d8       |    |		Load_Top	At_Offset_0
0466 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0467 e00a       |    |		Load	0x0,0xa								; Debug Table 0x9.0x3 = 0x467,0xfffc
0468 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0469 0322       | "  |		Declare_Variable	Record
046a 00d8       |    |		Load_Top	At_Offset_0
046b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
046c e008       |    |		Load	0x0,0x8								; Debug Table 0x9.0x4 = 0x46c,0xfffb
046d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
046e			BODY_0458:
046e e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x5 = 0x46e,0x1
046f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0470 a5fc       |    |		Store_Unchecked	0x2,-0x4
0471 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0x6 = 0x471,0x2
0472 e002       |    |		Load	0x0,0x2
0473 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0474 e5fd       |    |		Load	0x2,-0x3
0475 e002       |    |		Load	0x0,0x2
0476 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0477 0278       | x  |		Execute	Discrete,Or
0478 6803       |h   |		Jump_Zero	0x47c
0479 4819       |H   |		Short_Literal	0x19							; Debug Table 0x9.0x7 = 0x479,0x3
047a a5fb       |    |		Store_Unchecked	0x2,-0x5
047b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x9.0x8 = 0x47b,0x4
047c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0x9 = 0x47c,0x5
047d 0217       |    |		Execute	Heap_Access,All_Reference
047e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047f e5fd       |    |		Load	0x2,-0x3
0480 0217       |    |		Execute	Heap_Access,All_Reference
0481 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0482 021e       |    |		Execute	Heap_Access,Maximum
0483 6803       |h   |		Jump_Zero	0x487
0484 480c       |H   |		Short_Literal	0xc							; Debug Table 0x9.0xa = 0x484,0x6
0485 a5fb       |    |		Store_Unchecked	0x2,-0x5
0486 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x9.0xb = 0x486,0x7
0487 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0xc = 0x487,0x8
0488 0217       |    |		Execute	Heap_Access,All_Reference
0489 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
048a 0217       |    |		Execute	Heap_Access,All_Reference
048b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
048c 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
048d e005       |    |		Load	0x0,0x5								; Debug Table 0x9.0xd = 0x48d,0x9
048e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
048f 00db       |    |		Load_Top	At_Offset_3
0490 0120       |    |		Execute	Any,Is_Value
0491 6803       |h   |		Jump_Zero	0x495
0492 e00a       |    |		Load	0x0,0xa
0493 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0494 7801       |x   |		Jump	0x496
0495 00db       |    |		Load_Top	At_Offset_3
0496 e5ff       |    |		Load	0x2,-0x1
0497 0217       |    |		Execute	Heap_Access,All_Reference
0498 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0499 e5fe       |    |		Load	0x2,-0x2
049a e406       |    |		Load	0x2,0x6
049b e00a       |    |		Load	0x0,0xa
049c 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
049d c404       |    |		Store	0x2,0x4
049e c402       |    |		Store	0x2,0x2
049f e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0xe = 0x49f,0xa
04a0 e002       |    |		Load	0x0,0x2
04a1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04a2 6803       |h   |		Jump_Zero	0x4a6
04a3 e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0xf = 0x4a3,0xb
04a4 a5fb       |    |		Store_Unchecked	0x2,-0x5
04a5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x9.0x10 = 0x4a5,0xc
04a6 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x11 = 0x4a6,0xd
04a7 0217       |    |		Execute	Heap_Access,All_Reference
04a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04a9 00d9       |    |		Load_Top	At_Offset_1
04aa e00b       |    |		Load	0x0,0xb
04ab 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04ac c403       |    |		Store	0x2,0x3
04ad 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x12 = 0x4ad,0xe
04ae e5ff       |    |		Load	0x2,-0x1
04af 0217       |    |		Execute	Heap_Access,All_Reference
04b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04b1 00da       |    |		Load_Top	At_Offset_2
04b2 e00b       |    |		Load	0x0,0xb
04b3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04b4 c403       |    |		Store	0x2,0x3
04b5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x13 = 0x4b5,0xf
04b6 e00b       |    |		Load	0x0,0xb
04b7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04b8 6803       |h   |		Jump_Zero	0x4bc
04b9 481e       |H   |		Short_Literal	0x1e							; Debug Table 0x9.0x14 = 0x4b9,0x10
04ba a5fb       |    |		Store_Unchecked	0x2,-0x5
04bb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x9.0x15 = 0x4bb,0x11
04bc 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x16 = 0x4bc,0x12
04bd e5ff       |    |		Load	0x2,-0x1
04be 0217       |    |		Execute	Heap_Access,All_Reference
04bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04c0 e403       |    |		Load	0x2,0x3
04c1 00db       |    |		Load_Top	At_Offset_3
04c2 e00b       |    |		Load	0x0,0xb
04c3 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04c4 e403       |    |		Load	0x2,0x3
04c5 e406       |    |		Load	0x2,0x6
04c6 e00b       |    |		Load	0x0,0xb
04c7 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04c8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x17 = 0x4c8,0x13
04c9 00db       |    |		Load_Top	At_Offset_3
04ca 00da       |    |		Load_Top	At_Offset_2
04cb e00a       |    |		Load	0x0,0xa
04cc 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04cd 00d1       |    |		Pop_Control	Pop_Count_1
04ce 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x18 = 0x4ce,0x14
04cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04d0 a5fc       |    |		Store_Unchecked	0x2,-0x4
04d1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x19 = 0x4d1,0x15
04d2 a5fb       |    |		Store_Unchecked	0x2,-0x5
04d3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04d4			TRAP_0458:
04d4 0007       |    |		Action	Break_Optional
04d5 e005       |    |		Load	0x0,0x5								; Debug Table 0x9.0x1a = 0x4d5,0x16
04d6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04d7 4801       |H   |		Short_Literal	0x1
04d8 00db       |    |		Load_Top	At_Offset_3
04d9 e008       |    |		Load	0x0,0x8
04da 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04db c402       |    |		Store	0x2,0x2
04dc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x1b = 0x4dc,0x17
04dd 0101       |    |		Execute	Exception,Reraise
04de 0000 0000  |    |		.XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3       |    |		.CONST	0x04e3								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0001       |    |		.CONST	0x0001								; Number of locals
04e3			BODY_04e0:
04e3			INIT_04e0:
04e3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x04e3,0x0750,0x0002,0x0000,0x0057,0x7a05,0x0000,0x000b
													; Debug Table 0xa.0x0 = 0x4e3,0x1
04e4 e002       |    |		Load	0x0,0x2
04e5 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
04e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04e7 e002       |    |		Load	0x0,0x2
04e8 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
04e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04eb 0000 0000  |    |		.BLANK	0000[0x5]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug Table
04f0 ; --------------------------------------------------------------------------------------
04f0 0003 000b  |    |		.CONST	0x0003,0x000b
04f2 000b 054a  |   J|		.DEBUG	0x000b,0x054a,0x0000,0x0000,0x0057,0x79c5,0x0000,0x0415
04fa 001c 055c  |   \|		.DEBUG	0x001c,0x055c,0x0000,0x0000,0x0057,0x7a05,0x0000,0x000a
0502 0033 0570  | 3 p|		.DEBUG	0x0033,0x0570,0x0001,0x0000,0x0057,0x79c5,0x0000,0x0416
050a 005b 057c  | [ ||		.DEBUG	0x005b,0x057c,0x0001,0x0000,0x0057,0x79c5,0x0000,0x042b
0512 00bb 059a  |    |		.DEBUG	0x00bb,0x059a,0x0001,0x0000,0x0057,0x79c5,0x0000,0x0442
051a 0103 05be  |    |		.DEBUG	0x0103,0x05be,0x2801,0x0002,0x0057,0x79c5,0x0000,0x0459
0522 014b 05e2  | K  |		.DEBUG	0x014b,0x05e2,0x0001,0x0000,0x0057,0x79c5,0x0000,0x0474
052a 023b 0642  | ; B|		.DEBUG	0x023b,0x0642,0x0001,0x0000,0x0057,0x79c5,0x0000,0x048d
0532 0383 06be  |    |		.DEBUG	0x0383,0x06be,0x0001,0x0000,0x0057,0x79c5,0x0000,0x04ac
053a 045b 0716  | [  |		.DEBUG	0x045b,0x0716,0x0001,0x0000,0x0057,0x79c5,0x0000,0x04c0
0542 04e3 0750  |   P|		.DEBUG	0x04e3,0x0750,0x0002,0x0000,0x0057,0x7a05,0x0000,0x000b
054a ; --------------------------------------------------------------------------------------
054a ; Debug3 Subtable 0x0
054a ; --------------------------------------------------------------------------------------
054a 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
054c 000b ffff  |    |		.CONST	0x000b,0xffff
054e 000d fffe  |    |		.CONST	0x000d,0xfffe
0550 000f fffd  |    |		.CONST	0x000f,0xfffd
0552 0011 fffc  |    |		.CONST	0x0011,0xfffc
0554 0013 fffb  |    |		.CONST	0x0013,0xfffb
0556 0015 fffa  |    |		.CONST	0x0015,0xfffa
0558 0017 fff9  |    |		.CONST	0x0017,0xfff9
055a 0019 fff8  |    |		.CONST	0x0019,0xfff8
055c ; --------------------------------------------------------------------------------------
055c ; Debug3 Subtable 0x1
055c ; --------------------------------------------------------------------------------------
055c 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
055e 001c ffff  |    |		.CONST	0x001c,0xffff
0560 001e fffe  |    |		.CONST	0x001e,0xfffe
0562 0020 fffd  |    |		.CONST	0x0020,0xfffd
0564 0022 fffc  | "  |		.CONST	0x0022,0xfffc
0566 0024 fffb  | $  |		.CONST	0x0024,0xfffb
0568 0026 fffa  | &  |		.CONST	0x0026,0xfffa
056a 0028 fff9  | (  |		.CONST	0x0028,0xfff9
056c 002a fff8  | *  |		.CONST	0x002a,0xfff8
056e 002c fff7  | ,  |		.CONST	0x002c,0xfff7
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug3 Subtable 0x2
0570 ; --------------------------------------------------------------------------------------
0570 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0572 0033 ffff  | 3  |		.CONST	0x0033,0xffff
0574 0038 0001  | 8  |		.CONST	0x0038,0x0001
0576 003f 0002  | ?  |		.CONST	0x003f,0x0002
0578 0047 0003  | G  |		.CONST	0x0047,0x0003
057a 0052 0004  | R  |		.CONST	0x0052,0x0004
057c ; --------------------------------------------------------------------------------------
057c ; Debug3 Subtable 0x3
057c ; --------------------------------------------------------------------------------------
057c 0004 000a  |    |		.DBG3TAB	0x0004,0x000a
057e 005b ffff  | [  |		.CONST	0x005b,0xffff
0580 0060 fffe  | `  |		.CONST	0x0060,0xfffe
0582 0065 fffd  | e  |		.CONST	0x0065,0xfffd
0584 006a fffc  | j  |		.CONST	0x006a,0xfffc
0586 006c 0001  | l  |		.CONST	0x006c,0x0001
0588 007b 0002  | {  |		.CONST	0x007b,0x0002
058a 007f 0003  |    |		.CONST	0x007f,0x0003
058c 0081 0004  |    |		.CONST	0x0081,0x0004
058e 0082 0005  |    |		.CONST	0x0082,0x0005
0590 0092 0006  |    |		.CONST	0x0092,0x0006
0592 0096 0007  |    |		.CONST	0x0096,0x0007
0594 009d 0008  |    |		.CONST	0x009d,0x0008
0596 00a5 0009  |    |		.CONST	0x00a5,0x0009
0598 00b0 000a  |    |		.CONST	0x00b0,0x000a
059a ; --------------------------------------------------------------------------------------
059a ; Debug3 Subtable 0x4
059a ; --------------------------------------------------------------------------------------
059a 0003 000e  |    |		.DBG3TAB	0x0003,0x000e
059c 00bb ffff  |    |		.CONST	0x00bb,0xffff
059e 00c0 fffe  |    |		.CONST	0x00c0,0xfffe
05a0 00c2 fffd  |    |		.CONST	0x00c2,0xfffd
05a2 00c4 0001  |    |		.CONST	0x00c4,0x0001
05a4 00c6 0002  |    |		.CONST	0x00c6,0x0002
05a6 00c8 0003  |    |		.CONST	0x00c8,0x0003
05a8 00c9 0004  |    |		.CONST	0x00c9,0x0004
05aa 00cc 0005  |    |		.CONST	0x00cc,0x0005
05ac 00ce 0006  |    |		.CONST	0x00ce,0x0006
05ae 00cf 0007  |    |		.CONST	0x00cf,0x0007
05b0 00d5 0008  |    |		.CONST	0x00d5,0x0008
05b2 00e0 0009  |    |		.CONST	0x00e0,0x0009
05b4 00e4 000a  |    |		.CONST	0x00e4,0x000a
05b6 00e6 000b  |    |		.CONST	0x00e6,0x000b
05b8 00e8 000c  |    |		.CONST	0x00e8,0x000c
05ba 00ee 000d  |    |		.CONST	0x00ee,0x000d
05bc 00f8 000e  |    |		.CONST	0x00f8,0x000e
05be ; --------------------------------------------------------------------------------------
05be ; Debug3 Subtable 0x5
05be ; --------------------------------------------------------------------------------------
05be 0003 000e  |    |		.DBG3TAB	0x0003,0x000e
05c0 0103 ffff  |    |		.CONST	0x0103,0xffff
05c2 0108 fffe  |    |		.CONST	0x0108,0xfffe
05c4 010a fffd  |    |		.CONST	0x010a,0xfffd
05c6 010c 0001  |    |		.CONST	0x010c,0x0001
05c8 010e 0002  |    |		.CONST	0x010e,0x0002
05ca 0110 0003  |    |		.CONST	0x0110,0x0003
05cc 0111 0004  |    |		.CONST	0x0111,0x0004
05ce 0114 0005  |    |		.CONST	0x0114,0x0005
05d0 0116 0006  |    |		.CONST	0x0116,0x0006
05d2 0117 0007  |    |		.CONST	0x0117,0x0007
05d4 011d 0008  |    |		.CONST	0x011d,0x0008
05d6 0128 0009  | (  |		.CONST	0x0128,0x0009
05d8 012c 000a  | ,  |		.CONST	0x012c,0x000a
05da 012e 000b  | .  |		.CONST	0x012e,0x000b
05dc 0130 000c  | 0  |		.CONST	0x0130,0x000c
05de 0136 000d  | 6  |		.CONST	0x0136,0x000d
05e0 013e 000e  | >  |		.CONST	0x013e,0x000e
05e2 ; --------------------------------------------------------------------------------------
05e2 ; Debug3 Subtable 0x6
05e2 ; --------------------------------------------------------------------------------------
05e2 0006 0029  |   )|		.DBG3TAB	0x0006,0x0029
05e4 014b ffff  | K  |		.CONST	0x014b,0xffff
05e6 0150 fffe  | P  |		.CONST	0x0150,0xfffe
05e8 0155 fffd  | U  |		.CONST	0x0155,0xfffd
05ea 015a fffc  | Z  |		.CONST	0x015a,0xfffc
05ec 015f fffb  | _  |		.CONST	0x015f,0xfffb
05ee 0161 fffa  | a  |		.CONST	0x0161,0xfffa
05f0 0163 0001  | c  |		.CONST	0x0163,0x0001
05f2 0165 0002  | e  |		.CONST	0x0165,0x0002
05f4 016b 0003  | k  |		.CONST	0x016b,0x0003
05f6 016d 0004  | m  |		.CONST	0x016d,0x0004
05f8 016e 0005  | n  |		.CONST	0x016e,0x0005
05fa 0176 0006  | v  |		.CONST	0x0176,0x0006
05fc 0178 0007  | x  |		.CONST	0x0178,0x0007
05fe 0179 0008  | y  |		.CONST	0x0179,0x0008
0600 017f 0009  |    |		.CONST	0x017f,0x0009
0602 0187 000a  |    |		.CONST	0x0187,0x000a
0604 0190 000b  |    |		.CONST	0x0190,0x000b
0606 0194 000c  |    |		.CONST	0x0194,0x000c
0608 0196 000d  |    |		.CONST	0x0196,0x000d
060a 0197 000e  |    |		.CONST	0x0197,0x000e
060c 01aa 000f  |    |		.CONST	0x01aa,0x000f
060e 01ae 0010  |    |		.CONST	0x01ae,0x0010
0610 01b0 0011  |    |		.CONST	0x01b0,0x0011
0612 01b1 0012  |    |		.CONST	0x01b1,0x0012
0614 01b7 0013  |    |		.CONST	0x01b7,0x0013
0616 01be 0014  |    |		.CONST	0x01be,0x0014
0618 01c0 0015  |    |		.CONST	0x01c0,0x0015
061a 01c1 0016  |    |		.CONST	0x01c1,0x0016
061c 01d2 0017  |    |		.CONST	0x01d2,0x0017
061e 01d6 0018  |    |		.CONST	0x01d6,0x0018
0620 01d8 0019  |    |		.CONST	0x01d8,0x0019
0622 01df 001a  |    |		.CONST	0x01df,0x001a
0624 01e0 001b  |    |		.CONST	0x01e0,0x001b
0626 01e6 001c  |    |		.CONST	0x01e6,0x001c
0628 01e9 001d  |    |		.CONST	0x01e9,0x001d
062a 01ed 001e  |    |		.CONST	0x01ed,0x001e
062c 01ff 001f  |    |		.CONST	0x01ff,0x001f
062e 0203 0020  |    |		.CONST	0x0203,0x0020
0630 0205 0021  |   !|		.CONST	0x0205,0x0021
0632 020c 0022  |   "|		.CONST	0x020c,0x0022
0634 020d 0023  |   #|		.CONST	0x020d,0x0023
0636 0212 0024  |   $|		.CONST	0x0212,0x0024
0638 0217 0025  |   %|		.CONST	0x0217,0x0025
063a 0223 0026  | # &|		.CONST	0x0223,0x0026
063c 0226 0027  | & '|		.CONST	0x0226,0x0027
063e 022a 0028  | * (|		.CONST	0x022a,0x0028
0640 0231 0029  | 1 )|		.CONST	0x0231,0x0029
0642 ; --------------------------------------------------------------------------------------
0642 ; Debug3 Subtable 0x7
0642 ; --------------------------------------------------------------------------------------
0642 0008 0035  |   5|		.DBG3TAB	0x0008,0x0035
0644 023b ffff  | ;  |		.CONST	0x023b,0xffff
0646 0240 fffe  | @  |		.CONST	0x0240,0xfffe
0648 0245 fffd  | E  |		.CONST	0x0245,0xfffd
064a 024a fffc  | J  |		.CONST	0x024a,0xfffc
064c 024f fffb  | O  |		.CONST	0x024f,0xfffb
064e 0251 fffa  | Q  |		.CONST	0x0251,0xfffa
0650 0256 fff9  | V  |		.CONST	0x0256,0xfff9
0652 0258 fff8  | X  |		.CONST	0x0258,0xfff8
0654 025d 0001  | ]  |		.CONST	0x025d,0x0001
0656 025f 0002  | _  |		.CONST	0x025f,0x0002
0658 0265 0003  | e  |		.CONST	0x0265,0x0003
065a 0267 0004  | g  |		.CONST	0x0267,0x0004
065c 0268 0005  | h  |		.CONST	0x0268,0x0005
065e 0270 0006  | p  |		.CONST	0x0270,0x0006
0660 0272 0007  | r  |		.CONST	0x0272,0x0007
0662 0273 0008  | s  |		.CONST	0x0273,0x0008
0664 0279 0009  | y  |		.CONST	0x0279,0x0009
0666 0281 000a  |    |		.CONST	0x0281,0x000a
0668 0288 000b  |    |		.CONST	0x0288,0x000b
066a 028f 000c  |    |		.CONST	0x028f,0x000c
066c 0291 000d  |    |		.CONST	0x0291,0x000d
066e 0292 000e  |    |		.CONST	0x0292,0x000e
0670 0295 000f  |    |		.CONST	0x0295,0x000f
0672 0299 0010  |    |		.CONST	0x0299,0x0010
0674 029c 0011  |    |		.CONST	0x029c,0x0011
0676 02a4 0012  |    |		.CONST	0x02a4,0x0012
0678 02b6 0013  |    |		.CONST	0x02b6,0x0013
067a 02ba 0014  |    |		.CONST	0x02ba,0x0014
067c 02bc 0015  |    |		.CONST	0x02bc,0x0015
067e 02c3 0016  |    |		.CONST	0x02c3,0x0016
0680 02c4 0017  |    |		.CONST	0x02c4,0x0017
0682 02cb 0018  |    |		.CONST	0x02cb,0x0018
0684 02d5 0019  |    |		.CONST	0x02d5,0x0019
0686 02e7 001a  |    |		.CONST	0x02e7,0x001a
0688 02eb 001b  |    |		.CONST	0x02eb,0x001b
068a 02ed 001c  |    |		.CONST	0x02ed,0x001c
068c 02f4 001d  |    |		.CONST	0x02f4,0x001d
068e 02f5 001e  |    |		.CONST	0x02f5,0x001e
0690 02fb 001f  |    |		.CONST	0x02fb,0x001f
0692 0311 0020  |    |		.CONST	0x0311,0x0020
0694 0315 0021  |   !|		.CONST	0x0315,0x0021
0696 0317 0022  |   "|		.CONST	0x0317,0x0022
0698 031e 0023  |   #|		.CONST	0x031e,0x0023
069a 031f 0024  |   $|		.CONST	0x031f,0x0024
069c 0325 0025  | % %|		.CONST	0x0325,0x0025
069e 0337 0026  | 7 &|		.CONST	0x0337,0x0026
06a0 033b 0027  | ; '|		.CONST	0x033b,0x0027
06a2 033d 0028  | = (|		.CONST	0x033d,0x0028
06a4 0344 0029  | D )|		.CONST	0x0344,0x0029
06a6 0345 002a  | E *|		.CONST	0x0345,0x002a
06a8 034d 002b  | M +|		.CONST	0x034d,0x002b
06aa 0351 002c  | Q ,|		.CONST	0x0351,0x002c
06ac 0353 002d  | S -|		.CONST	0x0353,0x002d
06ae 035a 002e  | Z .|		.CONST	0x035a,0x002e
06b0 035b 002f  | [ /|		.CONST	0x035b,0x002f
06b2 035e 0030  | ^ 0|		.CONST	0x035e,0x0030
06b4 0363 0031  | c 1|		.CONST	0x0363,0x0031
06b6 0369 0032  | i 2|		.CONST	0x0369,0x0032
06b8 036b 0033  | k 3|		.CONST	0x036b,0x0033
06ba 0370 0034  | p 4|		.CONST	0x0370,0x0034
06bc 0377 0035  | w 5|		.CONST	0x0377,0x0035
06be ; --------------------------------------------------------------------------------------
06be ; Debug3 Subtable 0x8
06be ; --------------------------------------------------------------------------------------
06be 0005 0026  |   &|		.DBG3TAB	0x0005,0x0026
06c0 0383 ffff  |    |		.CONST	0x0383,0xffff
06c2 0385 fffe  |    |		.CONST	0x0385,0xfffe
06c4 038a fffd  |    |		.CONST	0x038a,0xfffd
06c6 038f fffc  |    |		.CONST	0x038f,0xfffc
06c8 0394 fffb  |    |		.CONST	0x0394,0xfffb
06ca 0396 0001  |    |		.CONST	0x0396,0x0001
06cc 039e 0002  |    |		.CONST	0x039e,0x0002
06ce 03a0 0003  |    |		.CONST	0x03a0,0x0003
06d0 03a1 0004  |    |		.CONST	0x03a1,0x0004
06d2 03a9 0005  |    |		.CONST	0x03a9,0x0005
06d4 03ab 0006  |    |		.CONST	0x03ab,0x0006
06d6 03ac 0007  |    |		.CONST	0x03ac,0x0007
06d8 03b2 0008  |    |		.CONST	0x03b2,0x0008
06da 03c5 0009  |    |		.CONST	0x03c5,0x0009
06dc 03c9 000a  |    |		.CONST	0x03c9,0x000a
06de 03cb 000b  |    |		.CONST	0x03cb,0x000b
06e0 03cc 000c  |    |		.CONST	0x03cc,0x000c
06e2 03d2 000d  |    |		.CONST	0x03d2,0x000d
06e4 03d8 000e  |    |		.CONST	0x03d8,0x000e
06e6 03da 000f  |    |		.CONST	0x03da,0x000f
06e8 03db 0010  |    |		.CONST	0x03db,0x0010
06ea 03e2 0011  |    |		.CONST	0x03e2,0x0011
06ec 03e4 0012  |    |		.CONST	0x03e4,0x0012
06ee 03e5 0013  |    |		.CONST	0x03e5,0x0013
06f0 03ef 0014  |    |		.CONST	0x03ef,0x0014
06f2 03f3 0015  |    |		.CONST	0x03f3,0x0015
06f4 03f5 0016  |    |		.CONST	0x03f5,0x0016
06f6 03fc 0017  |    |		.CONST	0x03fc,0x0017
06f8 03fd 0018  |    |		.CONST	0x03fd,0x0018
06fa 0404 0019  |    |		.CONST	0x0404,0x0019
06fc 040c 001a  |    |		.CONST	0x040c,0x001a
06fe 0410 001b  |    |		.CONST	0x0410,0x001b
0700 0417 001c  |    |		.CONST	0x0417,0x001c
0702 0419 001d  |    |		.CONST	0x0419,0x001d
0704 041a 001e  |    |		.CONST	0x041a,0x001e
0706 042c 001f  | ,  |		.CONST	0x042c,0x001f
0708 0430 0020  | 0  |		.CONST	0x0430,0x0020
070a 0432 0021  | 2 !|		.CONST	0x0432,0x0021
070c 0439 0022  | 9 "|		.CONST	0x0439,0x0022
070e 043a 0023  | : #|		.CONST	0x043a,0x0023
0710 0446 0024  | F $|		.CONST	0x0446,0x0024
0712 044a 0025  | J %|		.CONST	0x044a,0x0025
0714 0451 0026  | Q &|		.CONST	0x0451,0x0026
0716 ; --------------------------------------------------------------------------------------
0716 ; Debug3 Subtable 0x9
0716 ; --------------------------------------------------------------------------------------
0716 0005 0017  |    |		.DBG3TAB	0x0005,0x0017
0718 045b ffff  | [  |		.CONST	0x045b,0xffff
071a 045d fffe  | ]  |		.CONST	0x045d,0xfffe
071c 0462 fffd  | b  |		.CONST	0x0462,0xfffd
071e 0467 fffc  | g  |		.CONST	0x0467,0xfffc
0720 046c fffb  | l  |		.CONST	0x046c,0xfffb
0722 046e 0001  | n  |		.CONST	0x046e,0x0001
0724 0471 0002  | q  |		.CONST	0x0471,0x0002
0726 0479 0003  | y  |		.CONST	0x0479,0x0003
0728 047b 0004  | {  |		.CONST	0x047b,0x0004
072a 047c 0005  | |  |		.CONST	0x047c,0x0005
072c 0484 0006  |    |		.CONST	0x0484,0x0006
072e 0486 0007  |    |		.CONST	0x0486,0x0007
0730 0487 0008  |    |		.CONST	0x0487,0x0008
0732 048d 0009  |    |		.CONST	0x048d,0x0009
0734 049f 000a  |    |		.CONST	0x049f,0x000a
0736 04a3 000b  |    |		.CONST	0x04a3,0x000b
0738 04a5 000c  |    |		.CONST	0x04a5,0x000c
073a 04a6 000d  |    |		.CONST	0x04a6,0x000d
073c 04ad 000e  |    |		.CONST	0x04ad,0x000e
073e 04b5 000f  |    |		.CONST	0x04b5,0x000f
0740 04b9 0010  |    |		.CONST	0x04b9,0x0010
0742 04bb 0011  |    |		.CONST	0x04bb,0x0011
0744 04bc 0012  |    |		.CONST	0x04bc,0x0012
0746 04c8 0013  |    |		.CONST	0x04c8,0x0013
0748 04ce 0014  |    |		.CONST	0x04ce,0x0014
074a 04d1 0015  |    |		.CONST	0x04d1,0x0015
074c 04d5 0016  |    |		.CONST	0x04d5,0x0016
074e 04dc 0017  |    |		.CONST	0x04dc,0x0017
0750 ; --------------------------------------------------------------------------------------
0750 ; Debug3 Subtable 0xa
0750 ; --------------------------------------------------------------------------------------
0750 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0752 04e3 0001  |    |		.CONST	0x04e3,0x0001
0754 0000 0000  |    |		.BLANK	0000[0xac]