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

⟦5359437b4⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0658       | X  |		.CONST	0x0658								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004a       | J  |		.CONST	0x004a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0023       | #  |		.CONST	0x0023								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 6063       |`c  |		Indirect_Literal	Discrete,0x70,{0x7fffffff, 0xffffffff}
000d 00e5       |    |		Load_Encached	Long_Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
0011 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0015 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0017 00bf       |    |		Action	Accept_Activation
0018 e001       |    |		Load	0x0,0x1
0019 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
001a 0007       |    |		Action	Break_Optional
001b e001       |    |		Load	0x0,0x1
001c 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
001d 0007       |    |		Action	Break_Optional
001e 029b 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Unelaborated
0020 029b 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Unelaborated
0022 029d 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call
0024 029d 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call
0026 029d 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call
0028 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
002a 029d 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call
002c 029d 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call
002e 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
0030 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
0032 029d 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call
0034 029d 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call
0036 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 029d 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call
003a 029d 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call
003c 029d 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call
003e 029d 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call
0040 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0049 00c7       |    |		Action	Elaborate_Subprogram
004a			BODY_0008:
004a 00bc       |    |		Action	Signal_Activated
004b 00bb       |    |		Action	Signal_Completion
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005c       | \  |		.CONST	0x005c								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0003       |    |		.CONST	0x0003								; Number of locals
0053			INIT_0050:
0053 e002       |    |		Load	0x0,0x2
0054 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0055 02c7       |    |		Declare_Variable	Any
0056 00db       |    |		Load_Top	At_Offset_3
0057 e003       |    |		Load	0x0,0x3
0058 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0059 a402       |    |		Store_Unchecked	0x2,0x2
005a e20d       |    |		Load	0x1,0xd
005b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005c			BODY_0050:
005c 00cf       |    |		Action	Mark_Auxiliary
005d 7808       |x   |		Jump	0x66
005e 00d9       |    |		Load_Top	At_Offset_1
005f 0a01       |    |		Execute_Immediate	Plus,0x1
0060 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0061 00da       |    |		Load_Top	At_Offset_2
0062 e002       |    |		Load	0x0,0x2
0063 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0064 c402       |    |		Store	0x2,0x2
0065 00c9       |    |		Action	Pop_Auxiliary_Loop
0066 00da       |    |		Load_Top	At_Offset_2
0067 e002       |    |		Load	0x0,0x2
0068 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0069 6ff4       |o   |		Jump_Zero	0x5e
006a 00ce       |    |		Action	Pop_Auxiliary
006b 00d8       |    |		Load_Top	At_Offset_0
006c a5fe       |    |		Store_Unchecked	0x2,-0x2
006d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006e 0000 0000  |    |		.XXX[0x2]
0070 7fff ffff  |    |		.LITERAL	{0x7fffffff, 0xffffffff}
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0093       |    |		.CONST	0x0093								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0008       |    |		.CONST	0x0008								; Number of locals
007b			INIT_0078:
007b e002       |    |		Load	0x0,0x2
007c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
007d 02c7       |    |		Declare_Variable	Any
007e 00db       |    |		Load_Top	At_Offset_3
007f a402       |    |		Store_Unchecked	0x2,0x2
0080 e004       |    |		Load	0x0,0x4
0081 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0082 02c7       |    |		Declare_Variable	Any
0083 00d8       |    |		Load_Top	At_Offset_0
0084 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0085 e004       |    |		Load	0x0,0x4
0086 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0087 02c7       |    |		Declare_Variable	Any
0088 00d8       |    |		Load_Top	At_Offset_0
0089 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008a e004       |    |		Load	0x0,0x4
008b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
008c 02c7       |    |		Declare_Variable	Any
008d 00d8       |    |		Load_Top	At_Offset_0
008e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008f 00e5       |    |		Load_Encached	Long_Integer_Cache
0090 03e9       |    |		Declare_Variable	Discrete,Duplicate
0091 e20d       |    |		Load	0x1,0xd
0092 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0093			BODY_0078:
0093 4801       |H   |		Short_Literal	0x1
0094 a5fd       |    |		Store_Unchecked	0x2,-0x3
0095 00cf       |    |		Action	Mark_Auxiliary
0096 782a       |x*  |		Jump	0xc1
0097 e402       |    |		Load	0x2,0x2
0098 e002       |    |		Load	0x0,0x2
0099 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
009a c403       |    |		Store	0x2,0x3
009b e405       |    |		Load	0x2,0x5
009c 0120       |    |		Execute	Any,Is_Value
009d 6803       |h   |		Jump_Zero	0xa1
009e e005       |    |		Load	0x0,0x5
009f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a0 7801       |x   |		Jump	0xa2
00a1 e405       |    |		Load	0x2,0x5
00a2 e404       |    |		Load	0x2,0x4
00a3 0120       |    |		Execute	Any,Is_Value
00a4 6803       |h   |		Jump_Zero	0xa8
00a5 e005       |    |		Load	0x0,0x5
00a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a7 7801       |x   |		Jump	0xa9
00a8 e404       |    |		Load	0x2,0x4
00a9 00e1       |    |		Load_Encached	Boolean_Cache
00aa e407       |    |		Load	0x2,0x7
00ab e406       |    |		Load	0x2,0x6
00ac e403       |    |		Load	0x2,0x3
00ad e006       |    |		Load	0x0,0x6
00ae 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00af c406       |    |		Store	0x2,0x6
00b0 c407       |    |		Store	0x2,0x7
00b1 c5fd       |    |		Store	0x2,-0x3
00b2 c404       |    |		Store	0x2,0x4
00b3 c405       |    |		Store	0x2,0x5
00b4 e5fd       |    |		Load	0x2,-0x3
00b5 680f       |h   |		Jump_Zero	0xc5
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 e406       |    |		Load	0x2,0x6
00b9 8219       |    |		Call	0x1,0x19
00ba 0271       | q  |		Execute	Discrete,Times
00bb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00bc e402       |    |		Load	0x2,0x2
00bd e002       |    |		Load	0x0,0x2
00be 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00bf c402       |    |		Store	0x2,0x2
00c0 00c9       |    |		Action	Pop_Auxiliary_Loop
00c1 e402       |    |		Load	0x2,0x2
00c2 e002       |    |		Load	0x0,0x2
00c3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c4 6fd2       |o   |		Jump_Zero	0x97
00c5 00ce       |    |		Action	Pop_Auxiliary
00c6 00d8       |    |		Load_Top	At_Offset_0
00c7 a5fe       |    |		Store_Unchecked	0x2,-0x2
00c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d6       |    |		.CONST	0x00d6								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 e20d       |    |		Load	0x1,0xd
00d4 0007       |    |		Action	Break_Optional
00d5 00e1       |    |		Load_Encached	Boolean_Cache
00d6			BODY_00d0:
00d6 e5fc       |    |		Load	0x2,-0x4
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 e20d       |    |		Load	0x1,0xd
00d9 e5fe       |    |		Load	0x2,-0x2
00da e5ff       |    |		Load	0x2,-0x1
00db 8215       |    |		Call	0x1,0x15
00dc c402       |    |		Store	0x2,0x2
00dd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00de c5fc       |    |		Store	0x2,-0x4
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 a5fd       |    |		Store_Unchecked	0x2,-0x3
00e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e2 0000 0000  |    |		.BLANK	0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f0       |    |		.CONST	0x00f0								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0004       |    |		.CONST	0x0004								; Number of locals
00eb			INIT_00e8:
00eb e20d       |    |		Load	0x1,0xd
00ec 0007       |    |		Action	Break_Optional
00ed 00e1       |    |		Load_Encached	Boolean_Cache
00ee e20d       |    |		Load	0x1,0xd
00ef 0007       |    |		Action	Break_Optional
00f0			BODY_00e8:
00f0 e20d       |    |		Load	0x1,0xd
00f1 e5ff       |    |		Load	0x2,-0x1
00f2 820e       |    |		Call	0x1,0xe
00f3 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00f4 e5fc       |    |		Load	0x2,-0x4
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 e20d       |    |		Load	0x1,0xd
00f7 e5fe       |    |		Load	0x2,-0x2
00f8 e5ff       |    |		Load	0x2,-0x1
00f9 e003       |    |		Load	0x0,0x3
00fa 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00fb 8215       |    |		Call	0x1,0x15
00fc c402       |    |		Store	0x2,0x2
00fd 005b       | [  |		Store_Top	Discrete,At_Offset_3
00fe c5fc       |    |		Store	0x2,-0x4
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 6808       |h   |		Jump_Zero	0x109
0101 00d8       |    |		Load_Top	At_Offset_0
0102 e007       |    |		Load	0x0,0x7
0103 1b37       | 7  |		Execute	Package,Field_Read,Field_Number 0x37
0104 e402       |    |		Load	0x2,0x2
0105 8216       |    |		Call	0x1,0x16
0106 0271       | q  |		Execute	Discrete,Times
0107 c5fd       |    |		Store	0x2,-0x3
0108 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0109 00d8       |    |		Load_Top	At_Offset_0
010a 00db       |    |		Load_Top	At_Offset_3
010b 0271       | q  |		Execute	Discrete,Times
010c c5fd       |    |		Store	0x2,-0x3
010d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 012b       | +  |		.CONST	0x012b								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 000a       |    |		.CONST	0x000a								; Number of locals
0113			INIT_0110:
0113 e004       |    |		Load	0x0,0x4
0114 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0115 02c7       |    |		Declare_Variable	Any
0116 e5fd       |    |		Load	0x2,-0x3
0117 e004       |    |		Load	0x0,0x4
0118 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0119 a402       |    |		Store_Unchecked	0x2,0x2
011a e004       |    |		Load	0x0,0x4
011b 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
011c 02c7       |    |		Declare_Variable	Any
011d 00d8       |    |		Load_Top	At_Offset_0
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f e004       |    |		Load	0x0,0x4
0120 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0121 02c7       |    |		Declare_Variable	Any
0122 00d8       |    |		Load_Top	At_Offset_0
0123 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0124 00e5       |    |		Load_Encached	Long_Integer_Cache
0125 03e9       |    |		Declare_Variable	Discrete,Duplicate
0126 00e6       |    |		Load_Encached	Float_Cache
0127 03d8       |    |		Declare_Variable	Float,Duplicate
0128 e20d       |    |		Load	0x1,0xd
0129 0007       |    |		Action	Break_Optional
012a 00e1       |    |		Load_Encached	Boolean_Cache
012b			BODY_0110:
012b 4800       |H   |		Short_Literal	0x0
012c a5fa       |    |		Store_Unchecked	0x2,-0x6
012d e402       |    |		Load	0x2,0x2
012e e004       |    |		Load	0x0,0x4
012f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0130 460c       |F   |		Jump_Case	0xd
0131 780c       |x   |		Jump	0x13e								; case 0x0
0132 7810       |x   |		Jump	0x143								; case 0x1
0133 7824       |x$  |		Jump	0x158								; case 0x2
0134 7862       |xb  |		Jump	0x197								; case 0x3
0135 7837       |x7  |		Jump	0x16d								; case 0x4
0136 787a       |xz  |		Jump	0x1b1								; case 0x5
0137 7884       |x   |		Jump	0x1bc								; case 0x6
0138 7805       |x   |		Jump	0x13e								; case 0x7
0139 7804       |x   |		Jump	0x13e								; case 0x8
013a 7803       |x   |		Jump	0x13e								; case 0x9
013b 7802       |x   |		Jump	0x13e								; case 0xa
013c 7801       |x   |		Jump	0x13e								; case 0xb
013d 7800       |x   |		Jump	0x13e								; case 0xc
013e 4800       |H   |		Short_Literal	0x0
013f a5fb       |    |		Store_Unchecked	0x2,-0x5
0140 4800       |H   |		Short_Literal	0x0
0141 a5f9       |    |		Store_Unchecked	0x2,-0x7
0142 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0143 00e1       |    |		Load_Encached	Boolean_Cache
0144 e406       |    |		Load	0x2,0x6
0145 e405       |    |		Load	0x2,0x5
0146 e5fc       |    |		Load	0x2,-0x4
0147 e006       |    |		Load	0x0,0x6
0148 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0149 c405       |    |		Store	0x2,0x5
014a c406       |    |		Store	0x2,0x6
014b c5f9       |    |		Store	0x2,-0x7
014c e5f9       |    |		Load	0x2,-0x7
014d 6807       |h   |		Jump_Zero	0x155
014e 00d8       |    |		Load_Top	At_Offset_0
014f e406       |    |		Load	0x2,0x6
0150 e405       |    |		Load	0x2,0x5
0151 e007       |    |		Load	0x0,0x7
0152 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0153 a5fb       |    |		Store_Unchecked	0x2,-0x5
0154 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0155 4800       |H   |		Short_Literal	0x0
0156 a5fb       |    |		Store_Unchecked	0x2,-0x5
0157 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0158 00e1       |    |		Load_Encached	Boolean_Cache
0159 e406       |    |		Load	0x2,0x6
015a e405       |    |		Load	0x2,0x5
015b e5fc       |    |		Load	0x2,-0x4
015c e006       |    |		Load	0x0,0x6
015d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015e c405       |    |		Store	0x2,0x5
015f c406       |    |		Store	0x2,0x6
0160 c5f9       |    |		Store	0x2,-0x7
0161 e5f9       |    |		Load	0x2,-0x7
0162 6807       |h   |		Jump_Zero	0x16a
0163 00d8       |    |		Load_Top	At_Offset_0
0164 e406       |    |		Load	0x2,0x6
0165 e405       |    |		Load	0x2,0x5
0166 e007       |    |		Load	0x0,0x7
0167 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0168 a5fb       |    |		Store_Unchecked	0x2,-0x5
0169 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
016a 4800       |H   |		Short_Literal	0x0
016b a5fb       |    |		Store_Unchecked	0x2,-0x5
016c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
016d e404       |    |		Load	0x2,0x4
016e 0120       |    |		Execute	Any,Is_Value
016f 6803       |h   |		Jump_Zero	0x173
0170 e004       |    |		Load	0x0,0x4
0171 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0172 7801       |x   |		Jump	0x174
0173 e404       |    |		Load	0x2,0x4
0174 e403       |    |		Load	0x2,0x3
0175 0120       |    |		Execute	Any,Is_Value
0176 6803       |h   |		Jump_Zero	0x17a
0177 e004       |    |		Load	0x0,0x4
0178 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0179 7801       |x   |		Jump	0x17b
017a e403       |    |		Load	0x2,0x3
017b e5fc       |    |		Load	0x2,-0x4
017c 00d8       |    |		Load_Top	At_Offset_0
017d e5ff       |    |		Load	0x2,-0x1
017e 8223       | #  |		Call	0x1,0x23
017f c403       |    |		Store	0x2,0x3
0180 c404       |    |		Store	0x2,0x4
0181 00e1       |    |		Load_Encached	Boolean_Cache
0182 e406       |    |		Load	0x2,0x6
0183 e405       |    |		Load	0x2,0x5
0184 e403       |    |		Load	0x2,0x3
0185 e404       |    |		Load	0x2,0x4
0186 e006       |    |		Load	0x0,0x6
0187 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0188 c405       |    |		Store	0x2,0x5
0189 c406       |    |		Store	0x2,0x6
018a c5f9       |    |		Store	0x2,-0x7
018b e5f9       |    |		Load	0x2,-0x7
018c 6807       |h   |		Jump_Zero	0x194
018d 00d8       |    |		Load_Top	At_Offset_0
018e e406       |    |		Load	0x2,0x6
018f e405       |    |		Load	0x2,0x5
0190 e007       |    |		Load	0x0,0x7
0191 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0192 a5fb       |    |		Store_Unchecked	0x2,-0x5
0193 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0194 4800       |H   |		Short_Literal	0x0
0195 a5fb       |    |		Store_Unchecked	0x2,-0x5
0196 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0197 00e1       |    |		Load_Encached	Boolean_Cache
0198 00db       |    |		Load_Top	At_Offset_3
0199 e407       |    |		Load	0x2,0x7
019a e5fc       |    |		Load	0x2,-0x4
019b e006       |    |		Load	0x0,0x6
019c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
019d c407       |    |		Store	0x2,0x7
019e c408       |    |		Store	0x2,0x8
019f c5f9       |    |		Store	0x2,-0x7
01a0 00e1       |    |		Load_Encached	Boolean_Cache
01a1 e20d       |    |		Load	0x1,0xd
01a2 e402       |    |		Load	0x2,0x2
01a3 e004       |    |		Load	0x0,0x4
01a4 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
01a5 8217       |    |		Call	0x1,0x17
01a6 005b       | [  |		Store_Top	Discrete,At_Offset_3
01a7 c5f9       |    |		Store	0x2,-0x7
01a8 e5f9       |    |		Load	0x2,-0x7
01a9 6806       |h   |		Jump_Zero	0x1b0
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab 00db       |    |		Load_Top	At_Offset_3
01ac e407       |    |		Load	0x2,0x7
01ad e007       |    |		Load	0x0,0x7
01ae 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01af a5fb       |    |		Store_Unchecked	0x2,-0x5
01b0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01b1 e5f9       |    |		Load	0x2,-0x7
01b2 e20d       |    |		Load	0x1,0xd
01b3 e5fc       |    |		Load	0x2,-0x4
01b4 e004       |    |		Load	0x0,0x4
01b5 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
01b6 e5fe       |    |		Load	0x2,-0x2
01b7 e402       |    |		Load	0x2,0x2
01b8 8222       | "  |		Call	0x1,0x22
01b9 c5fb       |    |		Store	0x2,-0x5
01ba c5f9       |    |		Store	0x2,-0x7
01bb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01bc e5f9       |    |		Load	0x2,-0x7
01bd e5fa       |    |		Load	0x2,-0x6
01be e20d       |    |		Load	0x1,0xd
01bf e5fc       |    |		Load	0x2,-0x4
01c0 e5fe       |    |		Load	0x2,-0x2
01c1 e402       |    |		Load	0x2,0x2
01c2 821f       |    |		Call	0x1,0x1f
01c3 c5fb       |    |		Store	0x2,-0x5
01c4 c5fa       |    |		Store	0x2,-0x6
01c5 c5f9       |    |		Store	0x2,-0x7
01c6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01ed       |    |		.CONST	0x01ed								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 000c       |    |		.CONST	0x000c								; Number of locals
01cb			INIT_01c8:
01cb e002       |    |		Load	0x0,0x2
01cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01cd 02c7       |    |		Declare_Variable	Any
01ce 00db       |    |		Load_Top	At_Offset_3
01cf e004       |    |		Load	0x0,0x4
01d0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d1 a402       |    |		Store_Unchecked	0x2,0x2
01d2 e002       |    |		Load	0x0,0x2
01d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d4 02c7       |    |		Declare_Variable	Any
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d7 00e5       |    |		Load_Encached	Long_Integer_Cache
01d8 03e9       |    |		Declare_Variable	Discrete,Duplicate
01d9 00e6       |    |		Load_Encached	Float_Cache
01da 03d8       |    |		Declare_Variable	Float,Duplicate
01db e20d       |    |		Load	0x1,0xd
01dc 0007       |    |		Action	Break_Optional
01dd e004       |    |		Load	0x0,0x4
01de 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
01df 02c7       |    |		Declare_Variable	Any
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e2 e004       |    |		Load	0x0,0x4
01e3 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
01e4 02c7       |    |		Declare_Variable	Any
01e5 00d8       |    |		Load_Top	At_Offset_0
01e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e7 e004       |    |		Load	0x0,0x4
01e8 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
01e9 02c7       |    |		Declare_Variable	Any
01ea 00d8       |    |		Load_Top	At_Offset_0
01eb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ec 00e1       |    |		Load_Encached	Boolean_Cache
01ed			BODY_01c8:
01ed 4800       |H   |		Short_Literal	0x0
01ee a5fd       |    |		Store_Unchecked	0x2,-0x3
01ef 4800       |H   |		Short_Literal	0x0
01f0 a5fc       |    |		Store_Unchecked	0x2,-0x4
01f1 00cf       |    |		Action	Mark_Auxiliary
01f2 e402       |    |		Load	0x2,0x2
01f3 e002       |    |		Load	0x0,0x2
01f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01f5 6803       |h   |		Jump_Zero	0x1f9
01f6 4800       |H   |		Short_Literal	0x0
01f7 a5fb       |    |		Store_Unchecked	0x2,-0x5
01f8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f9 e402       |    |		Load	0x2,0x2
01fa e008       |    |		Load	0x0,0x8
01fb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01fc c403       |    |		Store	0x2,0x3
01fd e5fe       |    |		Load	0x2,-0x2
01fe 7004       |p   |		Jump_Nonzero	0x203
01ff e403       |    |		Load	0x2,0x3
0200 e002       |    |		Load	0x0,0x2
0201 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0202 68ed       |h   |		Jump_Zero	0x2f0
0203 e402       |    |		Load	0x2,0x2
0204 e004       |    |		Load	0x0,0x4
0205 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0206 460c       |F   |		Jump_Case	0xd
0207 7811       |x   |		Jump	0x219								; case 0x0
0208 7829       |x)  |		Jump	0x232								; case 0x1
0209 784c       |xL  |		Jump	0x256								; case 0x2
020a 785f       |x_  |		Jump	0x26a								; case 0x3
020b 7882       |x   |		Jump	0x28e								; case 0x4
020c 78a9       |x   |		Jump	0x2b6								; case 0x5
020d 78c5       |x   |		Jump	0x2d3								; case 0x6
020e 78bb       |x   |		Jump	0x2ca								; case 0x7
020f 78cf       |x   |		Jump	0x2df								; case 0x8
0210 7875       |xu  |		Jump	0x286								; case 0x9
0211 78d4       |x   |		Jump	0x2e6								; case 0xa
0212 78d3       |x   |		Jump	0x2e6								; case 0xb
0213 7800       |x   |		Jump	0x214								; case 0xc
0214 4800       |H   |		Short_Literal	0x0
0215 a5fd       |    |		Store_Unchecked	0x2,-0x3
0216 4800       |H   |		Short_Literal	0x0
0217 a5fb       |    |		Store_Unchecked	0x2,-0x5
0218 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0219 e402       |    |		Load	0x2,0x2
021a e004       |    |		Load	0x0,0x4
021b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
021c c409       |    |		Store	0x2,0x9
021d e409       |    |		Load	0x2,0x9
021e e002       |    |		Load	0x0,0x2
021f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0220 6803       |h   |		Jump_Zero	0x224
0221 4800       |H   |		Short_Literal	0x0
0222 a5fb       |    |		Store_Unchecked	0x2,-0x5
0223 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0224 e5fb       |    |		Load	0x2,-0x5
0225 e5fc       |    |		Load	0x2,-0x4
0226 e20d       |    |		Load	0x1,0xd
0227 e409       |    |		Load	0x2,0x9
0228 e402       |    |		Load	0x2,0x2
0229 e5fe       |    |		Load	0x2,-0x2
022a e402       |    |		Load	0x2,0x2
022b e004       |    |		Load	0x0,0x4
022c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
022d 8214       |    |		Call	0x1,0x14
022e c5fd       |    |		Store	0x2,-0x3
022f c5fc       |    |		Store	0x2,-0x4
0230 c5fb       |    |		Store	0x2,-0x5
0231 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0232 e402       |    |		Load	0x2,0x2
0233 8220       |    |		Call	0x1,0x20
0234 6806       |h   |		Jump_Zero	0x23b
0235 e007       |    |		Load	0x0,0x7
0236 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0237 a5fd       |    |		Store_Unchecked	0x2,-0x3
0238 4801       |H   |		Short_Literal	0x1
0239 a5fb       |    |		Store_Unchecked	0x2,-0x5
023a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023b e402       |    |		Load	0x2,0x2
023c 8221       | !  |		Call	0x1,0x21
023d 6806       |h   |		Jump_Zero	0x244
023e e007       |    |		Load	0x0,0x7
023f 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0240 a5fd       |    |		Store_Unchecked	0x2,-0x3
0241 4801       |H   |		Short_Literal	0x1
0242 a5fb       |    |		Store_Unchecked	0x2,-0x5
0243 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0244 e404       |    |		Load	0x2,0x4
0245 e405       |    |		Load	0x2,0x5
0246 e402       |    |		Load	0x2,0x2
0247 e006       |    |		Load	0x0,0x6
0248 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0249 c405       |    |		Store	0x2,0x5
024a c404       |    |		Store	0x2,0x4
024b 00d9       |    |		Load_Top	At_Offset_1
024c e404       |    |		Load	0x2,0x4
024d e405       |    |		Load	0x2,0x5
024e e007       |    |		Load	0x0,0x7
024f 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0250 a5fd       |    |		Store_Unchecked	0x2,-0x3
0251 e404       |    |		Load	0x2,0x4
0252 e405       |    |		Load	0x2,0x5
0253 027b       | {  |		Execute	Discrete,Greater_Equal
0254 a5fb       |    |		Store_Unchecked	0x2,-0x5
0255 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0256 00e1       |    |		Load_Encached	Boolean_Cache
0257 e404       |    |		Load	0x2,0x4
0258 e405       |    |		Load	0x2,0x5
0259 e402       |    |		Load	0x2,0x2
025a e004       |    |		Load	0x0,0x4
025b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
025c e006       |    |		Load	0x0,0x6
025d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
025e c405       |    |		Store	0x2,0x5
025f c404       |    |		Store	0x2,0x4
0260 c5fb       |    |		Store	0x2,-0x5
0261 e5fb       |    |		Load	0x2,-0x5
0262 6896       |h   |		Jump_Zero	0x2f9
0263 4800       |H   |		Short_Literal	0x0
0264 e404       |    |		Load	0x2,0x4
0265 e405       |    |		Load	0x2,0x5
0266 e007       |    |		Load	0x0,0x7
0267 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0268 a5fd       |    |		Store_Unchecked	0x2,-0x3
0269 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
026a 00e1       |    |		Load_Encached	Boolean_Cache
026b e406       |    |		Load	0x2,0x6
026c e407       |    |		Load	0x2,0x7
026d e402       |    |		Load	0x2,0x2
026e e004       |    |		Load	0x0,0x4
026f 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0270 e006       |    |		Load	0x0,0x6
0271 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0272 c407       |    |		Store	0x2,0x7
0273 c406       |    |		Store	0x2,0x6
0274 c5fb       |    |		Store	0x2,-0x5
0275 00e1       |    |		Load_Encached	Boolean_Cache
0276 e20d       |    |		Load	0x1,0xd
0277 e402       |    |		Load	0x2,0x2
0278 e004       |    |		Load	0x0,0x4
0279 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
027a 8217       |    |		Call	0x1,0x17
027b c408       |    |		Store	0x2,0x8
027c c5fb       |    |		Store	0x2,-0x5
027d e5fb       |    |		Load	0x2,-0x5
027e 687a       |hz  |		Jump_Zero	0x2f9
027f e408       |    |		Load	0x2,0x8
0280 e406       |    |		Load	0x2,0x6
0281 e407       |    |		Load	0x2,0x7
0282 e007       |    |		Load	0x0,0x7
0283 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0284 a5fd       |    |		Store_Unchecked	0x2,-0x3
0285 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0286 e007       |    |		Load	0x0,0x7
0287 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0288 a5fd       |    |		Store_Unchecked	0x2,-0x3
0289 4801       |H   |		Short_Literal	0x1
028a a5fb       |    |		Store_Unchecked	0x2,-0x5
028b 4801       |H   |		Short_Literal	0x1
028c a5fc       |    |		Store_Unchecked	0x2,-0x4
028d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028e 00da       |    |		Load_Top	At_Offset_2
028f 0120       |    |		Execute	Any,Is_Value
0290 6803       |h   |		Jump_Zero	0x294
0291 e004       |    |		Load	0x0,0x4
0292 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0293 7801       |x   |		Jump	0x295
0294 00da       |    |		Load_Top	At_Offset_2
0295 e40a       |    |		Load	0x2,0xa
0296 0120       |    |		Execute	Any,Is_Value
0297 6803       |h   |		Jump_Zero	0x29b
0298 e004       |    |		Load	0x0,0x4
0299 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
029a 7801       |x   |		Jump	0x29c
029b e40a       |    |		Load	0x2,0xa
029c e402       |    |		Load	0x2,0x2
029d 00d8       |    |		Load_Top	At_Offset_0
029e e002       |    |		Load	0x0,0x2
029f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a0 8223       | #  |		Call	0x1,0x23
02a1 c40a       |    |		Store	0x2,0xa
02a2 c40b       |    |		Store	0x2,0xb
02a3 00e1       |    |		Load_Encached	Boolean_Cache
02a4 e404       |    |		Load	0x2,0x4
02a5 e405       |    |		Load	0x2,0x5
02a6 e40a       |    |		Load	0x2,0xa
02a7 e40b       |    |		Load	0x2,0xb
02a8 e006       |    |		Load	0x0,0x6
02a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02aa c405       |    |		Store	0x2,0x5
02ab c404       |    |		Store	0x2,0x4
02ac c5fb       |    |		Store	0x2,-0x5
02ad e5fb       |    |		Load	0x2,-0x5
02ae 6848       |hH  |		Jump_Zero	0x2f7
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 e404       |    |		Load	0x2,0x4
02b1 e405       |    |		Load	0x2,0x5
02b2 e007       |    |		Load	0x0,0x7
02b3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02b4 a5fd       |    |		Store_Unchecked	0x2,-0x3
02b5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b6 e402       |    |		Load	0x2,0x2
02b7 e004       |    |		Load	0x0,0x4
02b8 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
02b9 680b       |h   |		Jump_Zero	0x2c5
02ba e5fb       |    |		Load	0x2,-0x5
02bb e20d       |    |		Load	0x1,0xd
02bc e402       |    |		Load	0x2,0x2
02bd e004       |    |		Load	0x0,0x4
02be 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
02bf e5fe       |    |		Load	0x2,-0x2
02c0 e402       |    |		Load	0x2,0x2
02c1 8222       | "  |		Call	0x1,0x22
02c2 c5fd       |    |		Store	0x2,-0x3
02c3 c5fb       |    |		Store	0x2,-0x5
02c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c5 4800       |H   |		Short_Literal	0x0
02c6 a5fd       |    |		Store_Unchecked	0x2,-0x3
02c7 4800       |H   |		Short_Literal	0x0
02c8 a5fb       |    |		Store_Unchecked	0x2,-0x5
02c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ca e5fb       |    |		Load	0x2,-0x5
02cb e20d       |    |		Load	0x1,0xd
02cc e402       |    |		Load	0x2,0x2
02cd 8218       |    |		Call	0x1,0x18
02ce c5fd       |    |		Store	0x2,-0x3
02cf c5fb       |    |		Store	0x2,-0x5
02d0 4801       |H   |		Short_Literal	0x1
02d1 a5fc       |    |		Store_Unchecked	0x2,-0x4
02d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d3 e5fb       |    |		Load	0x2,-0x5
02d4 e5fc       |    |		Load	0x2,-0x4
02d5 e20d       |    |		Load	0x1,0xd
02d6 e002       |    |		Load	0x0,0x2
02d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d8 e5fe       |    |		Load	0x2,-0x2
02d9 e402       |    |		Load	0x2,0x2
02da 821f       |    |		Call	0x1,0x1f
02db c5fd       |    |		Store	0x2,-0x3
02dc c5fc       |    |		Store	0x2,-0x4
02dd c5fb       |    |		Store	0x2,-0x5
02de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02df e402       |    |		Load	0x2,0x2
02e0 e004       |    |		Load	0x0,0x4
02e1 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
02e2 e004       |    |		Load	0x0,0x4
02e3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02e4 c402       |    |		Store	0x2,0x2
02e5 7811       |x   |		Jump	0x2f7
02e6 e402       |    |		Load	0x2,0x2
02e7 e003       |    |		Load	0x0,0x3
02e8 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02e9 c402       |    |		Store	0x2,0x2
02ea 4801       |H   |		Short_Literal	0x1
02eb e402       |    |		Load	0x2,0x2
02ec e002       |    |		Load	0x0,0x2
02ed 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
02ee c402       |    |		Store	0x2,0x2
02ef 7807       |x   |		Jump	0x2f7
02f0 00e1       |    |		Load_Encached	Boolean_Cache
02f1 e20d       |    |		Load	0x1,0xd
02f2 e403       |    |		Load	0x2,0x3
02f3 8217       |    |		Call	0x1,0x17
02f4 c5fd       |    |		Store	0x2,-0x3
02f5 c5fb       |    |		Store	0x2,-0x5
02f6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f7 00c9       |    |		Action	Pop_Auxiliary_Loop
02f8 7ef9       |~   |		Jump	0x1f2
02f9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fa 0000 0000  |    |		.BLANK	0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 00da       |    |		Load_Top	At_Offset_2
0304 e5fe       |    |		Load	0x2,-0x2
0305 026e       | n  |		Execute	Discrete,Modulo
0306 7002       |p   |		Jump_Nonzero	0x309
0307 00da       |    |		Load_Top	At_Offset_2
0308 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0309 00da       |    |		Load_Top	At_Offset_2
030a e5fe       |    |		Load	0x2,-0x2
030b 0270       | p  |		Execute	Discrete,Divide
030c 0a01       |    |		Execute_Immediate	Plus,0x1
030d e5fe       |    |		Load	0x2,-0x2
030e 0271       | q  |		Execute	Discrete,Times
030f 00d8       |    |		Load_Top	At_Offset_0
0310 e20d       |    |		Load	0x1,0xd
0311 0260       | `  |		Execute	Discrete,In_Type
0312 7001       |p   |		Jump_Nonzero	0x314
0313 0801       |    |		Execute_Immediate	Raise,0x1
0314 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0321       | !  |		.CONST	0x0321								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00da       |    |		Load_Top	At_Offset_2
031c 8212       |    |		Call	0x1,0x12
031d c5fe       |    |		Store	0x2,-0x2
031e 4801       |H   |		Short_Literal	0x1
031f a5fd       |    |		Store_Unchecked	0x2,-0x3
0320 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0321			TRAP_0318:
0321 e001       |    |		Load	0x0,0x1
0322 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0323 010f       |    |		Execute	Exception,Equal
0324 6805       |h   |		Jump_Zero	0x32a
0325 4800       |H   |		Short_Literal	0x0
0326 a5fe       |    |		Store_Unchecked	0x2,-0x2
0327 4800       |H   |		Short_Literal	0x0
0328 a5fd       |    |		Store_Unchecked	0x2,-0x3
0329 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
032a 0100       |    |		Execute	Exception,Raise
032b 0000 0000  |    |		.BLANK	0000[0x5]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0338       | 8  |		.CONST	0x0338								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0002       |    |		.CONST	0x0002								; Number of locals
0333			INIT_0330:
0333 e005       |    |		Load	0x0,0x5
0334 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0335 02c7       |    |		Declare_Variable	Any
0336 00d8       |    |		Load_Top	At_Offset_0
0337 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0338			BODY_0330:
0338 e007       |    |		Load	0x0,0x7
0339 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
033a a5fe       |    |		Store_Unchecked	0x2,-0x2
033b 4801       |H   |		Short_Literal	0x1
033c a5fd       |    |		Store_Unchecked	0x2,-0x3
033d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
033e 0000 0000  |    |		.XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0345       | E  |		.CONST	0x0345								; Address of begin
0341 034c       | L  |		.CONST	0x034c								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e20d       |    |		Load	0x1,0xd
0344 0007       |    |		Action	Break_Optional
0345			BODY_0340:
0345 e5fe       |    |		Load	0x2,-0x2
0346 e5ff       |    |		Load	0x2,-0x1
0347 0272       | r  |		Execute	Discrete,Minus
0348 0a01       |    |		Execute_Immediate	Plus,0x1
0349 0059       | Y  |		Store_Top	Discrete,At_Offset_1
034a 00d8       |    |		Load_Top	At_Offset_0
034b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034c			TRAP_0340:
034c 010e       |    |		Execute	Exception,Is_Constraint_Error
034d 6802       |h   |		Jump_Zero	0x350
034e 4800       |H   |		Short_Literal	0x0
034f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0350 010d       |    |		Execute	Exception,Is_Numeric_Error
0351 6802       |h   |		Jump_Zero	0x354
0352 4800       |H   |		Short_Literal	0x0
0353 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0354 0100       |    |		Execute	Exception,Raise
0355 0000 0000  |    |		.XXX[0x3]
0357 0000       |    |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0377       | w  |		.CONST	0x0377								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 000a       |    |		.CONST	0x000a								; Number of locals
035b			INIT_0358:
035b e002       |    |		Load	0x0,0x2
035c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
035d 02c7       |    |		Declare_Variable	Any
035e 00d8       |    |		Load_Top	At_Offset_0
035f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0360 e002       |    |		Load	0x0,0x2
0361 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0362 02c7       |    |		Declare_Variable	Any
0363 00d8       |    |		Load_Top	At_Offset_0
0364 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0365 e20d       |    |		Load	0x1,0xd
0366 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0367 e20d       |    |		Load	0x1,0xd
0368 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0369 03e9       |    |		Declare_Variable	Discrete,Duplicate
036a 00e5       |    |		Load_Encached	Long_Integer_Cache
036b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
036c 03e9       |    |		Declare_Variable	Discrete,Duplicate
036d e002       |    |		Load	0x0,0x2
036e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
036f 02c7       |    |		Declare_Variable	Any
0370 00d8       |    |		Load_Top	At_Offset_0
0371 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0372 e002       |    |		Load	0x0,0x2
0373 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0374 02c7       |    |		Declare_Variable	Any
0375 00d8       |    |		Load_Top	At_Offset_0
0376 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0377			BODY_0358:
0377 e5ff       |    |		Load	0x2,-0x1
0378 e008       |    |		Load	0x0,0x8
0379 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
037a c402       |    |		Store	0x2,0x2
037b 00cf       |    |		Action	Mark_Auxiliary
037c 783e       |x>  |		Jump	0x3bb
037d e402       |    |		Load	0x2,0x2
037e e002       |    |		Load	0x0,0x2
037f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0380 c403       |    |		Store	0x2,0x3
0381 e403       |    |		Load	0x2,0x3
0382 e008       |    |		Load	0x0,0x8
0383 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0384 6831       |h1  |		Jump_Zero	0x3b6
0385 00e1       |    |		Load_Encached	Boolean_Cache
0386 e20d       |    |		Load	0x1,0xd
0387 e403       |    |		Load	0x2,0x3
0388 e008       |    |		Load	0x0,0x8
0389 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
038a 8217       |    |		Call	0x1,0x17
038b c404       |    |		Store	0x2,0x4
038c c5fd       |    |		Store	0x2,-0x3
038d 00d9       |    |		Load_Top	At_Offset_1
038e 0120       |    |		Execute	Any,Is_Value
038f 6803       |h   |		Jump_Zero	0x393
0390 e005       |    |		Load	0x0,0x5
0391 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0392 7801       |x   |		Jump	0x394
0393 00d9       |    |		Load_Top	At_Offset_1
0394 00db       |    |		Load_Top	At_Offset_3
0395 0120       |    |		Execute	Any,Is_Value
0396 6803       |h   |		Jump_Zero	0x39a
0397 e005       |    |		Load	0x0,0x5
0398 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0399 7801       |x   |		Jump	0x39b
039a 00db       |    |		Load_Top	At_Offset_3
039b 00e1       |    |		Load_Encached	Boolean_Cache
039c e407       |    |		Load	0x2,0x7
039d e408       |    |		Load	0x2,0x8
039e e403       |    |		Load	0x2,0x3
039f e008       |    |		Load	0x0,0x8
03a0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03a1 e006       |    |		Load	0x0,0x6
03a2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03a3 c408       |    |		Store	0x2,0x8
03a4 c407       |    |		Store	0x2,0x7
03a5 c5fd       |    |		Store	0x2,-0x3
03a6 c409       |    |		Store	0x2,0x9
03a7 c40a       |    |		Store	0x2,0xa
03a8 e404       |    |		Load	0x2,0x4
03a9 e007       |    |		Load	0x0,0x7
03aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ab 0271       | q  |		Execute	Discrete,Times
03ac e407       |    |		Load	0x2,0x7
03ad 0273       | s  |		Execute	Discrete,Plus
03ae 0a01       |    |		Execute_Immediate	Plus,0x1
03af c405       |    |		Store	0x2,0x5
03b0 e405       |    |		Load	0x2,0x5
03b1 e406       |    |		Load	0x2,0x6
03b2 027d       | }  |		Execute	Discrete,Greater
03b3 6802       |h   |		Jump_Zero	0x3b6
03b4 e405       |    |		Load	0x2,0x5
03b5 a406       |    |		Store_Unchecked	0x2,0x6
03b6 e402       |    |		Load	0x2,0x2
03b7 e002       |    |		Load	0x0,0x2
03b8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03b9 c402       |    |		Store	0x2,0x2
03ba 00c9       |    |		Action	Pop_Auxiliary_Loop
03bb e402       |    |		Load	0x2,0x2
03bc e002       |    |		Load	0x0,0x2
03bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03be 6fbe       |o   |		Jump_Zero	0x37d
03bf 00ce       |    |		Action	Pop_Auxiliary
03c0 e406       |    |		Load	0x2,0x6
03c1 a5fe       |    |		Store_Unchecked	0x2,-0x2
03c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c3 0000 0000  |    |		.BLANK	0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc e005       |    |		Load	0x0,0x5
03cd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03ce 0f09       |    |		Execute_Immediate	Equal,0x9
03cf 7003       |p   |		Jump_Nonzero	0x3d3
03d0 e002       |    |		Load	0x0,0x2
03d1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d3 4801       |H   |		Short_Literal	0x1
03d4 00db       |    |		Load_Top	At_Offset_3
03d5 e002       |    |		Load	0x0,0x2
03d6 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
03d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e5       |    |		.CONST	0x03e5								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0003       |    |		.CONST	0x0003								; Number of locals
03db			INIT_03d8:
03db e002       |    |		Load	0x0,0x2
03dc 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03dd 02c7       |    |		Declare_Variable	Any
03de 00db       |    |		Load_Top	At_Offset_3
03df a402       |    |		Store_Unchecked	0x2,0x2
03e0 e002       |    |		Load	0x0,0x2
03e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03e2 02c7       |    |		Declare_Variable	Any
03e3 00d8       |    |		Load_Top	At_Offset_0
03e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e5			BODY_03d8:
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 e002       |    |		Load	0x0,0x2
03e7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03e8 6802       |h   |		Jump_Zero	0x3eb
03e9 4800       |H   |		Short_Literal	0x0
03ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03eb 00cf       |    |		Action	Mark_Auxiliary
03ec 781c       |x   |		Jump	0x409
03ed 00da       |    |		Load_Top	At_Offset_2
03ee e002       |    |		Load	0x0,0x2
03ef 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03f0 c403       |    |		Store	0x2,0x3
03f1 00d9       |    |		Load_Top	At_Offset_1
03f2 e004       |    |		Load	0x0,0x4
03f3 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
03f4 4604       |F   |		Jump_Case	0x5
03f5 780e       |x   |		Jump	0x404								; case 0x0
03f6 780d       |x   |		Jump	0x404								; case 0x1
03f7 780c       |x   |		Jump	0x404								; case 0x2
03f8 7803       |x   |		Jump	0x3fc								; case 0x3
03f9 7800       |x   |		Jump	0x3fa								; case 0x4
03fa 4800       |H   |		Short_Literal	0x0
03fb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03fc 4801       |H   |		Short_Literal	0x1
03fd 00da       |    |		Load_Top	At_Offset_2
03fe e002       |    |		Load	0x0,0x2
03ff 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0400 e5fe       |    |		Load	0x2,-0x2
0401 821b       |    |		Call	0x1,0x1b
0402 012f       | /  |		Execute	Any,Equal
0403 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0404 00da       |    |		Load_Top	At_Offset_2
0405 e002       |    |		Load	0x0,0x2
0406 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0407 c402       |    |		Store	0x2,0x2
0408 00c9       |    |		Action	Pop_Auxiliary_Loop
0409 00da       |    |		Load_Top	At_Offset_2
040a e002       |    |		Load	0x0,0x2
040b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
040c 6fe0       |o   |		Jump_Zero	0x3ed
040d 00ce       |    |		Action	Pop_Auxiliary
040e 4800       |H   |		Short_Literal	0x0
040f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0439       | 9  |		.CONST	0x0439								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 000d       |    |		.CONST	0x000d								; Number of locals
0413			INIT_0410:
0413 e002       |    |		Load	0x0,0x2
0414 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0415 02c7       |    |		Declare_Variable	Any
0416 00d8       |    |		Load_Top	At_Offset_0
0417 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0418 e002       |    |		Load	0x0,0x2
0419 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
041a 02c7       |    |		Declare_Variable	Any
041b 00d8       |    |		Load_Top	At_Offset_0
041c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
041d e20d       |    |		Load	0x1,0xd
041e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
041f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0420 03e9       |    |		Declare_Variable	Discrete,Duplicate
0421 e002       |    |		Load	0x0,0x2
0422 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0423 02c7       |    |		Declare_Variable	Any
0424 00d8       |    |		Load_Top	At_Offset_0
0425 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0426 e002       |    |		Load	0x0,0x2
0427 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0428 02c7       |    |		Declare_Variable	Any
0429 00d8       |    |		Load_Top	At_Offset_0
042a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
042b 00e1       |    |		Load_Encached	Boolean_Cache
042c 00e1       |    |		Load_Encached	Boolean_Cache
042d e002       |    |		Load	0x0,0x2
042e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
042f 02c7       |    |		Declare_Variable	Any
0430 00d8       |    |		Load_Top	At_Offset_0
0431 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0432 e002       |    |		Load	0x0,0x2
0433 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0434 02c7       |    |		Declare_Variable	Any
0435 00d8       |    |		Load_Top	At_Offset_0
0436 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0437 e20d       |    |		Load	0x1,0xd
0438 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0439			BODY_0410:
0439 4800       |H   |		Short_Literal	0x0
043a a5fb       |    |		Store_Unchecked	0x2,-0x5
043b 00cf       |    |		Action	Mark_Auxiliary
043c 7887       |x   |		Jump	0x4c4
043d e5fd       |    |		Load	0x2,-0x3
043e e002       |    |		Load	0x0,0x2
043f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0440 c402       |    |		Store	0x2,0x2
0441 4800       |H   |		Short_Literal	0x0
0442 a404       |    |		Store_Unchecked	0x2,0x4
0443 e402       |    |		Load	0x2,0x2
0444 e004       |    |		Load	0x0,0x4
0445 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0446 4603       |F   |		Jump_Case	0x4
0447 7859       |xY  |		Jump	0x4a1								; case 0x0
0448 7807       |x   |		Jump	0x450								; case 0x1
0449 7818       |x   |		Jump	0x462								; case 0x2
044a 7800       |x   |		Jump	0x44b								; case 0x3
044b 4800       |H   |		Short_Literal	0x0
044c a5fc       |    |		Store_Unchecked	0x2,-0x4
044d 4800       |H   |		Short_Literal	0x0
044e a5fa       |    |		Store_Unchecked	0x2,-0x6
044f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0450 e20d       |    |		Load	0x1,0xd
0451 e402       |    |		Load	0x2,0x2
0452 820e       |    |		Call	0x1,0xe
0453 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0454 e402       |    |		Load	0x2,0x2
0455 e003       |    |		Load	0x0,0x3
0456 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0457 c403       |    |		Store	0x2,0x3
0458 e5fa       |    |		Load	0x2,-0x6
0459 e409       |    |		Load	0x2,0x9
045a e20d       |    |		Load	0x1,0xd
045b e5ff       |    |		Load	0x2,-0x1
045c e403       |    |		Load	0x2,0x3
045d 8215       |    |		Call	0x1,0x15
045e c404       |    |		Store	0x2,0x4
045f c409       |    |		Store	0x2,0x9
0460 c5fa       |    |		Store	0x2,-0x6
0461 7843       |xC  |		Jump	0x4a5
0462 e402       |    |		Load	0x2,0x2
0463 e004       |    |		Load	0x0,0x4
0464 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
0465 c408       |    |		Store	0x2,0x8
0466 00cf       |    |		Action	Mark_Auxiliary
0467 7833       |x3  |		Jump	0x49b
0468 e408       |    |		Load	0x2,0x8
0469 e002       |    |		Load	0x0,0x2
046a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
046b c40b       |    |		Store	0x2,0xb
046c e40b       |    |		Load	0x2,0xb
046d e004       |    |		Load	0x0,0x4
046e 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
046f c40c       |    |		Store	0x2,0xc
0470 e40b       |    |		Load	0x2,0xb
0471 e004       |    |		Load	0x0,0x4
0472 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
0473 c407       |    |		Store	0x2,0x7
0474 e5fa       |    |		Load	0x2,-0x6
0475 e40a       |    |		Load	0x2,0xa
0476 e20d       |    |		Load	0x1,0xd
0477 e407       |    |		Load	0x2,0x7
0478 e5fe       |    |		Load	0x2,-0x2
0479 e5ff       |    |		Load	0x2,-0x1
047a 821d       |    |		Call	0x1,0x1d
047b c407       |    |		Store	0x2,0x7
047c c405       |    |		Store	0x2,0x5
047d c40a       |    |		Store	0x2,0xa
047e c5fa       |    |		Store	0x2,-0x6
047f e5fa       |    |		Load	0x2,-0x6
0480 6812       |h   |		Jump_Zero	0x493
0481 e5fe       |    |		Load	0x2,-0x2
0482 e40c       |    |		Load	0x2,0xc
0483 821c       |    |		Call	0x1,0x1c
0484 6805       |h   |		Jump_Zero	0x48a
0485 e405       |    |		Load	0x2,0x5
0486 a404       |    |		Store_Unchecked	0x2,0x4
0487 e40a       |    |		Load	0x2,0xa
0488 a409       |    |		Store_Unchecked	0x2,0x9
0489 7815       |x   |		Jump	0x49f
048a e405       |    |		Load	0x2,0x5
048b e404       |    |		Load	0x2,0x4
048c 027d       | }  |		Execute	Discrete,Greater
048d 6808       |h   |		Jump_Zero	0x496
048e e405       |    |		Load	0x2,0x5
048f a404       |    |		Store_Unchecked	0x2,0x4
0490 e40a       |    |		Load	0x2,0xa
0491 a409       |    |		Store_Unchecked	0x2,0x9
0492 7803       |x   |		Jump	0x496
0493 4800       |H   |		Short_Literal	0x0
0494 a5fc       |    |		Store_Unchecked	0x2,-0x4
0495 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0496 e408       |    |		Load	0x2,0x8
0497 e002       |    |		Load	0x0,0x2
0498 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0499 c408       |    |		Store	0x2,0x8
049a 00c9       |    |		Action	Pop_Auxiliary_Loop
049b e408       |    |		Load	0x2,0x8
049c e002       |    |		Load	0x0,0x2
049d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
049e 6fc9       |o   |		Jump_Zero	0x468
049f 00ce       |    |		Action	Pop_Auxiliary
04a0 7804       |x   |		Jump	0x4a5
04a1 4800       |H   |		Short_Literal	0x0
04a2 a404       |    |		Store_Unchecked	0x2,0x4
04a3 4801       |H   |		Short_Literal	0x1
04a4 a5fa       |    |		Store_Unchecked	0x2,-0x6
04a5 e5fa       |    |		Load	0x2,-0x6
04a6 6815       |h   |		Jump_Zero	0x4bc
04a7 e409       |    |		Load	0x2,0x9
04a8 680c       |h   |		Jump_Zero	0x4b5
04a9 4801       |H   |		Short_Literal	0x1
04aa a5fb       |    |		Store_Unchecked	0x2,-0x5
04ab e404       |    |		Load	0x2,0x4
04ac 00da       |    |		Load_Top	At_Offset_2
04ad e007       |    |		Load	0x0,0x7
04ae 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04af e406       |    |		Load	0x2,0x6
04b0 8216       |    |		Call	0x1,0x16
04b1 0271       | q  |		Execute	Discrete,Times
04b2 0273       | s  |		Execute	Discrete,Plus
04b3 c406       |    |		Store	0x2,0x6
04b4 780a       |x   |		Jump	0x4bf
04b5 e406       |    |		Load	0x2,0x6
04b6 00da       |    |		Load_Top	At_Offset_2
04b7 e404       |    |		Load	0x2,0x4
04b8 0271       | q  |		Execute	Discrete,Times
04b9 0273       | s  |		Execute	Discrete,Plus
04ba c406       |    |		Store	0x2,0x6
04bb 7803       |x   |		Jump	0x4bf
04bc 4800       |H   |		Short_Literal	0x0
04bd a5fc       |    |		Store_Unchecked	0x2,-0x4
04be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04bf e5fd       |    |		Load	0x2,-0x3
04c0 e002       |    |		Load	0x0,0x2
04c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04c2 c5fd       |    |		Store	0x2,-0x3
04c3 00c9       |    |		Action	Pop_Auxiliary_Loop
04c4 e5fd       |    |		Load	0x2,-0x3
04c5 e002       |    |		Load	0x0,0x2
04c6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04c7 6f75       |ou  |		Jump_Zero	0x43d
04c8 00ce       |    |		Action	Pop_Auxiliary
04c9 e406       |    |		Load	0x2,0x6
04ca a5fc       |    |		Store_Unchecked	0x2,-0x4
04cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04cc 0000 0000  |    |		.BLANK	0000[0x4]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04dd       |    |		.CONST	0x04dd								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0003       |    |		.CONST	0x0003								; Number of locals
04d3			INIT_04d0:
04d3 e002       |    |		Load	0x0,0x2
04d4 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
04d5 02c7       |    |		Declare_Variable	Any
04d6 00db       |    |		Load_Top	At_Offset_3
04d7 a402       |    |		Store_Unchecked	0x2,0x2
04d8 e002       |    |		Load	0x0,0x2
04d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04da 02c7       |    |		Declare_Variable	Any
04db 00d8       |    |		Load_Top	At_Offset_0
04dc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04dd			BODY_04d0:
04dd 00cf       |    |		Action	Mark_Auxiliary
04de 780f       |x   |		Jump	0x4ee
04df 00da       |    |		Load_Top	At_Offset_2
04e0 e002       |    |		Load	0x0,0x2
04e1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04e2 c403       |    |		Store	0x2,0x3
04e3 00d9       |    |		Load_Top	At_Offset_1
04e4 e001       |    |		Load	0x0,0x1
04e5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04e6 6802       |h   |		Jump_Zero	0x4e9
04e7 4801       |H   |		Short_Literal	0x1
04e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e9 00da       |    |		Load_Top	At_Offset_2
04ea e002       |    |		Load	0x0,0x2
04eb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04ec c402       |    |		Store	0x2,0x2
04ed 00c9       |    |		Action	Pop_Auxiliary_Loop
04ee 00da       |    |		Load_Top	At_Offset_2
04ef e002       |    |		Load	0x0,0x2
04f0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04f1 6fed       |o   |		Jump_Zero	0x4df
04f2 00ce       |    |		Action	Pop_Auxiliary
04f3 4800       |H   |		Short_Literal	0x0
04f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f5 0000 0000  |    |		.XXX[0x3]
04f7 0000       |    |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0505       |    |		.CONST	0x0505								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0003       |    |		.CONST	0x0003								; Number of locals
04fb			INIT_04f8:
04fb e002       |    |		Load	0x0,0x2
04fc 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
04fd 02c7       |    |		Declare_Variable	Any
04fe 00d8       |    |		Load_Top	At_Offset_0
04ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0500 e002       |    |		Load	0x0,0x2
0501 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0502 02c7       |    |		Declare_Variable	Any
0503 00d8       |    |		Load_Top	At_Offset_0
0504 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0505			BODY_04f8:
0505 e5ff       |    |		Load	0x2,-0x1
0506 e008       |    |		Load	0x0,0x8
0507 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0508 c403       |    |		Store	0x2,0x3
0509 e5fe       |    |		Load	0x2,-0x2
050a 7004       |p   |		Jump_Nonzero	0x50f
050b 00d8       |    |		Load_Top	At_Offset_0
050c e002       |    |		Load	0x0,0x2
050d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
050e 6826       |h&  |		Jump_Zero	0x535
050f e5ff       |    |		Load	0x2,-0x1
0510 e004       |    |		Load	0x0,0x4
0511 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0512 c402       |    |		Store	0x2,0x2
0513 e5ff       |    |		Load	0x2,-0x1
0514 e004       |    |		Load	0x0,0x4
0515 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0516 6812       |h   |		Jump_Zero	0x529
0517 e5ff       |    |		Load	0x2,-0x1
0518 e004       |    |		Load	0x0,0x4
0519 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
051a 821e       |    |		Call	0x1,0x1e
051b 680d       |h   |		Jump_Zero	0x529
051c e5fa       |    |		Load	0x2,-0x6
051d e5fb       |    |		Load	0x2,-0x5
051e e20d       |    |		Load	0x1,0xd
051f e402       |    |		Load	0x2,0x2
0520 e002       |    |		Load	0x0,0x2
0521 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0522 e5fe       |    |		Load	0x2,-0x2
0523 821d       |    |		Call	0x1,0x1d
0524 c402       |    |		Store	0x2,0x2
0525 c5fc       |    |		Store	0x2,-0x4
0526 c5fb       |    |		Store	0x2,-0x5
0527 c5fa       |    |		Store	0x2,-0x6
0528 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0529 e5fa       |    |		Load	0x2,-0x6
052a e5fb       |    |		Load	0x2,-0x5
052b e20d       |    |		Load	0x1,0xd
052c e402       |    |		Load	0x2,0x2
052d e5fd       |    |		Load	0x2,-0x3
052e e5fe       |    |		Load	0x2,-0x2
052f 821d       |    |		Call	0x1,0x1d
0530 c402       |    |		Store	0x2,0x2
0531 c5fc       |    |		Store	0x2,-0x4
0532 c5fb       |    |		Store	0x2,-0x5
0533 c5fa       |    |		Store	0x2,-0x6
0534 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0535 e5fa       |    |		Load	0x2,-0x6
0536 e20d       |    |		Load	0x1,0xd
0537 00da       |    |		Load_Top	At_Offset_2
0538 821a       |    |		Call	0x1,0x1a
0539 c5fc       |    |		Store	0x2,-0x4
053a c5fa       |    |		Store	0x2,-0x6
053b 4800       |H   |		Short_Literal	0x0
053c a5fb       |    |		Store_Unchecked	0x2,-0x5
053d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
053e 0000 0000  |    |		.XXX[0x2]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 054a       | J  |		.CONST	0x054a								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0002       |    |		.CONST	0x0002								; Number of locals
0543			INIT_0540:
0543 e002       |    |		Load	0x0,0x2
0544 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0545 02c7       |    |		Declare_Variable	Any
0546 00db       |    |		Load_Top	At_Offset_3
0547 e004       |    |		Load	0x0,0x4
0548 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0549 a402       |    |		Store_Unchecked	0x2,0x2
054a			BODY_0540:
054a 4801       |H   |		Short_Literal	0x1
054b 0092 064a  |   J|		Action	Push_String_Extended,0x64a					; "CHARACTER"
054d 00da       |    |		Load_Top	At_Offset_2
054e e002       |    |		Load	0x0,0x2
054f 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0550 e009       |    |		Load	0x0,0x9
0551 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0552 700b       |p   |		Jump_Nonzero	0x55e
0553 4801       |H   |		Short_Literal	0x1
0554 0092 064a  |   J|		Action	Push_String_Extended,0x64a					; "CHARACTER"
0556 00da       |    |		Load_Top	At_Offset_2
0557 e002       |    |		Load	0x0,0x2
0558 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0559 e003       |    |		Load	0x0,0x3
055a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
055b e009       |    |		Load	0x0,0x9
055c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
055d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055e 4801       |H   |		Short_Literal	0x1
055f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056a       | j  |		.CONST	0x056a								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0002       |    |		.CONST	0x0002								; Number of locals
0563			INIT_0560:
0563 e002       |    |		Load	0x0,0x2
0564 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0565 02c7       |    |		Declare_Variable	Any
0566 00db       |    |		Load_Top	At_Offset_3
0567 e004       |    |		Load	0x0,0x4
0568 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0569 a402       |    |		Store_Unchecked	0x2,0x2
056a			BODY_0560:
056a 4801       |H   |		Short_Literal	0x1
056b 0092 064b  |   K|		Action	Push_String_Extended,0x64b					; "BOOLEAN"
056d 00da       |    |		Load_Top	At_Offset_2
056e e002       |    |		Load	0x0,0x2
056f 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0570 e009       |    |		Load	0x0,0x9
0571 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0572 700b       |p   |		Jump_Nonzero	0x57e
0573 4801       |H   |		Short_Literal	0x1
0574 0092 064b  |   K|		Action	Push_String_Extended,0x64b					; "BOOLEAN"
0576 00da       |    |		Load_Top	At_Offset_2
0577 e002       |    |		Load	0x0,0x2
0578 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0579 e003       |    |		Load	0x0,0x3
057a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
057b e009       |    |		Load	0x0,0x9
057c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
057d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
057e 4801       |H   |		Short_Literal	0x1
057f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 058e       |    |		.CONST	0x058e								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0005       |    |		.CONST	0x0005								; Number of locals
0583			INIT_0580:
0583 e20d       |    |		Load	0x1,0xd
0584 0007       |    |		Action	Break_Optional
0585 e004       |    |		Load	0x0,0x4
0586 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0587 02c7       |    |		Declare_Variable	Any
0588 00d8       |    |		Load_Top	At_Offset_0
0589 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058a e20d       |    |		Load	0x1,0xd
058b 0007       |    |		Action	Break_Optional
058c 00e1       |    |		Load_Encached	Boolean_Cache
058d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
058e			BODY_0580:
058e 4800       |H   |		Short_Literal	0x0
058f a5fc       |    |		Store_Unchecked	0x2,-0x4
0590 e5ff       |    |		Load	0x2,-0x1
0591 e004       |    |		Load	0x0,0x4
0592 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0593 c403       |    |		Store	0x2,0x3
0594 00da       |    |		Load_Top	At_Offset_2
0595 8220       |    |		Call	0x1,0x20
0596 6804       |h   |		Jump_Zero	0x59b
0597 e007       |    |		Load	0x0,0x7
0598 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0599 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
059a 7815       |x   |		Jump	0x5b0
059b 00da       |    |		Load_Top	At_Offset_2
059c 8221       | !  |		Call	0x1,0x21
059d 6804       |h   |		Jump_Zero	0x5a2
059e e007       |    |		Load	0x0,0x7
059f 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
05a0 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
05a1 780e       |x   |		Jump	0x5b0
05a2 e5fb       |    |		Load	0x2,-0x5
05a3 00d9       |    |		Load_Top	At_Offset_1
05a4 e20d       |    |		Load	0x1,0xd
05a5 e5fe       |    |		Load	0x2,-0x2
05a6 e403       |    |		Load	0x2,0x3
05a7 8215       |    |		Call	0x1,0x15
05a8 c404       |    |		Store	0x2,0x4
05a9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05aa c5fb       |    |		Store	0x2,-0x5
05ab e007       |    |		Load	0x0,0x7
05ac 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
05ad 00da       |    |		Load_Top	At_Offset_2
05ae 8216       |    |		Call	0x1,0x16
05af 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
05b0 e5fb       |    |		Load	0x2,-0x5
05b1 6816       |h   |		Jump_Zero	0x5c8
05b2 e5fb       |    |		Load	0x2,-0x5
05b3 e20d       |    |		Load	0x1,0xd
05b4 e5fd       |    |		Load	0x2,-0x3
05b5 820f       |    |		Call	0x1,0xf
05b6 c402       |    |		Store	0x2,0x2
05b7 c5fb       |    |		Store	0x2,-0x5
05b8 e5fb       |    |		Load	0x2,-0x5
05b9 680e       |h   |		Jump_Zero	0x5c8
05ba 00d8       |    |		Load_Top	At_Offset_0
05bb 6808       |h   |		Jump_Zero	0x5c4
05bc 00db       |    |		Load_Top	At_Offset_3
05bd e007       |    |		Load	0x0,0x7
05be 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05bf 00db       |    |		Load_Top	At_Offset_3
05c0 8216       |    |		Call	0x1,0x16
05c1 0271       | q  |		Execute	Discrete,Times
05c2 c5fc       |    |		Store	0x2,-0x4
05c3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05c4 00db       |    |		Load_Top	At_Offset_3
05c5 00da       |    |		Load_Top	At_Offset_2
05c6 0271       | q  |		Execute	Discrete,Times
05c7 c5fc       |    |		Store	0x2,-0x4
05c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05c9 0000 0000  |    |		.BLANK	0000[0x7]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05dd       |    |		.CONST	0x05dd								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0005       |    |		.CONST	0x0005								; Number of locals
05d3			INIT_05d0:
05d3 00e1       |    |		Load_Encached	Boolean_Cache
05d4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05d5 03e9       |    |		Declare_Variable	Discrete,Duplicate
05d6 e002       |    |		Load	0x0,0x2
05d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05d8 02c7       |    |		Declare_Variable	Any
05d9 00d8       |    |		Load_Top	At_Offset_0
05da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05db 029f 0623  |   #|		Declare_Subprogram	INIT_0620,For_Call
05dd			BODY_05d0:
05dd e002       |    |		Load	0x0,0x2
05de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05df c5fc       |    |		Store	0x2,-0x4
05e0 e002       |    |		Load	0x0,0x2
05e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05e2 c5fb       |    |		Store	0x2,-0x5
05e3 e5ff       |    |		Load	0x2,-0x1
05e4 c404       |    |		Store	0x2,0x4
05e5 e5fd       |    |		Load	0x2,-0x3
05e6 8405       |    |		Call	0x2,0x5
05e7 00cf       |    |		Action	Mark_Auxiliary
05e8 7831       |x1  |		Jump	0x61a
05e9 00da       |    |		Load_Top	At_Offset_2
05ea e002       |    |		Load	0x0,0x2
05eb 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05ec 6805       |h   |		Jump_Zero	0x5f2
05ed e5fe       |    |		Load	0x2,-0x2
05ee e004       |    |		Load	0x0,0x4
05ef 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05f0 8405       |    |		Call	0x2,0x5
05f1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05f2 4801       |H   |		Short_Literal	0x1
05f3 00db       |    |		Load_Top	At_Offset_3
05f4 e002       |    |		Load	0x0,0x2
05f5 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
05f6 c404       |    |		Store	0x2,0x4
05f7 00da       |    |		Load_Top	At_Offset_2
05f8 e002       |    |		Load	0x0,0x2
05f9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05fa 7023       |p#  |		Jump_Nonzero	0x61e
05fb 00da       |    |		Load_Top	At_Offset_2
05fc e003       |    |		Load	0x0,0x3
05fd 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
05fe e004       |    |		Load	0x0,0x4
05ff 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0600 c404       |    |		Store	0x2,0x4
0601 00da       |    |		Load_Top	At_Offset_2
0602 e004       |    |		Load	0x0,0x4
0603 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0604 460c       |F   |		Jump_Case	0xd
0605 780c       |x   |		Jump	0x612								; case 0x0
0606 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x1
0607 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x2
0608 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x3
0609 780d       |x   |		Jump	0x617								; case 0x4
060a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x5
060b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x6
060c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x7
060d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x8
060e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0x9
060f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0xa
0610 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0xb
0611 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; case 0xc
0612 00da       |    |		Load_Top	At_Offset_2
0613 e004       |    |		Load	0x0,0x4
0614 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0615 8405       |    |		Call	0x2,0x5
0616 7802       |x   |		Jump	0x619
0617 00da       |    |		Load_Top	At_Offset_2
0618 8405       |    |		Call	0x2,0x5
0619 00c9       |    |		Action	Pop_Auxiliary_Loop
061a e402       |    |		Load	0x2,0x2
061b 6fcd       |o   |		Jump_Zero	0x5e9
061c 00db       |    |		Load_Top	At_Offset_3
061d 6fcb       |o   |		Jump_Zero	0x5e9
061e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
061f 0000       |    |		.XXX[0x1]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 00da       |    |		Load_Top	At_Offset_2
0624 e004       |    |		Load	0x0,0x4
0625 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0626 4606       |F   |		Jump_Case	0x7
0627 781b       |x   |		Jump	0x643								; case 0x0
0628 781a       |x   |		Jump	0x643								; case 0x1
0629 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
062a 7803       |x   |		Jump	0x62e								; case 0x3
062b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x4
062c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x5
062d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x6
062e e403       |    |		Load	0x2,0x3
062f 7004       |p   |		Jump_Nonzero	0x634
0630 00da       |    |		Load_Top	At_Offset_2
0631 c5fb       |    |		Store	0x2,-0x5
0632 4801       |H   |		Short_Literal	0x1
0633 a403       |    |		Store_Unchecked	0x2,0x3
0634 e402       |    |		Load	0x2,0x2
0635 700c       |p   |		Jump_Nonzero	0x642
0636 00da       |    |		Load_Top	At_Offset_2
0637 e004       |    |		Load	0x0,0x4
0638 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0639 e002       |    |		Load	0x0,0x2
063a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
063b 7006       |p   |		Jump_Nonzero	0x642
063c 00da       |    |		Load_Top	At_Offset_2
063d e004       |    |		Load	0x0,0x4
063e 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
063f c5fc       |    |		Store	0x2,-0x4
0640 4801       |H   |		Short_Literal	0x1
0641 a402       |    |		Store_Unchecked	0x2,0x2
0642 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0643 e402       |    |		Load	0x2,0x2
0644 7004       |p   |		Jump_Nonzero	0x649
0645 00da       |    |		Load_Top	At_Offset_2
0646 c5fc       |    |		Store	0x2,-0x4
0647 4801       |H   |		Short_Literal	0x1
0648 a402       |    |		Store_Unchecked	0x2,0x2
0649 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
064a ; --------------------------------------------------------------------------------------
064a ; STRING TABLE
064a ; --------------------------------------------------------------------------------------
064a 0006       |    |		.STRTAB	0x0006->0x064d							; "CHARACTER"
064b 000d       |    |		.STRTAB	0x000d->0x0651							; "BOOLEAN"
064c 0012       |    |		.STREND 0x0012->0x0655
064d 4348 4152  |CHAR|		.STRTAB_STRINGS
0655 0000 0000  |    |		.XXX[0x3]
0657 0000       |    |
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2ee1,0x0000,0x0001,0x0017
065e 000b 06ba  |    |		.DBG4T	0x000b,0x06ba,0x8000,0x0000
0662 0018 06c1  |    |		.DBG4T	0x0018,0x06c1,0x8000,0x8000
0666 0053 06f3  | S  |		.DBG4T	0x0053,0x06f3,0x0001,0x4000
066a 007b 06ff  | {  |		.DBG4T	0x007b,0x06ff,0x0001,0x4000
066e 00d3 0716  |    |		.DBG4T	0x00d3,0x0716,0x0001,0x0000
0672 00eb 071c  |    |		.DBG4T	0x00eb,0x071c,0x0001,0x0000
0676 0113 0726  |   &|		.DBG4T	0x0113,0x0726,0x0001,0x4000
067a 01cb 075c  |   \|		.DBG4T	0x01cb,0x075c,0x0001,0x4000
067e 0303 07dd  |    |		.DBG4T	0x0303,0x07dd,0x0002,0x0000
0682 031b 07e2  |    |		.DBG4T	0x031b,0x07e2,0x0001,0x0000
0686 0333 07e8  | 3  |		.DBG4T	0x0333,0x07e8,0x0001,0x0000
068a 0343 07ed  | C  |		.DBG4T	0x0343,0x07ed,0x0002,0x0000
068e 035b 07f4  | [  |		.DBG4T	0x035b,0x07f4,0x0001,0x4000
0692 03cb 0812  |    |		.DBG4T	0x03cb,0x0812,0x0002,0x4000
0696 03db 081a  |    |		.DBG4T	0x03db,0x081a,0x0002,0x4000
069a 0413 0830  |   0|		.DBG4T	0x0413,0x0830,0x0001,0x4000
069e 04d3 0888  |    |		.DBG4T	0x04d3,0x0888,0x0002,0x4000
06a2 04fb 0898  |    |		.DBG4T	0x04fb,0x0898,0x0001,0x0000
06a6 0543 08a4  | C  |		.DBG4T	0x0543,0x08a4,0x0002,0x0000
06aa 0563 08a8  | c  |		.DBG4T	0x0563,0x08a8,0x0002,0x0000
06ae 0583 08ac  |    |		.DBG4T	0x0583,0x08ac,0x0001,0x0000
06b2 05d3 08c0  |    |		.DBG4T	0x05d3,0x08c0,0x0001,0x4000
06b6 0623 08e1  | #  |		.DBG4T	0x0623,0x08e1,0x0001,0x4000
06ba ; --------------------------------------------------------------------------------------
06ba ; Debug chain
06ba ; --------------------------------------------------------------------------------------
06ba 0005 0000  |    |		.DBGLEN	0x0005,0x0000
06bc 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0011,0x0013,0x0015
06c1 ; --------------------------------------------------------------------------------------
06c1 ; Debug chain
06c1 ; --------------------------------------------------------------------------------------
06c1 0018 0000  |    |		.DBGLEN	0x0018,0x0000
06c3 0018 001b  |    |		.DBGLNO	0x0018,0x001b,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048
06db 0001 0002  |    |		.XXX[0x18]
06dd 0005 0006  |    |
06df 0007 0008  |    |
06e1 0009 000a  |    |
06e3 000b 000c  |    |
06e5 000d 000e  |    |
06e7 000f 0010  |    |
06e9 0011 0012  |    |
06eb 0013 0014  |    |
06ed 0015 0016  |    |
06ef 0017 0018  |    |
06f1 0019 001a  |    |
06f3 ; --------------------------------------------------------------------------------------
06f3 ; Debug chain
06f3 ; --------------------------------------------------------------------------------------
06f3 0002 0004  |    |		.DBGLEN	0x0002,0x0004
06f5 0053 005a  | S Z|		.DBGLNO	0x0053,0x005a,0x005e,0x0061,0x0066,0x006b
06fb 0002 0003  |    |		.XXX[0x4]
06fd 0001 0004  |    |
06ff ; --------------------------------------------------------------------------------------
06ff ; Debug chain
06ff ; --------------------------------------------------------------------------------------
06ff 0005 0008  |    |		.DBGLEN	0x0005,0x0008
0701 007b 0080  | {  |		.DBGLNO	0x007b,0x0080,0x0085,0x008f,0x0091,0x0093,0x0097,0x009b,0x00b4,0x00b6,0x00bc,0x00c1,0x00c6
070e 0001 0003  |    |		.XXX[0x8]
0710 0004 0005  |    |
0712 0006 0007  |    |
0714 0002 0008  |    |
0716 ; --------------------------------------------------------------------------------------
0716 ; Debug chain
0716 ; --------------------------------------------------------------------------------------
0716 0002 0002  |    |		.DBGLEN	0x0002,0x0002
0718 00d3 00d5  |    |		.DBGLNO	0x00d3,0x00d5,0x00d6,0x00df
071c ; --------------------------------------------------------------------------------------
071c ; Debug chain
071c ; --------------------------------------------------------------------------------------
071c 0003 0005  |    |		.DBGLEN	0x0003,0x0005
071e 00eb 00ed  |    |		.DBGLNO	0x00eb,0x00ed,0x00ee,0x00f0,0x00f4,0x00ff,0x0101,0x0109
0726 ; --------------------------------------------------------------------------------------
0726 ; Debug chain
0726 ; --------------------------------------------------------------------------------------
0726 0006 0017  |    |		.DBGLEN	0x0006,0x0017
0728 0113 011a  |    |		.DBGLNO	0x0113,0x011a,0x0124,0x0126,0x0128,0x012a,0x012b,0x012d,0x013e,0x0140,0x0143,0x014c,0x014e,0x0155,0x0158,0x0161,0x0163,0x016a,0x016d,0x0181,0x018b,0x018d,0x0194,0x0197,0x01a0,0x01a8,0x01aa,0x01b1,0x01bc
0745 0001 0002  |    |		.XXX[0x17]
0747 0016 0017  |    |
0749 0003 0004  |    |
074b 0005 0006  |    |
074d 0007 0008  |    |
074f 0009 000a  |    |
0751 000b 000c  |    |
0753 000d 000e  |    |
0755 000f 0010  |    |
0757 0011 0012  |    |
0759 0013 0014  |    |
075b 0015       |    |
075c ; --------------------------------------------------------------------------------------
075c ; Debug chain
075c ; --------------------------------------------------------------------------------------
075c 0007 003c  |   <|		.DBGLEN	0x0007,0x003c
075e 01cb 01d2  |    |		.DBGLNO	0x01cb,0x01d2,0x01d7,0x01d9,0x01db,0x01dd,0x01ec,0x01ed,0x01ef,0x01f2,0x01f6,0x01f8,0x01f9,0x01fd,0x0203,0x0214,0x0216,0x0218,0x0219,0x021d,0x0221,0x0223,0x0224,0x0231,0x0232,0x0235,0x0238,0x023b,0x023e,0x0241,0x0244,0x024b,0x0251,0x0255,0x0256,0x0261,0x0263,0x0269,0x026a,0x0275,0x027d,0x027f,0x0285,0x0286,0x0289,0x028b,0x028d,0x028e,0x02a3,0x02ad,0x02af,0x02b5,0x02b6,0x02ba,0x02c5,0x02c7,0x02c9,0x02ca,0x02d0,0x02d2,0x02d3,0x02de,0x02df,0x02e6,0x02ea,0x02f0,0x02f6
07a1 0001 0002  |    |		.XXX[0x3c]
07a3 0004 0005  |    |
07a5 0006 0007  |    |
07a7 0008 0009  |    |
07a9 0039 003a  | 9 :|
07ab 003b 000a  | ;  |
07ad 000b 000c  |    |
07af 000d 000e  |    |
07b1 000f 0010  |    |
07b3 0011 0012  |    |
07b5 0013 0014  |    |
07b7 0015 0016  |    |
07b9 0017 0018  |    |
07bb 0019 001a  |    |
07bd 001b 001c  |    |
07bf 001d 001e  |    |
07c1 001f 0020  |    |
07c3 0021 0022  | ! "|
07c5 0023 0024  | # $|
07c7 0025 0026  | % &|
07c9 0027 0028  | ' (|
07cb 0029 002a  | ) *|
07cd 002b 002c  | + ,|
07cf 002d 002e  | - .|
07d1 002f 0030  | / 0|
07d3 0031 0032  | 1 2|
07d5 0033 0034  | 3 4|
07d7 0035 0036  | 5 6|
07d9 0037 0038  | 7 8|
07db 003c 003d  | < =|
07dd ; --------------------------------------------------------------------------------------
07dd ; Debug chain
07dd ; --------------------------------------------------------------------------------------
07dd 0000 0003  |    |		.DBGLEN	0x0000,0x0003
07df 0303 0307  |    |		.DBGLNO	0x0303,0x0307,0x0309
07e2 ; --------------------------------------------------------------------------------------
07e2 ; Debug chain
07e2 ; --------------------------------------------------------------------------------------
07e2 0000 0004  |    |		.DBGLEN	0x0000,0x0004
07e4 031b 031e  |    |		.DBGLNO	0x031b,0x031e,0x0325,0x0327
07e8 ; --------------------------------------------------------------------------------------
07e8 ; Debug chain
07e8 ; --------------------------------------------------------------------------------------
07e8 0001 0002  |    |		.DBGLEN	0x0001,0x0002
07ea 0333 0338  | 3 8|		.DBGLNO	0x0333,0x0338,0x033b
07ed ; --------------------------------------------------------------------------------------
07ed ; Debug chain
07ed ; --------------------------------------------------------------------------------------
07ed 0001 0004  |    |		.DBGLEN	0x0001,0x0004
07ef 0343 0345  | C E|		.DBGLNO	0x0343,0x0345,0x034a,0x034e,0x0352
07f4 ; --------------------------------------------------------------------------------------
07f4 ; Debug chain
07f4 ; --------------------------------------------------------------------------------------
07f4 0006 000b  |    |		.DBGLEN	0x0006,0x000b
07f6 035b 0360  | [ `|		.DBGLNO	0x035b,0x0360,0x0365,0x0367,0x036a,0x036d,0x0377,0x037d,0x0381,0x0385,0x038d,0x03a8,0x03b0,0x03b4,0x03b6,0x03bb,0x03c0
0807 0001 0003  |    |		.XXX[0xb]
0809 0004 0005  |    |
080b 0006 0007  |    |
080d 0008 0009  |    |
080f 000a 0002  |    |
0811 000b       |    |
0812 ; --------------------------------------------------------------------------------------
0812 ; Debug chain
0812 ; --------------------------------------------------------------------------------------
0812 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0814 03cb 03d0  |    |		.DBGLNO	0x03cb,0x03d0,0x03d3
0817 0001 0003  |    |		.XXX[0x3]
0819 0002       |    |
081a ; --------------------------------------------------------------------------------------
081a ; Debug chain
081a ; --------------------------------------------------------------------------------------
081a 0002 0009  |    |		.DBGLEN	0x0002,0x0009
081c 03db 03e0  |    |		.DBGLNO	0x03db,0x03e0,0x03e5,0x03e9,0x03ed,0x03f1,0x03fa,0x03fc,0x0404,0x0409,0x040e
0827 0001 0002  |    |		.XXX[0x9]
0829 0004 0005  |    |
082b 000a 0009  |    |
082d 000b 0003  |    |
082f 000c       |    |
0830 ; --------------------------------------------------------------------------------------
0830 ; Debug chain
0830 ; --------------------------------------------------------------------------------------
0830 0008 0027  |   '|		.DBGLEN	0x0008,0x0027
0832 0413 041d  |    |		.DBGLNO	0x0413,0x041d,0x0421,0x042b,0x042c,0x042d,0x0432,0x0437,0x0439,0x043d,0x0441,0x0443,0x044b,0x044d,0x044f,0x0450,0x0454,0x0458,0x0462,0x0468,0x046c,0x0470,0x0474,0x047f,0x0481,0x0485,0x0487,0x0489,0x048a,0x048e,0x0490,0x0493,0x0495,0x0496,0x049b,0x04a1,0x04a3,0x04a5,0x04a7,0x04a9,0x04ab,0x04b5,0x04bc,0x04be,0x04bf,0x04c4,0x04c9
0861 0001 0003  |    |		.XXX[0x27]
0863 0004 0005  |    |
0865 001c 001d  |    |
0867 001e 0006  |    |
0869 0007 0008  |    |
086b 0009 000b  |    |
086d 000c 000d  |    |
086f 000e 000f  |    |
0871 0010 0011  |    |
0873 0012 0013  |    |
0875 0014 0015  |    |
0877 0016 0017  |    |
0879 0018 0019  |    |
087b 000a 001a  |    |
087d 001b 001f  |    |
087f 0020 0021  |   !|
0881 0022 0023  | " #|
0883 0024 0025  | $ %|
0885 0026 0002  | &  |
0887 0027       | '  |
0888 ; --------------------------------------------------------------------------------------
0888 ; Debug chain
0888 ; --------------------------------------------------------------------------------------
0888 0002 0006  |    |		.DBGLEN	0x0002,0x0006
088a 04d3 04d8  |    |		.DBGLNO	0x04d3,0x04d8,0x04df,0x04e3,0x04e7,0x04e9,0x04ee,0x04f3
0892 0002 0003  |    |		.XXX[0x6]
0894 0004 0005  |    |
0896 0001 0006  |    |
0898 ; --------------------------------------------------------------------------------------
0898 ; Debug chain
0898 ; --------------------------------------------------------------------------------------
0898 0002 0008  |    |		.DBGLEN	0x0002,0x0008
089a 04fb 0500  |    |		.DBGLNO	0x04fb,0x0500,0x0505,0x0509,0x050f,0x0513,0x051c,0x0529,0x0535,0x053b
08a4 ; --------------------------------------------------------------------------------------
08a4 ; Debug chain
08a4 ; --------------------------------------------------------------------------------------
08a4 0001 0001  |    |		.DBGLEN	0x0001,0x0001
08a6 0543 054a  | C J|		.DBGLNO	0x0543,0x054a
08a8 ; --------------------------------------------------------------------------------------
08a8 ; Debug chain
08a8 ; --------------------------------------------------------------------------------------
08a8 0001 0001  |    |		.DBGLEN	0x0001,0x0001
08aa 0563 056a  | c j|		.DBGLNO	0x0563,0x056a
08ac ; --------------------------------------------------------------------------------------
08ac ; Debug chain
08ac ; --------------------------------------------------------------------------------------
08ac 0004 000e  |    |		.DBGLEN	0x0004,0x000e
08ae 0583 0585  |    |		.DBGLNO	0x0583,0x0585,0x058a,0x058c,0x058e,0x0590,0x0594,0x0597,0x059b,0x059e,0x05a2,0x05ab,0x05b0,0x05b2,0x05b8,0x05ba,0x05bc,0x05c4
08c0 ; --------------------------------------------------------------------------------------
08c0 ; Debug chain
08c0 ; --------------------------------------------------------------------------------------
08c0 0003 000e  |    |		.DBGLEN	0x0003,0x000e
08c2 05d3 05d6  |    |		.DBGLNO	0x05d3,0x05d6,0x05db,0x05dd,0x05e0,0x05e3,0x05e5,0x05e9,0x05ed,0x05f1,0x05f2,0x05f7,0x05fb,0x0601,0x0612,0x0617,0x061a
08d3 0001 0002  |    |		.XXX[0xe]
08d5 0003 0004  |    |
08d7 0006 0007  |    |
08d9 0008 0009  |    |
08db 000a 000b  |    |
08dd 000c 000d  |    |
08df 000e 0005  |    |
08e1 ; --------------------------------------------------------------------------------------
08e1 ; Debug chain
08e1 ; --------------------------------------------------------------------------------------
08e1 0000 000a  |    |		.DBGLEN	0x0000,0x000a
08e3 0623 062e  | # .|		.DBGLNO	0x0623,0x062e,0x0630,0x0632,0x0634,0x063c,0x0640,0x0643,0x0645,0x0647
08ed 0001 0005  |    |		.XXX[0xa]
08ef 0006 0007  |    |
08f1 0008 0009  |    |
08f3 000a 0002  |    |
08f5 0003 0004  |    |
08f7 0000 0000  |    |		.BLANK	0000[0x109]