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

⟦60b263467⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0298       |    |		.CONST	0x0298								; 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 0025       | %  |		.CONST	0x0025								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 480a       |H   |		Short_Literal	0xa							; Debug Table 0x0 = .DEBUG	0x000b,0x034a,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0303
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 601b       |`   |		Indirect_Literal	Discrete,0x28,{0x0069340e, 0x00000330}
000d 02a0       |    |		Declare_Subprogram	Null_Subprogram
000e 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
000f 00bf       |    |		Action	Accept_Activation
0010 e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x0010,0x034e,0x4000,0x0000,0x0058,0xcc25,0x0000,0x0006
													; Debug Table 0x1.0x0 = 0x10,0xffff
0011 e002       |    |		Load	0x0,0x2
0012 e003       |    |		Load	0x0,0x3
0013 e004       |    |		Load	0x0,0x4
0014 e005       |    |		Load	0x0,0x5
0015 e006       |    |		Load	0x0,0x6
0016 a007       |    |		Store_Unchecked	0x0,0x7
0017 a008       |    |		Store_Unchecked	0x0,0x8
0018 e009       |    |		Load	0x0,0x9
0019 a00a       |    |		Store_Unchecked	0x0,0xa
001a a00b       |    |		Store_Unchecked	0x0,0xb
001b a00c       |    |		Store_Unchecked	0x0,0xc
001c a00d       |    |		Store_Unchecked	0x0,0xd
001d a00e       |    |		Store_Unchecked	0x0,0xe
001e a00f       |    |		Store_Unchecked	0x0,0xf
001f 00b6       |    |		Action	Make_Scope
0020 4810       |H   |		Short_Literal	0x10
0021 e215       |    |		Load	0x1,0x15
0022 020e       |    |		Execute	Module,Augment_Imports
0023 00d8       |    |		Load_Top	At_Offset_0
0024 020d       |    |		Execute	Module,Elaborate
0025			BODY_0008:
0025 00bc       |    |		Action	Signal_Activated
0026 00bb       |    |		Action	Signal_Completion
0027 0000       |    |		.XXX[0x1]
0028 0069 340e  | i4 |		.LITERAL	{0x0069340e, 0x00000330}
002c 0000 0000  |    |		.BLANK	0000[0x4]
0030 008f 0004  |    |		.XXX[0x3]
0032 002a       | *  |
0033 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2 = .DEBUG	0x0033,0x0352,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0331
													; Debug Table 0x2.0x0 = 0x33,0xffff
0035 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x1 = 0x35,0xfffe
0037 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x2 = 0x37,0xfffd
0039 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x3 = 0x39,0xfffc
003b 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x4 = 0x3b,0xfffb
003d 00bf       |    |		Action	Accept_Activation
003e e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x003e,0x035e,0x4000,0x0000,0x0058,0xcc25,0x0000,0x0007
													; Debug Table 0x3.0x0 = 0x3e,0xffff
003f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0040 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call			; Debug Table 0x3.0x1 = 0x40,0xfffe
0042 624d       |bM  |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x0058cc25}		; Debug Table 0x3.0x2 = 0x42,0xfffd
0043 4828       |H(  |		Short_Literal	0x28
0044 e210       |    |		Load	0x1,0x10
0045 e002       |    |		Load	0x0,0x2
0046 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0047 0387       |    |		Declare_Variable	Package
0048 00d8       |    |		Load_Top	At_Offset_0
0049 020f       |    |		Execute	Module,Activate
004a 6245       |bE  |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x0058cc25}		; Debug Table 0x3.0x3 = 0x4a,0xfffc
004b 4830       |H0  |		Short_Literal	0x30
004c e210       |    |		Load	0x1,0x10
004d e211       |    |		Load	0x1,0x11
004e e002       |    |		Load	0x0,0x2
004f 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0050 0387       |    |		Declare_Variable	Package
0051 00d8       |    |		Load_Top	At_Offset_0
0052 020f       |    |		Execute	Module,Activate
0053 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call			; Debug Table 0x3.0x4 = 0x53,0xfffb
0055 029d 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call			; Debug Table 0x3.0x5 = 0x55,0xfffa
0057 029d 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call			; Debug Table 0x3.0x6 = 0x57,0xfff9
0059 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call			; Debug Table 0x3.0x7 = 0x59,0xfff8
005b 029d 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call			; Debug Table 0x3.0x8 = 0x5b,0xfff7
005d 029d 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call			; Debug Table 0x3.0x9 = 0x5d,0xfff6
005f 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call			; Debug Table 0x3.0xa = 0x5f,0xfff5
0061 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call			; Debug Table 0x3.0xb = 0x61,0xfff4
0063 029d 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call			; Debug Table 0x3.0xc = 0x63,0xfff3
0065 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call			; Debug Table 0x3.0xd = 0x65,0xfff2
0067 6228       |b(  |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x0058cc25}		; Debug Table 0x3.0xe = 0x67,0xfff1
0068 49c2       |I   |		Short_Literal	0x1c2
0069 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
006a 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
006b 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006c 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
006d 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
006e 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
006f 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0070 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0071 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0072 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0073 e212       |    |		Load	0x1,0x12
0074 e003       |    |		Load	0x0,0x3
0075 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0076 0335       | 5  |		Declare_Variable	Array,Duplicate
0077 00d0       |    |		Action	Swap_Control
0078 00d1       |    |		Pop_Control	Pop_Count_1
0079 e213       |    |		Load	0x1,0x13
007a 0335       | 5  |		Declare_Variable	Array,Duplicate
007b 00d0       |    |		Action	Swap_Control
007c 00d1       |    |		Pop_Control	Pop_Count_1
007d 4800       |H   |		Short_Literal	0x0
007e e003       |    |		Load	0x0,0x3
007f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0080 e004       |    |		Load	0x0,0x4
0081 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0082 0387       |    |		Declare_Variable	Package
0083 00d8       |    |		Load_Top	At_Offset_0
0084 020f       |    |		Execute	Module,Activate
0085 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x3.0xf = 0x85,0xfff0
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x3.0x10 = 0x87,0xffef
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x3.0x11 = 0x89,0xffee
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x3.0x12 = 0x8b,0xffed
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x3.0x13 = 0x8d,0xffec
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 00cf       |    |		Action	Mark_Auxiliary
0090 e20f       |    |		Load	0x1,0xf								; Debug Table 0x3.0x14 = 0x90,0x1
0091 0265       | e  |		Execute	Discrete,Reverse_Bounds
0092 0263       | c  |		Execute	Discrete,Above_Bound
0093 700f       |p   |		Jump_Nonzero	0xa3
0094 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x15 = 0x94,0x2
0095 00e3       |    |		Load_Encached	Natural_Cache
0096 025b       | [  |		Execute	Discrete,Check_In_Type
0097 00d9       |    |		Load_Top	At_Offset_1
0098 e20f       |    |		Load	0x1,0xf
0099 0122       | "  |		Execute	Any,Make_Root_Type
009a 025e       | ^  |		Execute	Discrete,Convert
009b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
009c e003       |    |		Load	0x0,0x3
009d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
009e e212       |    |		Load	0x1,0x12
009f e22a       | *  |		Load	0x1,0x2a
00a0 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00a1 00c8       |    |		Action	Pop_Auxiliary_Range
00a2 3ff1       |?   |		Loop_Increasing	0x94
00a3 00ce       |    |		Action	Pop_Auxiliary
00a4 00bc       |    |		Action	Signal_Activated
00a5 00bb       |    |		Action	Signal_Completion
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b4       |    |		.CONST	0x00b4								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab e005       |    |		Load	0x0,0x5								; Debug Table 0x4 = .DEBUG	0x00ab,0x038c,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x0376
													; Debug Table 0x4.0x0 = 0xab,0xffff
00ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ad 0322       | "  |		Declare_Variable	Record
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b0 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call				; Debug Table 0x4.0x1 = 0xb0,0xfffe
00b2 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
00b4			BODY_00a8:
00b4 00be       |    |		Action	Activate_Tasks
00b5 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x2 = 0xb5,0x1
00b6 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x3 = 0xb6,0x401
00b7 e006       |    |		Load	0x0,0x6
00b8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b9 0f00       |    |		Execute_Immediate	Equal,0x0
00ba 6803       |h   |		Jump_Zero	0xbe							; Debug Table 0x4.0x4 = 0xba,0x1
00bb e214       |    |		Load	0x1,0x14							; Debug Table 0x4.0x5 = 0xbb,0x2
00bc 0335       | 5  |		Declare_Variable	Array,Duplicate
00bd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00be 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x6 = 0xbe,0x3
00bf e5fd       |    |		Load	0x2,-0x3
00c0 e5fe       |    |		Load	0x2,-0x2
00c1 4800       |H   |		Short_Literal	0x0
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 8007       |    |		Call	0x0,0x7
00c4 00d1       |    |		Pop_Control	Pop_Count_1
00c5 8404       |    |		Call	0x2,0x4								; Debug Table 0x4.0x7 = 0xc5,0x4
00c6 4831       |H1  |		Short_Literal	0x31
00c7 0257       | W  |		Execute	Discrete,Raise
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0       |    |		.CONST	0x00d0								; Address of begin
00c9 00e5       |    |		.CONST	0x00e5								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb e005       |    |		Load	0x0,0x5								; Debug Table 0x5 = .DEBUG	0x00cb,0x039e,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x038f
													; Debug Table 0x5.0x0 = 0xcb,0xffff
00cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00cd 0322       | "  |		Declare_Variable	Record
00ce 00d8       |    |		Load_Top	At_Offset_0
00cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d0			BODY_00c8:
00d0 00be       |    |		Action	Activate_Tasks
00d1 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x1 = 0xd1,0x1
00d2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x2 = 0xd2,0x401
00d3 e006       |    |		Load	0x0,0x6
00d4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d5 0f00       |    |		Execute_Immediate	Equal,0x0
00d6 700d       |p   |		Jump_Nonzero	0xe4							; Debug Table 0x5.0x3 = 0xd6,0x1
00d7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x4 = 0xd7,0x2
00d8 e5fc       |    |		Load	0x2,-0x4
00d9 e5fd       |    |		Load	0x2,-0x3
00da 4802       |H   |		Short_Literal	0x2
00db e5ff       |    |		Load	0x2,-0x1
00dc 8007       |    |		Call	0x0,0x7
00dd 00d1       |    |		Pop_Control	Pop_Count_1
00de e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x5 = 0xde,0x3
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 821b       |    |		Call	0x1,0x1b
00e1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x6 = 0xe1,0x4
00e2 8008       |    |		Call	0x0,0x8
00e3 00d1       |    |		Pop_Control	Pop_Count_1
00e4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e5			TRAP_00c8:
00e5 0007       |    |		Action	Break_Optional
00e6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x7 = 0xe6,0x5
00e7 8008       |    |		Call	0x0,0x8
00e8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5       |    |		.CONST	0x00f5								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e009       |    |		Load	0x0,0x9								; Debug Table 0x6 = .DEBUG	0x00f3,0x03b0,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x03ab
													; Debug Table 0x6.0x0 = 0xf3,0xffff
00f4 0007       |    |		Action	Break_Optional
00f5			BODY_00f0:
00f5 821d       |    |		Call	0x1,0x1d							; Debug Table 0x6.0x1 = 0xf5,0x1
00f6 800a       |    |		Call	0x0,0xa
00f7 e5ff       |    |		Load	0x2,-0x1
00f8 800b       |    |		Call	0x0,0xb
00f9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00fa 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x2 = 0xfa,0x2
00fb 7003       |p   |		Jump_Nonzero	0xff
00fc e214       |    |		Load	0x1,0x14							; Debug Table 0x6.0x3 = 0xfc,0x3
00fd 0335       | 5  |		Declare_Variable	Array,Duplicate
00fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ff 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x4 = 0xff,0x4
0100 0217       |    |		Execute	Heap_Access,All_Reference
0101 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0102 e5ff       |    |		Load	0x2,-0x1
0103 e21e       |    |		Load	0x1,0x1e
0104 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0105 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e009       |    |		Load	0x0,0x9								; Debug Table 0x7 = .DEBUG	0x010b,0x03bc,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x03b4
													; Debug Table 0x7.0x0 = 0x10b,0xffff
010c 0007       |    |		Action	Break_Optional
010d			BODY_0108:
010d 821d       |    |		Call	0x1,0x1d							; Debug Table 0x7.0x1 = 0x10d,0x1
010e 800a       |    |		Call	0x0,0xa
010f e5ff       |    |		Load	0x2,-0x1
0110 800b       |    |		Call	0x0,0xb
0111 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0112 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x2 = 0x112,0x2
0113 7008       |p   |		Jump_Nonzero	0x11c
0114 e214       |    |		Load	0x1,0x14							; Debug Table 0x7.0x3 = 0x114,0x3
0115 e5ff       |    |		Load	0x2,-0x1
0116 821b       |    |		Call	0x1,0x1b
0117 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x4 = 0x117,0x4
0118 821a       |    |		Call	0x1,0x1a
0119 e211       |    |		Load	0x1,0x11
011a 0213       |    |		Execute	Heap_Access,Check_In_Type
011b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x5 = 0x11c,0x5
011d 0217       |    |		Execute	Heap_Access,All_Reference
011e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011f e5ff       |    |		Load	0x2,-0x1
0120 e21f       |    |		Load	0x1,0x1f
0121 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0122 e211       |    |		Load	0x1,0x11
0123 0213       |    |		Execute	Heap_Access,Check_In_Type
0124 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e009       |    |		Load	0x0,0x9								; Debug Table 0x8 = .DEBUG	0x012b,0x03ca,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x03bd
													; Debug Table 0x8.0x0 = 0x12b,0xffff
012c 0007       |    |		Action	Break_Optional
012d			BODY_0128:
012d 821d       |    |		Call	0x1,0x1d							; Debug Table 0x8.0x1 = 0x12d,0x1
012e 800a       |    |		Call	0x0,0xa
012f e5ff       |    |		Load	0x2,-0x1
0130 800b       |    |		Call	0x0,0xb
0131 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0132 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0x132,0x2
0133 700d       |p   |		Jump_Nonzero	0x141
0134 e009       |    |		Load	0x0,0x9								; Debug Table 0x8.0x3 = 0x134,0x3
0135 821d       |    |		Call	0x1,0x1d
0136 800a       |    |		Call	0x0,0xa
0137 e5ff       |    |		Load	0x2,-0x1
0138 800c       |    |		Call	0x0,0xc
0139 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
013a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x4 = 0x13a,0x4
013b e002       |    |		Load	0x0,0x2
013c 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
013d 00d9       |    |		Load_Top	At_Offset_1
013e 0217       |    |		Execute	Heap_Access,All_Reference
013f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0140 781f       |x   |		Jump	0x160
0141 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x8.0x5 = 0x141,0x5
0142 012c       | ,  |		Execute	Any,Size
0143 00d9       |    |		Load_Top	At_Offset_1
0144 0217       |    |		Execute	Heap_Access,All_Reference
0145 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0146 800d       |    |		Call	0x0,0xd
0147 00d9       |    |		Load_Top	At_Offset_1
0148 0217       |    |		Execute	Heap_Access,All_Reference
0149 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014a e5ff       |    |		Load	0x2,-0x1
014b e21e       |    |		Load	0x1,0x1e
014c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
014d 800e       |    |		Call	0x0,0xe
014e 6811       |h   |		Jump_Zero	0x160
014f 00db       |    |		Load_Top	At_Offset_3
0150 e002       |    |		Load	0x0,0x2
0151 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0152 00d9       |    |		Load_Top	At_Offset_1
0153 0217       |    |		Execute	Heap_Access,All_Reference
0154 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0155 e5ff       |    |		Load	0x2,-0x1
0156 e21e       |    |		Load	0x1,0x1e
0157 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0158 800e       |    |		Call	0x0,0xe
0159 6806       |h   |		Jump_Zero	0x160
015a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x6 = 0x15a,0x6
015b e002       |    |		Load	0x0,0x2
015c 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
015d 00d9       |    |		Load_Top	At_Offset_1
015e 0217       |    |		Execute	Heap_Access,All_Reference
015f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0160 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x7 = 0x160,0x7
0161 e005       |    |		Load	0x0,0x5
0162 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0163 e212       |    |		Load	0x1,0x12
0164 027e       | ~  |		Execute	Discrete,Not_Equal
0165 6803       |h   |		Jump_Zero	0x169
0166 e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x8 = 0x166,0x8
0167 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0168 0257       | W  |		Execute	Discrete,Raise
0169 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x8.0x9 = 0x169,0x9
016a 00d9       |    |		Load_Top	At_Offset_1
016b 0217       |    |		Execute	Heap_Access,All_Reference
016c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
016d e5ff       |    |		Load	0x2,-0x1
016e e21e       |    |		Load	0x1,0x1e
016f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0170 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b e21c       |    |		Load	0x1,0x1c							; Debug Table 0x9 = .DEBUG	0x017b,0x03e0,0x1002,0x0000,0x0058,0xcc25,0x0000,0x000e
													; Debug Table 0x9.0x0 = 0x17b,0x1
017c 7004       |p   |		Jump_Nonzero	0x181
017d e213       |    |		Load	0x1,0x13							; Debug Table 0x9.0x1 = 0x17d,0x2
017e 800a       |    |		Call	0x0,0xa
017f 800f       |    |		Call	0x0,0xf
0180 a21c       |    |		Store_Unchecked	0x1,0x1c
0181 e21c       |    |		Load	0x1,0x1c							; Debug Table 0x9.0x2 = 0x181,0x3
0182 00ca       |    |		Action	Exit_Nullary_Function
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 821d       |    |		Call	0x1,0x1d							; Debug Table 0xa = .DEBUG	0x018b,0x03e8,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0039
													; Debug Table 0xa.0x0 = 0x18b,0x1
018c 800a       |    |		Call	0x0,0xa
018d e5ff       |    |		Load	0x2,-0x1
018e 800b       |    |		Call	0x0,0xb
018f 021c       |    |		Execute	Heap_Access,Not_Null
0190 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x019b,0x03ec,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0055
													; Debug Table 0xb.0x0 = 0x19b,0x1
019c 00d8       |    |		Load_Top	At_Offset_0
019d e20f       |    |		Load	0x1,0xf
019e 0122       | "  |		Execute	Any,Make_Root_Type
019f 0260       | `  |		Execute	Discrete,In_Type
01a0 7002       |p   |		Jump_Nonzero	0x1a3
01a1 48e0       |H   |		Short_Literal	0xe0
01a2 0257       | W  |		Execute	Discrete,Raise
01a3 e214       |    |		Load	0x1,0x14
01a4 01d7       |    |		Execute	Vector,Field_Read
01a5 e010       |    |		Load	0x0,0x10
01a6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a7 0119       |    |		Execute	Any,Check_In_Formal_Type
01a8 e010       |    |		Load	0x0,0x10
01a9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc = .DEBUG	0x01b3,0x03f0,0x1002,0x0000,0x0058,0xcc25,0x0000,0x006e
													; Debug Table 0xc.0x0 = 0x1b3,0x1
