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

⟦5fff036b2⟧

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

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 0410       |    |		.CONST	0x0410								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e1       |    |		.CONST	0x00e1								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x048a,0x8000,0x0000,0x005a,0x6b95,0x0000,0x000d
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 481f       |H   |		Short_Literal	0x1f
0010 00e2       |    |		Load_Encached	Integer_Cache
0011 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4 = 0x12,0xfffb
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x6 = 0x14,0xfff9
0015 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x7 = 0x15,0xfff8
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x8 = 0x16,0xfff7
0017 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x9 = 0x17,0xfff6
0018 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xa = 0x18,0xfff5
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xb = 0x19,0xfff4
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xc = 0x1a,0xfff3
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xd = 0x1b,0xfff2
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xe = 0x1c,0xfff1
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xf = 0x1d,0xfff0
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x10 = 0x1e,0xffef
001f 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x11 = 0x1f,0xffee
0020 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x12 = 0x20,0xffed
0021 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x13 = 0x21,0xffec
0022 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x14 = 0x22,0xffeb
0023 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0024 0129       | )  |		Execute	Any,Make_Visible
0025 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0x15 = 0x25,0xffea
0026 6315       |c   |		Indirect_Literal	Discrete,0x33c,{0x007cf80e, 0x00003830}
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0029 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x16 = 0x29,0xffe9
002b 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x17 = 0x2b,0xffe8
002d 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x18 = 0x2d,0xffe7
002f 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x19 = 0x2f,0xffe6
0031 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1a = 0x31,0xffe5
0033 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1b = 0x33,0xffe4
0035 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x1c = 0x35,0xffe3
0036 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0036,0x04c6,0x8000,0x0000,0x005a,0x7115,0x0000,0x001b
													; Debug Table 0x1.0x0 = 0x36,0xffff
0037 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x37,0xfffe
0038 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x38,0xfffd
0039 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x39,0xfffc
003a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x3a,0xfffb
003b 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x1.0x5 = 0x3b,0xfffa
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 4818       |H   |		Short_Literal	0x18
003e 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
003f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x6 = 0x3f,0xfff9
0040 481f       |H   |		Short_Literal	0x1f
0041 00da       |    |		Load_Top	At_Offset_2
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 4801       |H   |		Short_Literal	0x1
0044 035d       | ]  |		Declare_Type	Array,Defined
0045 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x7 = 0x45,0xfff8
0046 481f       |H   |		Short_Literal	0x1f
0047 e20e       |    |		Load	0x1,0xe
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 4801       |H   |		Short_Literal	0x1
004a 035d       | ]  |		Declare_Type	Array,Defined
004b 00d8       |    |		Load_Top	At_Offset_0
004c 0337       | 7  |		Declare_Variable	Array
004d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1.0x8 = 0x4d,0xfff7
004e 0337       | 7  |		Declare_Variable	Array
004f 00db       |    |		Load_Top	At_Offset_3
0050 0337       | 7  |		Declare_Variable	Array
0051 0092 03bd  |    |		Action	Push_String_Extended,0x3bd					; "<NOT SPECIAL>"
0053 e216       |    |		Load	0x1,0x16
0054 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0055 4800       |H   |		Short_Literal	0x0
0056 00da       |    |		Load_Top	At_Offset_2
0057 01d6       |    |		Execute	Vector,Field_Write
0058 0092 03be  |    |		Action	Push_String_Extended,0x3be					; "<UNKNOWN>"
005a e216       |    |		Load	0x1,0x16
005b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
005c 4801       |H   |		Short_Literal	0x1
005d 00da       |    |		Load_Top	At_Offset_2
005e 01d6       |    |		Execute	Vector,Field_Write
005f 0092 03bf  |    |		Action	Push_String_Extended,0x3bf					; "<IMAGE>"
0061 e216       |    |		Load	0x1,0x16
0062 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0063 4802       |H   |		Short_Literal	0x2
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 0092 03c0  |    |		Action	Push_String_Extended,0x3c0					; "<CURSOR>"
0068 e216       |    |		Load	0x1,0x16
0069 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
006a 4803       |H   |		Short_Literal	0x3
006b 00da       |    |		Load_Top	At_Offset_2
006c 01d6       |    |		Execute	Vector,Field_Write
006d 0092 03c1  |    |		Action	Push_String_Extended,0x3c1					; "<REGION>"
006f e216       |    |		Load	0x1,0x16
0070 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0071 4804       |H   |		Short_Literal	0x4
0072 00da       |    |		Load_Top	At_Offset_2
0073 01d6       |    |		Execute	Vector,Field_Write
0074 0092 03c2  |    |		Action	Push_String_Extended,0x3c2					; "<SELECTION>"
0076 e216       |    |		Load	0x1,0x16
0077 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0078 4805       |H   |		Short_Literal	0x5
0079 00da       |    |		Load_Top	At_Offset_2
007a 01d6       |    |		Execute	Vector,Field_Write
007b 0092 03c3  |    |		Action	Push_String_Extended,0x3c3					; "<TEXT>"
007d e216       |    |		Load	0x1,0x16
007e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
007f 4806       |H   |		Short_Literal	0x6
0080 00da       |    |		Load_Top	At_Offset_2
0081 01d6       |    |		Execute	Vector,Field_Write
0082 0092 03c4  |    |		Action	Push_String_Extended,0x3c4					; "<ACTIVITY>"
0084 e216       |    |		Load	0x1,0x16
0085 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0086 4807       |H   |		Short_Literal	0x7
0087 00da       |    |		Load_Top	At_Offset_2
0088 01d6       |    |		Execute	Vector,Field_Write
0089 0092 03c5  |    |		Action	Push_String_Extended,0x3c5					; "<SWITCH>"
008b e216       |    |		Load	0x1,0x16
008c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
008d 4808       |H   |		Short_Literal	0x8
008e 00da       |    |		Load_Top	At_Offset_2
008f 01d6       |    |		Execute	Vector,Field_Write
0090 0092 03c6  |    |		Action	Push_String_Extended,0x3c6					; "<ORDER>"
0092 e216       |    |		Load	0x1,0x16
0093 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0094 4809       |H   |		Short_Literal	0x9
0095 00da       |    |		Load_Top	At_Offset_2
0096 01d6       |    |		Execute	Vector,Field_Write
0097 0092 03c7  |    |		Action	Push_String_Extended,0x3c7					; "<VENTURE>"
0099 e216       |    |		Load	0x1,0x16
009a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
009b 480a       |H   |		Short_Literal	0xa
009c 00da       |    |		Load_Top	At_Offset_2
009d 01d6       |    |		Execute	Vector,Field_Write
009e 0092 03c8  |    |		Action	Push_String_Extended,0x3c8					; "<WORK_LIST>"
00a0 e216       |    |		Load	0x1,0x16
00a1 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00a2 480b       |H   |		Short_Literal	0xb
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 01d6       |    |		Execute	Vector,Field_Write
00a5 0092 03c9  |    |		Action	Push_String_Extended,0x3c9					; "<SUBSYSTEM_ID>"
00a7 e216       |    |		Load	0x1,0x16
00a8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00a9 480c       |H   |		Short_Literal	0xc
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac 0092 03ca  |    |		Action	Push_String_Extended,0x3ca					; "<VIEW>"
00ae e216       |    |		Load	0x1,0x16
00af 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b0 480d       |H   |		Short_Literal	0xd
00b1 00da       |    |		Load_Top	At_Offset_2
00b2 01d6       |    |		Execute	Vector,Field_Write
00b3 0092 03cb  |    |		Action	Push_String_Extended,0x3cb					; "<HOME>"
00b5 e216       |    |		Load	0x1,0x16
00b6 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b7 480e       |H   |		Short_Literal	0xe
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 01d6       |    |		Execute	Vector,Field_Write
00ba 481f       |H   |		Short_Literal	0x1f
00bb 480f       |H   |		Short_Literal	0xf
00bc e216       |    |		Load	0x1,0x16
00bd 00d9       |    |		Load_Top	At_Offset_1
00be e21b       |    |		Load	0x1,0x1b
00bf 01d6       |    |		Execute	Vector,Field_Write
00c0 3ffb       |?   |		Loop_Increasing	0xbc
00c1 e217       |    |		Load	0x1,0x17
00c2 01c3       |    |		Execute	Vector,Check_In_Type
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 01d4       |    |		Execute	Vector,Structure_Write
00c5 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x9 = 0xc5,0xfff5
00c6 00b6       |    |		Action	Make_Scope							; Debug Table 0x1.0xa = 0xc6,0xfff4
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 4803       |H   |		Short_Literal	0x3
00ca e20f       |    |		Load	0x1,0xf
00cb 020e       |    |		Execute	Module,Augment_Imports
00cc e20f       |    |		Load	0x1,0xf
00cd 020d       |    |		Execute	Module,Elaborate
00ce 0007       |    |		Action	Break_Optional
00cf 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call			; Debug Table 0x1.0xb = 0xcf,0xfff3
00d1 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call			; Debug Table 0x1.0xc = 0xd1,0xfff2
00d3 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call			; Debug Table 0x1.0xd = 0xd3,0xfff1
00d5 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xe = 0xd5,0xfff0
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xf = 0xd7,0xffef
00d8 00c7       |    |		Action	Elaborate_Subprogram
00d9 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x10 = 0xd9,0xffee
00da 00c7       |    |		Action	Elaborate_Subprogram
00db 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x11 = 0xdb,0xffed
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x12 = 0xdd,0xffec
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x13 = 0xdf,0xffeb
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1			BODY_0008:
00e1 00bc       |    |		Action	Signal_Activated
00e2 00bb       |    |		Action	Signal_Completion
00e3 0000 0000  |    |		.BLANK	0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f6       |    |		.CONST	0x00f6								; Address of begin
00e9 0187       |    |		.CONST	0x0187								; Address of exception handler
00ea 0003       |    |		.CONST	0x0003								; Number of locals
00eb			INIT_00e8:
00eb e002       |    |		Load	0x0,0x2								; Debug Table 0x2 = .DEBUG	0x00eb,0x04f0,0x0001,0x0000,0x005a,0x6b95,0x0000,0x00e1
													; Debug Table 0x2.0x0 = 0xeb,0xffff
00ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ed 02ff       |    |		Declare_Variable	Variant_Record
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f0 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x1 = 0xf0,0xfffe
00f1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00f2 02ff       |    |		Declare_Variable	Variant_Record
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 016d       | m  |		Execute	Variant_Record,Structure_Write
00f6			BODY_00e8:
00f6 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x2 = 0xf6,0x1
00f7 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x3 = 0xf7,0x401
00f8 a5fb       |    |		Store_Unchecked	0x2,-0x5						; Debug Table 0x2.0x4 = 0xf8,0x1
00f9 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x5 = 0xf9,0x2
00fa e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x6 = 0xfa,0x801
00fb 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
00fc e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x7 = 0xfc,0x2
00fd 016d       | m  |		Execute	Variant_Record,Structure_Write
00fe 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x8 = 0xfe,0x3
00ff e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x9 = 0xff,0xc01
0100 1b57       | W  |		Execute	Package,Field_Read,Field_Number 0x57
0101 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x2.0xa = 0x101,0x3
0102 016d       | m  |		Execute	Variant_Record,Structure_Write
0103 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xb = 0x103,0x4
0104 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0105 7044       |pD  |		Jump_Nonzero	0x14a
0106 0b01       |    |		Execute_Immediate	Case_Compare,0x1
0107 7045       |pE  |		Jump_Nonzero	0x14d
0108 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0109 7046       |pF  |		Jump_Nonzero	0x150
010a 0b03       |    |		Execute_Immediate	Case_Compare,0x3
010b 7044       |pD  |		Jump_Nonzero	0x150
010c 0b04       |    |		Execute_Immediate	Case_Compare,0x4
010d 7042       |pB  |		Jump_Nonzero	0x150
010e 0b05       |    |		Execute_Immediate	Case_Compare,0x5
010f 7040       |p@  |		Jump_Nonzero	0x150
0110 0b06       |    |		Execute_Immediate	Case_Compare,0x6
0111 705e       |p^  |		Jump_Nonzero	0x170
0112 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
0113 705f       |p_  |		Jump_Nonzero	0x173
0114 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
0115 705d       |p]  |		Jump_Nonzero	0x173
0116 0b0e       |    |		Execute_Immediate	Case_Compare,0xe
0117 7066       |pf  |		Jump_Nonzero	0x17e
0118 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0xc = 0x118,0xd
0119 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xd = 0x119,0x1001
011a e003       |    |		Load	0x0,0x3
011b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011c 0f00       |    |		Execute_Immediate	Equal,0x0
011d 6810       |h   |		Jump_Zero	0x12e							; Debug Table 0x2.0xe = 0x11d,0xd
011e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0xf = 0x11e,0xe
011f e5fe       |    |		Load	0x2,-0x2
0120 4805       |H   |		Short_Literal	0x5
0121 e21a       |    |		Load	0x1,0x1a
0122 01d7       |    |		Execute	Vector,Field_Read
0123 0227       | '  |		Execute	Access,All_Reference
0124 821b       |    |		Call	0x1,0x1b
0125 00d1       |    |		Pop_Control	Pop_Count_1
0126 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x10 = 0x126,0xf
0127 e5fe       |    |		Load	0x2,-0x2
0128 4802       |H   |		Short_Literal	0x2
0129 e21a       |    |		Load	0x1,0x1a
012a 01d7       |    |		Execute	Vector,Field_Read
012b 0227       | '  |		Execute	Access,All_Reference
012c 821b       |    |		Call	0x1,0x1b
012d 00d1       |    |		Pop_Control	Pop_Count_1
012e e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x11 = 0x12e,0x10
012f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0130 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0131 e5f9       |    |		Load	0x2,-0x7
0132 e5fa       |    |		Load	0x2,-0x6
0133 e002       |    |		Load	0x0,0x2
0134 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0135 e5fc       |    |		Load	0x2,-0x4
0136 e403       |    |		Load	0x2,0x3
0137 e402       |    |		Load	0x2,0x2
0138 e5fe       |    |		Load	0x2,-0x2
0139 e5ff       |    |		Load	0x2,-0x1
013a e219       |    |		Load	0x1,0x19
013b 01d7       |    |		Execute	Vector,Field_Read
013c e004       |    |		Load	0x0,0x4
013d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
013e 00d8       |    |		Load_Top	At_Offset_0
013f e004       |    |		Load	0x0,0x4
0140 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0141 7003       |p   |		Jump_Nonzero	0x145
0142 e001       |    |		Load	0x0,0x1
0143 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0144 0257       | W  |		Execute	Discrete,Raise
0145 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0146 c5fb       |    |		Store	0x2,-0x5
0147 00d2       |    |		Pop_Control	Pop_Count_2
0148 c5f8       |    |		Store	0x2,-0x8
0149 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
014a 4802       |H   |		Short_Literal	0x2							; Debug Table 0x2.0x12 = 0x14a,0x5
014b a5f8       |    |		Store_Unchecked	0x2,-0x8
014c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
014d 4803       |H   |		Short_Literal	0x3							; Debug Table 0x2.0x13 = 0x14d,0x6
014e a5f8       |    |		Store_Unchecked	0x2,-0x8
014f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0150 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x14 = 0x150,0x7
0151 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0152 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0153 e5f9       |    |		Load	0x2,-0x7
0154 e5fa       |    |		Load	0x2,-0x6
0155 00ec       |    |		Load_Encached	Diana_Tree_Cache
0156 e005       |    |		Load	0x0,0x5
0157 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0158 e5ff       |    |		Load	0x2,-0x1
0159 8211       |    |		Call	0x1,0x11
015a e006       |    |		Load	0x0,0x6
015b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015c c5fb       |    |		Store	0x2,-0x5
015d 00d2       |    |		Pop_Control	Pop_Count_2
015e c5f8       |    |		Store	0x2,-0x8
015f e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x2.0x15 = 0x15f,0x8
0160 680e       |h   |		Jump_Zero	0x16f
0161 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x16 = 0x161,0x9
0162 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0163 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0164 e5f9       |    |		Load	0x2,-0x7
0165 e5fa       |    |		Load	0x2,-0x6
0166 e002       |    |		Load	0x0,0x2
0167 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0168 e5ff       |    |		Load	0x2,-0x1
0169 8211       |    |		Call	0x1,0x11
016a e007       |    |		Load	0x0,0x7
016b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
016c c5fb       |    |		Store	0x2,-0x5
016d 00d2       |    |		Pop_Control	Pop_Count_2
016e c5f8       |    |		Store	0x2,-0x8
016f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0170 4803       |H   |		Short_Literal	0x3							; Debug Table 0x2.0x17 = 0x170,0xa
0171 a5f8       |    |		Store_Unchecked	0x2,-0x8
0172 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0173 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x18 = 0x173,0xb
0174 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0175 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0176 e5fa       |    |		Load	0x2,-0x6
0177 e5fe       |    |		Load	0x2,-0x2
0178 e5fd       |    |		Load	0x2,-0x3
0179 e5ff       |    |		Load	0x2,-0x1
017a 821c       |    |		Call	0x1,0x1c
017b 00d1       |    |		Pop_Control	Pop_Count_1
017c c5f8       |    |		Store	0x2,-0x8
017d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017e e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x19 = 0x17e,0xc
017f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0180 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0181 e5fa       |    |		Load	0x2,-0x6
0182 e5fe       |    |		Load	0x2,-0x2
0183 821d       |    |		Call	0x1,0x1d
0184 00d1       |    |		Pop_Control	Pop_Count_1
0185 c5f8       |    |		Store	0x2,-0x8
0186 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0187			TRAP_00e8:
0187 0007       |    |		Action	Break_Optional
0188 480e       |H   |		Short_Literal	0xe							; Debug Table 0x2.0x1a = 0x188,0x11
0189 a5f8       |    |		Store_Unchecked	0x2,-0x8
018a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
018b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0193,0x0528,0x0002,0x0000,0x005a,0x6b95,0x0000,0x011e
													; Debug Table 0x3.0x0 = 0x193,0x1
