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

⟦762fd1e72⟧

    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 03d8       |    |		.CONST	0x03d8								; 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 005c       | \  |		.CONST	0x005c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0 = .DEBUG	0x000b,0x042a,0xc000,0x0000,0x0055,0xe295,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
													; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 02a0       |    |		Declare_Subprogram	Null_Subprogram
000d 481c       |H   |		Short_Literal	0x1c
000e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
000f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x4 = 0xf,0xfffb
0010 62f3       |b   |		Indirect_Literal	Discrete,0x304,{0x00000000, 0x000fffff}
0011 00e2       |    |		Load_Encached	Integer_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 0266       | f  |		Execute	Discrete,Bounds
0015 00db       |    |		Load_Top	At_Offset_3
0016 02a0       |    |		Declare_Subprogram	Null_Subprogram
0017 4801       |H   |		Short_Literal	0x1
0018 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0019 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x6 = 0x19,0xfff9
001a 02a0       |    |		Declare_Subprogram	Null_Subprogram
001b 481c       |H   |		Short_Literal	0x1c
001c 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
001d 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1d,0xfff8
001f 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0.0x8 = 0x1f,0xfff7
0020 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0021 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x9 = 0x21,0xfff6
0022 4802       |H   |		Short_Literal	0x2
0023 00e4       |    |		Load_Encached	Positive_Cache
0024 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0025 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x25,0xfff5
0027 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x27,0xfff4
0029 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x29,0xfff3
002b 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x2b,0xfff2
002d 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x2d,0xfff1
002f 4804       |H   |		Short_Literal	0x4							; Debug Table 0x0.0xf = 0x2f,0xfff0
0030 032a       | *  |		Declare_Type	Record,Incomplete
0031 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x10 = 0x31,0xffef
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 481c       |H   |		Short_Literal	0x1c
0034 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0035 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x11 = 0x35,0xffee
0036 4802       |H   |		Short_Literal	0x2
0037 00e2       |    |		Load_Encached	Integer_Cache
0038 02a0       |    |		Declare_Subprogram	Null_Subprogram
0039 4801       |H   |		Short_Literal	0x1
003a 035d       | ]  |		Declare_Type	Array,Defined
003b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x12 = 0x3b,0xffed
003c 00da       |    |		Load_Top	At_Offset_2
003d 02a0       |    |		Declare_Subprogram	Null_Subprogram
003e e214       |    |		Load	0x1,0x14
003f 0326       | &  |		Complete_Type	Record,By_Defining
0040 00bf       |    |		Action	Accept_Activation
0041 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1 = .DEBUG	0x0041,0x0452,0xc000,0x0000,0x0057,0x7dc5,0x0000,0x0009
													; Debug Table 0x1.0x0 = 0x41,0xffff
0042 00e2       |    |		Load_Encached	Integer_Cache
0043 00db       |    |		Load_Top	At_Offset_3
0044 00e1       |    |		Load_Encached	Boolean_Cache
0045 02a0       |    |		Declare_Subprogram	Null_Subprogram
0046 e21b       |    |		Load	0x1,0x1b
0047 0326       | &  |		Complete_Type	Record,By_Defining
0048 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x1.0x1 = 0x48,0xfffe
0049 0266       | f  |		Execute	Discrete,Bounds
004a 00db       |    |		Load_Top	At_Offset_3
004b 02a0       |    |		Declare_Subprogram	Null_Subprogram
004c 4801       |H   |		Short_Literal	0x1
004d 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
004e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x2 = 0x4e,0xfffd
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 029d 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call			; Debug Table 0x1.0x3 = 0x50,0xfffc
0052 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x4 = 0x52,0xfffb
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x5 = 0x54,0xfffa
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x6 = 0x56,0xfff9
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x7 = 0x58,0xfff8
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x8 = 0x5a,0xfff7
005b 00c7       |    |		Action	Elaborate_Subprogram
005c			BODY_0008:
005c 00bc       |    |		Action	Signal_Activated
005d 00bb       |    |		Action	Signal_Completion
005e 0000 0000  |    |		.XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0081       |    |		.CONST	0x0081								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0009       |    |		.CONST	0x0009								; Number of locals
0063			INIT_0060:
0063 4802       |H   |		Short_Literal	0x2							; Debug Table 0x2 = .DEBUG	0x0063,0x0466,0x3802,0x0002,0x0055,0xe295,0x0000,0x0048
													; Debug Table 0x2.0x0 = 0x63,0xffff
