DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦9c21cf67c⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_19c0d9

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0940       | @  |		.CONST	0x0940								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009e       |    |		.CONST	0x009e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002a       | *  |		.CONST	0x002a								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4be8       |K   |		Short_Literal	0x3e8
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 00d8       |    |		Load_Top	At_Offset_0
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 4801       |H   |		Short_Literal	0x1
0013 4804       |H   |		Short_Literal	0x4
0014 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0015 029f 088b  |    |		Declare_Subprogram	INIT_0888,For_Call
0017 00d9       |    |		Load_Top	At_Offset_1
0018 012a       | *  |		Execute	Any,Change_Utility
0019 0007       |    |		Action	Break_Optional
001a 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
001c 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
001e 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0020 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0022 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0024 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0026 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0028 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
002a 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
002c 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
002e 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0030 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
0032 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
0034 029a 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call,Visible,Unelaborated
0036 029a 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call,Visible,Unelaborated
0038 029a 06db  |    |		Declare_Subprogram	INIT_06d8,For_Outer_Call,Visible,Unelaborated
003a 029a 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call,Visible,Unelaborated
003c 029a 0733  |   3|		Declare_Subprogram	INIT_0730,For_Outer_Call,Visible,Unelaborated
003e 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
0040 029a 0783  |    |		Declare_Subprogram	INIT_0780,For_Outer_Call,Visible,Unelaborated
0042 4800       |H   |		Short_Literal	0x0
0043 0093 08c3  |    |		push_full_address	INIT_08c0
0045 02a0       |    |		Declare_Subprogram	Null_Subprogram
0046 038f       |    |		Declare_Type	Package,Defined,Visible
0047 e001       |    |		Load	0x0,0x1
0048 4801       |H   |		Short_Literal	0x1
0049 00da       |    |		Load_Top	At_Offset_2
004a 020e       |    |		Execute	Module,Augment_Imports
004b 0386       |    |		Declare_Variable	Package,Visible
004c e20d       |    |		Load	0x1,0xd
004d 0266       | f  |		Execute	Discrete,Bounds
004e e002       |    |		Load	0x0,0x2
004f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 4801       |H   |		Short_Literal	0x1
0052 0348       | H  |		Declare_Type	Array,Defined_Incomplete,Bounds_With_Object
0053 00e3       |    |		Load_Encached	Natural_Cache
0054 00e4       |    |		Load_Encached	Positive_Cache
0055 00da       |    |		Load_Top	At_Offset_2
0056 029f 088b  |    |		Declare_Subprogram	INIT_0888,For_Call
0058 4800       |H   |		Short_Literal	0x0
0059 4801       |H   |		Short_Literal	0x1
005a 4802       |H   |		Short_Literal	0x2
005b e20e       |    |		Load	0x1,0xe
005c 0307       |    |		Complete_Type	Variant_Record,By_Defining
005d 00bf       |    |		Action	Accept_Activation
005e 00d8       |    |		Load_Top	At_Offset_0
005f 0340       | @  |		Complete_Type	Array,By_Component_Completion
0060 e002       |    |		Load	0x0,0x2
0061 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0062 192d       | -  |		Execute	Package,Field_Reference,Field_Number 0x2d
0063 0007       |    |		Action	Break_Optional
0064 e002       |    |		Load	0x0,0x2
0065 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0066 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0067 0007       |    |		Action	Break_Optional
0068 029d 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call
006a 029d 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call
006c 029d 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Outer_Call
006e 029d 07d3  |    |		Declare_Subprogram	INIT_07d0,For_Outer_Call
0070 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 e002       |    |		Load	0x0,0x2
0099 4801       |H   |		Short_Literal	0x1
009a e223       | #  |		Load	0x1,0x23
009b 020e       |    |		Execute	Module,Augment_Imports
009c e223       | #  |		Load	0x1,0x23
009d 020f       |    |		Execute	Module,Activate
009e			BODY_0008:
009e 00bc       |    |		Action	Signal_Activated
009f 00bb       |    |		Action	Signal_Completion
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a5 00db       |    |		Load_Top	At_Offset_3
00a6 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00a7 0270       | p  |		Execute	Discrete,Divide
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 00e3       |    |		Load_Encached	Natural_Cache
00aa 0260       | `  |		Execute	Discrete,In_Type
00ab 7001       |p   |		Jump_Nonzero	0xad
00ac 0801       |    |		Execute_Immediate	Raise,0x1
00ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00b5 0f00       |    |		Execute_Immediate	Equal,0x0
00b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
00bc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00bd 0e00       |    |		Execute_Immediate	Not_Equal,0x0
00be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00ca       |    |		.CONST	0x00ca								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 e20e       |    |		Load	0x1,0xe
00c4 02ff       |    |		Declare_Variable	Variant_Record
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c7 e002       |    |		Load	0x0,0x2
00c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c9 0322       | "  |		Declare_Variable	Record
00ca			BODY_00c0:
00ca 4800       |H   |		Short_Literal	0x0
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cd 4801       |H   |		Short_Literal	0x1
00ce 00da       |    |		Load_Top	At_Offset_2
00cf 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00d0 00cf       |    |		Action	Mark_Auxiliary
00d1 e5fd       |    |		Load	0x2,-0x3
00d2 8226       | &  |		Call	0x1,0x26
00d3 4801       |H   |		Short_Literal	0x1
00d4 0263       | c  |		Execute	Discrete,Above_Bound
00d5 702c       |p,  |		Jump_Nonzero	0x102
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 e5fd       |    |		Load	0x2,-0x3
00d8 8225       | %  |		Call	0x1,0x25
00d9 e403       |    |		Load	0x2,0x3
00da 017d       | }  |		Execute	Record,Structure_Write
00db 00db       |    |		Load_Top	At_Offset_3
00dc 85fe       |    |		Call	0x2,-0x2
00dd 6822       |h"  |		Jump_Zero	0x100
00de e402       |    |		Load	0x2,0x2
00df e002       |    |		Load	0x0,0x2
00e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e1 e002       |    |		Load	0x0,0x2
00e2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e3 e002       |    |		Load	0x0,0x2
00e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e5 e002       |    |		Load	0x0,0x2
00e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e7 e002       |    |		Load	0x0,0x2
00e8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e9 e002       |    |		Load	0x0,0x2
00ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00eb e002       |    |		Load	0x0,0x2
00ec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ed e002       |    |		Load	0x0,0x2
00ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ef e002       |    |		Load	0x0,0x2
00f0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f1 e403       |    |		Load	0x2,0x3
00f2 822a       | *  |		Call	0x1,0x2a
00f3 00d1       |    |		Pop_Control	Pop_Count_1
00f4 e5fc       |    |		Load	0x2,-0x4
00f5 680a       |h   |		Jump_Zero	0x100
00f6 e402       |    |		Load	0x2,0x2
00f7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f8 e402       |    |		Load	0x2,0x2
00f9 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00fa 0270       | p  |		Execute	Discrete,Divide
00fb e5fc       |    |		Load	0x2,-0x4
00fc 027b       | {  |		Execute	Discrete,Greater_Equal
00fd 6802       |h   |		Jump_Zero	0x100
00fe e402       |    |		Load	0x2,0x2
00ff 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0100 00c8       |    |		Action	Pop_Auxiliary_Range
0101 3fd4       |?   |		Loop_Increasing	0xd6
0102 00ce       |    |		Action	Pop_Auxiliary
0103 00d9       |    |		Load_Top	At_Offset_1
0104 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0114       |    |		.CONST	0x0114								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0004       |    |		.CONST	0x0004								; Number of locals
010b			INIT_0108:
010b e20e       |    |		Load	0x1,0xe
010c 02ff       |    |		Declare_Variable	Variant_Record
010d 00d8       |    |		Load_Top	At_Offset_0
010e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010f e002       |    |		Load	0x0,0x2
0110 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0111 0322       | "  |		Declare_Variable	Record
0112 00d8       |    |		Load_Top	At_Offset_0
0113 0322       | "  |		Declare_Variable	Record
0114			BODY_0108:
0114 4800       |H   |		Short_Literal	0x0
0115 00db       |    |		Load_Top	At_Offset_3
0116 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0117 4802       |H   |		Short_Literal	0x2
0118 00db       |    |		Load_Top	At_Offset_3
0119 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
011a 00cf       |    |		Action	Mark_Auxiliary
011b e5fd       |    |		Load	0x2,-0x3
011c 8226       | &  |		Call	0x1,0x26
011d 4801       |H   |		Short_Literal	0x1
011e 0263       | c  |		Execute	Discrete,Above_Bound
011f 703a       |p:  |		Jump_Nonzero	0x15a
0120 00d8       |    |		Load_Top	At_Offset_0
0121 e5fd       |    |		Load	0x2,-0x3
0122 8225       | %  |		Call	0x1,0x25
0123 e403       |    |		Load	0x2,0x3
0124 017d       | }  |		Execute	Record,Structure_Write
0125 00cf       |    |		Action	Mark_Auxiliary
0126 e5fc       |    |		Load	0x2,-0x4
0127 8226       | &  |		Call	0x1,0x26
0128 4801       |H   |		Short_Literal	0x1
0129 0263       | c  |		Execute	Discrete,Above_Bound
012a 702c       |p,  |		Jump_Nonzero	0x157
012b 00d8       |    |		Load_Top	At_Offset_0
012c e5fc       |    |		Load	0x2,-0x4
012d 8225       | %  |		Call	0x1,0x25
012e e404       |    |		Load	0x2,0x4
012f 017d       | }  |		Execute	Record,Structure_Write
0130 e404       |    |		Load	0x2,0x4
0131 e403       |    |		Load	0x2,0x3
0132 85fe       |    |		Call	0x2,-0x2
0133 6821       |h!  |		Jump_Zero	0x155
0134 e402       |    |		Load	0x2,0x2
0135 e002       |    |		Load	0x0,0x2
0136 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0137 e002       |    |		Load	0x0,0x2
0138 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0139 e002       |    |		Load	0x0,0x2
013a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013b e002       |    |		Load	0x0,0x2
013c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013d e002       |    |		Load	0x0,0x2
013e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013f e002       |    |		Load	0x0,0x2
0140 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0141 e002       |    |		Load	0x0,0x2
0142 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0143 e002       |    |		Load	0x0,0x2
0144 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0145 e404       |    |		Load	0x2,0x4
0146 e403       |    |		Load	0x2,0x3
0147 822a       | *  |		Call	0x1,0x2a
0148 00d1       |    |		Pop_Control	Pop_Count_1
0149 e5fb       |    |		Load	0x2,-0x5
014a 680a       |h   |		Jump_Zero	0x155
014b e402       |    |		Load	0x2,0x2
014c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014d e402       |    |		Load	0x2,0x2
014e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
014f 0270       | p  |		Execute	Discrete,Divide
0150 e5fb       |    |		Load	0x2,-0x5
0151 027b       | {  |		Execute	Discrete,Greater_Equal
0152 6802       |h   |		Jump_Zero	0x155
0153 e402       |    |		Load	0x2,0x2
0154 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0155 00c8       |    |		Action	Pop_Auxiliary_Range
0156 3fd4       |?   |		Loop_Increasing	0x12b
0157 00ce       |    |		Action	Pop_Auxiliary
0158 00c8       |    |		Action	Pop_Auxiliary_Range
0159 3fc6       |?   |		Loop_Increasing	0x120
015a 00ce       |    |		Action	Pop_Auxiliary
015b 00da       |    |		Load_Top	At_Offset_2
015c 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016e       | n  |		.CONST	0x016e								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0005       |    |		.CONST	0x0005								; Number of locals
0163			INIT_0160:
0163 e20e       |    |		Load	0x1,0xe
0164 02ff       |    |		Declare_Variable	Variant_Record
0165 00d8       |    |		Load_Top	At_Offset_0
0166 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0167 e002       |    |		Load	0x0,0x2
0168 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0169 0322       | "  |		Declare_Variable	Record
016a 00d8       |    |		Load_Top	At_Offset_0
016b 0322       | "  |		Declare_Variable	Record
016c 00d8       |    |		Load_Top	At_Offset_0
016d 0322       | "  |		Declare_Variable	Record
016e			BODY_0160:
016e 4800       |H   |		Short_Literal	0x0
016f e402       |    |		Load	0x2,0x2
0170 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0171 4803       |H   |		Short_Literal	0x3
0172 e402       |    |		Load	0x2,0x2
0173 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0174 00cf       |    |		Action	Mark_Auxiliary
0175 e5fd       |    |		Load	0x2,-0x3
0176 8226       | &  |		Call	0x1,0x26
0177 4801       |H   |		Short_Literal	0x1
0178 0263       | c  |		Execute	Discrete,Above_Bound
0179 7048       |pH  |		Jump_Nonzero	0x1c2
017a 00d8       |    |		Load_Top	At_Offset_0
017b e5fd       |    |		Load	0x2,-0x3
017c 8225       | %  |		Call	0x1,0x25
017d e403       |    |		Load	0x2,0x3
017e 017d       | }  |		Execute	Record,Structure_Write
017f 00cf       |    |		Action	Mark_Auxiliary
0180 e5fc       |    |		Load	0x2,-0x4
0181 8226       | &  |		Call	0x1,0x26
0182 4801       |H   |		Short_Literal	0x1
0183 0263       | c  |		Execute	Discrete,Above_Bound
0184 703a       |p:  |		Jump_Nonzero	0x1bf
0185 00d8       |    |		Load_Top	At_Offset_0
0186 e5fc       |    |		Load	0x2,-0x4
0187 8225       | %  |		Call	0x1,0x25
0188 e404       |    |		Load	0x2,0x4
0189 017d       | }  |		Execute	Record,Structure_Write
018a 00cf       |    |		Action	Mark_Auxiliary
018b e5fb       |    |		Load	0x2,-0x5
018c 8226       | &  |		Call	0x1,0x26
018d 4801       |H   |		Short_Literal	0x1
018e 0263       | c  |		Execute	Discrete,Above_Bound
018f 702c       |p,  |		Jump_Nonzero	0x1bc
0190 00d8       |    |		Load_Top	At_Offset_0
0191 e5fb       |    |		Load	0x2,-0x5
0192 8225       | %  |		Call	0x1,0x25
0193 e405       |    |		Load	0x2,0x5
0194 017d       | }  |		Execute	Record,Structure_Write
0195 e405       |    |		Load	0x2,0x5
0196 e404       |    |		Load	0x2,0x4
0197 e403       |    |		Load	0x2,0x3
0198 85fe       |    |		Call	0x2,-0x2
0199 6820       |h   |		Jump_Zero	0x1ba
019a e402       |    |		Load	0x2,0x2
019b e002       |    |		Load	0x0,0x2
019c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019d e002       |    |		Load	0x0,0x2
019e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019f e002       |    |		Load	0x0,0x2
01a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a1 e002       |    |		Load	0x0,0x2
01a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a3 e002       |    |		Load	0x0,0x2
01a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a5 e002       |    |		Load	0x0,0x2
01a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a7 e002       |    |		Load	0x0,0x2
01a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a9 e405       |    |		Load	0x2,0x5
01aa e404       |    |		Load	0x2,0x4
01ab e403       |    |		Load	0x2,0x3
01ac 822a       | *  |		Call	0x1,0x2a
01ad 00d1       |    |		Pop_Control	Pop_Count_1
01ae e5fa       |    |		Load	0x2,-0x6
01af 680a       |h   |		Jump_Zero	0x1ba
01b0 e402       |    |		Load	0x2,0x2
01b1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b2 e402       |    |		Load	0x2,0x2
01b3 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01b4 0270       | p  |		Execute	Discrete,Divide
01b5 e5fa       |    |		Load	0x2,-0x6
01b6 027b       | {  |		Execute	Discrete,Greater_Equal
01b7 6802       |h   |		Jump_Zero	0x1ba
01b8 e402       |    |		Load	0x2,0x2
01b9 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
01ba 00c8       |    |		Action	Pop_Auxiliary_Range
01bb 3fd4       |?   |		Loop_Increasing	0x190
01bc 00ce       |    |		Action	Pop_Auxiliary
01bd 00c8       |    |		Action	Pop_Auxiliary_Range
01be 3fc6       |?   |		Loop_Increasing	0x185
01bf 00ce       |    |		Action	Pop_Auxiliary
01c0 00c8       |    |		Action	Pop_Auxiliary_Range
01c1 3fb8       |?   |		Loop_Increasing	0x17a
01c2 00ce       |    |		Action	Pop_Auxiliary
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d8       |    |		.CONST	0x01d8								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0006       |    |		.CONST	0x0006								; Number of locals
01cb			INIT_01c8:
01cb e20e       |    |		Load	0x1,0xe
01cc 02ff       |    |		Declare_Variable	Variant_Record
01cd 00d8       |    |		Load_Top	At_Offset_0
01ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01cf e002       |    |		Load	0x0,0x2
01d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d1 0322       | "  |		Declare_Variable	Record
01d2 00d8       |    |		Load_Top	At_Offset_0
01d3 0322       | "  |		Declare_Variable	Record
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 0322       | "  |		Declare_Variable	Record
01d6 00d8       |    |		Load_Top	At_Offset_0
01d7 0322       | "  |		Declare_Variable	Record
01d8			BODY_01c8:
01d8 4800       |H   |		Short_Literal	0x0
01d9 e402       |    |		Load	0x2,0x2
01da 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01db 4804       |H   |		Short_Literal	0x4
01dc e402       |    |		Load	0x2,0x2
01dd 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01de 00cf       |    |		Action	Mark_Auxiliary
01df e5fd       |    |		Load	0x2,-0x3
01e0 8226       | &  |		Call	0x1,0x26
01e1 4801       |H   |		Short_Literal	0x1
01e2 0263       | c  |		Execute	Discrete,Above_Bound
01e3 7056       |pV  |		Jump_Nonzero	0x23a
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 e5fd       |    |		Load	0x2,-0x3
01e6 8225       | %  |		Call	0x1,0x25
01e7 e403       |    |		Load	0x2,0x3
01e8 017d       | }  |		Execute	Record,Structure_Write
01e9 00cf       |    |		Action	Mark_Auxiliary
01ea e5fc       |    |		Load	0x2,-0x4
01eb 8226       | &  |		Call	0x1,0x26
01ec 4801       |H   |		Short_Literal	0x1
01ed 0263       | c  |		Execute	Discrete,Above_Bound
01ee 7048       |pH  |		Jump_Nonzero	0x237
01ef 00d8       |    |		Load_Top	At_Offset_0
01f0 e5fc       |    |		Load	0x2,-0x4
01f1 8225       | %  |		Call	0x1,0x25
01f2 e404       |    |		Load	0x2,0x4
01f3 017d       | }  |		Execute	Record,Structure_Write
01f4 00cf       |    |		Action	Mark_Auxiliary
01f5 e5fb       |    |		Load	0x2,-0x5
01f6 8226       | &  |		Call	0x1,0x26
01f7 4801       |H   |		Short_Literal	0x1
01f8 0263       | c  |		Execute	Discrete,Above_Bound
01f9 703a       |p:  |		Jump_Nonzero	0x234
01fa 00d8       |    |		Load_Top	At_Offset_0
01fb e5fb       |    |		Load	0x2,-0x5
01fc 8225       | %  |		Call	0x1,0x25
01fd e405       |    |		Load	0x2,0x5
01fe 017d       | }  |		Execute	Record,Structure_Write
01ff 00cf       |    |		Action	Mark_Auxiliary
0200 e5fa       |    |		Load	0x2,-0x6
0201 8226       | &  |		Call	0x1,0x26
0202 4801       |H   |		Short_Literal	0x1
0203 0263       | c  |		Execute	Discrete,Above_Bound
0204 702c       |p,  |		Jump_Nonzero	0x231
0205 00d8       |    |		Load_Top	At_Offset_0
0206 e5fa       |    |		Load	0x2,-0x6
0207 8225       | %  |		Call	0x1,0x25
0208 e406       |    |		Load	0x2,0x6
0209 017d       | }  |		Execute	Record,Structure_Write
020a e406       |    |		Load	0x2,0x6
020b e405       |    |		Load	0x2,0x5
020c e404       |    |		Load	0x2,0x4
020d e403       |    |		Load	0x2,0x3
020e 85fe       |    |		Call	0x2,-0x2
020f 681f       |h   |		Jump_Zero	0x22f
0210 e402       |    |		Load	0x2,0x2
0211 e002       |    |		Load	0x0,0x2
0212 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0213 e002       |    |		Load	0x0,0x2
0214 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0215 e002       |    |		Load	0x0,0x2
0216 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0217 e002       |    |		Load	0x0,0x2
0218 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0219 e002       |    |		Load	0x0,0x2
021a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
021b e002       |    |		Load	0x0,0x2
021c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
021d e406       |    |		Load	0x2,0x6
021e e405       |    |		Load	0x2,0x5
021f e404       |    |		Load	0x2,0x4
0220 e403       |    |		Load	0x2,0x3
0221 822a       | *  |		Call	0x1,0x2a
0222 00d1       |    |		Pop_Control	Pop_Count_1
0223 e5f9       |    |		Load	0x2,-0x7
0224 680a       |h   |		Jump_Zero	0x22f
0225 e402       |    |		Load	0x2,0x2
0226 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0227 e402       |    |		Load	0x2,0x2
0228 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0229 0270       | p  |		Execute	Discrete,Divide
022a e5f9       |    |		Load	0x2,-0x7
022b 027b       | {  |		Execute	Discrete,Greater_Equal
022c 6802       |h   |		Jump_Zero	0x22f
022d e402       |    |		Load	0x2,0x2
022e 4407       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x7
022f 00c8       |    |		Action	Pop_Auxiliary_Range
0230 3fd4       |?   |		Loop_Increasing	0x205
0231 00ce       |    |		Action	Pop_Auxiliary
0232 00c8       |    |		Action	Pop_Auxiliary_Range
0233 3fc6       |?   |		Loop_Increasing	0x1fa
0234 00ce       |    |		Action	Pop_Auxiliary
0235 00c8       |    |		Action	Pop_Auxiliary_Range
0236 3fb8       |?   |		Loop_Increasing	0x1ef
0237 00ce       |    |		Action	Pop_Auxiliary
0238 00c8       |    |		Action	Pop_Auxiliary_Range
0239 3faa       |?   |		Loop_Increasing	0x1e4
023a 00ce       |    |		Action	Pop_Auxiliary
023b e402       |    |		Load	0x2,0x2
023c 4407       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x7
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0252       | R  |		.CONST	0x0252								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0007       |    |		.CONST	0x0007								; Number of locals
0243			INIT_0240:
0243 e20e       |    |		Load	0x1,0xe
0244 02ff       |    |		Declare_Variable	Variant_Record
0245 00d8       |    |		Load_Top	At_Offset_0
0246 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0247 e002       |    |		Load	0x0,0x2
0248 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0249 0322       | "  |		Declare_Variable	Record
024a 00d8       |    |		Load_Top	At_Offset_0
024b 0322       | "  |		Declare_Variable	Record
024c 00d8       |    |		Load_Top	At_Offset_0
024d 0322       | "  |		Declare_Variable	Record
024e 00d8       |    |		Load_Top	At_Offset_0
024f 0322       | "  |		Declare_Variable	Record
0250 00d8       |    |		Load_Top	At_Offset_0
0251 0322       | "  |		Declare_Variable	Record
0252			BODY_0240:
0252 4800       |H   |		Short_Literal	0x0
0253 e402       |    |		Load	0x2,0x2
0254 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0255 4805       |H   |		Short_Literal	0x5
0256 e402       |    |		Load	0x2,0x2
0257 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0258 00cf       |    |		Action	Mark_Auxiliary
0259 e5fd       |    |		Load	0x2,-0x3
025a 8226       | &  |		Call	0x1,0x26
025b 4801       |H   |		Short_Literal	0x1
025c 0263       | c  |		Execute	Discrete,Above_Bound
025d 7064       |pd  |		Jump_Nonzero	0x2c2
025e 00d8       |    |		Load_Top	At_Offset_0
025f e5fd       |    |		Load	0x2,-0x3
0260 8225       | %  |		Call	0x1,0x25
0261 e403       |    |		Load	0x2,0x3
0262 017d       | }  |		Execute	Record,Structure_Write
0263 00cf       |    |		Action	Mark_Auxiliary
0264 e5fc       |    |		Load	0x2,-0x4
0265 8226       | &  |		Call	0x1,0x26
0266 4801       |H   |		Short_Literal	0x1
0267 0263       | c  |		Execute	Discrete,Above_Bound
0268 7056       |pV  |		Jump_Nonzero	0x2bf
0269 00d8       |    |		Load_Top	At_Offset_0
026a e5fc       |    |		Load	0x2,-0x4
026b 8225       | %  |		Call	0x1,0x25
026c e404       |    |		Load	0x2,0x4
026d 017d       | }  |		Execute	Record,Structure_Write
026e 00cf       |    |		Action	Mark_Auxiliary
026f e5fb       |    |		Load	0x2,-0x5
0270 8226       | &  |		Call	0x1,0x26
0271 4801       |H   |		Short_Literal	0x1
0272 0263       | c  |		Execute	Discrete,Above_Bound
0273 7048       |pH  |		Jump_Nonzero	0x2bc
0274 00d8       |    |		Load_Top	At_Offset_0
0275 e5fb       |    |		Load	0x2,-0x5
0276 8225       | %  |		Call	0x1,0x25
0277 e405       |    |		Load	0x2,0x5
0278 017d       | }  |		Execute	Record,Structure_Write
0279 00cf       |    |		Action	Mark_Auxiliary
027a e5fa       |    |		Load	0x2,-0x6
027b 8226       | &  |		Call	0x1,0x26
027c 4801       |H   |		Short_Literal	0x1
027d 0263       | c  |		Execute	Discrete,Above_Bound
027e 703a       |p:  |		Jump_Nonzero	0x2b9
027f 00d8       |    |		Load_Top	At_Offset_0
0280 e5fa       |    |		Load	0x2,-0x6
0281 8225       | %  |		Call	0x1,0x25
0282 e406       |    |		Load	0x2,0x6
0283 017d       | }  |		Execute	Record,Structure_Write
0284 00cf       |    |		Action	Mark_Auxiliary
0285 e5f9       |    |		Load	0x2,-0x7
0286 8226       | &  |		Call	0x1,0x26
0287 4801       |H   |		Short_Literal	0x1
0288 0263       | c  |		Execute	Discrete,Above_Bound
0289 702c       |p,  |		Jump_Nonzero	0x2b6
028a 00d8       |    |		Load_Top	At_Offset_0
028b e5f9       |    |		Load	0x2,-0x7
028c 8225       | %  |		Call	0x1,0x25
028d e407       |    |		Load	0x2,0x7
028e 017d       | }  |		Execute	Record,Structure_Write
028f e407       |    |		Load	0x2,0x7
0290 e406       |    |		Load	0x2,0x6
0291 e405       |    |		Load	0x2,0x5
0292 e404       |    |		Load	0x2,0x4
0293 e403       |    |		Load	0x2,0x3
0294 85fe       |    |		Call	0x2,-0x2
0295 681e       |h   |		Jump_Zero	0x2b4
0296 e402       |    |		Load	0x2,0x2
0297 e002       |    |		Load	0x0,0x2
0298 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0299 e002       |    |		Load	0x0,0x2
029a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029b e002       |    |		Load	0x0,0x2
029c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029d e002       |    |		Load	0x0,0x2
029e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029f e002       |    |		Load	0x0,0x2
02a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a1 e407       |    |		Load	0x2,0x7
02a2 e406       |    |		Load	0x2,0x6
02a3 e405       |    |		Load	0x2,0x5
02a4 e404       |    |		Load	0x2,0x4
02a5 e403       |    |		Load	0x2,0x3
02a6 822a       | *  |		Call	0x1,0x2a
02a7 00d1       |    |		Pop_Control	Pop_Count_1
02a8 e5f8       |    |		Load	0x2,-0x8
02a9 680a       |h   |		Jump_Zero	0x2b4
02aa e402       |    |		Load	0x2,0x2
02ab 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ac e402       |    |		Load	0x2,0x2
02ad 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02ae 0270       | p  |		Execute	Discrete,Divide
02af e5f8       |    |		Load	0x2,-0x8
02b0 027b       | {  |		Execute	Discrete,Greater_Equal
02b1 6802       |h   |		Jump_Zero	0x2b4
02b2 e402       |    |		Load	0x2,0x2
02b3 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
02b4 00c8       |    |		Action	Pop_Auxiliary_Range
02b5 3fd4       |?   |		Loop_Increasing	0x28a
02b6 00ce       |    |		Action	Pop_Auxiliary
02b7 00c8       |    |		Action	Pop_Auxiliary_Range
02b8 3fc6       |?   |		Loop_Increasing	0x27f
02b9 00ce       |    |		Action	Pop_Auxiliary
02ba 00c8       |    |		Action	Pop_Auxiliary_Range
02bb 3fb8       |?   |		Loop_Increasing	0x274
02bc 00ce       |    |		Action	Pop_Auxiliary
02bd 00c8       |    |		Action	Pop_Auxiliary_Range
02be 3faa       |?   |		Loop_Increasing	0x269
02bf 00ce       |    |		Action	Pop_Auxiliary
02c0 00c8       |    |		Action	Pop_Auxiliary_Range
02c1 3f9c       |?   |		Loop_Increasing	0x25e
02c2 00ce       |    |		Action	Pop_Auxiliary
02c3 e402       |    |		Load	0x2,0x2
02c4 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
02c5 0000 0000  |    |		.XXX[0x3]
02c7 0000       |    |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02dc       |    |		.CONST	0x02dc								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0008       |    |		.CONST	0x0008								; Number of locals
02cb			INIT_02c8:
02cb e20e       |    |		Load	0x1,0xe
02cc 02ff       |    |		Declare_Variable	Variant_Record
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02cf e002       |    |		Load	0x0,0x2
02d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d1 0322       | "  |		Declare_Variable	Record
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 0322       | "  |		Declare_Variable	Record
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 0322       | "  |		Declare_Variable	Record
02d6 00d8       |    |		Load_Top	At_Offset_0
02d7 0322       | "  |		Declare_Variable	Record
02d8 00d8       |    |		Load_Top	At_Offset_0
02d9 0322       | "  |		Declare_Variable	Record
02da 00d8       |    |		Load_Top	At_Offset_0
02db 0322       | "  |		Declare_Variable	Record
02dc			BODY_02c8:
02dc 4800       |H   |		Short_Literal	0x0
02dd e402       |    |		Load	0x2,0x2
02de 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02df 4806       |H   |		Short_Literal	0x6
02e0 e402       |    |		Load	0x2,0x2
02e1 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02e2 00cf       |    |		Action	Mark_Auxiliary
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 8226       | &  |		Call	0x1,0x26
02e5 4801       |H   |		Short_Literal	0x1
02e6 0263       | c  |		Execute	Discrete,Above_Bound
02e7 7072       |pr  |		Jump_Nonzero	0x35a
02e8 00d8       |    |		Load_Top	At_Offset_0
02e9 e5fd       |    |		Load	0x2,-0x3
02ea 8225       | %  |		Call	0x1,0x25
02eb e403       |    |		Load	0x2,0x3
02ec 017d       | }  |		Execute	Record,Structure_Write
02ed 00cf       |    |		Action	Mark_Auxiliary
02ee e5fc       |    |		Load	0x2,-0x4
02ef 8226       | &  |		Call	0x1,0x26
02f0 4801       |H   |		Short_Literal	0x1
02f1 0263       | c  |		Execute	Discrete,Above_Bound
02f2 7064       |pd  |		Jump_Nonzero	0x357
02f3 00d8       |    |		Load_Top	At_Offset_0
02f4 e5fc       |    |		Load	0x2,-0x4
02f5 8225       | %  |		Call	0x1,0x25
02f6 e404       |    |		Load	0x2,0x4
02f7 017d       | }  |		Execute	Record,Structure_Write
02f8 00cf       |    |		Action	Mark_Auxiliary
02f9 e5fb       |    |		Load	0x2,-0x5
02fa 8226       | &  |		Call	0x1,0x26
02fb 4801       |H   |		Short_Literal	0x1
02fc 0263       | c  |		Execute	Discrete,Above_Bound
02fd 7056       |pV  |		Jump_Nonzero	0x354
02fe 00d8       |    |		Load_Top	At_Offset_0
02ff e5fb       |    |		Load	0x2,-0x5
0300 8225       | %  |		Call	0x1,0x25
0301 e405       |    |		Load	0x2,0x5
0302 017d       | }  |		Execute	Record,Structure_Write
0303 00cf       |    |		Action	Mark_Auxiliary
0304 e5fa       |    |		Load	0x2,-0x6
0305 8226       | &  |		Call	0x1,0x26
0306 4801       |H   |		Short_Literal	0x1
0307 0263       | c  |		Execute	Discrete,Above_Bound
0308 7048       |pH  |		Jump_Nonzero	0x351
0309 00d8       |    |		Load_Top	At_Offset_0
030a e5fa       |    |		Load	0x2,-0x6
030b 8225       | %  |		Call	0x1,0x25
030c e406       |    |		Load	0x2,0x6
030d 017d       | }  |		Execute	Record,Structure_Write
030e 00cf       |    |		Action	Mark_Auxiliary
030f e5f9       |    |		Load	0x2,-0x7
0310 8226       | &  |		Call	0x1,0x26
0311 4801       |H   |		Short_Literal	0x1
0312 0263       | c  |		Execute	Discrete,Above_Bound
0313 703a       |p:  |		Jump_Nonzero	0x34e
0314 00d8       |    |		Load_Top	At_Offset_0
0315 e5f9       |    |		Load	0x2,-0x7
0316 8225       | %  |		Call	0x1,0x25
0317 e407       |    |		Load	0x2,0x7
0318 017d       | }  |		Execute	Record,Structure_Write
0319 00cf       |    |		Action	Mark_Auxiliary
031a e5f8       |    |		Load	0x2,-0x8
031b 8226       | &  |		Call	0x1,0x26
031c 4801       |H   |		Short_Literal	0x1
031d 0263       | c  |		Execute	Discrete,Above_Bound
031e 702c       |p,  |		Jump_Nonzero	0x34b
031f 00d8       |    |		Load_Top	At_Offset_0
0320 e5f8       |    |		Load	0x2,-0x8
0321 8225       | %  |		Call	0x1,0x25
0322 e408       |    |		Load	0x2,0x8
0323 017d       | }  |		Execute	Record,Structure_Write
0324 e408       |    |		Load	0x2,0x8
0325 e407       |    |		Load	0x2,0x7
0326 e406       |    |		Load	0x2,0x6
0327 e405       |    |		Load	0x2,0x5
0328 e404       |    |		Load	0x2,0x4
0329 e403       |    |		Load	0x2,0x3
032a 85fe       |    |		Call	0x2,-0x2
032b 681d       |h   |		Jump_Zero	0x349
032c e402       |    |		Load	0x2,0x2
032d e002       |    |		Load	0x0,0x2
032e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
032f e002       |    |		Load	0x0,0x2
0330 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0331 e002       |    |		Load	0x0,0x2
0332 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0333 e002       |    |		Load	0x0,0x2
0334 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0335 e408       |    |		Load	0x2,0x8
0336 e407       |    |		Load	0x2,0x7
0337 e406       |    |		Load	0x2,0x6
0338 e405       |    |		Load	0x2,0x5
0339 e404       |    |		Load	0x2,0x4
033a e403       |    |		Load	0x2,0x3
033b 822a       | *  |		Call	0x1,0x2a
033c 00d1       |    |		Pop_Control	Pop_Count_1
033d e5f7       |    |		Load	0x2,-0x9
033e 680a       |h   |		Jump_Zero	0x349
033f e402       |    |		Load	0x2,0x2
0340 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0341 e402       |    |		Load	0x2,0x2
0342 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0343 0270       | p  |		Execute	Discrete,Divide
0344 e5f7       |    |		Load	0x2,-0x9
0345 027b       | {  |		Execute	Discrete,Greater_Equal
0346 6802       |h   |		Jump_Zero	0x349
0347 e402       |    |		Load	0x2,0x2
0348 4409       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x9
0349 00c8       |    |		Action	Pop_Auxiliary_Range
034a 3fd4       |?   |		Loop_Increasing	0x31f
034b 00ce       |    |		Action	Pop_Auxiliary
034c 00c8       |    |		Action	Pop_Auxiliary_Range
034d 3fc6       |?   |		Loop_Increasing	0x314
034e 00ce       |    |		Action	Pop_Auxiliary
034f 00c8       |    |		Action	Pop_Auxiliary_Range
0350 3fb8       |?   |		Loop_Increasing	0x309
0351 00ce       |    |		Action	Pop_Auxiliary
0352 00c8       |    |		Action	Pop_Auxiliary_Range
0353 3faa       |?   |		Loop_Increasing	0x2fe
0354 00ce       |    |		Action	Pop_Auxiliary
0355 00c8       |    |		Action	Pop_Auxiliary_Range
0356 3f9c       |?   |		Loop_Increasing	0x2f3
0357 00ce       |    |		Action	Pop_Auxiliary
0358 00c8       |    |		Action	Pop_Auxiliary_Range
0359 3f8e       |?   |		Loop_Increasing	0x2e8
035a 00ce       |    |		Action	Pop_Auxiliary
035b e402       |    |		Load	0x2,0x2
035c 4409       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x9
035d 0000 0000  |    |		.XXX[0x3]
035f 0000       |    |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0376       | v  |		.CONST	0x0376								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0009       |    |		.CONST	0x0009								; Number of locals
0363			INIT_0360:
0363 e20e       |    |		Load	0x1,0xe
0364 02ff       |    |		Declare_Variable	Variant_Record
0365 00d8       |    |		Load_Top	At_Offset_0
0366 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0367 e002       |    |		Load	0x0,0x2
0368 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0369 0322       | "  |		Declare_Variable	Record
036a 00d8       |    |		Load_Top	At_Offset_0
036b 0322       | "  |		Declare_Variable	Record
036c 00d8       |    |		Load_Top	At_Offset_0
036d 0322       | "  |		Declare_Variable	Record
036e 00d8       |    |		Load_Top	At_Offset_0
036f 0322       | "  |		Declare_Variable	Record
0370 00d8       |    |		Load_Top	At_Offset_0
0371 0322       | "  |		Declare_Variable	Record
0372 00d8       |    |		Load_Top	At_Offset_0
0373 0322       | "  |		Declare_Variable	Record
0374 00d8       |    |		Load_Top	At_Offset_0
0375 0322       | "  |		Declare_Variable	Record
0376			BODY_0360:
0376 4800       |H   |		Short_Literal	0x0
0377 e402       |    |		Load	0x2,0x2
0378 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0379 4807       |H   |		Short_Literal	0x7
037a e402       |    |		Load	0x2,0x2
037b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
037c 00cf       |    |		Action	Mark_Auxiliary
037d e5fd       |    |		Load	0x2,-0x3
037e 8226       | &  |		Call	0x1,0x26
037f 4801       |H   |		Short_Literal	0x1
0380 0263       | c  |		Execute	Discrete,Above_Bound
0381 7080       |p   |		Jump_Nonzero	0x402
0382 00d8       |    |		Load_Top	At_Offset_0
0383 e5fd       |    |		Load	0x2,-0x3
0384 8225       | %  |		Call	0x1,0x25
0385 e403       |    |		Load	0x2,0x3
0386 017d       | }  |		Execute	Record,Structure_Write
0387 00cf       |    |		Action	Mark_Auxiliary
0388 e5fc       |    |		Load	0x2,-0x4
0389 8226       | &  |		Call	0x1,0x26
038a 4801       |H   |		Short_Literal	0x1
038b 0263       | c  |		Execute	Discrete,Above_Bound
038c 7072       |pr  |		Jump_Nonzero	0x3ff
038d 00d8       |    |		Load_Top	At_Offset_0
038e e5fc       |    |		Load	0x2,-0x4
038f 8225       | %  |		Call	0x1,0x25
0390 e404       |    |		Load	0x2,0x4
0391 017d       | }  |		Execute	Record,Structure_Write
0392 00cf       |    |		Action	Mark_Auxiliary
0393 e5fb       |    |		Load	0x2,-0x5
0394 8226       | &  |		Call	0x1,0x26
0395 4801       |H   |		Short_Literal	0x1
0396 0263       | c  |		Execute	Discrete,Above_Bound
0397 7064       |pd  |		Jump_Nonzero	0x3fc
0398 00d8       |    |		Load_Top	At_Offset_0
0399 e5fb       |    |		Load	0x2,-0x5
039a 8225       | %  |		Call	0x1,0x25
039b e405       |    |		Load	0x2,0x5
039c 017d       | }  |		Execute	Record,Structure_Write
039d 00cf       |    |		Action	Mark_Auxiliary
039e e5fa       |    |		Load	0x2,-0x6
039f 8226       | &  |		Call	0x1,0x26
03a0 4801       |H   |		Short_Literal	0x1
03a1 0263       | c  |		Execute	Discrete,Above_Bound
03a2 7056       |pV  |		Jump_Nonzero	0x3f9
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 e5fa       |    |		Load	0x2,-0x6
03a5 8225       | %  |		Call	0x1,0x25
03a6 e406       |    |		Load	0x2,0x6
03a7 017d       | }  |		Execute	Record,Structure_Write
03a8 00cf       |    |		Action	Mark_Auxiliary
03a9 e5f9       |    |		Load	0x2,-0x7
03aa 8226       | &  |		Call	0x1,0x26
03ab 4801       |H   |		Short_Literal	0x1
03ac 0263       | c  |		Execute	Discrete,Above_Bound
03ad 7048       |pH  |		Jump_Nonzero	0x3f6
03ae 00d8       |    |		Load_Top	At_Offset_0
03af e5f9       |    |		Load	0x2,-0x7
03b0 8225       | %  |		Call	0x1,0x25
03b1 e407       |    |		Load	0x2,0x7
03b2 017d       | }  |		Execute	Record,Structure_Write
03b3 00cf       |    |		Action	Mark_Auxiliary
03b4 e5f8       |    |		Load	0x2,-0x8
03b5 8226       | &  |		Call	0x1,0x26
03b6 4801       |H   |		Short_Literal	0x1
03b7 0263       | c  |		Execute	Discrete,Above_Bound
03b8 703a       |p:  |		Jump_Nonzero	0x3f3
03b9 00d8       |    |		Load_Top	At_Offset_0
03ba e5f8       |    |		Load	0x2,-0x8
03bb 8225       | %  |		Call	0x1,0x25
03bc e408       |    |		Load	0x2,0x8
03bd 017d       | }  |		Execute	Record,Structure_Write
03be 00cf       |    |		Action	Mark_Auxiliary
03bf e5f7       |    |		Load	0x2,-0x9
03c0 8226       | &  |		Call	0x1,0x26
03c1 4801       |H   |		Short_Literal	0x1
03c2 0263       | c  |		Execute	Discrete,Above_Bound
03c3 702c       |p,  |		Jump_Nonzero	0x3f0
03c4 00d8       |    |		Load_Top	At_Offset_0
03c5 e5f7       |    |		Load	0x2,-0x9
03c6 8225       | %  |		Call	0x1,0x25
03c7 e409       |    |		Load	0x2,0x9
03c8 017d       | }  |		Execute	Record,Structure_Write
03c9 e409       |    |		Load	0x2,0x9
03ca e408       |    |		Load	0x2,0x8
03cb e407       |    |		Load	0x2,0x7
03cc e406       |    |		Load	0x2,0x6
03cd e405       |    |		Load	0x2,0x5
03ce e404       |    |		Load	0x2,0x4
03cf e403       |    |		Load	0x2,0x3
03d0 85fe       |    |		Call	0x2,-0x2
03d1 681c       |h   |		Jump_Zero	0x3ee
03d2 e402       |    |		Load	0x2,0x2
03d3 e002       |    |		Load	0x0,0x2
03d4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d5 e002       |    |		Load	0x0,0x2
03d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d7 e002       |    |		Load	0x0,0x2
03d8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d9 e409       |    |		Load	0x2,0x9
03da e408       |    |		Load	0x2,0x8
03db e407       |    |		Load	0x2,0x7
03dc e406       |    |		Load	0x2,0x6
03dd e405       |    |		Load	0x2,0x5
03de e404       |    |		Load	0x2,0x4
03df e403       |    |		Load	0x2,0x3
03e0 822a       | *  |		Call	0x1,0x2a
03e1 00d1       |    |		Pop_Control	Pop_Count_1
03e2 e5f6       |    |		Load	0x2,-0xa
03e3 680a       |h   |		Jump_Zero	0x3ee
03e4 e402       |    |		Load	0x2,0x2
03e5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03e6 e402       |    |		Load	0x2,0x2
03e7 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
03e8 0270       | p  |		Execute	Discrete,Divide
03e9 e5f6       |    |		Load	0x2,-0xa
03ea 027b       | {  |		Execute	Discrete,Greater_Equal
03eb 6802       |h   |		Jump_Zero	0x3ee
03ec e402       |    |		Load	0x2,0x2
03ed 440a       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xa
03ee 00c8       |    |		Action	Pop_Auxiliary_Range
03ef 3fd4       |?   |		Loop_Increasing	0x3c4
03f0 00ce       |    |		Action	Pop_Auxiliary
03f1 00c8       |    |		Action	Pop_Auxiliary_Range
03f2 3fc6       |?   |		Loop_Increasing	0x3b9
03f3 00ce       |    |		Action	Pop_Auxiliary
03f4 00c8       |    |		Action	Pop_Auxiliary_Range
03f5 3fb8       |?   |		Loop_Increasing	0x3ae
03f6 00ce       |    |		Action	Pop_Auxiliary
03f7 00c8       |    |		Action	Pop_Auxiliary_Range
03f8 3faa       |?   |		Loop_Increasing	0x3a3
03f9 00ce       |    |		Action	Pop_Auxiliary
03fa 00c8       |    |		Action	Pop_Auxiliary_Range
03fb 3f9c       |?   |		Loop_Increasing	0x398
03fc 00ce       |    |		Action	Pop_Auxiliary
03fd 00c8       |    |		Action	Pop_Auxiliary_Range
03fe 3f8e       |?   |		Loop_Increasing	0x38d
03ff 00ce       |    |		Action	Pop_Auxiliary
0400 00c8       |    |		Action	Pop_Auxiliary_Range
0401 3f80       |?   |		Loop_Increasing	0x382
0402 00ce       |    |		Action	Pop_Auxiliary
0403 e402       |    |		Load	0x2,0x2
0404 440a       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xa
0405 0000 0000  |    |		.XXX[0x3]
0407 0000       |    |
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0420       |    |		.CONST	0x0420								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 000a       |    |		.CONST	0x000a								; Number of locals
040b			INIT_0408:
040b e20e       |    |		Load	0x1,0xe
040c 02ff       |    |		Declare_Variable	Variant_Record
040d 00d8       |    |		Load_Top	At_Offset_0
040e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
040f e002       |    |		Load	0x0,0x2
0410 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0411 0322       | "  |		Declare_Variable	Record
0412 00d8       |    |		Load_Top	At_Offset_0
0413 0322       | "  |		Declare_Variable	Record
0414 00d8       |    |		Load_Top	At_Offset_0
0415 0322       | "  |		Declare_Variable	Record
0416 00d8       |    |		Load_Top	At_Offset_0
0417 0322       | "  |		Declare_Variable	Record
0418 00d8       |    |		Load_Top	At_Offset_0
0419 0322       | "  |		Declare_Variable	Record
041a 00d8       |    |		Load_Top	At_Offset_0
041b 0322       | "  |		Declare_Variable	Record
041c 00d8       |    |		Load_Top	At_Offset_0
041d 0322       | "  |		Declare_Variable	Record
041e 00d8       |    |		Load_Top	At_Offset_0
041f 0322       | "  |		Declare_Variable	Record
0420			BODY_0408:
0420 4800       |H   |		Short_Literal	0x0
0421 e402       |    |		Load	0x2,0x2
0422 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0423 4808       |H   |		Short_Literal	0x8
0424 e402       |    |		Load	0x2,0x2
0425 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0426 00cf       |    |		Action	Mark_Auxiliary
0427 e5fd       |    |		Load	0x2,-0x3
0428 8226       | &  |		Call	0x1,0x26
0429 4801       |H   |		Short_Literal	0x1
042a 0263       | c  |		Execute	Discrete,Above_Bound
042b 708e       |p   |		Jump_Nonzero	0x4ba
042c 00d8       |    |		Load_Top	At_Offset_0
042d e5fd       |    |		Load	0x2,-0x3
042e 8225       | %  |		Call	0x1,0x25
042f e403       |    |		Load	0x2,0x3
0430 017d       | }  |		Execute	Record,Structure_Write
0431 00cf       |    |		Action	Mark_Auxiliary
0432 e5fc       |    |		Load	0x2,-0x4
0433 8226       | &  |		Call	0x1,0x26
0434 4801       |H   |		Short_Literal	0x1
0435 0263       | c  |		Execute	Discrete,Above_Bound
0436 7080       |p   |		Jump_Nonzero	0x4b7
0437 00d8       |    |		Load_Top	At_Offset_0
0438 e5fc       |    |		Load	0x2,-0x4
0439 8225       | %  |		Call	0x1,0x25
043a e404       |    |		Load	0x2,0x4
043b 017d       | }  |		Execute	Record,Structure_Write
043c 00cf       |    |		Action	Mark_Auxiliary
043d e5fb       |    |		Load	0x2,-0x5
043e 8226       | &  |		Call	0x1,0x26
043f 4801       |H   |		Short_Literal	0x1
0440 0263       | c  |		Execute	Discrete,Above_Bound
0441 7072       |pr  |		Jump_Nonzero	0x4b4
0442 00d8       |    |		Load_Top	At_Offset_0
0443 e5fb       |    |		Load	0x2,-0x5
0444 8225       | %  |		Call	0x1,0x25
0445 e405       |    |		Load	0x2,0x5
0446 017d       | }  |		Execute	Record,Structure_Write
0447 00cf       |    |		Action	Mark_Auxiliary
0448 e5fa       |    |		Load	0x2,-0x6
0449 8226       | &  |		Call	0x1,0x26
044a 4801       |H   |		Short_Literal	0x1
044b 0263       | c  |		Execute	Discrete,Above_Bound
044c 7064       |pd  |		Jump_Nonzero	0x4b1
044d 00d8       |    |		Load_Top	At_Offset_0
044e e5fa       |    |		Load	0x2,-0x6
044f 8225       | %  |		Call	0x1,0x25
0450 e406       |    |		Load	0x2,0x6
0451 017d       | }  |		Execute	Record,Structure_Write
0452 00cf       |    |		Action	Mark_Auxiliary
0453 e5f9       |    |		Load	0x2,-0x7
0454 8226       | &  |		Call	0x1,0x26
0455 4801       |H   |		Short_Literal	0x1
0456 0263       | c  |		Execute	Discrete,Above_Bound
0457 7056       |pV  |		Jump_Nonzero	0x4ae
0458 00d8       |    |		Load_Top	At_Offset_0
0459 e5f9       |    |		Load	0x2,-0x7
045a 8225       | %  |		Call	0x1,0x25
045b e407       |    |		Load	0x2,0x7
045c 017d       | }  |		Execute	Record,Structure_Write
045d 00cf       |    |		Action	Mark_Auxiliary
045e e5f8       |    |		Load	0x2,-0x8
045f 8226       | &  |		Call	0x1,0x26
0460 4801       |H   |		Short_Literal	0x1
0461 0263       | c  |		Execute	Discrete,Above_Bound
0462 7048       |pH  |		Jump_Nonzero	0x4ab
0463 00d8       |    |		Load_Top	At_Offset_0
0464 e5f8       |    |		Load	0x2,-0x8
0465 8225       | %  |		Call	0x1,0x25
0466 e408       |    |		Load	0x2,0x8
0467 017d       | }  |		Execute	Record,Structure_Write
0468 00cf       |    |		Action	Mark_Auxiliary
0469 e5f7       |    |		Load	0x2,-0x9
046a 8226       | &  |		Call	0x1,0x26
046b 4801       |H   |		Short_Literal	0x1
046c 0263       | c  |		Execute	Discrete,Above_Bound
046d 703a       |p:  |		Jump_Nonzero	0x4a8
046e 00d8       |    |		Load_Top	At_Offset_0
046f e5f7       |    |		Load	0x2,-0x9
0470 8225       | %  |		Call	0x1,0x25
0471 e409       |    |		Load	0x2,0x9
0472 017d       | }  |		Execute	Record,Structure_Write
0473 00cf       |    |		Action	Mark_Auxiliary
0474 e5f6       |    |		Load	0x2,-0xa
0475 8226       | &  |		Call	0x1,0x26
0476 4801       |H   |		Short_Literal	0x1
0477 0263       | c  |		Execute	Discrete,Above_Bound
0478 702c       |p,  |		Jump_Nonzero	0x4a5
0479 00d8       |    |		Load_Top	At_Offset_0
047a e5f6       |    |		Load	0x2,-0xa
047b 8225       | %  |		Call	0x1,0x25
047c e40a       |    |		Load	0x2,0xa
047d 017d       | }  |		Execute	Record,Structure_Write
047e e40a       |    |		Load	0x2,0xa
047f e409       |    |		Load	0x2,0x9
0480 e408       |    |		Load	0x2,0x8
0481 e407       |    |		Load	0x2,0x7
0482 e406       |    |		Load	0x2,0x6
0483 e405       |    |		Load	0x2,0x5
0484 e404       |    |		Load	0x2,0x4
0485 e403       |    |		Load	0x2,0x3
0486 85fe       |    |		Call	0x2,-0x2
0487 681b       |h   |		Jump_Zero	0x4a3
0488 e402       |    |		Load	0x2,0x2
0489 e002       |    |		Load	0x0,0x2
048a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
048b e002       |    |		Load	0x0,0x2
048c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
048d e40a       |    |		Load	0x2,0xa
048e e409       |    |		Load	0x2,0x9
048f e408       |    |		Load	0x2,0x8
0490 e407       |    |		Load	0x2,0x7
0491 e406       |    |		Load	0x2,0x6
0492 e405       |    |		Load	0x2,0x5
0493 e404       |    |		Load	0x2,0x4
0494 e403       |    |		Load	0x2,0x3
0495 822a       | *  |		Call	0x1,0x2a
0496 00d1       |    |		Pop_Control	Pop_Count_1
0497 e5f5       |    |		Load	0x2,-0xb
0498 680a       |h   |		Jump_Zero	0x4a3
0499 e402       |    |		Load	0x2,0x2
049a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
049b e402       |    |		Load	0x2,0x2
049c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
049d 0270       | p  |		Execute	Discrete,Divide
049e e5f5       |    |		Load	0x2,-0xb
049f 027b       | {  |		Execute	Discrete,Greater_Equal
04a0 6802       |h   |		Jump_Zero	0x4a3
04a1 e402       |    |		Load	0x2,0x2
04a2 440b       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xb
04a3 00c8       |    |		Action	Pop_Auxiliary_Range
04a4 3fd4       |?   |		Loop_Increasing	0x479
04a5 00ce       |    |		Action	Pop_Auxiliary
04a6 00c8       |    |		Action	Pop_Auxiliary_Range
04a7 3fc6       |?   |		Loop_Increasing	0x46e
04a8 00ce       |    |		Action	Pop_Auxiliary
04a9 00c8       |    |		Action	Pop_Auxiliary_Range
04aa 3fb8       |?   |		Loop_Increasing	0x463
04ab 00ce       |    |		Action	Pop_Auxiliary
04ac 00c8       |    |		Action	Pop_Auxiliary_Range
04ad 3faa       |?   |		Loop_Increasing	0x458
04ae 00ce       |    |		Action	Pop_Auxiliary
04af 00c8       |    |		Action	Pop_Auxiliary_Range
04b0 3f9c       |?   |		Loop_Increasing	0x44d
04b1 00ce       |    |		Action	Pop_Auxiliary
04b2 00c8       |    |		Action	Pop_Auxiliary_Range
04b3 3f8e       |?   |		Loop_Increasing	0x442
04b4 00ce       |    |		Action	Pop_Auxiliary
04b5 00c8       |    |		Action	Pop_Auxiliary_Range
04b6 3f80       |?   |		Loop_Increasing	0x437
04b7 00ce       |    |		Action	Pop_Auxiliary
04b8 00c8       |    |		Action	Pop_Auxiliary_Range
04b9 3f72       |?r  |		Loop_Increasing	0x42c
04ba 00ce       |    |		Action	Pop_Auxiliary
04bb e402       |    |		Load	0x2,0x2
04bc 440b       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xb
04bd 0000 0000  |    |		.XXX[0x3]
04bf 0000       |    |
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04da       |    |		.CONST	0x04da								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 000b       |    |		.CONST	0x000b								; Number of locals
04c3			INIT_04c0:
04c3 e20e       |    |		Load	0x1,0xe
04c4 02ff       |    |		Declare_Variable	Variant_Record
04c5 00d8       |    |		Load_Top	At_Offset_0
04c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c7 e002       |    |		Load	0x0,0x2
04c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04c9 0322       | "  |		Declare_Variable	Record
04ca 00d8       |    |		Load_Top	At_Offset_0
04cb 0322       | "  |		Declare_Variable	Record
04cc 00d8       |    |		Load_Top	At_Offset_0
04cd 0322       | "  |		Declare_Variable	Record
04ce 00d8       |    |		Load_Top	At_Offset_0
04cf 0322       | "  |		Declare_Variable	Record
04d0 00d8       |    |		Load_Top	At_Offset_0
04d1 0322       | "  |		Declare_Variable	Record
04d2 00d8       |    |		Load_Top	At_Offset_0
04d3 0322       | "  |		Declare_Variable	Record
04d4 00d8       |    |		Load_Top	At_Offset_0
04d5 0322       | "  |		Declare_Variable	Record
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 0322       | "  |		Declare_Variable	Record
04d8 00d8       |    |		Load_Top	At_Offset_0
04d9 0322       | "  |		Declare_Variable	Record
04da			BODY_04c0:
04da 4800       |H   |		Short_Literal	0x0
04db e402       |    |		Load	0x2,0x2
04dc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04dd 4809       |H   |		Short_Literal	0x9
04de e402       |    |		Load	0x2,0x2
04df 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
04e0 00cf       |    |		Action	Mark_Auxiliary
04e1 e5fd       |    |		Load	0x2,-0x3
04e2 8226       | &  |		Call	0x1,0x26
04e3 4801       |H   |		Short_Literal	0x1
04e4 0263       | c  |		Execute	Discrete,Above_Bound
04e5 709c       |p   |		Jump_Nonzero	0x582
04e6 00d8       |    |		Load_Top	At_Offset_0
04e7 e5fd       |    |		Load	0x2,-0x3
04e8 8225       | %  |		Call	0x1,0x25
04e9 e403       |    |		Load	0x2,0x3
04ea 017d       | }  |		Execute	Record,Structure_Write
04eb 00cf       |    |		Action	Mark_Auxiliary
04ec e5fc       |    |		Load	0x2,-0x4
04ed 8226       | &  |		Call	0x1,0x26
04ee 4801       |H   |		Short_Literal	0x1
04ef 0263       | c  |		Execute	Discrete,Above_Bound
04f0 708e       |p   |		Jump_Nonzero	0x57f
04f1 00d8       |    |		Load_Top	At_Offset_0
04f2 e5fc       |    |		Load	0x2,-0x4
04f3 8225       | %  |		Call	0x1,0x25
04f4 e404       |    |		Load	0x2,0x4
04f5 017d       | }  |		Execute	Record,Structure_Write
04f6 00cf       |    |		Action	Mark_Auxiliary
04f7 e5fb       |    |		Load	0x2,-0x5
04f8 8226       | &  |		Call	0x1,0x26
04f9 4801       |H   |		Short_Literal	0x1
04fa 0263       | c  |		Execute	Discrete,Above_Bound
04fb 7080       |p   |		Jump_Nonzero	0x57c
04fc 00d8       |    |		Load_Top	At_Offset_0
04fd e5fb       |    |		Load	0x2,-0x5
04fe 8225       | %  |		Call	0x1,0x25
04ff e405       |    |		Load	0x2,0x5
0500 017d       | }  |		Execute	Record,Structure_Write
0501 00cf       |    |		Action	Mark_Auxiliary
0502 e5fa       |    |		Load	0x2,-0x6
0503 8226       | &  |		Call	0x1,0x26
0504 4801       |H   |		Short_Literal	0x1
0505 0263       | c  |		Execute	Discrete,Above_Bound
0506 7072       |pr  |		Jump_Nonzero	0x579
0507 00d8       |    |		Load_Top	At_Offset_0
0508 e5fa       |    |		Load	0x2,-0x6
0509 8225       | %  |		Call	0x1,0x25
050a e406       |    |		Load	0x2,0x6
050b 017d       | }  |		Execute	Record,Structure_Write
050c 00cf       |    |		Action	Mark_Auxiliary
050d e5f9       |    |		Load	0x2,-0x7
050e 8226       | &  |		Call	0x1,0x26
050f 4801       |H   |		Short_Literal	0x1
0510 0263       | c  |		Execute	Discrete,Above_Bound
0511 7064       |pd  |		Jump_Nonzero	0x576
0512 00d8       |    |		Load_Top	At_Offset_0
0513 e5f9       |    |		Load	0x2,-0x7
0514 8225       | %  |		Call	0x1,0x25
0515 e407       |    |		Load	0x2,0x7
0516 017d       | }  |		Execute	Record,Structure_Write
0517 00cf       |    |		Action	Mark_Auxiliary
0518 e5f8       |    |		Load	0x2,-0x8
0519 8226       | &  |		Call	0x1,0x26
051a 4801       |H   |		Short_Literal	0x1
051b 0263       | c  |		Execute	Discrete,Above_Bound
051c 7056       |pV  |		Jump_Nonzero	0x573
051d 00d8       |    |		Load_Top	At_Offset_0
051e e5f8       |    |		Load	0x2,-0x8
051f 8225       | %  |		Call	0x1,0x25
0520 e408       |    |		Load	0x2,0x8
0521 017d       | }  |		Execute	Record,Structure_Write
0522 00cf       |    |		Action	Mark_Auxiliary
0523 e5f7       |    |		Load	0x2,-0x9
0524 8226       | &  |		Call	0x1,0x26
0525 4801       |H   |		Short_Literal	0x1
0526 0263       | c  |		Execute	Discrete,Above_Bound
0527 7048       |pH  |		Jump_Nonzero	0x570
0528 00d8       |    |		Load_Top	At_Offset_0
0529 e5f7       |    |		Load	0x2,-0x9
052a 8225       | %  |		Call	0x1,0x25
052b e409       |    |		Load	0x2,0x9
052c 017d       | }  |		Execute	Record,Structure_Write
052d 00cf       |    |		Action	Mark_Auxiliary
052e e5f6       |    |		Load	0x2,-0xa
052f 8226       | &  |		Call	0x1,0x26
0530 4801       |H   |		Short_Literal	0x1
0531 0263       | c  |		Execute	Discrete,Above_Bound
0532 703a       |p:  |		Jump_Nonzero	0x56d
0533 00d8       |    |		Load_Top	At_Offset_0
0534 e5f6       |    |		Load	0x2,-0xa
0535 8225       | %  |		Call	0x1,0x25
0536 e40a       |    |		Load	0x2,0xa
0537 017d       | }  |		Execute	Record,Structure_Write
0538 00cf       |    |		Action	Mark_Auxiliary
0539 e5f5       |    |		Load	0x2,-0xb
053a 8226       | &  |		Call	0x1,0x26
053b 4801       |H   |		Short_Literal	0x1
053c 0263       | c  |		Execute	Discrete,Above_Bound
053d 702c       |p,  |		Jump_Nonzero	0x56a
053e 00d8       |    |		Load_Top	At_Offset_0
053f e5f5       |    |		Load	0x2,-0xb
0540 8225       | %  |		Call	0x1,0x25
0541 e40b       |    |		Load	0x2,0xb
0542 017d       | }  |		Execute	Record,Structure_Write
0543 e40b       |    |		Load	0x2,0xb
0544 e40a       |    |		Load	0x2,0xa
0545 e409       |    |		Load	0x2,0x9
0546 e408       |    |		Load	0x2,0x8
0547 e407       |    |		Load	0x2,0x7
0548 e406       |    |		Load	0x2,0x6
0549 e405       |    |		Load	0x2,0x5
054a e404       |    |		Load	0x2,0x4
054b e403       |    |		Load	0x2,0x3
054c 85fe       |    |		Call	0x2,-0x2
054d 681a       |h   |		Jump_Zero	0x568
054e e402       |    |		Load	0x2,0x2
054f e002       |    |		Load	0x0,0x2
0550 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0551 e40b       |    |		Load	0x2,0xb
0552 e40a       |    |		Load	0x2,0xa
0553 e409       |    |		Load	0x2,0x9
0554 e408       |    |		Load	0x2,0x8
0555 e407       |    |		Load	0x2,0x7
0556 e406       |    |		Load	0x2,0x6
0557 e405       |    |		Load	0x2,0x5
0558 e404       |    |		Load	0x2,0x4
0559 e403       |    |		Load	0x2,0x3
055a 822a       | *  |		Call	0x1,0x2a
055b 00d1       |    |		Pop_Control	Pop_Count_1
055c e5f4       |    |		Load	0x2,-0xc
055d 680a       |h   |		Jump_Zero	0x568
055e e402       |    |		Load	0x2,0x2
055f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0560 e402       |    |		Load	0x2,0x2
0561 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0562 0270       | p  |		Execute	Discrete,Divide
0563 e5f4       |    |		Load	0x2,-0xc
0564 027b       | {  |		Execute	Discrete,Greater_Equal
0565 6802       |h   |		Jump_Zero	0x568
0566 e402       |    |		Load	0x2,0x2
0567 440c       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xc
0568 00c8       |    |		Action	Pop_Auxiliary_Range
0569 3fd4       |?   |		Loop_Increasing	0x53e
056a 00ce       |    |		Action	Pop_Auxiliary
056b 00c8       |    |		Action	Pop_Auxiliary_Range
056c 3fc6       |?   |		Loop_Increasing	0x533
056d 00ce       |    |		Action	Pop_Auxiliary
056e 00c8       |    |		Action	Pop_Auxiliary_Range
056f 3fb8       |?   |		Loop_Increasing	0x528
0570 00ce       |    |		Action	Pop_Auxiliary
0571 00c8       |    |		Action	Pop_Auxiliary_Range
0572 3faa       |?   |		Loop_Increasing	0x51d
0573 00ce       |    |		Action	Pop_Auxiliary
0574 00c8       |    |		Action	Pop_Auxiliary_Range
0575 3f9c       |?   |		Loop_Increasing	0x512
0576 00ce       |    |		Action	Pop_Auxiliary
0577 00c8       |    |		Action	Pop_Auxiliary_Range
0578 3f8e       |?   |		Loop_Increasing	0x507
0579 00ce       |    |		Action	Pop_Auxiliary
057a 00c8       |    |		Action	Pop_Auxiliary_Range
057b 3f80       |?   |		Loop_Increasing	0x4fc
057c 00ce       |    |		Action	Pop_Auxiliary
057d 00c8       |    |		Action	Pop_Auxiliary_Range
057e 3f72       |?r  |		Loop_Increasing	0x4f1
057f 00ce       |    |		Action	Pop_Auxiliary
0580 00c8       |    |		Action	Pop_Auxiliary_Range
0581 3f64       |?d  |		Loop_Increasing	0x4e6
0582 00ce       |    |		Action	Pop_Auxiliary
0583 e402       |    |		Load	0x2,0x2
0584 440c       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xc
0585 0000 0000  |    |		.XXX[0x3]
0587 0000       |    |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 05a4       |    |		.CONST	0x05a4								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 000c       |    |		.CONST	0x000c								; Number of locals
058b			INIT_0588:
058b e20e       |    |		Load	0x1,0xe
058c 02ff       |    |		Declare_Variable	Variant_Record
058d 00d8       |    |		Load_Top	At_Offset_0
058e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058f e002       |    |		Load	0x0,0x2
0590 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0591 0322       | "  |		Declare_Variable	Record
0592 00d8       |    |		Load_Top	At_Offset_0
0593 0322       | "  |		Declare_Variable	Record
0594 00d8       |    |		Load_Top	At_Offset_0
0595 0322       | "  |		Declare_Variable	Record
0596 00d8       |    |		Load_Top	At_Offset_0
0597 0322       | "  |		Declare_Variable	Record
0598 00d8       |    |		Load_Top	At_Offset_0
0599 0322       | "  |		Declare_Variable	Record
059a 00d8       |    |		Load_Top	At_Offset_0
059b 0322       | "  |		Declare_Variable	Record
059c 00d8       |    |		Load_Top	At_Offset_0
059d 0322       | "  |		Declare_Variable	Record
059e 00d8       |    |		Load_Top	At_Offset_0
059f 0322       | "  |		Declare_Variable	Record
05a0 00d8       |    |		Load_Top	At_Offset_0
05a1 0322       | "  |		Declare_Variable	Record
05a2 00d8       |    |		Load_Top	At_Offset_0
05a3 0322       | "  |		Declare_Variable	Record
05a4			BODY_0588:
05a4 4800       |H   |		Short_Literal	0x0
05a5 e402       |    |		Load	0x2,0x2
05a6 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05a7 480a       |H   |		Short_Literal	0xa
05a8 e402       |    |		Load	0x2,0x2
05a9 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
05aa 00cf       |    |		Action	Mark_Auxiliary
05ab e5fd       |    |		Load	0x2,-0x3
05ac 8226       | &  |		Call	0x1,0x26
05ad 4801       |H   |		Short_Literal	0x1
05ae 0263       | c  |		Execute	Discrete,Above_Bound
05af 70aa       |p   |		Jump_Nonzero	0x65a
05b0 00d8       |    |		Load_Top	At_Offset_0
05b1 e5fd       |    |		Load	0x2,-0x3
05b2 8225       | %  |		Call	0x1,0x25
05b3 e403       |    |		Load	0x2,0x3
05b4 017d       | }  |		Execute	Record,Structure_Write
05b5 00cf       |    |		Action	Mark_Auxiliary
05b6 e5fc       |    |		Load	0x2,-0x4
05b7 8226       | &  |		Call	0x1,0x26
05b8 4801       |H   |		Short_Literal	0x1
05b9 0263       | c  |		Execute	Discrete,Above_Bound
05ba 709c       |p   |		Jump_Nonzero	0x657
05bb 00d8       |    |		Load_Top	At_Offset_0
05bc e5fc       |    |		Load	0x2,-0x4
05bd 8225       | %  |		Call	0x1,0x25
05be e404       |    |		Load	0x2,0x4
05bf 017d       | }  |		Execute	Record,Structure_Write
05c0 00cf       |    |		Action	Mark_Auxiliary
05c1 e5fb       |    |		Load	0x2,-0x5
05c2 8226       | &  |		Call	0x1,0x26
05c3 4801       |H   |		Short_Literal	0x1
05c4 0263       | c  |		Execute	Discrete,Above_Bound
05c5 708e       |p   |		Jump_Nonzero	0x654
05c6 00d8       |    |		Load_Top	At_Offset_0
05c7 e5fb       |    |		Load	0x2,-0x5
05c8 8225       | %  |		Call	0x1,0x25
05c9 e405       |    |		Load	0x2,0x5
05ca 017d       | }  |		Execute	Record,Structure_Write
05cb 00cf       |    |		Action	Mark_Auxiliary
05cc e5fa       |    |		Load	0x2,-0x6
05cd 8226       | &  |		Call	0x1,0x26
05ce 4801       |H   |		Short_Literal	0x1
05cf 0263       | c  |		Execute	Discrete,Above_Bound
05d0 7080       |p   |		Jump_Nonzero	0x651
05d1 00d8       |    |		Load_Top	At_Offset_0
05d2 e5fa       |    |		Load	0x2,-0x6
05d3 8225       | %  |		Call	0x1,0x25
05d4 e406       |    |		Load	0x2,0x6
05d5 017d       | }  |		Execute	Record,Structure_Write
05d6 00cf       |    |		Action	Mark_Auxiliary
05d7 e5f9       |    |		Load	0x2,-0x7
05d8 8226       | &  |		Call	0x1,0x26
05d9 4801       |H   |		Short_Literal	0x1
05da 0263       | c  |		Execute	Discrete,Above_Bound
05db 7072       |pr  |		Jump_Nonzero	0x64e
05dc 00d8       |    |		Load_Top	At_Offset_0
05dd e5f9       |    |		Load	0x2,-0x7
05de 8225       | %  |		Call	0x1,0x25
05df e407       |    |		Load	0x2,0x7
05e0 017d       | }  |		Execute	Record,Structure_Write
05e1 00cf       |    |		Action	Mark_Auxiliary
05e2 e5f8       |    |		Load	0x2,-0x8
05e3 8226       | &  |		Call	0x1,0x26
05e4 4801       |H   |		Short_Literal	0x1
05e5 0263       | c  |		Execute	Discrete,Above_Bound
05e6 7064       |pd  |		Jump_Nonzero	0x64b
05e7 00d8       |    |		Load_Top	At_Offset_0
05e8 e5f8       |    |		Load	0x2,-0x8
05e9 8225       | %  |		Call	0x1,0x25
05ea e408       |    |		Load	0x2,0x8
05eb 017d       | }  |		Execute	Record,Structure_Write
05ec 00cf       |    |		Action	Mark_Auxiliary
05ed e5f7       |    |		Load	0x2,-0x9
05ee 8226       | &  |		Call	0x1,0x26
05ef 4801       |H   |		Short_Literal	0x1
05f0 0263       | c  |		Execute	Discrete,Above_Bound
05f1 7056       |pV  |		Jump_Nonzero	0x648
05f2 00d8       |    |		Load_Top	At_Offset_0
05f3 e5f7       |    |		Load	0x2,-0x9
05f4 8225       | %  |		Call	0x1,0x25
05f5 e409       |    |		Load	0x2,0x9
05f6 017d       | }  |		Execute	Record,Structure_Write
05f7 00cf       |    |		Action	Mark_Auxiliary
05f8 e5f6       |    |		Load	0x2,-0xa
05f9 8226       | &  |		Call	0x1,0x26
05fa 4801       |H   |		Short_Literal	0x1
05fb 0263       | c  |		Execute	Discrete,Above_Bound
05fc 7048       |pH  |		Jump_Nonzero	0x645
05fd 00d8       |    |		Load_Top	At_Offset_0
05fe e5f6       |    |		Load	0x2,-0xa
05ff 8225       | %  |		Call	0x1,0x25
0600 e40a       |    |		Load	0x2,0xa
0601 017d       | }  |		Execute	Record,Structure_Write
0602 00cf       |    |		Action	Mark_Auxiliary
0603 e5f5       |    |		Load	0x2,-0xb
0604 8226       | &  |		Call	0x1,0x26
0605 4801       |H   |		Short_Literal	0x1
0606 0263       | c  |		Execute	Discrete,Above_Bound
0607 703a       |p:  |		Jump_Nonzero	0x642
0608 00d8       |    |		Load_Top	At_Offset_0
0609 e5f5       |    |		Load	0x2,-0xb
060a 8225       | %  |		Call	0x1,0x25
060b e40b       |    |		Load	0x2,0xb
060c 017d       | }  |		Execute	Record,Structure_Write
060d 00cf       |    |		Action	Mark_Auxiliary
060e e5f4       |    |		Load	0x2,-0xc
060f 8226       | &  |		Call	0x1,0x26
0610 4801       |H   |		Short_Literal	0x1
0611 0263       | c  |		Execute	Discrete,Above_Bound
0612 702c       |p,  |		Jump_Nonzero	0x63f
0613 00d8       |    |		Load_Top	At_Offset_0
0614 e5f4       |    |		Load	0x2,-0xc
0615 8225       | %  |		Call	0x1,0x25
0616 e40c       |    |		Load	0x2,0xc
0617 017d       | }  |		Execute	Record,Structure_Write
0618 e40c       |    |		Load	0x2,0xc
0619 e40b       |    |		Load	0x2,0xb
061a e40a       |    |		Load	0x2,0xa
061b e409       |    |		Load	0x2,0x9
061c e408       |    |		Load	0x2,0x8
061d e407       |    |		Load	0x2,0x7
061e e406       |    |		Load	0x2,0x6
061f e405       |    |		Load	0x2,0x5
0620 e404       |    |		Load	0x2,0x4
0621 e403       |    |		Load	0x2,0x3
0622 85fe       |    |		Call	0x2,-0x2
0623 6819       |h   |		Jump_Zero	0x63d
0624 e402       |    |		Load	0x2,0x2
0625 e40c       |    |		Load	0x2,0xc
0626 e40b       |    |		Load	0x2,0xb
0627 e40a       |    |		Load	0x2,0xa
0628 e409       |    |		Load	0x2,0x9
0629 e408       |    |		Load	0x2,0x8
062a e407       |    |		Load	0x2,0x7
062b e406       |    |		Load	0x2,0x6
062c e405       |    |		Load	0x2,0x5
062d e404       |    |		Load	0x2,0x4
062e e403       |    |		Load	0x2,0x3
062f 822a       | *  |		Call	0x1,0x2a
0630 00d1       |    |		Pop_Control	Pop_Count_1
0631 e5f3       |    |		Load	0x2,-0xd
0632 680a       |h   |		Jump_Zero	0x63d
0633 e402       |    |		Load	0x2,0x2
0634 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0635 e402       |    |		Load	0x2,0x2
0636 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0637 0270       | p  |		Execute	Discrete,Divide
0638 e5f3       |    |		Load	0x2,-0xd
0639 027b       | {  |		Execute	Discrete,Greater_Equal
063a 6802       |h   |		Jump_Zero	0x63d
063b e402       |    |		Load	0x2,0x2
063c 440d       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xd
063d 00c8       |    |		Action	Pop_Auxiliary_Range
063e 3fd4       |?   |		Loop_Increasing	0x613
063f 00ce       |    |		Action	Pop_Auxiliary
0640 00c8       |    |		Action	Pop_Auxiliary_Range
0641 3fc6       |?   |		Loop_Increasing	0x608
0642 00ce       |    |		Action	Pop_Auxiliary
0643 00c8       |    |		Action	Pop_Auxiliary_Range
0644 3fb8       |?   |		Loop_Increasing	0x5fd
0645 00ce       |    |		Action	Pop_Auxiliary
0646 00c8       |    |		Action	Pop_Auxiliary_Range
0647 3faa       |?   |		Loop_Increasing	0x5f2
0648 00ce       |    |		Action	Pop_Auxiliary
0649 00c8       |    |		Action	Pop_Auxiliary_Range
064a 3f9c       |?   |		Loop_Increasing	0x5e7
064b 00ce       |    |		Action	Pop_Auxiliary
064c 00c8       |    |		Action	Pop_Auxiliary_Range
064d 3f8e       |?   |		Loop_Increasing	0x5dc
064e 00ce       |    |		Action	Pop_Auxiliary
064f 00c8       |    |		Action	Pop_Auxiliary_Range
0650 3f80       |?   |		Loop_Increasing	0x5d1
0651 00ce       |    |		Action	Pop_Auxiliary
0652 00c8       |    |		Action	Pop_Auxiliary_Range
0653 3f72       |?r  |		Loop_Increasing	0x5c6
0654 00ce       |    |		Action	Pop_Auxiliary
0655 00c8       |    |		Action	Pop_Auxiliary_Range
0656 3f64       |?d  |		Loop_Increasing	0x5bb
0657 00ce       |    |		Action	Pop_Auxiliary
0658 00c8       |    |		Action	Pop_Auxiliary_Range
0659 3f56       |?V  |		Loop_Increasing	0x5b0
065a 00ce       |    |		Action	Pop_Auxiliary
065b e402       |    |		Load	0x2,0x2
065c 440d       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xd
065d 0000 0000  |    |		.XXX[0x3]
065f 0000       |    |
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 066d       | m  |		.CONST	0x066d								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0003       |    |		.CONST	0x0003								; Number of locals
0663			INIT_0660:
0663 e002       |    |		Load	0x0,0x2
0664 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0665 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0666 02ff       |    |		Declare_Variable	Variant_Record
0667 00d8       |    |		Load_Top	At_Offset_0
0668 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0669 00d8       |    |		Load_Top	At_Offset_0
066a 02ff       |    |		Declare_Variable	Variant_Record
066b 00d8       |    |		Load_Top	At_Offset_0
066c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
066d			BODY_0660:
066d e5fd       |    |		Load	0x2,-0x3
066e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
066f 681c       |h   |		Jump_Zero	0x68c
0670 e5fd       |    |		Load	0x2,-0x3
0671 8220       |    |		Call	0x1,0x20
0672 00da       |    |		Load_Top	At_Offset_2
0673 016d       | m  |		Execute	Variant_Record,Structure_Write
0674 00cf       |    |		Action	Mark_Auxiliary
0675 e5fd       |    |		Load	0x2,-0x3
0676 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0677 e5fd       |    |		Load	0x2,-0x3
0678 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0679 0270       | p  |		Execute	Discrete,Divide
067a 4802       |H   |		Short_Literal	0x2
067b 0263       | c  |		Execute	Discrete,Above_Bound
067c 700e       |p   |		Jump_Nonzero	0x68b
067d 00d8       |    |		Load_Top	At_Offset_0
067e e5fd       |    |		Load	0x2,-0x3
067f 821f       |    |		Call	0x1,0x1f
0680 e403       |    |		Load	0x2,0x3
0681 016d       | m  |		Execute	Variant_Record,Structure_Write
0682 00db       |    |		Load_Top	At_Offset_3
0683 e402       |    |		Load	0x2,0x2
0684 85fe       |    |		Call	0x2,-0x2
0685 7003       |p   |		Jump_Nonzero	0x689
0686 00db       |    |		Load_Top	At_Offset_3
0687 e402       |    |		Load	0x2,0x2
0688 016d       | m  |		Execute	Variant_Record,Structure_Write
0689 00c8       |    |		Action	Pop_Auxiliary_Range
068a 3ff2       |?   |		Loop_Increasing	0x67d
068b 00ce       |    |		Action	Pop_Auxiliary
068c 00d9       |    |		Load_Top	At_Offset_1
068d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
068e 0000 0000  |    |		.XXX[0x2]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 069d       |    |		.CONST	0x069d								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0003       |    |		.CONST	0x0003								; Number of locals
0693			INIT_0690:
0693 e20e       |    |		Load	0x1,0xe
0694 02ff       |    |		Declare_Variable	Variant_Record
0695 00d8       |    |		Load_Top	At_Offset_0
0696 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0697 e002       |    |		Load	0x0,0x2
0698 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0699 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
069a 02ff       |    |		Declare_Variable	Variant_Record
069b 00d8       |    |		Load_Top	At_Offset_0
069c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
069d			BODY_0690:
069d e5fd       |    |		Load	0x2,-0x3
069e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
069f 6835       |h5  |		Jump_Zero	0x6d5
06a0 e5fd       |    |		Load	0x2,-0x3
06a1 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06a2 00da       |    |		Load_Top	At_Offset_2
06a3 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
06a4 00cf       |    |		Action	Mark_Auxiliary
06a5 e5fd       |    |		Load	0x2,-0x3
06a6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06a7 e5fd       |    |		Load	0x2,-0x3
06a8 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06a9 0270       | p  |		Execute	Discrete,Divide
06aa 4801       |H   |		Short_Literal	0x1
06ab 0263       | c  |		Execute	Discrete,Above_Bound
06ac 7027       |p'  |		Jump_Nonzero	0x6d4
06ad 00d8       |    |		Load_Top	At_Offset_0
06ae e5fd       |    |		Load	0x2,-0x3
06af 821f       |    |		Call	0x1,0x1f
06b0 e403       |    |		Load	0x2,0x3
06b1 016d       | m  |		Execute	Variant_Record,Structure_Write
06b2 00db       |    |		Load_Top	At_Offset_3
06b3 85fe       |    |		Call	0x2,-0x2
06b4 681d       |h   |		Jump_Zero	0x6d2
06b5 00cf       |    |		Action	Mark_Auxiliary
06b6 e5fd       |    |		Load	0x2,-0x3
06b7 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06b8 4801       |H   |		Short_Literal	0x1
06b9 0263       | c  |		Execute	Discrete,Above_Bound
06ba 700a       |p   |		Jump_Nonzero	0x6c5
06bb e402       |    |		Load	0x2,0x2
06bc 00d9       |    |		Load_Top	At_Offset_1
06bd e403       |    |		Load	0x2,0x3
06be e002       |    |		Load	0x0,0x2
06bf 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
06c0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06c1 8229       | )  |		Call	0x1,0x29
06c2 00d1       |    |		Pop_Control	Pop_Count_1
06c3 00c8       |    |		Action	Pop_Auxiliary_Range
06c4 3ff6       |?   |		Loop_Increasing	0x6bb
06c5 00ce       |    |		Action	Pop_Auxiliary
06c6 e5fc       |    |		Load	0x2,-0x4
06c7 680a       |h   |		Jump_Zero	0x6d2
06c8 e402       |    |		Load	0x2,0x2
06c9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ca e402       |    |		Load	0x2,0x2
06cb 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06cc 0270       | p  |		Execute	Discrete,Divide
06cd e5fc       |    |		Load	0x2,-0x4
06ce 027b       | {  |		Execute	Discrete,Greater_Equal
06cf 6802       |h   |		Jump_Zero	0x6d2
06d0 e402       |    |		Load	0x2,0x2
06d1 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
06d2 00c8       |    |		Action	Pop_Auxiliary_Range
06d3 3fd9       |?   |		Loop_Increasing	0x6ad
06d4 00ce       |    |		Action	Pop_Auxiliary
06d5 00d9       |    |		Load_Top	At_Offset_1
06d6 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
06d7 0000       |    |		.XXX[0x1]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06e1       |    |		.CONST	0x06e1								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0002       |    |		.CONST	0x0002								; Number of locals
06db			INIT_06d8:
06db e002       |    |		Load	0x0,0x2
06dc 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
06dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06de 02ff       |    |		Declare_Variable	Variant_Record
06df 00d8       |    |		Load_Top	At_Offset_0
06e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06e1			BODY_06d8:
06e1 e5fd       |    |		Load	0x2,-0x3
06e2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06e3 6816       |h   |		Jump_Zero	0x6fa
06e4 00cf       |    |		Action	Mark_Auxiliary
06e5 e5fd       |    |		Load	0x2,-0x3
06e6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06e7 e5fd       |    |		Load	0x2,-0x3
06e8 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06e9 0270       | p  |		Execute	Discrete,Divide
06ea 4801       |H   |		Short_Literal	0x1
06eb 0263       | c  |		Execute	Discrete,Above_Bound
06ec 700c       |p   |		Jump_Nonzero	0x6f9
06ed 00d8       |    |		Load_Top	At_Offset_0
06ee e5fd       |    |		Load	0x2,-0x3
06ef 821f       |    |		Call	0x1,0x1f
06f0 e402       |    |		Load	0x2,0x2
06f1 016d       | m  |		Execute	Variant_Record,Structure_Write
06f2 00db       |    |		Load_Top	At_Offset_3
06f3 85fe       |    |		Call	0x2,-0x2
06f4 6802       |h   |		Jump_Zero	0x6f7
06f5 00db       |    |		Load_Top	At_Offset_3
06f6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
06f7 00c8       |    |		Action	Pop_Auxiliary_Range
06f8 3ff4       |?   |		Loop_Increasing	0x6ed
06f9 00ce       |    |		Action	Pop_Auxiliary
06fa 00d8       |    |		Load_Top	At_Offset_0
06fb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
06fc 0000 0000  |    |		.BLANK	0000[0x4]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0709       |    |		.CONST	0x0709								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0002       |    |		.CONST	0x0002								; Number of locals
0703			INIT_0700:
0703 e002       |    |		Load	0x0,0x2
0704 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0705 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0706 02ff       |    |		Declare_Variable	Variant_Record
0707 00d8       |    |		Load_Top	At_Offset_0
0708 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0709			BODY_0700:
0709 e5fe       |    |		Load	0x2,-0x2
070a e5ff       |    |		Load	0x2,-0x1
070b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
070c e5ff       |    |		Load	0x2,-0x1
070d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
070e 0270       | p  |		Execute	Discrete,Divide
070f 027a       | z  |		Execute	Discrete,Less_Equal
0710 681c       |h   |		Jump_Zero	0x72d
0711 00cf       |    |		Action	Mark_Auxiliary
0712 e5ff       |    |		Load	0x2,-0x1
0713 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0714 4801       |H   |		Short_Literal	0x1
0715 0263       | c  |		Execute	Discrete,Above_Bound
0716 7015       |p   |		Jump_Nonzero	0x72c
0717 00db       |    |		Load_Top	At_Offset_3
0718 e5fe       |    |		Load	0x2,-0x2
0719 0aff       |    |		Execute_Immediate	Plus,-0x1
071a e5ff       |    |		Load	0x2,-0x1
071b 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
071c 0271       | q  |		Execute	Discrete,Times
071d 00da       |    |		Load_Top	At_Offset_2
071e 0273       | s  |		Execute	Discrete,Plus
071f 00d8       |    |		Load_Top	At_Offset_0
0720 00e4       |    |		Load_Encached	Positive_Cache
0721 0260       | `  |		Execute	Discrete,In_Type
0722 7001       |p   |		Jump_Nonzero	0x724
0723 0801       |    |		Execute_Immediate	Raise,0x1
0724 e5ff       |    |		Load	0x2,-0x1
0725 8227       | '  |		Call	0x1,0x27
0726 e002       |    |		Load	0x0,0x2
0727 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0728 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0729 00d1       |    |		Pop_Control	Pop_Count_1
072a 00c8       |    |		Action	Pop_Auxiliary_Range
072b 3feb       |?   |		Loop_Increasing	0x717
072c 00ce       |    |		Action	Pop_Auxiliary
072d 00d8       |    |		Load_Top	At_Offset_0
072e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
072f 0000       |    |		.XXX[0x1]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733       | 3  |		.CONST	0x0733								; Address of begin
0731 0004       |    |		.CONST	0x0004								; Address of exception handler
0732 0001       |    |		.CONST	0x0001								; Number of locals
0733			BODY_0730:
0733			INIT_0730:
0733 4801       |H   |		Short_Literal	0x1
0734 00db       |    |		Load_Top	At_Offset_3
0735 821f       |    |		Call	0x1,0x1f
0736 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0737 0000       |    |		.XXX[0x1]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0741       | A  |		.CONST	0x0741								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0004       |    |		.CONST	0x0004								; Number of locals
073b			INIT_0738:
073b e20e       |    |		Load	0x1,0xe
073c 02ff       |    |		Declare_Variable	Variant_Record
073d 00d8       |    |		Load_Top	At_Offset_0
073e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
073f 00e3       |    |		Load_Encached	Natural_Cache
0740 00e3       |    |		Load_Encached	Natural_Cache
0741			BODY_0738:
0741 e5fd       |    |		Load	0x2,-0x3
0742 e5ff       |    |		Load	0x2,-0x1
0743 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0744 e5ff       |    |		Load	0x2,-0x1
0745 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0746 0270       | p  |		Execute	Discrete,Divide
0747 027d       | }  |		Execute	Discrete,Greater
0748 6807       |h   |		Jump_Zero	0x750
0749 e5ff       |    |		Load	0x2,-0x1
074a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
074b e5ff       |    |		Load	0x2,-0x1
074c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
074d 0270       | p  |		Execute	Discrete,Divide
074e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
074f 7802       |x   |		Jump	0x752
0750 e5fd       |    |		Load	0x2,-0x3
0751 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0752 e5fe       |    |		Load	0x2,-0x2
0753 0d01       |    |		Execute_Immediate	Less,0x1
0754 6803       |h   |		Jump_Zero	0x758
0755 4801       |H   |		Short_Literal	0x1
0756 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0757 7802       |x   |		Jump	0x75a
0758 e5fe       |    |		Load	0x2,-0x2
0759 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
075a e5ff       |    |		Load	0x2,-0x1
075b 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
075c 00db       |    |		Load_Top	At_Offset_3
075d 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
075e 00cf       |    |		Action	Mark_Auxiliary
075f e5ff       |    |		Load	0x2,-0x1
0760 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0761 00da       |    |		Load_Top	At_Offset_2
0762 0271       | q  |		Execute	Discrete,Times
0763 00d8       |    |		Load_Top	At_Offset_0
0764 00e2       |    |		Load_Encached	Integer_Cache
0765 0260       | `  |		Execute	Discrete,In_Type
0766 7001       |p   |		Jump_Nonzero	0x768
0767 0801       |    |		Execute_Immediate	Raise,0x1
0768 00db       |    |		Load_Top	At_Offset_3
0769 0263       | c  |		Execute	Discrete,Above_Bound
076a 700d       |p   |		Jump_Nonzero	0x778
076b e402       |    |		Load	0x2,0x2
076c 00d9       |    |		Load_Top	At_Offset_1
076d 00d8       |    |		Load_Top	At_Offset_0
076e 00e4       |    |		Load_Encached	Positive_Cache
076f 0260       | `  |		Execute	Discrete,In_Type
0770 7001       |p   |		Jump_Nonzero	0x772
0771 0801       |    |		Execute_Immediate	Raise,0x1
0772 e5ff       |    |		Load	0x2,-0x1
0773 8227       | '  |		Call	0x1,0x27
0774 8229       | )  |		Call	0x1,0x29
0775 00d1       |    |		Pop_Control	Pop_Count_1
0776 00c8       |    |		Action	Pop_Auxiliary_Range
0777 3ff3       |?   |		Loop_Increasing	0x76b
0778 00ce       |    |		Action	Pop_Auxiliary
0779 00da       |    |		Load_Top	At_Offset_2
077a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
077b 0000 0000  |    |		.BLANK	0000[0x5]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0785       |    |		.CONST	0x0785								; Address of begin
0781 0004       |    |		.CONST	0x0004								; Address of exception handler
0782 0002       |    |		.CONST	0x0002								; Number of locals
0783			INIT_0780:
0783 029f 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Call
0785			BODY_0780:
0785 00cf       |    |		Action	Mark_Auxiliary
0786 e5fd       |    |		Load	0x2,-0x3
0787 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0788 e5fd       |    |		Load	0x2,-0x3
0789 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
078a 0270       | p  |		Execute	Discrete,Divide
078b 4801       |H   |		Short_Literal	0x1
078c 0263       | c  |		Execute	Discrete,Above_Bound
078d 7003       |p   |		Jump_Nonzero	0x791
078e 8402       |    |		Call	0x2,0x2
078f 00c8       |    |		Action	Pop_Auxiliary_Range
0790 3ffd       |?   |		Loop_Increasing	0x78e
0791 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0792 0000 0000  |    |		.BLANK	0000[0x6]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b       |    |		.CONST	0x079b								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0001       |    |		.CONST	0x0001								; Number of locals
079b			BODY_0798:
079b			INIT_0798:
079b 00db       |    |		Load_Top	At_Offset_3
079c 00db       |    |		Load_Top	At_Offset_3
079d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
079e 027d       | }  |		Execute	Discrete,Greater
079f 6803       |h   |		Jump_Zero	0x7a3
07a0 e002       |    |		Load	0x0,0x2
07a1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07a3 00db       |    |		Load_Top	At_Offset_3
07a4 00db       |    |		Load_Top	At_Offset_3
07a5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07a6 01d5       |    |		Execute	Vector,Field_Reference
07a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab 00da       |    |		Load_Top	At_Offset_2
07ac 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07ad 00db       |    |		Load_Top	At_Offset_3
07ae 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07af 027b       | {  |		Execute	Discrete,Greater_Equal
07b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b1 0000 0000  |    |		.BLANK	0000[0x7]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bd       |    |		.CONST	0x07bd								; Address of begin
07b9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ba 0002       |    |		.CONST	0x0002								; Number of locals
07bb			INIT_07b8:
07bb 029f 0863  |   c|		Declare_Subprogram	INIT_0860,For_Call
07bd			BODY_07b8:
07bd e5fe       |    |		Load	0x2,-0x2
07be 8228       | (  |		Call	0x1,0x28
07bf 6801       |h   |		Jump_Zero	0x7c1
07c0 8402       |    |		Call	0x2,0x2
07c1 e5fe       |    |		Load	0x2,-0x2
07c2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07c3 0a01       |    |		Execute_Immediate	Plus,0x1
07c4 e5fe       |    |		Load	0x2,-0x2
07c5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07c6 00db       |    |		Load_Top	At_Offset_3
07c7 e5fe       |    |		Load	0x2,-0x2
07c8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07c9 e5fe       |    |		Load	0x2,-0x2
07ca 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07cb 01d6       |    |		Execute	Vector,Field_Write
07cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07cd 0000 0000  |    |		.XXX[0x3]
07cf 0000       |    |
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3       |    |		.CONST	0x07d3								; Address of begin
07d1 0004       |    |		.CONST	0x0004								; Address of exception handler
07d2 0001       |    |		.CONST	0x0001								; Number of locals
07d3			BODY_07d0:
07d3			INIT_07d0:
07d3 00da       |    |		Load_Top	At_Offset_2
07d4 e002       |    |		Load	0x0,0x2
07d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07d6 017e       | ~  |		Execute	Record,Not_Equal
07d7 6804       |h   |		Jump_Zero	0x7dc
07d8 e5f5       |    |		Load	0x2,-0xb
07d9 00db       |    |		Load_Top	At_Offset_3
07da 8229       | )  |		Call	0x1,0x29
07db 00d1       |    |		Pop_Control	Pop_Count_1
07dc 00db       |    |		Load_Top	At_Offset_3
07dd e002       |    |		Load	0x0,0x2
07de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07df 017e       | ~  |		Execute	Record,Not_Equal
07e0 6804       |h   |		Jump_Zero	0x7e5
07e1 e5f5       |    |		Load	0x2,-0xb
07e2 e5fe       |    |		Load	0x2,-0x2
07e3 8229       | )  |		Call	0x1,0x29
07e4 00d1       |    |		Pop_Control	Pop_Count_1
07e5 e5fd       |    |		Load	0x2,-0x3
07e6 e002       |    |		Load	0x0,0x2
07e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07e8 017e       | ~  |		Execute	Record,Not_Equal
07e9 6804       |h   |		Jump_Zero	0x7ee
07ea e5f5       |    |		Load	0x2,-0xb
07eb e5fd       |    |		Load	0x2,-0x3
07ec 8229       | )  |		Call	0x1,0x29
07ed 00d1       |    |		Pop_Control	Pop_Count_1
07ee e5fc       |    |		Load	0x2,-0x4
07ef e002       |    |		Load	0x0,0x2
07f0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07f1 017e       | ~  |		Execute	Record,Not_Equal
07f2 6804       |h   |		Jump_Zero	0x7f7
07f3 e5f5       |    |		Load	0x2,-0xb
07f4 e5fc       |    |		Load	0x2,-0x4
07f5 8229       | )  |		Call	0x1,0x29
07f6 00d1       |    |		Pop_Control	Pop_Count_1
07f7 e5fc       |    |		Load	0x2,-0x4
07f8 e002       |    |		Load	0x0,0x2
07f9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07fa 017e       | ~  |		Execute	Record,Not_Equal
07fb 6804       |h   |		Jump_Zero	0x800
07fc e5f5       |    |		Load	0x2,-0xb
07fd e5fc       |    |		Load	0x2,-0x4
07fe 8229       | )  |		Call	0x1,0x29
07ff 00d1       |    |		Pop_Control	Pop_Count_1
0800 e5fb       |    |		Load	0x2,-0x5
0801 e002       |    |		Load	0x0,0x2
0802 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0803 017e       | ~  |		Execute	Record,Not_Equal
0804 6804       |h   |		Jump_Zero	0x809
0805 e5f5       |    |		Load	0x2,-0xb
0806 e5fb       |    |		Load	0x2,-0x5
0807 8229       | )  |		Call	0x1,0x29
0808 00d1       |    |		Pop_Control	Pop_Count_1
0809 e5fa       |    |		Load	0x2,-0x6
080a e002       |    |		Load	0x0,0x2
080b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
080c 017e       | ~  |		Execute	Record,Not_Equal
080d 6804       |h   |		Jump_Zero	0x812
080e e5f5       |    |		Load	0x2,-0xb
080f e5fa       |    |		Load	0x2,-0x6
0810 8229       | )  |		Call	0x1,0x29
0811 00d1       |    |		Pop_Control	Pop_Count_1
0812 e5f9       |    |		Load	0x2,-0x7
0813 e002       |    |		Load	0x0,0x2
0814 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0815 017e       | ~  |		Execute	Record,Not_Equal
0816 6804       |h   |		Jump_Zero	0x81b
0817 e5f5       |    |		Load	0x2,-0xb
0818 e5f9       |    |		Load	0x2,-0x7
0819 8229       | )  |		Call	0x1,0x29
081a 00d1       |    |		Pop_Control	Pop_Count_1
081b e5f8       |    |		Load	0x2,-0x8
081c e002       |    |		Load	0x0,0x2
081d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
081e 017e       | ~  |		Execute	Record,Not_Equal
081f 6804       |h   |		Jump_Zero	0x824
0820 e5f5       |    |		Load	0x2,-0xb
0821 e5f8       |    |		Load	0x2,-0x8
0822 8229       | )  |		Call	0x1,0x29
0823 00d1       |    |		Pop_Control	Pop_Count_1
0824 e5f7       |    |		Load	0x2,-0x9
0825 e002       |    |		Load	0x0,0x2
0826 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0827 017e       | ~  |		Execute	Record,Not_Equal
0828 6804       |h   |		Jump_Zero	0x82d
0829 e5f5       |    |		Load	0x2,-0xb
082a e5f7       |    |		Load	0x2,-0x9
082b 8229       | )  |		Call	0x1,0x29
082c 00d1       |    |		Pop_Control	Pop_Count_1
082d e5f6       |    |		Load	0x2,-0xa
082e e002       |    |		Load	0x0,0x2
082f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0830 017e       | ~  |		Execute	Record,Not_Equal
0831 6804       |h   |		Jump_Zero	0x836
0832 e5f5       |    |		Load	0x2,-0xb
0833 e5f6       |    |		Load	0x2,-0xa
0834 8229       | )  |		Call	0x1,0x29
0835 00d1       |    |		Pop_Control	Pop_Count_1
0836 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0837 0000       |    |		.XXX[0x1]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 0841       | A  |		.CONST	0x0841								; Address of begin
0839 0004       |    |		.CONST	0x0004								; Address of exception handler
083a 0002       |    |		.CONST	0x0002								; Number of locals
083b			INIT_0838:
083b e002       |    |		Load	0x0,0x2
083c 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
083d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
083e 02ff       |    |		Declare_Variable	Variant_Record
083f 00d8       |    |		Load_Top	At_Offset_0
0840 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0841			BODY_0838:
0841 00cf       |    |		Action	Mark_Auxiliary
0842 e5fd       |    |		Load	0x2,-0x3
0843 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0844 4801       |H   |		Short_Literal	0x1
0845 0263       | c  |		Execute	Discrete,Above_Bound
0846 7015       |p   |		Jump_Nonzero	0x85c
0847 00db       |    |		Load_Top	At_Offset_3
0848 e405       |    |		Load	0x2,0x5
0849 0aff       |    |		Execute_Immediate	Plus,-0x1
084a e5fd       |    |		Load	0x2,-0x3
084b 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
084c 0271       | q  |		Execute	Discrete,Times
084d 00da       |    |		Load_Top	At_Offset_2
084e 0273       | s  |		Execute	Discrete,Plus
084f 00d8       |    |		Load_Top	At_Offset_0
0850 00e4       |    |		Load_Encached	Positive_Cache
0851 0260       | `  |		Execute	Discrete,In_Type
0852 7001       |p   |		Jump_Nonzero	0x854
0853 0801       |    |		Execute_Immediate	Raise,0x1
0854 e5fd       |    |		Load	0x2,-0x3
0855 8227       | '  |		Call	0x1,0x27
0856 e002       |    |		Load	0x0,0x2
0857 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0858 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0859 00d1       |    |		Pop_Control	Pop_Count_1
085a 00c8       |    |		Action	Pop_Auxiliary_Range
085b 3feb       |?   |		Loop_Increasing	0x847
085c 00ce       |    |		Action	Pop_Auxiliary
085d 00d8       |    |		Load_Top	At_Offset_0
085e 85fe       |    |		Call	0x2,-0x2
085f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 086d       | m  |		.CONST	0x086d								; Address of begin
0861 0004       |    |		.CONST	0x0004								; Address of exception handler
0862 0002       |    |		.CONST	0x0002								; Number of locals
0863			INIT_0860:
0863 e5fe       |    |		Load	0x2,-0x2
0864 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0865 e5fe       |    |		Load	0x2,-0x2
0866 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0867 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0868 0273       | s  |		Execute	Discrete,Plus
0869 e20e       |    |		Load	0x1,0xe
086a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
086b 00d8       |    |		Load_Top	At_Offset_0
086c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
086d			BODY_0860:
086d 4801       |H   |		Short_Literal	0x1
086e e5fe       |    |		Load	0x2,-0x2
086f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0870 e5fe       |    |		Load	0x2,-0x2
0871 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0872 01cf       |    |		Execute	Vector,Slice_Read
0873 4801       |H   |		Short_Literal	0x1
0874 e5fe       |    |		Load	0x2,-0x2
0875 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0876 00db       |    |		Load_Top	At_Offset_3
0877 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0878 01ce       |    |		Execute	Vector,Slice_Write
0879 e5fe       |    |		Load	0x2,-0x2
087a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
087b 00d9       |    |		Load_Top	At_Offset_1
087c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
087d e5fe       |    |		Load	0x2,-0x2
087e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
087f 00d9       |    |		Load_Top	At_Offset_1
0880 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0881 00d8       |    |		Load_Top	At_Offset_0
0882 e5fe       |    |		Load	0x2,-0x2
0883 016d       | m  |		Execute	Variant_Record,Structure_Write
0884 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0885 0000 0000  |    |		.XXX[0x3]
0887 0000       |    |
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b       |    |		.CONST	0x088b								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 0001       |    |		.CONST	0x0001								; Number of locals
088b			BODY_0888:
088b			BODY_0888:
088b			INIT_0888:
088b			INIT_0888:
088b 4608       |F   |		Jump_Case	0x9
088c 7808       |x   |		Jump	0x895								; case 0x0
088d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
088e 782f       |x/  |		Jump	0x8be								; case 0x2
088f 782e       |x.  |		Jump	0x8be								; case 0x3
0890 7817       |x   |		Jump	0x8a8								; case 0x4
0891 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0892 782b       |x+  |		Jump	0x8be								; case 0x6
0893 7817       |x   |		Jump	0x8ab								; case 0x7
0894 781f       |x   |		Jump	0x8b4								; case 0x8
0895 00da       |    |		Load_Top	At_Offset_2
0896 016c       | l  |		Execute	Variant_Record,Is_Constrained
0897 7009       |p   |		Jump_Nonzero	0x8a1
0898 00cf       |    |		Action	Mark_Auxiliary
0899 4814       |H   |		Short_Literal	0x14
089a e5ff       |    |		Load	0x2,-0x1
089b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
089c 00d8       |    |		Load_Top	At_Offset_0
089d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
089e c5ff       |    |		Store	0x2,-0x1
089f 00ce       |    |		Action	Pop_Auxiliary
08a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
08a1 4800       |H   |		Short_Literal	0x0
08a2 00db       |    |		Load_Top	At_Offset_3
08a3 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08a4 4801       |H   |		Short_Literal	0x1
08a5 00db       |    |		Load_Top	At_Offset_3
08a6 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
08a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
08a8 e224       | $  |		Load	0x1,0x24
08a9 0340       | @  |		Complete_Type	Array,By_Component_Completion
08aa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
08ab 00db       |    |		Load_Top	At_Offset_3
08ac 4801       |H   |		Short_Literal	0x1
08ad e5fe       |    |		Load	0x2,-0x2
08ae e224       | $  |		Load	0x1,0x24
08af 035b       | [  |		Declare_Type	Array,Constrained
08b0 4801       |H   |		Short_Literal	0x1
08b1 e5ff       |    |		Load	0x2,-0x1
08b2 031b       |    |		Declare_Type	Variant_Record,Constrained
08b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
08b4 00db       |    |		Load_Top	At_Offset_3
08b5 00db       |    |		Load_Top	At_Offset_3
08b6 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
08b7 4801       |H   |		Short_Literal	0x1
08b8 e5fe       |    |		Load	0x2,-0x2
08b9 e224       | $  |		Load	0x1,0x24
08ba 0334       | 4  |		Declare_Variable	Array,With_Constraint
08bb 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
08bc 016a       | j  |		QQ_execute	Variant_Record,XXX
08bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
08be 0869       | i  |		Execute_Immediate	Raise,0x69
08bf 0000       |    |		.XXX[0x1]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08dc       |    |		.CONST	0x08dc								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0012       |    |		.CONST	0x0012								; Number of locals
08c3			INIT_08c0:
08c3 e001       |    |		Load	0x0,0x1
08c4 0129       | )  |		Execute	Any,Make_Visible
08c5 03f3       |    |		Declare_Variable	Discrete,Incomplete,Visible,Unsigned
08c6 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
08c8 029a 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Outer_Call,Visible,Unelaborated
08ca 029a 091b  |    |		Declare_Subprogram	INIT_0918,For_Outer_Call,Visible,Unelaborated
08cc 029a 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Outer_Call,Visible,Unelaborated
08ce 4800       |H   |		Short_Literal	0x0
08cf 601c       |`   |		Indirect_Literal	Discrete,0x8ec,{0x00000000, 0x7fffffff}
08d0 00e5       |    |		Load_Encached	Long_Integer_Cache
08d1 e20e       |    |		Load	0x1,0xe
08d2 03ed       |    |		Complete_Type	Discrete,By_Constraining
08d3 00bf       |    |		Action	Accept_Activation
08d4 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
08d5 00c7       |    |		Action	Elaborate_Subprogram
08d6 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
08d7 00c7       |    |		Action	Elaborate_Subprogram
08d8 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
08d9 00c7       |    |		Action	Elaborate_Subprogram
08da 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
08db 00c7       |    |		Action	Elaborate_Subprogram
08dc			BODY_08c0:
08dc 00bc       |    |		Action	Signal_Activated
08dd 00bb       |    |		Action	Signal_Completion
08de 0000 0000  |    |		.XXX[0x2]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3       |    |		.CONST	0x08e3								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0001       |    |		.CONST	0x0001								; Number of locals
08e3			BODY_08e0:
08e3			INIT_08e0:
08e3 00da       |    |		Load_Top	At_Offset_2
08e4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08e5 7002       |p   |		Jump_Nonzero	0x8e8
08e6 4800       |H   |		Short_Literal	0x0
08e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e8 4801       |H   |		Short_Literal	0x1
08e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08ea 0000 0000  |    |		.XXX[0x2]
08ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3       |    |		.CONST	0x08f3								; Address of begin
08f1 090d       |    |		.CONST	0x090d								; Address of exception handler
08f2 0001       |    |		.CONST	0x0001								; Number of locals
08f3			BODY_08f0:
08f3			INIT_08f0:
08f3 00db       |    |		Load_Top	At_Offset_3
08f4 00db       |    |		Load_Top	At_Offset_3
08f5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08f6 e5ff       |    |		Load	0x2,-0x1
08f7 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
08f8 0270       | p  |		Execute	Discrete,Divide
08f9 00d8       |    |		Load_Top	At_Offset_0
08fa e20e       |    |		Load	0x1,0xe
08fb 0260       | `  |		Execute	Discrete,In_Type
08fc 7001       |p   |		Jump_Nonzero	0x8fe
08fd 0801       |    |		Execute_Immediate	Raise,0x1
08fe 027d       | }  |		Execute	Discrete,Greater
08ff 6802       |h   |		Jump_Zero	0x902
0900 e20d       |    |		Load	0x1,0xd
0901 0257       | W  |		Execute	Discrete,Raise
0902 00db       |    |		Load_Top	At_Offset_3
0903 00d8       |    |		Load_Top	At_Offset_0
0904 00e4       |    |		Load_Encached	Positive_Cache
0905 0260       | `  |		Execute	Discrete,In_Type
0906 7001       |p   |		Jump_Nonzero	0x908
0907 0801       |    |		Execute_Immediate	Raise,0x1
0908 00db       |    |		Load_Top	At_Offset_3
0909 e002       |    |		Load	0x0,0x2
090a 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
090b 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
090c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
090d			TRAP_08f0:
090d 010e       |    |		Execute	Exception,Is_Constraint_Error
090e 6802       |h   |		Jump_Zero	0x911
090f e20d       |    |		Load	0x1,0xd
0910 0257       | W  |		Execute	Discrete,Raise
0911 0100       |    |		Execute	Exception,Raise
0912 0000 0000  |    |		.BLANK	0000[0x6]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091c       |    |		.CONST	0x091c								; Address of begin
0919 0930       | 0  |		.CONST	0x0930								; Address of exception handler
091a 0002       |    |		.CONST	0x0002								; Number of locals
091b			INIT_0918:
091b 00e2       |    |		Load_Encached	Integer_Cache
091c			BODY_0918:
091c e5fe       |    |		Load	0x2,-0x2
091d 0a01       |    |		Execute_Immediate	Plus,0x1
091e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
091f 00d8       |    |		Load_Top	At_Offset_0
0920 e5ff       |    |		Load	0x2,-0x1
0921 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0922 e5ff       |    |		Load	0x2,-0x1
0923 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0924 0270       | p  |		Execute	Discrete,Divide
0925 027d       | }  |		Execute	Discrete,Greater
0926 6802       |h   |		Jump_Zero	0x929
0927 4800       |H   |		Short_Literal	0x0
0928 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0929 00d8       |    |		Load_Top	At_Offset_0
092a 00d8       |    |		Load_Top	At_Offset_0
092b e20e       |    |		Load	0x1,0xe
092c 0260       | `  |		Execute	Discrete,In_Type
092d 7001       |p   |		Jump_Nonzero	0x92f
092e 0801       |    |		Execute_Immediate	Raise,0x1
092f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0930			TRAP_0918:
0930 010e       |    |		Execute	Exception,Is_Constraint_Error
0931 6802       |h   |		Jump_Zero	0x934
0932 e20d       |    |		Load	0x1,0xd
0933 0257       | W  |		Execute	Discrete,Raise
0934 0100       |    |		Execute	Exception,Raise
0935 0000 0000  |    |		.XXX[0x3]
0937 0000       |    |
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093b       | ;  |		.CONST	0x093b								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0001       |    |		.CONST	0x0001								; Number of locals
093b			BODY_0938:
093b			INIT_0938:
093b 00db       |    |		Load_Top	At_Offset_3
093c 0f00       |    |		Execute_Immediate	Equal,0x0
093d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
093e 0000 0000  |    |		.XXX[0x2]
0940 ; --------------------------------------------------------------------------------------
0940 ; Debug Table
0940 ; --------------------------------------------------------------------------------------
0940 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x7d5c,0x0000,0x0001,0x0023
0946 000b 09d2  |    |		.DBG4T	0x000b,0x09d2,0x0000,0x8000
094a 005e 0a06  | ^  |		.DBG4T	0x005e,0x0a06,0x0000,0x0000
094e 00a3 0a23  |   #|		.DBG4T	0x00a3,0x0a23,0x0002,0x0000
0952 00b3 0a26  |   &|		.DBG4T	0x00b3,0x0a26,0x0002,0x0000
0956 00bb 0a29  |   )|		.DBG4T	0x00bb,0x0a29,0x0002,0x0000
095a 00c3 0a2c  |   ,|		.DBG4T	0x00c3,0x0a2c,0x2802,0x0002
095e 010b 0a39  |   9|		.DBG4T	0x010b,0x0a39,0x2802,0x0002
0962 0163 0a48  | c H|		.DBG4T	0x0163,0x0a48,0x2802,0x0002
0966 01cb 0a59  |   Y|		.DBG4T	0x01cb,0x0a59,0x2802,0x0002
096a 0243 0a6c  | C l|		.DBG4T	0x0243,0x0a6c,0x2802,0x0002
096e 02cb 0a81  |    |		.DBG4T	0x02cb,0x0a81,0x2802,0x0002
0972 0363 0a98  | c  |		.DBG4T	0x0363,0x0a98,0x2802,0x0002
0976 040b 0ab1  |    |		.DBG4T	0x040b,0x0ab1,0x2802,0x0002
097a 04c3 0acc  |    |		.DBG4T	0x04c3,0x0acc,0x2802,0x0002
097e 058b 0ae9  |    |		.DBG4T	0x058b,0x0ae9,0x2802,0x0002
0982 0663 0b08  | c  |		.DBG4T	0x0663,0x0b08,0x2802,0x0002
0986 0693 0b12  |    |		.DBG4T	0x0693,0x0b12,0x2802,0x0002
098a 06db 0b20  |    |		.DBG4T	0x06db,0x0b20,0x2802,0x0002
098e 0703 0b29  |   )|		.DBG4T	0x0703,0x0b29,0x0002,0x0000
0992 0733 0b30  | 3 0|		.DBG4T	0x0733,0x0b30,0x0002,0x0000
0996 073b 0b33  | ; 3|		.DBG4T	0x073b,0x0b33,0x0002,0x0000
099a 0783 0b42  |   B|		.DBG4T	0x0783,0x0b42,0x2801,0x0002
099e 079b 0b46  |   F|		.DBG4T	0x079b,0x0b46,0x0002,0x0000
09a2 07ab 0b4b  |   K|		.DBG4T	0x07ab,0x0b4b,0x0002,0x0000
09a6 07bb 0b4e  |   N|		.DBG4T	0x07bb,0x0b4e,0x0001,0x0000
09aa 07d3 0b54  |   T|		.DBG4T	0x07d3,0x0b54,0x0001,0x0000
09ae 083b 0b6c  | ; l|		.DBG4T	0x083b,0x0b6c,0x0804,0x0002
09b2 0863 0b72  | c r|		.DBG4T	0x0863,0x0b72,0x0004,0x0000
09b6 088b 0000  |    |		.DBG4T	0x088b,0x0000,0x0005,0x0000
09ba 08c3 0b79  |   y|		.DBG4T	0x08c3,0x0b79,0x0000,0x0000
09be 08d4 0b82  |    |		.DBG4T	0x08d4,0x0b82,0x0000,0x0000
09c2 08e3 0b88  |    |		.DBG4T	0x08e3,0x0b88,0x0002,0x0000
09c6 08f3 0b8d  |    |		.DBG4T	0x08f3,0x0b8d,0x0002,0x0000
09ca 091b 0b93  |    |		.DBG4T	0x091b,0x0b93,0x0002,0x0000
09ce 093b 0b9b  | ;  |		.DBG4T	0x093b,0x0b9b,0x0002,0x0000
09d2 ; --------------------------------------------------------------------------------------
09d2 ; Debug chain
09d2 ; --------------------------------------------------------------------------------------
09d2 0019 0000  |    |		.DBGLEN	0x0019,0x0000
09d4 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x004c,0x0053
09ed 0002 0003  |    |		.XXX[0x19]
09ef 0004 0005  |    |
09f1 0006 0007  |    |
09f3 0008 0009  |    |
09f5 000a 000b  |    |
09f7 000c 000d  |    |
09f9 000e 000f  |    |
09fb 0010 0011  |    |
09fd 0012 0013  |    |
09ff 0014 0015  |    |
0a01 0016 0017  |    |
0a03 0018 0019  |    |
0a05 001a       |    |
0a06 ; --------------------------------------------------------------------------------------
0a06 ; Debug chain
0a06 ; --------------------------------------------------------------------------------------
0a06 001b 0000  |    |		.DBGLEN	0x001b,0x0000
0a08 0060 0064  | ` d|		.DBGLNO	0x0060,0x0064,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098
0a23 ; --------------------------------------------------------------------------------------
0a23 ; Debug chain
0a23 ; --------------------------------------------------------------------------------------
0a23 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a25 00a3       |    |		.DBGLNO	0x00a3
0a26 ; --------------------------------------------------------------------------------------
0a26 ; Debug chain
0a26 ; --------------------------------------------------------------------------------------
0a26 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a28 00b3       |    |		.DBGLNO	0x00b3
0a29 ; --------------------------------------------------------------------------------------
0a29 ; Debug chain
0a29 ; --------------------------------------------------------------------------------------
0a29 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a2b 00bb       |    |		.DBGLNO	0x00bb
0a2c ; --------------------------------------------------------------------------------------
0a2c ; Debug chain
0a2c ; --------------------------------------------------------------------------------------
0a2c 0002 0009  |    |		.DBGLEN	0x0002,0x0009
0a2e 00c3 00c7  |    |		.DBGLNO	0x00c3,0x00c7,0x00ca,0x00cd,0x00d1,0x00d6,0x00db,0x00de,0x00f4,0x00fe,0x0103
0a39 ; --------------------------------------------------------------------------------------
0a39 ; Debug chain
0a39 ; --------------------------------------------------------------------------------------
0a39 0002 000b  |    |		.DBGLEN	0x0002,0x000b
0a3b 010b 010f  |    |		.DBGLNO	0x010b,0x010f,0x0114,0x0117,0x011b,0x0120,0x0126,0x012b,0x0130,0x0134,0x0149,0x0153,0x015b
0a48 ; --------------------------------------------------------------------------------------
0a48 ; Debug chain
0a48 ; --------------------------------------------------------------------------------------
0a48 0002 000d  |    |		.DBGLEN	0x0002,0x000d
0a4a 0163 0167  | c g|		.DBGLNO	0x0163,0x0167,0x016e,0x0171,0x0175,0x017a,0x0180,0x0185,0x018b,0x0190,0x0195,0x019a,0x01ae,0x01b8,0x01c3
0a59 ; --------------------------------------------------------------------------------------
0a59 ; Debug chain
0a59 ; --------------------------------------------------------------------------------------
0a59 0002 000f  |    |		.DBGLEN	0x0002,0x000f
0a5b 01cb 01cf  |    |		.DBGLNO	0x01cb,0x01cf,0x01d8,0x01db,0x01df,0x01e4,0x01ea,0x01ef,0x01f5,0x01fa,0x0200,0x0205,0x020a,0x0210,0x0223,0x022d,0x023b
0a6c ; --------------------------------------------------------------------------------------
0a6c ; Debug chain
0a6c ; --------------------------------------------------------------------------------------
0a6c 0002 0011  |    |		.DBGLEN	0x0002,0x0011
0a6e 0243 0247  | C G|		.DBGLNO	0x0243,0x0247,0x0252,0x0255,0x0259,0x025e,0x0264,0x0269,0x026f,0x0274,0x027a,0x027f,0x0285,0x028a,0x028f,0x0296,0x02a8,0x02b2,0x02c3
0a81 ; --------------------------------------------------------------------------------------
0a81 ; Debug chain
0a81 ; --------------------------------------------------------------------------------------
0a81 0002 0013  |    |		.DBGLEN	0x0002,0x0013
0a83 02cb 02cf  |    |		.DBGLNO	0x02cb,0x02cf,0x02dc,0x02df,0x02e3,0x02e8,0x02ee,0x02f3,0x02f9,0x02fe,0x0304,0x0309,0x030f,0x0314,0x031a,0x031f,0x0324,0x032c,0x033d,0x0347,0x035b
0a98 ; --------------------------------------------------------------------------------------
0a98 ; Debug chain
0a98 ; --------------------------------------------------------------------------------------
0a98 0002 0015  |    |		.DBGLEN	0x0002,0x0015
0a9a 0363 0367  | c g|		.DBGLNO	0x0363,0x0367,0x0376,0x0379,0x037d,0x0382,0x0388,0x038d,0x0393,0x0398,0x039e,0x03a3,0x03a9,0x03ae,0x03b4,0x03b9,0x03bf,0x03c4,0x03c9,0x03d2,0x03e2,0x03ec,0x0403
0ab1 ; --------------------------------------------------------------------------------------
0ab1 ; Debug chain
0ab1 ; --------------------------------------------------------------------------------------
0ab1 0002 0017  |    |		.DBGLEN	0x0002,0x0017
0ab3 040b 040f  |    |		.DBGLNO	0x040b,0x040f,0x0420,0x0423,0x0427,0x042c,0x0432,0x0437,0x043d,0x0442,0x0448,0x044d,0x0453,0x0458,0x045e,0x0463,0x0469,0x046e,0x0474,0x0479,0x047e,0x0488,0x0497,0x04a1,0x04bb
0acc ; --------------------------------------------------------------------------------------
0acc ; Debug chain
0acc ; --------------------------------------------------------------------------------------
0acc 0002 0019  |    |		.DBGLEN	0x0002,0x0019
0ace 04c3 04c7  |    |		.DBGLNO	0x04c3,0x04c7,0x04da,0x04dd,0x04e1,0x04e6,0x04ec,0x04f1,0x04f7,0x04fc,0x0502,0x0507,0x050d,0x0512,0x0518,0x051d,0x0523,0x0528,0x052e,0x0533,0x0539,0x053e,0x0543,0x054e,0x055c,0x0566,0x0583
0ae9 ; --------------------------------------------------------------------------------------
0ae9 ; Debug chain
0ae9 ; --------------------------------------------------------------------------------------
0ae9 0002 001b  |    |		.DBGLEN	0x0002,0x001b
0aeb 058b 058f  |    |		.DBGLNO	0x058b,0x058f,0x05a4,0x05a7,0x05ab,0x05b0,0x05b6,0x05bb,0x05c1,0x05c6,0x05cc,0x05d1,0x05d7,0x05dc,0x05e2,0x05e7,0x05ed,0x05f2,0x05f8,0x05fd,0x0603,0x0608,0x060e,0x0613,0x0618,0x0624,0x0631,0x063b,0x065b
0b08 ; --------------------------------------------------------------------------------------
0b08 ; Debug chain
0b08 ; --------------------------------------------------------------------------------------
0b08 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0b0a 0663 066d  | c m|		.DBGLNO	0x0663,0x066d,0x0670,0x0675,0x067d,0x0682,0x0686,0x068c
0b12 ; --------------------------------------------------------------------------------------
0b12 ; Debug chain
0b12 ; --------------------------------------------------------------------------------------
0b12 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0b14 0693 0697  |    |		.DBGLNO	0x0693,0x0697,0x069d,0x06a0,0x06a5,0x06ad,0x06b2,0x06b6,0x06bb,0x06c6,0x06d0,0x06d5
0b20 ; --------------------------------------------------------------------------------------
0b20 ; Debug chain
0b20 ; --------------------------------------------------------------------------------------
0b20 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0b22 06db 06e1  |    |		.DBGLNO	0x06db,0x06e1,0x06e5,0x06ed,0x06f2,0x06f5,0x06fa
0b29 ; --------------------------------------------------------------------------------------
0b29 ; Debug chain
0b29 ; --------------------------------------------------------------------------------------
0b29 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0b2b 0703 0709  |    |		.DBGLNO	0x0703,0x0709,0x0712,0x0717,0x072d
0b30 ; --------------------------------------------------------------------------------------
0b30 ; Debug chain
0b30 ; --------------------------------------------------------------------------------------
0b30 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0b32 0733       | 3  |		.DBGLNO	0x0733
0b33 ; --------------------------------------------------------------------------------------
0b33 ; Debug chain
0b33 ; --------------------------------------------------------------------------------------
0b33 0003 000a  |    |		.DBGLEN	0x0003,0x000a
0b35 073b 073f  | ; ?|		.DBGLNO	0x073b,0x073f,0x0740,0x0741,0x0749,0x0750,0x0752,0x0755,0x0758,0x075a,0x075f,0x076b,0x0779
0b42 ; --------------------------------------------------------------------------------------
0b42 ; Debug chain
0b42 ; --------------------------------------------------------------------------------------
0b42 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0b44 0786 078e  |    |		.DBGLNO	0x0786,0x078e
0b46 ; --------------------------------------------------------------------------------------
0b46 ; Debug chain
0b46 ; --------------------------------------------------------------------------------------
0b46 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0b48 079b 07a0  |    |		.DBGLNO	0x079b,0x07a0,0x07a3
0b4b ; --------------------------------------------------------------------------------------
0b4b ; Debug chain
0b4b ; --------------------------------------------------------------------------------------
0b4b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0b4d 07ab       |    |		.DBGLNO	0x07ab
0b4e ; --------------------------------------------------------------------------------------
0b4e ; Debug chain
0b4e ; --------------------------------------------------------------------------------------
0b4e 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0b50 07bd 07c0  |    |		.DBGLNO	0x07bd,0x07c0,0x07c1,0x07c6
0b54 ; --------------------------------------------------------------------------------------
0b54 ; Debug chain
0b54 ; --------------------------------------------------------------------------------------
0b54 0000 0016  |    |		.DBGLEN	0x0000,0x0016
0b56 07d3 07d8  |    |		.DBGLNO	0x07d3,0x07d8,0x07dc,0x07e1,0x07e5,0x07ea,0x07ee,0x07f3,0x07f7,0x07fc,0x0800,0x0805,0x0809,0x080e,0x0812,0x0817,0x081b,0x0820,0x0824,0x0829,0x082d,0x0832
0b6c ; --------------------------------------------------------------------------------------
0b6c ; Debug chain
0b6c ; --------------------------------------------------------------------------------------
0b6c 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0b6e 083b 0842  | ; B|		.DBGLNO	0x083b,0x0842,0x0847,0x085d
0b72 ; --------------------------------------------------------------------------------------
0b72 ; Debug chain
0b72 ; --------------------------------------------------------------------------------------
0b72 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0b74 0863 086d  | c m|		.DBGLNO	0x0863,0x086d,0x0879,0x087d,0x0881
0b79 ; --------------------------------------------------------------------------------------
0b79 ; Debug chain
0b79 ; --------------------------------------------------------------------------------------
0b79 0007 0000  |    |		.DBGLEN	0x0007,0x0000
0b7b 08c3 08c5  |    |		.DBGLNO	0x08c3,0x08c5,0x08c6,0x08c8,0x08ca,0x08cc,0x08ce
0b82 ; --------------------------------------------------------------------------------------
0b82 ; Debug chain
0b82 ; --------------------------------------------------------------------------------------
0b82 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0b84 08d4 08d6  |    |		.DBGLNO	0x08d4,0x08d6,0x08d8,0x08da
0b88 ; --------------------------------------------------------------------------------------
0b88 ; Debug chain
0b88 ; --------------------------------------------------------------------------------------
0b88 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0b8a 08e3 08e6  |    |		.DBGLNO	0x08e3,0x08e6,0x08e8
0b8d ; --------------------------------------------------------------------------------------
0b8d ; Debug chain
0b8d ; --------------------------------------------------------------------------------------
0b8d 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0b8f 08f3 0900  |    |		.DBGLNO	0x08f3,0x0900,0x0902,0x090f
0b93 ; --------------------------------------------------------------------------------------
0b93 ; Debug chain
0b93 ; --------------------------------------------------------------------------------------
0b93 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0b95 091b 091c  |    |		.DBGLNO	0x091b,0x091c,0x091f,0x0927,0x0929,0x0932
0b9b ; --------------------------------------------------------------------------------------
0b9b ; Debug chain
0b9b ; --------------------------------------------------------------------------------------
0b9b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0b9d 093b       | ;  |		.DBGLNO	0x093b
0b9e 0000 0000  |    |		.BLANK	0000[0x62]