0194 e21a       |    |		Load	0x1,0x1a
0195 01d7       |    |		Execute	Vector,Field_Read
0196 6806       |h   |		Jump_Zero	0x19d
0197 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x1 = 0x197,0x2
0198 e21a       |    |		Load	0x1,0x1a
0199 01d7       |    |		Execute	Vector,Field_Read
019a 0227       | '  |		Execute	Access,All_Reference
019b 0335       | 5  |		Declare_Variable	Array,Duplicate
019c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019d 0092 03be  |    |		Action	Push_String_Extended,0x3be					; "<UNKNOWN>"
													; Debug Table 0x3.0x2 = 0x19d,0x3
019f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b6       |    |		.CONST	0x01b6								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0004       |    |		.CONST	0x0004								; Number of locals
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x01a3,0x0530,0x0002,0x0000,0x005a,0x6b95,0x0000,0x0127
													; Debug Table 0x4.0x0 = 0x1a3,0xffff
01a4 01db       |    |		Execute	Vector,Length
01a5 0aff       |    |		Execute_Immediate	Plus,-0x1
01a6 0248       | H  |		Execute	Discrete,Check_In_Integer
01a7 00e2       |    |		Load_Encached	Integer_Cache
01a8 03f1       |    |		Declare_Variable	Discrete,With_Value
01a9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0x1 = 0x1a9,0xfffe
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab 0a01       |    |		Execute_Immediate	Plus,0x1
01ac 0248       | H  |		Execute	Discrete,Check_In_Integer
01ad 00e9       |    |		Load_Encached	String_Cache
01ae 0334       | 4  |		Declare_Variable	Array,With_Constraint
01af e5ff       |    |		Load	0x2,-0x1
01b0 e008       |    |		Load	0x0,0x8
01b1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 01d4       |    |		Execute	Vector,Structure_Write
01b4 e216       |    |		Load	0x1,0x16							; Debug Table 0x4.0x2 = 0x1b4,0xfffd
01b5 0007       |    |		Action	Break_Optional
01b6			BODY_01a0:
01b6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x3 = 0x1b6,0x1
01b7 01db       |    |		Execute	Vector,Length
01b8 682e       |h.  |		Jump_Zero	0x1e7
01b9 4801       |H   |		Short_Literal	0x1
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 01d7       |    |		Execute	Vector,Field_Read
01bc 0f3c       | <  |		Execute_Immediate	Equal,0x3c
01bd 6829       |h)  |		Jump_Zero	0x1e7
01be 00da       |    |		Load_Top	At_Offset_2
01bf 0a01       |    |		Execute_Immediate	Plus,0x1
01c0 0248       | H  |		Execute	Discrete,Check_In_Integer
01c1 00da       |    |		Load_Top	At_Offset_2
01c2 01d7       |    |		Execute	Vector,Field_Read
01c3 0f3e       | >  |		Execute_Immediate	Equal,0x3e
01c4 6822       |h"  |		Jump_Zero	0x1e7
01c5 00cf       |    |		Action	Mark_Auxiliary
01c6 481f       |H   |		Short_Literal	0x1f							; Debug Table 0x4.0x4 = 0x1c6,0x2
01c7 4800       |H   |		Short_Literal	0x0
01c8 0007       |    |		Action	Break_Optional
01c9 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x5 = 0x1c9,0x3
01ca e21a       |    |		Load	0x1,0x1a
01cb 01d7       |    |		Execute	Vector,Field_Read
01cc a404       |    |		Store_Unchecked	0x2,0x4
01cd 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x6 = 0x1cd,0x4
01ce 6813       |h   |		Jump_Zero	0x1e2
01cf e402       |    |		Load	0x2,0x2
01d0 e404       |    |		Load	0x2,0x4
01d1 0227       | '  |		Execute	Access,All_Reference
01d2 01db       |    |		Execute	Vector,Length
01d3 027c       | |  |		Execute	Discrete,Less
01d4 680d       |h   |		Jump_Zero	0x1e2
01d5 4801       |H   |		Short_Literal	0x1
01d6 e402       |    |		Load	0x2,0x2
01d7 e403       |    |		Load	0x2,0x3
01d8 01cf       |    |		Execute	Vector,Slice_Read
01d9 4801       |H   |		Short_Literal	0x1
01da e402       |    |		Load	0x2,0x2
01db e404       |    |		Load	0x2,0x4
01dc 0227       | '  |		Execute	Access,All_Reference
01dd 01cf       |    |		Execute	Vector,Slice_Read
01de 01df       |    |		Execute	Vector,Equal
01df 6802       |h   |		Jump_Zero	0x1e2
01e0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x7 = 0x1e0,0x5
01e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e2 00c8       |    |		Action	Pop_Auxiliary_Range
01e3 3fe5       |?   |		Loop_Increasing	0x1c9
01e4 00ce       |    |		Action	Pop_Auxiliary
01e5 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0x8 = 0x1e5,0x6
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x9 = 0x1e7,0x7
01e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e9 0000 0000  |    |		.BLANK	0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x01f3,0x0546,0x0001,0x0000,0x005a,0x6b95,0x0000,0x0130
													; Debug Table 0x5.0x0 = 0x1f3,0x1
01f4 8212       |    |		Call	0x1,0x12
01f5 a5fe       |    |		Store_Unchecked	0x2,-0x2
01f6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x1 = 0x1f6,0x2
01f7 0007       |    |		Action	Break_Optional
01f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x5.0x2 = 0x1f8,0x5
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 020d       |    |		.CONST	0x020d								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x0203,0x054e,0x0002,0x0000,0x005a,0x6b95,0x0000,0x0142
													; Debug Table 0x6.0x0 = 0x203,0x1
