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

⟦0e8122745⟧

    Length: 5120 (0x1400)
    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 06d8       |    |		.CONST	0x06d8								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b7       |    |		.CONST	0x00b7								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0032       | 2  |		.CONST	0x0032								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18							; Debug Table 0x0 = .DEBUG	0x000b,0x07ca,0x8000,0x0000,0x0056,0xf175,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
													; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 4818       |H   |		Short_Literal	0x18							; Debug Table 0x0.0x4 = 0xd,0xfffb
000e 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000f e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x5 = 0xf,0xfffa
0010 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0011 0129       | )  |		Execute	Any,Make_Visible
0012 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x6 = 0x12,0xfff9
0013 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0014 0129       | )  |		Execute	Any,Make_Visible
0015 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x15,0xfff8
0017 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x17,0xfff7
0019 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x19,0xfff6
001b 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1b,0xfff5
001d 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x1d,0xfff4
001f 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x1f,0xfff3
0021 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x21,0xfff2
0023 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x23,0xfff1
0025 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x25,0xfff0
0027 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x27,0xffef
0029 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x29,0xffee
002b 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x2b,0xffed
002d 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x2d,0xffec
002f 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x2f,0xffeb
0031 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x15 = 0x31,0xffea
0033 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x16 = 0x33,0xffe9
0035 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x17 = 0x35,0xffe8
0037 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x18 = 0x37,0xffe7
0039 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x19 = 0x39,0xffe6
003b 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1a = 0x3b,0xffe5
003d 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1b = 0x3d,0xffe4
003f 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1c = 0x3f,0xffe3
0041 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1d = 0x41,0xffe2
0043 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0.0x1e = 0x43,0xffe1
0044 032a       | *  |		Declare_Type	Record,Incomplete
0045 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1f = 0x45,0xffe0
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 e20d       |    |		Load	0x1,0xd
0048 03c7       |    |		Complete_Type	Access,By_Defining
0049 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x20 = 0x49,0xffdf
004a 032a       | *  |		Declare_Type	Record,Incomplete
004b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x21 = 0x4b,0xffde
004c 02a0       |    |		Declare_Subprogram	Null_Subprogram
004d e20e       |    |		Load	0x1,0xe
004e 03c7       |    |		Complete_Type	Access,By_Defining
004f 00bf       |    |		Action	Accept_Activation
0050 e002       |    |		Load	0x0,0x2								; Debug Table 0x1 = .DEBUG	0x0050,0x0810,0x8000,0x0000,0x0056,0xf345,0x0000,0x0017
													; Debug Table 0x1.0x0 = 0x50,0xffff
