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

⟦f31d471f1⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »1014803.SEG«

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03b0       |    |		.CONST	0x03b0								; 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 0102       |    |		.CONST	0x0102								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0096       |    |		.CONST	0x0096								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x0472,0xc000,0x0000,0x0037,0x0884,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x15,0xfff9
0017 00bf       |    |		Action	Accept_Activation
0018 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x0018,0x0482,0xc000,0x0000,0x0037,0x0b14,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x18,0xffff
0019 e20f       |    |		Load	0x1,0xf
001a 0a01       |    |		Execute_Immediate	Plus,0x1
001b 0248       | H  |		Execute	Discrete,Check_In_Integer
001c e001       |    |		Load	0x0,0x1
001d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
001e 03f8       |    |		Declare_Type	Discrete,Constrained
001f 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 4805       |H   |		Short_Literal	0x5
0021 e001       |    |		Load	0x0,0x1
0022 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0023 e001       |    |		Load	0x0,0x1
0024 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0025 e001       |    |		Load	0x0,0x1
0026 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0027 4fff       |O   |		Short_Literal	-0x1
0028 4801       |H   |		Short_Literal	0x1
0029 00e2       |    |		Load_Encached	Integer_Cache
002a 03f8       |    |		Declare_Type	Discrete,Constrained
002b e001       |    |		Load	0x0,0x1
002c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
002d 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
002f 4805       |H   |		Short_Literal	0x5
0030 4800       |H   |		Short_Literal	0x0
0031 4801       |H   |		Short_Literal	0x1
0032 4800       |H   |		Short_Literal	0x0
0033 4801       |H   |		Short_Literal	0x1
0034 031d       |    |		Declare_Type	Variant_Record,Defined
0035 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x2 = 0x35,0xfffd
0036 481f       |H   |		Short_Literal	0x1f
0037 00da       |    |		Load_Top	At_Offset_2
0038 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
003a 4801       |H   |		Short_Literal	0x1
003b 035d       | ]  |		Declare_Type	Array,Defined
003c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1.0x3 = 0x3c,0xfffc
003d 00d9       |    |		Load_Top	At_Offset_1
003e 4801       |H   |		Short_Literal	0x1
003f 6294       |b   |		Indirect_Literal	Discrete,0x2d4,{0x00000000, 0x7fffffff}
0040 e21a       |    |		Load	0x1,0x1a
0041 0269       | i  |		Execute	Discrete,Last
0042 027c       | |  |		Execute	Discrete,Less
0043 6802       |h   |		Jump_Zero	0x46
0044 628f       |b   |		Indirect_Literal	Discrete,0x2d4,{0x00000000, 0x7fffffff}
0045 7802       |x   |		Jump	0x48
0046 e21a       |    |		Load	0x1,0x1a
0047 0269       | i  |		Execute	Discrete,Last
0048 e001       |    |		Load	0x0,0x1
0049 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
004a 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
004b 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
004d 4800       |H   |		Short_Literal	0x0
004e 4801       |H   |		Short_Literal	0x1
004f 4801       |H   |		Short_Literal	0x1
0050 4800       |H   |		Short_Literal	0x0
0051 4801       |H   |		Short_Literal	0x1
0052 4801       |H   |		Short_Literal	0x1
0053 031d       |    |		Declare_Type	Variant_Record,Defined
0054 e20f       |    |		Load	0x1,0xf								; Debug Table 0x1.0x4 = 0x54,0xfffb
0055 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0056 0248       | H  |		Execute	Discrete,Check_In_Integer
0057 4805       |H   |		Short_Literal	0x5
0058 0270       | p  |		Execute	Discrete,Divide
0059 00e3       |    |		Load_Encached	Natural_Cache
005a 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
005b e20f       |    |		Load	0x1,0xf								; Debug Table 0x1.0x5 = 0x5b,0xfffa
005c 00d9       |    |		Load_Top	At_Offset_1
005d 0272       | r  |		Execute	Discrete,Minus
005e 00e3       |    |		Load_Encached	Natural_Cache
005f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0060 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1.0x6 = 0x60,0xfff9
0061 e21a       |    |		Load	0x1,0x1a
0062 025b       | [  |		Execute	Discrete,Check_In_Type
0063 00db       |    |		Load_Top	At_Offset_3
0064 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0065 00d8       |    |		Load_Top	At_Offset_0
0066 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0067 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1.0x7 = 0x67,0xfff8
0068 e21a       |    |		Load	0x1,0x1a
0069 025b       | [  |		Execute	Discrete,Check_In_Type
006a e21d       |    |		Load	0x1,0x1d
006b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006c 00d8       |    |		Load_Top	At_Offset_0
006d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006e 029d 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call			; Debug Table 0x1.0x8 = 0x6e,0xfff7
0070 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call			; Debug Table 0x1.0x9 = 0x70,0xfff6
0072 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call			; Debug Table 0x1.0xa = 0x72,0xfff5
0074 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xb = 0x74,0xfff4
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 029b 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Unelaborated		; Debug Table 0x1.0xc = 0x76,0xfff3
0078 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0xd = 0x78,0xfff2
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0xe = 0x7a,0xfff1
007b 00c6       |    |		Action	Check_Subprogram_Elaborated
007c e002       |    |		Load	0x0,0x2
007d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
007e 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
007f e220       |    |		Load	0x1,0x20
0080 624f       |bO  |		Indirect_Literal	Discrete,0x2d0,{0x00000000, 0x00370b14}
0081 624a       |bJ  |		Indirect_Literal	Discrete,0x2cc,{0x00000000, 0x00000476}
0082 4800       |H   |		Short_Literal	0x0
0083 0007       |    |		Action	Break_Optional
0084 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0xf = 0x84,0xfff0
0085 00c6       |    |		Action	Check_Subprogram_Elaborated
0086 e002       |    |		Load	0x0,0x2
0087 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0088 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0089 e221       | !  |		Load	0x1,0x21
008a 6245       |bE  |		Indirect_Literal	Discrete,0x2d0,{0x00000000, 0x00370b14}
008b 623c       |b<  |		Indirect_Literal	Discrete,0x2c8,{0x00000000, 0x00000487}
008c 4800       |H   |		Short_Literal	0x0
008d 0007       |    |		Action	Break_Optional
008e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x10 = 0x8e,0xffef
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x11 = 0x90,0xffee
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x12 = 0x92,0xffed
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x13 = 0x94,0xffec
0095 00c7       |    |		Action	Elaborate_Subprogram
0096			BODY_0008:
0096 00bc       |    |		Action	Signal_Activated
0097 00bb       |    |		Action	Signal_Completion
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009e       |    |		.CONST	0x009e								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b 8222       | "  |		Call	0x1,0x22							; Debug Table 0x2 = .DEBUG	0x009b,0x04ac,0x1001,0x0000,0x0037,0x0884,0x0000,0x003d
													; Debug Table 0x2.0x0 = 0x9b,0xffff
009c 00e3       |    |		Load_Encached	Natural_Cache
009d 03f1       |    |		Declare_Variable	Discrete,With_Value
009e			BODY_0098:
009e e220       |    |		Load	0x1,0x20							; Debug Table 0x2.0x1 = 0x9e,0x1
009f 4801       |H   |		Short_Literal	0x1
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 8224       | $  |		Call	0x1,0x24
00a2 00d1       |    |		Pop_Control	Pop_Count_1
00a3 e221       | !  |		Load	0x1,0x21							; Debug Table 0x2.0x2 = 0xa3,0x2
00a4 4fff       |O   |		Short_Literal	-0x1
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 8224       | $  |		Call	0x1,0x24
00a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad       |    |		.CONST	0x00ad								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call				; Debug Table 0x3 = .DEBUG	0x00ab,0x04b4,0x1001,0x0000,0x0037,0x0884,0x0000,0x0041
													; Debug Table 0x3.0x0 = 0xab,0xffff
00ad			BODY_00a8:
00ad e220       |    |		Load	0x1,0x20							; Debug Table 0x3.0x1 = 0xad,0x1
00ae 8402       |    |		Call	0x2,0x2
00af 00d1       |    |		Pop_Control	Pop_Count_1
00b0 e221       | !  |		Load	0x1,0x21							; Debug Table 0x3.0x2 = 0xb0,0x2
00b1 8402       |    |		Call	0x2,0x2
00b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b3 0000 0000  |    |		.BLANK	0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4 = .DEBUG	0x00bb,0x04bc,0x1001,0x0000,0x0037,0x0884,0x0000,0x004b
													; Debug Table 0x4.0x0 = 0xbb,0x1
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00be 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00bf 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00c0 8225       | %  |		Call	0x1,0x25
00c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5 = .DEBUG	0x00cb,0x04c0,0x1001,0x0000,0x0037,0x0884,0x0000,0x005b
													; Debug Table 0x5.0x0 = 0xcb,0x1
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00ce 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00cf 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00d0 8225       | %  |		Call	0x1,0x25
00d1 00d1       |    |		Pop_Control	Pop_Count_1
00d2 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x1 = 0xd2,0x2
00d3 0120       |    |		Execute	Any,Is_Value
00d4 6802       |h   |		Jump_Zero	0xd7
00d5 e212       |    |		Load	0x1,0x12
00d6 7803       |x   |		Jump	0xda
00d7 e5fd       |    |		Load	0x2,-0x3
00d8 e212       |    |		Load	0x1,0x12
00d9 0119       |    |		Execute	Any,Check_In_Formal_Type
00da e5fe       |    |		Load	0x2,-0x2
00db 8213       |    |		Call	0x1,0x13
00dc c5fd       |    |		Store	0x2,-0x3
00dd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00de 0000 0000  |    |		.XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6 = .DEBUG	0x00e3,0x04c6,0x1001,0x0000,0x0037,0x0884,0x0000,0x006f
													; Debug Table 0x6.0x0 = 0xe3,0x1
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00e6 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00e7 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00e8 8225       | %  |		Call	0x1,0x25
00e9 00d1       |    |		Pop_Control	Pop_Count_1
00ea e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x1 = 0xea,0x2
00eb 0120       |    |		Execute	Any,Is_Value
00ec 6802       |h   |		Jump_Zero	0xef
00ed e212       |    |		Load	0x1,0x12
00ee 7803       |x   |		Jump	0xf2
00ef e5fd       |    |		Load	0x2,-0x3
00f0 e212       |    |		Load	0x1,0x12
00f1 0119       |    |		Execute	Any,Check_In_Formal_Type
00f2 e5fe       |    |		Load	0x2,-0x2
00f3 8213       |    |		Call	0x1,0x13
00f4 c5fd       |    |		Store	0x2,-0x3
00f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4608       |F   |		Jump_Case	0x9							; Debug Table 0x7 = .DEBUG	0x00fb,0x04cc,0x1005,0x0000,0x0037,0x0b14,0x0000,0x001e
00fc 7808       |x   |		Jump	0x105								; case 0x0
00fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00ff 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0100 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0101 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0102 7813       |x   |		Jump	0x116								; case 0x6
0103 781a       |x   |		Jump	0x11e								; case 0x7
0104 7824       |x$  |		Jump	0x129								; case 0x8
0105 00da       |    |		Load_Top	At_Offset_2
0106 016c       | l  |		Execute	Variant_Record,Is_Constrained
0107 7009       |p   |		Jump_Nonzero	0x111
0108 00cf       |    |		Action	Mark_Auxiliary
0109 4800       |H   |		Short_Literal	0x0
010a e5ff       |    |		Load	0x2,-0x1
010b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010c 00d8       |    |		Load_Top	At_Offset_0
010d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010e c5ff       |    |		Store	0x2,-0x1
010f 00ce       |    |		Action	Pop_Auxiliary
0110 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0111 00da       |    |		Load_Top	At_Offset_2
0112 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0113 4601       |F   |		Jump_Case	0x2
0114 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0115 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0116 00db       |    |		Load_Top	At_Offset_3
0117 4601       |F   |		Jump_Case	0x2
0118 7803       |x   |		Jump	0x11c								; case 0x0
0119 7800       |x   |		Jump	0x11a								; case 0x1
011a 4801       |H   |		Short_Literal	0x1
011b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011c 48ff       |H   |		Short_Literal	0xff
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 00db       |    |		Load_Top	At_Offset_3
011f e5fe       |    |		Load	0x2,-0x2
0120 4601       |F   |		Jump_Case	0x2
0121 7803       |x   |		Jump	0x125								; case 0x0
0122 7800       |x   |		Jump	0x123								; case 0x1
0123 4801       |H   |		Short_Literal	0x1
0124 7801       |x   |		Jump	0x126
0125 48ff       |H   |		Short_Literal	0xff
0126 e5ff       |    |		Load	0x2,-0x1
0127 031b       |    |		Declare_Type	Variant_Record,Constrained
0128 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0129 00db       |    |		Load_Top	At_Offset_3
012a e5fe       |    |		Load	0x2,-0x2
012b e5ff       |    |		Load	0x2,-0x1
012c 1c06       |    |		Execute_Immediate	Run_Utility,0x6
012d e5ff       |    |		Load	0x2,-0x1
012e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
012f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x8 = .DEBUG	0x0133,0x04ce,0x1005,0x0000,0x0037,0x0b14,0x0000,0x005a
0134 00da       |    |		Load_Top	At_Offset_2
0135 01d8       |    |		Execute	Vector,Element_Type
0136 02ff       |    |		Declare_Variable	Variant_Record
0137 00d8       |    |		Load_Top	At_Offset_0
0138 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0139 00db       |    |		Load_Top	At_Offset_3
013a 01dc       |    |		Execute	Vector,Last
013b e5ff       |    |		Load	0x2,-0x1
013c 01dd       |    |		Execute	Vector,First
013d 0263       | c  |		Execute	Discrete,Above_Bound
013e 7006       |p   |		Jump_Nonzero	0x145
013f 00da       |    |		Load_Top	At_Offset_2
0140 00d9       |    |		Load_Top	At_Offset_1
0141 e5ff       |    |		Load	0x2,-0x1
0142 01d6       |    |		Execute	Vector,Field_Write
0143 0a01       |    |		Execute_Immediate	Plus,0x1
0144 7ff8       |    |		Jump	0x13d
0145 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x9 = .DEBUG	0x014b,0x04d0,0x1005,0x0000,0x0037,0x0b14,0x0000,0x0065
014c 7808       |x   |		Jump	0x155								; case 0x0
014d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
014e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
014f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0150 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0151 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0152 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0153 7805       |x   |		Jump	0x159								; case 0x7
0154 780e       |x   |		Jump	0x163								; case 0x8
0155 00da       |    |		Load_Top	At_Offset_2
0156 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0157 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0158 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0159 00db       |    |		Load_Top	At_Offset_3
015a 4801       |H   |		Short_Literal	0x1
015b e5fe       |    |		Load	0x2,-0x2
015c e001       |    |		Load	0x0,0x1
015d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
015e 035b       | [  |		Declare_Type	Array,Constrained
015f 4801       |H   |		Short_Literal	0x1
0160 e5ff       |    |		Load	0x2,-0x1
0161 031b       |    |		Declare_Type	Variant_Record,Constrained
0162 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0163 00db       |    |		Load_Top	At_Offset_3
0164 00db       |    |		Load_Top	At_Offset_3
0165 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0166 4801       |H   |		Short_Literal	0x1
0167 e5fe       |    |		Load	0x2,-0x2
0168 e001       |    |		Load	0x0,0x1
0169 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
016a 0334       | 4  |		Declare_Variable	Array,With_Constraint
016b 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
016c 016a       | j  |		QQ_execute	Variant_Record,XXX
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xa = .DEBUG	0x0173,0x04d2,0x1002,0x0000,0x0037,0x0b14,0x0000,0x00b0
													; Debug Table 0xa.0x0 = 0x173,0xffff
0174 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0175			BODY_0170:
0175 00cf       |    |		Action	Mark_Auxiliary
0176 481f       |H   |		Short_Literal	0x1f							; Debug Table 0xa.0x1 = 0x176,0x1
0177 4800       |H   |		Short_Literal	0x0
0178 0007       |    |		Action	Break_Optional
0179 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x2 = 0x179,0x2
017a e002       |    |		Load	0x0,0x2
017b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
017d 6803       |h   |		Jump_Zero	0x181
017e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x3 = 0x17e,0x3
017f 0a01       |    |		Execute_Immediate	Plus,0x1
0180 c402       |    |		Store	0x2,0x2
0181 00c8       |    |		Action	Pop_Auxiliary_Range
0182 3ff6       |?   |		Loop_Increasing	0x179
0183 00ce       |    |		Action	Pop_Auxiliary
0184 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x4 = 0x184,0x4
0185 00ca       |    |		Action	Exit_Nullary_Function
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d       |    |		.CONST	0x018d								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call				; Debug Table 0xb = .DEBUG	0x018b,0x04de,0x1002,0x0000,0x0037,0x0b14,0x0000,0x00db
													; Debug Table 0xb.0x0 = 0x18b,0xffff
018d			BODY_0188:
018d 00cf       |    |		Action	Mark_Auxiliary
018e 481f       |H   |		Short_Literal	0x1f							; Debug Table 0xb.0x1 = 0x18e,0x1
018f 4800       |H   |		Short_Literal	0x0
0190 0007       |    |		Action	Break_Optional
0191 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x2 = 0x191,0x2
0192 e5ff       |    |		Load	0x2,-0x1
0193 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0194 01d5       |    |		Execute	Vector,Field_Reference
0195 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0196 681d       |h   |		Jump_Zero	0x1b4
0197 00cf       |    |		Action	Mark_Auxiliary
0198 481f       |H   |		Short_Literal	0x1f							; Debug Table 0xb.0x3 = 0x198,0x3
0199 4800       |H   |		Short_Literal	0x0
019a 0007       |    |		Action	Break_Optional
019b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x4 = 0x19b,0x4
019c e405       |    |		Load	0x2,0x5
019d 027e       | ~  |		Execute	Discrete,Not_Equal
019e 6812       |h   |		Jump_Zero	0x1b1
019f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x5 = 0x19f,0x5
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
01a2 01d5       |    |		Execute	Vector,Field_Reference
01a3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a4 680c       |h   |		Jump_Zero	0x1b1
01a5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x6 = 0x1a5,0x6
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
01a8 01d5       |    |		Execute	Vector,Field_Reference
01a9 e405       |    |		Load	0x2,0x5
01aa e5ff       |    |		Load	0x2,-0x1
01ab 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
01ac 01d5       |    |		Execute	Vector,Field_Reference
01ad 8402       |    |		Call	0x2,0x2
01ae 6802       |h   |		Jump_Zero	0x1b1
01af 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x7 = 0x1af,0x7
01b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b1 00c8       |    |		Action	Pop_Auxiliary_Range
01b2 3fe8       |?   |		Loop_Increasing	0x19b
01b3 00ce       |    |		Action	Pop_Auxiliary
01b4 00c8       |    |		Action	Pop_Auxiliary_Range
01b5 3fdb       |?   |		Loop_Increasing	0x191
01b6 00ce       |    |		Action	Pop_Auxiliary
01b7 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x8 = 0x1b7,0x8
01b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b9 0000 0000  |    |		.BLANK	0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d0       |    |		.CONST	0x01d0								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0004       |    |		.CONST	0x0004								; Number of locals
01c3			INIT_01c0:
01c3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xc = .DEBUG	0x01c3,0x04f2,0x1001,0x0000,0x0037,0x0b14,0x0000,0x0162
													; Debug Table 0xc.0x0 = 0x1c3,0xffff
01c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 e21a       |    |		Load	0x1,0x1a
01c7 025b       | [  |		Execute	Discrete,Check_In_Type
01c8 0270       | p  |		Execute	Discrete,Divide
01c9 e21a       |    |		Load	0x1,0x1a
01ca 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01cb 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xc.0x1 = 0x1cb,0xfffe
01cc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01cd e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x2 = 0x1cd,0xfffd
01ce 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01cf 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01d0			BODY_01c0:
01d0 e21c       |    |		Load	0x1,0x1c							; Debug Table 0xc.0x3 = 0x1d0,0x1
01d1 0337       | 7  |		Declare_Variable	Array
01d2 481f       |H   |		Short_Literal	0x1f
01d3 4800       |H   |		Short_Literal	0x0
01d4 4800       |H   |		Short_Literal	0x0
01d5 e21b       |    |		Load	0x1,0x1b
01d6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01d7 00d9       |    |		Load_Top	At_Offset_1
01d8 e405       |    |		Load	0x2,0x5
01d9 01d6       |    |		Execute	Vector,Field_Write
01da 3ff9       |?   |		Loop_Increasing	0x1d4
01db e5fd       |    |		Load	0x2,-0x3
01dc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01dd 00cf       |    |		Action	Mark_Auxiliary
01de 481f       |H   |		Short_Literal	0x1f							; Debug Table 0xc.0x4 = 0x1de,0x2
01df 4800       |H   |		Short_Literal	0x0
01e0 0007       |    |		Action	Break_Optional
01e1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x5 = 0x1e1,0x3
01e2 e002       |    |		Load	0x0,0x2
01e3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e5 6842       |hB  |		Jump_Zero	0x228
01e6 e403       |    |		Load	0x2,0x3								; Debug Table 0xc.0x6 = 0x1e6,0x4
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 027f       |    |		Execute	Discrete,Equal
01e9 681a       |h   |		Jump_Zero	0x204
01ea 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x7 = 0x1ea,0x5
01eb e21b       |    |		Load	0x1,0x1b
01ec 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ed e404       |    |		Load	0x2,0x4
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01f0 e5fd       |    |		Load	0x2,-0x3
01f1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01f2 01dc       |    |		Execute	Vector,Last
01f3 00d9       |    |		Load_Top	At_Offset_1
01f4 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01f5 e404       |    |		Load	0x2,0x4
01f6 00d9       |    |		Load_Top	At_Offset_1
01f7 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01f8 e5fe       |    |		Load	0x2,-0x2
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01fb e404       |    |		Load	0x2,0x4
01fc 00d9       |    |		Load_Top	At_Offset_1
01fd 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01fe 00d9       |    |		Load_Top	At_Offset_1
01ff e5fd       |    |		Load	0x2,-0x3
0200 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0201 01d6       |    |		Execute	Vector,Field_Write
0202 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0xc.0x8 = 0x202,0x6
0203 7826       |x&  |		Jump	0x22a
0204 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x9 = 0x204,0x7
0205 e21b       |    |		Load	0x1,0x1b
0206 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0207 e404       |    |		Load	0x2,0x4
0208 00d9       |    |		Load_Top	At_Offset_1
0209 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
020a e404       |    |		Load	0x2,0x4
020b e402       |    |		Load	0x2,0x2
020c 0273       | s  |		Execute	Discrete,Plus
020d 0248       | H  |		Execute	Discrete,Check_In_Integer
020e 0aff       |    |		Execute_Immediate	Plus,-0x1
020f 00d9       |    |		Load_Top	At_Offset_1
0210 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0211 e404       |    |		Load	0x2,0x4
0212 00d9       |    |		Load_Top	At_Offset_1
0213 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0214 e5fe       |    |		Load	0x2,-0x2
0215 00d9       |    |		Load_Top	At_Offset_1
0216 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0217 e404       |    |		Load	0x2,0x4
0218 00d9       |    |		Load_Top	At_Offset_1
0219 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
021a 00d9       |    |		Load_Top	At_Offset_1
021b e5fd       |    |		Load	0x2,-0x3
021c 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
021d 01d6       |    |		Execute	Vector,Field_Write
021e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0xa = 0x21e,0x8
021f e5fd       |    |		Load	0x2,-0x3
0220 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0221 01d5       |    |		Execute	Vector,Field_Reference
0222 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0223 0a01       |    |		Execute_Immediate	Plus,0x1
0224 c404       |    |		Store	0x2,0x4
0225 e403       |    |		Load	0x2,0x3								; Debug Table 0xc.0xb = 0x225,0x9
0226 0a01       |    |		Execute_Immediate	Plus,0x1
0227 c403       |    |		Store	0x2,0x3
0228 00c8       |    |		Action	Pop_Auxiliary_Range
0229 3fb7       |?   |		Loop_Increasing	0x1e1
022a 00ce       |    |		Action	Pop_Auxiliary
022b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0xc.0xc = 0x22b,0xa
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023d       | =  |		.CONST	0x023d								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0006       |    |		.CONST	0x0006								; Number of locals
0233			INIT_0230:
0233 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call				; Debug Table 0xd = .DEBUG	0x0233,0x050e,0x3801,0x0002,0x0037,0x0b14,0x0000,0x0258
													; Debug Table 0xd.0x0 = 0x233,0xffff
0235 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call				; Debug Table 0xd.0x1 = 0x235,0xfffe
0237 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call				; Debug Table 0xd.0x2 = 0x237,0xfffd
0239 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call				; Debug Table 0xd.0x3 = 0x239,0xfffc
023b 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call				; Debug Table 0xd.0x4 = 0x23b,0xfffb
023d			BODY_0230:
023d 8406       |    |		Call	0x2,0x6								; Debug Table 0xd.0x5 = 0x23d,0x1
023e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
023f 0000       |    |		.XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call				; Debug Table 0xe = .DEBUG	0x0243,0x051c,0x1001,0x0000,0x0037,0x0b14,0x0000,0x04fe
													; Debug Table 0xe.0x0 = 0x243,0xffff
0245			BODY_0240:
0245 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe.0x1 = 0x245,0x1
0246 e7ff       |    |		Load	0x3,-0x1
0247 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0248 01d5       |    |		Execute	Vector,Field_Reference
0249 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
024a e5ff       |    |		Load	0x2,-0x1
024b e7ff       |    |		Load	0x3,-0x1
024c 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
024d 01d5       |    |		Execute	Vector,Field_Reference
024e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
024f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xe.0x2 = 0x24f,0x2
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0265       | e  |		.CONST	0x0265								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf = .DEBUG	0x0253,0x0524,0x1002,0x0000,0x0037,0x0b14,0x0000,0x00e3
													; Debug Table 0xf.0x0 = 0x253,0xffff
0254 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0255 e7fe       |    |		Load	0x3,-0x2
0256 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0257 e7fe       |    |		Load	0x3,-0x2
0258 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0259 0262       | b  |		Execute	Discrete,In_Range
025a 00e1       |    |		Load_Encached	Boolean_Cache
025b 03f1       |    |		Declare_Variable	Discrete,With_Value
025c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf.0x1 = 0x25c,0xfffe
025d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
025e e7fe       |    |		Load	0x3,-0x2
025f 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0260 e7fe       |    |		Load	0x3,-0x2
0261 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0262 0262       | b  |		Execute	Discrete,In_Range
0263 00e1       |    |		Load_Encached	Boolean_Cache
0264 03f1       |    |		Declare_Variable	Discrete,With_Value
0265			BODY_0250:
0265 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0x2 = 0x265,0x1
0266 00d9       |    |		Load_Top	At_Offset_1
0267 0278       | x  |		Execute	Discrete,Or
0268 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0279       | y  |		.CONST	0x0279								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0004       |    |		.CONST	0x0004								; Number of locals
0273			INIT_0270:
0273 029f 0373  |   s|		Declare_Subprogram	INIT_0370,For_Call				; Debug Table 0x10 = .DEBUG	0x0273,0x052c,0x1801,0x0002,0x0037,0x0b14,0x0000,0x029f
													; Debug Table 0x10.0x0 = 0x273,0xffff
0275 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x10.0x1 = 0x275,0xfffe
0276 e003       |    |		Load	0x0,0x3								; Debug Table 0x10.0x2 = 0x276,0xfffd
0277 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0278 0322       | "  |		Declare_Variable	Record
0279			BODY_0270:
0279 00cf       |    |		Action	Mark_Auxiliary
027a 0007       |    |		Action	Break_Optional							; Debug Table 0x10.0x3 = 0x27a,0x1
027b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x10.0x4 = 0x27b,0x2
027c e7ff       |    |		Load	0x3,-0x1
027d 00e3       |    |		Load_Encached	Natural_Cache
027e 00e1       |    |		Load_Encached	Boolean_Cache
027f 8210       |    |		Call	0x1,0x10
0280 e5fc       |    |		Load	0x2,-0x4
0281 85fd       |    |		Call	0x2,-0x3
0282 c603       |    |		Store	0x3,0x3
0283 c7fe       |    |		Store	0x3,-0x2
0284 00d2       |    |		Pop_Control	Pop_Count_2
0285 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x5 = 0x285,0x3
0286 700a       |p   |		Jump_Nonzero	0x291
0287 e214       |    |		Load	0x1,0x14							; Debug Table 0x10.0x6 = 0x287,0x4
0288 6804       |h   |		Jump_Zero	0x28d
0289 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x10.0x7 = 0x289,0x5
028a e004       |    |		Load	0x0,0x4
028b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
028c 7802       |x   |		Jump	0x28f
028d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x10.0x8 = 0x28d,0x6
028e 8211       |    |		Call	0x1,0x11
028f 00c9       |    |		Action	Pop_Auxiliary_Loop
0290 7fea       |    |		Jump	0x27b
0291 00ce       |    |		Action	Pop_Auxiliary
0292 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x10.0x9 = 0x292,0x7
0293 0000 0000  |    |		.BLANK	0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a0       |    |		.CONST	0x02a0								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0002       |    |		.CONST	0x0002								; Number of locals
029b			INIT_0298:
029b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11 = .DEBUG	0x029b,0x0542,0x1801,0x0002,0x0037,0x0b14,0x0000,0x030e
													; Debug Table 0x11.0x0 = 0x29b,0xffff
029c e5fe       |    |		Load	0x2,-0x2
029d 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
029e 01d5       |    |		Execute	Vector,Field_Reference
029f 0007       |    |		Action	Break_Optional
02a0			BODY_0298:
02a0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11.0x1 = 0x2a0,0x1
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02a5 e5fe       |    |		Load	0x2,-0x2
02a6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a7 01ce       |    |		Execute	Vector,Slice_Write
02a8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x2 = 0x2a8,0x2
02a9 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02aa 0f01       |    |		Execute_Immediate	Equal,0x1
02ab 6811       |h   |		Jump_Zero	0x2bd
02ac 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x3 = 0x2ac,0x3
02ad 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02ae 0aff       |    |		Execute_Immediate	Plus,-0x1
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02b1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x4 = 0x2b1,0x4
02b2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02b3 e7fe       |    |		Load	0x3,-0x2
02b4 0aff       |    |		Execute_Immediate	Plus,-0x1
02b5 0248       | H  |		Execute	Discrete,Check_In_Integer
02b6 e001       |    |		Load	0x0,0x1
02b7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02b8 025b       | [  |		Execute	Discrete,Check_In_Type
02b9 0273       | s  |		Execute	Discrete,Plus
02ba 00d9       |    |		Load_Top	At_Offset_1
02bb 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x5 = 0x2bd,0x5
02be 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02bf e7fe       |    |		Load	0x3,-0x2
02c0 0273       | s  |		Execute	Discrete,Plus
02c1 00d9       |    |		Load_Top	At_Offset_1
02c2 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02c3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x6 = 0x2c3,0x6
02c4 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02c5 00d9       |    |		Load_Top	At_Offset_1
02c6 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02c7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000487}
02cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000476}
02d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00370b14}
02d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e3       |    |		.CONST	0x02e3								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0004       |    |		.CONST	0x0004								; Number of locals
02db			INIT_02d8:
02db e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x12 = .DEBUG	0x02db,0x0552,0x1801,0x0002,0x0037,0x0b14,0x0000,0x037b
													; Debug Table 0x12.0x0 = 0x2db,0xffff
02dc e5fe       |    |		Load	0x2,-0x2
02dd 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
02de 01d5       |    |		Execute	Vector,Field_Reference
02df 0007       |    |		Action	Break_Optional
02e0 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x12.0x1 = 0x2e0,0xfffe
02e1 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call				; Debug Table 0x12.0x2 = 0x2e1,0xfffd
02e3			BODY_02d8:
02e3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x12.0x3 = 0x2e3,0x1
02e4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02e7 e602       |    |		Load	0x3,0x2
02e8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02e9 00da       |    |		Load_Top	At_Offset_2
02ea 035b       | [  |		Declare_Type	Array,Constrained
02eb 00d0       |    |		Action	Swap_Control
02ec 01cd       |    |		Execute	Vector,Slice_Reference
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 8604       |    |		Call	0x3,0x4
02ef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f8       |    |		.CONST	0x02f8								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0002       |    |		.CONST	0x0002								; Number of locals
02f3			INIT_02f0:
02f3 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13 = .DEBUG	0x02f3,0x055c,0x1801,0x0002,0x0037,0x0b14,0x0000,0x03bc
													; Debug Table 0x13.0x0 = 0x2f3,0xffff
02f4 e5fe       |    |		Load	0x2,-0x2
02f5 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
02f6 01d5       |    |		Execute	Vector,Field_Reference
02f7 0007       |    |		Action	Break_Optional
02f8			BODY_02f0:
02f8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x1 = 0x2f8,0x1
02f9 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02fa 00d9       |    |		Load_Top	At_Offset_1
02fb 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02fc 027f       |    |		Execute	Discrete,Equal
02fd 0f00       |    |		Execute_Immediate	Equal,0x0
02fe a7ff       |    |		Store_Unchecked	0x3,-0x1
02ff 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x13.0x2 = 0x2ff,0x2
0300 6812       |h   |		Jump_Zero	0x313
0301 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x3 = 0x301,0x3
0302 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0303 00d9       |    |		Load_Top	At_Offset_1
0304 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0305 0273       | s  |		Execute	Discrete,Plus
0306 e001       |    |		Load	0x0,0x1
0307 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0308 025b       | [  |		Execute	Discrete,Check_In_Type
0309 00d9       |    |		Load_Top	At_Offset_1
030a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
030b 0007       |    |		Action	Break_Optional							; Debug Table 0x13.0x4 = 0x30b,0x4
030c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x5 = 0x30c,0x5
030d 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
030e e5fe       |    |		Load	0x2,-0x2
030f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0310 01d7       |    |		Execute	Vector,Field_Read
0311 a7fe       |    |		Store_Unchecked	0x3,-0x2
0312 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x13.0x6 = 0x312,0x6
0313 4800       |H   |		Short_Literal	0x0							; Debug Table 0x13.0x7 = 0x313,0x7
0314 a7fe       |    |		Store_Unchecked	0x3,-0x2
0315 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0316 0000 0000  |    |		.XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031e       |    |		.CONST	0x031e								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0003       |    |		.CONST	0x0003								; Number of locals
031b			INIT_0318:
031b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x14 = .DEBUG	0x031b,0x056e,0x1801,0x0002,0x0037,0x0b14,0x0000,0x0432
													; Debug Table 0x14.0x0 = 0x31b,0xffff
031c e001       |    |		Load	0x0,0x1								; Debug Table 0x14.0x1 = 0x31c,0xfffe
031d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
031e			BODY_0318:
031e 00cf       |    |		Action	Mark_Auxiliary
031f 4802       |H   |		Short_Literal	0x2							; Debug Table 0x14.0x2 = 0x31f,0x1
0320 4801       |H   |		Short_Literal	0x1
0321 0007       |    |		Action	Break_Optional
0322 e001       |    |		Load	0x0,0x1								; Debug Table 0x14.0x3 = 0x322,0x2
0323 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0324 00e1       |    |		Load_Encached	Boolean_Cache
0325 8405       |    |		Call	0x2,0x5
0326 c602       |    |		Store	0x3,0x2
0327 c603       |    |		Store	0x3,0x3
0328 e602       |    |		Load	0x3,0x2								; Debug Table 0x14.0x4 = 0x328,0x3
0329 680c       |h   |		Jump_Zero	0x336
032a e001       |    |		Load	0x0,0x1								; Debug Table 0x14.0x5 = 0x32a,0x4
032b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032c 0322       | "  |		Declare_Variable	Record
032d e5fc       |    |		Load	0x2,-0x4
032e 00d9       |    |		Load_Top	At_Offset_1
032f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0330 e603       |    |		Load	0x3,0x3
0331 00d9       |    |		Load_Top	At_Offset_1
0332 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0333 e5fb       |    |		Load	0x2,-0x5
0334 017d       | }  |		Execute	Record,Structure_Write
0335 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x14.0x6 = 0x335,0x5
0336 8404       |    |		Call	0x2,0x4								; Debug Table 0x14.0x7 = 0x336,0x6
0337 00c8       |    |		Action	Pop_Auxiliary_Range
0338 3fe9       |?   |		Loop_Increasing	0x322
0339 00ce       |    |		Action	Pop_Auxiliary
033a 4887       |H   |		Short_Literal	0x87							; Debug Table 0x14.0x8 = 0x33a,0x7
033b 0257       | W  |		Execute	Discrete,Raise
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x15 = .DEBUG	0x0343,0x0582,0x1002,0x0000,0x0037,0x0b14,0x0000,0x0505
													; Debug Table 0x15.0x0 = 0x343,0x1
0344 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0345 e5ff       |    |		Load	0x2,-0x1
0346 e7ff       |    |		Load	0x3,-0x1
0347 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0348 01d5       |    |		Execute	Vector,Field_Reference
0349 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
034a e5ff       |    |		Load	0x2,-0x1
034b e7ff       |    |		Load	0x3,-0x1
034c 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
034d 01d5       |    |		Execute	Vector,Field_Reference
034e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
034f 00d9       |    |		Load_Top	At_Offset_1
0350 00d9       |    |		Load_Top	At_Offset_1
0351 e802       |    |		Load	0x4,0x2
0352 035b       | [  |		Declare_Type	Array,Constrained
0353 00db       |    |		Load_Top	At_Offset_3
0354 01cd       |    |		Execute	Vector,Slice_Reference
0355 00d8       |    |		Load_Top	At_Offset_0
0356 01da       |    |		Execute	Vector,Bounds
0357 e001       |    |		Load	0x0,0x1
0358 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0359 035b       | [  |		Declare_Type	Array,Constrained
035a 0337       | 7  |		Declare_Variable	Array
035b 00d8       |    |		Load_Top	At_Offset_0
035c 01d9       |    |		Execute	Vector,Reverse_Bounds
035d 0263       | c  |		Execute	Discrete,Above_Bound
035e 7005       |p   |		Jump_Nonzero	0x364
035f 4800       |H   |		Short_Literal	0x0
0360 00d9       |    |		Load_Top	At_Offset_1
0361 e806       |    |		Load	0x4,0x6
0362 01d6       |    |		Execute	Vector,Field_Write
0363 3ffb       |?   |		Loop_Increasing	0x35f
0364 00d0       |    |		Action	Swap_Control
0365 00d1       |    |		Pop_Control	Pop_Count_1
0366 00da       |    |		Load_Top	At_Offset_2
0367 00da       |    |		Load_Top	At_Offset_2
0368 e802       |    |		Load	0x4,0x2
0369 01ce       |    |		Execute	Vector,Slice_Write
036a 00d3       |    |		Pop_Control	Pop_Count_3
036b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x15.0x1 = 0x36b,0x2
036c 00ca       |    |		Action	Exit_Nullary_Function
036d 0000 0000  |    |		.XXX[0x3]
036f 0000       |    |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037a       | z  |		.CONST	0x037a								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x16 = .DEBUG	0x0373,0x0588,0x1802,0x0002,0x0037,0x0b14,0x0000,0x02ac
													; Debug Table 0x16.0x0 = 0x373,0xffff
0374 01dd       |    |		Execute	Vector,First
0375 e7fe       |    |		Load	0x3,-0x2
0376 0273       | s  |		Execute	Discrete,Plus
0377 e001       |    |		Load	0x0,0x1
0378 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0379 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
037a			BODY_0370:
037a e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x16.0x1 = 0x37a,0x1
037b 00d9       |    |		Load_Top	At_Offset_1
037c e7ff       |    |		Load	0x3,-0x1
037d 01dc       |    |		Execute	Vector,Last
037e 00d9       |    |		Load_Top	At_Offset_1
037f 00d9       |    |		Load_Top	At_Offset_1
0380 e803       |    |		Load	0x4,0x3
0381 035b       | [  |		Declare_Type	Array,Constrained
0382 00db       |    |		Load_Top	At_Offset_3
0383 01cd       |    |		Execute	Vector,Slice_Reference
0384 00d8       |    |		Load_Top	At_Offset_0
0385 01da       |    |		Execute	Vector,Bounds
0386 e001       |    |		Load	0x0,0x1
0387 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0388 035b       | [  |		Declare_Type	Array,Constrained
0389 0337       | 7  |		Declare_Variable	Array
038a 00d8       |    |		Load_Top	At_Offset_0
038b 01d9       |    |		Execute	Vector,Reverse_Bounds
038c 0263       | c  |		Execute	Discrete,Above_Bound
038d 7005       |p   |		Jump_Nonzero	0x393
038e 4800       |H   |		Short_Literal	0x0
038f 00d9       |    |		Load_Top	At_Offset_1
0390 e807       |    |		Load	0x4,0x7
0391 01d6       |    |		Execute	Vector,Field_Write
0392 3ffb       |?   |		Loop_Increasing	0x38e
0393 00d0       |    |		Action	Swap_Control
0394 00d1       |    |		Pop_Control	Pop_Count_1
0395 00da       |    |		Load_Top	At_Offset_2
0396 00da       |    |		Load_Top	At_Offset_2
0397 e803       |    |		Load	0x4,0x3
0398 01ce       |    |		Execute	Vector,Slice_Write
0399 00d3       |    |		Pop_Control	Pop_Count_3
039a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x16.0x2 = 0x39a,0x2
039b 00ca       |    |		Action	Exit_Nullary_Function
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x17 = .DEBUG	0x03a3,0x0590,0x1801,0x0002,0x0037,0x0b14,0x0000,0x038f
													; Debug Table 0x17.0x0 = 0x3a3,0x1
03a4 00db       |    |		Load_Top	At_Offset_3
03a5 8402       |    |		Call	0x2,0x2
03a6 00d1       |    |		Pop_Control	Pop_Count_1
03a7 c603       |    |		Store	0x3,0x3
03a8 e603       |    |		Load	0x3,0x3								; Debug Table 0x17.0x1 = 0x3a8,0x2
03a9 00db       |    |		Load_Top	At_Offset_3
03aa 8403       |    |		Call	0x2,0x3
03ab 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug Table
03b0 ; --------------------------------------------------------------------------------------
03b0 0003 0018  |    |		.CONST	0x0003,0x0018
03b2 000b 0472  |   r|		.DEBUG	0x000b,0x0472,0xc000,0x0000,0x0037,0x0884,0x0000,0x0007
03ba 0018 0482  |    |		.DEBUG	0x0018,0x0482,0xc000,0x0000,0x0037,0x0b14,0x0000,0x0007
03c2 009b 04ac  |    |		.DEBUG	0x009b,0x04ac,0x1001,0x0000,0x0037,0x0884,0x0000,0x003d
03ca 00ab 04b4  |    |		.DEBUG	0x00ab,0x04b4,0x1001,0x0000,0x0037,0x0884,0x0000,0x0041
03d2 00bb 04bc  |    |		.DEBUG	0x00bb,0x04bc,0x1001,0x0000,0x0037,0x0884,0x0000,0x004b
03da 00cb 04c0  |    |		.DEBUG	0x00cb,0x04c0,0x1001,0x0000,0x0037,0x0884,0x0000,0x005b
03e2 00e3 04c6  |    |		.DEBUG	0x00e3,0x04c6,0x1001,0x0000,0x0037,0x0884,0x0000,0x006f
03ea 00fb 04cc  |    |		.DEBUG	0x00fb,0x04cc,0x1005,0x0000,0x0037,0x0b14,0x0000,0x001e
03f2 0133 04ce  | 3  |		.DEBUG	0x0133,0x04ce,0x1005,0x0000,0x0037,0x0b14,0x0000,0x005a
03fa 014b 04d0  | K  |		.DEBUG	0x014b,0x04d0,0x1005,0x0000,0x0037,0x0b14,0x0000,0x0065
0402 0173 04d2  | s  |		.DEBUG	0x0173,0x04d2,0x1002,0x0000,0x0037,0x0b14,0x0000,0x00b0
040a 018b 04de  |    |		.DEBUG	0x018b,0x04de,0x1002,0x0000,0x0037,0x0b14,0x0000,0x00db
0412 01c3 04f2  |    |		.DEBUG	0x01c3,0x04f2,0x1001,0x0000,0x0037,0x0b14,0x0000,0x0162
041a 0233 050e  | 3  |		.DEBUG	0x0233,0x050e,0x3801,0x0002,0x0037,0x0b14,0x0000,0x0258
0422 0243 051c  | C  |		.DEBUG	0x0243,0x051c,0x1001,0x0000,0x0037,0x0b14,0x0000,0x04fe
042a 0253 0524  | S $|		.DEBUG	0x0253,0x0524,0x1002,0x0000,0x0037,0x0b14,0x0000,0x00e3
0432 0273 052c  | s ,|		.DEBUG	0x0273,0x052c,0x1801,0x0002,0x0037,0x0b14,0x0000,0x029f
043a 029b 0542  |   B|		.DEBUG	0x029b,0x0542,0x1801,0x0002,0x0037,0x0b14,0x0000,0x030e
0442 02db 0552  |   R|		.DEBUG	0x02db,0x0552,0x1801,0x0002,0x0037,0x0b14,0x0000,0x037b
044a 02f3 055c  |   \|		.DEBUG	0x02f3,0x055c,0x1801,0x0002,0x0037,0x0b14,0x0000,0x03bc
0452 031b 056e  |   n|		.DEBUG	0x031b,0x056e,0x1801,0x0002,0x0037,0x0b14,0x0000,0x0432
045a 0343 0582  | C  |		.DEBUG	0x0343,0x0582,0x1002,0x0000,0x0037,0x0b14,0x0000,0x0505
0462 0373 0588  | s  |		.DEBUG	0x0373,0x0588,0x1802,0x0002,0x0037,0x0b14,0x0000,0x02ac
046a 03a3 0590  |    |		.DEBUG	0x03a3,0x0590,0x1801,0x0002,0x0037,0x0b14,0x0000,0x038f
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0x0
0472 ; --------------------------------------------------------------------------------------
0472 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
0474 000b ffff  |    |		.CONST	0x000b,0xffff
0476 000c fffe  |    |		.CONST	0x000c,0xfffe
0478 000d fffd  |    |		.CONST	0x000d,0xfffd
047a 000f fffc  |    |		.CONST	0x000f,0xfffc
047c 0011 fffb  |    |		.CONST	0x0011,0xfffb
047e 0013 fffa  |    |		.CONST	0x0013,0xfffa
0480 0015 fff9  |    |		.CONST	0x0015,0xfff9
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug3 Subtable 0x1
0482 ; --------------------------------------------------------------------------------------
0482 0014 0000  |    |		.DBG3TAB	0x0014,0x0000
0484 0018 ffff  |    |		.CONST	0x0018,0xffff
0486 001f fffe  |    |		.CONST	0x001f,0xfffe
0488 0035 fffd  | 5  |		.CONST	0x0035,0xfffd
048a 003c fffc  | <  |		.CONST	0x003c,0xfffc
048c 0054 fffb  | T  |		.CONST	0x0054,0xfffb
048e 005b fffa  | [  |		.CONST	0x005b,0xfffa
0490 0060 fff9  | `  |		.CONST	0x0060,0xfff9
0492 0067 fff8  | g  |		.CONST	0x0067,0xfff8
0494 006e fff7  | n  |		.CONST	0x006e,0xfff7
0496 0070 fff6  | p  |		.CONST	0x0070,0xfff6
0498 0072 fff5  | r  |		.CONST	0x0072,0xfff5
049a 0074 fff4  | t  |		.CONST	0x0074,0xfff4
049c 0076 fff3  | v  |		.CONST	0x0076,0xfff3
049e 0078 fff2  | x  |		.CONST	0x0078,0xfff2
04a0 007a fff1  | z  |		.CONST	0x007a,0xfff1
04a2 0084 fff0  |    |		.CONST	0x0084,0xfff0
04a4 008e ffef  |    |		.CONST	0x008e,0xffef
04a6 0090 ffee  |    |		.CONST	0x0090,0xffee
04a8 0092 ffed  |    |		.CONST	0x0092,0xffed
04aa 0094 ffec  |    |		.CONST	0x0094,0xffec
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug3 Subtable 0x2
04ac ; --------------------------------------------------------------------------------------
04ac 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
04ae 009b ffff  |    |		.CONST	0x009b,0xffff
04b0 009e 0001  |    |		.CONST	0x009e,0x0001
04b2 00a3 0002  |    |		.CONST	0x00a3,0x0002
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0x3
04b4 ; --------------------------------------------------------------------------------------
04b4 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
04b6 00ab ffff  |    |		.CONST	0x00ab,0xffff
04b8 00ad 0001  |    |		.CONST	0x00ad,0x0001
04ba 00b0 0002  |    |		.CONST	0x00b0,0x0002
04bc ; --------------------------------------------------------------------------------------
04bc ; Debug3 Subtable 0x4
04bc ; --------------------------------------------------------------------------------------
04bc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
04be 00bb 0001  |    |		.CONST	0x00bb,0x0001
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0x5
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
04c2 00cb 0001  |    |		.CONST	0x00cb,0x0001
04c4 00d2 0002  |    |		.CONST	0x00d2,0x0002
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug3 Subtable 0x6
04c6 ; --------------------------------------------------------------------------------------
04c6 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
04c8 00e3 0001  |    |		.CONST	0x00e3,0x0001
04ca 00ea 0002  |    |		.CONST	0x00ea,0x0002
04cc ; --------------------------------------------------------------------------------------
04cc ; Debug3 Subtable 0x7
04cc ; --------------------------------------------------------------------------------------
04cc 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
04ce ; --------------------------------------------------------------------------------------
04ce ; Debug3 Subtable 0x8
04ce ; --------------------------------------------------------------------------------------
04ce 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug3 Subtable 0x9
04d0 ; --------------------------------------------------------------------------------------
04d0 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug3 Subtable 0xa
04d2 ; --------------------------------------------------------------------------------------
04d2 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
04d4 0173 ffff  | s  |		.CONST	0x0173,0xffff
04d6 0176 0001  | v  |		.CONST	0x0176,0x0001
04d8 0179 0002  | y  |		.CONST	0x0179,0x0002
04da 017e 0003  | ~  |		.CONST	0x017e,0x0003
04dc 0184 0004  |    |		.CONST	0x0184,0x0004
04de ; --------------------------------------------------------------------------------------
04de ; Debug3 Subtable 0xb
04de ; --------------------------------------------------------------------------------------
04de 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
04e0 018b ffff  |    |		.CONST	0x018b,0xffff
04e2 018e 0001  |    |		.CONST	0x018e,0x0001
04e4 0191 0002  |    |		.CONST	0x0191,0x0002
04e6 0198 0003  |    |		.CONST	0x0198,0x0003
04e8 019b 0004  |    |		.CONST	0x019b,0x0004
04ea 019f 0005  |    |		.CONST	0x019f,0x0005
04ec 01a5 0006  |    |		.CONST	0x01a5,0x0006
04ee 01af 0007  |    |		.CONST	0x01af,0x0007
04f0 01b7 0008  |    |		.CONST	0x01b7,0x0008
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug3 Subtable 0xc
04f2 ; --------------------------------------------------------------------------------------
04f2 0003 000a  |    |		.DBG3TAB	0x0003,0x000a
04f4 01c3 ffff  |    |		.CONST	0x01c3,0xffff
04f6 01cb fffe  |    |		.CONST	0x01cb,0xfffe
04f8 01cd fffd  |    |		.CONST	0x01cd,0xfffd
04fa 01d0 0001  |    |		.CONST	0x01d0,0x0001
04fc 01de 0002  |    |		.CONST	0x01de,0x0002
04fe 01e1 0003  |    |		.CONST	0x01e1,0x0003
0500 01e6 0004  |    |		.CONST	0x01e6,0x0004
0502 01ea 0005  |    |		.CONST	0x01ea,0x0005
0504 0202 0006  |    |		.CONST	0x0202,0x0006
0506 0204 0007  |    |		.CONST	0x0204,0x0007
0508 021e 0008  |    |		.CONST	0x021e,0x0008
050a 0225 0009  | %  |		.CONST	0x0225,0x0009
050c 022b 000a  | +  |		.CONST	0x022b,0x000a
050e ; --------------------------------------------------------------------------------------
050e ; Debug3 Subtable 0xd
050e ; --------------------------------------------------------------------------------------
050e 0005 0001  |    |		.DBG3TAB	0x0005,0x0001
0510 0233 ffff  | 3  |		.CONST	0x0233,0xffff
0512 0235 fffe  | 5  |		.CONST	0x0235,0xfffe
0514 0237 fffd  | 7  |		.CONST	0x0237,0xfffd
0516 0239 fffc  | 9  |		.CONST	0x0239,0xfffc
0518 023b fffb  | ;  |		.CONST	0x023b,0xfffb
051a 023d 0001  | =  |		.CONST	0x023d,0x0001
051c ; --------------------------------------------------------------------------------------
051c ; Debug3 Subtable 0xe
051c ; --------------------------------------------------------------------------------------
051c 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
051e 0243 ffff  | C  |		.CONST	0x0243,0xffff
0520 0245 0001  | E  |		.CONST	0x0245,0x0001
0522 024f 0002  | O  |		.CONST	0x024f,0x0002
0524 ; --------------------------------------------------------------------------------------
0524 ; Debug3 Subtable 0xf
0524 ; --------------------------------------------------------------------------------------
0524 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0526 0253 ffff  | S  |		.CONST	0x0253,0xffff
0528 025c fffe  | \  |		.CONST	0x025c,0xfffe
052a 0265 0001  | e  |		.CONST	0x0265,0x0001
052c ; --------------------------------------------------------------------------------------
052c ; Debug3 Subtable 0x10
052c ; --------------------------------------------------------------------------------------
052c 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
052e 0273 ffff  | s  |		.CONST	0x0273,0xffff
0530 0275 fffe  | u  |		.CONST	0x0275,0xfffe
0532 0276 fffd  | v  |		.CONST	0x0276,0xfffd
0534 027a 0001  | z  |		.CONST	0x027a,0x0001
0536 027b 0002  | {  |		.CONST	0x027b,0x0002
0538 0285 0003  |    |		.CONST	0x0285,0x0003
053a 0287 0004  |    |		.CONST	0x0287,0x0004
053c 0289 0005  |    |		.CONST	0x0289,0x0005
053e 028d 0006  |    |		.CONST	0x028d,0x0006
0540 0292 0007  |    |		.CONST	0x0292,0x0007
0542 ; --------------------------------------------------------------------------------------
0542 ; Debug3 Subtable 0x11
0542 ; --------------------------------------------------------------------------------------
0542 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
0544 029b ffff  |    |		.CONST	0x029b,0xffff
0546 02a0 0001  |    |		.CONST	0x02a0,0x0001
0548 02a8 0002  |    |		.CONST	0x02a8,0x0002
054a 02ac 0003  |    |		.CONST	0x02ac,0x0003
054c 02b1 0004  |    |		.CONST	0x02b1,0x0004
054e 02bd 0005  |    |		.CONST	0x02bd,0x0005
0550 02c3 0006  |    |		.CONST	0x02c3,0x0006
0552 ; --------------------------------------------------------------------------------------
0552 ; Debug3 Subtable 0x12
0552 ; --------------------------------------------------------------------------------------
0552 0003 0001  |    |		.DBG3TAB	0x0003,0x0001
0554 02db ffff  |    |		.CONST	0x02db,0xffff
0556 02e0 fffe  |    |		.CONST	0x02e0,0xfffe
0558 02e1 fffd  |    |		.CONST	0x02e1,0xfffd
055a 02e3 0001  |    |		.CONST	0x02e3,0x0001
055c ; --------------------------------------------------------------------------------------
055c ; Debug3 Subtable 0x13
055c ; --------------------------------------------------------------------------------------
055c 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
055e 02f3 ffff  |    |		.CONST	0x02f3,0xffff
0560 02f8 0001  |    |		.CONST	0x02f8,0x0001
0562 02ff 0002  |    |		.CONST	0x02ff,0x0002
0564 0301 0003  |    |		.CONST	0x0301,0x0003
0566 030b 0004  |    |		.CONST	0x030b,0x0004
0568 030c 0005  |    |		.CONST	0x030c,0x0005
056a 0312 0006  |    |		.CONST	0x0312,0x0006
056c 0313 0007  |    |		.CONST	0x0313,0x0007
056e ; --------------------------------------------------------------------------------------
056e ; Debug3 Subtable 0x14
056e ; --------------------------------------------------------------------------------------
056e 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
0570 031b ffff  |    |		.CONST	0x031b,0xffff
0572 031c fffe  |    |		.CONST	0x031c,0xfffe
0574 031f 0001  |    |		.CONST	0x031f,0x0001
0576 0322 0002  | "  |		.CONST	0x0322,0x0002
0578 0328 0003  | (  |		.CONST	0x0328,0x0003
057a 032a 0004  | *  |		.CONST	0x032a,0x0004
057c 0335 0005  | 5  |		.CONST	0x0335,0x0005
057e 0336 0006  | 6  |		.CONST	0x0336,0x0006
0580 033a 0007  | :  |		.CONST	0x033a,0x0007
0582 ; --------------------------------------------------------------------------------------
0582 ; Debug3 Subtable 0x15
0582 ; --------------------------------------------------------------------------------------
0582 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0584 0343 0001  | C  |		.CONST	0x0343,0x0001
0586 036b 0002  | k  |		.CONST	0x036b,0x0002
0588 ; --------------------------------------------------------------------------------------
0588 ; Debug3 Subtable 0x16
0588 ; --------------------------------------------------------------------------------------
0588 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
058a 0373 ffff  | s  |		.CONST	0x0373,0xffff
058c 037a 0001  | z  |		.CONST	0x037a,0x0001
058e 039a 0002  |    |		.CONST	0x039a,0x0002
0590 ; --------------------------------------------------------------------------------------
0590 ; Debug3 Subtable 0x17
0590 ; --------------------------------------------------------------------------------------
0590 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0592 03a3 0001  |    |		.CONST	0x03a3,0x0001
0594 03a8 0002  |    |		.CONST	0x03a8,0x0002
0596 0000 0000  |    |		.BLANK	0000[0x6a]