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

⟦f38622333⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0518       |    |		.CONST	0x0518								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ac       |    |		.CONST	0x00ac								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003b       | ;  |		.CONST	0x003b								; Number of locals
000b			INIT_0008:
000b 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
000d 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
000f 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0011 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0013 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0015 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0017 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0019 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
001b 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
001d 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
001f 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0021 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0023 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
0025 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
0027 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
0029 00bf       |    |		Action	Accept_Activation
002a 4801       |H   |		Short_Literal	0x1
002b 4800       |H   |		Short_Literal	0x0
002c 4801       |H   |		Short_Literal	0x1
002d 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
002f 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0030 480b       |H   |		Short_Literal	0xb
0031 4800       |H   |		Short_Literal	0x0
0032 609d       |`   |		Indirect_Literal	Discrete,0xd0,{0x00000000, 0x000007ff}
0033 00e5       |    |		Load_Encached	Long_Integer_Cache
0034 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0035 4834       |H4  |		Short_Literal	0x34
0036 4800       |H   |		Short_Literal	0x0
0037 6094       |`   |		Indirect_Literal	Discrete,0xcc,{0x000fffff, 0xffffffff}
0038 00e5       |    |		Load_Encached	Long_Integer_Cache
0039 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
003a 00da       |    |		Load_Top	At_Offset_2
003b 00da       |    |		Load_Top	At_Offset_2
003c 00da       |    |		Load_Top	At_Offset_2
003d 02a0       |    |		Declare_Subprogram	Null_Subprogram
003e 4803       |H   |		Short_Literal	0x3
003f 032d       | -  |		Declare_Type	Record,Defined
0040 a002       |    |		Store_Unchecked	0x0,0x2
0041 00c6       |    |		Action	Check_Subprogram_Elaborated
0042 e20e       |    |		Load	0x1,0xe
0043 00d9       |    |		Load_Top	At_Offset_1
0044 e003       |    |		Load	0x0,0x3
0045 e004       |    |		Load	0x0,0x4
0046 4800       |H   |		Short_Literal	0x0
0047 0007       |    |		Action	Break_Optional
0048 a002       |    |		Store_Unchecked	0x0,0x2
0049 00c6       |    |		Action	Check_Subprogram_Elaborated
004a e222       | "  |		Load	0x1,0x22
004b e20e       |    |		Load	0x1,0xe
004c e005       |    |		Load	0x0,0x5
004d e006       |    |		Load	0x0,0x6
004e 4800       |H   |		Short_Literal	0x0
004f 0007       |    |		Action	Break_Optional
0050 e222       | "  |		Load	0x1,0x22
0051 0322       | "  |		Declare_Variable	Record
0052 4800       |H   |		Short_Literal	0x0
0053 00d9       |    |		Load_Top	At_Offset_1
0054 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0055 4800       |H   |		Short_Literal	0x0
0056 00d9       |    |		Load_Top	At_Offset_1
0057 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0058 4801       |H   |		Short_Literal	0x1
0059 00d9       |    |		Load_Top	At_Offset_1
005a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
005b e228       | (  |		Load	0x1,0x28
005c e229       | )  |		Load	0x1,0x29
005d 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
005e 8002       |    |		Call	0x0,0x2
005f e20e       |    |		Load	0x1,0xe
0060 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
0061 e222       | "  |		Load	0x1,0x22
0062 0322       | "  |		Declare_Variable	Record
0063 4801       |H   |		Short_Literal	0x1
0064 00d9       |    |		Load_Top	At_Offset_1
0065 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0066 4800       |H   |		Short_Literal	0x0
0067 00d9       |    |		Load_Top	At_Offset_1
0068 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0069 4801       |H   |		Short_Literal	0x1
006a 00d9       |    |		Load_Top	At_Offset_1
006b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006c e228       | (  |		Load	0x1,0x28
006d e229       | )  |		Load	0x1,0x29
006e 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
006f 8002       |    |		Call	0x0,0x2
0070 e20e       |    |		Load	0x1,0xe
0071 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
0072 4800       |H   |		Short_Literal	0x0
0073 6054       |`T  |		Indirect_Literal	Discrete,0xc8,{0x001fffff, 0xffffffff}
0074 00e5       |    |		Load_Encached	Long_Integer_Cache
0075 03f8       |    |		Declare_Type	Discrete,Constrained
0076 4801       |H   |		Short_Literal	0x1
0077 4834       |H4  |		Short_Literal	0x34
0078 00e1       |    |		Load_Encached	Boolean_Cache
0079 02a0       |    |		Declare_Subprogram	Null_Subprogram
007a 4801       |H   |		Short_Literal	0x1
007b 035d       | ]  |		Declare_Type	Array,Defined
007c a002       |    |		Store_Unchecked	0x0,0x2
007d 00c6       |    |		Action	Check_Subprogram_Elaborated
007e 00d8       |    |		Load_Top	At_Offset_0
007f e221       | !  |		Load	0x1,0x21
0080 e007       |    |		Load	0x0,0x7
0081 e008       |    |		Load	0x0,0x8
0082 4800       |H   |		Short_Literal	0x0
0083 0007       |    |		Action	Break_Optional
0084 a002       |    |		Store_Unchecked	0x0,0x2
0085 00c6       |    |		Action	Check_Subprogram_Elaborated
0086 e221       | !  |		Load	0x1,0x21
0087 e230       | 0  |		Load	0x1,0x30
0088 e009       |    |		Load	0x0,0x9
0089 e00a       |    |		Load	0x0,0xa
008a 4800       |H   |		Short_Literal	0x0
008b 0007       |    |		Action	Break_Optional
008c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call
009c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac			BODY_0008:
00ac 00bc       |    |		Action	Signal_Activated
00ad 00bb       |    |		Action	Signal_Completion
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7       |    |		.CONST	0x00b7								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e20e       |    |		Load	0x1,0xe
00b4 0007       |    |		Action	Break_Optional
00b5 e20f       |    |		Load	0x1,0xf
00b6 0007       |    |		Action	Break_Optional
00b7			BODY_00b0:
00b7 e20f       |    |		Load	0x1,0xf
00b8 e20e       |    |		Load	0x1,0xe
00b9 e5ff       |    |		Load	0x2,-0x1
00ba e20e       |    |		Load	0x1,0xe
00bb 0232       | 2  |		Execute	Float,Check_In_Type
00bc 8212       |    |		Call	0x1,0x12
00bd 004b       | K  |		Store_Top	Float,At_Offset_3
00be 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 00d8       |    |		Load_Top	At_Offset_0
00c1 e20f       |    |		Load	0x1,0xf
00c2 0260       | `  |		Execute	Discrete,In_Type
00c3 7001       |p   |		Jump_Nonzero	0xc5
00c4 0801       |    |		Execute_Immediate	Raise,0x1
00c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c6 0000 0000  |    |		.XXX[0x2]
00c8 001f ffff  |    |		.LITERAL	{0x001fffff, 0xffffffff}
00cc 000f ffff  |    |		.LITERAL	{0x000fffff, 0xffffffff}
00d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007ff}
00d4 0000 0000  |    |		.BLANK	0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00df       |    |		.CONST	0x00df								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0003       |    |		.CONST	0x0003								; Number of locals
00db			INIT_00d8:
00db e20e       |    |		Load	0x1,0xe
00dc 0007       |    |		Action	Break_Optional
00dd e20f       |    |		Load	0x1,0xf
00de 0007       |    |		Action	Break_Optional
00df			BODY_00d8:
00df e20f       |    |		Load	0x1,0xf
00e0 e20e       |    |		Load	0x1,0xe
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 e20e       |    |		Load	0x1,0xe
00e3 0232       | 2  |		Execute	Float,Check_In_Type
00e4 8212       |    |		Call	0x1,0x12
00e5 004b       | K  |		Store_Top	Float,At_Offset_3
00e6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 e20e       |    |		Load	0x1,0xe
00e9 0232       | 2  |		Execute	Float,Check_In_Type
00ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 010b       |    |		.CONST	0x010b								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0004       |    |		.CONST	0x0004								; Number of locals
00f3			INIT_00f0:
00f3 e222       | "  |		Load	0x1,0x22
00f4 0322       | "  |		Declare_Variable	Record
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 e20e       |    |		Load	0x1,0xe
00f7 0232       | 2  |		Execute	Float,Check_In_Type
00f8 e223       | #  |		Load	0x1,0x23
00f9 e224       | $  |		Load	0x1,0x24
00fa 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00fb 8002       |    |		Call	0x0,0x2
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 017d       | }  |		Execute	Record,Structure_Write
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0100 4c02       |L   |		Short_Literal	-0x3fe
0101 0273       | s  |		Execute	Discrete,Plus
0102 00d8       |    |		Load_Top	At_Offset_0
0103 e20f       |    |		Load	0x1,0xf
0104 0260       | `  |		Execute	Discrete,In_Type
0105 7001       |p   |		Jump_Nonzero	0x107
0106 0801       |    |		Execute_Immediate	Raise,0x1
0107 e20f       |    |		Load	0x1,0xf
0108 03f1       |    |		Declare_Variable	Discrete,With_Value
0109 e22f       | /  |		Load	0x1,0x2f
010a 0007       |    |		Action	Break_Optional
010b			BODY_00f0:
010b e5ff       |    |		Load	0x2,-0x1
010c 7005       |p   |		Jump_Nonzero	0x112
010d 584e       |XN  |		Indirect_Literal	Float,0x15c,0.0
010e c5fe       |    |		Store	0x2,-0x2
010f 4800       |H   |		Short_Literal	0x0
0110 c5fd       |    |		Store	0x2,-0x3
0111 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0112 00d9       |    |		Load_Top	At_Offset_1
0113 4c02       |L   |		Short_Literal	-0x3fe
0114 027f       |    |		Execute	Discrete,Equal
0115 6827       |h'  |		Jump_Zero	0x13d
0116 00da       |    |		Load_Top	At_Offset_2
0117 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0118 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0119 00cf       |    |		Action	Mark_Auxiliary
011a 7807       |x   |		Jump	0x122
011b 00d9       |    |		Load_Top	At_Offset_1
011c 0901       |    |		Execute_Immediate	Binary_Scale,0x1
011d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
011e 00da       |    |		Load_Top	At_Offset_2
011f 0aff       |    |		Execute_Immediate	Plus,-0x1
0120 005b       | [  |		Store_Top	Discrete,At_Offset_3
0121 00c9       |    |		Action	Pop_Auxiliary_Loop
0122 00d9       |    |		Load_Top	At_Offset_1
0123 6034       |`4  |		Indirect_Literal	Discrete,0x158,{0x00100000, 0x00000000}
0124 027c       | |  |		Execute	Discrete,Less
0125 77f5       |w   |		Jump_Nonzero	0x11b
0126 00ce       |    |		Action	Pop_Auxiliary
0127 00d8       |    |		Load_Top	At_Offset_0
0128 602b       |`+  |		Indirect_Literal	Discrete,0x154,{0xfff00000, 0x00000000}
0129 0273       | s  |		Execute	Discrete,Plus
012a 00d8       |    |		Load_Top	At_Offset_0
012b e221       | !  |		Load	0x1,0x21
012c 0260       | `  |		Execute	Discrete,In_Type
012d 7001       |p   |		Jump_Nonzero	0x12f
012e 0801       |    |		Execute_Immediate	Raise,0x1
012f 00db       |    |		Load_Top	At_Offset_3
0130 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0131 4bfe       |K   |		Short_Literal	0x3fe
0132 00db       |    |		Load_Top	At_Offset_3
0133 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0134 00da       |    |		Load_Top	At_Offset_2
0135 e228       | (  |		Load	0x1,0x28
0136 e229       | )  |		Load	0x1,0x29
0137 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0138 8002       |    |		Call	0x0,0x2
0139 c5fe       |    |		Store	0x2,-0x2
013a 00d9       |    |		Load_Top	At_Offset_1
013b c5fd       |    |		Store	0x2,-0x3
013c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
013d 00d9       |    |		Load_Top	At_Offset_1
013e 6011       |`   |		Indirect_Literal	Discrete,0x150,{0x00000000, 0x00000401}
013f 027b       | {  |		Execute	Discrete,Greater_Equal
0140 6801       |h   |		Jump_Zero	0x142
0141 08e0       |    |		Execute_Immediate	Raise,0xe0
0142 4bfe       |K   |		Short_Literal	0x3fe
0143 00db       |    |		Load_Top	At_Offset_3
0144 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0145 00da       |    |		Load_Top	At_Offset_2
0146 e228       | (  |		Load	0x1,0x28
0147 e229       | )  |		Load	0x1,0x29
0148 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0149 8002       |    |		Call	0x0,0x2
014a c5fe       |    |		Store	0x2,-0x2
014b 00d9       |    |		Load_Top	At_Offset_1
014c c5fd       |    |		Store	0x2,-0x3
014d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
014e 0000 0000  |    |		.XXX[0x2]
0150 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000401}
0154 fff0 0000  |    |		.LITERAL	{0xfff00000, 0x00000000}
0158 0010 0000  |    |		.LITERAL	{0x00100000, 0x00000000}
015c 0000 0000  |    |		.DBL	0.0
015e 0000 0000  |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016e       | n  |		.CONST	0x016e								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0002       |    |		.CONST	0x0002								; Number of locals
0163			INIT_0160:
0163 e222       | "  |		Load	0x1,0x22
0164 0322       | "  |		Declare_Variable	Record
0165 00db       |    |		Load_Top	At_Offset_3
0166 e20e       |    |		Load	0x1,0xe
0167 0232       | 2  |		Execute	Float,Check_In_Type
0168 e223       | #  |		Load	0x1,0x23
0169 e224       | $  |		Load	0x1,0x24
016a 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
016b 8002       |    |		Call	0x0,0x2
016c 00d9       |    |		Load_Top	At_Offset_1
016d 017d       | }  |		Execute	Record,Structure_Write
016e			BODY_0160:
016e 00db       |    |		Load_Top	At_Offset_3
016f 7004       |p   |		Jump_Nonzero	0x174
0170 5feb       |_   |		Indirect_Literal	Float,0x15c,0.0
0171 e20e       |    |		Load	0x1,0xe
0172 0232       | 2  |		Execute	Float,Check_In_Type
0173 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0174 e5fe       |    |		Load	0x2,-0x2
0175 67da       |g   |		Indirect_Literal	Discrete,0x150,{0x00000000, 0x00000401}
0176 027b       | {  |		Execute	Discrete,Greater_Equal
0177 6801       |h   |		Jump_Zero	0x179
0178 08e0       |    |		Execute_Immediate	Raise,0xe0
0179 e5fe       |    |		Load	0x2,-0x2
017a 4c02       |L   |		Short_Literal	-0x3fe
017b 027a       | z  |		Execute	Discrete,Less_Equal
017c 6815       |h   |		Jump_Zero	0x192
017d 00db       |    |		Load_Top	At_Offset_3
017e e20e       |    |		Load	0x1,0xe
017f 0232       | 2  |		Execute	Float,Check_In_Type
0180 5823       |X#  |		Indirect_Literal	Float,0x1a4,2.0
0181 e20e       |    |		Load	0x1,0xe
0182 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0183 480a       |H   |		Short_Literal	0xa
0184 0271       | q  |		Execute	Discrete,Times
0185 0a05       |    |		Execute_Immediate	Plus,0x5
0186 4803       |H   |		Short_Literal	0x3
0187 0270       | p  |		Execute	Discrete,Divide
0188 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0189 0a01       |    |		Execute_Immediate	Plus,0x1
018a 0275       | u  |		Execute	Discrete,Unary_Minus
018b 0239       | 9  |		Execute	Float,Exponentiate
018c e20e       |    |		Load	0x1,0xe
018d 0232       | 2  |		Execute	Float,Check_In_Type
018e 821d       |    |		Call	0x1,0x1d
018f e20e       |    |		Load	0x1,0xe
0190 0232       | 2  |		Execute	Float,Check_In_Type
0191 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0192 e5fe       |    |		Load	0x2,-0x2
0193 4bfe       |K   |		Short_Literal	0x3fe
0194 0273       | s  |		Execute	Discrete,Plus
0195 00d8       |    |		Load_Top	At_Offset_0
0196 e220       |    |		Load	0x1,0x20
0197 0260       | `  |		Execute	Discrete,In_Type
0198 7001       |p   |		Jump_Nonzero	0x19a
0199 0801       |    |		Execute_Immediate	Raise,0x1
019a 00d9       |    |		Load_Top	At_Offset_1
019b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019c 00d8       |    |		Load_Top	At_Offset_0
019d e228       | (  |		Load	0x1,0x28
019e e229       | )  |		Load	0x1,0x29
019f 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
01a0 8002       |    |		Call	0x0,0x2
01a1 e20e       |    |		Load	0x1,0xe
01a2 0232       | 2  |		Execute	Float,Check_In_Type
01a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a4 4000 0000  |@   |		.DBL	2.0
01a6 0000 0000  |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ba       |    |		.CONST	0x01ba								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0004       |    |		.CONST	0x0004								; Number of locals
01ab			INIT_01a8:
01ab e222       | "  |		Load	0x1,0x22
01ac 0322       | "  |		Declare_Variable	Record
01ad 00db       |    |		Load_Top	At_Offset_3
01ae e20e       |    |		Load	0x1,0xe
01af 0232       | 2  |		Execute	Float,Check_In_Type
01b0 e223       | #  |		Load	0x1,0x23
01b1 e224       | $  |		Load	0x1,0x24
01b2 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
01b3 8002       |    |		Call	0x0,0x2
01b4 00d9       |    |		Load_Top	At_Offset_1
01b5 017d       | }  |		Execute	Record,Structure_Write
01b6 e20f       |    |		Load	0x1,0xf
01b7 0007       |    |		Action	Break_Optional
01b8 e20e       |    |		Load	0x1,0xe
01b9 0007       |    |		Action	Break_Optional
01ba			BODY_01a8:
01ba e5ff       |    |		Load	0x2,-0x1
01bb 7004       |p   |		Jump_Nonzero	0x1c0
01bc 584f       |XO  |		Indirect_Literal	Float,0x20c,0.0
01bd e20e       |    |		Load	0x1,0xe
01be 0232       | 2  |		Execute	Float,Check_In_Type
01bf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 e20f       |    |		Load	0x1,0xf
01c4 0260       | `  |		Execute	Discrete,In_Type
01c5 7001       |p   |		Jump_Nonzero	0x1c7
01c6 0801       |    |		Execute_Immediate	Raise,0x1
01c7 4c02       |L   |		Short_Literal	-0x3fe
01c8 0273       | s  |		Execute	Discrete,Plus
01c9 e5fe       |    |		Load	0x2,-0x2
01ca 0273       | s  |		Execute	Discrete,Plus
01cb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01cc 00d9       |    |		Load_Top	At_Offset_1
01cd 603a       |`:  |		Indirect_Literal	Discrete,0x208,{0x00000000, 0x00000401}
01ce 027b       | {  |		Execute	Discrete,Greater_Equal
01cf 6801       |h   |		Jump_Zero	0x1d1
01d0 08e0       |    |		Execute_Immediate	Raise,0xe0
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 4c02       |L   |		Short_Literal	-0x3fe
01d3 027a       | z  |		Execute	Discrete,Less_Equal
01d4 681c       |h   |		Jump_Zero	0x1f1
01d5 4801       |H   |		Short_Literal	0x1
01d6 00db       |    |		Load_Top	At_Offset_3
01d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d8 00da       |    |		Load_Top	At_Offset_2
01d9 e228       | (  |		Load	0x1,0x28
01da e229       | )  |		Load	0x1,0x29
01db 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
01dc 8002       |    |		Call	0x0,0x2
01dd 0049       | I  |		Store_Top	Float,At_Offset_1
01de 00cf       |    |		Action	Mark_Auxiliary
01df 7808       |x   |		Jump	0x1e8
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 5822       |X"  |		Indirect_Literal	Float,0x204,0.5
01e2 023b       | ;  |		Execute	Float,Times
01e3 004a       | J  |		Store_Top	Float,At_Offset_2
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 0a01       |    |		Execute_Immediate	Plus,0x1
01e6 005b       | [  |		Store_Top	Discrete,At_Offset_3
01e7 00c9       |    |		Action	Pop_Auxiliary_Loop
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 4c02       |L   |		Short_Literal	-0x3fe
01ea 027a       | z  |		Execute	Discrete,Less_Equal
01eb 77f4       |w   |		Jump_Nonzero	0x1e0
01ec 00ce       |    |		Action	Pop_Auxiliary
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee e20e       |    |		Load	0x1,0xe
01ef 0232       | 2  |		Execute	Float,Check_In_Type
01f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 4bfe       |K   |		Short_Literal	0x3fe
01f3 0273       | s  |		Execute	Discrete,Plus
01f4 00d8       |    |		Load_Top	At_Offset_0
01f5 e220       |    |		Load	0x1,0x20
01f6 0260       | `  |		Execute	Discrete,In_Type
01f7 7001       |p   |		Jump_Nonzero	0x1f9
01f8 0801       |    |		Execute_Immediate	Raise,0x1
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01fb 00da       |    |		Load_Top	At_Offset_2
01fc e228       | (  |		Load	0x1,0x28
01fd e229       | )  |		Load	0x1,0x29
01fe 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
01ff 8002       |    |		Call	0x0,0x2
0200 e20e       |    |		Load	0x1,0xe
0201 0232       | 2  |		Execute	Float,Check_In_Type
0202 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0203 0000       |    |		.XXX[0x1]
0204 3fe0 0000  |?   |		.DBL	0.5
0206 0000 0000  |    |
0208 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000401}
020c 0000 0000  |    |		.DBL	0.0
020e 0000 0000  |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0215       |    |		.CONST	0x0215								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 e20e       |    |		Load	0x1,0xe
0214 0007       |    |		Action	Break_Optional
0215			BODY_0210:
0215 00db       |    |		Load_Top	At_Offset_3
0216 023e       | >  |		Execute	Float,Absolute_Value
0217 5820       |X   |		Indirect_Literal	Float,0x238,9007199254740992.0
0218 0245       | E  |		Execute	Float,Greater
0219 6804       |h   |		Jump_Zero	0x21e
021a 00db       |    |		Load_Top	At_Offset_3
021b e20e       |    |		Load	0x1,0xe
021c 0232       | 2  |		Execute	Float,Check_In_Type
021d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021e 00db       |    |		Load_Top	At_Offset_3
021f e20e       |    |		Load	0x1,0xe
0220 0232       | 2  |		Execute	Float,Check_In_Type
0221 8218       |    |		Call	0x1,0x18
0222 0049       | I  |		Store_Top	Float,At_Offset_1
0223 00db       |    |		Load_Top	At_Offset_3
0224 014a       | J  |		Execute	Float,Greater_Equal_Zero
0225 7004       |p   |		Jump_Nonzero	0x22a
0226 00d8       |    |		Load_Top	At_Offset_0
0227 e5ff       |    |		Load	0x2,-0x1
0228 0247       | G  |		Execute	Float,Equal
0229 6804       |h   |		Jump_Zero	0x22e
022a 00d8       |    |		Load_Top	At_Offset_0
022b e20e       |    |		Load	0x1,0xe
022c 0232       | 2  |		Execute	Float,Check_In_Type
022d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022e 00d8       |    |		Load_Top	At_Offset_0
022f 5804       |X   |		Indirect_Literal	Float,0x234,1.0
0230 023c       | <  |		Execute	Float,Minus
0231 e20e       |    |		Load	0x1,0xe
0232 0232       | 2  |		Execute	Float,Check_In_Type
0233 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0234 3ff0 0000  |?   |		.DBL	1.0
0236 0000 0000  |    |
0238 4340 0000  |C@  |		.DBL	9007199254740992.0
023a 0000 0000  |    |
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 e20e       |    |		Load	0x1,0xe
0244 0007       |    |		Action	Break_Optional
0245			BODY_0240:
0245 00db       |    |		Load_Top	At_Offset_3
0246 023e       | >  |		Execute	Float,Absolute_Value
0247 5ff0       |_   |		Indirect_Literal	Float,0x238,9007199254740992.0
0248 0245       | E  |		Execute	Float,Greater
0249 6804       |h   |		Jump_Zero	0x24e
024a 00db       |    |		Load_Top	At_Offset_3
024b e20e       |    |		Load	0x1,0xe
024c 0232       | 2  |		Execute	Float,Check_In_Type
024d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024e 00db       |    |		Load_Top	At_Offset_3
024f e20e       |    |		Load	0x1,0xe
0250 0232       | 2  |		Execute	Float,Check_In_Type
0251 8218       |    |		Call	0x1,0x18
0252 0049       | I  |		Store_Top	Float,At_Offset_1
0253 00db       |    |		Load_Top	At_Offset_3
0254 0149       | I  |		Execute	Float,Less_Equal_Zero
0255 7004       |p   |		Jump_Nonzero	0x25a
0256 00d8       |    |		Load_Top	At_Offset_0
0257 e5ff       |    |		Load	0x2,-0x1
0258 0247       | G  |		Execute	Float,Equal
0259 6804       |h   |		Jump_Zero	0x25e
025a 00d8       |    |		Load_Top	At_Offset_0
025b e20e       |    |		Load	0x1,0xe
025c 0232       | 2  |		Execute	Float,Check_In_Type
025d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025e 00d8       |    |		Load_Top	At_Offset_0
025f 5fd4       |_   |		Indirect_Literal	Float,0x234,1.0
0260 023d       | =  |		Execute	Float,Plus
0261 e20e       |    |		Load	0x1,0xe
0262 0232       | 2  |		Execute	Float,Check_In_Type
0263 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0271       | q  |		.CONST	0x0271								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0004       |    |		.CONST	0x0004								; Number of locals
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c 023e       | >  |		Execute	Float,Absolute_Value
026d e20e       |    |		Load	0x1,0xe
026e 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
026f e20e       |    |		Load	0x1,0xe
0270 03d8       |    |		Declare_Variable	Float,Duplicate
0271			BODY_0268:
0271 00da       |    |		Load_Top	At_Offset_2
0272 5851       |XQ  |		Indirect_Literal	Float,0x2c4,9007199254740992.0
0273 0245       | E  |		Execute	Float,Greater
0274 6804       |h   |		Jump_Zero	0x279
0275 e5ff       |    |		Load	0x2,-0x1
0276 e20e       |    |		Load	0x1,0xe
0277 0232       | 2  |		Execute	Float,Check_In_Type
0278 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0279 00da       |    |		Load_Top	At_Offset_2
027a e20e       |    |		Load	0x1,0xe
027b 0232       | 2  |		Execute	Float,Check_In_Type
027c 8218       |    |		Call	0x1,0x18
027d 004a       | J  |		Store_Top	Float,At_Offset_2
027e 00da       |    |		Load_Top	At_Offset_2
027f 00da       |    |		Load_Top	At_Offset_2
0280 023c       | <  |		Execute	Float,Minus
0281 0049       | I  |		Store_Top	Float,At_Offset_1
0282 00d8       |    |		Load_Top	At_Offset_0
0283 583c       |X<  |		Indirect_Literal	Float,0x2c0,0.5
0284 0245       | E  |		Execute	Float,Greater
0285 680c       |h   |		Jump_Zero	0x292
0286 e5ff       |    |		Load	0x2,-0x1
0287 e20e       |    |		Load	0x1,0xe
0288 0232       | 2  |		Execute	Float,Check_In_Type
0289 00da       |    |		Load_Top	At_Offset_2
028a 5831       |X1  |		Indirect_Literal	Float,0x2bc,1.0
028b 023d       | =  |		Execute	Float,Plus
028c e20e       |    |		Load	0x1,0xe
028d 0232       | 2  |		Execute	Float,Check_In_Type
028e 821d       |    |		Call	0x1,0x1d
028f e20e       |    |		Load	0x1,0xe
0290 0232       | 2  |		Execute	Float,Check_In_Type
0291 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0292 00d8       |    |		Load_Top	At_Offset_0
0293 582c       |X,  |		Indirect_Literal	Float,0x2c0,0.5
0294 0244       | D  |		Execute	Float,Less
0295 680a       |h   |		Jump_Zero	0x2a0
0296 e5ff       |    |		Load	0x2,-0x1
0297 e20e       |    |		Load	0x1,0xe
0298 0232       | 2  |		Execute	Float,Check_In_Type
0299 00da       |    |		Load_Top	At_Offset_2
029a e20e       |    |		Load	0x1,0xe
029b 0232       | 2  |		Execute	Float,Check_In_Type
029c 821d       |    |		Call	0x1,0x1d
029d e20e       |    |		Load	0x1,0xe
029e 0232       | 2  |		Execute	Float,Check_In_Type
029f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a0 00d9       |    |		Load_Top	At_Offset_1
02a1 e20e       |    |		Load	0x1,0xe
02a2 0232       | 2  |		Execute	Float,Check_In_Type
02a3 823b       | ;  |		Call	0x1,0x3b
02a4 680c       |h   |		Jump_Zero	0x2b1
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 e20e       |    |		Load	0x1,0xe
02a7 0232       | 2  |		Execute	Float,Check_In_Type
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 5812       |X   |		Indirect_Literal	Float,0x2bc,1.0
02aa 023d       | =  |		Execute	Float,Plus
02ab e20e       |    |		Load	0x1,0xe
02ac 0232       | 2  |		Execute	Float,Check_In_Type
02ad 821d       |    |		Call	0x1,0x1d
02ae e20e       |    |		Load	0x1,0xe
02af 0232       | 2  |		Execute	Float,Check_In_Type
02b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b1 e5ff       |    |		Load	0x2,-0x1
02b2 e20e       |    |		Load	0x1,0xe
02b3 0232       | 2  |		Execute	Float,Check_In_Type
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 e20e       |    |		Load	0x1,0xe
02b6 0232       | 2  |		Execute	Float,Check_In_Type
02b7 821d       |    |		Call	0x1,0x1d
02b8 e20e       |    |		Load	0x1,0xe
02b9 0232       | 2  |		Execute	Float,Check_In_Type
02ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02bb 0000       |    |		.XXX[0x1]
02bc 3ff0 0000  |?   |		.DBL	1.0
02be 0000 0000  |    |
02c0 3fe0 0000  |?   |		.DBL	0.5
02c2 0000 0000  |    |
02c4 4340 0000  |C@  |		.DBL	9007199254740992.0
02c6 0000 0000  |    |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc 023e       | >  |		Execute	Float,Absolute_Value
02cd 5ff6       |_   |		Indirect_Literal	Float,0x2c4,9007199254740992.0
02ce 0245       | E  |		Execute	Float,Greater
02cf 6804       |h   |		Jump_Zero	0x2d4
02d0 00da       |    |		Load_Top	At_Offset_2
02d1 e20e       |    |		Load	0x1,0xe
02d2 0232       | 2  |		Execute	Float,Check_In_Type
02d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d4 00da       |    |		Load_Top	At_Offset_2
02d5 023e       | >  |		Execute	Float,Absolute_Value
02d6 5fe5       |_   |		Indirect_Literal	Float,0x2bc,1.0
02d7 0244       | D  |		Execute	Float,Less
02d8 6804       |h   |		Jump_Zero	0x2dd
02d9 5816       |X   |		Indirect_Literal	Float,0x2f0,0.0
02da e20e       |    |		Load	0x1,0xe
02db 0232       | 2  |		Execute	Float,Check_In_Type
02dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02dd 00da       |    |		Load_Top	At_Offset_2
02de e20e       |    |		Load	0x1,0xe
02df 0232       | 2  |		Execute	Float,Check_In_Type
02e0 8210       |    |		Call	0x1,0x10
02e1 00d8       |    |		Load_Top	At_Offset_0
02e2 00e4       |    |		Load_Encached	Positive_Cache
02e3 0260       | `  |		Execute	Discrete,In_Type
02e4 7001       |p   |		Jump_Nonzero	0x2e6
02e5 0801       |    |		Execute_Immediate	Raise,0x1
02e6 00db       |    |		Load_Top	At_Offset_3
02e7 e20e       |    |		Load	0x1,0xe
02e8 0232       | 2  |		Execute	Float,Check_In_Type
02e9 821e       |    |		Call	0x1,0x1e
02ea e20e       |    |		Load	0x1,0xe
02eb 0232       | 2  |		Execute	Float,Check_In_Type
02ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ed 0000 0000  |    |		.XXX[0x3]
02ef 0000       |    |
02f0 0000 0000  |    |		.DBL	0.0
02f2 0000 0000  |    |
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 030d       |    |		.CONST	0x030d								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 000e       |    |		.CONST	0x000e								; Number of locals
02fb			INIT_02f8:
02fb e20e       |    |		Load	0x1,0xe
02fc 03d8       |    |		Declare_Variable	Float,Duplicate
02fd 03d8       |    |		Declare_Variable	Float,Duplicate
02fe 03d8       |    |		Declare_Variable	Float,Duplicate
02ff 03d8       |    |		Declare_Variable	Float,Duplicate
0300 03d8       |    |		Declare_Variable	Float,Duplicate
0301 03d8       |    |		Declare_Variable	Float,Duplicate
0302 03d8       |    |		Declare_Variable	Float,Duplicate
0303 e20f       |    |		Load	0x1,0xf
0304 03e9       |    |		Declare_Variable	Discrete,Duplicate
0305 00e2       |    |		Load_Encached	Integer_Cache
0306 4800       |H   |		Short_Literal	0x0
0307 4801       |H   |		Short_Literal	0x1
0308 029f 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Call
030a 03fd       |    |		Declare_Type	Discrete,Defined
030b 00d8       |    |		Load_Top	At_Offset_0
030c 0007       |    |		Action	Break_Optional
030d			BODY_02f8:
030d e5ff       |    |		Load	0x2,-0x1
030e 014c       | L  |		Execute	Float,Greater_Zero
030f 6803       |h   |		Jump_Zero	0x313
0310 587f       |X   |		Indirect_Literal	Float,0x390,1.0
0311 c408       |    |		Store	0x2,0x8
0312 7802       |x   |		Jump	0x315
0313 5878       |Xx  |		Indirect_Literal	Float,0x38c,-1.0
0314 c408       |    |		Store	0x2,0x8
0315 e5ff       |    |		Load	0x2,-0x1
0316 023e       | >  |		Execute	Float,Absolute_Value
0317 c404       |    |		Store	0x2,0x4
0318 e5fe       |    |		Load	0x2,-0x2
0319 023e       | >  |		Execute	Float,Absolute_Value
031a c405       |    |		Store	0x2,0x5
031b e404       |    |		Load	0x2,0x4
031c e405       |    |		Load	0x2,0x5
031d 0244       | D  |		Execute	Float,Less
031e 6805       |h   |		Jump_Zero	0x324
031f 4800       |H   |		Short_Literal	0x0
0320 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0321 e404       |    |		Load	0x2,0x4
0322 c409       |    |		Store	0x2,0x9
0323 783c       |x<  |		Jump	0x360
0324 e20f       |    |		Load	0x1,0xf
0325 e20e       |    |		Load	0x1,0xe
0326 e404       |    |		Load	0x2,0x4
0327 e20e       |    |		Load	0x1,0xe
0328 0232       | 2  |		Execute	Float,Check_In_Type
0329 8212       |    |		Call	0x1,0x12
032a c406       |    |		Store	0x2,0x6
032b c40a       |    |		Store	0x2,0xa
032c e20f       |    |		Load	0x1,0xf
032d e20e       |    |		Load	0x1,0xe
032e e405       |    |		Load	0x2,0x5
032f e20e       |    |		Load	0x1,0xe
0330 0232       | 2  |		Execute	Float,Check_In_Type
0331 8212       |    |		Call	0x1,0x12
0332 c407       |    |		Store	0x2,0x7
0333 c40b       |    |		Store	0x2,0xb
0334 e40a       |    |		Load	0x2,0xa
0335 00d8       |    |		Load_Top	At_Offset_0
0336 e20f       |    |		Load	0x1,0xf
0337 0260       | `  |		Execute	Discrete,In_Type
0338 7001       |p   |		Jump_Nonzero	0x33a
0339 0801       |    |		Execute_Immediate	Raise,0x1
033a e407       |    |		Load	0x2,0x7
033b e20e       |    |		Load	0x1,0xe
033c 0232       | 2  |		Execute	Float,Check_In_Type
033d 8213       |    |		Call	0x1,0x13
033e c405       |    |		Store	0x2,0x5
033f e40a       |    |		Load	0x2,0xa
0340 e40b       |    |		Load	0x2,0xb
0341 0272       | r  |		Execute	Discrete,Minus
0342 005b       | [  |		Store_Top	Discrete,At_Offset_3
0343 4800       |H   |		Short_Literal	0x0
0344 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0345 e404       |    |		Load	0x2,0x4
0346 c409       |    |		Store	0x2,0x9
0347 00cf       |    |		Action	Mark_Auxiliary
0348 4800       |H   |		Short_Literal	0x0
0349 e40c       |    |		Load	0x2,0xc
034a 0264       | d  |		Execute	Discrete,Below_Bound
034b 7013       |p   |		Jump_Nonzero	0x35f
034c e409       |    |		Load	0x2,0x9
034d e405       |    |		Load	0x2,0x5
034e 0243       | C  |		Execute	Float,Greater_Equal
034f 6807       |h   |		Jump_Zero	0x357
0350 4801       |H   |		Short_Literal	0x1
0351 a40e       |    |		Store_Unchecked	0x2,0xe
0352 e409       |    |		Load	0x2,0x9
0353 e405       |    |		Load	0x2,0x5
0354 023c       | <  |		Execute	Float,Minus
0355 c409       |    |		Store	0x2,0x9
0356 7802       |x   |		Jump	0x359
0357 4800       |H   |		Short_Literal	0x0
0358 a40e       |    |		Store_Unchecked	0x2,0xe
0359 e405       |    |		Load	0x2,0x5
035a 582d       |X-  |		Indirect_Literal	Float,0x388,0.5
035b 023b       | ;  |		Execute	Float,Times
035c c405       |    |		Store	0x2,0x5
035d 00c8       |    |		Action	Pop_Auxiliary_Range
035e 37ed       |7   |		Loop_Decreasing	0x34c
035f 00ce       |    |		Action	Pop_Auxiliary
0360 00db       |    |		Load_Top	At_Offset_3
0361 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0362 6808       |h   |		Jump_Zero	0x36b
0363 e409       |    |		Load	0x2,0x9
0364 c402       |    |		Store	0x2,0x2
0365 e5fe       |    |		Load	0x2,-0x2
0366 023e       | >  |		Execute	Float,Absolute_Value
0367 5820       |X   |		Indirect_Literal	Float,0x388,0.5
0368 023b       | ;  |		Execute	Float,Times
0369 c403       |    |		Store	0x2,0x3
036a 7806       |x   |		Jump	0x371
036b e409       |    |		Load	0x2,0x9
036c 581b       |X   |		Indirect_Literal	Float,0x388,0.5
036d 023b       | ;  |		Execute	Float,Times
036e c402       |    |		Store	0x2,0x2
036f e5fe       |    |		Load	0x2,-0x2
0370 c403       |    |		Store	0x2,0x3
0371 e402       |    |		Load	0x2,0x2
0372 e403       |    |		Load	0x2,0x3
0373 0245       | E  |		Execute	Float,Greater
0374 e402       |    |		Load	0x2,0x2
0375 e403       |    |		Load	0x2,0x3
0376 0247       | G  |		Execute	Float,Equal
0377 00da       |    |		Load_Top	At_Offset_2
0378 0f01       |    |		Execute_Immediate	Equal,0x1
0379 0279       | y  |		Execute	Discrete,And
037a 0278       | x  |		Execute	Discrete,Or
037b 6805       |h   |		Jump_Zero	0x381
037c e409       |    |		Load	0x2,0x9
037d e5fe       |    |		Load	0x2,-0x2
037e 023e       | >  |		Execute	Float,Absolute_Value
037f 023c       | <  |		Execute	Float,Minus
0380 c409       |    |		Store	0x2,0x9
0381 e408       |    |		Load	0x2,0x8
0382 e409       |    |		Load	0x2,0x9
0383 023b       | ;  |		Execute	Float,Times
0384 e20e       |    |		Load	0x1,0xe
0385 0232       | 2  |		Execute	Float,Check_In_Type
0386 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0387 0000       |    |		.XXX[0x1]
0388 3fe0 0000  |?   |		.DBL	0.5
038a 0000 0000  |    |
038c bff0 0000  |    |		.DBL	-1.0
038e 0000 0000  |    |
0390 3ff0 0000  |?   |		.DBL	1.0
0392 0000 0000  |    |
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 00da       |    |		Load_Top	At_Offset_2
039c e5fe       |    |		Load	0x2,-0x2
039d 0247       | G  |		Execute	Float,Equal
039e 6804       |h   |		Jump_Zero	0x3a3
039f 00da       |    |		Load_Top	At_Offset_2
03a0 e20e       |    |		Load	0x1,0xe
03a1 0232       | 2  |		Execute	Float,Check_In_Type
03a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a3 00da       |    |		Load_Top	At_Offset_2
03a4 e5fe       |    |		Load	0x2,-0x2
03a5 0244       | D  |		Execute	Float,Less
03a6 6807       |h   |		Jump_Zero	0x3ae
03a7 00da       |    |		Load_Top	At_Offset_2
03a8 e20e       |    |		Load	0x1,0xe
03a9 0232       | 2  |		Execute	Float,Check_In_Type
03aa 821b       |    |		Call	0x1,0x1b
03ab e20e       |    |		Load	0x1,0xe
03ac 0232       | 2  |		Execute	Float,Check_In_Type
03ad 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ae 00da       |    |		Load_Top	At_Offset_2
03af e20e       |    |		Load	0x1,0xe
03b0 0232       | 2  |		Execute	Float,Check_In_Type
03b1 821c       |    |		Call	0x1,0x1c
03b2 e20e       |    |		Load	0x1,0xe
03b3 0232       | 2  |		Execute	Float,Check_In_Type
03b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03b5 0000 0000  |    |		.XXX[0x3]
03b7 0000       |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03cc       |    |		.CONST	0x03cc								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0005       |    |		.CONST	0x0005								; Number of locals
03bb			INIT_03b8:
03bb e20e       |    |		Load	0x1,0xe
03bc 0007       |    |		Action	Break_Optional
03bd e20f       |    |		Load	0x1,0xf
03be 0007       |    |		Action	Break_Optional
03bf e222       | "  |		Load	0x1,0x22
03c0 0322       | "  |		Declare_Variable	Record
03c1 e5ff       |    |		Load	0x2,-0x1
03c2 e20e       |    |		Load	0x1,0xe
03c3 0232       | 2  |		Execute	Float,Check_In_Type
03c4 e223       | #  |		Load	0x1,0x23
03c5 e224       | $  |		Load	0x1,0x24
03c6 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
03c7 8002       |    |		Call	0x0,0x2
03c8 00d9       |    |		Load_Top	At_Offset_1
03c9 017d       | }  |		Execute	Record,Structure_Write
03ca e22f       | /  |		Load	0x1,0x2f
03cb 0007       |    |		Action	Break_Optional
03cc			BODY_03b8:
03cc e5ff       |    |		Load	0x2,-0x1
03cd e20e       |    |		Load	0x1,0xe
03ce 0122       | "  |		Execute	Any,Make_Root_Type
03cf 0240       | @  |		Execute	Float,Last
03d0 0243       | C  |		Execute	Float,Greater_Equal
03d1 6801       |h   |		Jump_Zero	0x3d3
03d2 08e0       |    |		Execute_Immediate	Raise,0xe0
03d3 e5ff       |    |		Load	0x2,-0x1
03d4 7004       |p   |		Jump_Nonzero	0x3d9
03d5 e22d       | -  |		Load	0x1,0x2d
03d6 e20e       |    |		Load	0x1,0xe
03d7 0232       | 2  |		Execute	Float,Check_In_Type
03d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d9 00d9       |    |		Load_Top	At_Offset_1
03da 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03db 0a01       |    |		Execute_Immediate	Plus,0x1
03dc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
03dd 00d8       |    |		Load_Top	At_Offset_0
03de 601d       |`   |		Indirect_Literal	Discrete,0x3fc,{0x000fffff, 0xffffffff}
03df 027d       | }  |		Execute	Discrete,Greater
03e0 6809       |h   |		Jump_Zero	0x3ea
03e1 4800       |H   |		Short_Literal	0x0
03e2 00da       |    |		Load_Top	At_Offset_2
03e3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03e4 00d9       |    |		Load_Top	At_Offset_1
03e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03e6 0a01       |    |		Execute_Immediate	Plus,0x1
03e7 00da       |    |		Load_Top	At_Offset_2
03e8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03e9 7808       |x   |		Jump	0x3f2
03ea 00d8       |    |		Load_Top	At_Offset_0
03eb 00d8       |    |		Load_Top	At_Offset_0
03ec e221       | !  |		Load	0x1,0x21
03ed 0260       | `  |		Execute	Discrete,In_Type
03ee 7001       |p   |		Jump_Nonzero	0x3f0
03ef 0801       |    |		Execute_Immediate	Raise,0x1
03f0 00da       |    |		Load_Top	At_Offset_2
03f1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03f2 00d9       |    |		Load_Top	At_Offset_1
03f3 e228       | (  |		Load	0x1,0x28
03f4 e229       | )  |		Load	0x1,0x29
03f5 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
03f6 8002       |    |		Call	0x0,0x2
03f7 e20e       |    |		Load	0x1,0xe
03f8 0232       | 2  |		Execute	Float,Check_In_Type
03f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fa 0000 0000  |    |		.XXX[0x2]
03fc 000f ffff  |    |		.LITERAL	{0x000fffff, 0xffffffff}
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0410       |    |		.CONST	0x0410								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0003       |    |		.CONST	0x0003								; Number of locals
0403			INIT_0400:
0403 e222       | "  |		Load	0x1,0x22
0404 0322       | "  |		Declare_Variable	Record
0405 00db       |    |		Load_Top	At_Offset_3
0406 e20e       |    |		Load	0x1,0xe
0407 0232       | 2  |		Execute	Float,Check_In_Type
0408 e223       | #  |		Load	0x1,0x23
0409 e224       | $  |		Load	0x1,0x24
040a 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
040b 8002       |    |		Call	0x0,0x2
040c 00d9       |    |		Load_Top	At_Offset_1
040d 017d       | }  |		Execute	Record,Structure_Write
040e e221       | !  |		Load	0x1,0x21
040f 0007       |    |		Action	Break_Optional
0410			BODY_0400:
0410 e5ff       |    |		Load	0x2,-0x1
0411 e20e       |    |		Load	0x1,0xe
0412 0122       | "  |		Execute	Any,Make_Root_Type
0413 0240       | @  |		Execute	Float,Last
0414 023f       | ?  |		Execute	Float,Unary_Minus
0415 0242       | B  |		Execute	Float,Less_Equal
0416 6801       |h   |		Jump_Zero	0x418
0417 08e0       |    |		Execute_Immediate	Raise,0xe0
0418 e5ff       |    |		Load	0x2,-0x1
0419 7004       |p   |		Jump_Nonzero	0x41e
041a e22e       | .  |		Load	0x1,0x2e
041b e20e       |    |		Load	0x1,0xe
041c 0232       | 2  |		Execute	Float,Check_In_Type
041d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
041e 00d9       |    |		Load_Top	At_Offset_1
041f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0420 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0421 00d8       |    |		Load_Top	At_Offset_0
0422 7009       |p   |		Jump_Nonzero	0x42c
0423 67d8       |g   |		Indirect_Literal	Discrete,0x3fc,{0x000fffff, 0xffffffff}
0424 00da       |    |		Load_Top	At_Offset_2
0425 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0426 00d9       |    |		Load_Top	At_Offset_1
0427 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0428 0aff       |    |		Execute_Immediate	Plus,-0x1
0429 00da       |    |		Load_Top	At_Offset_2
042a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
042b 7804       |x   |		Jump	0x430
042c 00d8       |    |		Load_Top	At_Offset_0
042d 0aff       |    |		Execute_Immediate	Plus,-0x1
042e 00da       |    |		Load_Top	At_Offset_2
042f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0430 00d9       |    |		Load_Top	At_Offset_1
0431 e228       | (  |		Load	0x1,0x28
0432 e229       | )  |		Load	0x1,0x29
0433 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0434 8002       |    |		Call	0x0,0x2
0435 e20e       |    |		Load	0x1,0xe
0436 0232       | 2  |		Execute	Float,Check_In_Type
0437 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00db       |    |		Load_Top	At_Offset_3
043c 014a       | J  |		Execute	Float,Greater_Equal_Zero
043d 6805       |h   |		Jump_Zero	0x443
043e 00da       |    |		Load_Top	At_Offset_2
043f 023e       | >  |		Execute	Float,Absolute_Value
0440 e20e       |    |		Load	0x1,0xe
0441 0232       | 2  |		Execute	Float,Check_In_Type
0442 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0443 00da       |    |		Load_Top	At_Offset_2
0444 023e       | >  |		Execute	Float,Absolute_Value
0445 023f       | ?  |		Execute	Float,Unary_Minus
0446 e20e       |    |		Load	0x1,0xe
0447 0232       | 2  |		Execute	Float,Check_In_Type
0448 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0449 0000 0000  |    |		.BLANK	0000[0x7]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 045b       | [  |		.CONST	0x045b								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0005       |    |		.CONST	0x0005								; Number of locals
0453			INIT_0450:
0453 e20e       |    |		Load	0x1,0xe
0454 0007       |    |		Action	Break_Optional
0455 e20f       |    |		Load	0x1,0xf
0456 0007       |    |		Action	Break_Optional
0457 e222       | "  |		Load	0x1,0x22
0458 0322       | "  |		Declare_Variable	Record
0459 e230       | 0  |		Load	0x1,0x30
045a 0337       | 7  |		Declare_Variable	Array
045b			BODY_0450:
045b e20f       |    |		Load	0x1,0xf
045c e20e       |    |		Load	0x1,0xe
045d e5ff       |    |		Load	0x2,-0x1
045e e20e       |    |		Load	0x1,0xe
045f 0232       | 2  |		Execute	Float,Check_In_Type
0460 8212       |    |		Call	0x1,0x12
0461 c402       |    |		Store	0x2,0x2
0462 005b       | [  |		Store_Top	Discrete,At_Offset_3
0463 00db       |    |		Load_Top	At_Offset_3
0464 e20e       |    |		Load	0x1,0xe
0465 0232       | 2  |		Execute	Float,Check_In_Type
0466 e223       | #  |		Load	0x1,0x23
0467 e224       | $  |		Load	0x1,0x24
0468 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0469 8002       |    |		Call	0x0,0x2
046a 00da       |    |		Load_Top	At_Offset_2
046b 017d       | }  |		Execute	Record,Structure_Write
046c 00d9       |    |		Load_Top	At_Offset_1
046d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
046e e236       | 6  |		Load	0x1,0x36
046f e237       | 7  |		Load	0x1,0x37
0470 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0471 8002       |    |		Call	0x0,0x2
0472 00d9       |    |		Load_Top	At_Offset_1
0473 01d4       |    |		Execute	Vector,Structure_Write
0474 00cf       |    |		Action	Mark_Auxiliary
0475 4834       |H4  |		Short_Literal	0x34
0476 e5fe       |    |		Load	0x2,-0x2
0477 0263       | c  |		Execute	Discrete,Above_Bound
0478 7006       |p   |		Jump_Nonzero	0x47f
0479 4800       |H   |		Short_Literal	0x0
047a 00d9       |    |		Load_Top	At_Offset_1
047b e405       |    |		Load	0x2,0x5
047c 01d6       |    |		Execute	Vector,Field_Write
047d 00c8       |    |		Action	Pop_Auxiliary_Range
047e 3ffa       |?   |		Loop_Increasing	0x479
047f 00ce       |    |		Action	Pop_Auxiliary
0480 00d8       |    |		Load_Top	At_Offset_0
0481 e231       | 1  |		Load	0x1,0x31
0482 e232       | 2  |		Load	0x1,0x32
0483 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0484 8002       |    |		Call	0x0,0x2
0485 00da       |    |		Load_Top	At_Offset_2
0486 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0487 00d9       |    |		Load_Top	At_Offset_1
0488 e228       | (  |		Load	0x1,0x28
0489 e229       | )  |		Load	0x1,0x29
048a 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
048b 8002       |    |		Call	0x0,0x2
048c c402       |    |		Store	0x2,0x2
048d 00da       |    |		Load_Top	At_Offset_2
048e 00d8       |    |		Load_Top	At_Offset_0
048f e20f       |    |		Load	0x1,0xf
0490 0260       | `  |		Execute	Discrete,In_Type
0491 7001       |p   |		Jump_Nonzero	0x493
0492 0801       |    |		Execute_Immediate	Raise,0x1
0493 e402       |    |		Load	0x2,0x2
0494 e20e       |    |		Load	0x1,0xe
0495 0232       | 2  |		Execute	Float,Check_In_Type
0496 8213       |    |		Call	0x1,0x13
0497 e20e       |    |		Load	0x1,0xe
0498 0232       | 2  |		Execute	Float,Check_In_Type
0499 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049a 0000 0000  |    |		.BLANK	0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 4607       |F   |		Jump_Case	0x8
04a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
04a5 7807       |x   |		Jump	0x4ad								; case 0x1
04a6 780a       |x   |		Jump	0x4b1								; case 0x2
04a7 780e       |x   |		Jump	0x4b6								; case 0x3
04a8 7811       |x   |		Jump	0x4ba								; case 0x4
04a9 7812       |x   |		Jump	0x4bc								; case 0x5
04aa 7813       |x   |		Jump	0x4be								; case 0x6
04ab 7816       |x   |		Jump	0x4c2								; case 0x7
04ac 4302       |C   |		.XXX[0x1]
04ad 00da       |    |		Load_Top	At_Offset_2
04ae 0091 0506  |    |		Action	Push_String_Extended_Indexed,0x506				; "FALSE"
04b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04b1 00db       |    |		Load_Top	At_Offset_3
04b2 00db       |    |		Load_Top	At_Offset_3
04b3 00e0       |    |		Load_Encached	Standard_Cache
04b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04b6 00da       |    |		Load_Top	At_Offset_2
04b7 00e0       |    |		Load_Encached	Standard_Cache
04b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04ba 00db       |    |		Load_Top	At_Offset_3
04bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04bc 00db       |    |		Load_Top	At_Offset_3
04bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04be e21f       |    |		Load	0x1,0x1f
04bf 00dc       |    |		Load_Top	At_Offset_4
04c0 0267       | g  |		Execute	Discrete,Predecessor
04c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04c2 e21f       |    |		Load	0x1,0x1f
04c3 00dc       |    |		Load_Top	At_Offset_4
04c4 0268       | h  |		Execute	Discrete,Successor
04c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04c6 0000 0000  |    |		.XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d0       |    |		.CONST	0x04d0								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0002       |    |		.CONST	0x0002								; Number of locals
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 580b       |X   |		Indirect_Literal	Float,0x4d8,2.0
04cd 023a       | :  |		Execute	Float,Divide
04ce e20e       |    |		Load	0x1,0xe
04cf 02bf       |    |		Declare_Variable	Float,With_Value,With_Constraint
04d0			BODY_04c8:
04d0 00d8       |    |		Load_Top	At_Offset_0
04d1 e20e       |    |		Load	0x1,0xe
04d2 0232       | 2  |		Execute	Float,Check_In_Type
04d3 8218       |    |		Call	0x1,0x18
04d4 00d9       |    |		Load_Top	At_Offset_1
04d5 0246       | F  |		Execute	Float,Not_Equal
04d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d7 0000       |    |		.XXX[0x1]
04d8 4000 0000  |@   |		.DBL	2.0
04da 0000 0000  |    |
04dc 0000 0000  |    |		.BLANK	0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3       |    |		.CONST	0x04e3								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0001       |    |		.CONST	0x0001								; Number of locals
04e3			BODY_04e0:
04e3			INIT_04e0:
04e3 4607       |F   |		Jump_Case	0x8
04e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
04e5 7807       |x   |		Jump	0x4ed								; case 0x1
04e6 780a       |x   |		Jump	0x4f1								; case 0x2
04e7 780e       |x   |		Jump	0x4f6								; case 0x3
04e8 7811       |x   |		Jump	0x4fa								; case 0x4
04e9 7812       |x   |		Jump	0x4fc								; case 0x5
04ea 7813       |x   |		Jump	0x4fe								; case 0x6
04eb 7816       |x   |		Jump	0x502								; case 0x7
04ec 4302       |C   |		.XXX[0x1]
04ed 00da       |    |		Load_Top	At_Offset_2
04ee 0091 0508  |    |		Action	Push_String_Extended_Indexed,0x508				; "EVEN"
04f0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04f1 00db       |    |		Load_Top	At_Offset_3
04f2 00db       |    |		Load_Top	At_Offset_3
04f3 00e0       |    |		Load_Encached	Standard_Cache
04f4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04f6 00da       |    |		Load_Top	At_Offset_2
04f7 00e0       |    |		Load_Encached	Standard_Cache
04f8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04f9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04fa 00db       |    |		Load_Top	At_Offset_3
04fb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04fc 00db       |    |		Load_Top	At_Offset_3
04fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04fe e40d       |    |		Load	0x2,0xd
04ff 00dc       |    |		Load_Top	At_Offset_4
0500 0267       | g  |		Execute	Discrete,Predecessor
0501 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0502 e40d       |    |		Load	0x2,0xd
0503 00dc       |    |		Load_Top	At_Offset_4
0504 0268       | h  |		Execute	Discrete,Successor
0505 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0506 ; --------------------------------------------------------------------------------------
0506 ; STRING TABLE
0506 ; --------------------------------------------------------------------------------------
0506 000a       |    |		.STRTAB	0x000a->0x050b							; "FALSE"
0507 000d       |    |		.STRTAB	0x000d->0x050d							; "TRUE"
0508 000f       |    |		.STRTAB	0x000f->0x050f							; "EVEN"
0509 0011       |    |		.STRTAB	0x0011->0x0511							; "ODD"
050a 0012       |    |		.STREND 0x0012->0x0513
050b 4641 4c53  |FALS|		.STRTAB_STRINGS
0513 0000 0000  |    |		.BLANK	0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug Table
0518 ; --------------------------------------------------------------------------------------
0518 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x936a,0x0000,0x0001,0x0000
051e 0000 0000  |    |		.BLANK	0000[0x4]
0522 0017 0000  |    |		.XXX[0x8]
0524 0000 0000  |    |
0526 0016 8000  |    |
0528 0000 8000  |    |
052a 0000 0000  |    |		.BLANK	0000[0x4]
052e 0017 8000  |    |		.XXX[0x4a]
0530 0000 0000  |    |
0532 0017 0000  |    |
0534 0018 8000  |    |
0536 001b a037  |   7|
0538 37b2 3290  |7 2 |
053a 10aa 37b7  |  7 |
053c b639 972c  | 9 ,|
053e 3932 b32f  |92 /|
0540 aaba 34b6  |  4 |
0542 34ba 3c93  |4 < |
0544 a9b8 32b1  |  2 |
0546 afab 34b2  |  4 |
0548 bb97 2ab7  |  * |
054a 34ba 3997  |4 9 |
054c 21b7 b6b6  |!   |
054e b0b7 3239  |  29|
0550 972c 3932  | ,92|
0552 b300 0000  |    |
0554 1900 0000  |    |
0556 0237 37b2  | 77 |
0558 3280 0000  |2   |
055a 1b80 0000  |    |
055c 1890 aa37  |   7|
055e b7b6 3997  |  9 |
0560 2c39 32b3  |,92 |
0562 2faa ba34  |/  4|
0564 b634 ba3c  | 4 <|
0566 93a9 b832  |   2|
0568 b1af ab34  |   4|
056a b2bb 972a  |   *|
056c b734 ba39  | 4 9|
056e 9721 b7b6  | !  |
0570 b6b0 b732  |   2|
0572 3997 2c39  |9 ,9|
0574 32b3 0000  |2   |
0576 0000 8000  |    |
0578 0000 0000  |    |		.BLANK	0000[0x4]
057c 0034 8000  | 4  |		.XXX[0x84]
057e 0000 0000  |    |
0580 0034 0000  | 4  |
0582 0035 8000  | 5  |
0584 0020 2830  |  (0|
0586 b1b5 b0b3  |    |
0588 b290 2c39  |  ,9|
058a 32b3 1038  |2  8|
058c 3937 bb34  |97 4|
058e b232 b990  | 2  |
0590 31b7 b6b6  |1   |
0592 b0b7 3239  |  29|
0594 9033 37b9  | 37 |
0596 1031 b432  | 1 2|
0598 b1b5 b4b7  |    |
059a 3390 3232  |3 22|
059c b832 b732  | 2 2|
059e 32b7 31b4  |2 1 |
05a0 b2b9 9031  |   1|
05a2 32ba 3bb2  |2 ; |
05a4 b2b7 0000  |    |
05a6 0035 0000  | 5  |
05a8 0020 9028  |   (|
05aa 30b1 b5b0  |0   |
05ac b3b2 902c  |   ,|
05ae 3932 b310  |92  |
05b0 3839 37bb  |897 |
05b2 34b2 32b9  |4 2 |
05b4 9031 b7b6  | 1  |
05b6 b6b0 b732  |   2|
05b8 3990 3337  |9 37|
05ba b910 31b4  |  1 |
05bc 32b1 b5b4  |2   |
05be b733 9032  | 3 2|
05c0 32b8 32b7  |2 2 |
05c2 3232 b731  |22 1|
05c4 b4b2 b990  |    |
05c6 3132 ba3b  |12 ;|
05c8 b2b2 b700  |    |
05ca 0000 3500  |  5 |
05cc 0000 2090  |    |
05ce 2830 b1b5  |(0  |
05d0 b0b3 b290  |    |
05d2 2c39 32b3  |,92 |
05d4 1038 3937  | 897|
05d6 bb34 b232  | 4 2|
05d8 b990 31b7  |  1 |
05da b6b6 b0b7  |    |
05dc 3239 9033  |29 3|
05de 37b9 1031  |7  1|
05e0 b432 b1b5  | 2  |
05e2 b4b7 3390  |  3 |
05e4 3232 b832  |22 2|
05e6 b732 32b7  | 22 |
05e8 31b4 b2b9  |1   |
05ea 9031 32ba  | 12 |
05ec 3bb2 b2b7  |;   |
05ee 0000 0016  |    |
05f0 8000 0023  |   #|
05f2 31b7 b739  |1  9|
05f4 ba39 3ab1  | 9: |
05f6 ba39 9034  | 9 4|
05f8 b710 20b2  |    |
05fa 3090 3ab7  |0 : |
05fc 34ba 3997  |4 9 |
05fe 102a 3432  | *42|