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

⟦53031757a⟧

    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 04f8       |    |		.CONST	0x04f8								; 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 010a       |    |		.CONST	0x010a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003d       | =  |		.CONST	0x003d								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0572,0x8000,0x0000,0x0058,0x6b75,0x0000,0x0015
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000d 0129       | )  |		Execute	Any,Make_Visible
000e e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e003       |    |		Load	0x0,0x3								; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0013 0129       | )  |		Execute	Any,Make_Visible
0014 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x0.0x3 = 0x14,0xfffc
0015 e004       |    |		Load	0x0,0x4
0016 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0017 e005       |    |		Load	0x0,0x5
0018 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0019 e006       |    |		Load	0x0,0x6
001a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001b e005       |    |		Load	0x0,0x5
001c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001d e006       |    |		Load	0x0,0x6
001e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001f e007       |    |		Load	0x0,0x7
0020 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0021 e008       |    |		Load	0x0,0x8
0022 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0023 00e1       |    |		Load_Encached	Boolean_Cache
0024 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0026 4809       |H   |		Short_Literal	0x9
0027 032e       | .  |		Declare_Type	Record,Defined,Visible
0028 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x28,0xfffb
002a 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x2a,0xfffa
002c 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x2c,0xfff9
002e 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x2e,0xfff8
0030 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x30,0xfff7
0032 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x32,0xfff6
0034 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x34,0xfff5
0036 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x36,0xfff4
0038 00bf       |    |		Action	Accept_Activation
0039 e009       |    |		Load	0x0,0x9								; Debug Table 0x1 = .DEBUG	0x0039,0x058c,0x8000,0x0000,0x0058,0x7245,0x0000,0x001f
													; Debug Table 0x1.0x0 = 0x39,0xffff
003a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003b e009       |    |		Load	0x0,0x9								; Debug Table 0x1.0x1 = 0x3b,0xfffe
003c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003d e009       |    |		Load	0x0,0x9								; Debug Table 0x1.0x2 = 0x3d,0xfffd
003e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x3f,0xfffc
0040 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x40,0xfffb
0041 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x41,0xfffa
0042 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x6 = 0x42,0xfff9
0043 4814       |H   |		Short_Literal	0x14
0044 00e9       |    |		Load_Encached	String_Cache
0045 0334       | 4  |		Declare_Variable	Array,With_Constraint
0046 5301       |S   |		Indirect_Literal	Any,0x348,{0x54686973, 0x20697320}
0047 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x47,0xfff8
0048 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x8 = 0x48,0xfff7
0049 4814       |H   |		Short_Literal	0x14
004a 00e9       |    |		Load_Encached	String_Cache
004b 035b       | [  |		Declare_Type	Array,Constrained
004c 00e3       |    |		Load_Encached	Natural_Cache
004d e20e       |    |		Load	0x1,0xe
004e e00a       |    |		Load	0x0,0xa
004f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0050 e00a       |    |		Load	0x0,0xa
0051 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0052 e00a       |    |		Load	0x0,0xa
0053 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0054 e00a       |    |		Load	0x0,0xa
0055 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0056 e00a       |    |		Load	0x0,0xa
0057 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0058 e00a       |    |		Load	0x0,0xa
0059 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
005a 00e2       |    |		Load_Encached	Integer_Cache
005b 00e2       |    |		Load_Encached	Integer_Cache
005c 00e2       |    |		Load_Encached	Integer_Cache
005d 00e2       |    |		Load_Encached	Integer_Cache
005e 00e2       |    |		Load_Encached	Integer_Cache
005f 00e2       |    |		Load_Encached	Integer_Cache
0060 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
0062 480f       |H   |		Short_Literal	0xf
0063 032d       | -  |		Declare_Type	Record,Defined
0064 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x9 = 0x64,0xfff6
0065 02a0       |    |		Declare_Subprogram	Null_Subprogram
0066 03ad       |    |		Declare_Type	Heap_Access,Defined
0067 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xa = 0x67,0xfff5
0068 62db       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0xb = 0x68,0xfff4
0069 48fc       |H   |		Short_Literal	0xfc
006a 00db       |    |		Load_Top	At_Offset_3
006b 00db       |    |		Load_Top	At_Offset_3
006c e008       |    |		Load	0x0,0x8
006d 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
006e 0387       |    |		Declare_Variable	Package
006f 00d8       |    |		Load_Top	At_Offset_0
0070 020f       |    |		Execute	Module,Activate
0071 62d2       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0xc = 0x71,0xfff3
0072 4905       |I   |		Short_Literal	0x105
0073 e21d       |    |		Load	0x1,0x1d
0074 e008       |    |		Load	0x0,0x8
0075 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0076 0387       |    |		Declare_Variable	Package
0077 00d8       |    |		Load_Top	At_Offset_0
0078 020f       |    |		Execute	Module,Activate
0079 029d 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call			; Debug Table 0x1.0xd = 0x79,0xfff2
007b 029d 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call			; Debug Table 0x1.0xe = 0x7b,0xfff1
007d 62c6       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0xf = 0x7d,0xfff0
007e 49ac       |I   |		Short_Literal	0x1ac
007f e219       |    |		Load	0x1,0x19
0080 0335       | 5  |		Declare_Variable	Array,Duplicate
0081 00d0       |    |		Action	Swap_Control
0082 00d1       |    |		Pop_Control	Pop_Count_1
0083 e21b       |    |		Load	0x1,0x1b
0084 00d8       |    |		Load_Top	At_Offset_0
0085 0120       |    |		Execute	Any,Is_Value
0086 7002       |p   |		Jump_Nonzero	0x89
0087 00d8       |    |		Load_Top	At_Offset_0
0088 011e       |    |		Execute	Any,Convert
0089 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008a e002       |    |		Load	0x0,0x2
008b 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
008c 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
008d 0387       |    |		Declare_Variable	Package
008e 00d8       |    |		Load_Top	At_Offset_0
008f 020f       |    |		Execute	Module,Activate
0090 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x10 = 0x90,0xffef
0091 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0092 e21a       |    |		Load	0x1,0x1a
0093 027f       |    |		Execute	Discrete,Equal
0094 7002       |p   |		Jump_Nonzero	0x97
0095 4887       |H   |		Short_Literal	0x87
0096 0257       | W  |		Execute	Discrete,Raise
0097 029d 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call			; Debug Table 0x1.0x11 = 0x97,0xffee
0099 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x12 = 0x99,0xffed
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 62a8       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0x13 = 0x9b,0xffec
009c 4a50       |JP  |		Short_Literal	0x250
009d e21d       |    |		Load	0x1,0x1d
009e e21e       |    |		Load	0x1,0x1e
009f e00b       |    |		Load	0x0,0xb
00a0 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00a1 0387       |    |		Declare_Variable	Package
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 020f       |    |		Execute	Module,Activate
00a4 629f       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0x14 = 0xa4,0xffeb
00a5 4a59       |JY  |		Short_Literal	0x259
00a6 e004       |    |		Load	0x0,0x4
00a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a8 e004       |    |		Load	0x0,0x4
00a9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00aa e00b       |    |		Load	0x0,0xb
00ab 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00ac 0387       |    |		Declare_Variable	Package
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 020f       |    |		Execute	Module,Activate
00af 6294       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0x15 = 0xaf,0xffea
00b0 4a66       |Jf  |		Short_Literal	0x266
00b1 e005       |    |		Load	0x0,0x5
00b2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b3 e005       |    |		Load	0x0,0x5
00b4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00b5 e00b       |    |		Load	0x0,0xb
00b6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00b7 0387       |    |		Declare_Variable	Package
00b8 00d8       |    |		Load_Top	At_Offset_0
00b9 020f       |    |		Execute	Module,Activate
00ba 6289       |b   |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0x16 = 0xba,0xffe9
00bb 4a73       |Js  |		Short_Literal	0x273
00bc e006       |    |		Load	0x0,0x6
00bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00be e006       |    |		Load	0x0,0x6
00bf 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00c0 e00b       |    |		Load	0x0,0xb
00c1 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00c2 0387       |    |		Declare_Variable	Package
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 020f       |    |		Execute	Module,Activate
00c5 627e       |b~  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}		; Debug Table 0x1.0x17 = 0xc5,0xffe8
00c6 4a80       |J   |		Short_Literal	0x280
00c7 e007       |    |		Load	0x0,0x7
00c8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c9 e007       |    |		Load	0x0,0x7
00ca 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00cb e00b       |    |		Load	0x0,0xb
00cc 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00cd 0387       |    |		Declare_Variable	Package
00ce 00d8       |    |		Load_Top	At_Offset_0
00cf 020f       |    |		Execute	Module,Activate
00d0 e00b       |    |		Load	0x0,0xb								; Debug Table 0x1.0x18 = 0xd0,0xffe7
00d1 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00d2 00c6       |    |		Action	Check_Subprogram_Elaborated
00d3 e004       |    |		Load	0x0,0x4
00d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d5 e004       |    |		Load	0x0,0x4
00d6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d7 626c       |bl  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}
00d8 4a8d       |J   |		Short_Literal	0x28d
00d9 4800       |H   |		Short_Literal	0x0
00da 0007       |    |		Action	Break_Optional
00db e00b       |    |		Load	0x0,0xb								; Debug Table 0x1.0x19 = 0xdb,0xffe6
00dc 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00dd 00c6       |    |		Action	Check_Subprogram_Elaborated
00de e005       |    |		Load	0x0,0x5
00df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e0 e005       |    |		Load	0x0,0x5
00e1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e2 6261       |ba  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}
00e3 4a9e       |J   |		Short_Literal	0x29e
00e4 4800       |H   |		Short_Literal	0x0
00e5 0007       |    |		Action	Break_Optional
00e6 e00b       |    |		Load	0x0,0xb								; Debug Table 0x1.0x1a = 0xe6,0xffe5
00e7 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00e8 00c6       |    |		Action	Check_Subprogram_Elaborated
00e9 e006       |    |		Load	0x0,0x6
00ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00eb e006       |    |		Load	0x0,0x6
00ec 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00ed 6256       |bV  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}
00ee 4aaf       |J   |		Short_Literal	0x2af
00ef 4800       |H   |		Short_Literal	0x0
00f0 0007       |    |		Action	Break_Optional
00f1 e00b       |    |		Load	0x0,0xb								; Debug Table 0x1.0x1b = 0xf1,0xffe4
00f2 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
00f3 00c6       |    |		Action	Check_Subprogram_Elaborated
00f4 e007       |    |		Load	0x0,0x7
00f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f6 e007       |    |		Load	0x0,0x7
00f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f8 624b       |bK  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00587245}
00f9 4ac0       |J   |		Short_Literal	0x2c0
00fa 4800       |H   |		Short_Literal	0x0
00fb 0007       |    |		Action	Break_Optional
00fc 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x1c = 0xfc,0xffe3
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x1d = 0xfe,0xffe2
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x1e = 0x100,0xffe1
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x1f = 0x102,0xffe0
0103 00c7       |    |		Action	Elaborate_Subprogram
0104 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x20 = 0x104,0xffdf
0105 00c7       |    |		Action	Elaborate_Subprogram
0106 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x21 = 0x106,0xffde
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x22 = 0x108,0xffdd
0109 00c7       |    |		Action	Elaborate_Subprogram
010a			BODY_0008:
010a 00bc       |    |		Action	Signal_Activated
010b 00bb       |    |		Action	Signal_Completion
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4608       |F   |		Jump_Case	0x9							; Debug Table 0x2 = .DEBUG	0x0113,0x05d4,0x0005,0x0000,0x0058,0x6b75,0x0000,0x0028
0114 7808       |x   |		Jump	0x11d								; case 0x0
0115 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0116 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0117 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0118 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0119 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
011a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
011b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
011c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
011d 00da       |    |		Load_Top	At_Offset_2
011e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
011f 0125       | %  |		Execute	Any,Set_Constraint
0120 00da       |    |		Load_Top	At_Offset_2
0121 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0122 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0123 00da       |    |		Load_Top	At_Offset_2
0124 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0125 0125       | %  |		Execute	Any,Set_Constraint
0126 00da       |    |		Load_Top	At_Offset_2
0127 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0128 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0129 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013f       | ?  |		.CONST	0x013f								; Address of begin
0131 016f       | o  |		.CONST	0x016f								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 e002       |    |		Load	0x0,0x2								; Debug Table 0x3 = .DEBUG	0x0133,0x05d6,0x0001,0x0000,0x0058,0x6b75,0x0000,0x0067
													; Debug Table 0x3.0x0 = 0x133,0xffff