0204 00d8       |    |		Load_Top	At_Offset_0
0205 e002       |    |		Load	0x0,0x2
0206 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0207 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
0208 0260       | `  |		Execute	Discrete,In_Type
0209 7002       |p   |		Jump_Nonzero	0x20c
020a 48e0       |H   |		Short_Literal	0xe0
020b 0257       | W  |		Execute	Discrete,Raise
020c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020d			TRAP_0200:
020d 010e       |    |		Execute	Exception,Is_Constraint_Error
020e 6802       |h   |		Jump_Zero	0x211
020f 480f       |H   |		Short_Literal	0xf							; Debug Table 0x6.0x1 = 0x20f,0x2
0210 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0211 0100       |    |		Execute	Exception,Raise
0212 0000 0000  |    |		.BLANK	0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x021b,0x0554,0x0002,0x0000,0x005a,0x6b95,0x0000,0x014f
													; Debug Table 0x7.0x0 = 0x21b,0x1
021c 00d8       |    |		Load_Top	At_Offset_0
021d e20d       |    |		Load	0x1,0xd
021e 0122       | "  |		Execute	Any,Make_Root_Type
021f 0260       | `  |		Execute	Discrete,In_Type
0220 7002       |p   |		Jump_Nonzero	0x223
0221 48e0       |H   |		Short_Literal	0xe0
0222 0257       | W  |		Execute	Discrete,Raise
0223 e20d       |    |		Load	0x1,0xd
0224 025b       | [  |		Execute	Discrete,Check_In_Type
0225 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023b       | ;  |		.CONST	0x023b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0006       |    |		.CONST	0x0006								; Number of locals
022b			INIT_0228:
022b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8 = .DEBUG	0x022b,0x0558,0x0001,0x0000,0x005a,0x7115,0x0000,0x0157
													; Debug Table 0x8.0x0 = 0x22b,0xffff
022c e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x1 = 0x22c,0xfffe
022d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
022e 02ff       |    |		Declare_Variable	Variant_Record
022f 00d8       |    |		Load_Top	At_Offset_0
0230 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0231 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x2 = 0x231,0xfffd
0232 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0233 02ff       |    |		Declare_Variable	Variant_Record
0234 00d8       |    |		Load_Top	At_Offset_0
0235 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0236 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x3 = 0x236,0xfffc
0237 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0238 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0239 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x4 = 0x239,0xfffb
023a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023b			BODY_0228:
023b e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x5 = 0x23b,0x1
023c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
023d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
023e 00db       |    |		Load_Top	At_Offset_3
023f e403       |    |		Load	0x2,0x3
0240 00ec       |    |		Load_Encached	Diana_Tree_Cache
0241 e005       |    |		Load	0x0,0x5
0242 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0243 e5ff       |    |		Load	0x2,-0x1
0244 e006       |    |		Load	0x0,0x6
0245 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0246 c402       |    |		Store	0x2,0x2
0247 00d2       |    |		Pop_Control	Pop_Count_2
0248 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0249 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x6 = 0x249,0x2
024a 0f0d       |    |		Execute_Immediate	Equal,0xd
024b 680d       |h   |		Jump_Zero	0x259
024c e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x7 = 0x24c,0x3
024d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
024e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024f 00db       |    |		Load_Top	At_Offset_3
0250 e403       |    |		Load	0x2,0x3
0251 e002       |    |		Load	0x0,0x2
0252 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0253 e5ff       |    |		Load	0x2,-0x1
0254 e007       |    |		Load	0x0,0x7
0255 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0256 c402       |    |		Store	0x2,0x2
0257 00d2       |    |		Pop_Control	Pop_Count_2
0258 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0259 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x8 = 0x259,0x4
025a 7034       |p4  |		Jump_Nonzero	0x28f
025b 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x9 = 0x25b,0x5
025c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0xa = 0x25c,0x401
025d e003       |    |		Load	0x0,0x3
025e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
025f 0f00       |    |		Execute_Immediate	Equal,0x0
0260 682e       |h.  |		Jump_Zero	0x28f							; Debug Table 0x8.0xb = 0x260,0x5
0261 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0xc = 0x261,0x6
0262 0007       |    |		Action	Break_Optional
0263 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0xd = 0x263,0x801
0264 e009       |    |		Load	0x0,0x9
0265 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0266 00d0       |    |		Action	Swap_Control
0267 00d1       |    |		Pop_Control	Pop_Count_1
0268 6812       |h   |		Jump_Zero	0x27b							; Debug Table 0x8.0xe = 0x268,0x6
0269 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0xf = 0x269,0x7
026a e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x10 = 0x26a,0xc01
026b 021d       |    |		Execute	Heap_Access,Is_Null
026c 700e       |p   |		Jump_Nonzero	0x27b							; Debug Table 0x8.0x11 = 0x26c,0x7
026d e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x12 = 0x26d,0x8
026e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
026f e403       |    |		Load	0x2,0x3
0270 60c7       |`   |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x00004000}
0271 e5fe       |    |		Load	0x2,-0x2
0272 4801       |H   |		Short_Literal	0x1
0273 e002       |    |		Load	0x0,0x2
0274 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0275 e402       |    |		Load	0x2,0x2
0276 e002       |    |		Load	0x0,0x2
0277 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0278 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0279 00d1       |    |		Pop_Control	Pop_Count_1
027a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
027b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x13 = 0x27b,0x9
027c 0007       |    |		Action	Break_Optional
027d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x14 = 0x27d,0x1001
027e e009       |    |		Load	0x0,0x9
027f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0280 00d0       |    |		Action	Swap_Control
0281 00d1       |    |		Pop_Control	Pop_Count_1
0282 700c       |p   |		Jump_Nonzero	0x28f							; Debug Table 0x8.0x15 = 0x282,0x9
0283 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x16 = 0x283,0xa
0284 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0285 00db       |    |		Load_Top	At_Offset_3
0286 60b1       |`   |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x00004000}
0287 e5fe       |    |		Load	0x2,-0x2
0288 4800       |H   |		Short_Literal	0x0
0289 e403       |    |		Load	0x2,0x3
028a e002       |    |		Load	0x0,0x2
028b 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
028c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
028d 00d1       |    |		Pop_Control	Pop_Count_1
028e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
028f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x17 = 0x28f,0xb
0290 e5fd       |    |		Load	0x2,-0x3
0291 016d       | m  |		Execute	Variant_Record,Structure_Write
0292 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0293 0000 0000  |    |		.BLANK	0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02b0       |    |		.CONST	0x02b0								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0005       |    |		.CONST	0x0005								; Number of locals
029b			INIT_0298:
029b e002       |    |		Load	0x0,0x2								; Debug Table 0x9 = .DEBUG	0x029b,0x058a,0x0001,0x0000,0x005a,0x7115,0x0000,0x0207
													; Debug Table 0x9.0x0 = 0x29b,0xffff