0051 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0052 e002       |    |		Load	0x0,0x2
0053 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0054 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
0056 e228       | (  |		Load	0x1,0x28
0057 0326       | &  |		Complete_Type	Record,By_Defining
0058 e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0x1 = 0x58,0xfffe
0059 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
005a 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
005b 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
005d 00da       |    |		Load_Top	At_Offset_2
005e 0326       | &  |		Complete_Type	Record,By_Defining
005f e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x2 = 0x5f,0xfffd
0060 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0061 e004       |    |		Load	0x0,0x4								; Debug Table 0x1.0x3 = 0x61,0xfffc
0062 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0063 62c0       |b   |		Indirect_Literal	Discrete,0x324,{0x00000000, 0x0056f345}		; Debug Table 0x1.0x4 = 0x63,0xfffb
													; Debug Table 0x1.0x5 = 0x63,0xfffa
													; Debug Table 0x1.0x6 = 0x63,0xfff9
0064 4850       |HP  |		Short_Literal	0x50
0065 00e8       |    |		Load_Encached	Character_Cache
0066 e002       |    |		Load	0x0,0x2
0067 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0068 0387       |    |		Declare_Variable	Package
0069 00d8       |    |		Load_Top	At_Offset_0
006a 020f       |    |		Execute	Module,Activate
006b 62b8       |b   |		Indirect_Literal	Discrete,0x324,{0x00000000, 0x0056f345}		; Debug Table 0x1.0x7 = 0x6b,0xfff8
006c 4858       |HX  |		Short_Literal	0x58
006d e20f       |    |		Load	0x1,0xf
006e e002       |    |		Load	0x0,0x2
006f 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0070 0387       |    |		Declare_Variable	Package
0071 00d8       |    |		Load_Top	At_Offset_0
0072 020f       |    |		Execute	Module,Activate
0073 62b0       |b   |		Indirect_Literal	Discrete,0x324,{0x00000000, 0x0056f345}		; Debug Table 0x1.0x8 = 0x73,0xfff7
0074 4860       |H`  |		Short_Literal	0x60
0075 e22a       | *  |		Load	0x1,0x2a
0076 e002       |    |		Load	0x0,0x2
0077 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0078 0387       |    |		Declare_Variable	Package
0079 00d8       |    |		Load_Top	At_Offset_0
007a 020f       |    |		Execute	Module,Activate
007b 62a8       |b   |		Indirect_Literal	Discrete,0x324,{0x00000000, 0x0056f345}		; Debug Table 0x1.0x9 = 0x7b,0xfff6
007c 4868       |Hh  |		Short_Literal	0x68
007d e22b       | +  |		Load	0x1,0x2b
007e e002       |    |		Load	0x0,0x2
007f 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0080 0387       |    |		Declare_Variable	Package
0081 00d8       |    |		Load_Top	At_Offset_0
0082 020f       |    |		Execute	Module,Activate
0083 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xa = 0x83,0xfff5
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xb = 0x85,0xfff4
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xc = 0x87,0xfff3
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xd = 0x89,0xfff2
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xe = 0x8b,0xfff1
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xf = 0x8d,0xfff0
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x10 = 0x8f,0xffef
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x11 = 0x91,0xffee
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x12 = 0x93,0xffed
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x13 = 0x95,0xffec
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x14 = 0x97,0xffeb
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x15 = 0x99,0xffea
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x16 = 0x9b,0xffe9
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call			; Debug Table 0x1.0x17 = 0x9d,0xffe8
009f 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x18 = 0x9f,0xffe7
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x19 = 0xa1,0xffe6
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 029d 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call			; Debug Table 0x1.0x1a = 0xa3,0xffe5
00a5 029d 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call			; Debug Table 0x1.0x1b = 0xa5,0xffe4
00a7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x1c = 0xa7,0xffe3
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21				; Debug Table 0x1.0x1d = 0xa9,0xffe2
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22				; Debug Table 0x1.0x1e = 0xab,0xffe1
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23				; Debug Table 0x1.0x1f = 0xad,0xffe0
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24				; Debug Table 0x1.0x20 = 0xaf,0xffdf
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0x21 = 0xb1,0xffde
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26				; Debug Table 0x1.0x22 = 0xb3,0xffdd
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27				; Debug Table 0x1.0x23 = 0xb5,0xffdc
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7			BODY_0008:
00b7 00bc       |    |		Action	Signal_Activated
00b8 00bb       |    |		Action	Signal_Completion
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cc       |    |		.CONST	0x00cc								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 e003       |    |		Load	0x0,0x3								; Debug Table 0x2 = .DEBUG	0x00c3,0x085a,0x0001,0x0000,0x0056,0xf175,0x0000,0x0031
													; Debug Table 0x2.0x0 = 0xc3,0xffff
00c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c5 e20d       |    |		Load	0x1,0xd								; Debug Table 0x2.0x1 = 0xc5,0xfffe
00c6 e20d       |    |		Load	0x1,0xd
00c7 03bc       |    |		Declare_Variable	Access,By_Allocation
00c8 00d8       |    |		Load_Top	At_Offset_0
00c9 00e0       |    |		Load_Encached	Standard_Cache
00ca 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00cb 0039       | 9  |		Store_Top	Access,At_Offset_1
00cc			BODY_00c0:
00cc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x2 = 0xcc,0x1
00cd 0229       | )  |		Execute	Access,All_Read
00ce e002       |    |		Load	0x0,0x2
00cf 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d2 4800       |H   |		Short_Literal	0x0
00d3 624c       |bL  |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
00d4 e005       |    |		Load	0x0,0x5
00d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d6 e006       |    |		Load	0x0,0x6
00d7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d8 e002       |    |		Load	0x0,0x2
00d9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00da 4800       |H   |		Short_Literal	0x0
00db e5ff       |    |		Load	0x2,-0x1
00dc 4800       |H   |		Short_Literal	0x0
00dd e002       |    |		Load	0x0,0x2
00de 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00df 00da       |    |		Load_Top	At_Offset_2
00e0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e1 005b       | [  |		Store_Top	Discrete,At_Offset_3
00e2 00d1       |    |		Pop_Control	Pop_Count_1
00e3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x3 = 0xe3,0x2
00e4 e007       |    |		Load	0x0,0x7
00e5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00e6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x4 = 0xe6,0x3
00e7 a5fe       |    |		Store_Unchecked	0x2,-0x2
00e8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0112       |    |		.CONST	0x0112								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0008       |    |		.CONST	0x0008								; Number of locals
00f3			INIT_00f0:
00f3 e003       |    |		Load	0x0,0x3								; Debug Table 0x3 = .DEBUG	0x00f3,0x0866,0x0001,0x0000,0x0056,0xf175,0x0000,0x003d
													; Debug Table 0x3.0x0 = 0xf3,0xffff
00f4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00f5 02ff       |    |		Declare_Variable	Variant_Record
00f6 00d8       |    |		Load_Top	At_Offset_0
00f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f8 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x1 = 0xf8,0xfffe
00f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fa e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x2 = 0xfa,0xfffd
00fb 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00fd 02c7       |    |		Declare_Variable	Any
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0100 e20d       |    |		Load	0x1,0xd								; Debug Table 0x3.0x3 = 0x100,0xfffc
0101 e20d       |    |		Load	0x1,0xd
0102 03bc       |    |		Declare_Variable	Access,By_Allocation
0103 00d8       |    |		Load_Top	At_Offset_0
0104 00e0       |    |		Load_Encached	Standard_Cache
0105 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0106 0039       | 9  |		Store_Top	Access,At_Offset_1
0107 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x4 = 0x107,0xfffb
0108 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0109 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
010a e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x5 = 0x10a,0xfffa
010b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
010c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
010d e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x6 = 0x10d,0xfff9
010e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010f 02c7       |    |		Declare_Variable	Any
0110 00d8       |    |		Load_Top	At_Offset_0
0111 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0112			BODY_00f0:
0112 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x7 = 0x112,0x1
0113 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0114 e404       |    |		Load	0x2,0x4
0115 0120       |    |		Execute	Any,Is_Value
0116 6804       |h   |		Jump_Zero	0x11b
0117 e003       |    |		Load	0x0,0x3
0118 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0119 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
011a 7801       |x   |		Jump	0x11c
011b e404       |    |		Load	0x2,0x4
011c e006       |    |		Load	0x0,0x6
011d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
011e e002       |    |		Load	0x0,0x2
011f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0120 e003       |    |		Load	0x0,0x3
0121 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0122 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0123 c404       |    |		Store	0x2,0x4
0124 c403       |    |		Store	0x2,0x3
0125 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x8 = 0x125,0x2
0126 e007       |    |		Load	0x0,0x7
0127 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0128 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x9 = 0x128,0x3
0129 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012a 00f1       |    |		Load_Encached	Diana_Temp_Seq
012b e003       |    |		Load	0x0,0x3
012c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
012d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
012e 00db       |    |		Load_Top	At_Offset_3
012f 0120       |    |		Execute	Any,Is_Value
0130 6803       |h   |		Jump_Zero	0x134
0131 e008       |    |		Load	0x0,0x8
0132 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0133 7801       |x   |		Jump	0x135
0134 00db       |    |		Load_Top	At_Offset_3
0135 e402       |    |		Load	0x2,0x2
0136 61e9       |a   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
0137 e005       |    |		Load	0x0,0x5
0138 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0139 4800       |H   |		Short_Literal	0x0
013a e003       |    |		Load	0x0,0x3
013b 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
013c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013d e003       |    |		Load	0x0,0x3
013e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
013f 61dc       |a   |		Indirect_Literal	Discrete,0x31c,{0x00000000, 0x7fffffff}
0140 4800       |H   |		Short_Literal	0x0
0141 4ffc       |O   |		Short_Literal	-0x4
0142 4ffd       |O   |		Short_Literal	-0x3
0143 e003       |    |		Load	0x0,0x3
0144 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0145 e002       |    |		Load	0x0,0x2
0146 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0147 e404       |    |		Load	0x2,0x4
0148 e5ff       |    |		Load	0x2,-0x1
0149 e003       |    |		Load	0x0,0x3
014a 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
014b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014c 00d1       |    |		Pop_Control	Pop_Count_1
014d c408       |    |		Store	0x2,0x8
014e c406       |    |		Store	0x2,0x6
014f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0150 c403       |    |		Store	0x2,0x3
0151 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0xa = 0x151,0x4
0152 e007       |    |		Load	0x0,0x7
0153 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0154 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xb = 0x154,0x5
0155 0229       | )  |		Execute	Access,All_Read
0156 e002       |    |		Load	0x0,0x2
0157 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0158 00d9       |    |		Load_Top	At_Offset_1
0159 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015a 4800       |H   |		Short_Literal	0x0
015b 61c4       |a   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
015c e005       |    |		Load	0x0,0x5
015d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015e e006       |    |		Load	0x0,0x6
015f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0160 e002       |    |		Load	0x0,0x2
0161 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0162 4800       |H   |		Short_Literal	0x0
0163 e5ff       |    |		Load	0x2,-0x1
0164 4801       |H   |		Short_Literal	0x1
0165 e002       |    |		Load	0x0,0x2
0166 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0167 00da       |    |		Load_Top	At_Offset_2
0168 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0169 c403       |    |		Store	0x2,0x3
016a 00d1       |    |		Pop_Control	Pop_Count_1
016b e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0xc = 0x16b,0x6
016c e007       |    |		Load	0x0,0x7
016d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
016e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xd = 0x16e,0x7
016f a5fe       |    |		Store_Unchecked	0x2,-0x2
0170 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d       | }  |		.CONST	0x017d								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e003       |    |		Load	0x0,0x3								; Debug Table 0x4 = .DEBUG	0x017b,0x0884,0x0001,0x0000,0x0056,0xf175,0x0000,0x0049
													; Debug Table 0x4.0x0 = 0x17b,0xffff
017c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017d			BODY_0178:
017d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1 = 0x17d,0x1
017e 0229       | )  |		Execute	Access,All_Read
017f e002       |    |		Load	0x0,0x2
0180 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0181 00d9       |    |		Load_Top	At_Offset_1
0182 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0183 e002       |    |		Load	0x0,0x2
0184 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0185 00da       |    |		Load_Top	At_Offset_2
0186 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0187 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0188 00d1       |    |		Pop_Control	Pop_Count_1
0189 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0x189,0x2
018a e007       |    |		Load	0x0,0x7
018b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
018c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018d 0000 0000  |    |		.XXX[0x3]
018f 0000       |    |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5 = .DEBUG	0x0193,0x088c,0x0001,0x0000,0x0056,0xf175,0x0000,0x0051
													; Debug Table 0x5.0x0 = 0x193,0x1
0194 00db       |    |		Load_Top	At_Offset_3
0195 0227       | '  |		Execute	Access,All_Reference
0196 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0197 e5ff       |    |		Load	0x2,-0x1
0198 0227       | '  |		Execute	Access,All_Reference
0199 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
019a e22c       | ,  |		Load	0x1,0x2c
019b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
019c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x1 = 0x19c,0x2
019d 0227       | '  |		Execute	Access,All_Reference
019e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
019f 00db       |    |		Load_Top	At_Offset_3
01a0 0227       | '  |		Execute	Access,All_Reference
01a1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a2 e22c       | ,  |		Load	0x1,0x2c
01a3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a4 00db       |    |		Load_Top	At_Offset_3
01a5 0227       | '  |		Execute	Access,All_Reference
01a6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x6 = .DEBUG	0x01ab,0x0892,0x0001,0x0000,0x0056,0xf175,0x0000,0x005d
01ac e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x0 = 0x1ac,0x1
01ad 01dc       |    |		Execute	Vector,Last
01ae e5fe       |    |		Load	0x2,-0x2
01af 01dd       |    |		Execute	Vector,First
01b0 0263       | c  |		Execute	Discrete,Above_Bound
01b1 7007       |p   |		Jump_Nonzero	0x1b9
01b2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x1 = 0x1b2,0x2
01b3 e5fe       |    |		Load	0x2,-0x2
01b4 01d7       |    |		Execute	Vector,Field_Read
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 8214       |    |		Call	0x1,0x14
01b7 00c8       |    |		Action	Pop_Auxiliary_Range
01b8 3ff9       |?   |		Loop_Increasing	0x1b2
01b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5       |    |		.CONST	0x01c5								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0x7 = .DEBUG	0x01c3,0x0898,0x0001,0x0000,0x0056,0xf175,0x0000,0x0069
													; Debug Table 0x7.0x0 = 0x1c3,0xffff
01c4 060a       |    |		Execute_Immediate	Set_Value_Unchecked,0xa
01c5			BODY_01c0:
01c5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x1 = 0x1c5,0x1
01c6 e5ff       |    |		Load	0x2,-0x1
01c7 8214       |    |		Call	0x1,0x14
01c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8 = .DEBUG	0x01d3,0x089e,0x0001,0x0000,0x0056,0xf175,0x0000,0x0071
													; Debug Table 0x8.0x0 = 0x1d3,0x1
01d4 00db       |    |		Load_Top	At_Offset_3
01d5 0227       | '  |		Execute	Access,All_Reference
01d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 0227       | '  |		Execute	Access,All_Reference
01d9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01da e22d       | -  |		Load	0x1,0x2d
01db 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01dc 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x1 = 0x1dc,0x2
01dd 0227       | '  |		Execute	Access,All_Reference
01de 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01df 00db       |    |		Load_Top	At_Offset_3
01e0 0227       | '  |		Execute	Access,All_Reference
01e1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e2 e22d       | -  |		Load	0x1,0x2d
01e3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 0227       | '  |		Execute	Access,All_Reference
01e6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9 = .DEBUG	0x01eb,0x08a4,0x0001,0x0000,0x0056,0xf175,0x0000,0x007d
													; Debug Table 0x9.0x0 = 0x1eb,0x1
01ec 01db       |    |		Execute	Vector,Length
01ed 612a       |a*  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00000400}
01ee 027f       |    |		Execute	Discrete,Equal
01ef 681c       |h   |		Jump_Zero	0x20c
01f0 00db       |    |		Load_Top	At_Offset_3
01f1 01dd       |    |		Execute	Vector,First
01f2 0f01       |    |		Execute_Immediate	Equal,0x1
01f3 6818       |h   |		Jump_Zero	0x20c
01f4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0x1f4,0x2
01f5 e001       |    |		Load	0x0,0x1
01f6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f7 01c7       |    |		Execute	Vector,Convert
01f8 00db       |    |		Load_Top	At_Offset_3
01f9 0227       | '  |		Execute	Access,All_Reference
01fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01fb e5ff       |    |		Load	0x2,-0x1
01fc 0227       | '  |		Execute	Access,All_Reference
01fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01fe e22e       | .  |		Load	0x1,0x2e
01ff 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0200 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x2 = 0x200,0x3
0201 0227       | '  |		Execute	Access,All_Reference
0202 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0203 00db       |    |		Load_Top	At_Offset_3
0204 0227       | '  |		Execute	Access,All_Reference
0205 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0206 e22e       | .  |		Load	0x1,0x2e
0207 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0208 00db       |    |		Load_Top	At_Offset_3
0209 0227       | '  |		Execute	Access,All_Reference
020a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x3 = 0x20c,0x4
020d 01db       |    |		Execute	Vector,Length
020e 0ffb       |    |		Execute_Immediate	Equal,-0x5
020f 681c       |h   |		Jump_Zero	0x22c
0210 00db       |    |		Load_Top	At_Offset_3
0211 01dd       |    |		Execute	Vector,First
0212 0f01       |    |		Execute_Immediate	Equal,0x1
0213 6818       |h   |		Jump_Zero	0x22c
0214 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x4 = 0x214,0x5
0215 e004       |    |		Load	0x0,0x4
0216 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0217 01c7       |    |		Execute	Vector,Convert
0218 00db       |    |		Load_Top	At_Offset_3
0219 0227       | '  |		Execute	Access,All_Reference
021a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021b e5ff       |    |		Load	0x2,-0x1
021c 0227       | '  |		Execute	Access,All_Reference
021d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021e e22f       | /  |		Load	0x1,0x2f
021f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0220 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x5 = 0x220,0x6
0221 0227       | '  |		Execute	Access,All_Reference
0222 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0223 00db       |    |		Load_Top	At_Offset_3
0224 0227       | '  |		Execute	Access,All_Reference
0225 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0226 e22f       | /  |		Load	0x1,0x2f
0227 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0228 00db       |    |		Load_Top	At_Offset_3
0229 0227       | '  |		Execute	Access,All_Reference
022a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
022b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022c 00cf       |    |		Action	Mark_Auxiliary
022d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0x6 = 0x22d,0x7
022e 01d9       |    |		Execute	Vector,Reverse_Bounds
022f 0263       | c  |		Execute	Discrete,Above_Bound
0230 7007       |p   |		Jump_Nonzero	0x238
0231 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x7 = 0x231,0x8
0232 e5fe       |    |		Load	0x2,-0x2
0233 01d7       |    |		Execute	Vector,Field_Read
0234 e5ff       |    |		Load	0x2,-0x1
0235 8217       |    |		Call	0x1,0x17
0236 00c8       |    |		Action	Pop_Auxiliary_Range
0237 3ff9       |?   |		Loop_Increasing	0x231
0238 00ce       |    |		Action	Pop_Auxiliary
0239 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023a 0000 0000  |    |		.BLANK	0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x0243,0x08b6,0x0001,0x0000,0x0056,0xf175,0x0000,0x0089
													; Debug Table 0xa.0x0 = 0x243,0x1
0244 0227       | '  |		Execute	Access,All_Reference
0245 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0246 00db       |    |		Load_Top	At_Offset_3
0247 0227       | '  |		Execute	Access,All_Reference
0248 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0249 e22c       | ,  |		Load	0x1,0x2c
024a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
024b a5fe       |    |		Store_Unchecked	0x2,-0x2
024c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x1 = 0x24c,0x2
024d 0227       | '  |		Execute	Access,All_Reference
024e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
024f 00db       |    |		Load_Top	At_Offset_3
0250 0227       | '  |		Execute	Access,All_Reference
0251 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0252 e22c       | ,  |		Load	0x1,0x2c
0253 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0254 00db       |    |		Load_Top	At_Offset_3
0255 0227       | '  |		Execute	Access,All_Reference
0256 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0257 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x025b,0x08bc,0x0001,0x0000,0x0056,0xf175,0x0000,0x0095
													; Debug Table 0xb.0x0 = 0x25b,0x1
025c 0227       | '  |		Execute	Access,All_Reference
025d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
025e 00db       |    |		Load_Top	At_Offset_3
025f 0227       | '  |		Execute	Access,All_Reference
0260 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0261 e22d       | -  |		Load	0x1,0x2d
0262 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0263 a5fe       |    |		Store_Unchecked	0x2,-0x2
0264 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x1 = 0x264,0x2
0265 0227       | '  |		Execute	Access,All_Reference
0266 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0267 00db       |    |		Load_Top	At_Offset_3
0268 0227       | '  |		Execute	Access,All_Reference
0269 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
026a e22d       | -  |		Load	0x1,0x2d
026b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
026c 00db       |    |		Load_Top	At_Offset_3
026d 0227       | '  |		Execute	Access,All_Reference
026e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
026f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0278       | x  |		.CONST	0x0278								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc = .DEBUG	0x0273,0x08c2,0x0001,0x0000,0x0056,0xf175,0x0000,0x00a1
													; Debug Table 0xc.0x0 = 0x273,0xffff
0274 01dd       |    |		Execute	Vector,First
0275 00e3       |    |		Load_Encached	Natural_Cache
0276 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0277 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xc.0x1 = 0x277,0xfffe
0278			BODY_0270:
0278 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0x2 = 0x278,0x1
0279 01db       |    |		Execute	Vector,Length
027a 609d       |`   |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00000400}
027b 027f       |    |		Execute	Discrete,Equal
027c 6816       |h   |		Jump_Zero	0x293
027d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x3 = 0x27d,0x2
027e 0227       | '  |		Execute	Access,All_Reference
027f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0280 e5ff       |    |		Load	0x2,-0x1
0281 0227       | '  |		Execute	Access,All_Reference
0282 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0283 e22e       | .  |		Load	0x1,0x2e
0284 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0285 e5fe       |    |		Load	0x2,-0x2
0286 01d4       |    |		Execute	Vector,Structure_Write
0287 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x4 = 0x287,0x3
0288 0227       | '  |		Execute	Access,All_Reference
0289 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028a e5ff       |    |		Load	0x2,-0x1
028b 0227       | '  |		Execute	Access,All_Reference
028c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
028d e22e       | .  |		Load	0x1,0x2e
028e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
028f e5ff       |    |		Load	0x2,-0x1
0290 0227       | '  |		Execute	Access,All_Reference
0291 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0292 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0293 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0x5 = 0x293,0x4
0294 01db       |    |		Execute	Vector,Length
0295 0ffb       |    |		Execute_Immediate	Equal,-0x5
0296 6816       |h   |		Jump_Zero	0x2ad
0297 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x6 = 0x297,0x5
0298 0227       | '  |		Execute	Access,All_Reference
0299 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
029a e5ff       |    |		Load	0x2,-0x1
029b 0227       | '  |		Execute	Access,All_Reference
029c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029d e22f       | /  |		Load	0x1,0x2f
029e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
029f e5fe       |    |		Load	0x2,-0x2
02a0 01d4       |    |		Execute	Vector,Structure_Write
02a1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x7 = 0x2a1,0x6
02a2 0227       | '  |		Execute	Access,All_Reference
02a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 0227       | '  |		Execute	Access,All_Reference
02a6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a7 e22f       | /  |		Load	0x1,0x2f
02a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02a9 e5ff       |    |		Load	0x2,-0x1
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ac 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ad 00cf       |    |		Action	Mark_Auxiliary
02ae 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x8 = 0x2ae,0x7
													; Debug Table 0xc.0x9 = 0x2ae,0x8