0064 032a       | *  |		Declare_Type	Record,Incomplete
0065 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1 = 0x65,0xfffe
0066 02a0       |    |		Declare_Subprogram	Null_Subprogram
0067 481c       |H   |		Short_Literal	0x1c
0068 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0069 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x2 = 0x69,0xfffd
006a 4864       |Hd  |		Short_Literal	0x64
006b 00e2       |    |		Load_Encached	Integer_Cache
006c 03f8       |    |		Declare_Type	Discrete,Constrained
006d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x3 = 0x6d,0xfffc
006e 4864       |Hd  |		Short_Literal	0x64
006f e211       |    |		Load	0x1,0x11
0070 035b       | [  |		Declare_Type	Array,Constrained
0071 00da       |    |		Load_Top	At_Offset_2
0072 02a0       |    |		Declare_Subprogram	Null_Subprogram
0073 e402       |    |		Load	0x2,0x2
0074 0326       | &  |		Complete_Type	Record,By_Defining
0075 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x2.0x4 = 0x75,0xfffb
0076 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0077 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x5 = 0x77,0xfffa
0078 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x6 = 0x78,0xfff9
0079 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x7 = 0x79,0xfff8
007a 02c7       |    |		Declare_Variable	Any
007b 00d8       |    |		Load_Top	At_Offset_0
007c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x8 = 0x7d,0xfff7
007e 4864       |Hd  |		Short_Literal	0x64
007f 00e2       |    |		Load_Encached	Integer_Cache
0080 03f8       |    |		Declare_Type	Discrete,Constrained
0081			BODY_0060:
0081 00be       |    |		Action	Activate_Tasks
0082 e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x9 = 0x82,0x1
0083 03bc       |    |		Declare_Variable	Access,By_Allocation
0084 a406       |    |		Store_Unchecked	0x2,0x6
0085 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0xa = 0x85,0x2
0086 003b       | ;  |		Store_Top	Access,At_Offset_3
0087 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0xb = 0x87,0x3
0088 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0089 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xc = 0x89,0x4
008a 0120       |    |		Execute	Any,Is_Value
008b 6802       |h   |		Jump_Zero	0x8e
008c e5fa       |    |		Load	0x2,-0x6
008d 7803       |x   |		Jump	0x91
008e 00d9       |    |		Load_Top	At_Offset_1
008f e5fa       |    |		Load	0x2,-0x6
0090 0119       |    |		Execute	Any,Check_In_Formal_Type
0091 e5f8       |    |		Load	0x2,-0x8
0092 e5f9       |    |		Load	0x2,-0x7
0093 0119       |    |		Execute	Any,Check_In_Formal_Type
0094 85fb       |    |		Call	0x2,-0x5
0095 c408       |    |		Store	0x2,0x8
0096 00cf       |    |		Action	Mark_Auxiliary
0097 7822       |x"  |		Jump	0xba
0098 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xd = 0x98,0x6
0099 0f64       | d  |		Execute_Immediate	Equal,0x64
009a 680c       |h   |		Jump_Zero	0xa7
009b e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0xe = 0x9b,0x7
009c 03bc       |    |		Declare_Variable	Access,By_Allocation
009d e407       |    |		Load	0x2,0x7
009e 0227       | '  |		Execute	Access,All_Reference
009f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00a0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0xf = 0xa0,0x8
00a1 0227       | '  |		Execute	Access,All_Reference
00a2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00a3 a407       |    |		Store_Unchecked	0x2,0x7
00a4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x10 = 0xa4,0x9
00a5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00a6 7803       |x   |		Jump	0xaa
00a7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x11 = 0xa7,0xa
00a8 0a01       |    |		Execute_Immediate	Plus,0x1
00a9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00aa 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x12 = 0xaa,0xb
00ab e5fa       |    |		Load	0x2,-0x6
00ac 0119       |    |		Execute	Any,Check_In_Formal_Type
00ad 85fd       |    |		Call	0x2,-0x3
00ae 00da       |    |		Load_Top	At_Offset_2
00af e407       |    |		Load	0x2,0x7
00b0 0227       | '  |		Execute	Access,All_Reference
00b1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00b2 01d6       |    |		Execute	Vector,Field_Write
00b3 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x13 = 0xb3,0xc
00b4 0a01       |    |		Execute_Immediate	Plus,0x1
00b5 c405       |    |		Store	0x2,0x5
00b6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x14 = 0xb6,0xd
00b7 85fc       |    |		Call	0x2,-0x4
00b8 c408       |    |		Store	0x2,0x8
00b9 00c9       |    |		Action	Pop_Auxiliary_Loop
00ba 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x15 = 0xba,0x5
00bb e5fa       |    |		Load	0x2,-0x6
00bc 0119       |    |		Execute	Any,Check_In_Formal_Type
00bd 85fe       |    |		Call	0x2,-0x2
00be 6fd9       |o   |		Jump_Zero	0x98
00bf 00ce       |    |		Action	Pop_Auxiliary
00c0 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x2.0x16 = 0xc0,0xe
00c1 e212       |    |		Load	0x1,0x12							; Debug Table 0x2.0x17 = 0xc1,0xfbff
00c2 4801       |H   |		Short_Literal	0x1
00c3 e405       |    |		Load	0x2,0x5
00c4 e212       |    |		Load	0x1,0x12
00c5 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
00c6 0039       | 9  |		Store_Top	Access,At_Offset_1
00c7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x18 = 0xc7,0xfbfe
00c8 0227       | '  |		Execute	Access,All_Reference
00c9 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x19 = 0xc9,0xfbfd
00ca e405       |    |		Load	0x2,0x5
00cb 00e3       |    |		Load_Encached	Natural_Cache
00cc 03f8       |    |		Declare_Type	Discrete,Constrained
00cd 03e9       |    |		Declare_Variable	Discrete,Duplicate
00ce e20f       |    |		Load	0x1,0xf								; Debug Table 0x2.0x1a = 0xce,0xfbfc
00cf 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x1b = 0xcf,0x401
00d0 005b       | [  |		Store_Top	Discrete,At_Offset_3
00d1 00cf       |    |		Action	Mark_Auxiliary
00d2 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x1c = 0xd2,0x402
													; Debug Table 0x2.0x1d = 0xd2,0x403
00d3 e407       |    |		Load	0x2,0x7
00d4 022f       | /  |		Execute	Access,Equal
00d5 6803       |h   |		Jump_Zero	0xd9
00d6 e409       |    |		Load	0x2,0x9								; Debug Table 0x2.0x1e = 0xd6,0x404
00d7 005b       | [  |		Store_Top	Discrete,At_Offset_3
00d8 7802       |x   |		Jump	0xdb
00d9 4864       |Hd  |		Short_Literal	0x64							; Debug Table 0x2.0x1f = 0xd9,0x405
00da 005b       | [  |		Store_Top	Discrete,At_Offset_3
00db 00cf       |    |		Action	Mark_Auxiliary
00dc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x20 = 0xdc,0x406
00dd 4801       |H   |		Short_Literal	0x1
00de 0263       | c  |		Execute	Discrete,Above_Bound
00df 700d       |p   |		Jump_Nonzero	0xed
00e0 e40d       |    |		Load	0x2,0xd								; Debug Table 0x2.0x21 = 0xe0,0x407
00e1 0a01       |    |		Execute_Immediate	Plus,0x1
00e2 c40d       |    |		Store	0x2,0xd
00e3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x22 = 0xe3,0x408
00e4 e406       |    |		Load	0x2,0x6
00e5 0227       | '  |		Execute	Access,All_Reference
00e6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00e7 01d7       |    |		Execute	Vector,Field_Read
00e8 e40d       |    |		Load	0x2,0xd
00e9 e40c       |    |		Load	0x2,0xc
00ea 01d6       |    |		Execute	Vector,Field_Write
00eb 00c8       |    |		Action	Pop_Auxiliary_Range
00ec 3ff3       |?   |		Loop_Increasing	0xe0
00ed 00ce       |    |		Action	Pop_Auxiliary
00ee e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x23 = 0xee,0x409
00ef e407       |    |		Load	0x2,0x7
00f0 022f       | /  |		Execute	Access,Equal
00f1 7006       |p   |		Jump_Nonzero	0xf8
00f2 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x24 = 0xf2,0x40a
00f3 0227       | '  |		Execute	Access,All_Reference
00f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f5 a406       |    |		Store_Unchecked	0x2,0x6
00f6 00c9       |    |		Action	Pop_Auxiliary_Loop
00f7 7fda       |    |		Jump	0xd2
00f8 00ce       |    |		Action	Pop_Auxiliary
00f9 e40b       |    |		Load	0x2,0xb								; Debug Table 0x2.0x25 = 0xf9,0x40b
00fa 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0155       | U  |		.CONST	0x0155								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 000d       |    |		.CONST	0x000d								; Number of locals
0103			INIT_0100:
0103 4804       |H   |		Short_Literal	0x4							; Debug Table 0x3 = .DEBUG	0x0103,0x04b4,0x1001,0x0000,0x0055,0xe295,0x0000,0x0093
													; Debug Table 0x3.0x0 = 0x103,0xffff
0104 032a       | *  |		Declare_Type	Record,Incomplete
0105 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x1 = 0x105,0xfffe
0106 02a0       |    |		Declare_Subprogram	Null_Subprogram
0107 481c       |H   |		Short_Literal	0x1c
0108 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0109 4803       |H   |		Short_Literal	0x3							; Debug Table 0x3.0x2 = 0x109,0xfffd
010a 032a       | *  |		Declare_Type	Record,Incomplete
010b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3 = 0x10b,0xfffc
010c 02a0       |    |		Declare_Subprogram	Null_Subprogram
010d 481c       |H   |		Short_Literal	0x1c
010e 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
010f e20f       |    |		Load	0x1,0xf								; Debug Table 0x3.0x4 = 0x10f,0xfffb
0110 00db       |    |		Load_Top	At_Offset_3
0111 00da       |    |		Load_Top	At_Offset_2
0112 00db       |    |		Load_Top	At_Offset_3
0113 02a0       |    |		Declare_Subprogram	Null_Subprogram
0114 e402       |    |		Load	0x2,0x2
0115 0326       | &  |		Complete_Type	Record,By_Defining
0116 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x5 = 0x116,0xfffa
0117 01db       |    |		Execute	Vector,Length
0118 00e3       |    |		Load_Encached	Natural_Cache
0119 025b       | [  |		Execute	Discrete,Check_In_Type
011a 821f       |    |		Call	0x1,0x1f
011b 00e3       |    |		Load_Encached	Natural_Cache
011c 03f1       |    |		Declare_Variable	Discrete,With_Value
011d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x6 = 0x11d,0xfff9
011e 00d9       |    |		Load_Top	At_Offset_1
011f 0aff       |    |		Execute_Immediate	Plus,-0x1
0120 0248       | H  |		Execute	Discrete,Check_In_Integer
0121 e403       |    |		Load	0x2,0x3
0122 02a0       |    |		Declare_Subprogram	Null_Subprogram
0123 4801       |H   |		Short_Literal	0x1
0124 035d       | ]  |		Declare_Type	Array,Defined
0125 00d8       |    |		Load_Top	At_Offset_0
0126 0337       | 7  |		Declare_Variable	Array
0127 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x7 = 0x127,0xfff8
0128 00e3       |    |		Load_Encached	Natural_Cache
0129 e405       |    |		Load	0x2,0x5
012a 02a0       |    |		Declare_Subprogram	Null_Subprogram
012b e404       |    |		Load	0x2,0x4
012c 0326       | &  |		Complete_Type	Record,By_Defining
012d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x8 = 0x12d,0xfff7
012e e404       |    |		Load	0x2,0x4
012f 0322       | "  |		Declare_Variable	Record
0130 e403       |    |		Load	0x2,0x3
0131 00d9       |    |		Load_Top	At_Offset_1
0132 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0133 4800       |H   |		Short_Literal	0x0
0134 00d9       |    |		Load_Top	At_Offset_1
0135 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0136 e405       |    |		Load	0x2,0x5
0137 00d9       |    |		Load_Top	At_Offset_1
0138 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0139 e405       |    |		Load	0x2,0x5
013a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
013b 0039       | 9  |		Store_Top	Access,At_Offset_1
013c e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x9 = 0x13c,0xfff6
013d e404       |    |		Load	0x2,0x4
013e 0322       | "  |		Declare_Variable	Record
013f e403       |    |		Load	0x2,0x3
0140 00d9       |    |		Load_Top	At_Offset_1
0141 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0142 61bd       |a   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x7fffffff}
0143 00d9       |    |		Load_Top	At_Offset_1
0144 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0145 e405       |    |		Load	0x2,0x5
0146 00d9       |    |		Load_Top	At_Offset_1
0147 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0148 e405       |    |		Load	0x2,0x5
0149 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
014a 0039       | 9  |		Store_Top	Access,At_Offset_1
014b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0xa = 0x14b,0xfff5
014c 01da       |    |		Execute	Vector,Bounds
014d e405       |    |		Load	0x2,0x5
014e 02a0       |    |		Declare_Subprogram	Null_Subprogram
014f 4801       |H   |		Short_Literal	0x1
0150 035d       | ]  |		Declare_Type	Array,Defined
0151 00d8       |    |		Load_Top	At_Offset_0
0152 0337       | 7  |		Declare_Variable	Array
0153 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call				; Debug Table 0x3.0xb = 0x153,0xfff4
0155			BODY_0100:
0155 00cf       |    |		Action	Mark_Auxiliary
0156 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0xc = 0x156,0x1
0157 01d9       |    |		Execute	Vector,Reverse_Bounds
0158 0263       | c  |		Execute	Discrete,Above_Bound
0159 7026       |p&  |		Jump_Nonzero	0x180
015a 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3.0xd = 0x15a,0x2
015b e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0xe = 0x15b,0xfbff
015c 4801       |H   |		Short_Literal	0x1
015d 00db       |    |		Load_Top	At_Offset_3
015e e5fe       |    |		Load	0x2,-0x2
015f 01d7       |    |		Execute	Vector,Field_Read
0160 840d       |    |		Call	0x2,0xd
0161 0039       | 9  |		Store_Top	Access,At_Offset_1
0162 e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0xf = 0x162,0xfbfe
0163 e405       |    |		Load	0x2,0x5
0164 03bc       |    |		Declare_Variable	Access,By_Allocation
0165 0039       | 9  |		Store_Top	Access,At_Offset_1
0166 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x10 = 0x166,0x401
0167 e410       |    |		Load	0x2,0x10
0168 e40c       |    |		Load	0x2,0xc
0169 01d6       |    |		Execute	Vector,Field_Write
016a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x11 = 0x16a,0x402
016b 00d9       |    |		Load_Top	At_Offset_1
016c 0227       | '  |		Execute	Access,All_Reference
016d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
016e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x12 = 0x16e,0x403
016f 00d9       |    |		Load_Top	At_Offset_1
0170 0227       | '  |		Execute	Access,All_Reference
0171 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0172 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x13 = 0x172,0x404
0173 0227       | '  |		Execute	Access,All_Reference
0174 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0175 00d9       |    |		Load_Top	At_Offset_1
0176 0227       | '  |		Execute	Access,All_Reference
0177 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0178 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x14 = 0x178,0x405
0179 00da       |    |		Load_Top	At_Offset_2
017a 0227       | '  |		Execute	Access,All_Reference
017b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
017c 00d2       |    |		Pop_Control	Pop_Count_2
017d 00ce       |    |		Action	Pop_Auxiliary
017e 00c8       |    |		Action	Pop_Auxiliary_Range
017f 3fda       |?   |		Loop_Increasing	0x15a
0180 00ce       |    |		Action	Pop_Auxiliary
0181 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3.0x15 = 0x181,0x3
0182 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x16 = 0x182,0xf7ff
0183 e5fe       |    |		Load	0x2,-0x2
0184 01db       |    |		Execute	Vector,Length
0185 e21e       |    |		Load	0x1,0x1e
0186 0334       | 4  |		Declare_Variable	Array,With_Constraint
0187 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x3.0x17 = 0x187,0xf7fe
0188 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0189 e21c       |    |		Load	0x1,0x1c							; Debug Table 0x3.0x18 = 0x189,0xf7fd
018a e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x19 = 0x18a,0xf7fc
018b e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x1a = 0x18b,0xf7fb
018c 03bd       |    |		Declare_Variable	Access,Duplicate
018d 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x3.0x1b = 0x18d,0xf7fa
018e 03e9       |    |		Declare_Variable	Discrete,Duplicate
018f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0190 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x3.0x1c = 0x190,0x801
0191 0322       | "  |		Declare_Variable	Record
0192 e5ff       |    |		Load	0x2,-0x1
0193 01dc       |    |		Execute	Vector,Last
0194 0a01       |    |		Execute_Immediate	Plus,0x1
0195 00d9       |    |		Load_Top	At_Offset_1
0196 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0197 e5fe       |    |		Load	0x2,-0x2
0198 01dc       |    |		Execute	Vector,Last
0199 0a01       |    |		Execute_Immediate	Plus,0x1
019a 00d9       |    |		Load_Top	At_Offset_1
019b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019c 4800       |H   |		Short_Literal	0x0
019d 00d9       |    |		Load_Top	At_Offset_1
019e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
019f e21c       |    |		Load	0x1,0x1c
01a0 00d9       |    |		Load_Top	At_Offset_1
01a1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a2 e21c       |    |		Load	0x1,0x1c
01a3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01a4 4800       |H   |		Short_Literal	0x0
01a5 e40f       |    |		Load	0x2,0xf
01a6 01d6       |    |		Execute	Vector,Field_Write
01a7 00cf       |    |		Action	Mark_Auxiliary
01a8 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x1d = 0x1a8,0x802
01a9 01da       |    |		Execute	Vector,Bounds
01aa 0264       | d  |		Execute	Discrete,Below_Bound
01ab 7121       |q!  |		Jump_Nonzero	0x2cd
01ac 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x1e = 0x1ac,0x803
01ad 00d9       |    |		Load_Top	At_Offset_1
01ae e5ff       |    |		Load	0x2,-0x1
01af 01d7       |    |		Execute	Vector,Field_Read
01b0 840d       |    |		Call	0x2,0xd
01b1 a412       |    |		Store_Unchecked	0x2,0x12
01b2 e412       |    |		Load	0x2,0x12							; Debug Table 0x3.0x1f = 0x1b2,0x804
01b3 6917       |i   |		Jump_Zero	0x2cb
01b4 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3.0x20 = 0x1b4,0x805
01b5 e412       |    |		Load	0x2,0x12							; Debug Table 0x3.0x21 = 0x1b5,0xf3ff
01b6 0227       | '  |		Execute	Access,All_Reference
01b7 e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x22 = 0x1b7,0xf3fe
01b8 00d9       |    |		Load_Top	At_Offset_1
01b9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01ba 0039       | 9  |		Store_Top	Access,At_Offset_1
01bb e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x23 = 0x1bb,0xf3fd
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01be 0039       | 9  |		Store_Top	Access,At_Offset_1
01bf e410       |    |		Load	0x2,0x10							; Debug Table 0x3.0x24 = 0x1bf,0xf3fc
01c0 e40f       |    |		Load	0x2,0xf
01c1 01d7       |    |		Execute	Vector,Field_Read
01c2 0227       | '  |		Execute	Access,All_Reference
01c3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c4 00e3       |    |		Load_Encached	Natural_Cache
01c5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01c6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x25 = 0x1c6,0xc01
01c7 0227       | '  |		Execute	Access,All_Reference
01c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c9 00d9       |    |		Load_Top	At_Offset_1
01ca 027c       | |  |		Execute	Discrete,Less
01cb 6817       |h   |		Jump_Zero	0x1e3
01cc 00cf       |    |		Action	Mark_Auxiliary
01cd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x26 = 0x1cd,0xc02
													; Debug Table 0x3.0x27 = 0x1cd,0xc03
01ce 00db       |    |		Load_Top	At_Offset_3
01cf 0227       | '  |		Execute	Access,All_Reference
01d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d1 027c       | |  |		Execute	Discrete,Less
01d2 700e       |p   |		Jump_Nonzero	0x1e1
01d3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x28 = 0x1d3,0xc04
01d4 0227       | '  |		Execute	Access,All_Reference
01d5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d6 a413       |    |		Store_Unchecked	0x2,0x13
01d7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x29 = 0x1d7,0xc05
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 0227       | '  |		Execute	Access,All_Reference
01da 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01db 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x2a = 0x1db,0xc06
01dc a41d       |    |		Store_Unchecked	0x2,0x1d
01dd e413       |    |		Load	0x2,0x13							; Debug Table 0x3.0x2b = 0x1dd,0xc07
01de 003b       | ;  |		Store_Top	Access,At_Offset_3
01df 00c9       |    |		Action	Pop_Auxiliary_Loop
01e0 7fec       |    |		Jump	0x1cd
01e1 00ce       |    |		Action	Pop_Auxiliary
01e2 7816       |x   |		Jump	0x1f9
01e3 00cf       |    |		Action	Mark_Auxiliary
01e4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x2c = 0x1e4,0xc08
													; Debug Table 0x3.0x2d = 0x1e4,0xc09
01e5 0227       | '  |		Execute	Access,All_Reference
01e6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01e7 a413       |    |		Store_Unchecked	0x2,0x13
01e8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x2e = 0x1e8,0xc0a
01e9 e41d       |    |		Load	0x2,0x1d
01ea 0227       | '  |		Execute	Access,All_Reference
01eb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01ec 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x2f = 0x1ec,0xc0b
01ed 003b       | ;  |		Store_Top	Access,At_Offset_3
01ee e413       |    |		Load	0x2,0x13							; Debug Table 0x3.0x30 = 0x1ee,0xc0c
01ef a41d       |    |		Store_Unchecked	0x2,0x1d
01f0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x31 = 0x1f0,0xc0d
01f1 0227       | '  |		Execute	Access,All_Reference
01f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 027c       | |  |		Execute	Discrete,Less
01f5 7002       |p   |		Jump_Nonzero	0x1f8
01f6 00c9       |    |		Action	Pop_Auxiliary_Loop
01f7 7fec       |    |		Jump	0x1e4
01f8 00ce       |    |		Action	Pop_Auxiliary
01f9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x32 = 0x1f9,0xc0e
01fa e409       |    |		Load	0x2,0x9
01fb 022e       | .  |		Execute	Access,Not_Equal
01fc 6824       |h$  |		Jump_Zero	0x221
01fd e21c       |    |		Load	0x1,0x1c							; Debug Table 0x3.0x33 = 0x1fd,0xc0f
01fe 03bc       |    |		Declare_Variable	Access,By_Allocation
01ff a411       |    |		Store_Unchecked	0x2,0x11
0200 e41a       |    |		Load	0x2,0x1a							; Debug Table 0x3.0x34 = 0x200,0xc10
0201 e411       |    |		Load	0x2,0x11
0202 0227       | '  |		Execute	Access,All_Reference
0203 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0204 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x35 = 0x204,0xc11
0205 0227       | '  |		Execute	Access,All_Reference
0206 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0207 e411       |    |		Load	0x2,0x11
0208 0227       | '  |		Execute	Access,All_Reference
0209 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020a e410       |    |		Load	0x2,0x10							; Debug Table 0x3.0x36 = 0x20a,0xc12
020b e40f       |    |		Load	0x2,0xf
020c 01d7       |    |		Execute	Vector,Field_Read
020d e411       |    |		Load	0x2,0x11
020e 0227       | '  |		Execute	Access,All_Reference
020f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0210 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x37 = 0x210,0xc13
0211 e410       |    |		Load	0x2,0x10
0212 e40f       |    |		Load	0x2,0xf
0213 01d7       |    |		Execute	Vector,Field_Read
0214 0227       | '  |		Execute	Access,All_Reference
0215 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0216 e410       |    |		Load	0x2,0x10							; Debug Table 0x3.0x38 = 0x216,0xc14
0217 0a01       |    |		Execute_Immediate	Plus,0x1
0218 c410       |    |		Store	0x2,0x10
0219 e411       |    |		Load	0x2,0x11							; Debug Table 0x3.0x39 = 0x219,0xc15
021a e410       |    |		Load	0x2,0x10
021b e40f       |    |		Load	0x2,0xf
021c 01d6       |    |		Execute	Vector,Field_Write
021d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x3a = 0x21d,0xc16
021e 0227       | '  |		Execute	Access,All_Reference
021f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0220 003b       | ;  |		Store_Top	Access,At_Offset_3
0221 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x3b = 0x221,0xc17
0222 e41c       |    |		Load	0x2,0x1c
0223 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0224 e40a       |    |		Load	0x2,0xa								; Debug Table 0x3.0x3c = 0x224,0xc18
0225 e41c       |    |		Load	0x2,0x1c
0226 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0227 00cf       |    |		Action	Mark_Auxiliary
0228 789b       |x   |		Jump	0x2c4
0229 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x3d = 0x229,0xc1a
022a a415       |    |		Store_Unchecked	0x2,0x15
022b e410       |    |		Load	0x2,0x10							; Debug Table 0x3.0x3e = 0x22b,0xc1b
022c 0a01       |    |		Execute_Immediate	Plus,0x1
022d c416       |    |		Store	0x2,0x16
022e 00cf       |    |		Action	Mark_Auxiliary
022f 7816       |x   |		Jump	0x246
0230 e415       |    |		Load	0x2,0x15							; Debug Table 0x3.0x3f = 0x230,0xc1d
0231 e416       |    |		Load	0x2,0x16
0232 0273       | s  |		Execute	Discrete,Plus
0233 0248       | H  |		Execute	Discrete,Check_In_Integer
0234 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0235 c417       |    |		Store	0x2,0x17
0236 e417       |    |		Load	0x2,0x17							; Debug Table 0x3.0x40 = 0x236,0xc1e
0237 e40f       |    |		Load	0x2,0xf
0238 01d7       |    |		Execute	Vector,Field_Read
0239 0227       | '  |		Execute	Access,All_Reference
023a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
023b e41e       |    |		Load	0x2,0x1e
023c 0227       | '  |		Execute	Access,All_Reference
023d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
023e 027d       | }  |		Execute	Discrete,Greater
023f 6803       |h   |		Jump_Zero	0x243
0240 e417       |    |		Load	0x2,0x17							; Debug Table 0x3.0x41 = 0x240,0xc1f
0241 a415       |    |		Store_Unchecked	0x2,0x15
0242 7802       |x   |		Jump	0x245
0243 e417       |    |		Load	0x2,0x17							; Debug Table 0x3.0x42 = 0x243,0xc20
0244 a416       |    |		Store_Unchecked	0x2,0x16
0245 00c9       |    |		Action	Pop_Auxiliary_Loop
0246 e415       |    |		Load	0x2,0x15							; Debug Table 0x3.0x43 = 0x246,0xc1c
0247 0a01       |    |		Execute_Immediate	Plus,0x1
0248 e416       |    |		Load	0x2,0x16
0249 027e       | ~  |		Execute	Discrete,Not_Equal
024a 77e5       |w   |		Jump_Nonzero	0x230
024b 00ce       |    |		Action	Pop_Auxiliary
024c 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3.0x44 = 0x24c,0xc21
024d e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x45 = 0x24d,0xefff
024e e416       |    |		Load	0x2,0x16
024f e40f       |    |		Load	0x2,0xf
0250 01d7       |    |		Execute	Vector,Field_Read
0251 0227       | '  |		Execute	Access,All_Reference
0252 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0253 e40c       |    |		Load	0x2,0xc
0254 01d7       |    |		Execute	Vector,Field_Read
0255 0039       | 9  |		Store_Top	Access,At_Offset_1
0256 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x46 = 0x256,0xeffe
0257 0227       | '  |		Execute	Access,All_Reference
0258 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0259 0227       | '  |		Execute	Access,All_Reference
025a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x47 = 0x25a,0x1001
025b 0227       | '  |		Execute	Access,All_Reference
025c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
025d 00d9       |    |		Load_Top	At_Offset_1
025e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
025f 0227       | '  |		Execute	Access,All_Reference
0260 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0261 027c       | |  |		Execute	Discrete,Less
0262 6809       |h   |		Jump_Zero	0x26c
0263 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x48 = 0x263,0x1002
0264 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0265 00da       |    |		Load_Top	At_Offset_2
0266 0227       | '  |		Execute	Access,All_Reference
0267 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0268 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x49 = 0x268,0x1003
0269 00d9       |    |		Load_Top	At_Offset_1
026a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
026b 781d       |x   |		Jump	0x289
026c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x4a = 0x26c,0x1004
026d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
026e a413       |    |		Store_Unchecked	0x2,0x13
026f 00cf       |    |		Action	Mark_Auxiliary
0270 e413       |    |		Load	0x2,0x13							; Debug Table 0x3.0x4b = 0x270,0x1005
													; Debug Table 0x3.0x4c = 0x270,0x1006
0271 0227       | '  |		Execute	Access,All_Reference
0272 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0273 a414       |    |		Store_Unchecked	0x2,0x14
0274 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x4d = 0x274,0x1007
0275 0227       | '  |		Execute	Access,All_Reference
0276 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0277 e414       |    |		Load	0x2,0x14
0278 0227       | '  |		Execute	Access,All_Reference
0279 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027a 027c       | |  |		Execute	Discrete,Less
027b 7004       |p   |		Jump_Nonzero	0x280
027c e414       |    |		Load	0x2,0x14							; Debug Table 0x3.0x4e = 0x27c,0x1008
027d a413       |    |		Store_Unchecked	0x2,0x13
027e 00c9       |    |		Action	Pop_Auxiliary_Loop
027f 7ff0       |    |		Jump	0x270
0280 00ce       |    |		Action	Pop_Auxiliary
0281 e414       |    |		Load	0x2,0x14							; Debug Table 0x3.0x4f = 0x281,0x1009
0282 00da       |    |		Load_Top	At_Offset_2
0283 0227       | '  |		Execute	Access,All_Reference
0284 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0285 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x50 = 0x285,0x100a
0286 e413       |    |		Load	0x2,0x13
0287 0227       | '  |		Execute	Access,All_Reference
0288 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0289 e416       |    |		Load	0x2,0x16							; Debug Table 0x3.0x51 = 0x289,0x100b
028a e40f       |    |		Load	0x2,0xf
028b 01d7       |    |		Execute	Vector,Field_Read
028c 680b       |h   |		Jump_Zero	0x298
028d e416       |    |		Load	0x2,0x16
028e e40f       |    |		Load	0x2,0xf
028f 01d7       |    |		Execute	Vector,Field_Read
0290 0227       | '  |		Execute	Access,All_Reference
0291 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0292 7005       |p   |		Jump_Nonzero	0x298
0293 e416       |    |		Load	0x2,0x16							; Debug Table 0x3.0x52 = 0x293,0x100c
0294 e40f       |    |		Load	0x2,0xf
0295 01d7       |    |		Execute	Vector,Field_Read
0296 a411       |    |		Store_Unchecked	0x2,0x11
0297 780b       |x   |		Jump	0x2a3
0298 e21c       |    |		Load	0x1,0x1c							; Debug Table 0x3.0x53 = 0x298,0x100d
0299 03bc       |    |		Declare_Variable	Access,By_Allocation
029a a411       |    |		Store_Unchecked	0x2,0x11
029b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x54 = 0x29b,0x100e
029c e411       |    |		Load	0x2,0x11
029d 0227       | '  |		Execute	Access,All_Reference
029e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
029f e411       |    |		Load	0x2,0x11							; Debug Table 0x3.0x55 = 0x29f,0x100f
02a0 e416       |    |		Load	0x2,0x16
02a1 e40f       |    |		Load	0x2,0xf
02a2 01d6       |    |		Execute	Vector,Field_Write
02a3 e41a       |    |		Load	0x2,0x1a							; Debug Table 0x3.0x56 = 0x2a3,0x1010
02a4 e411       |    |		Load	0x2,0x11
02a5 0227       | '  |		Execute	Access,All_Reference
02a6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02a7 e41e       |    |		Load	0x2,0x1e							; Debug Table 0x3.0x57 = 0x2a7,0x1011
02a8 0227       | '  |		Execute	Access,All_Reference
02a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02aa e411       |    |		Load	0x2,0x11
02ab 0227       | '  |		Execute	Access,All_Reference
02ac 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ad e416       |    |		Load	0x2,0x16							; Debug Table 0x3.0x58 = 0x2ad,0x1012
02ae 0aff       |    |		Execute_Immediate	Plus,-0x1
02af 0248       | H  |		Execute	Discrete,Check_In_Integer
02b0 e40f       |    |		Load	0x2,0xf
02b1 01d7       |    |		Execute	Vector,Field_Read
02b2 e411       |    |		Load	0x2,0x11
02b3 0227       | '  |		Execute	Access,All_Reference
02b4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02b5 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x59 = 0x2b5,0x1013
02b6 e416       |    |		Load	0x2,0x16
02b7 0aff       |    |		Execute_Immediate	Plus,-0x1
02b8 0248       | H  |		Execute	Discrete,Check_In_Integer
02b9 e40f       |    |		Load	0x2,0xf
02ba 01d7       |    |		Execute	Vector,Field_Read
02bb 0227       | '  |		Execute	Access,All_Reference
02bc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02bd 00d2       |    |		Pop_Control	Pop_Count_2
02be 00ce       |    |		Action	Pop_Auxiliary
02bf 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x5a = 0x2bf,0xc22
02c0 0227       | '  |		Execute	Access,All_Reference
02c1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02c2 003b       | ;  |		Store_Top	Access,At_Offset_3
02c3 00c9       |    |		Action	Pop_Auxiliary_Loop
02c4 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x5b = 0x2c4,0xc19
02c5 e40a       |    |		Load	0x2,0xa
02c6 022e       | .  |		Execute	Access,Not_Equal
02c7 7761       |wa  |		Jump_Nonzero	0x229
02c8 00ce       |    |		Action	Pop_Auxiliary
02c9 00d4       |    |		Pop_Control	Pop_Count_4
02ca 00ce       |    |		Action	Pop_Auxiliary
02cb 00c8       |    |		Action	Pop_Auxiliary_Range
02cc 36df       |6   |		Loop_Decreasing	0x1ac
02cd 00ce       |    |		Action	Pop_Auxiliary
02ce 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3.0x5c = 0x2ce,0x806
02cf e214       |    |		Load	0x1,0x14							; Debug Table 0x3.0x5d = 0x2cf,0xebff
02d0 0322       | "  |		Declare_Variable	Record
02d1 e21d       |    |		Load	0x1,0x1d
02d2 0337       | 7  |		Declare_Variable	Array
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 01dd       |    |		Execute	Vector,First
02d5 4801       |H   |		Short_Literal	0x1
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 01d6       |    |		Execute	Vector,Field_Write
02d8 e5fe       |    |		Load	0x2,-0x2
02d9 01dd       |    |		Execute	Vector,First
02da 4802       |H   |		Short_Literal	0x2
02db 00da       |    |		Load_Top	At_Offset_2
02dc 01d6       |    |		Execute	Vector,Field_Write
02dd e21d       |    |		Load	0x1,0x1d
02de 0119       |    |		Execute	Any,Check_In_Formal_Type
02df 00d9       |    |		Load_Top	At_Offset_1
02e0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02e1 e410       |    |		Load	0x2,0x10
02e2 e40f       |    |		Load	0x2,0xf
02e3 01d7       |    |		Execute	Vector,Field_Read
02e4 00d9       |    |		Load_Top	At_Offset_1
02e5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e6 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x5e = 0x2e6,0x1401
02e7 00d9       |    |		Load_Top	At_Offset_1
02e8 821a       |    |		Call	0x1,0x1a
02e9 4801       |H   |		Short_Literal	0x1
02ea 00da       |    |		Load_Top	At_Offset_2
02eb 8219       |    |		Call	0x1,0x19
02ec 027c       | |  |		Execute	Discrete,Less
02ed 680b       |h   |		Jump_Zero	0x2f9
02ee 4802       |H   |		Short_Literal	0x2
02ef 00d9       |    |		Load_Top	At_Offset_1
02f0 821a       |    |		Call	0x1,0x1a
02f1 4802       |H   |		Short_Literal	0x2
02f2 00da       |    |		Load_Top	At_Offset_2
02f3 8219       |    |		Call	0x1,0x19
02f4 027c       | |  |		Execute	Discrete,Less
02f5 6803       |h   |		Jump_Zero	0x2f9
02f6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x5f = 0x2f6,0x1402
02f7 8217       |    |		Call	0x1,0x17
02f8 00d1       |    |		Pop_Control	Pop_Count_1
02f9 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x60 = 0x2f9,0x1403
02fa e5fd       |    |		Load	0x2,-0x3
02fb 017d       | }  |		Execute	Record,Structure_Write
02fc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
0300 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0304 0000 0000  |    |		.LITERAL	{0x00000000, 0x000fffff}
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0310       |    |		.CONST	0x0310								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0003       |    |		.CONST	0x0003								; Number of locals
030b			INIT_0308:
030b e21c       |    |		Load	0x1,0x1c							; Debug Table 0x4 = .DEBUG	0x030b,0x0578,0x1001,0x0000,0x0055,0xe295,0x0000,0x00a0
													; Debug Table 0x4.0x0 = 0x30b,0xffff