01b4 e010       |    |		Load	0x0,0x10
01b5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 e20f       |    |		Load	0x1,0xf
01b9 0122       | "  |		Execute	Any,Make_Root_Type
01ba 0260       | `  |		Execute	Discrete,In_Type
01bb 7002       |p   |		Jump_Nonzero	0x1be
01bc 48e0       |H   |		Short_Literal	0xe0
01bd 0257       | W  |		Execute	Discrete,Raise
01be e214       |    |		Load	0x1,0x14
01bf 01d7       |    |		Execute	Vector,Field_Read
01c0 012f       | /  |		Execute	Any,Equal
01c1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d7       |    |		.CONST	0x01d7								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0003       |    |		.CONST	0x0003								; Number of locals
01cb			INIT_01c8:
01cb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd = .DEBUG	0x01cb,0x03f4,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0091
													; Debug Table 0xd.0x0 = 0x1cb,0xffff
01cc 00d8       |    |		Load_Top	At_Offset_0
01cd e20f       |    |		Load	0x1,0xf
01ce 0122       | "  |		Execute	Any,Make_Root_Type
01cf 0260       | `  |		Execute	Discrete,In_Type
01d0 7002       |p   |		Jump_Nonzero	0x1d3
01d1 48e0       |H   |		Short_Literal	0xe0
01d2 0257       | W  |		Execute	Discrete,Raise
01d3 e20f       |    |		Load	0x1,0xf
01d4 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01d5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x1 = 0x1d5,0xfffe
01d6 8219       |    |		Call	0x1,0x19
01d7			BODY_01c8:
01d7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x2 = 0x1d7,0x1
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 01da       |    |		Execute	Vector,Bounds
01da 0262       | b  |		Execute	Discrete,In_Range
01db 6809       |h   |		Jump_Zero	0x1e5
01dc 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x3 = 0x1dc,0x2
01dd 00d9       |    |		Load_Top	At_Offset_1
01de 01d7       |    |		Execute	Vector,Field_Read
01df e010       |    |		Load	0x0,0x10
01e0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e1 0119       |    |		Execute	Any,Check_In_Formal_Type
01e2 e010       |    |		Load	0x0,0x10
01e3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e5 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x4 = 0x1e5,0x3
01e6 8221       | !  |		Call	0x1,0x21
01e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ff       |    |		.CONST	0x01ff								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0005       |    |		.CONST	0x0005								; Number of locals
01eb			INIT_01e8:
01eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe = .DEBUG	0x01eb,0x0400,0x1001,0x0000,0x0058,0xcc25,0x0000,0x00cd
													; Debug Table 0xe.0x0 = 0x1eb,0xffff