02af 6068       |`h  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00000400}
02b0 0273       | s  |		Execute	Discrete,Plus
02b1 0248       | H  |		Execute	Discrete,Check_In_Integer
02b2 0aff       |    |		Execute_Immediate	Plus,-0x1
02b3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02b4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0xa = 0x2b4,0x9
02b5 e5fe       |    |		Load	0x2,-0x2
02b6 01dc       |    |		Execute	Vector,Last
02b7 027d       | }  |		Execute	Discrete,Greater
02b8 701d       |p   |		Jump_Nonzero	0x2d6
02b9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0xb = 0x2b9,0xa
02ba 0227       | '  |		Execute	Access,All_Reference
02bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02bc e5ff       |    |		Load	0x2,-0x1
02bd 0227       | '  |		Execute	Access,All_Reference
02be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02bf e22e       | .  |		Load	0x1,0x2e
02c0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02c1 00db       |    |		Load_Top	At_Offset_3
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 e5fe       |    |		Load	0x2,-0x2
02c4 01ce       |    |		Execute	Vector,Slice_Write
02c5 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0xc = 0x2c5,0xb
02c6 0227       | '  |		Execute	Access,All_Reference
02c7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02c8 e5ff       |    |		Load	0x2,-0x1
02c9 0227       | '  |		Execute	Access,All_Reference
02ca 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02cb e22e       | .  |		Load	0x1,0x2e
02cc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02cd e5ff       |    |		Load	0x2,-0x1
02ce 0227       | '  |		Execute	Access,All_Reference
02cf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02d0 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0xd = 0x2d0,0xc
02d1 6046       |`F  |		Indirect_Literal	Discrete,0x318,{0x00000000, 0x00000400}
02d2 0273       | s  |		Execute	Discrete,Plus
02d3 005b       | [  |		Store_Top	Discrete,At_Offset_3
02d4 00c9       |    |		Action	Pop_Auxiliary_Loop
02d5 7fd8       |    |		Jump	0x2ae
02d6 00c9       |    |		Action	Pop_Auxiliary_Loop
02d7 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0xe = 0x2d7,0xd
													; Debug Table 0xc.0xf = 0x2d7,0xe
02d8 48fb       |H   |		Short_Literal	0xfb
02d9 0273       | s  |		Execute	Discrete,Plus
02da 0248       | H  |		Execute	Discrete,Check_In_Integer
02db 0aff       |    |		Execute_Immediate	Plus,-0x1
02dc 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02dd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x10 = 0x2dd,0xf
02de e5fe       |    |		Load	0x2,-0x2
02df 01dc       |    |		Execute	Vector,Last
02e0 027d       | }  |		Execute	Discrete,Greater
02e1 701d       |p   |		Jump_Nonzero	0x2ff
02e2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x11 = 0x2e2,0x10
02e3 0227       | '  |		Execute	Access,All_Reference
02e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 0227       | '  |		Execute	Access,All_Reference
02e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e8 e22f       | /  |		Load	0x1,0x2f
02e9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02ea 00db       |    |		Load_Top	At_Offset_3
02eb 00db       |    |		Load_Top	At_Offset_3
02ec e5fe       |    |		Load	0x2,-0x2
02ed 01ce       |    |		Execute	Vector,Slice_Write
02ee e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x12 = 0x2ee,0x11
02ef 0227       | '  |		Execute	Access,All_Reference
02f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 0227       | '  |		Execute	Access,All_Reference
02f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f4 e22f       | /  |		Load	0x1,0x2f
02f5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f6 e5ff       |    |		Load	0x2,-0x1
02f7 0227       | '  |		Execute	Access,All_Reference
02f8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02f9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x13 = 0x2f9,0x12
02fa 48fb       |H   |		Short_Literal	0xfb
02fb 0273       | s  |		Execute	Discrete,Plus
02fc 005b       | [  |		Store_Top	Discrete,At_Offset_3
02fd 00c9       |    |		Action	Pop_Auxiliary_Loop
02fe 7fd8       |    |		Jump	0x2d7
02ff 00c9       |    |		Action	Pop_Auxiliary_Loop
0300 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0x14 = 0x300,0x13
0301 01dc       |    |		Execute	Vector,Last
0302 00db       |    |		Load_Top	At_Offset_3
0303 0263       | c  |		Execute	Discrete,Above_Bound
0304 700f       |p   |		Jump_Nonzero	0x314
0305 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0x15 = 0x305,0x14
0306 00d9       |    |		Load_Top	At_Offset_1
0307 e20f       |    |		Load	0x1,0xf
0308 00d9       |    |		Load_Top	At_Offset_1
0309 00db       |    |		Load_Top	At_Offset_3
030a 01d7       |    |		Execute	Vector,Field_Read
030b 00d1       |    |		Pop_Control	Pop_Count_1
030c e5ff       |    |		Load	0x2,-0x1
030d 821a       |    |		Call	0x1,0x1a
030e 00d9       |    |		Load_Top	At_Offset_1
030f 00db       |    |		Load_Top	At_Offset_3
0310 01d6       |    |		Execute	Vector,Field_Write
0311 00d2       |    |		Pop_Control	Pop_Count_2
0312 00c8       |    |		Action	Pop_Auxiliary_Range
0313 3ff1       |?   |		Loop_Increasing	0x305
0314 00ce       |    |		Action	Pop_Auxiliary
0315 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0316 0000 0000  |    |		.XXX[0x2]
0318 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
031c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0320 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0324 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056f345}
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0331       | 1  |		.CONST	0x0331								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e002       |    |		Load	0x0,0x2								; Debug Table 0xd = .DEBUG	0x032b,0x08f0,0x0002,0x0000,0x0056,0xf175,0x0000,0x00ad
													; Debug Table 0xd.0x0 = 0x32b,0xffff
