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

⟦24d8790fb⟧

    Length: 3072 (0xc00)
    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 03b8       |    |		.CONST	0x03b8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0048       | H  |		.CONST	0x0048								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x043a,0x8000,0x0000,0x0059,0xdee5,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x15,0xfff9
0017 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x17,0xfff8
0019 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x19,0xfff7
001b 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1b,0xfff6
001d 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1d,0xfff5
001f 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x1f,0xfff4
0021 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x21,0xfff3
0023 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x23,0xfff2
0025 00bf       |    |		Action	Accept_Activation
0026 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0026,0x0458,0x8000,0x0000,0x0059,0xeaf5,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x26,0xffff
0027 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x27,0xfffe
0028 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x28,0xfffd
0029 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x29,0xfffc
002a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x2a,0xfffb
002b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x2b,0xfffa
002c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x2c,0xfff9
002d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x2d,0xfff8
002e 029d 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call			; Debug Table 0x1.0x8 = 0x2e,0xfff7
0030 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x9 = 0x30,0xfff6
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0xa = 0x32,0xfff5
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0xb = 0x34,0xfff4
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xc = 0x36,0xfff3
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xd = 0x38,0xfff2
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xe = 0x3a,0xfff1
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xf = 0x3c,0xfff0
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x10 = 0x3e,0xffef
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x11 = 0x40,0xffee
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x12 = 0x42,0xffed
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x13 = 0x44,0xffec
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x14 = 0x46,0xffeb
0047 00c7       |    |		Action	Elaborate_Subprogram
0048			BODY_0008:
0048 00bc       |    |		Action	Signal_Activated
0049 00bb       |    |		Action	Signal_Completion
004a 0000 0000  |    |		.BLANK	0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005a       | Z  |		.CONST	0x005a								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0003       |    |		.CONST	0x0003								; Number of locals
0053			INIT_0050:
0053 e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x0053,0x0484,0x0001,0x0000,0x0059,0xdee5,0x0000,0x0014
													; Debug Table 0x2.0x0 = 0x53,0xffff
0054 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0055 02c7       |    |		Declare_Variable	Any
0056 00d8       |    |		Load_Top	At_Offset_0
0057 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0058 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x1 = 0x58,0xfffe
0059 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
005a			BODY_0050:
005a e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x2 = 0x5a,0x1
005b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
005c 00da       |    |		Load_Top	At_Offset_2
005d 0120       |    |		Execute	Any,Is_Value
005e 6803       |h   |		Jump_Zero	0x62
005f e001       |    |		Load	0x0,0x1
0060 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0061 7801       |x   |		Jump	0x63
0062 00da       |    |		Load_Top	At_Offset_2
0063 e5fe       |    |		Load	0x2,-0x2
0064 e5ff       |    |		Load	0x2,-0x1
0065 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0066 e001       |    |		Load	0x0,0x1
0067 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0068 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0069 c402       |    |		Store	0x2,0x2
006a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
006b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x3 = 0x6b,0x2
006c 8219       |    |		Call	0x1,0x19
006d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x4 = 0x6d,0x3
006e c5fd       |    |		Store	0x2,-0x3
006f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007a       | z  |		.CONST	0x007a								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x0073,0x0490,0x0001,0x0000,0x0059,0xdee5,0x0000,0x002a
													; Debug Table 0x3.0x0 = 0x73,0xffff
0074 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0075 02c7       |    |		Declare_Variable	Any
0076 00d8       |    |		Load_Top	At_Offset_0
0077 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0078 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x1 = 0x78,0xfffe
0079 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
007a			BODY_0070:
007a e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x2 = 0x7a,0x1
007b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
007c 00da       |    |		Load_Top	At_Offset_2
007d 0120       |    |		Execute	Any,Is_Value
007e 6803       |h   |		Jump_Zero	0x82
007f e001       |    |		Load	0x0,0x1
0080 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0081 7801       |x   |		Jump	0x83
0082 00da       |    |		Load_Top	At_Offset_2
0083 e5fd       |    |		Load	0x2,-0x3
0084 e5ff       |    |		Load	0x2,-0x1
0085 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0086 e001       |    |		Load	0x0,0x1
0087 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0088 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0089 c402       |    |		Store	0x2,0x2
008a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
008b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3 = 0x8b,0x2
008c 8219       |    |		Call	0x1,0x19
008d e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x4 = 0x8d,0x3
008e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
008f e5fb       |    |		Load	0x2,-0x5
0090 0120       |    |		Execute	Any,Is_Value
0091 6803       |h   |		Jump_Zero	0x95
0092 e001       |    |		Load	0x0,0x1
0093 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0094 7801       |x   |		Jump	0x96
0095 e5fb       |    |		Load	0x2,-0x5
0096 00db       |    |		Load_Top	At_Offset_3
0097 e5fe       |    |		Load	0x2,-0x2
0098 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0099 e002       |    |		Load	0x0,0x2
009a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
009b 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
009c e001       |    |		Load	0x0,0x1
009d 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
009e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
009f c5fb       |    |		Store	0x2,-0x5
00a0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00a1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x5 = 0xa1,0x4
00a2 8219       |    |		Call	0x1,0x19
00a3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x6 = 0xa3,0x5
00a4 c5fc       |    |		Store	0x2,-0x4
00a5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00bc       |    |		.CONST	0x00bc								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0005       |    |		.CONST	0x0005								; Number of locals
00ab			INIT_00a8:
00ab e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x00ab,0x04a0,0x0001,0x0000,0x0059,0xdee5,0x0000,0x004c
													; Debug Table 0x4.0x0 = 0xab,0xffff
