DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦6ec97e34d⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5805_R1K_CODE
    Names: »11038737.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »11038737.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »11038737.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »11038737.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »11038737.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »11038737.SEG« 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5805       |X   |		.CONST	0x5805								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0330       | 0  |		.CONST	0x0330								; 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 0033       | 3  |		.CONST	0x0033								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b e20f       |    |		Load	0x1,0xf								; Debug Table 0x0 = .DEBUG	0x000b,0x038a,0xc000,0x0000,0x000e,0x7c74,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0266       | f  |		Execute	Discrete,Bounds
000d e210       |    |		Load	0x1,0x10
000e 0266       | f  |		Execute	Discrete,Bounds
000f 00e1       |    |		Load_Encached	Boolean_Cache
0010 02a0       |    |		Declare_Subprogram	Null_Subprogram
0011 4802       |H   |		Short_Literal	0x2
0012 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0013 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0x13,0xfffe
0015 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x15,0xfffd
0017 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x17,0xfffc
0019 00bf       |    |		Action	Accept_Activation
001a e20f       |    |		Load	0x1,0xf								; Debug Table 0x1 = .DEBUG	0x001a,0x0394,0xc000,0x0000,0x000e,0x8274,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x1a,0xffff
001b e211       |    |		Load	0x1,0x11
001c 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
001e 4802       |H   |		Short_Literal	0x2
001f 032d       | -  |		Declare_Type	Record,Defined
0020 e20f       |    |		Load	0x1,0xf								; Debug Table 0x1.0x1 = 0x20,0xfffe
0021 0266       | f  |		Execute	Discrete,Bounds
0022 00da       |    |		Load_Top	At_Offset_2
0023 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
0025 4801       |H   |		Short_Literal	0x1
0026 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0027 e20f       |    |		Load	0x1,0xf								; Debug Table 0x1.0x2 = 0x27,0xfffd
0028 0266       | f  |		Execute	Discrete,Bounds
0029 e20f       |    |		Load	0x1,0xf
002a 02a0       |    |		Declare_Subprogram	Null_Subprogram
002b 4801       |H   |		Short_Literal	0x1
002c 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
002d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x3 = 0x2d,0xfffc
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x4 = 0x2f,0xfffb
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x5 = 0x31,0xfffa
0032 00c7       |    |		Action	Elaborate_Subprogram
0033			BODY_0008:
0033 00bc       |    |		Action	Signal_Activated
0034 00bb       |    |		Action	Signal_Completion
0035 0000 0000  |    |		.XXX[0x3]
0037 0000       |    |
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 006a       | j  |		.CONST	0x006a								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 000d       |    |		.CONST	0x000d								; Number of locals
003b			INIT_0038:
003b 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call				; Debug Table 0x2 = .DEBUG	0x003b,0x03a2,0x3801,0x0002,0x000e,0x7c74,0x0000,0x004c
													; Debug Table 0x2.0x0 = 0x3b,0xffff