030c 00db       |    |		Load_Top	At_Offset_3
030d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030e 0039       | 9  |		Store_Top	Access,At_Offset_1
030f e21c       |    |		Load	0x1,0x1c							; Debug Table 0x4.0x1 = 0x30f,0xfffe
0310			BODY_0308:
0310 00cf       |    |		Action	Mark_Auxiliary
0311 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x2 = 0x311,0x1
													; Debug Table 0x4.0x3 = 0x311,0x2
0312 0227       | '  |		Execute	Access,All_Reference
0313 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0314 003a       | :  |		Store_Top	Access,At_Offset_2
0315 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x4 = 0x315,0x3
0316 7012       |p   |		Jump_Nonzero	0x329
0317 e21c       |    |		Load	0x1,0x1c							; Debug Table 0x4.0x5 = 0x317,0x4
0318 e5ff       |    |		Load	0x2,-0x1
0319 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
031a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x6 = 0x31a,0x5
031b 0227       | '  |		Execute	Access,All_Reference
031c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
031d 4801       |H   |		Short_Literal	0x1
031e e5ff       |    |		Load	0x2,-0x1
031f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0320 01d6       |    |		Execute	Vector,Field_Write
0321 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x7 = 0x321,0x6
0322 0227       | '  |		Execute	Access,All_Reference
0323 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0324 4802       |H   |		Short_Literal	0x2
0325 e5ff       |    |		Load	0x2,-0x1
0326 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0327 01d6       |    |		Execute	Vector,Field_Write
0328 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x4.0x8 = 0x328,0x7
0329 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x9 = 0x329,0x8
032a 0227       | '  |		Execute	Access,All_Reference
032b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032c 00db       |    |		Load_Top	At_Offset_3
032d 0227       | '  |		Execute	Access,All_Reference
032e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032f 0a01       |    |		Execute_Immediate	Plus,0x1
0330 027e       | ~  |		Execute	Discrete,Not_Equal
0331 700d       |p   |		Jump_Nonzero	0x33f
0332 00d9       |    |		Load_Top	At_Offset_1
0333 0227       | '  |		Execute	Access,All_Reference
0334 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0335 00db       |    |		Load_Top	At_Offset_3
0336 0227       | '  |		Execute	Access,All_Reference
0337 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0338 0a01       |    |		Execute_Immediate	Plus,0x1
0339 027e       | ~  |		Execute	Discrete,Not_Equal
033a 7004       |p   |		Jump_Nonzero	0x33f
033b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xa = 0x33b,0x9
033c 003b       | ;  |		Store_Top	Access,At_Offset_3
033d 00c9       |    |		Action	Pop_Auxiliary_Loop
033e 7fd2       |    |		Jump	0x311
033f 00ce       |    |		Action	Pop_Auxiliary
0340 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xb = 0x340,0xa
0341 0227       | '  |		Execute	Access,All_Reference
0342 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0343 0a01       |    |		Execute_Immediate	Plus,0x1
0344 4801       |H   |		Short_Literal	0x1
0345 e5ff       |    |		Load	0x2,-0x1
0346 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0347 01d6       |    |		Execute	Vector,Field_Write
0348 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xc = 0x348,0xb
0349 0227       | '  |		Execute	Access,All_Reference
034a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
034b 0a01       |    |		Execute_Immediate	Plus,0x1
034c 4802       |H   |		Short_Literal	0x2
034d e5ff       |    |		Load	0x2,-0x1
034e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
034f 01d6       |    |		Execute	Vector,Field_Write
0350 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xd = 0x350,0xc
0351 e5ff       |    |		Load	0x2,-0x1
0352 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0353 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x035b,0x0596,0x1002,0x0000,0x0055,0xe295,0x0000,0x00a8
													; Debug Table 0x5.0x0 = 0x35b,0x1