00ac 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00ad 02c7       |    |		Declare_Variable	Any
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b0 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1 = 0xb0,0xfffe
00b1 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00b2 02c7       |    |		Declare_Variable	Any
00b3 00d8       |    |		Load_Top	At_Offset_0
00b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b5 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x2 = 0xb5,0xfffd
00b6 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
00b7 02c7       |    |		Declare_Variable	Any
00b8 00d8       |    |		Load_Top	At_Offset_0
00b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ba e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x3 = 0xba,0xfffc
00bb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00bc			BODY_00a8:
00bc e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x4 = 0xbc,0x1
00bd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00be e402       |    |		Load	0x2,0x2
00bf 0120       |    |		Execute	Any,Is_Value
00c0 6803       |h   |		Jump_Zero	0xc4
00c1 e001       |    |		Load	0x0,0x1
00c2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00c3 7801       |x   |		Jump	0xc5
00c4 e402       |    |		Load	0x2,0x2
00c5 e5fd       |    |		Load	0x2,-0x3
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00c8 e001       |    |		Load	0x0,0x1
00c9 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00ca 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00cb c402       |    |		Store	0x2,0x2
00cc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00cd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x5 = 0xcd,0x2
00ce 8219       |    |		Call	0x1,0x19
00cf e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x6 = 0xcf,0x3
00d0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 0120       |    |		Execute	Any,Is_Value
00d3 6803       |h   |		Jump_Zero	0xd7
00d4 e001       |    |		Load	0x0,0x1
00d5 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00d6 7801       |x   |		Jump	0xd8
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 e402       |    |		Load	0x2,0x2
00d9 e5fe       |    |		Load	0x2,-0x2
00da 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00db 0217       |    |		Execute	Heap_Access,All_Reference
00dc e001       |    |		Load	0x0,0x1
00dd 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
00de 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00df c403       |    |		Store	0x2,0x3
00e0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00e1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x7 = 0xe1,0x4
00e2 8219       |    |		Call	0x1,0x19
00e3 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x8 = 0xe3,0x5
00e4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 0120       |    |		Execute	Any,Is_Value
00e7 6803       |h   |		Jump_Zero	0xeb
00e8 e001       |    |		Load	0x0,0x1
00e9 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
00ea 7801       |x   |		Jump	0xec
00eb 00da       |    |		Load_Top	At_Offset_2
00ec e403       |    |		Load	0x2,0x3
00ed e5fe       |    |		Load	0x2,-0x2
00ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ef 0217       |    |		Execute	Heap_Access,All_Reference
00f0 e001       |    |		Load	0x0,0x1
00f1 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
00f2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f3 c404       |    |		Store	0x2,0x4
00f4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00f5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x9 = 0xf5,0x6
00f6 8219       |    |		Call	0x1,0x19
00f7 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0xa = 0xf7,0x7
00f8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00f9 e5f9       |    |		Load	0x2,-0x7
00fa e001       |    |		Load	0x0,0x1
00fb 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00fc e404       |    |		Load	0x2,0x4
00fd e001       |    |		Load	0x0,0x1
00fe 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
00ff 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0100 00d1       |    |		Pop_Control	Pop_Count_1
0101 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0102 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xb = 0x102,0x8
0103 8219       |    |		Call	0x1,0x19
0104 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xc = 0x104,0x9
0105 c5fc       |    |		Store	0x2,-0x4
0106 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0xd = 0x106,0xa
0107 c5fb       |    |		Store	0x2,-0x5
0108 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xe = 0x108,0xb
0109 c5fa       |    |		Store	0x2,-0x6
010a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
010b 0000 0000  |    |		.BLANK	0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0129       | )  |		.CONST	0x0129								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0006       |    |		.CONST	0x0006								; Number of locals
0113			INIT_0110:
0113 e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x0113,0x04c0,0x0001,0x0000,0x0059,0xdee5,0x0000,0x007a
													; Debug Table 0x5.0x0 = 0x113,0xffff
0114 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0115 02c7       |    |		Declare_Variable	Any
0116 00d8       |    |		Load_Top	At_Offset_0
0117 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0118 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1 = 0x118,0xfffe
0119 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
011a 02c7       |    |		Declare_Variable	Any
011b 00d8       |    |		Load_Top	At_Offset_0
011c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011d e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x2 = 0x11d,0xfffd
011e 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
011f 02c7       |    |		Declare_Variable	Any
0120 00d8       |    |		Load_Top	At_Offset_0
0121 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0122 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x3 = 0x122,0xfffc
0123 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0124 02c7       |    |		Declare_Variable	Any
0125 00d8       |    |		Load_Top	At_Offset_0
0126 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0127 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x4 = 0x127,0xfffb
0128 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0129			BODY_0110:
0129 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x5 = 0x129,0x1
012a 0120       |    |		Execute	Any,Is_Value
012b 6803       |h   |		Jump_Zero	0x12f
012c e001       |    |		Load	0x0,0x1
012d 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
012e 7801       |x   |		Jump	0x130
012f 00db       |    |		Load_Top	At_Offset_3
0130 e402       |    |		Load	0x2,0x2
0131 0120       |    |		Execute	Any,Is_Value
0132 6803       |h   |		Jump_Zero	0x136
0133 e001       |    |		Load	0x0,0x1
0134 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0135 7801       |x   |		Jump	0x137
0136 e402       |    |		Load	0x2,0x2
0137 e5fc       |    |		Load	0x2,-0x4
0138 e5fe       |    |		Load	0x2,-0x2
0139 e5ff       |    |		Load	0x2,-0x1
013a 820e       |    |		Call	0x1,0xe
013b c402       |    |		Store	0x2,0x2
013c c403       |    |		Store	0x2,0x3
013d e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x6 = 0x13d,0x2
013e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
013f 00db       |    |		Load_Top	At_Offset_3
0140 0120       |    |		Execute	Any,Is_Value
0141 6803       |h   |		Jump_Zero	0x145
0142 e001       |    |		Load	0x0,0x1
0143 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0144 7801       |x   |		Jump	0x146
0145 00db       |    |		Load_Top	At_Offset_3
0146 e402       |    |		Load	0x2,0x2
0147 e5fd       |    |		Load	0x2,-0x3
0148 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0149 0217       |    |		Execute	Heap_Access,All_Reference
014a e001       |    |		Load	0x0,0x1
014b 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
014c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014d c404       |    |		Store	0x2,0x4
014e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
014f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x7 = 0x14f,0x3
0150 8219       |    |		Call	0x1,0x19
0151 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x8 = 0x151,0x4
0152 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0153 00da       |    |		Load_Top	At_Offset_2
0154 0120       |    |		Execute	Any,Is_Value
0155 6803       |h   |		Jump_Zero	0x159
0156 e001       |    |		Load	0x0,0x1
0157 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0158 7801       |x   |		Jump	0x15a
0159 00da       |    |		Load_Top	At_Offset_2
015a e403       |    |		Load	0x2,0x3
015b e404       |    |		Load	0x2,0x4
015c e001       |    |		Load	0x0,0x1
015d 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
015e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
015f c405       |    |		Store	0x2,0x5
0160 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0161 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x9 = 0x161,0x5
0162 8219       |    |		Call	0x1,0x19
0163 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0xa = 0x163,0x6
0164 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0165 e5f7       |    |		Load	0x2,-0x9
0166 e001       |    |		Load	0x0,0x1
0167 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0168 e405       |    |		Load	0x2,0x5
0169 e001       |    |		Load	0x0,0x1
016a 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
016b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
016c 00d1       |    |		Pop_Control	Pop_Count_1
016d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
016e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0xb = 0x16e,0x7
016f 8219       |    |		Call	0x1,0x19
0170 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0xc = 0x170,0x8
0171 c5fb       |    |		Store	0x2,-0x5
0172 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xd = 0x172,0x9
0173 c5fa       |    |		Store	0x2,-0x6
0174 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0xe = 0x174,0xa
0175 c5f9       |    |		Store	0x2,-0x7
0176 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xf = 0x176,0xb
0177 c5f8       |    |		Store	0x2,-0x8
0178 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018a       |    |		.CONST	0x018a								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x0183,0x04e2,0x0001,0x0000,0x0059,0xdee5,0x0000,0x00b4
													; Debug Table 0x6.0x0 = 0x183,0xffff