01ec 00d8       |    |		Load_Top	At_Offset_0
01ed e20f       |    |		Load	0x1,0xf
01ee 0122       | "  |		Execute	Any,Make_Root_Type
01ef 0260       | `  |		Execute	Discrete,In_Type
01f0 7002       |p   |		Jump_Nonzero	0x1f3
01f1 48e0       |H   |		Short_Literal	0xe0
01f2 0257       | W  |		Execute	Discrete,Raise
01f3 e20f       |    |		Load	0x1,0xf
01f4 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01f5 e211       |    |		Load	0x1,0x11							; Debug Table 0xe.0x1 = 0x1f5,0xfffe
01f6 0007       |    |		Action	Break_Optional
01f7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe.0x2 = 0x1f7,0xfffd
01f8 8219       |    |		Call	0x1,0x19
01f9 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x3 = 0x1f9,0xfffc
01fa e010       |    |		Load	0x0,0x10
01fb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01fc e010       |    |		Load	0x0,0x10
01fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fe 011e       |    |		Execute	Any,Convert
01ff			BODY_01e8:
01ff 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe.0x4 = 0x1ff,0x1
0200 00da       |    |		Load_Top	At_Offset_2
0201 01da       |    |		Execute	Vector,Bounds
0202 0261       | a  |		Execute	Discrete,Not_In_Range
0203 6818       |h   |		Jump_Zero	0x21c
0204 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0xe.0x5 = 0x204,0x2
0205 e214       |    |		Load	0x1,0x14							; Debug Table 0xe.0x6 = 0x205,0xfbff
0206 01da       |    |		Execute	Vector,Bounds
0207 e210       |    |		Load	0x1,0x10
0208 035b       | [  |		Declare_Type	Array,Constrained
0209 0337       | 7  |		Declare_Variable	Array
020a e214       |    |		Load	0x1,0x14
020b 00d9       |    |		Load_Top	At_Offset_1
020c 01d4       |    |		Execute	Vector,Structure_Write
020d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe.0x7 = 0x20d,0x401
020e e404       |    |		Load	0x2,0x4
020f 01da       |    |		Execute	Vector,Bounds
0210 00db       |    |		Load_Top	At_Offset_3
0211 01ce       |    |		Execute	Vector,Slice_Write
0212 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x8 = 0x212,0x402
0213 e402       |    |		Load	0x2,0x2
0214 00da       |    |		Load_Top	At_Offset_2
0215 01d6       |    |		Execute	Vector,Field_Write
0216 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x9 = 0x216,0x403
0217 e5ff       |    |		Load	0x2,-0x1
0218 821b       |    |		Call	0x1,0x1b
0219 00d1       |    |		Pop_Control	Pop_Count_1
021a 00ce       |    |		Action	Pop_Auxiliary
021b 780e       |x   |		Jump	0x22a
021c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0xa = 0x21c,0x3
021d e402       |    |		Load	0x2,0x2
021e 00db       |    |		Load_Top	At_Offset_3
021f 01d7       |    |		Execute	Vector,Field_Read
0220 012e       | .  |		Execute	Any,Not_Equal
0221 6808       |h   |		Jump_Zero	0x22a
0222 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe.0xb = 0x222,0x4
0223 821a       |    |		Call	0x1,0x1a
0224 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0225 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0xc = 0x225,0x5
0226 e402       |    |		Load	0x2,0x2
0227 e403       |    |		Load	0x2,0x3
0228 0217       |    |		Execute	Heap_Access,All_Reference
0229 01d6       |    |		Execute	Vector,Field_Write
022a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0xd = 0x22a,0x6
022b e5fe       |    |		Load	0x2,-0x2
022c e5ff       |    |		Load	0x2,-0x1
022d e002       |    |		Load	0x0,0x2
022e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
022f 8216       |    |		Call	0x1,0x16
0230 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b e010       |    |		Load	0x0,0x10							; Debug Table 0xf = .DEBUG	0x023b,0x041e,0x1002,0x0000,0x0058,0xcc25,0x0000,0x014e
													; Debug Table 0xf.0x0 = 0x23b,0x1
023c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
023d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023e 0000 0000  |    |		.XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 e010       |    |		Load	0x0,0x10							; Debug Table 0x10 = .DEBUG	0x0243,0x0422,0x1002,0x0000,0x0058,0xcc25,0x0000,0x015f
													; Debug Table 0x10.0x0 = 0x243,0x1
0244 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0245 0335       | 5  |		Declare_Variable	Array,Duplicate
0246 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11 = .DEBUG	0x024b,0x0426,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0170
													; Debug Table 0x11.0x0 = 0x24b,0x1
024c 00db       |    |		Load_Top	At_Offset_3
024d 00d8       |    |		Load_Top	At_Offset_0
024e e20f       |    |		Load	0x1,0xf
024f 0122       | "  |		Execute	Any,Make_Root_Type
0250 0260       | `  |		Execute	Discrete,In_Type
0251 7002       |p   |		Jump_Nonzero	0x254
0252 48e0       |H   |		Short_Literal	0xe0
0253 0257       | W  |		Execute	Discrete,Raise
0254 e20f       |    |		Load	0x1,0xf
0255 0122       | "  |		Execute	Any,Make_Root_Type
0256 025e       | ^  |		Execute	Discrete,Convert
0257 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0258 8215       |    |		Call	0x1,0x15
0259 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
025a 0000 0000  |    |		.BLANK	0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x12 = .DEBUG	0x0263,0x042a,0x1002,0x0000,0x0058,0xcc25,0x0000,0x018f
													; Debug Table 0x12.0x0 = 0x263,0x1