032c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
032d e002       |    |		Load	0x0,0x2
032e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
032f 00e5       |    |		Load_Encached	Long_Integer_Cache
0330 03f1       |    |		Declare_Variable	Discrete,With_Value
0331			BODY_0328:
0331 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x1 = 0x331,0x1
0332 0227       | '  |		Execute	Access,All_Reference
0333 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0334 e002       |    |		Load	0x0,0x2
0335 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0336 00d9       |    |		Load_Top	At_Offset_1
0337 0272       | r  |		Execute	Discrete,Minus
0338 0a07       |    |		Execute_Immediate	Plus,0x7
0339 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
033a 00e3       |    |		Load_Encached	Natural_Cache
033b 025b       | [  |		Execute	Discrete,Check_In_Type
033c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe = .DEBUG	0x0343,0x08f6,0x0002,0x0000,0x0056,0xf175,0x0000,0x00b6
													; Debug Table 0xe.0x0 = 0x343,0x1
0344 0227       | '  |		Execute	Access,All_Reference
0345 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0346 00db       |    |		Load_Top	At_Offset_3
0347 0227       | '  |		Execute	Access,All_Reference
0348 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0349 e002       |    |		Load	0x0,0x2
034a 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
034b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034c 0000 0000  |    |		.BLANK	0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355       | U  |		.CONST	0x0355								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0003       |    |		.CONST	0x0003								; Number of locals
0353			INIT_0350:
0353 e20d       |    |		Load	0x1,0xd								; Debug Table 0xf = .DEBUG	0x0353,0x08fa,0x0001,0x0000,0x0056,0xf175,0x0000,0x00bf
													; Debug Table 0xf.0x0 = 0x353,0xffff
0354 e20d       |    |		Load	0x1,0xd								; Debug Table 0xf.0x1 = 0x354,0xfffe
0355			BODY_0350:
0355 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0x2 = 0x355,0x1
0356 e5ff       |    |		Load	0x2,-0x1
0357 8211       |    |		Call	0x1,0x11
0358 003a       | :  |		Store_Top	Access,At_Offset_2
0359 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x3 = 0x359,0x2
035a e5fe       |    |		Load	0x2,-0x2
035b 8212       |    |		Call	0x1,0x12
035c 0039       | 9  |		Store_Top	Access,At_Offset_1
035d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x4 = 0x35d,0x3
035e 00da       |    |		Load_Top	At_Offset_2
035f 8230       | 0  |		Call	0x1,0x30
0360 003b       | ;  |		Store_Top	Access,At_Offset_3
0361 0039       | 9  |		Store_Top	Access,At_Offset_1
0362 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0x5 = 0x362,0x4
0363 8213       |    |		Call	0x1,0x13
0364 003a       | :  |		Store_Top	Access,At_Offset_2
0365 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x6 = 0x365,0x5
0366 8213       |    |		Call	0x1,0x13
0367 0039       | 9  |		Store_Top	Access,At_Offset_1
0368 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0369 0000 0000  |    |		.BLANK	0000[0x7]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037a       | z  |		.CONST	0x037a								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0003       |    |		.CONST	0x0003								; Number of locals
0373			INIT_0370:
0373 e002       |    |		Load	0x0,0x2								; Debug Table 0x10 = .DEBUG	0x0373,0x090a,0x0001,0x0000,0x0056,0xf175,0x0000,0x00cb
													; Debug Table 0x10.0x0 = 0x373,0xffff
0374 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0375 02c7       |    |		Declare_Variable	Any
0376 00d8       |    |		Load_Top	At_Offset_0
0377 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0378 e003       |    |		Load	0x0,0x3								; Debug Table 0x10.0x1 = 0x378,0xfffe
0379 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
037a			BODY_0370:
037a 00be       |    |		Action	Activate_Tasks
037b e002       |    |		Load	0x0,0x2								; Debug Table 0x10.0x2 = 0x37b,0x1
037c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
037d 00da       |    |		Load_Top	At_Offset_2
037e 4800       |H   |		Short_Literal	0x0
037f 67a0       |g   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
0380 e005       |    |		Load	0x0,0x5
0381 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0382 e006       |    |		Load	0x0,0x6
0383 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0384 e002       |    |		Load	0x0,0x2
0385 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0386 4800       |H   |		Short_Literal	0x0
0387 e5ff       |    |		Load	0x2,-0x1
0388 4801       |H   |		Short_Literal	0x1
0389 e002       |    |		Load	0x0,0x2
038a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
038b c402       |    |		Store	0x2,0x2
038c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
038d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x10.0x3 = 0x38d,0x2
038e e007       |    |		Load	0x0,0x7
038f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0390 e002       |    |		Load	0x0,0x2								; Debug Table 0x10.0x4 = 0x390,0x3
0391 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0392 00da       |    |		Load_Top	At_Offset_2
0393 e002       |    |		Load	0x0,0x2
0394 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0395 c402       |    |		Store	0x2,0x2
0396 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0397 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x10.0x5 = 0x397,0x4
0398 e007       |    |		Load	0x0,0x7
0399 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
039a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
039b 0000 0000  |    |		.BLANK	0000[0x5]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ab       |    |		.CONST	0x03ab								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0003       |    |		.CONST	0x0003								; Number of locals
03a3			INIT_03a0:
03a3 e003       |    |		Load	0x0,0x3								; Debug Table 0x11 = .DEBUG	0x03a3,0x0918,0x0002,0x0000,0x0056,0xf175,0x0000,0x00d3
													; Debug Table 0x11.0x0 = 0x3a3,0xffff
03a4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03a5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a6 e003       |    |		Load	0x0,0x3								; Debug Table 0x11.0x1 = 0x3a6,0xfffe
03a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a8 02c7       |    |		Declare_Variable	Any
03a9 00d8       |    |		Load_Top	At_Offset_0
03aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ab			BODY_03a0:
03ab e003       |    |		Load	0x0,0x3								; Debug Table 0x11.0x2 = 0x3ab,0x1
03ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03ad 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ae 00d9       |    |		Load_Top	At_Offset_1
03af 0120       |    |		Execute	Any,Is_Value
03b0 6803       |h   |		Jump_Zero	0x3b4
03b1 e003       |    |		Load	0x0,0x3
03b2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b3 7801       |x   |		Jump	0x3b5
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 676a       |gj  |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
03b6 e005       |    |		Load	0x0,0x5
03b7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b8 e006       |    |		Load	0x0,0x6
03b9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03ba e003       |    |		Load	0x0,0x3
03bb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03bc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03bd e5ff       |    |		Load	0x2,-0x1
03be e003       |    |		Load	0x0,0x3
03bf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03c0 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
03c1 c403       |    |		Store	0x2,0x3
03c2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03c3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x11.0x3 = 0x3c3,0x2
03c4 6813       |h   |		Jump_Zero	0x3d8
03c5 4822       |H"  |		Short_Literal	0x22							; Debug Table 0x11.0x4 = 0x3c5,0x3
03c6 4822       |H"  |		Short_Literal	0x22
03c7 e5ff       |    |		Load	0x2,-0x1
03c8 01ca       |    |		Execute	Vector,Prepend
03c9 01cb       |    |		Execute	Vector,Append
03ca 0092 06ac  |    |		Action	Push_String_Extended,0x6ac					; "  "
03cc 01cc       |    |		Execute	Vector,Catenate
03cd 0092 06ad  |    |		Action	Push_String_Extended,0x6ad					; "bad status: DIRECTORY.NAMING."
03cf 01cc       |    |		Execute	Vector,Catenate
03d0 00da       |    |		Load_Top	At_Offset_2
03d1 e003       |    |		Load	0x0,0x3
03d2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03d3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d4 025e       | ^  |		Execute	Discrete,Convert
03d5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03d6 01cc       |    |		Execute	Vector,Catenate
03d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x5 = 0x3d8,0x4
03d9 e003       |    |		Load	0x0,0x3
03da 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03db 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
03dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03f1       |    |		.CONST	0x03f1								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0005       |    |		.CONST	0x0005								; Number of locals
03e3			INIT_03e0:
03e3 e003       |    |		Load	0x0,0x3								; Debug Table 0x12 = .DEBUG	0x03e3,0x0926,0x0002,0x0000,0x0056,0xf175,0x0000,0x00dc
													; Debug Table 0x12.0x0 = 0x3e3,0xffff
03e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03e5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e6 e003       |    |		Load	0x0,0x3								; Debug Table 0x12.0x1 = 0x3e6,0xfffe
03e7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e8 02c7       |    |		Declare_Variable	Any
03e9 00d8       |    |		Load_Top	At_Offset_0
03ea 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03eb e003       |    |		Load	0x0,0x3								; Debug Table 0x12.0x2 = 0x3eb,0xfffd
03ec 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
03ed 02c7       |    |		Declare_Variable	Any
03ee 00d8       |    |		Load_Top	At_Offset_0
03ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f0 e20d       |    |		Load	0x1,0xd								; Debug Table 0x12.0x3 = 0x3f0,0xfffc
03f1			BODY_03e0:
03f1 e003       |    |		Load	0x0,0x3								; Debug Table 0x12.0x4 = 0x3f1,0xfffb
													; Debug Table 0x12.0x5 = 0x3f1,0xfffa
													; Debug Table 0x12.0x6 = 0x3f1,0x1
03f2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03f3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f4 00db       |    |		Load_Top	At_Offset_3
03f5 0120       |    |		Execute	Any,Is_Value
03f6 6803       |h   |		Jump_Zero	0x3fa
03f7 e003       |    |		Load	0x0,0x3
03f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f9 7801       |x   |		Jump	0x3fb
03fa 00db       |    |		Load_Top	At_Offset_3
03fb 6724       |g$  |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
03fc e005       |    |		Load	0x0,0x5
03fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03fe e006       |    |		Load	0x0,0x6
03ff 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0400 e003       |    |		Load	0x0,0x3
0401 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0402 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0403 e5ff       |    |		Load	0x2,-0x1
0404 e003       |    |		Load	0x0,0x3
0405 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0406 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0407 c403       |    |		Store	0x2,0x3
0408 c402       |    |		Store	0x2,0x2
0409 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x12.0x7 = 0x409,0x2
040a 6813       |h   |		Jump_Zero	0x41e
040b 4822       |H"  |		Short_Literal	0x22							; Debug Table 0x12.0x8 = 0x40b,0x3
040c 4822       |H"  |		Short_Literal	0x22
040d e5ff       |    |		Load	0x2,-0x1
040e 01ca       |    |		Execute	Vector,Prepend
040f 01cb       |    |		Execute	Vector,Append
0410 0092 06ac  |    |		Action	Push_String_Extended,0x6ac					; "  "
0412 01cc       |    |		Execute	Vector,Catenate
0413 0092 06ad  |    |		Action	Push_String_Extended,0x6ad					; "bad status: DIRECTORY.NAMING."
0415 01cc       |    |		Execute	Vector,Catenate
0416 e402       |    |		Load	0x2,0x2
0417 e003       |    |		Load	0x0,0x3
0418 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0419 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
041a 025e       | ^  |		Execute	Discrete,Convert
041b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
041c 01cc       |    |		Execute	Vector,Catenate
041d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
041e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12.0x9 = 0x41e,0x4
041f e003       |    |		Load	0x0,0x3
0420 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0421 c404       |    |		Store	0x2,0x4
0422 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0xa = 0x422,0x5
0423 e003       |    |		Load	0x0,0x3
0424 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0425 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0426 012f       | /  |		Execute	Any,Equal
0427 6815       |h   |		Jump_Zero	0x43d
0428 480b       |H   |		Short_Literal	0xb							; Debug Table 0x12.0xb = 0x428,0x6
0429 0092 06ae  |    |		Action	Push_String_Extended,0x6ae					; "(ADA)"
042b 8231       | 1  |		Call	0x1,0x31
042c 0092 06af  |    |		Action	Push_String_Extended,0x6af					; " "
042e 01cc       |    |		Execute	Vector,Catenate
042f 481e       |H   |		Short_Literal	0x1e
0430 e403       |    |		Load	0x2,0x3
0431 e003       |    |		Load	0x0,0x3
0432 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0433 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0434 8231       | 1  |		Call	0x1,0x31
0435 01cc       |    |		Execute	Vector,Catenate
0436 0092 06af  |    |		Action	Push_String_Extended,0x6af					; " "
0438 01cc       |    |		Execute	Vector,Catenate
0439 00db       |    |		Load_Top	At_Offset_3
043a 8232       | 2  |		Call	0x1,0x32
043b 01cc       |    |		Execute	Vector,Catenate
043c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
043d 480b       |H   |		Short_Literal	0xb							; Debug Table 0x12.0xc = 0x43d,0x7
043e 0092 06b0  |    |		Action	Push_String_Extended,0x6b0					; "("
0440 00db       |    |		Load_Top	At_Offset_3
0441 e003       |    |		Load	0x0,0x3
0442 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0443 01cc       |    |		Execute	Vector,Catenate
0444 0092 06b1  |    |		Action	Push_String_Extended,0x6b1					; ")"
0446 01cc       |    |		Execute	Vector,Catenate
0447 8231       | 1  |		Call	0x1,0x31
0448 0092 06af  |    |		Action	Push_String_Extended,0x6af					; " "
044a 01cc       |    |		Execute	Vector,Catenate
044b 481e       |H   |		Short_Literal	0x1e
044c e403       |    |		Load	0x2,0x3
044d e003       |    |		Load	0x0,0x3
044e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
044f 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0450 8231       | 1  |		Call	0x1,0x31
0451 01cc       |    |		Execute	Vector,Catenate
0452 0092 06af  |    |		Action	Push_String_Extended,0x6af					; " "
0454 01cc       |    |		Execute	Vector,Catenate
0455 00db       |    |		Load_Top	At_Offset_3
0456 8232       | 2  |		Call	0x1,0x32
0457 01cc       |    |		Execute	Vector,Catenate
0458 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0459 0000 0000  |    |		.BLANK	0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 047a       | z  |		.CONST	0x047a								; Address of begin
0461 04ad       |    |		.CONST	0x04ad								; Address of exception handler
0462 0005       |    |		.CONST	0x0005								; Number of locals
0463			INIT_0460:
0463 e003       |    |		Load	0x0,0x3								; Debug Table 0x13 = .DEBUG	0x0463,0x0942,0x0001,0x0000,0x0056,0xf175,0x0000,0x00e5
													; Debug Table 0x13.0x0 = 0x463,0xffff
0464 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0465 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0466 02ff       |    |		Declare_Variable	Variant_Record
0467 00d8       |    |		Load_Top	At_Offset_0
0468 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0469 e003       |    |		Load	0x0,0x3								; Debug Table 0x13.0x1 = 0x469,0xfffe
046a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
046b e20e       |    |		Load	0x1,0xe								; Debug Table 0x13.0x2 = 0x46b,0xfffd
046c e20e       |    |		Load	0x1,0xe
046d 03bc       |    |		Declare_Variable	Access,By_Allocation
046e 00d8       |    |		Load_Top	At_Offset_0
046f 0227       | '  |		Execute	Access,All_Reference
0470 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0471 0039       | 9  |		Store_Top	Access,At_Offset_1
0472 e005       |    |		Load	0x0,0x5								; Debug Table 0x13.0x3 = 0x472,0xfffc
0473 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0474 02c7       |    |		Declare_Variable	Any
0475 e009       |    |		Load	0x0,0x9
0476 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0477 e005       |    |		Load	0x0,0x5
0478 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0479 c405       |    |		Store	0x2,0x5
047a			BODY_0460:
047a e003       |    |		Load	0x0,0x3								; Debug Table 0x13.0x4 = 0x47a,0x1
047b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
047c e402       |    |		Load	0x2,0x2
047d e006       |    |		Load	0x0,0x6
047e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
047f e002       |    |		Load	0x0,0x2
0480 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0481 e003       |    |		Load	0x0,0x3
0482 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0483 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0484 00d1       |    |		Pop_Control	Pop_Count_1
0485 005b       | [  |		Store_Top	Discrete,At_Offset_3
0486 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0x5 = 0x486,0x2
0487 e007       |    |		Load	0x0,0x7
0488 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0489 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x6 = 0x489,0x3
048a 0229       | )  |		Execute	Access,All_Read
048b e003       |    |		Load	0x0,0x3
048c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
048d 00d9       |    |		Load_Top	At_Offset_1
048e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
048f 0120       |    |		Execute	Any,Is_Value
0490 6804       |h   |		Jump_Zero	0x495
0491 e003       |    |		Load	0x0,0x3
0492 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0493 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0494 7802       |x   |		Jump	0x497
0495 00d9       |    |		Load_Top	At_Offset_1
0496 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0497 6688       |f   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
0498 e405       |    |		Load	0x2,0x5
0499 e402       |    |		Load	0x2,0x2
049a e003       |    |		Load	0x0,0x3
049b 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
049c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
049d 00da       |    |		Load_Top	At_Offset_2
049e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
049f c403       |    |		Store	0x2,0x3
04a0 00d1       |    |		Pop_Control	Pop_Count_1
04a1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0x7 = 0x4a1,0x4
04a2 e007       |    |		Load	0x0,0x7
04a3 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
04a4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x8 = 0x4a4,0x5
04a5 a5ff       |    |		Store_Unchecked	0x2,-0x1
04a6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x9 = 0x4a6,0x6
04a7 4801       |H   |		Short_Literal	0x1
04a8 4800       |H   |		Short_Literal	0x0
04a9 e005       |    |		Load	0x0,0x5
04aa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ab c405       |    |		Store	0x2,0x5
04ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04ad			TRAP_0460:
04ad 0007       |    |		Action	Break_Optional
04ae 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0xa = 0x4ae,0x7
04af 4801       |H   |		Short_Literal	0x1
04b0 4800       |H   |		Short_Literal	0x0
04b1 e005       |    |		Load	0x0,0x5
04b2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04b3 c405       |    |		Store	0x2,0x5
04b4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0xb = 0x4b4,0x8
04b5 0101       |    |		Execute	Exception,Reraise
04b6 0000 0000  |    |		.XXX[0x2]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14 = .DEBUG	0x04bb,0x095c,0x0001,0x0000,0x0056,0xf175,0x0000,0x00ed
													; Debug Table 0x14.0x0 = 0x4bb,0x1
04bc 0229       | )  |		Execute	Access,All_Read
04bd 00d8       |    |		Load_Top	At_Offset_0
04be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04bf e003       |    |		Load	0x0,0x3
04c0 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04c1 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04c2 00d9       |    |		Load_Top	At_Offset_1
04c3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04c5 0000 0000  |    |		.XXX[0x3]
04c7 0000       |    |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d5       |    |		.CONST	0x04d5								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0002       |    |		.CONST	0x0002								; Number of locals
04cb			INIT_04c8:
04cb e003       |    |		Load	0x0,0x3								; Debug Table 0x15 = .DEBUG	0x04cb,0x0960,0x0002,0x0000,0x0056,0xf175,0x0000,0x00f5
													; Debug Table 0x15.0x0 = 0x4cb,0xffff
04cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04cd 02c7       |    |		Declare_Variable	Any
04ce 00db       |    |		Load_Top	At_Offset_3
04cf 0227       | '  |		Execute	Access,All_Reference
04d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04d1 e003       |    |		Load	0x0,0x3
04d2 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04d3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
04d4 c402       |    |		Store	0x2,0x2
04d5			BODY_04c8:
04d5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x1 = 0x4d5,0x1
04d6 e003       |    |		Load	0x0,0x3
04d7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04d8 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
04d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04da 0000 0000  |    |		.BLANK	0000[0x6]
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 0x16 = .DEBUG	0x04e3,0x0966,0x0002,0x0000,0x0056,0xf175,0x0000,0x00fe
													; Debug Table 0x16.0x0 = 0x4e3,0x1
04e4 0227       | '  |		Execute	Access,All_Reference
04e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04e6 e003       |    |		Load	0x0,0x3
04e7 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04e8 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
04e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ea 0000 0000  |    |		.BLANK	0000[0x6]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 0502       |    |		.CONST	0x0502								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0005       |    |		.CONST	0x0005								; Number of locals
04f3			INIT_04f0:
04f3 e003       |    |		Load	0x0,0x3								; Debug Table 0x17 = .DEBUG	0x04f3,0x096a,0x0001,0x0000,0x0056,0xf175,0x0000,0x0107
													; Debug Table 0x17.0x0 = 0x4f3,0xffff
04f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f5 e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0x1 = 0x4f5,0xfffe
04f6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f8 e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0x2 = 0x4f8,0xfffd
04f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04fa 02c7       |    |		Declare_Variable	Any
04fb 00d8       |    |		Load_Top	At_Offset_0
04fc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04fd e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0x3 = 0x4fd,0xfffc
04fe 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04ff 02ff       |    |		Declare_Variable	Variant_Record
0500 00d8       |    |		Load_Top	At_Offset_0
0501 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0502			BODY_04f0:
0502 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x17.0x4 = 0x502,0x1
0503 01db       |    |		Execute	Vector,Length
0504 700f       |p   |		Jump_Nonzero	0x514
0505 e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0x5 = 0x505,0x2
0506 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0507 e006       |    |		Load	0x0,0x6
0508 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0509 e003       |    |		Load	0x0,0x3
050a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
050b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
050c e003       |    |		Load	0x0,0x3
050d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
050e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
050f c402       |    |		Store	0x2,0x2
0510 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x17.0x6 = 0x510,0x3
0511 e007       |    |		Load	0x0,0x7
0512 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0513 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0514 e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0x7 = 0x514,0x4
0515 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0516 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0517 00da       |    |		Load_Top	At_Offset_2
0518 0120       |    |		Execute	Any,Is_Value
0519 6803       |h   |		Jump_Zero	0x51d
051a e003       |    |		Load	0x0,0x3
051b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
051c 7801       |x   |		Jump	0x51e
051d 00da       |    |		Load_Top	At_Offset_2
051e 6601       |f   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
051f e005       |    |		Load	0x0,0x5
0520 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0521 e006       |    |		Load	0x0,0x6
0522 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0523 e003       |    |		Load	0x0,0x3
0524 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0525 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0526 e5ff       |    |		Load	0x2,-0x1
0527 e003       |    |		Load	0x0,0x3
0528 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0529 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
052a c404       |    |		Store	0x2,0x4
052b 005b       | [  |		Store_Top	Discrete,At_Offset_3
052c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x17.0x8 = 0x52c,0x5
052d e007       |    |		Load	0x0,0x7
052e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
052f e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0x9 = 0x52f,0x6
0530 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0531 00d9       |    |		Load_Top	At_Offset_1
0532 65ed       |e   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
0533 e005       |    |		Load	0x0,0x5
0534 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0535 4800       |H   |		Short_Literal	0x0
0536 e404       |    |		Load	0x2,0x4
0537 e003       |    |		Load	0x0,0x3
0538 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0539 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
053a 00d1       |    |		Pop_Control	Pop_Count_1
053b c402       |    |		Store	0x2,0x2
053c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x17.0xa = 0x53c,0x7
053d e007       |    |		Load	0x0,0x7
053e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
053f e003       |    |		Load	0x0,0x3								; Debug Table 0x17.0xb = 0x53f,0x8
0540 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0541 e006       |    |		Load	0x0,0x6
0542 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0543 65dc       |e   |		Indirect_Literal	Discrete,0x320,{0x00000000, 0x00004000}
0544 e005       |    |		Load	0x0,0x5
0545 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0546 e405       |    |		Load	0x2,0x5
0547 e003       |    |		Load	0x0,0x3
0548 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0549 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
054a c402       |    |		Store	0x2,0x2
054b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x17.0xc = 0x54b,0x9
054c e007       |    |		Load	0x0,0x7
054d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
054e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
054f 0000       |    |		.XXX[0x1]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055b       | [  |		.CONST	0x055b								; Address of begin
0551 0579       | y  |		.CONST	0x0579								; Address of exception handler
0552 0003       |    |		.CONST	0x0003								; Number of locals
0553			INIT_0550:
0553 e003       |    |		Load	0x0,0x3								; Debug Table 0x18 = .DEBUG	0x0553,0x0986,0x0002,0x0000,0x0056,0xf175,0x0000,0x010f
													; Debug Table 0x18.0x0 = 0x553,0xffff
0554 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0555 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0556 02c7       |    |		Declare_Variable	Any
0557 00d8       |    |		Load_Top	At_Offset_0
0558 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0559 e003       |    |		Load	0x0,0x3								; Debug Table 0x18.0x1 = 0x559,0xfffe
055a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055b			BODY_0550:
055b e003       |    |		Load	0x0,0x3								; Debug Table 0x18.0x2 = 0x55b,0x1
055c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055d 00da       |    |		Load_Top	At_Offset_2
055e 0120       |    |		Execute	Any,Is_Value
055f 6804       |h   |		Jump_Zero	0x564
0560 e003       |    |		Load	0x0,0x3
0561 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0562 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0563 7801       |x   |		Jump	0x565
0564 00da       |    |		Load_Top	At_Offset_2
0565 e006       |    |		Load	0x0,0x6
0566 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0567 e002       |    |		Load	0x0,0x2
0568 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0569 e003       |    |		Load	0x0,0x3
056a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
056b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
056c c402       |    |		Store	0x2,0x2
056d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
056e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x18.0x3 = 0x56e,0x2
056f e007       |    |		Load	0x0,0x7
0570 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0571 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x18.0x4 = 0x571,0x3
0572 e003       |    |		Load	0x0,0x3
0573 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0574 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0575 e003       |    |		Load	0x0,0x3
0576 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0577 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0578 00ca       |    |		Action	Exit_Nullary_Function
0579			TRAP_0550:
0579 0007       |    |		Action	Break_Optional
057a 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x18.0x5 = 0x57a,0x4
057b 00ca       |    |		Action	Exit_Nullary_Function
057c 0000 0000  |    |		.BLANK	0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 4608       |F   |		Jump_Case	0x9							; Debug Table 0x19 = .DEBUG	0x0583,0x0994,0x0005,0x0000,0x0056,0xf345,0x0000,0x0018
0584 7808       |x   |		Jump	0x58d								; case 0x0
0585 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0586 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0587 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0588 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0589 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
058a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
058b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
058c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
058d 00da       |    |		Load_Top	At_Offset_2
058e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
058f 0125       | %  |		Execute	Any,Set_Constraint
0590 00da       |    |		Load_Top	At_Offset_2
0591 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0592 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0593 00da       |    |		Load_Top	At_Offset_2
0594 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0595 0125       | %  |		Execute	Any,Set_Constraint
0596 e002       |    |		Load	0x0,0x2
0597 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0598 00db       |    |		Load_Top	At_Offset_3
0599 00d9       |    |		Load_Top	At_Offset_1
059a 00d9       |    |		Load_Top	At_Offset_1
059b 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
059c 0119       |    |		Execute	Any,Check_In_Formal_Type
059d 00d1       |    |		Pop_Control	Pop_Count_1
059e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
059f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x1a = .DEBUG	0x05a3,0x0996,0x0005,0x0000,0x0056,0xf345,0x0000,0x002d
05a4 7808       |x   |		Jump	0x5ad								; case 0x0
05a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05a6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
05a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05a8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
05a9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
05aa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
05ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
05ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
05ad 00da       |    |		Load_Top	At_Offset_2
05ae 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05af 0125       | %  |		Execute	Any,Set_Constraint
05b0 00da       |    |		Load_Top	At_Offset_2
05b1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05b2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05b4 0000 0000  |    |		.BLANK	0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05d7       |    |		.CONST	0x05d7								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0005       |    |		.CONST	0x0005								; Number of locals
05bb			INIT_05b8:
05bb e002       |    |		Load	0x0,0x2								; Debug Table 0x1b = .DEBUG	0x05bb,0x0998,0x0001,0x0000,0x0056,0xf345,0x0000,0x0451
													; Debug Table 0x1b.0x0 = 0x5bb,0xffff
05bc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05bd e002       |    |		Load	0x0,0x2
05be 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
05bf 00e5       |    |		Load_Encached	Long_Integer_Cache
05c0 03f1       |    |		Declare_Variable	Discrete,With_Value
05c1 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b.0x1 = 0x5c1,0xfffe
05c2 0227       | '  |		Execute	Access,All_Reference
05c3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05c4 e002       |    |		Load	0x0,0x2
05c5 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
05c6 0aff       |    |		Execute_Immediate	Plus,-0x1
05c7 00e5       |    |		Load_Encached	Long_Integer_Cache
05c8 03f1       |    |		Declare_Variable	Discrete,With_Value
05c9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1b.0x2 = 0x5c9,0xfffd
05ca 00d9       |    |		Load_Top	At_Offset_1
05cb 00e1       |    |		Load_Encached	Boolean_Cache
05cc 02a0       |    |		Declare_Subprogram	Null_Subprogram
05cd 4801       |H   |		Short_Literal	0x1
05ce 035d       | ]  |		Declare_Type	Array,Defined
05cf 60d8       |`   |		Indirect_Literal	Discrete,0x6a8,{0x00000000, 0x0056f345}		; Debug Table 0x1b.0x3 = 0x5cf,0xfffc
05d0 60d3       |`   |		Indirect_Literal	Discrete,0x6a4,{0x00000000, 0x00000484}
05d1 00da       |    |		Load_Top	At_Offset_2
05d2 e002       |    |		Load	0x0,0x2
05d3 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
05d4 0387       |    |		Declare_Variable	Package
05d5 00d8       |    |		Load_Top	At_Offset_0
05d6 020f       |    |		Execute	Module,Activate
05d7			BODY_05b8:
05d7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1b.0x4 = 0x5d7,0x1
05d8 01dd       |    |		Execute	Vector,First
05d9 00da       |    |		Load_Top	At_Offset_2
05da 01dc       |    |		Execute	Vector,Last
05db 027a       | z  |		Execute	Discrete,Less_Equal
05dc 6826       |h&  |		Jump_Zero	0x603
05dd e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1b.0x5 = 0x5dd,0x2
05de 0227       | '  |		Execute	Access,All_Reference
05df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05e0 e5ff       |    |		Load	0x2,-0x1
05e1 0227       | '  |		Execute	Access,All_Reference
05e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05e3 00da       |    |		Load_Top	At_Offset_2
05e4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05e5 e5fe       |    |		Load	0x2,-0x2
05e6 0227       | '  |		Execute	Access,All_Reference
05e7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05e8 e5fe       |    |		Load	0x2,-0x2
05e9 0227       | '  |		Execute	Access,All_Reference
05ea 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05eb 00db       |    |		Load_Top	At_Offset_3
05ec 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05ed e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1b.0x6 = 0x5ed,0x3
05ee 0227       | '  |		Execute	Access,All_Reference
05ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05f0 e5ff       |    |		Load	0x2,-0x1
05f1 0227       | '  |		Execute	Access,All_Reference
05f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05f5 e5ff       |    |		Load	0x2,-0x1
05f6 0227       | '  |		Execute	Access,All_Reference
05f7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05f8 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1b.0x7 = 0x5f8,0x4
05f9 0227       | '  |		Execute	Access,All_Reference
05fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05fb e5fe       |    |		Load	0x2,-0x2
05fc 0227       | '  |		Execute	Access,All_Reference
05fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05fe 00da       |    |		Load_Top	At_Offset_2
05ff 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0600 e5fe       |    |		Load	0x2,-0x2
0601 0227       | '  |		Execute	Access,All_Reference
0602 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0603 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0604 0000 0000  |    |		.BLANK	0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0629       | )  |		.CONST	0x0629								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0003       |    |		.CONST	0x0003								; Number of locals
060b			INIT_0608:
060b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1c = .DEBUG	0x060b,0x09aa,0x0002,0x0000,0x0056,0xf345,0x0000,0x0561
													; Debug Table 0x1c.0x0 = 0x60b,0xffff