0184 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0185 02c7       |    |		Declare_Variable	Any
0186 00d8       |    |		Load_Top	At_Offset_0
0187 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0188 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0x188,0xfffe
0189 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
018a			BODY_0180:
018a e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x2 = 0x18a,0x1
018b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
018c 00da       |    |		Load_Top	At_Offset_2
018d 0120       |    |		Execute	Any,Is_Value
018e 6803       |h   |		Jump_Zero	0x192
018f e001       |    |		Load	0x0,0x1
0190 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0191 7801       |x   |		Jump	0x193
0192 00da       |    |		Load_Top	At_Offset_2
0193 e5ff       |    |		Load	0x2,-0x1
0194 e5fd       |    |		Load	0x2,-0x3
0195 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0196 0217       |    |		Execute	Heap_Access,All_Reference
0197 e001       |    |		Load	0x0,0x1
0198 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0199 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
019a c402       |    |		Store	0x2,0x2
019b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
019c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x3 = 0x19c,0x2
019d 8219       |    |		Call	0x1,0x19
019e e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x4 = 0x19e,0x3
019f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01a0 e5fb       |    |		Load	0x2,-0x5
01a1 0120       |    |		Execute	Any,Is_Value
01a2 6803       |h   |		Jump_Zero	0x1a6
01a3 e001       |    |		Load	0x0,0x1
01a4 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
01a5 7801       |x   |		Jump	0x1a7
01a6 e5fb       |    |		Load	0x2,-0x5
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 e402       |    |		Load	0x2,0x2
01a9 e001       |    |		Load	0x0,0x1
01aa 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
01ab 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ac c5fb       |    |		Store	0x2,-0x5
01ad 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01ae 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x5 = 0x1ae,0x4
01af 8219       |    |		Call	0x1,0x19
01b0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x6 = 0x1b0,0x5
01b1 c5fc       |    |		Store	0x2,-0x4
01b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd       |    |		.CONST	0x01bd								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x01bb,0x04f2,0x0001,0x0000,0x0059,0xdee5,0x0000,0x00d6
													; Debug Table 0x7.0x0 = 0x1bb,0xffff
01bc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01bd			BODY_01b8:
01bd e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x1 = 0x1bd,0x1
01be 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01bf e5fd       |    |		Load	0x2,-0x3
01c0 0120       |    |		Execute	Any,Is_Value
01c1 6803       |h   |		Jump_Zero	0x1c5
01c2 e001       |    |		Load	0x0,0x1
01c3 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
01c4 7801       |x   |		Jump	0x1c6
01c5 e5fd       |    |		Load	0x2,-0x3
01c6 e5fe       |    |		Load	0x2,-0x2
01c7 e5ff       |    |		Load	0x2,-0x1
01c8 e001       |    |		Load	0x0,0x1
01c9 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
01ca 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01cb c5fd       |    |		Store	0x2,-0x3
01cc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01cd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ce 0000 0000  |    |		.XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5       |    |		.CONST	0x01d5								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 e001       |    |		Load	0x0,0x1								; Debug Table 0x8 = .DEBUG	0x01d3,0x04f8,0x0001,0x0000,0x0059,0xdee5,0x0000,0x00ec
													; Debug Table 0x8.0x0 = 0x1d3,0xffff
01d4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01d5			BODY_01d0:
01d5 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x1 = 0x1d5,0x1
01d6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 e5fe       |    |		Load	0x2,-0x2
01d9 e5ff       |    |		Load	0x2,-0x1
01da e001       |    |		Load	0x0,0x1
01db 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
01dc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01dd 00d1       |    |		Pop_Control	Pop_Count_1
01de 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01df 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0x1df,0x2
01e0 8219       |    |		Call	0x1,0x19
01e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e2 0000 0000  |    |		.BLANK	0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 020a       |    |		.CONST	0x020a								; Address of begin
01e9 0259       | Y  |		.CONST	0x0259								; Address of exception handler
01ea 0009       |    |		.CONST	0x0009								; Number of locals
01eb			INIT_01e8:
01eb e003       |    |		Load	0x0,0x3								; Debug Table 0x9 = .DEBUG	0x01eb,0x0500,0x0002,0x0000,0x0059,0xdee5,0x0000,0x0100
													; Debug Table 0x9.0x0 = 0x1eb,0xffff
01ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ed 02c7       |    |		Declare_Variable	Any
01ee e004       |    |		Load	0x0,0x4
01ef 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01f0 e003       |    |		Load	0x0,0x3
01f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01f2 c402       |    |		Store	0x2,0x2
01f3 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x1 = 0x1f3,0xfffe
01f4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01f5 02c7       |    |		Declare_Variable	Any
01f6 00d8       |    |		Load_Top	At_Offset_0
01f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f8 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x2 = 0x1f8,0xfffd
01f9 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01fa 02c7       |    |		Declare_Variable	Any
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01fd e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x3 = 0x1fd,0xfffc
01fe 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
01ff 02c7       |    |		Declare_Variable	Any
0200 00d8       |    |		Load_Top	At_Offset_0
0201 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0202 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x4 = 0x202,0xfffb
0203 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
0204 0322       | "  |		Declare_Variable	Record
0205 00d8       |    |		Load_Top	At_Offset_0
0206 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0207 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x9.0x5 = 0x207,0xfffa
0208 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x9.0x6 = 0x208,0xfff9
0209 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x9.0x7 = 0x209,0xfff8
020a			BODY_01e8:
020a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x8 = 0x20a,0x1
020b e405       |    |		Load	0x2,0x5
020c 0120       |    |		Execute	Any,Is_Value
020d 6803       |h   |		Jump_Zero	0x211
020e e001       |    |		Load	0x0,0x1
020f 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0210 7801       |x   |		Jump	0x212
0211 e405       |    |		Load	0x2,0x5
0212 e404       |    |		Load	0x2,0x4
0213 0120       |    |		Execute	Any,Is_Value
0214 6803       |h   |		Jump_Zero	0x218
0215 e001       |    |		Load	0x0,0x1
0216 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0217 7801       |x   |		Jump	0x219
0218 e404       |    |		Load	0x2,0x4
0219 e403       |    |		Load	0x2,0x3
021a 0120       |    |		Execute	Any,Is_Value
021b 6803       |h   |		Jump_Zero	0x21f
021c e001       |    |		Load	0x0,0x1
021d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
021e 7801       |x   |		Jump	0x220
021f e403       |    |		Load	0x2,0x3
0220 e402       |    |		Load	0x2,0x2
0221 e5fe       |    |		Load	0x2,-0x2
0222 e5ff       |    |		Load	0x2,-0x1
0223 820f       |    |		Call	0x1,0xf
0224 c403       |    |		Store	0x2,0x3
0225 c404       |    |		Store	0x2,0x4
0226 c405       |    |		Store	0x2,0x5
0227 00d1       |    |		Pop_Control	Pop_Count_1
0228 e405       |    |		Load	0x2,0x5								; Debug Table 0x9.0x9 = 0x228,0x2
0229 e001       |    |		Load	0x0,0x1
022a 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
022b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
022c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
022d e405       |    |		Load	0x2,0x5								; Debug Table 0x9.0xa = 0x22d,0x3
022e e001       |    |		Load	0x0,0x1
022f 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0230 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0231 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0232 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0xb = 0x232,0x4
0233 7007       |p   |		Jump_Nonzero	0x23b
0234 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0xc = 0x234,0x5
0235 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0236 e5fd       |    |		Load	0x2,-0x3
0237 0273       | s  |		Execute	Discrete,Plus
0238 0248       | H  |		Execute	Discrete,Check_In_Integer
0239 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
023a 7805       |x   |		Jump	0x240
023b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0xd = 0x23b,0x6
023c e5fd       |    |		Load	0x2,-0x3
023d 0273       | s  |		Execute	Discrete,Plus
023e 0248       | H  |		Execute	Discrete,Check_In_Integer
023f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0240 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0xe = 0x240,0x7
0241 00db       |    |		Load_Top	At_Offset_3
0242 027c       | |  |		Execute	Discrete,Less
0243 6803       |h   |		Jump_Zero	0x247
0244 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0xf = 0x244,0x8
0245 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0246 7806       |x   |		Jump	0x24d
0247 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x10 = 0x247,0x9
0248 00da       |    |		Load_Top	At_Offset_2
0249 027d       | }  |		Execute	Discrete,Greater
024a 6802       |h   |		Jump_Zero	0x24d
024b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x11 = 0x24b,0xa
024c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
024d e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x12 = 0x24d,0xb
024e 8216       |    |		Call	0x1,0x16
024f e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0x13 = 0x24f,0xc
0250 4801       |H   |		Short_Literal	0x1
0251 4800       |H   |		Short_Literal	0x0
0252 e003       |    |		Load	0x0,0x3
0253 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0254 c402       |    |		Store	0x2,0x2
0255 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x14 = 0x255,0xd
0256 00e3       |    |		Load_Encached	Natural_Cache
0257 025b       | [  |		Execute	Discrete,Check_In_Type
0258 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0259			TRAP_01e8:
0259 0007       |    |		Action	Break_Optional
025a e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0x15 = 0x25a,0xe
025b 4801       |H   |		Short_Literal	0x1
025c 4800       |H   |		Short_Literal	0x0
025d e003       |    |		Load	0x0,0x3
025e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
025f c402       |    |		Store	0x2,0x2
0260 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x16 = 0x260,0xf
0261 0101       |    |		Execute	Exception,Reraise
0262 0000 0000  |    |		.BLANK	0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 028a       |    |		.CONST	0x028a								; Address of begin
0269 02bb       |    |		.CONST	0x02bb								; Address of exception handler
026a 0008       |    |		.CONST	0x0008								; Number of locals
026b			INIT_0268:
026b e003       |    |		Load	0x0,0x3								; Debug Table 0xa = .DEBUG	0x026b,0x0530,0x0002,0x0000,0x0059,0xdee5,0x0000,0x011a
													; Debug Table 0xa.0x0 = 0x26b,0xffff
026c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
026d 02c7       |    |		Declare_Variable	Any
026e e004       |    |		Load	0x0,0x4
026f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0270 e003       |    |		Load	0x0,0x3
0271 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0272 c402       |    |		Store	0x2,0x2
0273 e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x1 = 0x273,0xfffe
0274 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0275 02c7       |    |		Declare_Variable	Any
0276 00d8       |    |		Load_Top	At_Offset_0
0277 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0278 e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x2 = 0x278,0xfffd
0279 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
027a 02c7       |    |		Declare_Variable	Any
027b 00d8       |    |		Load_Top	At_Offset_0
027c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
027d e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x3 = 0x27d,0xfffc
027e 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
027f 02c7       |    |		Declare_Variable	Any
0280 00d8       |    |		Load_Top	At_Offset_0
0281 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0282 e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x4 = 0x282,0xfffb
0283 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
0284 0322       | "  |		Declare_Variable	Record
0285 00d8       |    |		Load_Top	At_Offset_0
0286 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0287 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xa.0x5 = 0x287,0xfffa
0288 029f 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Call				; Debug Table 0xa.0x6 = 0x288,0xfff9
028a			BODY_0268:
028a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x7 = 0x28a,0x1
028b e405       |    |		Load	0x2,0x5
028c 0120       |    |		Execute	Any,Is_Value
028d 6803       |h   |		Jump_Zero	0x291
028e e001       |    |		Load	0x0,0x1
028f 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0290 7801       |x   |		Jump	0x292
0291 e405       |    |		Load	0x2,0x5
0292 e404       |    |		Load	0x2,0x4
0293 0120       |    |		Execute	Any,Is_Value
0294 6803       |h   |		Jump_Zero	0x298
0295 e001       |    |		Load	0x0,0x1
0296 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0297 7801       |x   |		Jump	0x299
0298 e404       |    |		Load	0x2,0x4
0299 e403       |    |		Load	0x2,0x3
029a 0120       |    |		Execute	Any,Is_Value
029b 6803       |h   |		Jump_Zero	0x29f
029c e001       |    |		Load	0x0,0x1
029d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
029e 7801       |x   |		Jump	0x2a0
029f e403       |    |		Load	0x2,0x3
02a0 e402       |    |		Load	0x2,0x2
02a1 e5fe       |    |		Load	0x2,-0x2
02a2 e5ff       |    |		Load	0x2,-0x1
02a3 820f       |    |		Call	0x1,0xf
02a4 c403       |    |		Store	0x2,0x3
02a5 c404       |    |		Store	0x2,0x4
02a6 c405       |    |		Store	0x2,0x5
02a7 00d1       |    |		Pop_Control	Pop_Count_1
02a8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x8 = 0x2a8,0x2
02a9 e001       |    |		Load	0x0,0x1
02aa 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
02ab 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02ac 7003       |p   |		Jump_Nonzero	0x2b0
02ad 8408       |    |		Call	0x2,0x8								; Debug Table 0xa.0x9 = 0x2ad,0x3
02ae 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0xa = 0x2ae,0x4
02af 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b0 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xa.0xb = 0x2b0,0x5
02b1 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02b2 e405       |    |		Load	0x2,0x5
02b3 e001       |    |		Load	0x0,0x1
02b4 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b6 027f       |    |		Execute	Discrete,Equal
02b7 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02b8 8408       |    |		Call	0x2,0x8								; Debug Table 0xa.0xc = 0x2b8,0x6
02b9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0xd = 0x2b9,0x7
02ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02bb			TRAP_0268:
02bb 0007       |    |		Action	Break_Optional
02bc e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0xe = 0x2bc,0x8
02bd 4801       |H   |		Short_Literal	0x1
02be 4800       |H   |		Short_Literal	0x0
02bf e003       |    |		Load	0x0,0x3
02c0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c1 c402       |    |		Store	0x2,0x2
02c2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xf = 0x2c2,0x9
02c3 0101       |    |		Execute	Exception,Reraise
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd       |    |		.CONST	0x02cd								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb e001       |    |		Load	0x0,0x1								; Debug Table 0xb = .DEBUG	0x02cb,0x0552,0x0001,0x0000,0x0059,0xdee5,0x0000,0x012b
													; Debug Table 0xb.0x0 = 0x2cb,0xffff
02cc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02cd			BODY_02c8:
02cd e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x1 = 0x2cd,0x1
02ce 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02cf 4801       |H   |		Short_Literal	0x1
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 e001       |    |		Load	0x0,0x1
02d2 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02d3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02d5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x2 = 0x2d5,0x2
02d6 8219       |    |		Call	0x1,0x19
02d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db e001       |    |		Load	0x0,0x1								; Debug Table 0xc = .DEBUG	0x02db,0x055a,0x0001,0x0000,0x0059,0xdee5,0x0000,0x0135
													; Debug Table 0xc.0x0 = 0x2db,0xffff
02dc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02dd			BODY_02d8:
02dd e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x1 = 0x2dd,0x1
02de 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02df 4800       |H   |		Short_Literal	0x0
02e0 e5ff       |    |		Load	0x2,-0x1
02e1 e001       |    |		Load	0x0,0x1
02e2 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02e4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02e5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x2 = 0x2e5,0x2
02e6 8219       |    |		Call	0x1,0x19
02e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 0318       |    |		.CONST	0x0318								; Address of begin
02e9 0393       |    |		.CONST	0x0393								; Address of exception handler
02ea 000c       |    |		.CONST	0x000c								; Number of locals
02eb			INIT_02e8:
02eb e003       |    |		Load	0x0,0x3								; Debug Table 0xd = .DEBUG	0x02eb,0x0562,0x0002,0x0000,0x0059,0xdee5,0x0000,0x013f
													; Debug Table 0xd.0x0 = 0x2eb,0xffff
02ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ed 02c7       |    |		Declare_Variable	Any
02ee e004       |    |		Load	0x0,0x4
02ef 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f0 e003       |    |		Load	0x0,0x3
02f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02f2 c402       |    |		Store	0x2,0x2
02f3 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x1 = 0x2f3,0xfffe
02f4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02f5 02c7       |    |		Declare_Variable	Any
02f6 00d8       |    |		Load_Top	At_Offset_0
02f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f8 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x2 = 0x2f8,0xfffd
02f9 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
02fa 02c7       |    |		Declare_Variable	Any
02fb 00d8       |    |		Load_Top	At_Offset_0
02fc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02fd e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x3 = 0x2fd,0xfffc
02fe 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
02ff 02c7       |    |		Declare_Variable	Any
0300 00d8       |    |		Load_Top	At_Offset_0
0301 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0302 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x4 = 0x302,0xfffb
0303 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0304 02c7       |    |		Declare_Variable	Any
0305 00d8       |    |		Load_Top	At_Offset_0
0306 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0307 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xd.0x5 = 0x307,0xfffa
0308 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x6 = 0x308,0xfff9
0309 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
030a 0322       | "  |		Declare_Variable	Record
030b 00d8       |    |		Load_Top	At_Offset_0
030c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
030d e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x7 = 0x30d,0xfff8
030e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
030f e005       |    |		Load	0x0,0x5								; Debug Table 0xd.0x8 = 0x30f,0xfff7
0310 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0311 0322       | "  |		Declare_Variable	Record
0312 00d8       |    |		Load_Top	At_Offset_0
0313 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0314 e005       |    |		Load	0x0,0x5								; Debug Table 0xd.0x9 = 0x314,0xfff6
0315 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0316 e005       |    |		Load	0x0,0x5								; Debug Table 0xd.0xa = 0x316,0xfff5
0317 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0318			BODY_02e8:
0318 e404       |    |		Load	0x2,0x4								; Debug Table 0xd.0xb = 0x318,0x1
0319 0120       |    |		Execute	Any,Is_Value
031a 6803       |h   |		Jump_Zero	0x31e
031b e001       |    |		Load	0x0,0x1
031c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
031d 7801       |x   |		Jump	0x31f
031e e404       |    |		Load	0x2,0x4
031f e403       |    |		Load	0x2,0x3
0320 0120       |    |		Execute	Any,Is_Value
0321 6803       |h   |		Jump_Zero	0x325
0322 e001       |    |		Load	0x0,0x1
0323 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0324 7801       |x   |		Jump	0x326
0325 e403       |    |		Load	0x2,0x3
0326 e402       |    |		Load	0x2,0x2
0327 e5fe       |    |		Load	0x2,-0x2
0328 e5ff       |    |		Load	0x2,-0x1
0329 820e       |    |		Call	0x1,0xe
032a c403       |    |		Store	0x2,0x3
032b c404       |    |		Store	0x2,0x4
032c e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0xc = 0x32c,0x2
032d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
032e e405       |    |		Load	0x2,0x5
032f 0120       |    |		Execute	Any,Is_Value
0330 6803       |h   |		Jump_Zero	0x334
0331 e001       |    |		Load	0x0,0x1
0332 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0333 7801       |x   |		Jump	0x335
0334 e405       |    |		Load	0x2,0x5
0335 e403       |    |		Load	0x2,0x3
0336 e5fd       |    |		Load	0x2,-0x3
0337 e001       |    |		Load	0x0,0x1
0338 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0339 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
033a c405       |    |		Store	0x2,0x5
033b c409       |    |		Store	0x2,0x9
033c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xd = 0x33c,0x3
033d 8219       |    |		Call	0x1,0x19
033e e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0xe = 0x33e,0x4
033f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0340 e406       |    |		Load	0x2,0x6
0341 0120       |    |		Execute	Any,Is_Value
0342 6803       |h   |		Jump_Zero	0x346
0343 e001       |    |		Load	0x0,0x1
0344 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0345 7801       |x   |		Jump	0x347
0346 e406       |    |		Load	0x2,0x6
0347 e404       |    |		Load	0x2,0x4
0348 e405       |    |		Load	0x2,0x5
0349 e001       |    |		Load	0x0,0x1
034a 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
034b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
034c c406       |    |		Store	0x2,0x6
034d c409       |    |		Store	0x2,0x9
034e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xf = 0x34e,0x5
034f 8219       |    |		Call	0x1,0x19
0350 e404       |    |		Load	0x2,0x4								; Debug Table 0xd.0x10 = 0x350,0x6
0351 e405       |    |		Load	0x2,0x5
0352 e001       |    |		Load	0x0,0x1
0353 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0354 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0355 a407       |    |		Store_Unchecked	0x2,0x7
0356 e405       |    |		Load	0x2,0x5								; Debug Table 0xd.0x11 = 0x356,0x7
0357 e001       |    |		Load	0x0,0x1
0358 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0359 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
035a e408       |    |		Load	0x2,0x8
035b 017d       | }  |		Execute	Record,Structure_Write
035c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x12 = 0x35c,0x8
035d e005       |    |		Load	0x0,0x5
035e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035f e5fc       |    |		Load	0x2,-0x4
0360 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0361 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0362 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x13 = 0x362,0x9
0363 e406       |    |		Load	0x2,0x6								; Debug Table 0xd.0x14 = 0x363,0xa
0364 e001       |    |		Load	0x0,0x1
0365 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0366 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0367 e005       |    |		Load	0x0,0x5
0368 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0369 e5fc       |    |		Load	0x2,-0x4
036a 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
036b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
036c 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x15 = 0x36c,0xb
036d e005       |    |		Load	0x0,0x5								; Debug Table 0xd.0x16 = 0x36d,0xc
036e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
036f 0322       | "  |		Declare_Variable	Record
0370 00da       |    |		Load_Top	At_Offset_2
0371 00d9       |    |		Load_Top	At_Offset_1
0372 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0373 00d9       |    |		Load_Top	At_Offset_1
0374 00d9       |    |		Load_Top	At_Offset_1
0375 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0376 4801       |H   |		Short_Literal	0x1
0377 00d9       |    |		Load_Top	At_Offset_1
0378 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0379 e408       |    |		Load	0x2,0x8
037a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
037b e002       |    |		Load	0x0,0x2
037c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
037d 0119       |    |		Execute	Any,Check_In_Formal_Type
037e 00d9       |    |		Load_Top	At_Offset_1
037f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0380 e408       |    |		Load	0x2,0x8
0381 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0382 00d9       |    |		Load_Top	At_Offset_1
0383 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0384 e407       |    |		Load	0x2,0x7
0385 00d9       |    |		Load_Top	At_Offset_1
0386 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0387 00db       |    |		Load_Top	At_Offset_3
0388 017d       | }  |		Execute	Record,Structure_Write
0389 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x17 = 0x389,0xd
038a 8216       |    |		Call	0x1,0x16
038b e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0x18 = 0x38b,0xe
038c 4801       |H   |		Short_Literal	0x1
038d 4800       |H   |		Short_Literal	0x0
038e e003       |    |		Load	0x0,0x3
038f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0390 c402       |    |		Store	0x2,0x2
0391 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0x19 = 0x391,0xf
0392 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0393			TRAP_02e8:
0393 0007       |    |		Action	Break_Optional
0394 e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0x1a = 0x394,0x10
0395 4801       |H   |		Short_Literal	0x1
0396 4800       |H   |		Short_Literal	0x0
0397 e003       |    |		Load	0x0,0x3
0398 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0399 c402       |    |		Store	0x2,0x2
039a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x1b = 0x39a,0x11
039b 0101       |    |		Execute	Exception,Reraise
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0xe = .DEBUG	0x03a3,0x059c,0x0001,0x0000,0x0059,0xeaf5,0x0000,0x0038
													; Debug Table 0xe.0x0 = 0x3a3,0x1