029c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
029d 02ff       |    |		Declare_Variable	Variant_Record
029e e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x1 = 0x29e,0x401
029f 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
02a0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x2 = 0x2a0,0xffff
02a1 016d       | m  |		Execute	Variant_Record,Structure_Write
02a2 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x3 = 0x2a2,0xfffe
02a3 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a5 02ff       |    |		Declare_Variable	Variant_Record
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a8 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x4 = 0x2a8,0xfffd
02a9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02aa 02ff       |    |		Declare_Variable	Variant_Record
02ab e5fe       |    |		Load	0x2,-0x2
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad 016d       | m  |		Execute	Variant_Record,Structure_Write
02ae e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x5 = 0x2ae,0xfffc
02af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b0			BODY_0298:
02b0 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x6 = 0x2b0,0x1
02b1 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x7 = 0x2b1,0x801
02b2 e003       |    |		Load	0x0,0x3
02b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02b4 0f00       |    |		Execute_Immediate	Equal,0x0
02b5 6816       |h   |		Jump_Zero	0x2cc							; Debug Table 0x9.0x8 = 0x2b5,0x1
02b6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x9 = 0x2b6,0x2
02b7 e5fd       |    |		Load	0x2,-0x3
02b8 4805       |H   |		Short_Literal	0x5
02b9 e21a       |    |		Load	0x1,0x1a
02ba 01d7       |    |		Execute	Vector,Field_Read
02bb 0227       | '  |		Execute	Access,All_Reference
02bc 821b       |    |		Call	0x1,0x1b
02bd 00d1       |    |		Pop_Control	Pop_Count_1
02be 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0xa = 0x2be,0x3
02bf 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0xb = 0x2bf,0xc01
02c0 e003       |    |		Load	0x0,0x3
02c1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c2 0f00       |    |		Execute_Immediate	Equal,0x0
02c3 6808       |h   |		Jump_Zero	0x2cc							; Debug Table 0x9.0xc = 0x2c3,0x3
02c4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0xd = 0x2c4,0x4
02c5 e5fd       |    |		Load	0x2,-0x3
02c6 4802       |H   |		Short_Literal	0x2
02c7 e21a       |    |		Load	0x1,0x1a
02c8 01d7       |    |		Execute	Vector,Field_Read
02c9 0227       | '  |		Execute	Access,All_Reference
02ca 821b       |    |		Call	0x1,0x1b
02cb 00d1       |    |		Pop_Control	Pop_Count_1
02cc 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0xe = 0x2cc,0x5
02cd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0xf = 0x2cd,0x1001
02ce e003       |    |		Load	0x0,0x3
02cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d0 0f00       |    |		Execute_Immediate	Equal,0x0
02d1 6808       |h   |		Jump_Zero	0x2da							; Debug Table 0x9.0x10 = 0x2d1,0x5
02d2 480e       |H   |		Short_Literal	0xe							; Debug Table 0x9.0x11 = 0x2d2,0x6
02d3 a5fb       |    |		Store_Unchecked	0x2,-0x5
02d4 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x12 = 0x2d4,0x7
02d5 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x13 = 0x2d5,0x1401
02d6 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
02d7 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x14 = 0x2d7,0x7
02d8 016d       | m  |		Execute	Variant_Record,Structure_Write
02d9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02da e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x15 = 0x2da,0x8
02db 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02dc e402       |    |		Load	0x2,0x2
02dd 605a       |`Z  |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x00004000}
02de e5fd       |    |		Load	0x2,-0x3
02df e404       |    |		Load	0x2,0x4
02e0 e002       |    |		Load	0x0,0x2
02e1 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
02e2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02e3 00d1       |    |		Pop_Control	Pop_Count_1
02e4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02e5 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x16 = 0x2e5,0x9
02e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e7 00db       |    |		Load_Top	At_Offset_3
02e8 e402       |    |		Load	0x2,0x2
02e9 e002       |    |		Load	0x0,0x2
02ea 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
02eb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02ec 00d1       |    |		Pop_Control	Pop_Count_1
02ed 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02ee 00cf       |    |		Action	Mark_Auxiliary
02ef 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x17 = 0x2ef,0xa
02f0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x18 = 0x2f0,0xb
02f1 e002       |    |		Load	0x0,0x2
02f2 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02f3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02f4 e402       |    |		Load	0x2,0x2
02f5 016d       | m  |		Execute	Variant_Record,Structure_Write
02f6 e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0x19 = 0x2f6,0xc
02f7 0007       |    |		Action	Break_Optional
02f8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x1a = 0x2f8,0x1801
02f9 e009       |    |		Load	0x0,0x9
02fa 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02fb 00d0       |    |		Action	Swap_Control
02fc 00d1       |    |		Pop_Control	Pop_Count_1
02fd 6808       |h   |		Jump_Zero	0x306							; Debug Table 0x9.0x1b = 0x2fd,0xc
02fe 4803       |H   |		Short_Literal	0x3							; Debug Table 0x9.0x1c = 0x2fe,0xd
02ff a5fb       |    |		Store_Unchecked	0x2,-0x5
0300 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x1d = 0x300,0xe
0301 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x1e = 0x301,0x1c01
0302 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0303 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x1f = 0x303,0xe
0304 016d       | m  |		Execute	Variant_Record,Structure_Write
0305 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x9.0x20 = 0x305,0xf
0306 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0x21 = 0x306,0x10
0307 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
0308 7003       |p   |		Jump_Nonzero	0x30c
0309 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
030a 7009       |p   |		Jump_Nonzero	0x314
030b 7816       |x   |		Jump	0x322								; Debug Table 0x9.0x22 = 0x30b,0x13
030c 602b       |`+  |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x00004000}		; Debug Table 0x9.0x23 = 0x30c,0x11
030d e5fd       |    |		Load	0x2,-0x3
030e e402       |    |		Load	0x2,0x2
030f e00a       |    |		Load	0x0,0xa
0310 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0311 6810       |h   |		Jump_Zero	0x322
0312 00d1       |    |		Pop_Control	Pop_Count_1
0313 781a       |x   |		Jump	0x32e
0314 6023       |`#  |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x00004000}		; Debug Table 0x9.0x24 = 0x314,0x12
0315 e5fd       |    |		Load	0x2,-0x3
0316 e402       |    |		Load	0x2,0x2
0317 e00a       |    |		Load	0x0,0xa
0318 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0319 7006       |p   |		Jump_Nonzero	0x320
031a 601d       |`   |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x00004000}
031b e5fd       |    |		Load	0x2,-0x3
031c e402       |    |		Load	0x2,0x2
031d e00a       |    |		Load	0x0,0xa
031e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
031f 6802       |h   |		Jump_Zero	0x322
0320 00d1       |    |		Pop_Control	Pop_Count_1
0321 780c       |x   |		Jump	0x32e
0322 00d1       |    |		Pop_Control	Pop_Count_1
0323 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x25 = 0x323,0x14
0324 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0325 e403       |    |		Load	0x2,0x3
0326 e402       |    |		Load	0x2,0x2
0327 e002       |    |		Load	0x0,0x2
0328 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0329 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
032a 00d1       |    |		Pop_Control	Pop_Count_1
032b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
032c 00c9       |    |		Action	Pop_Auxiliary_Loop
032d 7fc2       |    |		Jump	0x2f0
032e 00ce       |    |		Action	Pop_Auxiliary
032f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x26 = 0x32f,0x15
0330 a5fb       |    |		Store_Unchecked	0x2,-0x5
0331 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x27 = 0x331,0x16
0332 e5fc       |    |		Load	0x2,-0x4
0333 016d       | m  |		Execute	Variant_Record,Structure_Write
0334 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
033c 007c f80e  | |  |		.LITERAL	{0x007cf80e, 0x00003830}
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034a       | J  |		.CONST	0x034a								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0003       |    |		.CONST	0x0003								; Number of locals
0343			INIT_0340:
0343 e003       |    |		Load	0x0,0x3								; Debug Table 0xa = .DEBUG	0x0343,0x05dc,0x0001,0x0000,0x005a,0x7115,0x0000,0x02f2
													; Debug Table 0xa.0x0 = 0x343,0xffff
0344 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0345 02ff       |    |		Declare_Variable	Variant_Record
0346 00d8       |    |		Load_Top	At_Offset_0
0347 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0348 e00b       |    |		Load	0x0,0xb								; Debug Table 0xa.0x1 = 0x348,0xfffe
0349 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
034a			BODY_0340:
034a e00b       |    |		Load	0x0,0xb								; Debug Table 0xa.0x2 = 0x34a,0x1
034b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
034c 00da       |    |		Load_Top	At_Offset_2
034d e5ff       |    |		Load	0x2,-0x1
034e 4800       |H   |		Short_Literal	0x0
034f e00c       |    |		Load	0x0,0xc
0350 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0351 e00d       |    |		Load	0x0,0xd
0352 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0353 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0354 e00d       |    |		Load	0x0,0xd
0355 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0356 00d1       |    |		Pop_Control	Pop_Count_1
0357 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0358 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x3 = 0x358,0x2
0359 4607       |F   |		Jump_Case	0x8
035a 7807       |x   |		Jump	0x362								; case 0x0
035b 7810       |x   |		Jump	0x36c								; case 0x1
035c 7818       |x   |		Jump	0x375								; case 0x2
035d 7817       |x   |		Jump	0x375								; case 0x3
035e 7813       |x   |		Jump	0x372								; case 0x4
035f 7815       |x   |		Jump	0x375								; case 0x5
0360 780e       |x   |		Jump	0x36f								; case 0x6
0361 7813       |x   |		Jump	0x375								; case 0x7
0362 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x4 = 0x362,0x3
0363 a5fd       |    |		Store_Unchecked	0x2,-0x3
0364 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x5 = 0x364,0x4
0365 0007       |    |		Action	Break_Optional
0366 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x6 = 0x366,0x401
0367 00d0       |    |		Action	Swap_Control
0368 00d1       |    |		Pop_Control	Pop_Count_1
0369 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xa.0x7 = 0x369,0x4
036a 016d       | m  |		Execute	Variant_Record,Structure_Write
036b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xa.0x8 = 0x36b,0x5
036c 4804       |H   |		Short_Literal	0x4							; Debug Table 0xa.0x9 = 0x36c,0x6
036d a5fd       |    |		Store_Unchecked	0x2,-0x3
036e 7808       |x   |		Jump	0x377
036f 4805       |H   |		Short_Literal	0x5							; Debug Table 0xa.0xa = 0x36f,0x7
0370 a5fd       |    |		Store_Unchecked	0x2,-0x3
0371 7805       |x   |		Jump	0x377
0372 4803       |H   |		Short_Literal	0x3							; Debug Table 0xa.0xb = 0x372,0x8
0373 a5fd       |    |		Store_Unchecked	0x2,-0x3
0374 7802       |x   |		Jump	0x377
0375 480e       |H   |		Short_Literal	0xe							; Debug Table 0xa.0xc = 0x375,0x9
0376 a5fd       |    |		Store_Unchecked	0x2,-0x3
0377 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0xd = 0x377,0xa
0378 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0xe = 0x378,0x801
0379 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
037a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xa.0xf = 0x37a,0xa
037b 016d       | m  |		Execute	Variant_Record,Structure_Write
037c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
037d 0000 0000  |    |		.XXX[0x3]
037f 0000       |    |
0380 038d 0004  |    |		.XXX[0x3]
0382 0013       |    |
0383 029c 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible		; Debug Table 0xb = .DEBUG	0x0383,0x05fe,0x4000,0x0000,0x005a,0x6b95,0x0000,0x0086
													; Debug Table 0xb.0x0 = 0x383,0xffff