035c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
035d 022d       | -  |		Execute	Access,Is_Null
035e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035f 0000       |    |		.XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6 = .DEBUG	0x0363,0x059a,0x1002,0x0000,0x0055,0xe295,0x0000,0x00b1
													; Debug Table 0x6.0x0 = 0x363,0x1
0364 00db       |    |		Load_Top	At_Offset_3
0365 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0366 01d7       |    |		Execute	Vector,Field_Read
0367 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7 = .DEBUG	0x036b,0x059e,0x1002,0x0000,0x0055,0xe295,0x0000,0x00be
													; Debug Table 0x7.0x0 = 0x36b,0x1
036c 4801       |H   |		Short_Literal	0x1
036d 0272       | r  |		Execute	Discrete,Minus
036e 4601       |F   |		Jump_Case	0x2
036f 7801       |x   |		Jump	0x371								; case 0x0
0370 7807       |x   |		Jump	0x378								; case 0x1
0371 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x1 = 0x371,0x2
0372 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0373 0227       | '  |		Execute	Access,All_Reference
0374 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0375 0aff       |    |		Execute_Immediate	Plus,-0x1
0376 0248       | H  |		Execute	Discrete,Check_In_Integer
0377 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0378 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x2 = 0x378,0x3
0379 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037a 0227       | '  |		Execute	Access,All_Reference
037b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037c 0aff       |    |		Execute_Immediate	Plus,-0x1
037d 0248       | H  |		Execute	Discrete,Check_In_Integer
037e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
037f 0000       |    |		.XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x0383,0x05a6,0x1002,0x0000,0x0057,0x7dc5,0x0000,0x013f
													; Debug Table 0x8.0x0 = 0x383,0x1