03a4 00db       |    |		Load_Top	At_Offset_3
03a5 e006       |    |		Load	0x0,0x6
03a6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab e403       |    |		Load	0x2,0x3								; Debug Table 0xf = .DEBUG	0x03ab,0x05a0,0x0001,0x0000,0x0059,0xeaf5,0x0000,0x03af
													; Debug Table 0xf.0x0 = 0x3ab,0x1
03ac 8216       |    |		Call	0x1,0x16
03ad e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0x1 = 0x3ad,0x2
03ae 4801       |H   |		Short_Literal	0x1
03af 4800       |H   |		Short_Literal	0x0
03b0 e003       |    |		Load	0x0,0x3
03b1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03b2 c402       |    |		Store	0x2,0x2
03b3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b4 0000 0000  |    |		.BLANK	0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug Table
03b8 ; --------------------------------------------------------------------------------------
03b8 0003 0010  |    |		.CONST	0x0003,0x0010
03ba 000b 043a  |   :|		.DEBUG	0x000b,0x043a,0x8000,0x0000,0x0059,0xdee5,0x0000,0x000b
03c2 0026 0458  | & X|		.DEBUG	0x0026,0x0458,0x8000,0x0000,0x0059,0xeaf5,0x0000,0x0007
03ca 0053 0484  | S  |		.DEBUG	0x0053,0x0484,0x0001,0x0000,0x0059,0xdee5,0x0000,0x0014
03d2 0073 0490  | s  |		.DEBUG	0x0073,0x0490,0x0001,0x0000,0x0059,0xdee5,0x0000,0x002a
03da 00ab 04a0  |    |		.DEBUG	0x00ab,0x04a0,0x0001,0x0000,0x0059,0xdee5,0x0000,0x004c
03e2 0113 04c0  |    |		.DEBUG	0x0113,0x04c0,0x0001,0x0000,0x0059,0xdee5,0x0000,0x007a
03ea 0183 04e2  |    |		.DEBUG	0x0183,0x04e2,0x0001,0x0000,0x0059,0xdee5,0x0000,0x00b4
03f2 01bb 04f2  |    |		.DEBUG	0x01bb,0x04f2,0x0001,0x0000,0x0059,0xdee5,0x0000,0x00d6
03fa 01d3 04f8  |    |		.DEBUG	0x01d3,0x04f8,0x0001,0x0000,0x0059,0xdee5,0x0000,0x00ec
0402 01eb 0500  |    |		.DEBUG	0x01eb,0x0500,0x0002,0x0000,0x0059,0xdee5,0x0000,0x0100
040a 026b 0530  | k 0|		.DEBUG	0x026b,0x0530,0x0002,0x0000,0x0059,0xdee5,0x0000,0x011a
0412 02cb 0552  |   R|		.DEBUG	0x02cb,0x0552,0x0001,0x0000,0x0059,0xdee5,0x0000,0x012b
041a 02db 055a  |   Z|		.DEBUG	0x02db,0x055a,0x0001,0x0000,0x0059,0xdee5,0x0000,0x0135
0422 02eb 0562  |   b|		.DEBUG	0x02eb,0x0562,0x0002,0x0000,0x0059,0xdee5,0x0000,0x013f
042a 03a3 059c  |    |		.DEBUG	0x03a3,0x059c,0x0001,0x0000,0x0059,0xeaf5,0x0000,0x0038
0432 03ab 05a0  |    |		.DEBUG	0x03ab,0x05a0,0x0001,0x0000,0x0059,0xeaf5,0x0000,0x03af
043a ; --------------------------------------------------------------------------------------
043a ; Debug3 Subtable 0x0
043a ; --------------------------------------------------------------------------------------
043a 000e 0000  |    |		.DBG3TAB	0x000e,0x0000
043c 000b ffff  |    |		.CONST	0x000b,0xffff
043e 000c fffe  |    |		.CONST	0x000c,0xfffe
0440 000d fffd  |    |		.CONST	0x000d,0xfffd
0442 000f fffc  |    |		.CONST	0x000f,0xfffc
0444 0011 fffb  |    |		.CONST	0x0011,0xfffb
0446 0013 fffa  |    |		.CONST	0x0013,0xfffa
0448 0015 fff9  |    |		.CONST	0x0015,0xfff9
044a 0017 fff8  |    |		.CONST	0x0017,0xfff8
044c 0019 fff7  |    |		.CONST	0x0019,0xfff7
044e 001b fff6  |    |		.CONST	0x001b,0xfff6
0450 001d fff5  |    |		.CONST	0x001d,0xfff5
0452 001f fff4  |    |		.CONST	0x001f,0xfff4
0454 0021 fff3  | !  |		.CONST	0x0021,0xfff3
0456 0023 fff2  | #  |		.CONST	0x0023,0xfff2
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug3 Subtable 0x1
0458 ; --------------------------------------------------------------------------------------
0458 0015 0000  |    |		.DBG3TAB	0x0015,0x0000
045a 0026 ffff  | &  |		.CONST	0x0026,0xffff
045c 0027 fffe  | '  |		.CONST	0x0027,0xfffe
045e 0028 fffd  | (  |		.CONST	0x0028,0xfffd
0460 0029 fffc  | )  |		.CONST	0x0029,0xfffc
0462 002a fffb  | *  |		.CONST	0x002a,0xfffb
0464 002b fffa  | +  |		.CONST	0x002b,0xfffa
0466 002c fff9  | ,  |		.CONST	0x002c,0xfff9
0468 002d fff8  | -  |		.CONST	0x002d,0xfff8
046a 002e fff7  | .  |		.CONST	0x002e,0xfff7
046c 0030 fff6  | 0  |		.CONST	0x0030,0xfff6
046e 0032 fff5  | 2  |		.CONST	0x0032,0xfff5
0470 0034 fff4  | 4  |		.CONST	0x0034,0xfff4
0472 0036 fff3  | 6  |		.CONST	0x0036,0xfff3
0474 0038 fff2  | 8  |		.CONST	0x0038,0xfff2
0476 003a fff1  | :  |		.CONST	0x003a,0xfff1
0478 003c fff0  | <  |		.CONST	0x003c,0xfff0
047a 003e ffef  | >  |		.CONST	0x003e,0xffef
047c 0040 ffee  | @  |		.CONST	0x0040,0xffee
047e 0042 ffed  | B  |		.CONST	0x0042,0xffed
0480 0044 ffec  | D  |		.CONST	0x0044,0xffec
0482 0046 ffeb  | F  |		.CONST	0x0046,0xffeb
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug3 Subtable 0x2
0484 ; --------------------------------------------------------------------------------------
0484 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
0486 0053 ffff  | S  |		.CONST	0x0053,0xffff
0488 0058 fffe  | X  |		.CONST	0x0058,0xfffe
048a 005a 0001  | Z  |		.CONST	0x005a,0x0001
048c 006b 0002  | k  |		.CONST	0x006b,0x0002
048e 006d 0003  | m  |		.CONST	0x006d,0x0003
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug3 Subtable 0x3
0490 ; --------------------------------------------------------------------------------------
0490 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
0492 0073 ffff  | s  |		.CONST	0x0073,0xffff
0494 0078 fffe  | x  |		.CONST	0x0078,0xfffe
0496 007a 0001  | z  |		.CONST	0x007a,0x0001
0498 008b 0002  |    |		.CONST	0x008b,0x0002
049a 008d 0003  |    |		.CONST	0x008d,0x0003
049c 00a1 0004  |    |		.CONST	0x00a1,0x0004
049e 00a3 0005  |    |		.CONST	0x00a3,0x0005
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug3 Subtable 0x4
04a0 ; --------------------------------------------------------------------------------------
04a0 0004 000b  |    |		.DBG3TAB	0x0004,0x000b
04a2 00ab ffff  |    |		.CONST	0x00ab,0xffff
04a4 00b0 fffe  |    |		.CONST	0x00b0,0xfffe
04a6 00b5 fffd  |    |		.CONST	0x00b5,0xfffd
04a8 00ba fffc  |    |		.CONST	0x00ba,0xfffc
04aa 00bc 0001  |    |		.CONST	0x00bc,0x0001
04ac 00cd 0002  |    |		.CONST	0x00cd,0x0002
04ae 00cf 0003  |    |		.CONST	0x00cf,0x0003
04b0 00e1 0004  |    |		.CONST	0x00e1,0x0004
04b2 00e3 0005  |    |		.CONST	0x00e3,0x0005
04b4 00f5 0006  |    |		.CONST	0x00f5,0x0006
04b6 00f7 0007  |    |		.CONST	0x00f7,0x0007
04b8 0102 0008  |    |		.CONST	0x0102,0x0008
04ba 0104 0009  |    |		.CONST	0x0104,0x0009
04bc 0106 000a  |    |		.CONST	0x0106,0x000a
04be 0108 000b  |    |		.CONST	0x0108,0x000b
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0x5
04c0 ; --------------------------------------------------------------------------------------
04c0 0005 000b  |    |		.DBG3TAB	0x0005,0x000b
04c2 0113 ffff  |    |		.CONST	0x0113,0xffff
04c4 0118 fffe  |    |		.CONST	0x0118,0xfffe
04c6 011d fffd  |    |		.CONST	0x011d,0xfffd
04c8 0122 fffc  | "  |		.CONST	0x0122,0xfffc
04ca 0127 fffb  | '  |		.CONST	0x0127,0xfffb
04cc 0129 0001  | )  |		.CONST	0x0129,0x0001
04ce 013d 0002  | =  |		.CONST	0x013d,0x0002
04d0 014f 0003  | O  |		.CONST	0x014f,0x0003
04d2 0151 0004  | Q  |		.CONST	0x0151,0x0004
04d4 0161 0005  | a  |		.CONST	0x0161,0x0005
04d6 0163 0006  | c  |		.CONST	0x0163,0x0006
04d8 016e 0007  | n  |		.CONST	0x016e,0x0007
04da 0170 0008  | p  |		.CONST	0x0170,0x0008
04dc 0172 0009  | r  |		.CONST	0x0172,0x0009
04de 0174 000a  | t  |		.CONST	0x0174,0x000a
04e0 0176 000b  | v  |		.CONST	0x0176,0x000b
04e2 ; --------------------------------------------------------------------------------------
04e2 ; Debug3 Subtable 0x6
04e2 ; --------------------------------------------------------------------------------------
04e2 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
04e4 0183 ffff  |    |		.CONST	0x0183,0xffff
04e6 0188 fffe  |    |		.CONST	0x0188,0xfffe
04e8 018a 0001  |    |		.CONST	0x018a,0x0001
04ea 019c 0002  |    |		.CONST	0x019c,0x0002
04ec 019e 0003  |    |		.CONST	0x019e,0x0003
04ee 01ae 0004  |    |		.CONST	0x01ae,0x0004
04f0 01b0 0005  |    |		.CONST	0x01b0,0x0005
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug3 Subtable 0x7
04f2 ; --------------------------------------------------------------------------------------
04f2 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
04f4 01bb ffff  |    |		.CONST	0x01bb,0xffff
04f6 01bd 0001  |    |		.CONST	0x01bd,0x0001
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug3 Subtable 0x8
04f8 ; --------------------------------------------------------------------------------------
04f8 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
04fa 01d3 ffff  |    |		.CONST	0x01d3,0xffff
04fc 01d5 0001  |    |		.CONST	0x01d5,0x0001
04fe 01df 0002  |    |		.CONST	0x01df,0x0002
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug3 Subtable 0x9
0500 ; --------------------------------------------------------------------------------------
0500 0008 000f  |    |		.DBG3TAB	0x0008,0x000f
0502 01eb ffff  |    |		.CONST	0x01eb,0xffff
0504 01f3 fffe  |    |		.CONST	0x01f3,0xfffe
0506 01f8 fffd  |    |		.CONST	0x01f8,0xfffd
0508 01fd fffc  |    |		.CONST	0x01fd,0xfffc
050a 0202 fffb  |    |		.CONST	0x0202,0xfffb
050c 0207 fffa  |    |		.CONST	0x0207,0xfffa
050e 0208 fff9  |    |		.CONST	0x0208,0xfff9
0510 0209 fff8  |    |		.CONST	0x0209,0xfff8
0512 020a 0001  |    |		.CONST	0x020a,0x0001
0514 0228 0002  | (  |		.CONST	0x0228,0x0002
0516 022d 0003  | -  |		.CONST	0x022d,0x0003
0518 0232 0004  | 2  |		.CONST	0x0232,0x0004
051a 0234 0005  | 4  |		.CONST	0x0234,0x0005
051c 023b 0006  | ;  |		.CONST	0x023b,0x0006
051e 0240 0007  | @  |		.CONST	0x0240,0x0007
0520 0244 0008  | D  |		.CONST	0x0244,0x0008
0522 0247 0009  | G  |		.CONST	0x0247,0x0009
0524 024b 000a  | K  |		.CONST	0x024b,0x000a
0526 024d 000b  | M  |		.CONST	0x024d,0x000b
0528 024f 000c  | O  |		.CONST	0x024f,0x000c
052a 0255 000d  | U  |		.CONST	0x0255,0x000d
052c 025a 000e  | Z  |		.CONST	0x025a,0x000e
052e 0260 000f  | `  |		.CONST	0x0260,0x000f
0530 ; --------------------------------------------------------------------------------------
0530 ; Debug3 Subtable 0xa
0530 ; --------------------------------------------------------------------------------------
0530 0007 0009  |    |		.DBG3TAB	0x0007,0x0009
0532 026b ffff  | k  |		.CONST	0x026b,0xffff
0534 0273 fffe  | s  |		.CONST	0x0273,0xfffe
0536 0278 fffd  | x  |		.CONST	0x0278,0xfffd
0538 027d fffc  | }  |		.CONST	0x027d,0xfffc
053a 0282 fffb  |    |		.CONST	0x0282,0xfffb
053c 0287 fffa  |    |		.CONST	0x0287,0xfffa
053e 0288 fff9  |    |		.CONST	0x0288,0xfff9
0540 028a 0001  |    |		.CONST	0x028a,0x0001
0542 02a8 0002  |    |		.CONST	0x02a8,0x0002
0544 02ad 0003  |    |		.CONST	0x02ad,0x0003
0546 02ae 0004  |    |		.CONST	0x02ae,0x0004
0548 02b0 0005  |    |		.CONST	0x02b0,0x0005
054a 02b8 0006  |    |		.CONST	0x02b8,0x0006
054c 02b9 0007  |    |		.CONST	0x02b9,0x0007
054e 02bc 0008  |    |		.CONST	0x02bc,0x0008
0550 02c2 0009  |    |		.CONST	0x02c2,0x0009
0552 ; --------------------------------------------------------------------------------------
0552 ; Debug3 Subtable 0xb
0552 ; --------------------------------------------------------------------------------------
0552 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0554 02cb ffff  |    |		.CONST	0x02cb,0xffff
0556 02cd 0001  |    |		.CONST	0x02cd,0x0001
0558 02d5 0002  |    |		.CONST	0x02d5,0x0002
055a ; --------------------------------------------------------------------------------------
055a ; Debug3 Subtable 0xc
055a ; --------------------------------------------------------------------------------------
055a 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
055c 02db ffff  |    |		.CONST	0x02db,0xffff
055e 02dd 0001  |    |		.CONST	0x02dd,0x0001
0560 02e5 0002  |    |		.CONST	0x02e5,0x0002
0562 ; --------------------------------------------------------------------------------------
0562 ; Debug3 Subtable 0xd
0562 ; --------------------------------------------------------------------------------------
0562 000b 0011  |    |		.DBG3TAB	0x000b,0x0011
0564 02eb ffff  |    |		.CONST	0x02eb,0xffff
0566 02f3 fffe  |    |		.CONST	0x02f3,0xfffe
0568 02f8 fffd  |    |		.CONST	0x02f8,0xfffd
056a 02fd fffc  |    |		.CONST	0x02fd,0xfffc
056c 0302 fffb  |    |		.CONST	0x0302,0xfffb
056e 0307 fffa  |    |		.CONST	0x0307,0xfffa
0570 0308 fff9  |    |		.CONST	0x0308,0xfff9
0572 030d fff8  |    |		.CONST	0x030d,0xfff8
0574 030f fff7  |    |		.CONST	0x030f,0xfff7
0576 0314 fff6  |    |		.CONST	0x0314,0xfff6
0578 0316 fff5  |    |		.CONST	0x0316,0xfff5
057a 0318 0001  |    |		.CONST	0x0318,0x0001
057c 032c 0002  | ,  |		.CONST	0x032c,0x0002
057e 033c 0003  | <  |		.CONST	0x033c,0x0003
0580 033e 0004  | >  |		.CONST	0x033e,0x0004
0582 034e 0005  | N  |		.CONST	0x034e,0x0005
0584 0350 0006  | P  |		.CONST	0x0350,0x0006
0586 0356 0007  | V  |		.CONST	0x0356,0x0007
0588 035c 0008  | \  |		.CONST	0x035c,0x0008
058a 0362 0009  | b  |		.CONST	0x0362,0x0009
058c 0363 000a  | c  |		.CONST	0x0363,0x000a
058e 036c 000b  | l  |		.CONST	0x036c,0x000b
0590 036d 000c  | m  |		.CONST	0x036d,0x000c
0592 0389 000d  |    |		.CONST	0x0389,0x000d
0594 038b 000e  |    |		.CONST	0x038b,0x000e
0596 0391 000f  |    |		.CONST	0x0391,0x000f
0598 0394 0010  |    |		.CONST	0x0394,0x0010
059a 039a 0011  |    |		.CONST	0x039a,0x0011
059c ; --------------------------------------------------------------------------------------
059c ; Debug3 Subtable 0xe
059c ; --------------------------------------------------------------------------------------
059c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
059e 03a3 0001  |    |		.CONST	0x03a3,0x0001
05a0 ; --------------------------------------------------------------------------------------
05a0 ; Debug3 Subtable 0xf
05a0 ; --------------------------------------------------------------------------------------
05a0 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
05a2 03ab 0001  |    |		.CONST	0x03ab,0x0001
05a4 03ad 0002  |    |		.CONST	0x03ad,0x0002
05a6 0000 0000  |    |		.BLANK	0000[0x5a]