0264 e010       |    |		Load	0x0,0x10
0265 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0266 e010       |    |		Load	0x0,0x10
0267 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0268 0119       |    |		Execute	Any,Check_In_Formal_Type
0269 e010       |    |		Load	0x0,0x10
026a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
026b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026c 0000 0000  |    |		.BLANK	0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x13 = .DEBUG	0x0273,0x042e,0x1002,0x0000,0x0058,0xcc25,0x0000,0x01ac
													; Debug Table 0x13.0x0 = 0x273,0x1
0274 e010       |    |		Load	0x0,0x10
0275 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0276 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0277 0000       |    |		.XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b e402       |    |		Load	0x2,0x2								; Debug Table 0x14 = .DEBUG	0x027b,0x0432,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0215
													; Debug Table 0x14.0x0 = 0x27b,0x1
027c 8008       |    |		Call	0x0,0x8
027d 00d1       |    |		Pop_Control	Pop_Count_1
027e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x1 = 0x27e,0x2
027f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0288       |    |		.CONST	0x0288								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e402       |    |		Load	0x2,0x2								; Debug Table 0x15 = .DEBUG	0x0283,0x0438,0x1004,0x0000,0x0058,0xcc25,0x0000,0x0251
													; Debug Table 0x15.0x0 = 0x283,0x1