0385 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x1 = 0x385,0xfffe
0386 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0xb.0x2 = 0x386,0xfffd
0388 00bf       |    |		Action	Accept_Activation
0389 e001       |    |		Load	0x0,0x1								; Debug Table 0xc = .DEBUG	0x0389,0x0606,0x4000,0x0000,0x005a,0x7115,0x0000,0x0119
													; Debug Table 0xc.0x0 = 0x389,0xffff
038a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
038b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0xc.0x1 = 0x38b,0xfffe
038c 00c7       |    |		Action	Elaborate_Subprogram
038d 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x2 = 0x38d,0x1
038e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
038f 00cf       |    |		Action	Mark_Auxiliary
0390 480b       |H   |		Short_Literal	0xb							; Debug Table 0xc.0x3 = 0x390,0x2
0391 4807       |H   |		Short_Literal	0x7
0392 0007       |    |		Action	Break_Optional
0393 e210       |    |		Load	0x1,0x10							; Debug Table 0xc.0x4 = 0x393,0x3
0394 00d9       |    |		Load_Top	At_Offset_1
0395 e002       |    |		Load	0x0,0x2
0396 01d7       |    |		Execute	Vector,Field_Read
0397 0227       | '  |		Execute	Access,All_Reference
0398 01df       |    |		Execute	Vector,Equal
0399 6804       |h   |		Jump_Zero	0x39e
039a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x5 = 0x39a,0x4
039b a213       |    |		Store_Unchecked	0x1,0x13
039c 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0xc.0x6 = 0x39c,0x5
039d 7802       |x   |		Jump	0x3a0
039e 00c8       |    |		Action	Pop_Auxiliary_Range
039f 3ff3       |?   |		Loop_Increasing	0x393
03a0 00ce       |    |		Action	Pop_Auxiliary
03a1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x7 = 0x3a1,0x6
03a2 0e01       |    |		Execute_Immediate	Not_Equal,0x1
03a3 6804       |h   |		Jump_Zero	0x3a8
03a4 8211       |    |		Call	0x1,0x11							; Debug Table 0xc.0x8 = 0x3a4,0x7
03a5 00d9       |    |		Load_Top	At_Offset_1
03a6 e003       |    |		Load	0x0,0x3
03a7 01d6       |    |		Execute	Vector,Field_Write
03a8 00bc       |    |		Action	Signal_Activated
03a9 00bb       |    |		Action	Signal_Completion
03aa 0000 0000  |    |		.BLANK	0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00b6       |    |		Action	Make_Scope							; Debug Table 0xd = .DEBUG	0x03b3,0x061a,0x1002,0x0000,0x005a,0x6b95,0x0000,0x00cf
03b4 020a       |    |		Execute	Module,Get_Name
03b5 00ca       |    |		Action	Exit_Nullary_Function
03b6 0000 0000  |    |		.XXX[0x2]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb e213       |    |		Load	0x1,0x13							; Debug Table 0xe = .DEBUG	0x03bb,0x061c,0x1002,0x0000,0x005a,0x6b95,0x0000,0x00d8
													; Debug Table 0xe.0x0 = 0x3bb,0x1