060c 01dc       |    |		Execute	Vector,Last
060d 00db       |    |		Load_Top	At_Offset_3
060e 01dd       |    |		Execute	Vector,First
060f 0272       | r  |		Execute	Discrete,Minus
0610 0248       | H  |		Execute	Discrete,Check_In_Integer
0611 0a01       |    |		Execute_Immediate	Plus,0x1
0612 00e3       |    |		Load_Encached	Natural_Cache
0613 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0614 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1c.0x1 = 0x614,0xfffe
0615 e5fe       |    |		Load	0x2,-0x2
0616 00e9       |    |		Load_Encached	String_Cache
0617 0334       | 4  |		Declare_Variable	Array,With_Constraint
0618 4801       |H   |		Short_Literal	0x1
0619 e5fe       |    |		Load	0x2,-0x2
061a 00e9       |    |		Load_Encached	String_Cache
061b 035b       | [  |		Declare_Type	Array,Constrained
061c 0337       | 7  |		Declare_Variable	Array
061d 00d8       |    |		Load_Top	At_Offset_0
061e 01dc       |    |		Execute	Vector,Last
061f 4801       |H   |		Short_Literal	0x1
0620 0263       | c  |		Execute	Discrete,Above_Bound
0621 7005       |p   |		Jump_Nonzero	0x627
0622 4820       |H   |		Short_Literal	0x20
0623 00d9       |    |		Load_Top	At_Offset_1
0624 e404       |    |		Load	0x2,0x4
0625 01d6       |    |		Execute	Vector,Field_Write
0626 3ffb       |?   |		Loop_Increasing	0x622
0627 00d9       |    |		Load_Top	At_Offset_1
0628 01d4       |    |		Execute	Vector,Structure_Write
0629			BODY_0608:
0629 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1c.0x2 = 0x629,0x1
062a e5fe       |    |		Load	0x2,-0x2
062b 027b       | {  |		Execute	Discrete,Greater_Equal
062c 6802       |h   |		Jump_Zero	0x62f
062d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1c.0x3 = 0x62d,0x2
062e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
062f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1c.0x4 = 0x62f,0x3
0630 4801       |H   |		Short_Literal	0x1
0631 e5fe       |    |		Load	0x2,-0x2
0632 e402       |    |		Load	0x2,0x2
0633 0272       | r  |		Execute	Discrete,Minus
0634 0248       | H  |		Execute	Discrete,Check_In_Integer
0635 00db       |    |		Load_Top	At_Offset_3
0636 01cf       |    |		Execute	Vector,Slice_Read
0637 01cc       |    |		Execute	Vector,Catenate
0638 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0639 0000 0000  |    |		.BLANK	0000[0x7]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0657       | W  |		.CONST	0x0657								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0006       |    |		.CONST	0x0006								; Number of locals
0643			INIT_0640:
0643 e003       |    |		Load	0x0,0x3								; Debug Table 0x1d = .DEBUG	0x0643,0x09b6,0x0002,0x0000,0x0056,0xf345,0x0000,0x05b0
													; Debug Table 0x1d.0x0 = 0x643,0xffff
0644 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0645 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0646 02c7       |    |		Declare_Variable	Any
0647 00d8       |    |		Load_Top	At_Offset_0
0648 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0649 e003       |    |		Load	0x0,0x3								; Debug Table 0x1d.0x1 = 0x649,0xfffe
064a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
064b 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x1d.0x2 = 0x64b,0xfffd
064c e00a       |    |		Load	0x0,0xa								; Debug Table 0x1d.0x3 = 0x64c,0xfffc
064d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
064e 02c7       |    |		Declare_Variable	Any
064f 00d8       |    |		Load_Top	At_Offset_0
0650 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0651 e003       |    |		Load	0x0,0x3								; Debug Table 0x1d.0x4 = 0x651,0xfffb
0652 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0653 02c7       |    |		Declare_Variable	Any
0654 e003       |    |		Load	0x0,0x3
0655 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0656 c406       |    |		Store	0x2,0x6
0657			BODY_0640:
0657 e003       |    |		Load	0x0,0x3								; Debug Table 0x1d.0x5 = 0x657,0xfffa
													; Debug Table 0x1d.0x6 = 0x657,0x1
0658 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0659 e402       |    |		Load	0x2,0x2
065a 0120       |    |		Execute	Any,Is_Value
065b 6804       |h   |		Jump_Zero	0x660
065c e003       |    |		Load	0x0,0x3
065d 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
065e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
065f 7801       |x   |		Jump	0x661
0660 e402       |    |		Load	0x2,0x2
0661 603e       |`>  |		Indirect_Literal	Discrete,0x6a0,{0x00000000, 0x00004000}
0662 e005       |    |		Load	0x0,0x5
0663 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0664 4800       |H   |		Short_Literal	0x0
0665 e5ff       |    |		Load	0x2,-0x1
0666 e003       |    |		Load	0x0,0x3
0667 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0668 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0669 c402       |    |		Store	0x2,0x2
066a c403       |    |		Store	0x2,0x3
066b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1d.0x7 = 0x66b,0x2
066c 6809       |h   |		Jump_Zero	0x676
066d 0092 06b2  |    |		Action	Push_String_Extended,0x6b2					; "bad status: DIRECTORY."
													; Debug Table 0x1d.0x8 = 0x66d,0x3
066f e403       |    |		Load	0x2,0x3
0670 e003       |    |		Load	0x0,0x3
0671 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0672 025e       | ^  |		Execute	Discrete,Convert
0673 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0674 01cc       |    |		Execute	Vector,Catenate
0675 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0676 e402       |    |		Load	0x2,0x2								; Debug Table 0x1d.0x9 = 0x676,0x4
0677 e003       |    |		Load	0x0,0x3
0678 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0679 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
067a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
067b e402       |    |		Load	0x2,0x2								; Debug Table 0x1d.0xa = 0x67b,0x5
067c e003       |    |		Load	0x0,0x3
067d 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
067e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
067f c405       |    |		Store	0x2,0x5
0680 e402       |    |		Load	0x2,0x2								; Debug Table 0x1d.0xb = 0x680,0x6
0681 e003       |    |		Load	0x0,0x3
0682 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0683 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0684 c406       |    |		Store	0x2,0x6
0685 4820       |H   |		Short_Literal	0x20							; Debug Table 0x1d.0xc = 0x685,0x7
0686 4808       |H   |		Short_Literal	0x8
0687 480a       |H   |		Short_Literal	0xa
0688 e404       |    |		Load	0x2,0x4
0689 e00b       |    |		Load	0x0,0xb
068a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
068b 0092 06ac  |    |		Action	Push_String_Extended,0x6ac					; "  "
068d 01cc       |    |		Execute	Vector,Catenate
068e 4800       |H   |		Short_Literal	0x0
068f 4801       |H   |		Short_Literal	0x1
0690 4801       |H   |		Short_Literal	0x1
0691 e405       |    |		Load	0x2,0x5
0692 e00c       |    |		Load	0x0,0xc
0693 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0694 e00c       |    |		Load	0x0,0xc
0695 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0696 01cc       |    |		Execute	Vector,Catenate
0697 0092 06af  |    |		Action	Push_String_Extended,0x6af					; " "
0699 01cc       |    |		Execute	Vector,Catenate
069a 00d9       |    |		Load_Top	At_Offset_1
069b e003       |    |		Load	0x0,0x3
069c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
069d 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
069e 01cc       |    |		Execute	Vector,Catenate
069f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
06a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000484}
06a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056f345}
06ac ; --------------------------------------------------------------------------------------
06ac ; STRING TABLE
06ac ; --------------------------------------------------------------------------------------
06ac 0010       |    |		.STRTAB	0x0010->0x06b4							; "  "
06ad 0010       |    |		.STRTAB	0x0010->0x06b5							; "bad status: DIRECTORY.NAMING."
06ae 002b       | +  |		.STRTAB	0x002b->0x06c3							; "(ADA)"
06af 002e       | .  |		.STRTAB	0x002e->0x06c6							; " "
06b0 002d       | -  |		.STRTAB	0x002d->0x06c6							; "("
06b1 002c       | ,  |		.STRTAB	0x002c->0x06c7							; ")"
06b2 002b       | +  |		.STRTAB	0x002b->0x06c7							; "bad status: DIRECTORY."
06b3 003f       | ?  |		.STREND 0x003f->0x06d2
06b4 2020 6261  |  ba|		.STRTAB_STRINGS
06d3 0000 0000  |    |		.BLANK	0000[0x5]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; Debug Table
06d8 ; --------------------------------------------------------------------------------------
06d8 0003 001e  |    |		.CONST	0x0003,0x001e
06da 000b 07ca  |    |		.DEBUG	0x000b,0x07ca,0x8000,0x0000,0x0056,0xf175,0x0000,0x000b
06e2 0050 0810  | P  |		.DEBUG	0x0050,0x0810,0x8000,0x0000,0x0056,0xf345,0x0000,0x0017
06ea 00c3 085a  |   Z|		.DEBUG	0x00c3,0x085a,0x0001,0x0000,0x0056,0xf175,0x0000,0x0031
06f2 00f3 0866  |   f|		.DEBUG	0x00f3,0x0866,0x0001,0x0000,0x0056,0xf175,0x0000,0x003d
06fa 017b 0884  | {  |		.DEBUG	0x017b,0x0884,0x0001,0x0000,0x0056,0xf175,0x0000,0x0049
0702 0193 088c  |    |		.DEBUG	0x0193,0x088c,0x0001,0x0000,0x0056,0xf175,0x0000,0x0051
070a 01ab 0892  |    |		.DEBUG	0x01ab,0x0892,0x0001,0x0000,0x0056,0xf175,0x0000,0x005d
0712 01c3 0898  |    |		.DEBUG	0x01c3,0x0898,0x0001,0x0000,0x0056,0xf175,0x0000,0x0069
071a 01d3 089e  |    |		.DEBUG	0x01d3,0x089e,0x0001,0x0000,0x0056,0xf175,0x0000,0x0071
0722 01eb 08a4  |    |		.DEBUG	0x01eb,0x08a4,0x0001,0x0000,0x0056,0xf175,0x0000,0x007d
072a 0243 08b6  | C  |		.DEBUG	0x0243,0x08b6,0x0001,0x0000,0x0056,0xf175,0x0000,0x0089
0732 025b 08bc  | [  |		.DEBUG	0x025b,0x08bc,0x0001,0x0000,0x0056,0xf175,0x0000,0x0095
073a 0273 08c2  | s  |		.DEBUG	0x0273,0x08c2,0x0001,0x0000,0x0056,0xf175,0x0000,0x00a1
0742 032b 08f0  | +  |		.DEBUG	0x032b,0x08f0,0x0002,0x0000,0x0056,0xf175,0x0000,0x00ad
074a 0343 08f6  | C  |		.DEBUG	0x0343,0x08f6,0x0002,0x0000,0x0056,0xf175,0x0000,0x00b6
0752 0353 08fa  | S  |		.DEBUG	0x0353,0x08fa,0x0001,0x0000,0x0056,0xf175,0x0000,0x00bf
075a 0373 090a  | s  |		.DEBUG	0x0373,0x090a,0x0001,0x0000,0x0056,0xf175,0x0000,0x00cb
0762 03a3 0918  |    |		.DEBUG	0x03a3,0x0918,0x0002,0x0000,0x0056,0xf175,0x0000,0x00d3
076a 03e3 0926  |   &|		.DEBUG	0x03e3,0x0926,0x0002,0x0000,0x0056,0xf175,0x0000,0x00dc
0772 0463 0942  | c B|		.DEBUG	0x0463,0x0942,0x0001,0x0000,0x0056,0xf175,0x0000,0x00e5
077a 04bb 095c  |   \|		.DEBUG	0x04bb,0x095c,0x0001,0x0000,0x0056,0xf175,0x0000,0x00ed
0782 04cb 0960  |   `|		.DEBUG	0x04cb,0x0960,0x0002,0x0000,0x0056,0xf175,0x0000,0x00f5
078a 04e3 0966  |   f|		.DEBUG	0x04e3,0x0966,0x0002,0x0000,0x0056,0xf175,0x0000,0x00fe
0792 04f3 096a  |   j|		.DEBUG	0x04f3,0x096a,0x0001,0x0000,0x0056,0xf175,0x0000,0x0107
079a 0553 0986  | S  |		.DEBUG	0x0553,0x0986,0x0002,0x0000,0x0056,0xf175,0x0000,0x010f
07a2 0583 0994  |    |		.DEBUG	0x0583,0x0994,0x0005,0x0000,0x0056,0xf345,0x0000,0x0018
07aa 05a3 0996  |    |		.DEBUG	0x05a3,0x0996,0x0005,0x0000,0x0056,0xf345,0x0000,0x002d
07b2 05bb 0998  |    |		.DEBUG	0x05bb,0x0998,0x0001,0x0000,0x0056,0xf345,0x0000,0x0451
07ba 060b 09aa  |    |		.DEBUG	0x060b,0x09aa,0x0002,0x0000,0x0056,0xf345,0x0000,0x0561
07c2 0643 09b6  | C  |		.DEBUG	0x0643,0x09b6,0x0002,0x0000,0x0056,0xf345,0x0000,0x05b0
07ca ; --------------------------------------------------------------------------------------
07ca ; Debug3 Subtable 0x0
07ca ; --------------------------------------------------------------------------------------
07ca 0022 0000  | "  |		.DBG3TAB	0x0022,0x0000
07cc 000b ffff  |    |		.CONST	0x000b,0xffff
07ce 000b fffe  |    |		.CONST	0x000b,0xfffe
07d0 000b fffd  |    |		.CONST	0x000b,0xfffd
07d2 000b fffc  |    |		.CONST	0x000b,0xfffc
07d4 000d fffb  |    |		.CONST	0x000d,0xfffb
07d6 000f fffa  |    |		.CONST	0x000f,0xfffa
07d8 0012 fff9  |    |		.CONST	0x0012,0xfff9
07da 0015 fff8  |    |		.CONST	0x0015,0xfff8
07dc 0017 fff7  |    |		.CONST	0x0017,0xfff7
07de 0019 fff6  |    |		.CONST	0x0019,0xfff6
07e0 001b fff5  |    |		.CONST	0x001b,0xfff5
07e2 001d fff4  |    |		.CONST	0x001d,0xfff4
07e4 001f fff3  |    |		.CONST	0x001f,0xfff3
07e6 0021 fff2  | !  |		.CONST	0x0021,0xfff2
07e8 0023 fff1  | #  |		.CONST	0x0023,0xfff1
07ea 0025 fff0  | %  |		.CONST	0x0025,0xfff0
07ec 0027 ffef  | '  |		.CONST	0x0027,0xffef
07ee 0029 ffee  | )  |		.CONST	0x0029,0xffee
07f0 002b ffed  | +  |		.CONST	0x002b,0xffed
07f2 002d ffec  | -  |		.CONST	0x002d,0xffec
07f4 002f ffeb  | /  |		.CONST	0x002f,0xffeb
07f6 0031 ffea  | 1  |		.CONST	0x0031,0xffea
07f8 0033 ffe9  | 3  |		.CONST	0x0033,0xffe9
07fa 0035 ffe8  | 5  |		.CONST	0x0035,0xffe8
07fc 0037 ffe7  | 7  |		.CONST	0x0037,0xffe7
07fe 0039 ffe6  | 9  |		.CONST	0x0039,0xffe6
0800 003b ffe5  | ;  |		.CONST	0x003b,0xffe5
0802 003d ffe4  | =  |		.CONST	0x003d,0xffe4
0804 003f ffe3  | ?  |		.CONST	0x003f,0xffe3
0806 0041 ffe2  | A  |		.CONST	0x0041,0xffe2
0808 0043 ffe1  | C  |		.CONST	0x0043,0xffe1
080a 0045 ffe0  | E  |		.CONST	0x0045,0xffe0
080c 0049 ffdf  | I  |		.CONST	0x0049,0xffdf
080e 004b ffde  | K  |		.CONST	0x004b,0xffde
0810 ; --------------------------------------------------------------------------------------
0810 ; Debug3 Subtable 0x1
0810 ; --------------------------------------------------------------------------------------
0810 0024 0000  | $  |		.DBG3TAB	0x0024,0x0000
0812 0050 ffff  | P  |		.CONST	0x0050,0xffff
0814 0058 fffe  | X  |		.CONST	0x0058,0xfffe
0816 005f fffd  | _  |		.CONST	0x005f,0xfffd
0818 0061 fffc  | a  |		.CONST	0x0061,0xfffc
081a 0063 fffb  | c  |		.CONST	0x0063,0xfffb
081c 0063 fffa  | c  |		.CONST	0x0063,0xfffa
081e 0063 fff9  | c  |		.CONST	0x0063,0xfff9
0820 006b fff8  | k  |		.CONST	0x006b,0xfff8
0822 0073 fff7  | s  |		.CONST	0x0073,0xfff7
0824 007b fff6  | {  |		.CONST	0x007b,0xfff6
0826 0083 fff5  |    |		.CONST	0x0083,0xfff5
0828 0085 fff4  |    |		.CONST	0x0085,0xfff4
082a 0087 fff3  |    |		.CONST	0x0087,0xfff3
082c 0089 fff2  |    |		.CONST	0x0089,0xfff2
082e 008b fff1  |    |		.CONST	0x008b,0xfff1
0830 008d fff0  |    |		.CONST	0x008d,0xfff0
0832 008f ffef  |    |		.CONST	0x008f,0xffef
0834 0091 ffee  |    |		.CONST	0x0091,0xffee
0836 0093 ffed  |    |		.CONST	0x0093,0xffed
0838 0095 ffec  |    |		.CONST	0x0095,0xffec
083a 0097 ffeb  |    |		.CONST	0x0097,0xffeb
083c 0099 ffea  |    |		.CONST	0x0099,0xffea
083e 009b ffe9  |    |		.CONST	0x009b,0xffe9
0840 009d ffe8  |    |		.CONST	0x009d,0xffe8
0842 009f ffe7  |    |		.CONST	0x009f,0xffe7
0844 00a1 ffe6  |    |		.CONST	0x00a1,0xffe6
0846 00a3 ffe5  |    |		.CONST	0x00a3,0xffe5
0848 00a5 ffe4  |    |		.CONST	0x00a5,0xffe4
084a 00a7 ffe3  |    |		.CONST	0x00a7,0xffe3
084c 00a9 ffe2  |    |		.CONST	0x00a9,0xffe2
084e 00ab ffe1  |    |		.CONST	0x00ab,0xffe1
0850 00ad ffe0  |    |		.CONST	0x00ad,0xffe0
0852 00af ffdf  |    |		.CONST	0x00af,0xffdf
0854 00b1 ffde  |    |		.CONST	0x00b1,0xffde
0856 00b3 ffdd  |    |		.CONST	0x00b3,0xffdd
0858 00b5 ffdc  |    |		.CONST	0x00b5,0xffdc
085a ; --------------------------------------------------------------------------------------
085a ; Debug3 Subtable 0x2
085a ; --------------------------------------------------------------------------------------
085a 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
085c 00c3 ffff  |    |		.CONST	0x00c3,0xffff
085e 00c5 fffe  |    |		.CONST	0x00c5,0xfffe
0860 00cc 0001  |    |		.CONST	0x00cc,0x0001
0862 00e3 0002  |    |		.CONST	0x00e3,0x0002
0864 00e6 0003  |    |		.CONST	0x00e6,0x0003
0866 ; --------------------------------------------------------------------------------------
0866 ; Debug3 Subtable 0x3
0866 ; --------------------------------------------------------------------------------------
0866 0007 0007  |    |		.DBG3TAB	0x0007,0x0007
0868 00f3 ffff  |    |		.CONST	0x00f3,0xffff
086a 00f8 fffe  |    |		.CONST	0x00f8,0xfffe
086c 00fa fffd  |    |		.CONST	0x00fa,0xfffd
086e 0100 fffc  |    |		.CONST	0x0100,0xfffc
0870 0107 fffb  |    |		.CONST	0x0107,0xfffb
0872 010a fffa  |    |		.CONST	0x010a,0xfffa
0874 010d fff9  |    |		.CONST	0x010d,0xfff9
0876 0112 0001  |    |		.CONST	0x0112,0x0001
0878 0125 0002  | %  |		.CONST	0x0125,0x0002
087a 0128 0003  | (  |		.CONST	0x0128,0x0003
087c 0151 0004  | Q  |		.CONST	0x0151,0x0004
087e 0154 0005  | T  |		.CONST	0x0154,0x0005
0880 016b 0006  | k  |		.CONST	0x016b,0x0006
0882 016e 0007  | n  |		.CONST	0x016e,0x0007
0884 ; --------------------------------------------------------------------------------------
0884 ; Debug3 Subtable 0x4
0884 ; --------------------------------------------------------------------------------------
0884 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0886 017b ffff  | {  |		.CONST	0x017b,0xffff
0888 017d 0001  | }  |		.CONST	0x017d,0x0001
088a 0189 0002  |    |		.CONST	0x0189,0x0002
088c ; --------------------------------------------------------------------------------------
088c ; Debug3 Subtable 0x5
088c ; --------------------------------------------------------------------------------------
088c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
088e 0193 0001  |    |		.CONST	0x0193,0x0001
0890 019c 0002  |    |		.CONST	0x019c,0x0002
0892 ; --------------------------------------------------------------------------------------
0892 ; Debug3 Subtable 0x6
0892 ; --------------------------------------------------------------------------------------
0892 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0894 01ac 0001  |    |		.CONST	0x01ac,0x0001
0896 01b2 0002  |    |		.CONST	0x01b2,0x0002
0898 ; --------------------------------------------------------------------------------------
0898 ; Debug3 Subtable 0x7
0898 ; --------------------------------------------------------------------------------------
0898 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
089a 01c3 ffff  |    |		.CONST	0x01c3,0xffff
089c 01c5 0001  |    |		.CONST	0x01c5,0x0001
089e ; --------------------------------------------------------------------------------------
089e ; Debug3 Subtable 0x8
089e ; --------------------------------------------------------------------------------------
089e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
08a0 01d3 0001  |    |		.CONST	0x01d3,0x0001
08a2 01dc 0002  |    |		.CONST	0x01dc,0x0002
08a4 ; --------------------------------------------------------------------------------------
08a4 ; Debug3 Subtable 0x9
08a4 ; --------------------------------------------------------------------------------------
08a4 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
08a6 01eb 0001  |    |		.CONST	0x01eb,0x0001
08a8 01f4 0002  |    |		.CONST	0x01f4,0x0002
08aa 0200 0003  |    |		.CONST	0x0200,0x0003
08ac 020c 0004  |    |		.CONST	0x020c,0x0004
08ae 0214 0005  |    |		.CONST	0x0214,0x0005
08b0 0220 0006  |    |		.CONST	0x0220,0x0006
08b2 022d 0007  | -  |		.CONST	0x022d,0x0007
08b4 0231 0008  | 1  |		.CONST	0x0231,0x0008
08b6 ; --------------------------------------------------------------------------------------
08b6 ; Debug3 Subtable 0xa
08b6 ; --------------------------------------------------------------------------------------
08b6 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
08b8 0243 0001  | C  |		.CONST	0x0243,0x0001
08ba 024c 0002  | L  |		.CONST	0x024c,0x0002
08bc ; --------------------------------------------------------------------------------------
08bc ; Debug3 Subtable 0xb
08bc ; --------------------------------------------------------------------------------------
08bc 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
08be 025b 0001  | [  |		.CONST	0x025b,0x0001
08c0 0264 0002  | d  |		.CONST	0x0264,0x0002
08c2 ; --------------------------------------------------------------------------------------
08c2 ; Debug3 Subtable 0xc
08c2 ; --------------------------------------------------------------------------------------
08c2 0002 0014  |    |		.DBG3TAB	0x0002,0x0014
08c4 0273 ffff  | s  |		.CONST	0x0273,0xffff
08c6 0277 fffe  | w  |		.CONST	0x0277,0xfffe
08c8 0278 0001  | x  |		.CONST	0x0278,0x0001
08ca 027d 0002  | }  |		.CONST	0x027d,0x0002
08cc 0287 0003  |    |		.CONST	0x0287,0x0003
08ce 0293 0004  |    |		.CONST	0x0293,0x0004
08d0 0297 0005  |    |		.CONST	0x0297,0x0005
08d2 02a1 0006  |    |		.CONST	0x02a1,0x0006
08d4 02ae 0007  |    |		.CONST	0x02ae,0x0007
08d6 02ae 0008  |    |		.CONST	0x02ae,0x0008
08d8 02b4 0009  |    |		.CONST	0x02b4,0x0009
08da 02b9 000a  |    |		.CONST	0x02b9,0x000a
08dc 02c5 000b  |    |		.CONST	0x02c5,0x000b
08de 02d0 000c  |    |		.CONST	0x02d0,0x000c
08e0 02d7 000d  |    |		.CONST	0x02d7,0x000d
08e2 02d7 000e  |    |		.CONST	0x02d7,0x000e
08e4 02dd 000f  |    |		.CONST	0x02dd,0x000f
08e6 02e2 0010  |    |		.CONST	0x02e2,0x0010
08e8 02ee 0011  |    |		.CONST	0x02ee,0x0011
08ea 02f9 0012  |    |		.CONST	0x02f9,0x0012
08ec 0300 0013  |    |		.CONST	0x0300,0x0013
08ee 0305 0014  |    |		.CONST	0x0305,0x0014
08f0 ; --------------------------------------------------------------------------------------
08f0 ; Debug3 Subtable 0xd
08f0 ; --------------------------------------------------------------------------------------
08f0 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
08f2 032b ffff  | +  |		.CONST	0x032b,0xffff
08f4 0331 0001  | 1  |		.CONST	0x0331,0x0001
08f6 ; --------------------------------------------------------------------------------------
08f6 ; Debug3 Subtable 0xe
08f6 ; --------------------------------------------------------------------------------------
08f6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
08f8 0343 0001  | C  |		.CONST	0x0343,0x0001
08fa ; --------------------------------------------------------------------------------------
08fa ; Debug3 Subtable 0xf
08fa ; --------------------------------------------------------------------------------------
08fa 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
08fc 0353 ffff  | S  |		.CONST	0x0353,0xffff
08fe 0354 fffe  | T  |		.CONST	0x0354,0xfffe
0900 0355 0001  | U  |		.CONST	0x0355,0x0001
0902 0359 0002  | Y  |		.CONST	0x0359,0x0002
0904 035d 0003  | ]  |		.CONST	0x035d,0x0003
0906 0362 0004  | b  |		.CONST	0x0362,0x0004
0908 0365 0005  | e  |		.CONST	0x0365,0x0005
090a ; --------------------------------------------------------------------------------------
090a ; Debug3 Subtable 0x10
090a ; --------------------------------------------------------------------------------------
090a 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
090c 0373 ffff  | s  |		.CONST	0x0373,0xffff
090e 0378 fffe  | x  |		.CONST	0x0378,0xfffe
0910 037b 0001  | {  |		.CONST	0x037b,0x0001
0912 038d 0002  |    |		.CONST	0x038d,0x0002
0914 0390 0003  |    |		.CONST	0x0390,0x0003
0916 0397 0004  |    |		.CONST	0x0397,0x0004
0918 ; --------------------------------------------------------------------------------------
0918 ; Debug3 Subtable 0x11
0918 ; --------------------------------------------------------------------------------------
0918 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
091a 03a3 ffff  |    |		.CONST	0x03a3,0xffff
091c 03a6 fffe  |    |		.CONST	0x03a6,0xfffe
091e 03ab 0001  |    |		.CONST	0x03ab,0x0001
0920 03c3 0002  |    |		.CONST	0x03c3,0x0002
0922 03c5 0003  |    |		.CONST	0x03c5,0x0003
0924 03d8 0004  |    |		.CONST	0x03d8,0x0004
0926 ; --------------------------------------------------------------------------------------
0926 ; Debug3 Subtable 0x12
0926 ; --------------------------------------------------------------------------------------
0926 0006 0007  |    |		.DBG3TAB	0x0006,0x0007
0928 03e3 ffff  |    |		.CONST	0x03e3,0xffff
092a 03e6 fffe  |    |		.CONST	0x03e6,0xfffe
092c 03eb fffd  |    |		.CONST	0x03eb,0xfffd
092e 03f0 fffc  |    |		.CONST	0x03f0,0xfffc
0930 03f1 fffb  |    |		.CONST	0x03f1,0xfffb
0932 03f1 fffa  |    |		.CONST	0x03f1,0xfffa
0934 03f1 0001  |    |		.CONST	0x03f1,0x0001
0936 0409 0002  |    |		.CONST	0x0409,0x0002
0938 040b 0003  |    |		.CONST	0x040b,0x0003
093a 041e 0004  |    |		.CONST	0x041e,0x0004
093c 0422 0005  | "  |		.CONST	0x0422,0x0005
093e 0428 0006  | (  |		.CONST	0x0428,0x0006
0940 043d 0007  | =  |		.CONST	0x043d,0x0007
0942 ; --------------------------------------------------------------------------------------
0942 ; Debug3 Subtable 0x13
0942 ; --------------------------------------------------------------------------------------
0942 0004 0008  |    |		.DBG3TAB	0x0004,0x0008
0944 0463 ffff  | c  |		.CONST	0x0463,0xffff
0946 0469 fffe  | i  |		.CONST	0x0469,0xfffe
0948 046b fffd  | k  |		.CONST	0x046b,0xfffd
094a 0472 fffc  | r  |		.CONST	0x0472,0xfffc
094c 047a 0001  | z  |		.CONST	0x047a,0x0001
094e 0486 0002  |    |		.CONST	0x0486,0x0002
0950 0489 0003  |    |		.CONST	0x0489,0x0003
0952 04a1 0004  |    |		.CONST	0x04a1,0x0004
0954 04a4 0005  |    |		.CONST	0x04a4,0x0005
0956 04a6 0006  |    |		.CONST	0x04a6,0x0006
0958 04ae 0007  |    |		.CONST	0x04ae,0x0007
095a 04b4 0008  |    |		.CONST	0x04b4,0x0008
095c ; --------------------------------------------------------------------------------------
095c ; Debug3 Subtable 0x14
095c ; --------------------------------------------------------------------------------------
095c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
095e 04bb 0001  |    |		.CONST	0x04bb,0x0001
0960 ; --------------------------------------------------------------------------------------
0960 ; Debug3 Subtable 0x15
0960 ; --------------------------------------------------------------------------------------
0960 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0962 04cb ffff  |    |		.CONST	0x04cb,0xffff
0964 04d5 0001  |    |		.CONST	0x04d5,0x0001
0966 ; --------------------------------------------------------------------------------------
0966 ; Debug3 Subtable 0x16
0966 ; --------------------------------------------------------------------------------------
0966 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0968 04e3 0001  |    |		.CONST	0x04e3,0x0001
096a ; --------------------------------------------------------------------------------------
096a ; Debug3 Subtable 0x17
096a ; --------------------------------------------------------------------------------------
096a 0004 0009  |    |		.DBG3TAB	0x0004,0x0009
096c 04f3 ffff  |    |		.CONST	0x04f3,0xffff
096e 04f5 fffe  |    |		.CONST	0x04f5,0xfffe
0970 04f8 fffd  |    |		.CONST	0x04f8,0xfffd
0972 04fd fffc  |    |		.CONST	0x04fd,0xfffc
0974 0502 0001  |    |		.CONST	0x0502,0x0001
0976 0505 0002  |    |		.CONST	0x0505,0x0002
0978 0510 0003  |    |		.CONST	0x0510,0x0003
097a 0514 0004  |    |		.CONST	0x0514,0x0004
097c 052c 0005  | ,  |		.CONST	0x052c,0x0005
097e 052f 0006  | /  |		.CONST	0x052f,0x0006
0980 053c 0007  | <  |		.CONST	0x053c,0x0007
0982 053f 0008  | ?  |		.CONST	0x053f,0x0008
0984 054b 0009  | K  |		.CONST	0x054b,0x0009
0986 ; --------------------------------------------------------------------------------------
0986 ; Debug3 Subtable 0x18
0986 ; --------------------------------------------------------------------------------------
0986 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0988 0553 ffff  | S  |		.CONST	0x0553,0xffff
098a 0559 fffe  | Y  |		.CONST	0x0559,0xfffe
098c 055b 0001  | [  |		.CONST	0x055b,0x0001
098e 056e 0002  | n  |		.CONST	0x056e,0x0002
0990 0571 0003  | q  |		.CONST	0x0571,0x0003
0992 057a 0004  | z  |		.CONST	0x057a,0x0004
0994 ; --------------------------------------------------------------------------------------
0994 ; Debug3 Subtable 0x19
0994 ; --------------------------------------------------------------------------------------
0994 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0996 ; --------------------------------------------------------------------------------------
0996 ; Debug3 Subtable 0x1a
0996 ; --------------------------------------------------------------------------------------
0996 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0998 ; --------------------------------------------------------------------------------------
0998 ; Debug3 Subtable 0x1b
0998 ; --------------------------------------------------------------------------------------
0998 0004 0004  |    |		.DBG3TAB	0x0004,0x0004
099a 05bb ffff  |    |		.CONST	0x05bb,0xffff
099c 05c1 fffe  |    |		.CONST	0x05c1,0xfffe
099e 05c9 fffd  |    |		.CONST	0x05c9,0xfffd
09a0 05cf fffc  |    |		.CONST	0x05cf,0xfffc
09a2 05d7 0001  |    |		.CONST	0x05d7,0x0001
09a4 05dd 0002  |    |		.CONST	0x05dd,0x0002
09a6 05ed 0003  |    |		.CONST	0x05ed,0x0003
09a8 05f8 0004  |    |		.CONST	0x05f8,0x0004
09aa ; --------------------------------------------------------------------------------------
09aa ; Debug3 Subtable 0x1c
09aa ; --------------------------------------------------------------------------------------
09aa 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
09ac 060b ffff  |    |		.CONST	0x060b,0xffff
09ae 0614 fffe  |    |		.CONST	0x0614,0xfffe
09b0 0629 0001  | )  |		.CONST	0x0629,0x0001
09b2 062d 0002  | -  |		.CONST	0x062d,0x0002
09b4 062f 0003  | /  |		.CONST	0x062f,0x0003
09b6 ; --------------------------------------------------------------------------------------
09b6 ; Debug3 Subtable 0x1d
09b6 ; --------------------------------------------------------------------------------------
09b6 0006 0007  |    |		.DBG3TAB	0x0006,0x0007
09b8 0643 ffff  | C  |		.CONST	0x0643,0xffff
09ba 0649 fffe  | I  |		.CONST	0x0649,0xfffe
09bc 064b fffd  | K  |		.CONST	0x064b,0xfffd
09be 064c fffc  | L  |		.CONST	0x064c,0xfffc
09c0 0651 fffb  | Q  |		.CONST	0x0651,0xfffb
09c2 0657 fffa  | W  |		.CONST	0x0657,0xfffa
09c4 0657 0001  | W  |		.CONST	0x0657,0x0001
09c6 066b 0002  | k  |		.CONST	0x066b,0x0002
09c8 066d 0003  | m  |		.CONST	0x066d,0x0003
09ca 0676 0004  | v  |		.CONST	0x0676,0x0004
09cc 067b 0005  | {  |		.CONST	0x067b,0x0005
09ce 0680 0006  |    |		.CONST	0x0680,0x0006
09d0 0685 0007  |    |		.CONST	0x0685,0x0007
09d2 0000 0000  |    |		.BLANK	0000[0x2e]