0284 8219       |    |		Call	0x1,0x19
0285 8403       |    |		Call	0x2,0x3
0286 00cb       |    |		Action	Pop_Block_With_Result
0287 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0288			TRAP_0280:
0288 0007       |    |		Action	Break_Optional
0289 e402       |    |		Load	0x2,0x2								; Debug Table 0x15.0x1 = 0x289,0x2
028a 8008       |    |		Call	0x0,0x8
028b 00d1       |    |		Pop_Control	Pop_Count_1
028c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x2 = 0x28c,0x3
028d 0101       |    |		Execute	Exception,Reraise
028e 0000 0000  |    |		.XXX[0x2]
0290 0000 0000  |    |		.LITERAL	{0x00000000, 0x0058cc25}
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0003 0016  |    |		.CONST	0x0003,0x0016
029a 000b 034a  |   J|		.DEBUG	0x000b,0x034a,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0303
02a2 0010 034e  |   N|		.DEBUG	0x0010,0x034e,0x4000,0x0000,0x0058,0xcc25,0x0000,0x0006
02aa 0033 0352  | 3 R|		.DEBUG	0x0033,0x0352,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0331
02b2 003e 035e  | > ^|		.DEBUG	0x003e,0x035e,0x4000,0x0000,0x0058,0xcc25,0x0000,0x0007
02ba 00ab 038c  |    |		.DEBUG	0x00ab,0x038c,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x0376
02c2 00cb 039e  |    |		.DEBUG	0x00cb,0x039e,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x038f
02ca 00f3 03b0  |    |		.DEBUG	0x00f3,0x03b0,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x03ab
02d2 010b 03bc  |    |		.DEBUG	0x010b,0x03bc,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x03b4
02da 012b 03ca  | +  |		.DEBUG	0x012b,0x03ca,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x03bd
02e2 017b 03e0  | {  |		.DEBUG	0x017b,0x03e0,0x1002,0x0000,0x0058,0xcc25,0x0000,0x000e
02ea 018b 03e8  |    |		.DEBUG	0x018b,0x03e8,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0039
02f2 019b 03ec  |    |		.DEBUG	0x019b,0x03ec,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0055
02fa 01b3 03f0  |    |		.DEBUG	0x01b3,0x03f0,0x1002,0x0000,0x0058,0xcc25,0x0000,0x006e
0302 01cb 03f4  |    |		.DEBUG	0x01cb,0x03f4,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0091
030a 01eb 0400  |    |		.DEBUG	0x01eb,0x0400,0x1001,0x0000,0x0058,0xcc25,0x0000,0x00cd
0312 023b 041e  | ;  |		.DEBUG	0x023b,0x041e,0x1002,0x0000,0x0058,0xcc25,0x0000,0x014e
031a 0243 0422  | C "|		.DEBUG	0x0243,0x0422,0x1002,0x0000,0x0058,0xcc25,0x0000,0x015f
0322 024b 0426  | K &|		.DEBUG	0x024b,0x0426,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0170
032a 0263 042a  | c *|		.DEBUG	0x0263,0x042a,0x1002,0x0000,0x0058,0xcc25,0x0000,0x018f
0332 0273 042e  | s .|		.DEBUG	0x0273,0x042e,0x1002,0x0000,0x0058,0xcc25,0x0000,0x01ac
033a 027b 0432  | { 2|		.DEBUG	0x027b,0x0432,0x1002,0x0000,0x0058,0xcc25,0x0000,0x0215
0342 0283 0438  |   8|		.DEBUG	0x0283,0x0438,0x1004,0x0000,0x0058,0xcc25,0x0000,0x0251
034a ; --------------------------------------------------------------------------------------
034a ; Debug3 Subtable 0x0
034a ; --------------------------------------------------------------------------------------
034a 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
034c 000b ffff  |    |		.CONST	0x000b,0xffff
034e ; --------------------------------------------------------------------------------------
034e ; Debug3 Subtable 0x1
034e ; --------------------------------------------------------------------------------------
034e 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
0350 0010 ffff  |    |		.CONST	0x0010,0xffff
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug3 Subtable 0x2
0352 ; --------------------------------------------------------------------------------------
0352 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
0354 0033 ffff  | 3  |		.CONST	0x0033,0xffff
0356 0035 fffe  | 5  |		.CONST	0x0035,0xfffe
0358 0037 fffd  | 7  |		.CONST	0x0037,0xfffd
035a 0039 fffc  | 9  |		.CONST	0x0039,0xfffc
035c 003b fffb  | ;  |		.CONST	0x003b,0xfffb
035e ; --------------------------------------------------------------------------------------
035e ; Debug3 Subtable 0x3
035e ; --------------------------------------------------------------------------------------
035e 0014 0002  |    |		.DBG3TAB	0x0014,0x0002
0360 003e ffff  | >  |		.CONST	0x003e,0xffff
0362 0040 fffe  | @  |		.CONST	0x0040,0xfffe
0364 0042 fffd  | B  |		.CONST	0x0042,0xfffd
0366 004a fffc  | J  |		.CONST	0x004a,0xfffc
0368 0053 fffb  | S  |		.CONST	0x0053,0xfffb
036a 0055 fffa  | U  |		.CONST	0x0055,0xfffa
036c 0057 fff9  | W  |		.CONST	0x0057,0xfff9
036e 0059 fff8  | Y  |		.CONST	0x0059,0xfff8
0370 005b fff7  | [  |		.CONST	0x005b,0xfff7
0372 005d fff6  | ]  |		.CONST	0x005d,0xfff6
0374 005f fff5  | _  |		.CONST	0x005f,0xfff5
0376 0061 fff4  | a  |		.CONST	0x0061,0xfff4
0378 0063 fff3  | c  |		.CONST	0x0063,0xfff3
037a 0065 fff2  | e  |		.CONST	0x0065,0xfff2
037c 0067 fff1  | g  |		.CONST	0x0067,0xfff1
037e 0085 fff0  |    |		.CONST	0x0085,0xfff0
0380 0087 ffef  |    |		.CONST	0x0087,0xffef
0382 0089 ffee  |    |		.CONST	0x0089,0xffee
0384 008b ffed  |    |		.CONST	0x008b,0xffed
0386 008d ffec  |    |		.CONST	0x008d,0xffec
0388 0090 0001  |    |		.CONST	0x0090,0x0001
038a 0094 0002  |    |		.CONST	0x0094,0x0002
038c ; --------------------------------------------------------------------------------------
038c ; Debug3 Subtable 0x4
038c ; --------------------------------------------------------------------------------------
038c 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
038e 00ab ffff  |    |		.CONST	0x00ab,0xffff
0390 00b0 fffe  |    |		.CONST	0x00b0,0xfffe
0392 00b5 0001  |    |		.CONST	0x00b5,0x0001
0394 00b6 0401  |    |		.CONST	0x00b6,0x0401
0396 00ba 0001  |    |		.CONST	0x00ba,0x0001
0398 00bb 0002  |    |		.CONST	0x00bb,0x0002
039a 00be 0003  |    |		.CONST	0x00be,0x0003
039c 00c5 0004  |    |		.CONST	0x00c5,0x0004
039e ; --------------------------------------------------------------------------------------
039e ; Debug3 Subtable 0x5
039e ; --------------------------------------------------------------------------------------
039e 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
03a0 00cb ffff  |    |		.CONST	0x00cb,0xffff
03a2 00d1 0001  |    |		.CONST	0x00d1,0x0001
03a4 00d2 0401  |    |		.CONST	0x00d2,0x0401
03a6 00d6 0001  |    |		.CONST	0x00d6,0x0001
03a8 00d7 0002  |    |		.CONST	0x00d7,0x0002
03aa 00de 0003  |    |		.CONST	0x00de,0x0003
03ac 00e1 0004  |    |		.CONST	0x00e1,0x0004
03ae 00e6 0005  |    |		.CONST	0x00e6,0x0005
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0x6
03b0 ; --------------------------------------------------------------------------------------
03b0 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
03b2 00f3 ffff  |    |		.CONST	0x00f3,0xffff
03b4 00f5 0001  |    |		.CONST	0x00f5,0x0001
03b6 00fa 0002  |    |		.CONST	0x00fa,0x0002
03b8 00fc 0003  |    |		.CONST	0x00fc,0x0003
03ba 00ff 0004  |    |		.CONST	0x00ff,0x0004
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x7
03bc ; --------------------------------------------------------------------------------------
03bc 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
03be 010b ffff  |    |		.CONST	0x010b,0xffff
03c0 010d 0001  |    |		.CONST	0x010d,0x0001
03c2 0112 0002  |    |		.CONST	0x0112,0x0002
03c4 0114 0003  |    |		.CONST	0x0114,0x0003
03c6 0117 0004  |    |		.CONST	0x0117,0x0004
03c8 011c 0005  |    |		.CONST	0x011c,0x0005
03ca ; --------------------------------------------------------------------------------------
03ca ; Debug3 Subtable 0x8
03ca ; --------------------------------------------------------------------------------------
03ca 0001 0009  |    |		.DBG3TAB	0x0001,0x0009
03cc 012b ffff  | +  |		.CONST	0x012b,0xffff
03ce 012d 0001  | -  |		.CONST	0x012d,0x0001
03d0 0132 0002  | 2  |		.CONST	0x0132,0x0002
03d2 0134 0003  | 4  |		.CONST	0x0134,0x0003
03d4 013a 0004  | :  |		.CONST	0x013a,0x0004
03d6 0141 0005  | A  |		.CONST	0x0141,0x0005
03d8 015a 0006  | Z  |		.CONST	0x015a,0x0006
03da 0160 0007  | `  |		.CONST	0x0160,0x0007
03dc 0166 0008  | f  |		.CONST	0x0166,0x0008
03de 0169 0009  | i  |		.CONST	0x0169,0x0009
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x9
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03e2 017b 0001  | {  |		.CONST	0x017b,0x0001
03e4 017d 0002  | }  |		.CONST	0x017d,0x0002
03e6 0181 0003  |    |		.CONST	0x0181,0x0003
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0xa
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ea 018b 0001  |    |		.CONST	0x018b,0x0001
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug3 Subtable 0xb
03ec ; --------------------------------------------------------------------------------------
03ec 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ee 019b 0001  |    |		.CONST	0x019b,0x0001
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug3 Subtable 0xc
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03f2 01b3 0001  |    |		.CONST	0x01b3,0x0001
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0xd
03f4 ; --------------------------------------------------------------------------------------
03f4 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
03f6 01cb ffff  |    |		.CONST	0x01cb,0xffff
03f8 01d5 fffe  |    |		.CONST	0x01d5,0xfffe
03fa 01d7 0001  |    |		.CONST	0x01d7,0x0001
03fc 01dc 0002  |    |		.CONST	0x01dc,0x0002
03fe 01e5 0003  |    |		.CONST	0x01e5,0x0003
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug3 Subtable 0xe
0400 ; --------------------------------------------------------------------------------------
0400 0005 0009  |    |		.DBG3TAB	0x0005,0x0009
0402 01eb ffff  |    |		.CONST	0x01eb,0xffff
0404 01f5 fffe  |    |		.CONST	0x01f5,0xfffe
0406 01f7 fffd  |    |		.CONST	0x01f7,0xfffd
0408 01f9 fffc  |    |		.CONST	0x01f9,0xfffc
040a 01ff 0001  |    |		.CONST	0x01ff,0x0001
040c 0204 0002  |    |		.CONST	0x0204,0x0002
040e 0205 fbff  |    |		.CONST	0x0205,0xfbff
0410 020d 0401  |    |		.CONST	0x020d,0x0401
0412 0212 0402  |    |		.CONST	0x0212,0x0402
0414 0216 0403  |    |		.CONST	0x0216,0x0403
0416 021c 0003  |    |		.CONST	0x021c,0x0003
0418 0222 0004  | "  |		.CONST	0x0222,0x0004
041a 0225 0005  | %  |		.CONST	0x0225,0x0005
041c 022a 0006  | *  |		.CONST	0x022a,0x0006
041e ; --------------------------------------------------------------------------------------
041e ; Debug3 Subtable 0xf
041e ; --------------------------------------------------------------------------------------
041e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0420 023b 0001  | ;  |		.CONST	0x023b,0x0001
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x10
0422 ; --------------------------------------------------------------------------------------
0422 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0424 0243 0001  | C  |		.CONST	0x0243,0x0001
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug3 Subtable 0x11
0426 ; --------------------------------------------------------------------------------------
0426 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0428 024b 0001  | K  |		.CONST	0x024b,0x0001
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x12
042a ; --------------------------------------------------------------------------------------
042a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
042c 0263 0001  | c  |		.CONST	0x0263,0x0001
042e ; --------------------------------------------------------------------------------------
042e ; Debug3 Subtable 0x13
042e ; --------------------------------------------------------------------------------------
042e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0430 0273 0001  | s  |		.CONST	0x0273,0x0001
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug3 Subtable 0x14
0432 ; --------------------------------------------------------------------------------------
0432 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0434 027b 0001  | {  |		.CONST	0x027b,0x0001
0436 027e 0002  | ~  |		.CONST	0x027e,0x0002
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug3 Subtable 0x15
0438 ; --------------------------------------------------------------------------------------
0438 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
043a 0283 0001  |    |		.CONST	0x0283,0x0001
043c 0289 0002  |    |		.CONST	0x0289,0x0002
043e 028c 0003  |    |		.CONST	0x028c,0x0003
0440 0000 0000  |    |		.BLANK	0000[0x1c0]