003d a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x2.0x1 = 0x3d,0xfffe
003e 00c6       |    |		Action	Check_Subprogram_Elaborated
003f e21c       |    |		Load	0x1,0x1c
0040 e20f       |    |		Load	0x1,0xf
0041 e21d       |    |		Load	0x1,0x1d
0042 e20f       |    |		Load	0x1,0xf
0043 0266       | f  |		Execute	Discrete,Bounds
0044 e20f       |    |		Load	0x1,0xf
0045 0265       | e  |		Execute	Discrete,Reverse_Bounds
0046 00db       |    |		Load_Top	At_Offset_3
0047 027f       |    |		Execute	Discrete,Equal
0048 7002       |p   |		Jump_Nonzero	0x4b
0049 48e0       |H   |		Short_Literal	0xe0
004a 0257       | W  |		Execute	Discrete,Raise
004b 027f       |    |		Execute	Discrete,Equal
004c 7002       |p   |		Jump_Nonzero	0x4f
004d 48e0       |H   |		Short_Literal	0xe0
004e 0257       | W  |		Execute	Discrete,Raise
004f 00d1       |    |		Pop_Control	Pop_Count_1
0050 4802       |H   |		Short_Literal	0x2
0051 4802       |H   |		Short_Literal	0x2
0052 0099       |    |		Action	Reference_Dynamic
0053 62a4       |b   |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x000e8274}
0054 485a       |HZ  |		Short_Literal	0x5a
0055 4809       |H   |		Short_Literal	0x9
0056 0007       |    |		Action	Break_Optional
0057 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call				; Debug Table 0x2.0x2 = 0x57,0xfffd
0059 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0x3 = 0x59,0xfffc
005a 01da       |    |		Execute	Vector,Bounds
005b e21d       |    |		Load	0x1,0x1d
005c 035b       | [  |		Declare_Type	Array,Constrained
005d 0337       | 7  |		Declare_Variable	Array
005e 00d8       |    |		Load_Top	At_Offset_0
005f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0060 e210       |    |		Load	0x1,0x10							; Debug Table 0x2.0x4 = 0x60,0xfffb
0061 0007       |    |		Action	Break_Optional
0062 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x5 = 0x62,0xfffa
0063 01da       |    |		Execute	Vector,Bounds
0064 e215       |    |		Load	0x1,0x15
0065 035b       | [  |		Declare_Type	Array,Constrained
0066 0337       | 7  |		Declare_Variable	Array
0067 e5fa       |    |		Load	0x2,-0x6
0068 00d9       |    |		Load_Top	At_Offset_1
0069 01d4       |    |		Execute	Vector,Structure_Write
006a			BODY_0038:
006a e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0x6 = 0x6a,0x1
006b 01dd       |    |		Execute	Vector,First
006c e5f8       |    |		Load	0x2,-0x8
006d 01dd       |    |		Execute	Vector,First
006e 027f       |    |		Execute	Discrete,Equal
006f e5fb       |    |		Load	0x2,-0x5
0070 01dc       |    |		Execute	Vector,Last
0071 e5f8       |    |		Load	0x2,-0x8
0072 01dc       |    |		Execute	Vector,Last
0073 027f       |    |		Execute	Discrete,Equal
0074 0279       | y  |		Execute	Discrete,And
0075 7002       |p   |		Jump_Nonzero	0x78
0076 4887       |H   |		Short_Literal	0x87
0077 0257       | W  |		Execute	Discrete,Raise
0078 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x7 = 0x78,0x2
0079 a5f9       |    |		Store_Unchecked	0x2,-0x7
007a 00cf       |    |		Action	Mark_Auxiliary
007b e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0x8 = 0x7b,0x3
007c 01d9       |    |		Execute	Vector,Reverse_Bounds
007d 0263       | c  |		Execute	Discrete,Above_Bound
007e 7011       |p   |		Jump_Nonzero	0x90
007f e21c       |    |		Load	0x1,0x1c							; Debug Table 0x2.0x9 = 0x7f,0x4
0080 0322       | "  |		Declare_Variable	Record
0081 00d9       |    |		Load_Top	At_Offset_1
0082 00d9       |    |		Load_Top	At_Offset_1
0083 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0084 00d9       |    |		Load_Top	At_Offset_1
0085 e5fb       |    |		Load	0x2,-0x5
0086 01d7       |    |		Execute	Vector,Field_Read
0087 e211       |    |		Load	0x1,0x11
0088 0119       |    |		Execute	Any,Check_In_Formal_Type
0089 00d9       |    |		Load_Top	At_Offset_1
008a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
008b 00d9       |    |		Load_Top	At_Offset_1
008c e40b       |    |		Load	0x2,0xb
008d 01d6       |    |		Execute	Vector,Field_Write
008e 00c8       |    |		Action	Pop_Auxiliary_Range
008f 3fef       |?   |		Loop_Increasing	0x7f
0090 00ce       |    |		Action	Pop_Auxiliary
0091 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0xa = 0x91,0x5
0092 00db       |    |		Load_Top	At_Offset_3
0093 01dc       |    |		Execute	Vector,Last
0094 e20f       |    |		Load	0x1,0xf
0095 025b       | [  |		Execute	Discrete,Check_In_Type
0096 e403       |    |		Load	0x2,0x3
0097 e404       |    |		Load	0x2,0x4
0098 e405       |    |		Load	0x2,0x5
0099 4806       |H   |		Short_Literal	0x6
009a 4802       |H   |		Short_Literal	0x2
009b 0099       |    |		Action	Reference_Dynamic
009c 4807       |H   |		Short_Literal	0x7
009d 4802       |H   |		Short_Literal	0x2
009e 0099       |    |		Action	Reference_Dynamic
009f 8001       |    |		Call	0x0,0x1
00a0 00d1       |    |		Pop_Control	Pop_Count_1
00a1 00cf       |    |		Action	Mark_Auxiliary
00a2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0xb = 0xa2,0x6
00a3 01d9       |    |		Execute	Vector,Reverse_Bounds
00a4 0263       | c  |		Execute	Discrete,Above_Bound
00a5 7041       |pA  |		Jump_Nonzero	0xe7
00a6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0xc = 0xa6,0x7
00a7 e215       |    |		Load	0x1,0x15
00a8 01c3       |    |		Execute	Vector,Check_In_Type
00a9 840a       |    |		Call	0x2,0xa
00aa c40c       |    |		Store	0x2,0xc
00ab e40c       |    |		Load	0x2,0xc								; Debug Table 0x2.0xd = 0xab,0x8
00ac e40d       |    |		Load	0x2,0xd
00ad 01d7       |    |		Execute	Vector,Field_Read
00ae e212       |    |		Load	0x1,0x12
00af 0119       |    |		Execute	Any,Check_In_Formal_Type
00b0 85fd       |    |		Call	0x2,-0x3
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 e40b       |    |		Load	0x2,0xb
00b3 01d5       |    |		Execute	Vector,Field_Reference
00b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00b5 e211       |    |		Load	0x1,0x11
00b6 0119       |    |		Execute	Any,Check_In_Formal_Type
00b7 85fc       |    |		Call	0x2,-0x4
00b8 027b       | {  |		Execute	Discrete,Greater_Equal
00b9 6827       |h'  |		Jump_Zero	0xe1
00ba e40c       |    |		Load	0x2,0xc								; Debug Table 0x2.0xe = 0xba,0x9
00bb e40d       |    |		Load	0x2,0xd
00bc 01d7       |    |		Execute	Vector,Field_Read
00bd e212       |    |		Load	0x1,0x12
00be 0119       |    |		Execute	Any,Check_In_Formal_Type
00bf 85fd       |    |		Call	0x2,-0x3
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 e40b       |    |		Load	0x2,0xb
00c2 01d5       |    |		Execute	Vector,Field_Reference
00c3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c4 e211       |    |		Load	0x1,0x11
00c5 0119       |    |		Execute	Any,Check_In_Formal_Type
00c6 85fc       |    |		Call	0x2,-0x4
00c7 0272       | r  |		Execute	Discrete,Minus
00c8 00e3       |    |		Load_Encached	Natural_Cache
00c9 025b       | [  |		Execute	Discrete,Check_In_Type
00ca e40c       |    |		Load	0x2,0xc
00cb e40d       |    |		Load	0x2,0xd
00cc 01d7       |    |		Execute	Vector,Field_Read
00cd e212       |    |		Load	0x1,0x12
00ce 0119       |    |		Execute	Any,Check_In_Formal_Type
00cf 85fe       |    |		Call	0x2,-0x2
00d0 e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x2.0xf = 0xd0,0xa
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 e40b       |    |		Load	0x2,0xb
00d3 01d5       |    |		Execute	Vector,Field_Reference
00d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 01d7       |    |		Execute	Vector,Field_Read
00d8 e40c       |    |		Load	0x2,0xc
00d9 e210       |    |		Load	0x1,0x10
00da 025b       | [  |		Execute	Discrete,Check_In_Type
00db 8217       |    |		Call	0x1,0x17
00dc 00d9       |    |		Load_Top	At_Offset_1
00dd 00db       |    |		Load_Top	At_Offset_3
00de 01d6       |    |		Execute	Vector,Field_Write
00df 00d2       |    |		Pop_Control	Pop_Count_2
00e0 7804       |x   |		Jump	0xe5
00e1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x10 = 0xe1,0xb
00e2 a5f9       |    |		Store_Unchecked	0x2,-0x7
00e3 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x2.0x11 = 0xe3,0xc
00e4 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00e5 00c8       |    |		Action	Pop_Auxiliary_Range
00e6 3fbf       |?   |		Loop_Increasing	0xa6
00e7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 011a       |    |		.CONST	0x011a								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 000d       |    |		.CONST	0x000d								; Number of locals
00eb			INIT_00e8:
00eb 029f 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Call				; Debug Table 0x3 = .DEBUG	0x00eb,0x03c8,0x3801,0x0002,0x000e,0x7c74,0x0000,0x0082
													; Debug Table 0x3.0x0 = 0xeb,0xffff
00ed a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x3.0x1 = 0xed,0xfffe
00ee 00c6       |    |		Action	Check_Subprogram_Elaborated
00ef e21c       |    |		Load	0x1,0x1c
00f0 e20f       |    |		Load	0x1,0xf
00f1 e21d       |    |		Load	0x1,0x1d
00f2 e20f       |    |		Load	0x1,0xf
00f3 0266       | f  |		Execute	Discrete,Bounds
00f4 e20f       |    |		Load	0x1,0xf
00f5 0265       | e  |		Execute	Discrete,Reverse_Bounds
00f6 00db       |    |		Load_Top	At_Offset_3
00f7 027f       |    |		Execute	Discrete,Equal
00f8 7002       |p   |		Jump_Nonzero	0xfb
00f9 48e0       |H   |		Short_Literal	0xe0
00fa 0257       | W  |		Execute	Discrete,Raise
00fb 027f       |    |		Execute	Discrete,Equal
00fc 7002       |p   |		Jump_Nonzero	0xff
00fd 48e0       |H   |		Short_Literal	0xe0
00fe 0257       | W  |		Execute	Discrete,Raise
00ff 00d1       |    |		Pop_Control	Pop_Count_1
0100 4802       |H   |		Short_Literal	0x2
0101 4802       |H   |		Short_Literal	0x2
0102 0099       |    |		Action	Reference_Dynamic
0103 61f4       |a   |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x000e8274}
0104 4983       |I   |		Short_Literal	0x183
0105 4809       |H   |		Short_Literal	0x9
0106 0007       |    |		Action	Break_Optional
0107 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call				; Debug Table 0x3.0x2 = 0x107,0xfffd
0109 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x3 = 0x109,0xfffc
010a 01da       |    |		Execute	Vector,Bounds
010b e21d       |    |		Load	0x1,0x1d
010c 035b       | [  |		Declare_Type	Array,Constrained
010d 0337       | 7  |		Declare_Variable	Array
010e 00d8       |    |		Load_Top	At_Offset_0
010f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0110 e210       |    |		Load	0x1,0x10							; Debug Table 0x3.0x4 = 0x110,0xfffb
0111 0007       |    |		Action	Break_Optional
0112 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x5 = 0x112,0xfffa
0113 01da       |    |		Execute	Vector,Bounds
0114 e215       |    |		Load	0x1,0x15
0115 035b       | [  |		Declare_Type	Array,Constrained
0116 0337       | 7  |		Declare_Variable	Array
0117 e5fa       |    |		Load	0x2,-0x6
0118 00d9       |    |		Load_Top	At_Offset_1
0119 01d4       |    |		Execute	Vector,Structure_Write
011a			BODY_00e8:
011a e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x6 = 0x11a,0x1
011b 01dd       |    |		Execute	Vector,First
011c e5f8       |    |		Load	0x2,-0x8
011d 01dd       |    |		Execute	Vector,First
011e 027f       |    |		Execute	Discrete,Equal
011f e5fb       |    |		Load	0x2,-0x5
0120 01dc       |    |		Execute	Vector,Last
0121 e5f8       |    |		Load	0x2,-0x8
0122 01dc       |    |		Execute	Vector,Last
0123 027f       |    |		Execute	Discrete,Equal
0124 0279       | y  |		Execute	Discrete,And
0125 7002       |p   |		Jump_Nonzero	0x128
0126 4887       |H   |		Short_Literal	0x87
0127 0257       | W  |		Execute	Discrete,Raise
0128 00cf       |    |		Action	Mark_Auxiliary
0129 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x7 = 0x129,0x2
012a 01d9       |    |		Execute	Vector,Reverse_Bounds
012b 0263       | c  |		Execute	Discrete,Above_Bound
012c 7011       |p   |		Jump_Nonzero	0x13e
012d e21c       |    |		Load	0x1,0x1c							; Debug Table 0x3.0x8 = 0x12d,0x3
012e 0322       | "  |		Declare_Variable	Record
012f 00d9       |    |		Load_Top	At_Offset_1
0130 00d9       |    |		Load_Top	At_Offset_1
0131 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0132 00d9       |    |		Load_Top	At_Offset_1
0133 e5fb       |    |		Load	0x2,-0x5
0134 01d7       |    |		Execute	Vector,Field_Read
0135 e211       |    |		Load	0x1,0x11
0136 0119       |    |		Execute	Any,Check_In_Formal_Type
0137 00d9       |    |		Load_Top	At_Offset_1
0138 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0139 00d9       |    |		Load_Top	At_Offset_1
013a e40b       |    |		Load	0x2,0xb
013b 01d6       |    |		Execute	Vector,Field_Write
013c 00c8       |    |		Action	Pop_Auxiliary_Range
013d 3fef       |?   |		Loop_Increasing	0x12d
013e 00ce       |    |		Action	Pop_Auxiliary
013f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x9 = 0x13f,0x4
0140 00db       |    |		Load_Top	At_Offset_3
0141 01dc       |    |		Execute	Vector,Last
0142 e20f       |    |		Load	0x1,0xf
0143 025b       | [  |		Execute	Discrete,Check_In_Type
0144 e403       |    |		Load	0x2,0x3
0145 e404       |    |		Load	0x2,0x4
0146 e405       |    |		Load	0x2,0x5
0147 4806       |H   |		Short_Literal	0x6
0148 4802       |H   |		Short_Literal	0x2
0149 0099       |    |		Action	Reference_Dynamic
014a 4807       |H   |		Short_Literal	0x7
014b 4802       |H   |		Short_Literal	0x2
014c 0099       |    |		Action	Reference_Dynamic
014d 8001       |    |		Call	0x0,0x1
014e 00d1       |    |		Pop_Control	Pop_Count_1
014f 00cf       |    |		Action	Mark_Auxiliary
0150 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xa = 0x150,0x5
0151 01d9       |    |		Execute	Vector,Reverse_Bounds
0152 0263       | c  |		Execute	Discrete,Above_Bound
0153 703b       |p;  |		Jump_Nonzero	0x18f
0154 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0xb = 0x154,0x6
0155 e210       |    |		Load	0x1,0x10
0156 00da       |    |		Load_Top	At_Offset_2
0157 e40b       |    |		Load	0x2,0xb
0158 01d5       |    |		Execute	Vector,Field_Reference
0159 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
015a e211       |    |		Load	0x1,0x11
015b 0119       |    |		Execute	Any,Check_In_Formal_Type
015c 85fc       |    |		Call	0x2,-0x4
015d e40d       |    |		Load	0x2,0xd
015e e215       |    |		Load	0x1,0x15
015f 01c3       |    |		Execute	Vector,Check_In_Type
0160 840a       |    |		Call	0x2,0xa
0161 c40c       |    |		Store	0x2,0xc
0162 c5f9       |    |		Store	0x2,-0x7
0163 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x3.0xc = 0x163,0x7
0164 7002       |p   |		Jump_Nonzero	0x167
0165 00d2       |    |		Pop_Control	Pop_Count_2
0166 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0167 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0xd = 0x167,0x8
0168 e40d       |    |		Load	0x2,0xd
0169 01d7       |    |		Execute	Vector,Field_Read
016a e212       |    |		Load	0x1,0x12
016b 0119       |    |		Execute	Any,Check_In_Formal_Type
016c 85fd       |    |		Call	0x2,-0x3
016d 00d9       |    |		Load_Top	At_Offset_1
016e e40b       |    |		Load	0x2,0xb
016f 01d5       |    |		Execute	Vector,Field_Reference
0170 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0171 e211       |    |		Load	0x1,0x11
0172 0119       |    |		Execute	Any,Check_In_Formal_Type
0173 85fc       |    |		Call	0x2,-0x4
0174 0272       | r  |		Execute	Discrete,Minus
0175 00e3       |    |		Load_Encached	Natural_Cache
0176 025b       | [  |		Execute	Discrete,Check_In_Type
0177 e40c       |    |		Load	0x2,0xc
0178 e40d       |    |		Load	0x2,0xd
0179 01d7       |    |		Execute	Vector,Field_Read
017a e212       |    |		Load	0x1,0x12
017b 0119       |    |		Execute	Any,Check_In_Formal_Type
017c 85fe       |    |		Call	0x2,-0x2
017d e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x3.0xe = 0x17d,0x9
017e 00d9       |    |		Load_Top	At_Offset_1
017f e40b       |    |		Load	0x2,0xb
0180 01d5       |    |		Execute	Vector,Field_Reference
0181 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0182 00d8       |    |		Load_Top	At_Offset_0
0183 00da       |    |		Load_Top	At_Offset_2
0184 01d7       |    |		Execute	Vector,Field_Read
0185 e40c       |    |		Load	0x2,0xc
0186 e210       |    |		Load	0x1,0x10
0187 025b       | [  |		Execute	Discrete,Check_In_Type
0188 8217       |    |		Call	0x1,0x17
0189 00d9       |    |		Load_Top	At_Offset_1
018a 00db       |    |		Load_Top	At_Offset_3
018b 01d6       |    |		Execute	Vector,Field_Write
018c 00d2       |    |		Pop_Control	Pop_Count_2
018d 00c8       |    |		Action	Pop_Auxiliary_Range
018e 3fc5       |?   |		Loop_Increasing	0x154
018f 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01d6       |    |		.CONST	0x01d6								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0008       |    |		.CONST	0x0008								; Number of locals
0193			INIT_0190:
0193 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4 = .DEBUG	0x0193,0x03e8,0x3801,0x0002,0x000e,0x7c74,0x0000,0x00b8
													; Debug Table 0x4.0x0 = 0x193,0xffff
0194 01da       |    |		Execute	Vector,Bounds
0195 e215       |    |		Load	0x1,0x15
0196 035b       | [  |		Declare_Type	Array,Constrained
0197 0337       | 7  |		Declare_Variable	Array
0198 00d8       |    |		Load_Top	At_Offset_0
0199 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x1 = 0x19a,0xfffe
019b 01dd       |    |		Execute	Vector,First
019c e20f       |    |		Load	0x1,0xf
019d e5fd       |    |		Load	0x2,-0x3
019e 01dc       |    |		Execute	Vector,Last
019f 0267       | g  |		Execute	Discrete,Predecessor
01a0 e214       |    |		Load	0x1,0x14
01a1 035b       | [  |		Declare_Type	Array,Constrained
01a2 0337       | 7  |		Declare_Variable	Array
01a3 00d8       |    |		Load_Top	At_Offset_0
01a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a5 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x4.0x2 = 0x1a5,0xfffd
01a6 01dd       |    |		Execute	Vector,First
01a7 e20f       |    |		Load	0x1,0xf
01a8 e5fa       |    |		Load	0x2,-0x6
01a9 01dc       |    |		Execute	Vector,Last
01aa 0267       | g  |		Execute	Discrete,Predecessor
01ab e216       |    |		Load	0x1,0x16
01ac 035b       | [  |		Declare_Type	Array,Constrained
01ad 0337       | 7  |		Declare_Variable	Array
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b0 e20f       |    |		Load	0x1,0xf								; Debug Table 0x4.0x3 = 0x1b0,0xfffc
01b1 0007       |    |		Action	Break_Optional
01b2 e210       |    |		Load	0x1,0x10							; Debug Table 0x4.0x4 = 0x1b2,0xfffb
01b3 0007       |    |		Action	Break_Optional
01b4 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x5 = 0x1b4,0xfffa
01b5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x6 = 0x1b5,0xfff9
01b6 01da       |    |		Execute	Vector,Bounds
01b7 e5fc       |    |		Load	0x2,-0x4
01b8 01da       |    |		Execute	Vector,Bounds
01b9 e218       |    |		Load	0x1,0x18
01ba 035b       | [  |		Declare_Type	Array,Constrained
01bb 0337       | 7  |		Declare_Variable	Array
01bc e5fd       |    |		Load	0x2,-0x3
01bd 01da       |    |		Execute	Vector,Bounds
01be e5fc       |    |		Load	0x2,-0x4
01bf 01da       |    |		Execute	Vector,Bounds
01c0 e218       |    |		Load	0x1,0x18
01c1 035b       | [  |		Declare_Type	Array,Constrained
01c2 0337       | 7  |		Declare_Variable	Array
01c3 4801       |H   |		Short_Literal	0x1
01c4 00d9       |    |		Load_Top	At_Offset_1
01c5 01a9       |    |		Execute	Matrix,Reverse_Bounds
01c6 0263       | c  |		Execute	Discrete,Above_Bound
01c7 700c       |p   |		Jump_Nonzero	0x1d4
01c8 4802       |H   |		Short_Literal	0x2
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 01a9       |    |		Execute	Matrix,Reverse_Bounds
01cb 0263       | c  |		Execute	Discrete,Above_Bound
01cc 7006       |p   |		Jump_Nonzero	0x1d3
01cd 4801       |H   |		Short_Literal	0x1
01ce 00d9       |    |		Load_Top	At_Offset_1
01cf e40b       |    |		Load	0x2,0xb
01d0 e409       |    |		Load	0x2,0x9
01d1 01a6       |    |		Execute	Matrix,Field_Write
01d2 3ffa       |?   |		Loop_Increasing	0x1cd
01d3 3ff4       |?   |		Loop_Increasing	0x1c8
01d4 00d9       |    |		Load_Top	At_Offset_1
01d5 01a4       |    |		Execute	Matrix,Structure_Write
01d6			BODY_0190:
01d6 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x7 = 0x1d6,0x1
01d7 01dd       |    |		Execute	Vector,First
01d8 e5fa       |    |		Load	0x2,-0x6
01d9 01dd       |    |		Execute	Vector,First
01da 027f       |    |		Execute	Discrete,Equal
01db e5fd       |    |		Load	0x2,-0x3
01dc 01dc       |    |		Execute	Vector,Last
01dd e5fa       |    |		Load	0x2,-0x6
01de 01dc       |    |		Execute	Vector,Last
01df 027f       |    |		Execute	Discrete,Equal
01e0 0279       | y  |		Execute	Discrete,And
01e1 7002       |p   |		Jump_Nonzero	0x1e4
01e2 4887       |H   |		Short_Literal	0x87
01e3 0257       | W  |		Execute	Discrete,Raise
01e4 00cf       |    |		Action	Mark_Auxiliary
01e5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x8 = 0x1e5,0x2
01e6 01d9       |    |		Execute	Vector,Reverse_Bounds
01e7 0263       | c  |		Execute	Discrete,Above_Bound
01e8 7095       |p   |		Jump_Nonzero	0x27e
01e9 00cf       |    |		Action	Mark_Auxiliary
01ea e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0x9 = 0x1ea,0x3
01eb 01d9       |    |		Execute	Vector,Reverse_Bounds
01ec 0263       | c  |		Execute	Discrete,Above_Bound
01ed 708d       |p   |		Jump_Nonzero	0x27b
01ee e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0xa = 0x1ee,0x4
01ef e402       |    |		Load	0x2,0x2
01f0 01d4       |    |		Execute	Vector,Structure_Write
01f1 e210       |    |		Load	0x1,0x10							; Debug Table 0x4.0xb = 0x1f1,0x5
01f2 e20f       |    |		Load	0x1,0xf
01f3 00e1       |    |		Load_Encached	Boolean_Cache
01f4 e402       |    |		Load	0x2,0x2
01f5 e215       |    |		Load	0x1,0x15
01f6 01c3       |    |		Execute	Vector,Check_In_Type
01f7 e408       |    |		Load	0x2,0x8
01f8 e5fd       |    |		Load	0x2,-0x3
01f9 e214       |    |		Load	0x1,0x14
01fa 01c3       |    |		Execute	Vector,Check_In_Type
01fb 85fe       |    |		Call	0x2,-0x2
01fc 00d1       |    |		Pop_Control	Pop_Count_1
01fd c407       |    |		Store	0x2,0x7
01fe c405       |    |		Store	0x2,0x5
01ff c406       |    |		Store	0x2,0x6
0200 e407       |    |		Load	0x2,0x7								; Debug Table 0x4.0xc = 0x200,0x6
0201 6873       |hs  |		Jump_Zero	0x275
0202 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0xd = 0x202,0x7
0203 01db       |    |		Execute	Vector,Length
0204 0f01       |    |		Execute_Immediate	Equal,0x1
0205 6811       |h   |		Jump_Zero	0x217
0206 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0xe = 0x206,0x8
0207 a5fb       |    |		Store_Unchecked	0x2,-0x5
0208 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x4.0xf = 0x208,0x9
0209 e405       |    |		Load	0x2,0x5
020a 00d8       |    |		Load_Top	At_Offset_0
020b 00da       |    |		Load_Top	At_Offset_2
020c 01d7       |    |		Execute	Vector,Field_Read
020d e406       |    |		Load	0x2,0x6
020e e210       |    |		Load	0x1,0x10
020f 025b       | [  |		Execute	Discrete,Check_In_Type
0210 8217       |    |		Call	0x1,0x17
0211 00d9       |    |		Load_Top	At_Offset_1
0212 00db       |    |		Load_Top	At_Offset_3
0213 01d6       |    |		Execute	Vector,Field_Write
0214 00d2       |    |		Pop_Control	Pop_Count_2
0215 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x4.0x10 = 0x215,0xa
0216 7864       |xd  |		Jump	0x27b
0217 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x11 = 0x217,0xb
0218 01dd       |    |		Execute	Vector,First
0219 e20f       |    |		Load	0x1,0xf
021a e405       |    |		Load	0x2,0x5
021b 0267       | g  |		Execute	Discrete,Predecessor
021c e5fd       |    |		Load	0x2,-0x3
021d 01cf       |    |		Execute	Vector,Slice_Read
021e e403       |    |		Load	0x2,0x3
021f 01dd       |    |		Execute	Vector,First
0220 e20f       |    |		Load	0x1,0xf
0221 e405       |    |		Load	0x2,0x5
0222 0267       | g  |		Execute	Discrete,Predecessor
0223 e403       |    |		Load	0x2,0x3
0224 01ce       |    |		Execute	Vector,Slice_Write
0225 e20f       |    |		Load	0x1,0xf								; Debug Table 0x4.0x12 = 0x225,0xc
0226 e405       |    |		Load	0x2,0x5
0227 0268       | h  |		Execute	Discrete,Successor
0228 e5fd       |    |		Load	0x2,-0x3
0229 01dc       |    |		Execute	Vector,Last
022a e5fd       |    |		Load	0x2,-0x3
022b 01cf       |    |		Execute	Vector,Slice_Read
022c e405       |    |		Load	0x2,0x5
022d e403       |    |		Load	0x2,0x3
022e 01dc       |    |		Execute	Vector,Last
022f e403       |    |		Load	0x2,0x3
0230 01ce       |    |		Execute	Vector,Slice_Write
0231 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0x13 = 0x231,0xd
0232 e216       |    |		Load	0x1,0x16
0233 01c3       |    |		Execute	Vector,Check_In_Type
0234 00e1       |    |		Load_Encached	Boolean_Cache
0235 e402       |    |		Load	0x2,0x2
0236 e215       |    |		Load	0x1,0x15
0237 01c3       |    |		Execute	Vector,Check_In_Type
0238 e403       |    |		Load	0x2,0x3
0239 e214       |    |		Load	0x1,0x14
023a 01c3       |    |		Execute	Vector,Check_In_Type
023b 4ffe       |O   |		Short_Literal	-0x2
023c 4802       |H   |		Short_Literal	0x2
023d 0099       |    |		Action	Reference_Dynamic
023e 4fff       |O   |		Short_Literal	-0x1
023f 4802       |H   |		Short_Literal	0x2
0240 0099       |    |		Action	Reference_Dynamic
0241 821b       |    |		Call	0x1,0x1b
0242 c5fb       |    |		Store	0x2,-0x5
0243 00d1       |    |		Pop_Control	Pop_Count_1
0244 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4.0x14 = 0x244,0xe
0245 6829       |h)  |		Jump_Zero	0x26f
0246 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0x15 = 0x246,0xf
0247 01dd       |    |		Execute	Vector,First
0248 e20f       |    |		Load	0x1,0xf
0249 e405       |    |		Load	0x2,0x5
024a 0267       | g  |		Execute	Discrete,Predecessor
024b e404       |    |		Load	0x2,0x4
024c 01cf       |    |		Execute	Vector,Slice_Read
024d e5fa       |    |		Load	0x2,-0x6
024e 01dd       |    |		Execute	Vector,First
024f e20f       |    |		Load	0x1,0xf
0250 e405       |    |		Load	0x2,0x5
0251 0267       | g  |		Execute	Discrete,Predecessor
0252 e5fa       |    |		Load	0x2,-0x6
0253 01ce       |    |		Execute	Vector,Slice_Write
0254 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x4.0x16 = 0x254,0x10
0255 e405       |    |		Load	0x2,0x5
0256 00d8       |    |		Load_Top	At_Offset_0
0257 00da       |    |		Load_Top	At_Offset_2
0258 01d7       |    |		Execute	Vector,Field_Read
0259 e406       |    |		Load	0x2,0x6
025a e210       |    |		Load	0x1,0x10
025b 025b       | [  |		Execute	Discrete,Check_In_Type
025c 8217       |    |		Call	0x1,0x17
025d 00d9       |    |		Load_Top	At_Offset_1
025e 00db       |    |		Load_Top	At_Offset_3
025f 01d6       |    |		Execute	Vector,Field_Write
0260 00d2       |    |		Pop_Control	Pop_Count_2
0261 e405       |    |		Load	0x2,0x5								; Debug Table 0x4.0x17 = 0x261,0x11
0262 e404       |    |		Load	0x2,0x4
0263 01dc       |    |		Execute	Vector,Last
0264 e404       |    |		Load	0x2,0x4
0265 01cf       |    |		Execute	Vector,Slice_Read
0266 e20f       |    |		Load	0x1,0xf
0267 e405       |    |		Load	0x2,0x5
0268 0268       | h  |		Execute	Discrete,Successor
0269 e5fa       |    |		Load	0x2,-0x6
026a 01dc       |    |		Execute	Vector,Last
026b e5fa       |    |		Load	0x2,-0x6
026c 01ce       |    |		Execute	Vector,Slice_Write
026d 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x4.0x18 = 0x26d,0x12
026e 780c       |x   |		Jump	0x27b
026f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x19 = 0x26f,0x13
0270 e406       |    |		Load	0x2,0x6
0271 e405       |    |		Load	0x2,0x5
0272 e408       |    |		Load	0x2,0x8
0273 01a6       |    |		Execute	Matrix,Field_Write
0274 7804       |x   |		Jump	0x279
0275 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x1a = 0x275,0x14
0276 a5fb       |    |		Store_Unchecked	0x2,-0x5
0277 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x4.0x1b = 0x277,0x15
0278 7802       |x   |		Jump	0x27b
0279 00c8       |    |		Action	Pop_Auxiliary_Range
027a 3f73       |?s  |		Loop_Increasing	0x1ee
027b 00ce       |    |		Action	Pop_Auxiliary
027c 00c8       |    |		Action	Pop_Auxiliary_Range
027d 3f6b       |?k  |		Loop_Increasing	0x1e9
027e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
027f 0000       |    |		.XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 4608       |F   |		Jump_Case	0x9							; Debug Table 0x5 = .DEBUG	0x0283,0x0422,0x1005,0x0000,0x000e,0x8274,0x0000,0x0006
0284 7808       |x   |		Jump	0x28d								; case 0x0
0285 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0286 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0287 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0288 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0289 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
028a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
028b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
028c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
028d 00da       |    |		Load_Top	At_Offset_2
028e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
028f 0125       | %  |		Execute	Any,Set_Constraint
0290 00da       |    |		Load_Top	At_Offset_2
0291 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0292 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0293 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x6 = .DEBUG	0x029b,0x0424,0x1005,0x0000,0x000e,0x8274,0x0000,0x0014
029c 00da       |    |		Load_Top	At_Offset_2
029d 01dc       |    |		Execute	Vector,Last
029e 00db       |    |		Load_Top	At_Offset_3
029f 01dd       |    |		Execute	Vector,First
02a0 0263       | c  |		Execute	Discrete,Above_Bound
02a1 7006       |p   |		Jump_Nonzero	0x2a8
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 e5ff       |    |		Load	0x2,-0x1
02a4 01d5       |    |		Execute	Vector,Field_Reference
02a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a6 0a01       |    |		Execute_Immediate	Plus,0x1
02a7 7ff8       |    |		Jump	0x2a0
02a8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02a9 0000 0000  |    |		.BLANK	0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x02b3,0x0426,0x1802,0x0002,0x000e,0x8274,0x0000,0x0039
													; Debug Table 0x7.0x0 = 0x2b3,0x1
02b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b5 e211       |    |		Load	0x1,0x11
02b6 0119       |    |		Execute	Any,Check_In_Formal_Type
02b7 85fc       |    |		Call	0x2,-0x4
02b8 e7fe       |    |		Load	0x3,-0x2
02b9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ba e211       |    |		Load	0x1,0x11
02bb 0119       |    |		Execute	Any,Check_In_Formal_Type
02bc 85fc       |    |		Call	0x2,-0x4
02bd 027d       | }  |		Execute	Discrete,Greater
02be 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c6       |    |		.CONST	0x02c6								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0003       |    |		.CONST	0x0003								; Number of locals
02c3			INIT_02c0:
02c3 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x8 = .DEBUG	0x02c3,0x042a,0x1802,0x0002,0x000e,0x8274,0x0000,0x006d
													; Debug Table 0x8.0x0 = 0x2c3,0xffff
02c4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02c5 e210       |    |		Load	0x1,0x10							; Debug Table 0x8.0x1 = 0x2c5,0xfffe
02c6			BODY_02c0:
02c6 00cf       |    |		Action	Mark_Auxiliary
02c7 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x8.0x2 = 0x2c7,0x1
02c8 01d9       |    |		Execute	Vector,Reverse_Bounds
02c9 0263       | c  |		Execute	Discrete,Above_Bound
02ca 7014       |p   |		Jump_Nonzero	0x2df
02cb 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x3 = 0x2cb,0x2
02cc e7ff       |    |		Load	0x3,-0x1
02cd 01d7       |    |		Execute	Vector,Field_Read
02ce e212       |    |		Load	0x1,0x12
02cf 0119       |    |		Execute	Any,Check_In_Formal_Type
02d0 85fd       |    |		Call	0x2,-0x3
02d1 e602       |    |		Load	0x3,0x2
02d2 027d       | }  |		Execute	Discrete,Greater
02d3 6809       |h   |		Jump_Zero	0x2dd
02d4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x2d4,0x3
02d5 c603       |    |		Store	0x3,0x3
02d6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x5 = 0x2d6,0x4
02d7 e7ff       |    |		Load	0x3,-0x1
02d8 01d7       |    |		Execute	Vector,Field_Read
02d9 e212       |    |		Load	0x1,0x12
02da 0119       |    |		Execute	Any,Check_In_Formal_Type
02db 85fd       |    |		Call	0x2,-0x3
02dc a602       |    |		Store_Unchecked	0x3,0x2
02dd 00c8       |    |		Action	Pop_Auxiliary_Range
02de 3fec       |?   |		Loop_Increasing	0x2cb
02df 00ce       |    |		Action	Pop_Auxiliary
02e0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x6 = 0x2e0,0x5
02e1 e210       |    |		Load	0x1,0x10
02e2 025b       | [  |		Execute	Discrete,Check_In_Type
02e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x02eb,0x043a,0x1802,0x0002,0x000e,0x8274,0x0000,0x0162
													; Debug Table 0x9.0x0 = 0x2eb,0x1
02ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ed e211       |    |		Load	0x1,0x11
02ee 0119       |    |		Execute	Any,Check_In_Formal_Type
02ef 85fc       |    |		Call	0x2,-0x4
02f0 e7fe       |    |		Load	0x3,-0x2
02f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f2 e211       |    |		Load	0x1,0x11
02f3 0119       |    |		Execute	Any,Check_In_Formal_Type
02f4 85fc       |    |		Call	0x2,-0x4
02f5 027d       | }  |		Execute	Discrete,Greater
02f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f7 0000       |    |		.XXX[0x1]
02f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e8274}
02fc 0000 0000  |    |		.BLANK	0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0307       |    |		.CONST	0x0307								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0003       |    |		.CONST	0x0003								; Number of locals
0303			INIT_0300:
0303 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xa = .DEBUG	0x0303,0x043e,0x1801,0x0002,0x000e,0x8274,0x0000,0x0196
													; Debug Table 0xa.0x0 = 0x303,0xffff
0304 6027       |`'  |		Indirect_Literal	Discrete,0x32c,{0x00000000, 0x7fffffff}		; Debug Table 0xa.0x1 = 0x304,0xfffe
0305 00e3       |    |		Load_Encached	Natural_Cache
0306 03f1       |    |		Declare_Variable	Discrete,With_Value
0307			BODY_0300:
0307 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0xa.0x2 = 0x307,0x1
0308 01dd       |    |		Execute	Vector,First
0309 c7fd       |    |		Store	0x3,-0x3
030a 00cf       |    |		Action	Mark_Auxiliary
030b e7ff       |    |		Load	0x3,-0x1							; Debug Table 0xa.0x3 = 0x30b,0x2
030c 01d9       |    |		Execute	Vector,Reverse_Bounds
030d 0263       | c  |		Execute	Discrete,Above_Bound
030e 7015       |p   |		Jump_Nonzero	0x324
030f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x4 = 0x30f,0x3
0310 e7ff       |    |		Load	0x3,-0x1
0311 01d7       |    |		Execute	Vector,Field_Read
0312 e212       |    |		Load	0x1,0x12
0313 0119       |    |		Execute	Any,Check_In_Formal_Type
0314 85fd       |    |		Call	0x2,-0x3
0315 a602       |    |		Store_Unchecked	0x3,0x2
0316 e7fe       |    |		Load	0x3,-0x2							; Debug Table 0xa.0x5 = 0x316,0x4
0317 e602       |    |		Load	0x3,0x2
0318 027a       | z  |		Execute	Discrete,Less_Equal
0319 e602       |    |		Load	0x3,0x2
031a e603       |    |		Load	0x3,0x3
031b 027c       | |  |		Execute	Discrete,Less
031c 0279       | y  |		Execute	Discrete,And
031d 6804       |h   |		Jump_Zero	0x322
031e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x6 = 0x31e,0x5
031f c7fd       |    |		Store	0x3,-0x3
0320 e602       |    |		Load	0x3,0x2								; Debug Table 0xa.0x7 = 0x320,0x6
0321 a603       |    |		Store_Unchecked	0x3,0x3
0322 00c8       |    |		Action	Pop_Auxiliary_Range
0323 3feb       |?   |		Loop_Increasing	0x30f
0324 00ce       |    |		Action	Pop_Auxiliary
0325 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x8 = 0x325,0x7
0326 6005       |`   |		Indirect_Literal	Discrete,0x32c,{0x00000000, 0x7fffffff}
0327 027e       | ~  |		Execute	Discrete,Not_Equal
0328 a7fc       |    |		Store_Unchecked	0x3,-0x4
0329 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
032a 0000 0000  |    |		.XXX[0x2]
032c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0003 000b  |    |		.CONST	0x0003,0x000b
0332 000b 038a  |    |		.DEBUG	0x000b,0x038a,0xc000,0x0000,0x000e,0x7c74,0x0000,0x0003
033a 001a 0394  |    |		.DEBUG	0x001a,0x0394,0xc000,0x0000,0x000e,0x8274,0x0000,0x0005
0342 003b 03a2  | ;  |		.DEBUG	0x003b,0x03a2,0x3801,0x0002,0x000e,0x7c74,0x0000,0x004c
034a 00eb 03c8  |    |		.DEBUG	0x00eb,0x03c8,0x3801,0x0002,0x000e,0x7c74,0x0000,0x0082
0352 0193 03e8  |    |		.DEBUG	0x0193,0x03e8,0x3801,0x0002,0x000e,0x7c74,0x0000,0x00b8
035a 0283 0422  |   "|		.DEBUG	0x0283,0x0422,0x1005,0x0000,0x000e,0x8274,0x0000,0x0006
0362 029b 0424  |   $|		.DEBUG	0x029b,0x0424,0x1005,0x0000,0x000e,0x8274,0x0000,0x0014
036a 02b3 0426  |   &|		.DEBUG	0x02b3,0x0426,0x1802,0x0002,0x000e,0x8274,0x0000,0x0039
0372 02c3 042a  |   *|		.DEBUG	0x02c3,0x042a,0x1802,0x0002,0x000e,0x8274,0x0000,0x006d
037a 02eb 043a  |   :|		.DEBUG	0x02eb,0x043a,0x1802,0x0002,0x000e,0x8274,0x0000,0x0162
0382 0303 043e  |   >|		.DEBUG	0x0303,0x043e,0x1801,0x0002,0x000e,0x8274,0x0000,0x0196
038a ; --------------------------------------------------------------------------------------
038a ; Debug3 Subtable 0x0
038a ; --------------------------------------------------------------------------------------
038a 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
038c 000b ffff  |    |		.CONST	0x000b,0xffff
038e 0013 fffe  |    |		.CONST	0x0013,0xfffe
0390 0015 fffd  |    |		.CONST	0x0015,0xfffd
0392 0017 fffc  |    |		.CONST	0x0017,0xfffc
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x1
0394 ; --------------------------------------------------------------------------------------
0394 0006 0000  |    |		.DBG3TAB	0x0006,0x0000
0396 001a ffff  |    |		.CONST	0x001a,0xffff
0398 0020 fffe  |    |		.CONST	0x0020,0xfffe
039a 0027 fffd  | '  |		.CONST	0x0027,0xfffd
039c 002d fffc  | -  |		.CONST	0x002d,0xfffc
039e 002f fffb  | /  |		.CONST	0x002f,0xfffb
03a0 0031 fffa  | 1  |		.CONST	0x0031,0xfffa
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug3 Subtable 0x2
03a2 ; --------------------------------------------------------------------------------------
03a2 0006 000c  |    |		.DBG3TAB	0x0006,0x000c
03a4 003b ffff  | ;  |		.CONST	0x003b,0xffff
03a6 003d fffe  | =  |		.CONST	0x003d,0xfffe
03a8 0057 fffd  | W  |		.CONST	0x0057,0xfffd
03aa 0059 fffc  | Y  |		.CONST	0x0059,0xfffc
03ac 0060 fffb  | `  |		.CONST	0x0060,0xfffb
03ae 0062 fffa  | b  |		.CONST	0x0062,0xfffa
03b0 006a 0001  | j  |		.CONST	0x006a,0x0001
03b2 0078 0002  | x  |		.CONST	0x0078,0x0002
03b4 007b 0003  | {  |		.CONST	0x007b,0x0003
03b6 007f 0004  |    |		.CONST	0x007f,0x0004
03b8 0091 0005  |    |		.CONST	0x0091,0x0005
03ba 00a2 0006  |    |		.CONST	0x00a2,0x0006
03bc 00a6 0007  |    |		.CONST	0x00a6,0x0007
03be 00ab 0008  |    |		.CONST	0x00ab,0x0008
03c0 00ba 0009  |    |		.CONST	0x00ba,0x0009
03c2 00d0 000a  |    |		.CONST	0x00d0,0x000a
03c4 00e1 000b  |    |		.CONST	0x00e1,0x000b
03c6 00e3 000c  |    |		.CONST	0x00e3,0x000c
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0x3
03c8 ; --------------------------------------------------------------------------------------
03c8 0006 0009  |    |		.DBG3TAB	0x0006,0x0009
03ca 00eb ffff  |    |		.CONST	0x00eb,0xffff
03cc 00ed fffe  |    |		.CONST	0x00ed,0xfffe
03ce 0107 fffd  |    |		.CONST	0x0107,0xfffd
03d0 0109 fffc  |    |		.CONST	0x0109,0xfffc
03d2 0110 fffb  |    |		.CONST	0x0110,0xfffb
03d4 0112 fffa  |    |		.CONST	0x0112,0xfffa
03d6 011a 0001  |    |		.CONST	0x011a,0x0001
03d8 0129 0002  | )  |		.CONST	0x0129,0x0002
03da 012d 0003  | -  |		.CONST	0x012d,0x0003
03dc 013f 0004  | ?  |		.CONST	0x013f,0x0004
03de 0150 0005  | P  |		.CONST	0x0150,0x0005
03e0 0154 0006  | T  |		.CONST	0x0154,0x0006
03e2 0163 0007  | c  |		.CONST	0x0163,0x0007
03e4 0167 0008  | g  |		.CONST	0x0167,0x0008
03e6 017d 0009  | }  |		.CONST	0x017d,0x0009
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0x4
03e8 ; --------------------------------------------------------------------------------------
03e8 0007 0015  |    |		.DBG3TAB	0x0007,0x0015
03ea 0193 ffff  |    |		.CONST	0x0193,0xffff
03ec 019a fffe  |    |		.CONST	0x019a,0xfffe
03ee 01a5 fffd  |    |		.CONST	0x01a5,0xfffd
03f0 01b0 fffc  |    |		.CONST	0x01b0,0xfffc
03f2 01b2 fffb  |    |		.CONST	0x01b2,0xfffb
03f4 01b4 fffa  |    |		.CONST	0x01b4,0xfffa
03f6 01b5 fff9  |    |		.CONST	0x01b5,0xfff9
03f8 01d6 0001  |    |		.CONST	0x01d6,0x0001
03fa 01e5 0002  |    |		.CONST	0x01e5,0x0002
03fc 01ea 0003  |    |		.CONST	0x01ea,0x0003
03fe 01ee 0004  |    |		.CONST	0x01ee,0x0004
0400 01f1 0005  |    |		.CONST	0x01f1,0x0005
0402 0200 0006  |    |		.CONST	0x0200,0x0006
0404 0202 0007  |    |		.CONST	0x0202,0x0007
0406 0206 0008  |    |		.CONST	0x0206,0x0008
0408 0208 0009  |    |		.CONST	0x0208,0x0009
040a 0215 000a  |    |		.CONST	0x0215,0x000a
040c 0217 000b  |    |		.CONST	0x0217,0x000b
040e 0225 000c  | %  |		.CONST	0x0225,0x000c
0410 0231 000d  | 1  |		.CONST	0x0231,0x000d
0412 0244 000e  | D  |		.CONST	0x0244,0x000e
0414 0246 000f  | F  |		.CONST	0x0246,0x000f
0416 0254 0010  | T  |		.CONST	0x0254,0x0010
0418 0261 0011  | a  |		.CONST	0x0261,0x0011
041a 026d 0012  | m  |		.CONST	0x026d,0x0012
041c 026f 0013  | o  |		.CONST	0x026f,0x0013
041e 0275 0014  | u  |		.CONST	0x0275,0x0014
0420 0277 0015  | w  |		.CONST	0x0277,0x0015
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x5
0422 ; --------------------------------------------------------------------------------------
0422 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug3 Subtable 0x6
0424 ; --------------------------------------------------------------------------------------
0424 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug3 Subtable 0x7
0426 ; --------------------------------------------------------------------------------------
0426 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0428 02b3 0001  |    |		.CONST	0x02b3,0x0001
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x8
042a ; --------------------------------------------------------------------------------------
042a 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
042c 02c3 ffff  |    |		.CONST	0x02c3,0xffff
042e 02c5 fffe  |    |		.CONST	0x02c5,0xfffe
0430 02c7 0001  |    |		.CONST	0x02c7,0x0001
0432 02cb 0002  |    |		.CONST	0x02cb,0x0002
0434 02d4 0003  |    |		.CONST	0x02d4,0x0003
0436 02d6 0004  |    |		.CONST	0x02d6,0x0004
0438 02e0 0005  |    |		.CONST	0x02e0,0x0005
043a ; --------------------------------------------------------------------------------------
043a ; Debug3 Subtable 0x9
043a ; --------------------------------------------------------------------------------------
043a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
043c 02eb 0001  |    |		.CONST	0x02eb,0x0001
043e ; --------------------------------------------------------------------------------------
043e ; Debug3 Subtable 0xa
043e ; --------------------------------------------------------------------------------------
043e 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
0440 0303 ffff  |    |		.CONST	0x0303,0xffff
0442 0304 fffe  |    |		.CONST	0x0304,0xfffe
0444 0307 0001  |    |		.CONST	0x0307,0x0001
0446 030b 0002  |    |		.CONST	0x030b,0x0002
0448 030f 0003  |    |		.CONST	0x030f,0x0003
044a 0316 0004  |    |		.CONST	0x0316,0x0004
044c 031e 0005  |    |		.CONST	0x031e,0x0005
044e 0320 0006  |    |		.CONST	0x0320,0x0006
0450 0325 0007  | %  |		.CONST	0x0325,0x0007
0452 0000 0000  |    |		.BLANK	0000[0x1ae]