03bc 00ca       |    |		Action	Exit_Nullary_Function
03bd ; --------------------------------------------------------------------------------------
03bd ; STRING TABLE
03bd ; --------------------------------------------------------------------------------------
03bd 0020       |    |		.STRTAB	0x0020->0x03cd							; "<NOT SPECIAL>"
03be 002b       | +  |		.STRTAB	0x002b->0x03d3							; "<UNKNOWN>"
03bf 0032       | 2  |		.STRTAB	0x0032->0x03d8							; "<IMAGE>"
03c0 0037       | 7  |		.STRTAB	0x0037->0x03db							; "<CURSOR>"
03c1 003d       | =  |		.STRTAB	0x003d->0x03df							; "<REGION>"
03c2 0043       | C  |		.STRTAB	0x0043->0x03e3							; "<SELECTION>"
03c3 004c       | L  |		.STRTAB	0x004c->0x03e9							; "<TEXT>"
03c4 0050       | P  |		.STRTAB	0x0050->0x03ec							; "<ACTIVITY>"
03c5 0058       | X  |		.STRTAB	0x0058->0x03f1							; "<SWITCH>"
03c6 005e       | ^  |		.STRTAB	0x005e->0x03f5							; "<ORDER>"
03c7 0063       | c  |		.STRTAB	0x0063->0x03f8							; "<VENTURE>"
03c8 006a       | j  |		.STRTAB	0x006a->0x03fd							; "<WORK_LIST>"
03c9 0073       | s  |		.STRTAB	0x0073->0x0402							; "<SUBSYSTEM_ID>"
03ca 007f       |    |		.STRTAB	0x007f->0x0409							; "<VIEW>"
03cb 0083       |    |		.STRTAB	0x0083->0x040c							; "<HOME>"
03cc 0087       |    |		.STREND 0x0087->0x040f
03cd 3c4e 4f54  |<NOT|		.STRTAB_STRINGS
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0003 000f  |    |		.CONST	0x0003,0x000f
0412 000b 048a  |    |		.DEBUG	0x000b,0x048a,0x8000,0x0000,0x005a,0x6b95,0x0000,0x000d
041a 0036 04c6  | 6  |		.DEBUG	0x0036,0x04c6,0x8000,0x0000,0x005a,0x7115,0x0000,0x001b
0422 00eb 04f0  |    |		.DEBUG	0x00eb,0x04f0,0x0001,0x0000,0x005a,0x6b95,0x0000,0x00e1
042a 0193 0528  |   (|		.DEBUG	0x0193,0x0528,0x0002,0x0000,0x005a,0x6b95,0x0000,0x011e
0432 01a3 0530  |   0|		.DEBUG	0x01a3,0x0530,0x0002,0x0000,0x005a,0x6b95,0x0000,0x0127
043a 01f3 0546  |   F|		.DEBUG	0x01f3,0x0546,0x0001,0x0000,0x005a,0x6b95,0x0000,0x0130
0442 0203 054e  |   N|		.DEBUG	0x0203,0x054e,0x0002,0x0000,0x005a,0x6b95,0x0000,0x0142
044a 021b 0554  |   T|		.DEBUG	0x021b,0x0554,0x0002,0x0000,0x005a,0x6b95,0x0000,0x014f
0452 022b 0558  | + X|		.DEBUG	0x022b,0x0558,0x0001,0x0000,0x005a,0x7115,0x0000,0x0157
045a 029b 058a  |    |		.DEBUG	0x029b,0x058a,0x0001,0x0000,0x005a,0x7115,0x0000,0x0207
0462 0343 05dc  | C  |		.DEBUG	0x0343,0x05dc,0x0001,0x0000,0x005a,0x7115,0x0000,0x02f2
046a 0383 05fe  |    |		.DEBUG	0x0383,0x05fe,0x4000,0x0000,0x005a,0x6b95,0x0000,0x0086
0472 0389 0606  |    |		.DEBUG	0x0389,0x0606,0x4000,0x0000,0x005a,0x7115,0x0000,0x0119
047a 03b3 061a  |    |		.DEBUG	0x03b3,0x061a,0x1002,0x0000,0x005a,0x6b95,0x0000,0x00cf
0482 03bb 061c  |    |		.DEBUG	0x03bb,0x061c,0x1002,0x0000,0x005a,0x6b95,0x0000,0x00d8
048a ; --------------------------------------------------------------------------------------
048a ; Debug3 Subtable 0x0
048a ; --------------------------------------------------------------------------------------
048a 001d 0000  |    |		.DBG3TAB	0x001d,0x0000
048c 000b ffff  |    |		.CONST	0x000b,0xffff
048e 000c fffe  |    |		.CONST	0x000c,0xfffe
0490 000d fffd  |    |		.CONST	0x000d,0xfffd
0492 000e fffc  |    |		.CONST	0x000e,0xfffc
0494 0012 fffb  |    |		.CONST	0x0012,0xfffb
0496 0013 fffa  |    |		.CONST	0x0013,0xfffa
0498 0014 fff9  |    |		.CONST	0x0014,0xfff9
049a 0015 fff8  |    |		.CONST	0x0015,0xfff8
049c 0016 fff7  |    |		.CONST	0x0016,0xfff7
049e 0017 fff6  |    |		.CONST	0x0017,0xfff6
04a0 0018 fff5  |    |		.CONST	0x0018,0xfff5
04a2 0019 fff4  |    |		.CONST	0x0019,0xfff4
04a4 001a fff3  |    |		.CONST	0x001a,0xfff3
04a6 001b fff2  |    |		.CONST	0x001b,0xfff2
04a8 001c fff1  |    |		.CONST	0x001c,0xfff1
04aa 001d fff0  |    |		.CONST	0x001d,0xfff0
04ac 001e ffef  |    |		.CONST	0x001e,0xffef
04ae 001f ffee  |    |		.CONST	0x001f,0xffee
04b0 0020 ffed  |    |		.CONST	0x0020,0xffed
04b2 0021 ffec  | !  |		.CONST	0x0021,0xffec
04b4 0022 ffeb  | "  |		.CONST	0x0022,0xffeb
04b6 0025 ffea  | %  |		.CONST	0x0025,0xffea
04b8 0029 ffe9  | )  |		.CONST	0x0029,0xffe9
04ba 002b ffe8  | +  |		.CONST	0x002b,0xffe8
04bc 002d ffe7  | -  |		.CONST	0x002d,0xffe7
04be 002f ffe6  | /  |		.CONST	0x002f,0xffe6
04c0 0031 ffe5  | 1  |		.CONST	0x0031,0xffe5
04c2 0033 ffe4  | 3  |		.CONST	0x0033,0xffe4
04c4 0035 ffe3  | 5  |		.CONST	0x0035,0xffe3
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug3 Subtable 0x1
04c6 ; --------------------------------------------------------------------------------------
04c6 0014 0000  |    |		.DBG3TAB	0x0014,0x0000
04c8 0036 ffff  | 6  |		.CONST	0x0036,0xffff
04ca 0037 fffe  | 7  |		.CONST	0x0037,0xfffe
04cc 0038 fffd  | 8  |		.CONST	0x0038,0xfffd
04ce 0039 fffc  | 9  |		.CONST	0x0039,0xfffc
04d0 003a fffb  | :  |		.CONST	0x003a,0xfffb
04d2 003b fffa  | ;  |		.CONST	0x003b,0xfffa
04d4 003f fff9  | ?  |		.CONST	0x003f,0xfff9
04d6 0045 fff8  | E  |		.CONST	0x0045,0xfff8
04d8 004d fff7  | M  |		.CONST	0x004d,0xfff7
04da 00c5 fff5  |    |		.CONST	0x00c5,0xfff5
04dc 00c6 fff4  |    |		.CONST	0x00c6,0xfff4
04de 00cf fff3  |    |		.CONST	0x00cf,0xfff3
04e0 00d1 fff2  |    |		.CONST	0x00d1,0xfff2
04e2 00d3 fff1  |    |		.CONST	0x00d3,0xfff1
04e4 00d5 fff0  |    |		.CONST	0x00d5,0xfff0
04e6 00d7 ffef  |    |		.CONST	0x00d7,0xffef
04e8 00d9 ffee  |    |		.CONST	0x00d9,0xffee
04ea 00db ffed  |    |		.CONST	0x00db,0xffed
04ec 00dd ffec  |    |		.CONST	0x00dd,0xffec
04ee 00df ffeb  |    |		.CONST	0x00df,0xffeb
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug3 Subtable 0x2
04f0 ; --------------------------------------------------------------------------------------
04f0 0002 0019  |    |		.DBG3TAB	0x0002,0x0019
04f2 00eb ffff  |    |		.CONST	0x00eb,0xffff
04f4 00f0 fffe  |    |		.CONST	0x00f0,0xfffe
04f6 00f6 0001  |    |		.CONST	0x00f6,0x0001
04f8 00f7 0401  |    |		.CONST	0x00f7,0x0401
04fa 00f8 0001  |    |		.CONST	0x00f8,0x0001
04fc 00f9 0002  |    |		.CONST	0x00f9,0x0002
04fe 00fa 0801  |    |		.CONST	0x00fa,0x0801
0500 00fc 0002  |    |		.CONST	0x00fc,0x0002
0502 00fe 0003  |    |		.CONST	0x00fe,0x0003
0504 00ff 0c01  |    |		.CONST	0x00ff,0x0c01
0506 0101 0003  |    |		.CONST	0x0101,0x0003
0508 0103 0004  |    |		.CONST	0x0103,0x0004
050a 0118 000d  |    |		.CONST	0x0118,0x000d
050c 0119 1001  |    |		.CONST	0x0119,0x1001
050e 011d 000d  |    |		.CONST	0x011d,0x000d
0510 011e 000e  |    |		.CONST	0x011e,0x000e
0512 0126 000f  | &  |		.CONST	0x0126,0x000f
0514 012e 0010  | .  |		.CONST	0x012e,0x0010
0516 014a 0005  | J  |		.CONST	0x014a,0x0005
0518 014d 0006  | M  |		.CONST	0x014d,0x0006
051a 0150 0007  | P  |		.CONST	0x0150,0x0007
051c 015f 0008  | _  |		.CONST	0x015f,0x0008
051e 0161 0009  | a  |		.CONST	0x0161,0x0009
0520 0170 000a  | p  |		.CONST	0x0170,0x000a
0522 0173 000b  | s  |		.CONST	0x0173,0x000b
0524 017e 000c  | ~  |		.CONST	0x017e,0x000c
0526 0188 0011  |    |		.CONST	0x0188,0x0011
0528 ; --------------------------------------------------------------------------------------
0528 ; Debug3 Subtable 0x3
0528 ; --------------------------------------------------------------------------------------
0528 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
052a 0193 0001  |    |		.CONST	0x0193,0x0001
052c 0197 0002  |    |		.CONST	0x0197,0x0002
052e 019d 0003  |    |		.CONST	0x019d,0x0003
0530 ; --------------------------------------------------------------------------------------
0530 ; Debug3 Subtable 0x4
0530 ; --------------------------------------------------------------------------------------
0530 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
0532 01a3 ffff  |    |		.CONST	0x01a3,0xffff
0534 01a9 fffe  |    |		.CONST	0x01a9,0xfffe
0536 01b4 fffd  |    |		.CONST	0x01b4,0xfffd
0538 01b6 0001  |    |		.CONST	0x01b6,0x0001
053a 01c6 0002  |    |		.CONST	0x01c6,0x0002
053c 01c9 0003  |    |		.CONST	0x01c9,0x0003
053e 01cd 0004  |    |		.CONST	0x01cd,0x0004
0540 01e0 0005  |    |		.CONST	0x01e0,0x0005
0542 01e5 0006  |    |		.CONST	0x01e5,0x0006
0544 01e7 0007  |    |		.CONST	0x01e7,0x0007
0546 ; --------------------------------------------------------------------------------------
0546 ; Debug3 Subtable 0x5
0546 ; --------------------------------------------------------------------------------------
0546 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0548 01f3 0001  |    |		.CONST	0x01f3,0x0001
054a 01f6 0002  |    |		.CONST	0x01f6,0x0002
054c 01f8 0005  |    |		.CONST	0x01f8,0x0005
054e ; --------------------------------------------------------------------------------------
054e ; Debug3 Subtable 0x6
054e ; --------------------------------------------------------------------------------------
054e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0550 0203 0001  |    |		.CONST	0x0203,0x0001
0552 020f 0002  |    |		.CONST	0x020f,0x0002
0554 ; --------------------------------------------------------------------------------------
0554 ; Debug3 Subtable 0x7
0554 ; --------------------------------------------------------------------------------------
0554 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0556 021b 0001  |    |		.CONST	0x021b,0x0001
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug3 Subtable 0x8
0558 ; --------------------------------------------------------------------------------------
0558 0005 0013  |    |		.DBG3TAB	0x0005,0x0013
055a 022b ffff  | +  |		.CONST	0x022b,0xffff
055c 022c fffe  | ,  |		.CONST	0x022c,0xfffe
055e 0231 fffd  | 1  |		.CONST	0x0231,0xfffd
0560 0236 fffc  | 6  |		.CONST	0x0236,0xfffc
0562 0239 fffb  | 9  |		.CONST	0x0239,0xfffb
0564 023b 0001  | ;  |		.CONST	0x023b,0x0001
0566 0249 0002  | I  |		.CONST	0x0249,0x0002
0568 024c 0003  | L  |		.CONST	0x024c,0x0003
056a 0259 0004  | Y  |		.CONST	0x0259,0x0004
056c 025b 0005  | [  |		.CONST	0x025b,0x0005
056e 025c 0401  | \  |		.CONST	0x025c,0x0401
0570 0260 0005  | `  |		.CONST	0x0260,0x0005
0572 0261 0006  | a  |		.CONST	0x0261,0x0006
0574 0263 0801  | c  |		.CONST	0x0263,0x0801
0576 0268 0006  | h  |		.CONST	0x0268,0x0006
0578 0269 0007  | i  |		.CONST	0x0269,0x0007
057a 026a 0c01  | j  |		.CONST	0x026a,0x0c01
057c 026c 0007  | l  |		.CONST	0x026c,0x0007
057e 026d 0008  | m  |		.CONST	0x026d,0x0008
0580 027b 0009  | {  |		.CONST	0x027b,0x0009
0582 027d 1001  | }  |		.CONST	0x027d,0x1001
0584 0282 0009  |    |		.CONST	0x0282,0x0009
0586 0283 000a  |    |		.CONST	0x0283,0x000a
0588 028f 000b  |    |		.CONST	0x028f,0x000b
058a ; --------------------------------------------------------------------------------------
058a ; Debug3 Subtable 0x9
058a ; --------------------------------------------------------------------------------------
058a 0005 0023  |   #|		.DBG3TAB	0x0005,0x0023
058c 029b ffff  |    |		.CONST	0x029b,0xffff
058e 029e 0401  |    |		.CONST	0x029e,0x0401
0590 02a0 ffff  |    |		.CONST	0x02a0,0xffff
0592 02a2 fffe  |    |		.CONST	0x02a2,0xfffe
0594 02a8 fffd  |    |		.CONST	0x02a8,0xfffd
0596 02ae fffc  |    |		.CONST	0x02ae,0xfffc
0598 02b0 0001  |    |		.CONST	0x02b0,0x0001
059a 02b1 0801  |    |		.CONST	0x02b1,0x0801
059c 02b5 0001  |    |		.CONST	0x02b5,0x0001
059e 02b6 0002  |    |		.CONST	0x02b6,0x0002
05a0 02be 0003  |    |		.CONST	0x02be,0x0003
05a2 02bf 0c01  |    |		.CONST	0x02bf,0x0c01
05a4 02c3 0003  |    |		.CONST	0x02c3,0x0003
05a6 02c4 0004  |    |		.CONST	0x02c4,0x0004
05a8 02cc 0005  |    |		.CONST	0x02cc,0x0005
05aa 02cd 1001  |    |		.CONST	0x02cd,0x1001
05ac 02d1 0005  |    |		.CONST	0x02d1,0x0005
05ae 02d2 0006  |    |		.CONST	0x02d2,0x0006
05b0 02d4 0007  |    |		.CONST	0x02d4,0x0007
05b2 02d5 1401  |    |		.CONST	0x02d5,0x1401
05b4 02d7 0007  |    |		.CONST	0x02d7,0x0007
05b6 02da 0008  |    |		.CONST	0x02da,0x0008
05b8 02e5 0009  |    |		.CONST	0x02e5,0x0009
05ba 02ef 000a  |    |		.CONST	0x02ef,0x000a
05bc 02f0 000b  |    |		.CONST	0x02f0,0x000b
05be 02f6 000c  |    |		.CONST	0x02f6,0x000c
05c0 02f8 1801  |    |		.CONST	0x02f8,0x1801
05c2 02fd 000c  |    |		.CONST	0x02fd,0x000c
05c4 02fe 000d  |    |		.CONST	0x02fe,0x000d
05c6 0300 000e  |    |		.CONST	0x0300,0x000e
05c8 0301 1c01  |    |		.CONST	0x0301,0x1c01
05ca 0303 000e  |    |		.CONST	0x0303,0x000e
05cc 0305 000f  |    |		.CONST	0x0305,0x000f
05ce 0306 0010  |    |		.CONST	0x0306,0x0010
05d0 030b 0013  |    |		.CONST	0x030b,0x0013
05d2 030c 0011  |    |		.CONST	0x030c,0x0011
05d4 0314 0012  |    |		.CONST	0x0314,0x0012
05d6 0323 0014  | #  |		.CONST	0x0323,0x0014
05d8 032f 0015  | /  |		.CONST	0x032f,0x0015
05da 0331 0016  | 1  |		.CONST	0x0331,0x0016
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug3 Subtable 0xa
05dc ; --------------------------------------------------------------------------------------
05dc 0002 000e  |    |		.DBG3TAB	0x0002,0x000e
05de 0343 ffff  | C  |		.CONST	0x0343,0xffff
05e0 0348 fffe  | H  |		.CONST	0x0348,0xfffe
05e2 034a 0001  | J  |		.CONST	0x034a,0x0001
05e4 0358 0002  | X  |		.CONST	0x0358,0x0002
05e6 0362 0003  | b  |		.CONST	0x0362,0x0003
05e8 0364 0004  | d  |		.CONST	0x0364,0x0004
05ea 0366 0401  | f  |		.CONST	0x0366,0x0401
05ec 0369 0004  | i  |		.CONST	0x0369,0x0004
05ee 036b 0005  | k  |		.CONST	0x036b,0x0005
05f0 036c 0006  | l  |		.CONST	0x036c,0x0006
05f2 036f 0007  | o  |		.CONST	0x036f,0x0007
05f4 0372 0008  | r  |		.CONST	0x0372,0x0008
05f6 0375 0009  | u  |		.CONST	0x0375,0x0009
05f8 0377 000a  | w  |		.CONST	0x0377,0x000a
05fa 0378 0801  | x  |		.CONST	0x0378,0x0801
05fc 037a 000a  | z  |		.CONST	0x037a,0x000a
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug3 Subtable 0xb
05fe ; --------------------------------------------------------------------------------------
05fe 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
0600 0383 ffff  |    |		.CONST	0x0383,0xffff
0602 0385 fffe  |    |		.CONST	0x0385,0xfffe
0604 0386 fffd  |    |		.CONST	0x0386,0xfffd
0606 ; --------------------------------------------------------------------------------------
0606 ; Debug3 Subtable 0xc
0606 ; --------------------------------------------------------------------------------------
0606 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
0608 0389 ffff  |    |		.CONST	0x0389,0xffff
060a 038b fffe  |    |		.CONST	0x038b,0xfffe
060c 038d 0001  |    |		.CONST	0x038d,0x0001
060e 0390 0002  |    |		.CONST	0x0390,0x0002
0610 0393 0003  |    |		.CONST	0x0393,0x0003
0612 039a 0004  |    |		.CONST	0x039a,0x0004
0614 039c 0005  |    |		.CONST	0x039c,0x0005
0616 03a1 0006  |    |		.CONST	0x03a1,0x0006
0618 03a4 0007  |    |		.CONST	0x03a4,0x0007
061a ; --------------------------------------------------------------------------------------
061a ; Debug3 Subtable 0xd
061a ; --------------------------------------------------------------------------------------
061a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
061c ; --------------------------------------------------------------------------------------
061c ; Debug3 Subtable 0xe
061c ; --------------------------------------------------------------------------------------
061c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
061e 03bb 0001  |    |		.CONST	0x03bb,0x0001
0620 0000 0000  |    |		.BLANK	0000[0x1e0]