0134 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0135 02c7       |    |		Declare_Variable	Any
0136 00d8       |    |		Load_Top	At_Offset_0
0137 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0138 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x1 = 0x138,0xfffe
0139 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
013a 02ff       |    |		Declare_Variable	Variant_Record
013b 00d8       |    |		Load_Top	At_Offset_0
013c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013d e20d       |    |		Load	0x1,0xd								; Debug Table 0x3.0x2 = 0x13d,0xfffd
013e 067e       | ~  |		Execute_Immediate	Set_Value_Unchecked,0x7e
013f			BODY_0130:
013f 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x3.0x3 = 0x13f,0x1
0140 a5fd       |    |		Store_Unchecked	0x2,-0x3
0141 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x4 = 0x141,0x2
0142 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0143 c5fe       |    |		Store	0x2,-0x2
0144 e00c       |    |		Load	0x0,0xc								; Debug Table 0x3.0x5 = 0x144,0x3
0145 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0146 00da       |    |		Load_Top	At_Offset_2
0147 e5ff       |    |		Load	0x2,-0x1
0148 e00c       |    |		Load	0x0,0xc
0149 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
014a 00d1       |    |		Pop_Control	Pop_Count_1
014b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
014c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x6 = 0x14c,0x4
014d 00d9       |    |		Load_Top	At_Offset_1
014e e001       |    |		Load	0x0,0x1
014f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0150 e00c       |    |		Load	0x0,0xc								; Debug Table 0x3.0x7 = 0x150,0x5
0151 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0152 00db       |    |		Load_Top	At_Offset_3
0153 0120       |    |		Execute	Any,Is_Value
0154 6803       |h   |		Jump_Zero	0x158
0155 e002       |    |		Load	0x0,0x2
0156 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0157 7801       |x   |		Jump	0x159
0158 00db       |    |		Load_Top	At_Offset_3
0159 00db       |    |		Load_Top	At_Offset_3
015a e00c       |    |		Load	0x0,0xc
015b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
015c c402       |    |		Store	0x2,0x2
015d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
015e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x8 = 0x15e,0x6
015f 00d9       |    |		Load_Top	At_Offset_1
0160 e001       |    |		Load	0x0,0x1
0161 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0162 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x9 = 0x162,0x7
0163 8224       | $  |		Call	0x1,0x24
0164 7005       |p   |		Jump_Nonzero	0x16a
0165 487b       |H{  |		Short_Literal	0x7b							; Debug Table 0x3.0xa = 0x165,0x8
0166 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0167 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0xb = 0x167,0x9
0168 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0169 0257       | W  |		Execute	Discrete,Raise
016a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0xc = 0x16a,0xa
016b c5fe       |    |		Store	0x2,-0x2
016c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0xd = 0x16c,0xb
016d a5fd       |    |		Store_Unchecked	0x2,-0x3
016e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
016f			TRAP_0130:
016f e001       |    |		Load	0x0,0x1
0170 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0171 010f       |    |		Execute	Exception,Equal
0172 6803       |h   |		Jump_Zero	0x176
0173 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0xe = 0x173,0xc
0174 a5fd       |    |		Store_Unchecked	0x2,-0x3
0175 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0176 0100       |    |		Execute	Exception,Raise
0177 0000       |    |		.XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 018c       |    |		.CONST	0x018c								; Address of begin
0179 0276       | v  |		.CONST	0x0276								; Address of exception handler
017a 0007       |    |		.CONST	0x0007								; Number of locals
017b			INIT_0178:
017b e20d       |    |		Load	0x1,0xd								; Debug Table 0x4 = .DEBUG	0x017b,0x05f6,0x0001,0x0000,0x0058,0x6b75,0x0000,0x0077
													; Debug Table 0x4.0x0 = 0x17b,0xffff
017c 067e       | ~  |		Execute_Immediate	Set_Value_Unchecked,0x7e
017d e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x1 = 0x17d,0xfffe
017e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017f e21d       |    |		Load	0x1,0x1d							; Debug Table 0x4.0x2 = 0x17f,0xfffd
0180 0322       | "  |		Declare_Variable	Record
0181 00d8       |    |		Load_Top	At_Offset_0
0182 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0183 e21e       |    |		Load	0x1,0x1e							; Debug Table 0x4.0x3 = 0x183,0xfffc
0184 0007       |    |		Action	Break_Optional
0185 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x4.0x4 = 0x185,0xfffb
0186 e00d       |    |		Load	0x0,0xd								; Debug Table 0x4.0x5 = 0x186,0xfffa
0187 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0188 02c7       |    |		Declare_Variable	Any
0189 e00d       |    |		Load	0x0,0xd
018a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
018b c407       |    |		Store	0x2,0x7
018c			BODY_0178:
018c 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x4.0x6 = 0x18c,0x1
018d a5fc       |    |		Store_Unchecked	0x2,-0x4
018e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x7 = 0x18e,0x2
018f e00d       |    |		Load	0x0,0xd
0190 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0191 012e       | .  |		Execute	Any,Not_Equal
0192 e5fd       |    |		Load	0x2,-0x3
0193 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0194 e00e       |    |		Load	0x0,0xe								; Debug Table 0x4.0x8 = 0x194,0x3
0195 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0196 e5fe       |    |		Load	0x2,-0x2
0197 e00d       |    |		Load	0x0,0xd
0198 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0199 c407       |    |		Store	0x2,0x7
019a e00c       |    |		Load	0x0,0xc								; Debug Table 0x4.0x9 = 0x19a,0x4
019b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019c e5fd       |    |		Load	0x2,-0x3
019d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
019e 0120       |    |		Execute	Any,Is_Value
019f 6803       |h   |		Jump_Zero	0x1a3
01a0 e002       |    |		Load	0x0,0x2
01a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a2 7802       |x   |		Jump	0x1a5
01a3 e5fd       |    |		Load	0x2,-0x3
01a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 e21a       |    |		Load	0x1,0x1a
01a7 e21b       |    |		Load	0x1,0x1b
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 e00c       |    |		Load	0x0,0xc
01aa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ab e5fd       |    |		Load	0x2,-0x3
01ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ad c402       |    |		Store	0x2,0x2
01ae 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xa = 0x1ae,0x5
01af e402       |    |		Load	0x2,0x2
01b0 e001       |    |		Load	0x0,0x1
01b1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b2 e008       |    |		Load	0x0,0x8								; Debug Table 0x4.0xb = 0x1b2,0x6
01b3 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01b4 e5fd       |    |		Load	0x2,-0x3
01b5 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01b6 4800       |H   |		Short_Literal	0x0
01b7 6188       |a   |		Indirect_Literal	Discrete,0x340,{0x00000000, 0x00004000}
01b8 e407       |    |		Load	0x2,0x7
01b9 4800       |H   |		Short_Literal	0x0
01ba e5fd       |    |		Load	0x2,-0x3
01bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01bc 4802       |H   |		Short_Literal	0x2
01bd e008       |    |		Load	0x0,0x8
01be 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01bf e5fd       |    |		Load	0x2,-0x3
01c0 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01c1 c403       |    |		Store	0x2,0x3
01c2 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0xc = 0x1c2,0x7
01c3 e00c       |    |		Load	0x0,0xc
01c4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c5 a402       |    |		Store_Unchecked	0x2,0x2
01c6 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xd = 0x1c6,0x8
01c7 e402       |    |		Load	0x2,0x2
01c8 e001       |    |		Load	0x0,0x1
01c9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ca 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xe = 0x1ca,0x9
01cb e008       |    |		Load	0x0,0x8
01cc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01cd e5fd       |    |		Load	0x2,-0x3
01ce 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01cf e220       |    |		Load	0x1,0x20
01d0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01d1 e008       |    |		Load	0x0,0x8								; Debug Table 0x4.0xf = 0x1d1,0xa
01d2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01d3 e5fd       |    |		Load	0x2,-0x3
01d4 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
01d5 e21f       |    |		Load	0x1,0x1f
01d6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01d8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x10 = 0x1d8,0xb
01d9 e225       | %  |		Load	0x1,0x25
01da 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01db 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01dc e21c       |    |		Load	0x1,0x1c							; Debug Table 0x4.0x11 = 0x1dc,0xc
01dd 00db       |    |		Load_Top	At_Offset_3
01de 0217       |    |		Execute	Heap_Access,All_Reference
01df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01e0 4802       |H   |		Short_Literal	0x2							; Debug Table 0x4.0x12 = 0x1e0,0xd
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 0217       |    |		Execute	Heap_Access,All_Reference
01e3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e4 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x13 = 0x1e4,0xe
01e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e6 00db       |    |		Load_Top	At_Offset_3
01e7 0217       |    |		Execute	Heap_Access,All_Reference
01e8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01e9 e004       |    |		Load	0x0,0x4								; Debug Table 0x4.0x14 = 0x1e9,0xf
01ea 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee 0217       |    |		Execute	Heap_Access,All_Reference
01ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f0 e5fd       |    |		Load	0x2,-0x3
01f1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f2 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x15 = 0x1f2,0x10
01f3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x16 = 0x1f3,0x11
01f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f5 0219       |    |		Execute	Heap_Access,All_Read
01f6 00d8       |    |		Load_Top	At_Offset_0
01f7 e004       |    |		Load	0x0,0x4
01f8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f9 00d2       |    |		Pop_Control	Pop_Count_2
01fa e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x17 = 0x1fa,0x12
01fb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01fc e226       | &  |		Load	0x1,0x26
01fd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01fe 00db       |    |		Load_Top	At_Offset_3
01ff 0217       |    |		Execute	Heap_Access,All_Reference
0200 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0201 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x18 = 0x201,0x13
0202 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0203 00da       |    |		Load_Top	At_Offset_2
0204 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0205 00d8       |    |		Load_Top	At_Offset_0
0206 0217       |    |		Execute	Heap_Access,All_Reference
0207 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0208 e5fd       |    |		Load	0x2,-0x3
0209 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
020a 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x19 = 0x20a,0x14
020b e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x1a = 0x20b,0x15
020c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
020d e227       | '  |		Load	0x1,0x27
020e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
020f 00db       |    |		Load_Top	At_Offset_3
0210 0217       |    |		Execute	Heap_Access,All_Reference
0211 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0212 e006       |    |		Load	0x0,0x6								; Debug Table 0x4.0x1b = 0x212,0x16
0213 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0214 00da       |    |		Load_Top	At_Offset_2
0215 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0216 00d8       |    |		Load_Top	At_Offset_0
0217 0217       |    |		Execute	Heap_Access,All_Reference
0218 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0219 e5fd       |    |		Load	0x2,-0x3
021a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
021b 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x1c = 0x21b,0x17
021c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x1d = 0x21c,0x18
021d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
021e e228       | (  |		Load	0x1,0x28
021f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0220 00db       |    |		Load_Top	At_Offset_3
0221 0217       |    |		Execute	Heap_Access,All_Reference
0222 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0223 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x1e = 0x223,0x19
0224 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0225 00da       |    |		Load_Top	At_Offset_2
0226 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0227 00d8       |    |		Load_Top	At_Offset_0
0228 0217       |    |		Execute	Heap_Access,All_Reference
0229 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022a e5fd       |    |		Load	0x2,-0x3
022b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
022c 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x1f = 0x22c,0x1a
022d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x20 = 0x22d,0x1b
022e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
022f e227       | '  |		Load	0x1,0x27
0230 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0231 00db       |    |		Load_Top	At_Offset_3
0232 0217       |    |		Execute	Heap_Access,All_Reference
0233 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0234 e006       |    |		Load	0x0,0x6								; Debug Table 0x4.0x21 = 0x234,0x1c
0235 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0236 00da       |    |		Load_Top	At_Offset_2
0237 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0238 00d8       |    |		Load_Top	At_Offset_0
0239 0217       |    |		Execute	Heap_Access,All_Reference
023a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
023b e5fd       |    |		Load	0x2,-0x3
023c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
023d 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x22 = 0x23d,0x1d
023e e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x23 = 0x23e,0x1e
023f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0240 e228       | (  |		Load	0x1,0x28
0241 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0242 00db       |    |		Load_Top	At_Offset_3
0243 0217       |    |		Execute	Heap_Access,All_Reference
0244 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0245 e007       |    |		Load	0x0,0x7								; Debug Table 0x4.0x24 = 0x245,0x1f
0246 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0247 00da       |    |		Load_Top	At_Offset_2
0248 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0249 e5fd       |    |		Load	0x2,-0x3
024a 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
024b 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x25 = 0x24b,0x20
024c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x26 = 0x24c,0x21
024d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
024e 0219       |    |		Execute	Heap_Access,All_Read
024f 00d8       |    |		Load_Top	At_Offset_0
0250 00db       |    |		Load_Top	At_Offset_3
0251 e007       |    |		Load	0x0,0x7
0252 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0253 00d2       |    |		Pop_Control	Pop_Count_2
0254 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x27 = 0x254,0x22
0255 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0256 e229       | )  |		Load	0x1,0x29
0257 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0258 00db       |    |		Load_Top	At_Offset_3
0259 0217       |    |		Execute	Heap_Access,All_Reference
025a 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
025b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x28 = 0x25b,0x23
025c 00db       |    |		Load_Top	At_Offset_3
025d 0217       |    |		Execute	Heap_Access,All_Reference
025e 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
025f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x29 = 0x25f,0x24
0260 00db       |    |		Load_Top	At_Offset_3
0261 0217       |    |		Execute	Heap_Access,All_Reference
0262 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0263 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2a = 0x263,0x25
0264 00db       |    |		Load_Top	At_Offset_3
0265 0217       |    |		Execute	Heap_Access,All_Reference
0266 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0267 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2b = 0x267,0x26
0268 00db       |    |		Load_Top	At_Offset_3
0269 0217       |    |		Execute	Heap_Access,All_Reference
026a 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
026b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2c = 0x26b,0x27
026c 00db       |    |		Load_Top	At_Offset_3
026d 0217       |    |		Execute	Heap_Access,All_Reference
026e 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
026f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2d = 0x26f,0x28
0270 00db       |    |		Load_Top	At_Offset_3
0271 0217       |    |		Execute	Heap_Access,All_Reference
0272 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0273 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2e = 0x273,0x29
0274 a5fc       |    |		Store_Unchecked	0x2,-0x4
0275 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0276			TRAP_0178:
0276 e001       |    |		Load	0x0,0x1
0277 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0278 010f       |    |		Execute	Exception,Equal
0279 680d       |h   |		Jump_Zero	0x287
027a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x2f = 0x27a,0x2a
027b e00d       |    |		Load	0x0,0xd
027c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
027d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x30 = 0x27d,0x2b
027e 4801       |H   |		Short_Literal	0x1
027f 4800       |H   |		Short_Literal	0x0
0280 e5fe       |    |		Load	0x2,-0x2
0281 e00d       |    |		Load	0x0,0xd
0282 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0283 c407       |    |		Store	0x2,0x7
0284 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x31 = 0x284,0x2c
0285 a5fc       |    |		Store_Unchecked	0x2,-0x4
0286 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0287 0100       |    |		Execute	Exception,Raise
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0298       |    |		.CONST	0x0298								; Address of begin
0289 032c       | ,  |		.CONST	0x032c								; Address of exception handler
028a 0006       |    |		.CONST	0x0006								; Number of locals
028b			INIT_0288:
028b e20d       |    |		Load	0x1,0xd								; Debug Table 0x5 = .DEBUG	0x028b,0x065c,0x0001,0x0000,0x0058,0x6b75,0x0000,0x0090
													; Debug Table 0x5.0x0 = 0x28b,0xffff
028c 067e       | ~  |		Execute_Immediate	Set_Value_Unchecked,0x7e
028d e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0x1 = 0x28d,0xfffe
028e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028f e21e       |    |		Load	0x1,0x1e							; Debug Table 0x5.0x2 = 0x28f,0xfffd
0290 0007       |    |		Action	Break_Optional
0291 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x5.0x3 = 0x291,0xfffc
0292 e00d       |    |		Load	0x0,0xd								; Debug Table 0x5.0x4 = 0x292,0xfffb
0293 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0294 02c7       |    |		Declare_Variable	Any
0295 e00d       |    |		Load	0x0,0xd
0296 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0297 c406       |    |		Store	0x2,0x6
0298			BODY_0288:
0298 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x5.0x5 = 0x298,0x1
0299 a5fc       |    |		Store_Unchecked	0x2,-0x4
029a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x6 = 0x29a,0x2
029b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029c 8224       | $  |		Call	0x1,0x24
029d 7005       |p   |		Jump_Nonzero	0x2a3
029e 487b       |H{  |		Short_Literal	0x7b							; Debug Table 0x5.0x7 = 0x29e,0x3
029f a402       |    |		Store_Unchecked	0x2,0x2
02a0 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x8 = 0x2a0,0x4
02a1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02a2 0257       | W  |		Execute	Discrete,Raise
02a3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x9 = 0x2a3,0x5
02a4 7005       |p   |		Jump_Nonzero	0x2aa
02a5 4878       |Hx  |		Short_Literal	0x78							; Debug Table 0x5.0xa = 0x2a5,0x6
02a6 a402       |    |		Store_Unchecked	0x2,0x2
02a7 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0xb = 0x2a7,0x7
02a8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02a9 0257       | W  |		Execute	Discrete,Raise
02aa e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0xc = 0x2aa,0x8
02ab e00d       |    |		Load	0x0,0xd
02ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ad 012e       | .  |		Execute	Any,Not_Equal
02ae e5fd       |    |		Load	0x2,-0x3
02af 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02b0 e00e       |    |		Load	0x0,0xe								; Debug Table 0x5.0xd = 0x2b0,0x9
02b1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b2 e5fe       |    |		Load	0x2,-0x2
02b3 e00d       |    |		Load	0x0,0xd
02b4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02b5 c406       |    |		Store	0x2,0x6
02b6 e008       |    |		Load	0x0,0x8								; Debug Table 0x5.0xe = 0x2b6,0xa
02b7 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02b8 e5fd       |    |		Load	0x2,-0x3
02b9 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02ba 4800       |H   |		Short_Literal	0x0
02bb 6084       |`   |		Indirect_Literal	Discrete,0x340,{0x00000000, 0x00004000}
02bc e406       |    |		Load	0x2,0x6
02bd 4800       |H   |		Short_Literal	0x0
02be e5fd       |    |		Load	0x2,-0x3
02bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c0 e5ff       |    |		Load	0x2,-0x1
02c1 e003       |    |		Load	0x0,0x3
02c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02c3 01d7       |    |		Execute	Vector,Field_Read
02c4 e008       |    |		Load	0x0,0x8
02c5 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02c6 e5fd       |    |		Load	0x2,-0x3
02c7 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02c8 c403       |    |		Store	0x2,0x3
02c9 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xf = 0x2c9,0xb
02ca e00c       |    |		Load	0x0,0xc
02cb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02cc a402       |    |		Store_Unchecked	0x2,0x2
02cd 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x10 = 0x2cd,0xc
02ce e402       |    |		Load	0x2,0x2
02cf e001       |    |		Load	0x0,0x1
02d0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d1 e008       |    |		Load	0x0,0x8								; Debug Table 0x5.0x11 = 0x2d1,0xd
02d2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02d3 e5fd       |    |		Load	0x2,-0x3
02d4 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02d5 e21f       |    |		Load	0x1,0x1f
02d6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
02d8 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x12 = 0x2d8,0xe
02d9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02da 00db       |    |		Load_Top	At_Offset_3
02db 0217       |    |		Execute	Heap_Access,All_Reference
02dc 8221       | !  |		Call	0x1,0x21
02dd 7005       |p   |		Jump_Nonzero	0x2e3
02de 487b       |H{  |		Short_Literal	0x7b							; Debug Table 0x5.0x13 = 0x2de,0xf
02df a402       |    |		Store_Unchecked	0x2,0x2
02e0 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x14 = 0x2e0,0x10
02e1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02e2 0257       | W  |		Execute	Discrete,Raise
02e3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x15 = 0x2e3,0x11
02e4 e225       | %  |		Load	0x1,0x25
02e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02e6 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
02e7 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x16 = 0x2e7,0x12
02e8 0217       |    |		Execute	Heap_Access,All_Reference
02e9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02ea 00da       |    |		Load_Top	At_Offset_2
02eb e22a       | *  |		Load	0x1,0x2a
02ec e22b       | +  |		Load	0x1,0x2b
02ed 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02ee e00b       |    |		Load	0x0,0xb
02ef 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02f0 e5fd       |    |		Load	0x2,-0x3
02f1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02f2 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x17 = 0x2f2,0x13
02f3 0217       |    |		Execute	Heap_Access,All_Reference
02f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 e22f       | /  |		Load	0x1,0x2f
02f7 e230       | 0  |		Load	0x1,0x30
02f8 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
02f9 e00b       |    |		Load	0x0,0xb
02fa 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02fb e5fd       |    |		Load	0x2,-0x3
02fc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02fd 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x18 = 0x2fd,0x14
02fe 0217       |    |		Execute	Heap_Access,All_Reference
02ff 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0300 00da       |    |		Load_Top	At_Offset_2
0301 e234       | 4  |		Load	0x1,0x34
0302 e235       | 5  |		Load	0x1,0x35
0303 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0304 e00b       |    |		Load	0x0,0xb
0305 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0306 e5fd       |    |		Load	0x2,-0x3
0307 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0308 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x19 = 0x308,0x15
0309 0217       |    |		Execute	Heap_Access,All_Reference
030a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
030b 00da       |    |		Load_Top	At_Offset_2
030c e22f       | /  |		Load	0x1,0x2f
030d e230       | 0  |		Load	0x1,0x30
030e 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
030f e00b       |    |		Load	0x0,0xb
0310 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0311 e5fd       |    |		Load	0x2,-0x3
0312 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0313 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x1a = 0x313,0x16
0314 0217       |    |		Execute	Heap_Access,All_Reference
0315 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0316 00da       |    |		Load_Top	At_Offset_2
0317 e234       | 4  |		Load	0x1,0x34
0318 e235       | 5  |		Load	0x1,0x35
0319 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
031a e00b       |    |		Load	0x0,0xb
031b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
031c e5fd       |    |		Load	0x2,-0x3
031d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
031e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x1b = 0x31e,0x17
031f 0217       |    |		Execute	Heap_Access,All_Reference
0320 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0321 00da       |    |		Load_Top	At_Offset_2
0322 e239       | 9  |		Load	0x1,0x39
0323 e23a       | :  |		Load	0x1,0x3a
0324 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
0325 e00b       |    |		Load	0x0,0xb
0326 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0327 e5fd       |    |		Load	0x2,-0x3
0328 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0329 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x1c = 0x329,0x18
032a a5fc       |    |		Store_Unchecked	0x2,-0x4
032b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
032c			TRAP_0288:
032c e001       |    |		Load	0x0,0x1
032d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
032e 010f       |    |		Execute	Exception,Equal
032f 680d       |h   |		Jump_Zero	0x33d
0330 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x1d = 0x330,0x19
0331 e00d       |    |		Load	0x0,0xd
0332 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0333 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x1e = 0x333,0x1a
0334 4801       |H   |		Short_Literal	0x1
0335 4800       |H   |		Short_Literal	0x0
0336 e5fe       |    |		Load	0x2,-0x2
0337 e00d       |    |		Load	0x0,0xd
0338 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0339 c406       |    |		Store	0x2,0x6
033a e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x1f = 0x33a,0x1b
033b a5fc       |    |		Store_Unchecked	0x2,-0x4
033c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
033d 0100       |    |		Execute	Exception,Raise
033e 0000 0000  |    |		.XXX[0x2]
0340 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0344 0000 0000  |    |		.LITERAL	{0x00000000, 0x00587245}
0348 5468 6973  |This|		.LITERAL	{0x54686973, 0x20697320}
034c 6120 5665  |a Ve|		.XXX[0x8]
034e 6e74 7572  |ntur|
0350 652e 2020  |e.  |
0352 2020 2020  |    |
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035f       | _  |		.CONST	0x035f								; Address of begin
0359 0376       | v  |		.CONST	0x0376								; Address of exception handler
035a 0003       |    |		.CONST	0x0003								; Number of locals
035b			INIT_0358:
035b e20d       |    |		Load	0x1,0xd								; Debug Table 0x6 = .DEBUG	0x035b,0x069e,0x0001,0x0000,0x0058,0x6b75,0x0000,0x00a9
													; Debug Table 0x6.0x0 = 0x35b,0xffff
035c 067e       | ~  |		Execute_Immediate	Set_Value_Unchecked,0x7e
035d e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x1 = 0x35d,0xfffe
035e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035f			BODY_0358:
035f 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x6.0x2 = 0x35f,0x1
0360 a5fe       |    |		Store_Unchecked	0x2,-0x2
0361 e008       |    |		Load	0x0,0x8								; Debug Table 0x6.0x3 = 0x361,0x2
0362 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0363 e5ff       |    |		Load	0x2,-0x1
0364 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0365 4800       |H   |		Short_Literal	0x0
0366 e008       |    |		Load	0x0,0x8
0367 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0368 e5ff       |    |		Load	0x2,-0x1
0369 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
036a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
036b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x4 = 0x36b,0x3
036c e00c       |    |		Load	0x0,0xc
036d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
036e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
036f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x5 = 0x36f,0x4
0370 00da       |    |		Load_Top	At_Offset_2
0371 e001       |    |		Load	0x0,0x1
0372 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0373 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x6 = 0x373,0x5
0374 a5fe       |    |		Store_Unchecked	0x2,-0x2
0375 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0376			TRAP_0358:
0376 e001       |    |		Load	0x0,0x1
0377 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0378 010f       |    |		Execute	Exception,Equal
0379 6803       |h   |		Jump_Zero	0x37d
037a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x7 = 0x37a,0x6
037b a5fe       |    |		Store_Unchecked	0x2,-0x2
037c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
037d 0100       |    |		Execute	Exception,Raise
037e 0000 0000  |    |		.XXX[0x2]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038d       |    |		.CONST	0x038d								; Address of begin
0381 03fb       |    |		.CONST	0x03fb								; Address of exception handler
0382 0004       |    |		.CONST	0x0004								; Number of locals
0383			INIT_0380:
0383 e20d       |    |		Load	0x1,0xd								; Debug Table 0x7 = .DEBUG	0x0383,0x06b0,0x0001,0x0000,0x0058,0x6b75,0x0000,0x00b5
													; Debug Table 0x7.0x0 = 0x383,0xffff
0384 067e       | ~  |		Execute_Immediate	Set_Value_Unchecked,0x7e
0385 e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0x1 = 0x385,0xfffe
0386 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0387 e00d       |    |		Load	0x0,0xd								; Debug Table 0x7.0x2 = 0x387,0xfffd
0388 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0389 02c7       |    |		Declare_Variable	Any
038a e5ff       |    |		Load	0x2,-0x1
038b 8216       |    |		Call	0x1,0x16
038c c404       |    |		Store	0x2,0x4
038d			BODY_0380:
038d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x3 = 0x38d,0x1
038e 8217       |    |		Call	0x1,0x17
038f 4602       |F   |		Jump_Case	0x3
0390 784d       |xM  |		Jump	0x3de								; case 0x0
0391 784c       |xL  |		Jump	0x3de								; case 0x1
0392 7800       |x   |		Jump	0x393								; case 0x2
0393 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x4 = 0x393,0x2
0394 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0395 0219       |    |		Execute	Heap_Access,All_Read
0396 e005       |    |		Load	0x0,0x5
0397 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0398 00d9       |    |		Load_Top	At_Offset_1
0399 e005       |    |		Load	0x0,0x5
039a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
039b 00d1       |    |		Pop_Control	Pop_Count_1
039c c402       |    |		Store	0x2,0x2
039d 00d1       |    |		Pop_Control	Pop_Count_1
039e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x5 = 0x39e,0x3
039f 00db       |    |		Load_Top	At_Offset_3
03a0 e001       |    |		Load	0x0,0x1
03a1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03a2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x6 = 0x3a2,0x4
03a3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03a4 0219       |    |		Execute	Heap_Access,All_Read
03a5 e006       |    |		Load	0x0,0x6
03a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03a7 00d9       |    |		Load_Top	At_Offset_1
03a8 e006       |    |		Load	0x0,0x6
03a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03aa 00d1       |    |		Pop_Control	Pop_Count_1
03ab c402       |    |		Store	0x2,0x2
03ac 00d1       |    |		Pop_Control	Pop_Count_1
03ad 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x7 = 0x3ad,0x5
03ae 00db       |    |		Load_Top	At_Offset_3
03af e001       |    |		Load	0x0,0x1
03b0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03b1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x8 = 0x3b1,0x6
03b2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03b3 0219       |    |		Execute	Heap_Access,All_Read
03b4 e005       |    |		Load	0x0,0x5
03b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b6 00d9       |    |		Load_Top	At_Offset_1
03b7 e005       |    |		Load	0x0,0x5
03b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03b9 00d1       |    |		Pop_Control	Pop_Count_1
03ba c402       |    |		Store	0x2,0x2
03bb 00d1       |    |		Pop_Control	Pop_Count_1
03bc 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x9 = 0x3bc,0x7
03bd 00db       |    |		Load_Top	At_Offset_3
03be e001       |    |		Load	0x0,0x1
03bf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03c0 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xa = 0x3c0,0x8
03c1 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03c2 0219       |    |		Execute	Heap_Access,All_Read
03c3 e006       |    |		Load	0x0,0x6
03c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c5 00d9       |    |		Load_Top	At_Offset_1
03c6 e006       |    |		Load	0x0,0x6
03c7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c8 00d1       |    |		Pop_Control	Pop_Count_1
03c9 c402       |    |		Store	0x2,0x2
03ca 00d1       |    |		Pop_Control	Pop_Count_1
03cb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0xb = 0x3cb,0x9
03cc 00db       |    |		Load_Top	At_Offset_3
03cd e001       |    |		Load	0x0,0x1
03ce 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03cf e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xc = 0x3cf,0xa
03d0 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
03d1 0219       |    |		Execute	Heap_Access,All_Read
03d2 e007       |    |		Load	0x0,0x7
03d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d4 00d9       |    |		Load_Top	At_Offset_1
03d5 e007       |    |		Load	0x0,0x7
03d6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d7 00d1       |    |		Pop_Control	Pop_Count_1
03d8 c402       |    |		Store	0x2,0x2
03d9 00d1       |    |		Pop_Control	Pop_Count_1
03da 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0xd = 0x3da,0xb
03db 00db       |    |		Load_Top	At_Offset_3
03dc e001       |    |		Load	0x0,0x1
03dd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03de e008       |    |		Load	0x0,0x8								; Debug Table 0x7.0xe = 0x3de,0xd
03df 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03e0 e5ff       |    |		Load	0x2,-0x1
03e1 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
03e2 e008       |    |		Load	0x0,0x8
03e3 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03e4 e5ff       |    |		Load	0x2,-0x1
03e5 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
03e6 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03e7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0xf = 0x3e7,0xe
03e8 e00c       |    |		Load	0x0,0xc
03e9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ea 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
03eb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x10 = 0x3eb,0xf
03ec 00db       |    |		Load_Top	At_Offset_3
03ed e001       |    |		Load	0x0,0x1
03ee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03ef e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x11 = 0x3ef,0x10
03f0 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
03f1 7006       |p   |		Jump_Nonzero	0x3f8
03f2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x12 = 0x3f2,0x11
03f3 4801       |H   |		Short_Literal	0x1
03f4 4801       |H   |		Short_Literal	0x1
03f5 e00d       |    |		Load	0x0,0xd
03f6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03f7 c404       |    |		Store	0x2,0x4
03f8 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x13 = 0x3f8,0x12
03f9 a5fe       |    |		Store_Unchecked	0x2,-0x2
03fa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03fb			TRAP_0380:
03fb e00f       |    |		Load	0x0,0xf
03fc 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
03fd 010f       |    |		Execute	Exception,Equal
03fe 6809       |h   |		Jump_Zero	0x408
03ff 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x14 = 0x3ff,0x13
0400 4801       |H   |		Short_Literal	0x1
0401 4800       |H   |		Short_Literal	0x0
0402 e00d       |    |		Load	0x0,0xd
0403 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0404 c404       |    |		Store	0x2,0x4
0405 4877       |Hw  |		Short_Literal	0x77							; Debug Table 0x7.0x15 = 0x405,0x14
0406 a5fe       |    |		Store_Unchecked	0x2,-0x2
0407 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0408 e001       |    |		Load	0x0,0x1
0409 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
040a 010f       |    |		Execute	Exception,Equal
040b 6806       |h   |		Jump_Zero	0x412
040c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x16 = 0x40c,0x15
040d e00d       |    |		Load	0x0,0xd
040e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
040f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x17 = 0x40f,0x16
0410 a5fe       |    |		Store_Unchecked	0x2,-0x2
0411 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0412 0100       |    |		Execute	Exception,Raise
0413 0000 0000  |    |		.BLANK	0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x041b,0x06e2,0x0002,0x0000,0x0058,0x6b75,0x0000,0x00c1
													; Debug Table 0x8.0x0 = 0x41b,0x1
041c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
041d e008       |    |		Load	0x0,0x8
041e 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
041f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x0423,0x06e6,0x0002,0x0000,0x0058,0x6b75,0x0000,0x00cc
													; Debug Table 0x9.0x0 = 0x423,0x1
0424 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0425 e008       |    |		Load	0x0,0x8
0426 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0427 4603       |F   |		Jump_Case	0x4
0428 7805       |x   |		Jump	0x42e								; case 0x0
0429 7806       |x   |		Jump	0x430								; case 0x1
042a 7807       |x   |		Jump	0x432								; case 0x2
042b 7800       |x   |		Jump	0x42c								; case 0x3
042c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x1 = 0x42c,0x2
042d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x2 = 0x42e,0x3
042f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0430 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x9.0x3 = 0x430,0x4
0431 0257       | W  |		Execute	Discrete,Raise
0432 4802       |H   |		Short_Literal	0x2							; Debug Table 0x9.0x4 = 0x432,0x5
0433 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0434 0000 0000  |    |		.BLANK	0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x043b,0x06f2,0x0002,0x0000,0x0058,0x6b75,0x0000,0x00d5
													; Debug Table 0xa.0x0 = 0x43b,0x1
043c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
043d e008       |    |		Load	0x0,0x8
043e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
043f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 4608       |F   |		Jump_Case	0x9							; Debug Table 0xb = .DEBUG	0x0443,0x06f6,0x0005,0x0000,0x0058,0x7245,0x0000,0x0082
0444 7808       |x   |		Jump	0x44d								; case 0x0
0445 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0446 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0447 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0448 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0449 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
044a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
044b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
044c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
044d e21c       |    |		Load	0x1,0x1c
044e 00db       |    |		Load_Top	At_Offset_3
044f 00d9       |    |		Load_Top	At_Offset_1
0450 00d9       |    |		Load_Top	At_Offset_1
0451 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0452 0119       |    |		Execute	Any,Check_In_Formal_Type
0453 00d1       |    |		Pop_Control	Pop_Count_1
0454 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0455 4802       |H   |		Short_Literal	0x2
0456 00db       |    |		Load_Top	At_Offset_3
0457 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0458 00da       |    |		Load_Top	At_Offset_2
0459 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
045a 0125       | %  |		Execute	Any,Set_Constraint
045b e002       |    |		Load	0x0,0x2
045c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
045d 00db       |    |		Load_Top	At_Offset_3
045e 00d9       |    |		Load_Top	At_Offset_1
045f 00d9       |    |		Load_Top	At_Offset_1
0460 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0461 0119       |    |		Execute	Any,Check_In_Formal_Type
0462 00d1       |    |		Pop_Control	Pop_Count_1
0463 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0464 4800       |H   |		Short_Literal	0x0
0465 00db       |    |		Load_Top	At_Offset_3
0466 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0467 4800       |H   |		Short_Literal	0x0
0468 00db       |    |		Load_Top	At_Offset_3
0469 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
046a 4800       |H   |		Short_Literal	0x0
046b 00db       |    |		Load_Top	At_Offset_3
046c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
046d 4800       |H   |		Short_Literal	0x0
046e 00db       |    |		Load_Top	At_Offset_3
046f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0470 4800       |H   |		Short_Literal	0x0
0471 00db       |    |		Load_Top	At_Offset_3
0472 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0473 4800       |H   |		Short_Literal	0x0
0474 00db       |    |		Load_Top	At_Offset_3
0475 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0476 4800       |H   |		Short_Literal	0x0
0477 00db       |    |		Load_Top	At_Offset_3
0478 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0479 4800       |H   |		Short_Literal	0x0
047a 00db       |    |		Load_Top	At_Offset_3
047b 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
047c 4800       |H   |		Short_Literal	0x0
047d 00db       |    |		Load_Top	At_Offset_3
047e 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
047f 4800       |H   |		Short_Literal	0x0
0480 00db       |    |		Load_Top	At_Offset_3
0481 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0482 4800       |H   |		Short_Literal	0x0
0483 00db       |    |		Load_Top	At_Offset_3
0484 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0485 4800       |H   |		Short_Literal	0x0
0486 00db       |    |		Load_Top	At_Offset_3
0487 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0488 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0489 0000 0000  |    |		.BLANK	0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 04a3       |    |		.CONST	0x04a3								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x0493,0x06f8,0x0002,0x0000,0x0058,0x7245,0x0000,0x010d
													; Debug Table 0xc.0x0 = 0x493,0x1
0494 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0495 e21c       |    |		Load	0x1,0x1c
0496 01df       |    |		Execute	Vector,Equal
0497 6809       |h   |		Jump_Zero	0x4a1
0498 00da       |    |		Load_Top	At_Offset_2
0499 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
049a 0f02       |    |		Execute_Immediate	Equal,0x2
049b 6805       |h   |		Jump_Zero	0x4a1
049c 00da       |    |		Load_Top	At_Offset_2
049d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
049e e5fe       |    |		Load	0x2,-0x2
049f 012f       | /  |		Execute	Any,Equal
04a0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a1 4800       |H   |		Short_Literal	0x0
04a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a3			TRAP_0490:
04a3 0007       |    |		Action	Break_Optional
04a4 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x1 = 0x4a4,0x2
04a5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a6 0000 0000  |    |		.XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b7       |    |		.CONST	0x04b7								; Address of begin
04a9 04de       |    |		.CONST	0x04de								; Address of exception handler
04aa 0005       |    |		.CONST	0x0005								; Number of locals
04ab			INIT_04a8:
04ab e008       |    |		Load	0x0,0x8								; Debug Table 0xd = .DEBUG	0x04ab,0x06fe,0x0002,0x0000,0x0058,0x7245,0x0000,0x013e
													; Debug Table 0xd.0x0 = 0x4ab,0xffff
04ac 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04ad 02c7       |    |		Declare_Variable	Any
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b0 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x1 = 0x4b0,0xfffe
04b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04b2 e21d       |    |		Load	0x1,0x1d							; Debug Table 0xd.0x2 = 0x4b2,0xfffd
04b3 0322       | "  |		Declare_Variable	Record
04b4 00d8       |    |		Load_Top	At_Offset_0
04b5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b6 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xd.0x3 = 0x4b6,0xfffc
04b7			BODY_04a8:
04b7 00be       |    |		Action	Activate_Tasks
04b8 e008       |    |		Load	0x0,0x8								; Debug Table 0xd.0x4 = 0x4b8,0x1
04b9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
04ba e402       |    |		Load	0x2,0x2
04bb 4800       |H   |		Short_Literal	0x0
04bc 6683       |f   |		Indirect_Literal	Discrete,0x340,{0x00000000, 0x00004000}
04bd e00d       |    |		Load	0x0,0xd
04be 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04bf 4800       |H   |		Short_Literal	0x0
04c0 e5ff       |    |		Load	0x2,-0x1
04c1 4803       |H   |		Short_Literal	0x3
04c2 e008       |    |		Load	0x0,0x8
04c3 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04c4 c402       |    |		Store	0x2,0x2
04c5 005b       | [  |		Store_Top	Discrete,At_Offset_3
04c6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0x5 = 0x4c6,0x2
04c7 6802       |h   |		Jump_Zero	0x4ca
04c8 4887       |H   |		Short_Literal	0x87
04c9 0257       | W  |		Execute	Discrete,Raise
04ca e008       |    |		Load	0x0,0x8								; Debug Table 0xd.0x6 = 0x4ca,0x3
04cb 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04cc e402       |    |		Load	0x2,0x2
04cd e220       |    |		Load	0x1,0x20
04ce 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04cf 00da       |    |		Load_Top	At_Offset_2
04d0 017d       | }  |		Execute	Record,Structure_Write
04d1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x7 = 0x4d1,0x4
04d2 00da       |    |		Load_Top	At_Offset_2
04d3 8221       | !  |		Call	0x1,0x21
04d4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04d5 e008       |    |		Load	0x0,0x8								; Debug Table 0xd.0x8 = 0x4d5,0x5
04d6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
04d7 e402       |    |		Load	0x2,0x2
04d8 e008       |    |		Load	0x0,0x8
04d9 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04da c402       |    |		Store	0x2,0x2
04db 005b       | [  |		Store_Top	Discrete,At_Offset_3
04dc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x9 = 0x4dc,0x6
04dd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04de			TRAP_04a8:
04de 0007       |    |		Action	Break_Optional
04df e008       |    |		Load	0x0,0x8								; Debug Table 0xd.0xa = 0x4df,0x7
04e0 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
04e1 e402       |    |		Load	0x2,0x2
04e2 e008       |    |		Load	0x0,0x8
04e3 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04e4 c402       |    |		Store	0x2,0x2
04e5 c403       |    |		Store	0x2,0x3
04e6 4800       |H   |		Short_Literal	0x0							; Debug Table 0xd.0xb = 0x4e6,0x8
04e7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe = .DEBUG	0x04eb,0x0718,0x0002,0x0000,0x0058,0x7245,0x0000,0x01c2
													; Debug Table 0xe.0x0 = 0x4eb,0x1
04ec e002       |    |		Load	0x0,0x2
04ed 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
04ee e21a       |    |		Load	0x1,0x1a
04ef 027f       |    |		Execute	Discrete,Equal
04f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f1 0000 0000  |    |		.BLANK	0000[0x7]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug Table
04f8 ; --------------------------------------------------------------------------------------
04f8 0003 000f  |    |		.CONST	0x0003,0x000f
04fa 000b 0572  |   r|		.DEBUG	0x000b,0x0572,0x8000,0x0000,0x0058,0x6b75,0x0000,0x0015
0502 0039 058c  | 9  |		.DEBUG	0x0039,0x058c,0x8000,0x0000,0x0058,0x7245,0x0000,0x001f
050a 0113 05d4  |    |		.DEBUG	0x0113,0x05d4,0x0005,0x0000,0x0058,0x6b75,0x0000,0x0028
0512 0133 05d6  | 3  |		.DEBUG	0x0133,0x05d6,0x0001,0x0000,0x0058,0x6b75,0x0000,0x0067
051a 017b 05f6  | {  |		.DEBUG	0x017b,0x05f6,0x0001,0x0000,0x0058,0x6b75,0x0000,0x0077
0522 028b 065c  |   \|		.DEBUG	0x028b,0x065c,0x0001,0x0000,0x0058,0x6b75,0x0000,0x0090
052a 035b 069e  | [  |		.DEBUG	0x035b,0x069e,0x0001,0x0000,0x0058,0x6b75,0x0000,0x00a9
0532 0383 06b0  |    |		.DEBUG	0x0383,0x06b0,0x0001,0x0000,0x0058,0x6b75,0x0000,0x00b5
053a 041b 06e2  |    |		.DEBUG	0x041b,0x06e2,0x0002,0x0000,0x0058,0x6b75,0x0000,0x00c1
0542 0423 06e6  | #  |		.DEBUG	0x0423,0x06e6,0x0002,0x0000,0x0058,0x6b75,0x0000,0x00cc
054a 043b 06f2  | ;  |		.DEBUG	0x043b,0x06f2,0x0002,0x0000,0x0058,0x6b75,0x0000,0x00d5
0552 0443 06f6  | C  |		.DEBUG	0x0443,0x06f6,0x0005,0x0000,0x0058,0x7245,0x0000,0x0082
055a 0493 06f8  |    |		.DEBUG	0x0493,0x06f8,0x0002,0x0000,0x0058,0x7245,0x0000,0x010d
0562 04ab 06fe  |    |		.DEBUG	0x04ab,0x06fe,0x0002,0x0000,0x0058,0x7245,0x0000,0x013e
056a 04eb 0718  |    |		.DEBUG	0x04eb,0x0718,0x0002,0x0000,0x0058,0x7245,0x0000,0x01c2
0572 ; --------------------------------------------------------------------------------------
0572 ; Debug3 Subtable 0x0
0572 ; --------------------------------------------------------------------------------------
0572 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
0574 000b ffff  |    |		.CONST	0x000b,0xffff
0576 000e fffe  |    |		.CONST	0x000e,0xfffe
0578 0011 fffd  |    |		.CONST	0x0011,0xfffd
057a 0014 fffc  |    |		.CONST	0x0014,0xfffc
057c 0028 fffb  | (  |		.CONST	0x0028,0xfffb
057e 002a fffa  | *  |		.CONST	0x002a,0xfffa
0580 002c fff9  | ,  |		.CONST	0x002c,0xfff9
0582 002e fff8  | .  |		.CONST	0x002e,0xfff8
0584 0030 fff7  | 0  |		.CONST	0x0030,0xfff7
0586 0032 fff6  | 2  |		.CONST	0x0032,0xfff6
0588 0034 fff5  | 4  |		.CONST	0x0034,0xfff5
058a 0036 fff4  | 6  |		.CONST	0x0036,0xfff4
058c ; --------------------------------------------------------------------------------------
058c ; Debug3 Subtable 0x1
058c ; --------------------------------------------------------------------------------------
058c 0023 0000  | #  |		.DBG3TAB	0x0023,0x0000
058e 0039 ffff  | 9  |		.CONST	0x0039,0xffff
0590 003b fffe  | ;  |		.CONST	0x003b,0xfffe
0592 003d fffd  | =  |		.CONST	0x003d,0xfffd
0594 003f fffc  | ?  |		.CONST	0x003f,0xfffc
0596 0040 fffb  | @  |		.CONST	0x0040,0xfffb
0598 0041 fffa  | A  |		.CONST	0x0041,0xfffa
059a 0042 fff9  | B  |		.CONST	0x0042,0xfff9
059c 0047 fff8  | G  |		.CONST	0x0047,0xfff8
059e 0048 fff7  | H  |		.CONST	0x0048,0xfff7
05a0 0064 fff6  | d  |		.CONST	0x0064,0xfff6
05a2 0067 fff5  | g  |		.CONST	0x0067,0xfff5
05a4 0068 fff4  | h  |		.CONST	0x0068,0xfff4
05a6 0071 fff3  | q  |		.CONST	0x0071,0xfff3
05a8 0079 fff2  | y  |		.CONST	0x0079,0xfff2
05aa 007b fff1  | {  |		.CONST	0x007b,0xfff1
05ac 007d fff0  | }  |		.CONST	0x007d,0xfff0
05ae 0090 ffef  |    |		.CONST	0x0090,0xffef
05b0 0097 ffee  |    |		.CONST	0x0097,0xffee
05b2 0099 ffed  |    |		.CONST	0x0099,0xffed
05b4 009b ffec  |    |		.CONST	0x009b,0xffec
05b6 00a4 ffeb  |    |		.CONST	0x00a4,0xffeb
05b8 00af ffea  |    |		.CONST	0x00af,0xffea
05ba 00ba ffe9  |    |		.CONST	0x00ba,0xffe9
05bc 00c5 ffe8  |    |		.CONST	0x00c5,0xffe8
05be 00d0 ffe7  |    |		.CONST	0x00d0,0xffe7
05c0 00db ffe6  |    |		.CONST	0x00db,0xffe6
05c2 00e6 ffe5  |    |		.CONST	0x00e6,0xffe5
05c4 00f1 ffe4  |    |		.CONST	0x00f1,0xffe4
05c6 00fc ffe3  |    |		.CONST	0x00fc,0xffe3
05c8 00fe ffe2  |    |		.CONST	0x00fe,0xffe2
05ca 0100 ffe1  |    |		.CONST	0x0100,0xffe1
05cc 0102 ffe0  |    |		.CONST	0x0102,0xffe0
05ce 0104 ffdf  |    |		.CONST	0x0104,0xffdf
05d0 0106 ffde  |    |		.CONST	0x0106,0xffde
05d2 0108 ffdd  |    |		.CONST	0x0108,0xffdd
05d4 ; --------------------------------------------------------------------------------------
05d4 ; Debug3 Subtable 0x2
05d4 ; --------------------------------------------------------------------------------------
05d4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
05d6 ; --------------------------------------------------------------------------------------
05d6 ; Debug3 Subtable 0x3
05d6 ; --------------------------------------------------------------------------------------
05d6 0003 000c  |    |		.DBG3TAB	0x0003,0x000c
05d8 0133 ffff  | 3  |		.CONST	0x0133,0xffff
05da 0138 fffe  | 8  |		.CONST	0x0138,0xfffe
05dc 013d fffd  | =  |		.CONST	0x013d,0xfffd
05de 013f 0001  | ?  |		.CONST	0x013f,0x0001
05e0 0141 0002  | A  |		.CONST	0x0141,0x0002
05e2 0144 0003  | D  |		.CONST	0x0144,0x0003
05e4 014c 0004  | L  |		.CONST	0x014c,0x0004
05e6 0150 0005  | P  |		.CONST	0x0150,0x0005
05e8 015e 0006  | ^  |		.CONST	0x015e,0x0006
05ea 0162 0007  | b  |		.CONST	0x0162,0x0007
05ec 0165 0008  | e  |		.CONST	0x0165,0x0008
05ee 0167 0009  | g  |		.CONST	0x0167,0x0009
05f0 016a 000a  | j  |		.CONST	0x016a,0x000a
05f2 016c 000b  | l  |		.CONST	0x016c,0x000b
05f4 0173 000c  | s  |		.CONST	0x0173,0x000c
05f6 ; --------------------------------------------------------------------------------------
05f6 ; Debug3 Subtable 0x4
05f6 ; --------------------------------------------------------------------------------------
05f6 0006 002c  |   ,|		.DBG3TAB	0x0006,0x002c
05f8 017b ffff  | {  |		.CONST	0x017b,0xffff
05fa 017d fffe  | }  |		.CONST	0x017d,0xfffe
05fc 017f fffd  |    |		.CONST	0x017f,0xfffd
05fe 0183 fffc  |    |		.CONST	0x0183,0xfffc
0600 0185 fffb  |    |		.CONST	0x0185,0xfffb
0602 0186 fffa  |    |		.CONST	0x0186,0xfffa
0604 018c 0001  |    |		.CONST	0x018c,0x0001
0606 018e 0002  |    |		.CONST	0x018e,0x0002
0608 0194 0003  |    |		.CONST	0x0194,0x0003
060a 019a 0004  |    |		.CONST	0x019a,0x0004
060c 01ae 0005  |    |		.CONST	0x01ae,0x0005
060e 01b2 0006  |    |		.CONST	0x01b2,0x0006
0610 01c2 0007  |    |		.CONST	0x01c2,0x0007
0612 01c6 0008  |    |		.CONST	0x01c6,0x0008
0614 01ca 0009  |    |		.CONST	0x01ca,0x0009
0616 01d1 000a  |    |		.CONST	0x01d1,0x000a
0618 01d8 000b  |    |		.CONST	0x01d8,0x000b
061a 01dc 000c  |    |		.CONST	0x01dc,0x000c
061c 01e0 000d  |    |		.CONST	0x01e0,0x000d
061e 01e4 000e  |    |		.CONST	0x01e4,0x000e
0620 01e9 000f  |    |		.CONST	0x01e9,0x000f
0622 01f2 0010  |    |		.CONST	0x01f2,0x0010
0624 01f3 0011  |    |		.CONST	0x01f3,0x0011
0626 01fa 0012  |    |		.CONST	0x01fa,0x0012
0628 0201 0013  |    |		.CONST	0x0201,0x0013
062a 020a 0014  |    |		.CONST	0x020a,0x0014
062c 020b 0015  |    |		.CONST	0x020b,0x0015
062e 0212 0016  |    |		.CONST	0x0212,0x0016
0630 021b 0017  |    |		.CONST	0x021b,0x0017
0632 021c 0018  |    |		.CONST	0x021c,0x0018
0634 0223 0019  | #  |		.CONST	0x0223,0x0019
0636 022c 001a  | ,  |		.CONST	0x022c,0x001a
0638 022d 001b  | -  |		.CONST	0x022d,0x001b
063a 0234 001c  | 4  |		.CONST	0x0234,0x001c
063c 023d 001d  | =  |		.CONST	0x023d,0x001d
063e 023e 001e  | >  |		.CONST	0x023e,0x001e
0640 0245 001f  | E  |		.CONST	0x0245,0x001f
0642 024b 0020  | K  |		.CONST	0x024b,0x0020
0644 024c 0021  | L !|		.CONST	0x024c,0x0021
0646 0254 0022  | T "|		.CONST	0x0254,0x0022
0648 025b 0023  | [ #|		.CONST	0x025b,0x0023
064a 025f 0024  | _ $|		.CONST	0x025f,0x0024
064c 0263 0025  | c %|		.CONST	0x0263,0x0025
064e 0267 0026  | g &|		.CONST	0x0267,0x0026
0650 026b 0027  | k '|		.CONST	0x026b,0x0027
0652 026f 0028  | o (|		.CONST	0x026f,0x0028
0654 0273 0029  | s )|		.CONST	0x0273,0x0029
0656 027a 002a  | z *|		.CONST	0x027a,0x002a
0658 027d 002b  | } +|		.CONST	0x027d,0x002b
065a 0284 002c  |   ,|		.CONST	0x0284,0x002c
065c ; --------------------------------------------------------------------------------------
065c ; Debug3 Subtable 0x5
065c ; --------------------------------------------------------------------------------------
065c 0005 001b  |    |		.DBG3TAB	0x0005,0x001b
065e 028b ffff  |    |		.CONST	0x028b,0xffff
0660 028d fffe  |    |		.CONST	0x028d,0xfffe
0662 028f fffd  |    |		.CONST	0x028f,0xfffd
0664 0291 fffc  |    |		.CONST	0x0291,0xfffc
0666 0292 fffb  |    |		.CONST	0x0292,0xfffb
0668 0298 0001  |    |		.CONST	0x0298,0x0001
066a 029a 0002  |    |		.CONST	0x029a,0x0002
066c 029e 0003  |    |		.CONST	0x029e,0x0003
066e 02a0 0004  |    |		.CONST	0x02a0,0x0004
0670 02a3 0005  |    |		.CONST	0x02a3,0x0005
0672 02a5 0006  |    |		.CONST	0x02a5,0x0006
0674 02a7 0007  |    |		.CONST	0x02a7,0x0007
0676 02aa 0008  |    |		.CONST	0x02aa,0x0008
0678 02b0 0009  |    |		.CONST	0x02b0,0x0009
067a 02b6 000a  |    |		.CONST	0x02b6,0x000a
067c 02c9 000b  |    |		.CONST	0x02c9,0x000b
067e 02cd 000c  |    |		.CONST	0x02cd,0x000c
0680 02d1 000d  |    |		.CONST	0x02d1,0x000d
0682 02d8 000e  |    |		.CONST	0x02d8,0x000e
0684 02de 000f  |    |		.CONST	0x02de,0x000f
0686 02e0 0010  |    |		.CONST	0x02e0,0x0010
0688 02e3 0011  |    |		.CONST	0x02e3,0x0011
068a 02e7 0012  |    |		.CONST	0x02e7,0x0012
068c 02f2 0013  |    |		.CONST	0x02f2,0x0013
068e 02fd 0014  |    |		.CONST	0x02fd,0x0014
0690 0308 0015  |    |		.CONST	0x0308,0x0015
0692 0313 0016  |    |		.CONST	0x0313,0x0016
0694 031e 0017  |    |		.CONST	0x031e,0x0017
0696 0329 0018  | )  |		.CONST	0x0329,0x0018
0698 0330 0019  | 0  |		.CONST	0x0330,0x0019
069a 0333 001a  | 3  |		.CONST	0x0333,0x001a
069c 033a 001b  | :  |		.CONST	0x033a,0x001b
069e ; --------------------------------------------------------------------------------------
069e ; Debug3 Subtable 0x6
069e ; --------------------------------------------------------------------------------------
069e 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
06a0 035b ffff  | [  |		.CONST	0x035b,0xffff
06a2 035d fffe  | ]  |		.CONST	0x035d,0xfffe
06a4 035f 0001  | _  |		.CONST	0x035f,0x0001
06a6 0361 0002  | a  |		.CONST	0x0361,0x0002
06a8 036b 0003  | k  |		.CONST	0x036b,0x0003
06aa 036f 0004  | o  |		.CONST	0x036f,0x0004
06ac 0373 0005  | s  |		.CONST	0x0373,0x0005
06ae 037a 0006  | z  |		.CONST	0x037a,0x0006
06b0 ; --------------------------------------------------------------------------------------
06b0 ; Debug3 Subtable 0x7
06b0 ; --------------------------------------------------------------------------------------
06b0 0003 0015  |    |		.DBG3TAB	0x0003,0x0015
06b2 0383 ffff  |    |		.CONST	0x0383,0xffff
06b4 0385 fffe  |    |		.CONST	0x0385,0xfffe
06b6 0387 fffd  |    |		.CONST	0x0387,0xfffd
06b8 038d 0001  |    |		.CONST	0x038d,0x0001
06ba 0393 0002  |    |		.CONST	0x0393,0x0002
06bc 039e 0003  |    |		.CONST	0x039e,0x0003
06be 03a2 0004  |    |		.CONST	0x03a2,0x0004
06c0 03ad 0005  |    |		.CONST	0x03ad,0x0005
06c2 03b1 0006  |    |		.CONST	0x03b1,0x0006
06c4 03bc 0007  |    |		.CONST	0x03bc,0x0007
06c6 03c0 0008  |    |		.CONST	0x03c0,0x0008
06c8 03cb 0009  |    |		.CONST	0x03cb,0x0009
06ca 03cf 000a  |    |		.CONST	0x03cf,0x000a
06cc 03da 000b  |    |		.CONST	0x03da,0x000b
06ce 03de 000d  |    |		.CONST	0x03de,0x000d
06d0 03e7 000e  |    |		.CONST	0x03e7,0x000e
06d2 03eb 000f  |    |		.CONST	0x03eb,0x000f
06d4 03ef 0010  |    |		.CONST	0x03ef,0x0010
06d6 03f2 0011  |    |		.CONST	0x03f2,0x0011
06d8 03f8 0012  |    |		.CONST	0x03f8,0x0012
06da 03ff 0013  |    |		.CONST	0x03ff,0x0013
06dc 0405 0014  |    |		.CONST	0x0405,0x0014
06de 040c 0015  |    |		.CONST	0x040c,0x0015
06e0 040f 0016  |    |		.CONST	0x040f,0x0016
06e2 ; --------------------------------------------------------------------------------------
06e2 ; Debug3 Subtable 0x8
06e2 ; --------------------------------------------------------------------------------------
06e2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
06e4 041b 0001  |    |		.CONST	0x041b,0x0001
06e6 ; --------------------------------------------------------------------------------------
06e6 ; Debug3 Subtable 0x9
06e6 ; --------------------------------------------------------------------------------------
06e6 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
06e8 0423 0001  | #  |		.CONST	0x0423,0x0001
06ea 042c 0002  | ,  |		.CONST	0x042c,0x0002
06ec 042e 0003  | .  |		.CONST	0x042e,0x0003
06ee 0430 0004  | 0  |		.CONST	0x0430,0x0004
06f0 0432 0005  | 2  |		.CONST	0x0432,0x0005
06f2 ; --------------------------------------------------------------------------------------
06f2 ; Debug3 Subtable 0xa
06f2 ; --------------------------------------------------------------------------------------
06f2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
06f4 043b 0001  | ;  |		.CONST	0x043b,0x0001
06f6 ; --------------------------------------------------------------------------------------
06f6 ; Debug3 Subtable 0xb
06f6 ; --------------------------------------------------------------------------------------
06f6 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug3 Subtable 0xc
06f8 ; --------------------------------------------------------------------------------------
06f8 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
06fa 0493 0001  |    |		.CONST	0x0493,0x0001
06fc 04a4 0002  |    |		.CONST	0x04a4,0x0002
06fe ; --------------------------------------------------------------------------------------
06fe ; Debug3 Subtable 0xd
06fe ; --------------------------------------------------------------------------------------
06fe 0004 0008  |    |		.DBG3TAB	0x0004,0x0008
0700 04ab ffff  |    |		.CONST	0x04ab,0xffff
0702 04b0 fffe  |    |		.CONST	0x04b0,0xfffe
0704 04b2 fffd  |    |		.CONST	0x04b2,0xfffd
0706 04b6 fffc  |    |		.CONST	0x04b6,0xfffc
0708 04b8 0001  |    |		.CONST	0x04b8,0x0001
070a 04c6 0002  |    |		.CONST	0x04c6,0x0002
070c 04ca 0003  |    |		.CONST	0x04ca,0x0003
070e 04d1 0004  |    |		.CONST	0x04d1,0x0004
0710 04d5 0005  |    |		.CONST	0x04d5,0x0005
0712 04dc 0006  |    |		.CONST	0x04dc,0x0006
0714 04df 0007  |    |		.CONST	0x04df,0x0007
0716 04e6 0008  |    |		.CONST	0x04e6,0x0008
0718 ; --------------------------------------------------------------------------------------
0718 ; Debug3 Subtable 0xe
0718 ; --------------------------------------------------------------------------------------
0718 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
071a 04eb 0001  |    |		.CONST	0x04eb,0x0001
071c 0000 0000  |    |		.BLANK	0000[0xe4]