0384 0d40       | @  |		Execute_Immediate	Less,0x40
0385 6802       |h   |		Jump_Zero	0x388
0386 483f       |H?  |		Short_Literal	0x3f							; Debug Table 0x8.0x1 = 0x386,0x2
0387 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0388 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x2 = 0x388,0x3
0389 e001       |    |		Load	0x0,0x1
038a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
038b 0aff       |    |		Execute_Immediate	Plus,-0x1
038c 4800       |H   |		Short_Literal	0x0
038d e001       |    |		Load	0x0,0x1
038e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
038f 0aff       |    |		Execute_Immediate	Plus,-0x1
0390 00e4       |    |		Load_Encached	Positive_Cache
0391 025b       | [  |		Execute	Discrete,Check_In_Type
0392 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0393 0000 0000  |    |		.BLANK	0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a7       |    |		.CONST	0x03a7								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0004       |    |		.CONST	0x0004								; Number of locals
039b			INIT_0398:
039b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x039b,0x05ae,0x1002,0x0000,0x0057,0x7dc5,0x0000,0x0217
													; Debug Table 0x9.0x0 = 0x39b,0xffff
039c 0227       | '  |		Execute	Access,All_Reference
039d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x1 = 0x39d,0xfffe
039e e002       |    |		Load	0x0,0x2
039f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03a0 e406       |    |		Load	0x2,0x6
03a1 026e       | n  |		Execute	Discrete,Modulo
03a2 e408       |    |		Load	0x2,0x8
03a3 01d5       |    |		Execute	Vector,Field_Reference
03a4 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x2 = 0x3a4,0xfffd
03a5 00d9       |    |		Load_Top	At_Offset_1
03a6 0039       | 9  |		Store_Top	Access,At_Offset_1
03a7			BODY_0398:
03a7 00cf       |    |		Action	Mark_Auxiliary
03a8 780e       |x   |		Jump	0x3b7
03a9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x3 = 0x3a9,0x2
03aa 0227       | '  |		Execute	Access,All_Reference
03ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ac 0227       | '  |		Execute	Access,All_Reference
03ad e602       |    |		Load	0x3,0x2
03ae 01df       |    |		Execute	Vector,Equal
03af 6802       |h   |		Jump_Zero	0x3b2
03b0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x4 = 0x3b0,0x3
03b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03b2 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x5 = 0x3b2,0x4
03b3 0227       | '  |		Execute	Access,All_Reference
03b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03b5 003a       | :  |		Store_Top	Access,At_Offset_2
03b6 00c9       |    |		Action	Pop_Auxiliary_Loop
03b7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x6 = 0x3b7,0x1
03b8 77f0       |w   |		Jump_Nonzero	0x3a9
03b9 00ce       |    |		Action	Pop_Auxiliary
03ba e7fe       |    |		Load	0x3,-0x2							; Debug Table 0x9.0x7 = 0x3ba,0x5
03bb 6815       |h   |		Jump_Zero	0x3d1
03bc e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x8 = 0x3bc,0x6
03bd 03bc       |    |		Declare_Variable	Access,By_Allocation
03be 0039       | 9  |		Store_Top	Access,At_Offset_1
03bf e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x9.0x9 = 0x3bf,0x7
03c0 00d9       |    |		Load_Top	At_Offset_1
03c1 0227       | '  |		Execute	Access,All_Reference
03c2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c3 e409       |    |		Load	0x2,0x9								; Debug Table 0x9.0xa = 0x3c3,0x8
03c4 00d9       |    |		Load_Top	At_Offset_1
03c5 0227       | '  |		Execute	Access,All_Reference
03c6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03c7 e40a       |    |		Load	0x2,0xa								; Debug Table 0x9.0xb = 0x3c7,0x9
03c8 00d9       |    |		Load_Top	At_Offset_1
03c9 0227       | '  |		Execute	Access,All_Reference
03ca 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03cb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0xc = 0x3cb,0xa
03cc 00d9       |    |		Load_Top	At_Offset_1
03cd 0227       | '  |		Execute	Access,All_Reference
03ce 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03cf 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0xd = 0x3cf,0xb
03d0 a603       |    |		Store_Unchecked	0x3,0x3
03d1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0xe = 0x3d1,0xc
03d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d3 0000 0000  |    |		.BLANK	0000[0x5]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0003 000a  |    |		.CONST	0x0003,0x000a
03da 000b 042a  |   *|		.DEBUG	0x000b,0x042a,0xc000,0x0000,0x0055,0xe295,0x0000,0x0003
03e2 0041 0452  | A R|		.DEBUG	0x0041,0x0452,0xc000,0x0000,0x0057,0x7dc5,0x0000,0x0009
03ea 0063 0466  | c f|		.DEBUG	0x0063,0x0466,0x3802,0x0002,0x0055,0xe295,0x0000,0x0048
03f2 0103 04b4  |    |		.DEBUG	0x0103,0x04b4,0x1001,0x0000,0x0055,0xe295,0x0000,0x0093
03fa 030b 0578  |   x|		.DEBUG	0x030b,0x0578,0x1001,0x0000,0x0055,0xe295,0x0000,0x00a0
0402 035b 0596  | [  |		.DEBUG	0x035b,0x0596,0x1002,0x0000,0x0055,0xe295,0x0000,0x00a8
040a 0363 059a  | c  |		.DEBUG	0x0363,0x059a,0x1002,0x0000,0x0055,0xe295,0x0000,0x00b1
0412 036b 059e  | k  |		.DEBUG	0x036b,0x059e,0x1002,0x0000,0x0055,0xe295,0x0000,0x00be
041a 0383 05a6  |    |		.DEBUG	0x0383,0x05a6,0x1002,0x0000,0x0057,0x7dc5,0x0000,0x013f
0422 039b 05ae  |    |		.DEBUG	0x039b,0x05ae,0x1002,0x0000,0x0057,0x7dc5,0x0000,0x0217
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x0
042a ; --------------------------------------------------------------------------------------
042a 0013 0000  |    |		.DBG3TAB	0x0013,0x0000
042c 000b ffff  |    |		.CONST	0x000b,0xffff
042e 000b fffe  |    |		.CONST	0x000b,0xfffe
0430 000b fffd  |    |		.CONST	0x000b,0xfffd
0432 000b fffc  |    |		.CONST	0x000b,0xfffc
0434 000f fffb  |    |		.CONST	0x000f,0xfffb
0436 0013 fffa  |    |		.CONST	0x0013,0xfffa
0438 0019 fff9  |    |		.CONST	0x0019,0xfff9
043a 001d fff8  |    |		.CONST	0x001d,0xfff8
043c 001f fff7  |    |		.CONST	0x001f,0xfff7
043e 0021 fff6  | !  |		.CONST	0x0021,0xfff6
0440 0025 fff5  | %  |		.CONST	0x0025,0xfff5
0442 0027 fff4  | '  |		.CONST	0x0027,0xfff4
0444 0029 fff3  | )  |		.CONST	0x0029,0xfff3
0446 002b fff2  | +  |		.CONST	0x002b,0xfff2
0448 002d fff1  | -  |		.CONST	0x002d,0xfff1
044a 002f fff0  | /  |		.CONST	0x002f,0xfff0
044c 0031 ffef  | 1  |		.CONST	0x0031,0xffef
044e 0035 ffee  | 5  |		.CONST	0x0035,0xffee
0450 003b ffed  | ;  |		.CONST	0x003b,0xffed
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug3 Subtable 0x1
0452 ; --------------------------------------------------------------------------------------
0452 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
0454 0041 ffff  | A  |		.CONST	0x0041,0xffff
0456 0048 fffe  | H  |		.CONST	0x0048,0xfffe
0458 004e fffd  | N  |		.CONST	0x004e,0xfffd
045a 0050 fffc  | P  |		.CONST	0x0050,0xfffc
045c 0052 fffb  | R  |		.CONST	0x0052,0xfffb
045e 0054 fffa  | T  |		.CONST	0x0054,0xfffa
0460 0056 fff9  | V  |		.CONST	0x0056,0xfff9
0462 0058 fff8  | X  |		.CONST	0x0058,0xfff8
0464 005a fff7  | Z  |		.CONST	0x005a,0xfff7
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug3 Subtable 0x2
0466 ; --------------------------------------------------------------------------------------
0466 000d 0019  |    |		.DBG3TAB	0x000d,0x0019
0468 0063 ffff  | c  |		.CONST	0x0063,0xffff
046a 0065 fffe  | e  |		.CONST	0x0065,0xfffe
046c 0069 fffd  | i  |		.CONST	0x0069,0xfffd
046e 006d fffc  | m  |		.CONST	0x006d,0xfffc
0470 0075 fffb  | u  |		.CONST	0x0075,0xfffb
0472 0077 fffa  | w  |		.CONST	0x0077,0xfffa
0474 0078 fff9  | x  |		.CONST	0x0078,0xfff9
0476 0079 fff8  | y  |		.CONST	0x0079,0xfff8
0478 007d fff7  | }  |		.CONST	0x007d,0xfff7
047a 0082 0001  |    |		.CONST	0x0082,0x0001
047c 0085 0002  |    |		.CONST	0x0085,0x0002
047e 0087 0003  |    |		.CONST	0x0087,0x0003
0480 0089 0004  |    |		.CONST	0x0089,0x0004
0482 0098 0006  |    |		.CONST	0x0098,0x0006
0484 009b 0007  |    |		.CONST	0x009b,0x0007
0486 00a0 0008  |    |		.CONST	0x00a0,0x0008
0488 00a4 0009  |    |		.CONST	0x00a4,0x0009
048a 00a7 000a  |    |		.CONST	0x00a7,0x000a
048c 00aa 000b  |    |		.CONST	0x00aa,0x000b
048e 00b3 000c  |    |		.CONST	0x00b3,0x000c
0490 00b6 000d  |    |		.CONST	0x00b6,0x000d
0492 00ba 0005  |    |		.CONST	0x00ba,0x0005
0494 00c0 000e  |    |		.CONST	0x00c0,0x000e
0496 00c1 fbff  |    |		.CONST	0x00c1,0xfbff
0498 00c7 fbfe  |    |		.CONST	0x00c7,0xfbfe
049a 00c9 fbfd  |    |		.CONST	0x00c9,0xfbfd
049c 00ce fbfc  |    |		.CONST	0x00ce,0xfbfc
049e 00cf 0401  |    |		.CONST	0x00cf,0x0401
04a0 00d2 0402  |    |		.CONST	0x00d2,0x0402
04a2 00d2 0403  |    |		.CONST	0x00d2,0x0403
04a4 00d6 0404  |    |		.CONST	0x00d6,0x0404
04a6 00d9 0405  |    |		.CONST	0x00d9,0x0405
04a8 00dc 0406  |    |		.CONST	0x00dc,0x0406
04aa 00e0 0407  |    |		.CONST	0x00e0,0x0407
04ac 00e3 0408  |    |		.CONST	0x00e3,0x0408
04ae 00ee 0409  |    |		.CONST	0x00ee,0x0409
04b0 00f2 040a  |    |		.CONST	0x00f2,0x040a
04b2 00f9 040b  |    |		.CONST	0x00f9,0x040b
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0x3
04b4 ; --------------------------------------------------------------------------------------
04b4 001b 0046  |   F|		.DBG3TAB	0x001b,0x0046
04b6 0103 ffff  |    |		.CONST	0x0103,0xffff
04b8 0105 fffe  |    |		.CONST	0x0105,0xfffe
04ba 0109 fffd  |    |		.CONST	0x0109,0xfffd
04bc 010b fffc  |    |		.CONST	0x010b,0xfffc
04be 010f fffb  |    |		.CONST	0x010f,0xfffb
04c0 0116 fffa  |    |		.CONST	0x0116,0xfffa
04c2 011d fff9  |    |		.CONST	0x011d,0xfff9
04c4 0127 fff8  | '  |		.CONST	0x0127,0xfff8
04c6 012d fff7  | -  |		.CONST	0x012d,0xfff7
04c8 013c fff6  | <  |		.CONST	0x013c,0xfff6
04ca 014b fff5  | K  |		.CONST	0x014b,0xfff5
04cc 0153 fff4  | S  |		.CONST	0x0153,0xfff4
04ce 0156 0001  | V  |		.CONST	0x0156,0x0001
04d0 015a 0002  | Z  |		.CONST	0x015a,0x0002
04d2 015b fbff  | [  |		.CONST	0x015b,0xfbff
04d4 0162 fbfe  | b  |		.CONST	0x0162,0xfbfe
04d6 0166 0401  | f  |		.CONST	0x0166,0x0401
04d8 016a 0402  | j  |		.CONST	0x016a,0x0402
04da 016e 0403  | n  |		.CONST	0x016e,0x0403
04dc 0172 0404  | r  |		.CONST	0x0172,0x0404
04de 0178 0405  | x  |		.CONST	0x0178,0x0405
04e0 0181 0003  |    |		.CONST	0x0181,0x0003
04e2 0182 f7ff  |    |		.CONST	0x0182,0xf7ff
04e4 0187 f7fe  |    |		.CONST	0x0187,0xf7fe
04e6 0189 f7fd  |    |		.CONST	0x0189,0xf7fd
04e8 018a f7fc  |    |		.CONST	0x018a,0xf7fc
04ea 018b f7fb  |    |		.CONST	0x018b,0xf7fb
04ec 018d f7fa  |    |		.CONST	0x018d,0xf7fa
04ee 0190 0801  |    |		.CONST	0x0190,0x0801
04f0 01a8 0802  |    |		.CONST	0x01a8,0x0802
04f2 01ac 0803  |    |		.CONST	0x01ac,0x0803
04f4 01b2 0804  |    |		.CONST	0x01b2,0x0804
04f6 01b4 0805  |    |		.CONST	0x01b4,0x0805
04f8 01b5 f3ff  |    |		.CONST	0x01b5,0xf3ff
04fa 01b7 f3fe  |    |		.CONST	0x01b7,0xf3fe
04fc 01bb f3fd  |    |		.CONST	0x01bb,0xf3fd
04fe 01bf f3fc  |    |		.CONST	0x01bf,0xf3fc
0500 01c6 0c01  |    |		.CONST	0x01c6,0x0c01
0502 01cd 0c02  |    |		.CONST	0x01cd,0x0c02
0504 01cd 0c03  |    |		.CONST	0x01cd,0x0c03
0506 01d3 0c04  |    |		.CONST	0x01d3,0x0c04
0508 01d7 0c05  |    |		.CONST	0x01d7,0x0c05
050a 01db 0c06  |    |		.CONST	0x01db,0x0c06
050c 01dd 0c07  |    |		.CONST	0x01dd,0x0c07
050e 01e4 0c08  |    |		.CONST	0x01e4,0x0c08
0510 01e4 0c09  |    |		.CONST	0x01e4,0x0c09
0512 01e8 0c0a  |    |		.CONST	0x01e8,0x0c0a
0514 01ec 0c0b  |    |		.CONST	0x01ec,0x0c0b
0516 01ee 0c0c  |    |		.CONST	0x01ee,0x0c0c
0518 01f0 0c0d  |    |		.CONST	0x01f0,0x0c0d
051a 01f9 0c0e  |    |		.CONST	0x01f9,0x0c0e
051c 01fd 0c0f  |    |		.CONST	0x01fd,0x0c0f
051e 0200 0c10  |    |		.CONST	0x0200,0x0c10
0520 0204 0c11  |    |		.CONST	0x0204,0x0c11
0522 020a 0c12  |    |		.CONST	0x020a,0x0c12
0524 0210 0c13  |    |		.CONST	0x0210,0x0c13
0526 0216 0c14  |    |		.CONST	0x0216,0x0c14
0528 0219 0c15  |    |		.CONST	0x0219,0x0c15
052a 021d 0c16  |    |		.CONST	0x021d,0x0c16
052c 0221 0c17  | !  |		.CONST	0x0221,0x0c17
052e 0224 0c18  | $  |		.CONST	0x0224,0x0c18
0530 0229 0c1a  | )  |		.CONST	0x0229,0x0c1a
0532 022b 0c1b  | +  |		.CONST	0x022b,0x0c1b
0534 0230 0c1d  | 0  |		.CONST	0x0230,0x0c1d
0536 0236 0c1e  | 6  |		.CONST	0x0236,0x0c1e
0538 0240 0c1f  | @  |		.CONST	0x0240,0x0c1f
053a 0243 0c20  | C  |		.CONST	0x0243,0x0c20
053c 0246 0c1c  | F  |		.CONST	0x0246,0x0c1c
053e 024c 0c21  | L !|		.CONST	0x024c,0x0c21
0540 024d efff  | M  |		.CONST	0x024d,0xefff
0542 0256 effe  | V  |		.CONST	0x0256,0xeffe
0544 025a 1001  | Z  |		.CONST	0x025a,0x1001
0546 0263 1002  | c  |		.CONST	0x0263,0x1002
0548 0268 1003  | h  |		.CONST	0x0268,0x1003
054a 026c 1004  | l  |		.CONST	0x026c,0x1004
054c 0270 1005  | p  |		.CONST	0x0270,0x1005
054e 0270 1006  | p  |		.CONST	0x0270,0x1006
0550 0274 1007  | t  |		.CONST	0x0274,0x1007
0552 027c 1008  | |  |		.CONST	0x027c,0x1008
0554 0281 1009  |    |		.CONST	0x0281,0x1009
0556 0285 100a  |    |		.CONST	0x0285,0x100a
0558 0289 100b  |    |		.CONST	0x0289,0x100b
055a 0293 100c  |    |		.CONST	0x0293,0x100c
055c 0298 100d  |    |		.CONST	0x0298,0x100d
055e 029b 100e  |    |		.CONST	0x029b,0x100e
0560 029f 100f  |    |		.CONST	0x029f,0x100f
0562 02a3 1010  |    |		.CONST	0x02a3,0x1010
0564 02a7 1011  |    |		.CONST	0x02a7,0x1011
0566 02ad 1012  |    |		.CONST	0x02ad,0x1012
0568 02b5 1013  |    |		.CONST	0x02b5,0x1013
056a 02bf 0c22  |   "|		.CONST	0x02bf,0x0c22
056c 02c4 0c19  |    |		.CONST	0x02c4,0x0c19
056e 02ce 0806  |    |		.CONST	0x02ce,0x0806
0570 02cf ebff  |    |		.CONST	0x02cf,0xebff
0572 02e6 1401  |    |		.CONST	0x02e6,0x1401
0574 02f6 1402  |    |		.CONST	0x02f6,0x1402
0576 02f9 1403  |    |		.CONST	0x02f9,0x1403
0578 ; --------------------------------------------------------------------------------------
0578 ; Debug3 Subtable 0x4
0578 ; --------------------------------------------------------------------------------------
0578 0002 000c  |    |		.DBG3TAB	0x0002,0x000c
057a 030b ffff  |    |		.CONST	0x030b,0xffff
057c 030f fffe  |    |		.CONST	0x030f,0xfffe
057e 0311 0001  |    |		.CONST	0x0311,0x0001
0580 0311 0002  |    |		.CONST	0x0311,0x0002
0582 0315 0003  |    |		.CONST	0x0315,0x0003
0584 0317 0004  |    |		.CONST	0x0317,0x0004
0586 031a 0005  |    |		.CONST	0x031a,0x0005
0588 0321 0006  | !  |		.CONST	0x0321,0x0006
058a 0328 0007  | (  |		.CONST	0x0328,0x0007
058c 0329 0008  | )  |		.CONST	0x0329,0x0008
058e 033b 0009  | ;  |		.CONST	0x033b,0x0009
0590 0340 000a  | @  |		.CONST	0x0340,0x000a
0592 0348 000b  | H  |		.CONST	0x0348,0x000b
0594 0350 000c  | P  |		.CONST	0x0350,0x000c
0596 ; --------------------------------------------------------------------------------------
0596 ; Debug3 Subtable 0x5
0596 ; --------------------------------------------------------------------------------------
0596 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0598 035b 0001  | [  |		.CONST	0x035b,0x0001
059a ; --------------------------------------------------------------------------------------
059a ; Debug3 Subtable 0x6
059a ; --------------------------------------------------------------------------------------
059a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
059c 0363 0001  | c  |		.CONST	0x0363,0x0001
059e ; --------------------------------------------------------------------------------------
059e ; Debug3 Subtable 0x7
059e ; --------------------------------------------------------------------------------------
059e 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
05a0 036b 0001  | k  |		.CONST	0x036b,0x0001
05a2 0371 0002  | q  |		.CONST	0x0371,0x0002
05a4 0378 0003  | x  |		.CONST	0x0378,0x0003
05a6 ; --------------------------------------------------------------------------------------
05a6 ; Debug3 Subtable 0x8
05a6 ; --------------------------------------------------------------------------------------
05a6 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
05a8 0383 0001  |    |		.CONST	0x0383,0x0001
05aa 0386 0002  |    |		.CONST	0x0386,0x0002
05ac 0388 0003  |    |		.CONST	0x0388,0x0003
05ae ; --------------------------------------------------------------------------------------
05ae ; Debug3 Subtable 0x9
05ae ; --------------------------------------------------------------------------------------
05ae 0003 000c  |    |		.DBG3TAB	0x0003,0x000c
05b0 039b ffff  |    |		.CONST	0x039b,0xffff
05b2 039d fffe  |    |		.CONST	0x039d,0xfffe
05b4 03a4 fffd  |    |		.CONST	0x03a4,0xfffd
05b6 03a9 0002  |    |		.CONST	0x03a9,0x0002
05b8 03b0 0003  |    |		.CONST	0x03b0,0x0003
05ba 03b2 0004  |    |		.CONST	0x03b2,0x0004
05bc 03b7 0001  |    |		.CONST	0x03b7,0x0001
05be 03ba 0005  |    |		.CONST	0x03ba,0x0005
05c0 03bc 0006  |    |		.CONST	0x03bc,0x0006
05c2 03bf 0007  |    |		.CONST	0x03bf,0x0007
05c4 03c3 0008  |    |		.CONST	0x03c3,0x0008
05c6 03c7 0009  |    |		.CONST	0x03c7,0x0009
05c8 03cb 000a  |    |		.CONST	0x03cb,0x000a
05ca 03cf 000b  |    |		.CONST	0x03cf,0x000b
05cc 03d1 000c  |    |		.CONST	0x03d1,0x000c
05ce 0000 0000  |    |		.BLANK	0000[0x32]