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

⟦f5456bffd⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da

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 04e0       |    |		.CONST	0x04e0								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0013       |    |		.CONST	0x0013								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0005       |    |		.CONST	0x0005								; Number of locals
000b			INIT_0008:
000b e21e       |    |		Load	0x1,0x1e
000c 03bc       |    |		Declare_Variable	Access,By_Allocation
000d e236       | 6  |		Load	0x1,0x36
000e 0007       |    |		Action	Break_Optional
000f 029f 002b  |   +|		Declare_Subprogram	INIT_0028,For_Call
0011 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0013			BODY_0008:
0013 e5ff       |    |		Load	0x2,-0x1
0014 8404       |    |		Call	0x2,0x4
0015 00da       |    |		Load_Top	At_Offset_2
0016 8405       |    |		Call	0x2,0x5
0017 e402       |    |		Load	0x2,0x2
0018 0227       | '  |		Execute	Access,All_Reference
0019 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
001a 00db       |    |		Load_Top	At_Offset_3
001b 0227       | '  |		Execute	Access,All_Reference
001c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
001d e402       |    |		Load	0x2,0x2
001e 0227       | '  |		Execute	Access,All_Reference
001f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0020 00db       |    |		Load_Top	At_Offset_3
0021 0227       | '  |		Execute	Access,All_Reference
0022 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0023 a5fd       |    |		Store_Unchecked	0x2,-0x3
0024 00db       |    |		Load_Top	At_Offset_3
0025 a5fe       |    |		Store_Unchecked	0x2,-0x2
0026 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0027 0000       |    |		.XXX[0x1]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0051       | Q  |		.CONST	0x0051								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0013       |    |		.CONST	0x0013								; Number of locals
002b			INIT_0028:
002b 00da       |    |		Load_Top	At_Offset_2
002c 01dd       |    |		Execute	Vector,First
002d 00e2       |    |		Load_Encached	Integer_Cache
002e 03f1       |    |		Declare_Variable	Discrete,With_Value
002f 00db       |    |		Load_Top	At_Offset_3
0030 01dc       |    |		Execute	Vector,Last
0031 00e2       |    |		Load_Encached	Integer_Cache
0032 03f1       |    |		Declare_Variable	Discrete,With_Value
0033 e002       |    |		Load	0x0,0x2
0034 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0035 00e2       |    |		Load_Encached	Integer_Cache
0036 03e9       |    |		Declare_Variable	Discrete,Duplicate
0037 e002       |    |		Load	0x0,0x2
0038 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0039 e002       |    |		Load	0x0,0x2
003a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003b 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
003d 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
003f 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0041 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
0043 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0045 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
0047 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0049 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
004b 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
004d 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
004f 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
0051			BODY_0028:
0051 860f       |    |		Call	0x3,0xf
0052 00cf       |    |		Action	Mark_Auxiliary
0053 e604       |    |		Load	0x3,0x4
0054 0e04       |    |		Execute_Immediate	Not_Equal,0x4
0055 6804       |h   |		Jump_Zero	0x5a
0056 e604       |    |		Load	0x3,0x4
0057 0e05       |    |		Execute_Immediate	Not_Equal,0x5
0058 6801       |h   |		Jump_Zero	0x5a
0059 8613       |    |		Call	0x3,0x13
005a 00cf       |    |		Action	Mark_Auxiliary
005b 7802       |x   |		Jump	0x5e
005c 860f       |    |		Call	0x3,0xf
005d 00c9       |    |		Action	Pop_Auxiliary_Loop
005e e604       |    |		Load	0x3,0x4
005f 0f04       |    |		Execute_Immediate	Equal,0x4
0060 77fb       |w   |		Jump_Nonzero	0x5c
0061 00ce       |    |		Action	Pop_Auxiliary
0062 e604       |    |		Load	0x3,0x4
0063 0f05       |    |		Execute_Immediate	Equal,0x5
0064 7002       |p   |		Jump_Nonzero	0x67
0065 00c9       |    |		Action	Pop_Auxiliary_Loop
0066 7fec       |    |		Jump	0x53
0067 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0071       | q  |		.CONST	0x0071								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0004       |    |		.CONST	0x0004								; Number of locals
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2
006c 0007       |    |		Action	Break_Optional
006d e236       | 6  |		Load	0x1,0x36
006e 0007       |    |		Action	Break_Optional
006f 00d8       |    |		Load_Top	At_Offset_0
0070 0007       |    |		Action	Break_Optional
0071			BODY_0068:
0071 4801       |H   |		Short_Literal	0x1
0072 e402       |    |		Load	0x2,0x2
0073 0227       | '  |		Execute	Access,All_Reference
0074 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0075 00cf       |    |		Action	Mark_Auxiliary
0076 781c       |x   |		Jump	0x93
0077 00db       |    |		Load_Top	At_Offset_3
0078 0227       | '  |		Execute	Access,All_Reference
0079 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
007a 003b       | ;  |		Store_Top	Access,At_Offset_3
007b 00d9       |    |		Load_Top	At_Offset_1
007c e602       |    |		Load	0x3,0x2
007d 0227       | '  |		Execute	Access,All_Reference
007e 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
007f 00db       |    |		Load_Top	At_Offset_3
0080 0227       | '  |		Execute	Access,All_Reference
0081 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0082 6807       |h   |		Jump_Zero	0x8a
0083 4800       |H   |		Short_Literal	0x0
0084 e402       |    |		Load	0x2,0x2
0085 0227       | '  |		Execute	Access,All_Reference
0086 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0087 00db       |    |		Load_Top	At_Offset_3
0088 003a       | :  |		Store_Top	Access,At_Offset_2
0089 7806       |x   |		Jump	0x90
008a 00db       |    |		Load_Top	At_Offset_3
008b 0227       | '  |		Execute	Access,All_Reference
008c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
008d 6802       |h   |		Jump_Zero	0x90
008e 00db       |    |		Load_Top	At_Offset_3
008f 003a       | :  |		Store_Top	Access,At_Offset_2
0090 00da       |    |		Load_Top	At_Offset_2
0091 a602       |    |		Store_Unchecked	0x3,0x2
0092 00c9       |    |		Action	Pop_Auxiliary_Loop
0093 00db       |    |		Load_Top	At_Offset_3
0094 77e2       |w   |		Jump_Nonzero	0x77
0095 00ce       |    |		Action	Pop_Auxiliary
0096 00d8       |    |		Load_Top	At_Offset_0
0097 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009d       |    |		.CONST	0x009d								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0002       |    |		.CONST	0x0002								; Number of locals
009b			INIT_0098:
009b e236       | 6  |		Load	0x1,0x36
009c 03bc       |    |		Declare_Variable	Access,By_Allocation
009d			BODY_0098:
009d e237       | 7  |		Load	0x1,0x37
009e e9ff       |    |		Load	0x4,-0x1
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 e20f       |    |		Load	0x1,0xf
00a1 0260       | `  |		Execute	Discrete,In_Type
00a2 7001       |p   |		Jump_Nonzero	0xa4
00a3 0801       |    |		Execute_Immediate	Raise,0x1
00a4 823b       | ;  |		Call	0x1,0x3b
00a5 00d9       |    |		Load_Top	At_Offset_1
00a6 0227       | '  |		Execute	Access,All_Reference
00a7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 0227       | '  |		Execute	Access,All_Reference
00aa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ab 6805       |h   |		Jump_Zero	0xb1
00ac 4800       |H   |		Short_Literal	0x0
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 0227       | '  |		Execute	Access,All_Reference
00af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b0 780f       |x   |		Jump	0xc0
00b1 4803       |H   |		Short_Literal	0x3
00b2 00d9       |    |		Load_Top	At_Offset_1
00b3 0227       | '  |		Execute	Access,All_Reference
00b4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 e20f       |    |		Load	0x1,0xf
00b7 0122       | "  |		Execute	Any,Make_Root_Type
00b8 011c       |    |		Execute	Any,Convert_Unchecked
00b9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00ba e002       |    |		Load	0x0,0x2
00bb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 0227       | '  |		Execute	Access,All_Reference
00bf 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00c0 00d8       |    |		Load_Top	At_Offset_0
00c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0       |    |		.CONST	0x00d0								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0004       |    |		.CONST	0x0004								; Number of locals
00cb			INIT_00c8:
00cb e236       | 6  |		Load	0x1,0x36
00cc 03bc       |    |		Declare_Variable	Access,By_Allocation
00cd e20f       |    |		Load	0x1,0xf
00ce 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
00d0			BODY_00c8:
00d0 e9ff       |    |		Load	0x4,-0x1
00d1 700f       |p   |		Jump_Nonzero	0xe1
00d2 4805       |H   |		Short_Literal	0x5
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 0227       | '  |		Execute	Access,All_Reference
00d5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d6 e605       |    |		Load	0x3,0x5
00d7 e606       |    |		Load	0x3,0x6
00d8 e7ff       |    |		Load	0x3,-0x1
00d9 01cf       |    |		Execute	Vector,Slice_Read
00da e002       |    |		Load	0x0,0x2
00db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00dc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00dd 00db       |    |		Load_Top	At_Offset_3
00de 0227       | '  |		Execute	Access,All_Reference
00df 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00e0 7801       |x   |		Jump	0xe2
00e1 8804       |    |		Call	0x4,0x4
00e2 00da       |    |		Load_Top	At_Offset_2
00e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e4 0000 0000  |    |		.BLANK	0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed       |    |		.CONST	0x00ed								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb e236       | 6  |		Load	0x1,0x36
00ec 0007       |    |		Action	Break_Optional
00ed			BODY_00e8:
00ed 00db       |    |		Load_Top	At_Offset_3
00ee 0227       | '  |		Execute	Access,All_Reference
00ef 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f0 701d       |p   |		Jump_Nonzero	0x10e
00f1 e403       |    |		Load	0x2,0x3
00f2 0039       | 9  |		Store_Top	Access,At_Offset_1
00f3 00cf       |    |		Action	Mark_Auxiliary
00f4 7816       |x   |		Jump	0x10b
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 0227       | '  |		Execute	Access,All_Reference
00f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f8 700d       |p   |		Jump_Nonzero	0x106
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 0227       | '  |		Execute	Access,All_Reference
00fb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00fc 0227       | '  |		Execute	Access,All_Reference
00fd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00fe e9ff       |    |		Load	0x4,-0x1
00ff 0227       | '  |		Execute	Access,All_Reference
0100 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0101 0227       | '  |		Execute	Access,All_Reference
0102 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0103 027f       |    |		Execute	Discrete,Equal
0104 6801       |h   |		Jump_Zero	0x106
0105 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0106 00d9       |    |		Load_Top	At_Offset_1
0107 0227       | '  |		Execute	Access,All_Reference
0108 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0109 003a       | :  |		Store_Top	Access,At_Offset_2
010a 00c9       |    |		Action	Pop_Auxiliary_Loop
010b 00d9       |    |		Load_Top	At_Offset_1
010c 77e8       |w   |		Jump_Nonzero	0xf5
010d 00ce       |    |		Action	Pop_Auxiliary
010e e403       |    |		Load	0x2,0x3
010f e9ff       |    |		Load	0x4,-0x1
0110 0227       | '  |		Execute	Access,All_Reference
0111 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0112 00db       |    |		Load_Top	At_Offset_3
0113 a403       |    |		Store_Unchecked	0x2,0x3
0114 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c 860a       |    |		Call	0x3,0xa
011d 860b       |    |		Call	0x3,0xb
011e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011f 0000       |    |		.XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0127       | '  |		.CONST	0x0127								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0003       |    |		.CONST	0x0003								; Number of locals
0123			INIT_0120:
0123 e236       | 6  |		Load	0x1,0x36
0124 0007       |    |		Action	Break_Optional
0125 00d8       |    |		Load_Top	At_Offset_0
0126 0007       |    |		Action	Break_Optional
0127			BODY_0120:
0127 e9ff       |    |		Load	0x4,-0x1
0128 860a       |    |		Call	0x3,0xa
0129 003a       | :  |		Store_Top	Access,At_Offset_2
012a e9fe       |    |		Load	0x4,-0x2
012b 860a       |    |		Call	0x3,0xa
012c 0039       | 9  |		Store_Top	Access,At_Offset_1
012d 00d9       |    |		Load_Top	At_Offset_1
012e 860b       |    |		Call	0x3,0xb
012f 00d9       |    |		Load_Top	At_Offset_1
0130 0227       | '  |		Execute	Access,All_Reference
0131 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0132 7022       |p"  |		Jump_Nonzero	0x155
0133 00d8       |    |		Load_Top	At_Offset_0
0134 0227       | '  |		Execute	Access,All_Reference
0135 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0136 701e       |p   |		Jump_Nonzero	0x155
0137 00cf       |    |		Action	Mark_Auxiliary
0138 e20f       |    |		Load	0x1,0xf
0139 0122       | "  |		Execute	Any,Make_Root_Type
013a 00da       |    |		Load_Top	At_Offset_2
013b 0227       | '  |		Execute	Access,All_Reference
013c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
013d 0227       | '  |		Execute	Access,All_Reference
013e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
013f 0267       | g  |		Execute	Discrete,Predecessor
0140 e20f       |    |		Load	0x1,0xf
0141 0122       | "  |		Execute	Any,Make_Root_Type
0142 e802       |    |		Load	0x4,0x2
0143 0227       | '  |		Execute	Access,All_Reference
0144 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0145 0227       | '  |		Execute	Access,All_Reference
0146 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0147 0268       | h  |		Execute	Discrete,Successor
0148 0263       | c  |		Execute	Discrete,Above_Bound
0149 700a       |p   |		Jump_Nonzero	0x154
014a 00d8       |    |		Load_Top	At_Offset_0
014b 00d8       |    |		Load_Top	At_Offset_0
014c e20f       |    |		Load	0x1,0xf
014d 0260       | `  |		Execute	Discrete,In_Type
014e 7001       |p   |		Jump_Nonzero	0x150
014f 0801       |    |		Execute_Immediate	Raise,0x1
0150 8609       |    |		Call	0x3,0x9
0151 860b       |    |		Call	0x3,0xb
0152 00c8       |    |		Action	Pop_Auxiliary_Range
0153 3ff6       |?   |		Loop_Increasing	0x14a
0154 00ce       |    |		Action	Pop_Auxiliary
0155 00d8       |    |		Load_Top	At_Offset_0
0156 860b       |    |		Call	0x3,0xb
0157 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015e       | ^  |		.CONST	0x015e								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b e234       | 4  |		Load	0x1,0x34
015c 0007       |    |		Action	Break_Optional
015d e236       | 6  |		Load	0x1,0x36
015e			BODY_0158:
015e 00cf       |    |		Action	Mark_Auxiliary
015f e9fe       |    |		Load	0x4,-0x2
0160 e9ff       |    |		Load	0x4,-0x1
0161 0263       | c  |		Execute	Discrete,Above_Bound
0162 701a       |p   |		Jump_Nonzero	0x17d
0163 e237       | 7  |		Load	0x1,0x37
0164 00d9       |    |		Load_Top	At_Offset_1
0165 00d8       |    |		Load_Top	At_Offset_0
0166 e20f       |    |		Load	0x1,0xf
0167 0260       | `  |		Execute	Discrete,In_Type
0168 7001       |p   |		Jump_Nonzero	0x16a
0169 0801       |    |		Execute_Immediate	Raise,0x1
016a 823b       | ;  |		Call	0x1,0x3b
016b a802       |    |		Store_Unchecked	0x4,0x2
016c e802       |    |		Load	0x4,0x2
016d 680d       |h   |		Jump_Zero	0x17b
016e e236       | 6  |		Load	0x1,0x36
016f 03bc       |    |		Declare_Variable	Access,By_Allocation
0170 a803       |    |		Store_Unchecked	0x4,0x3
0171 e802       |    |		Load	0x4,0x2
0172 e803       |    |		Load	0x4,0x3
0173 0227       | '  |		Execute	Access,All_Reference
0174 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0175 4800       |H   |		Short_Literal	0x0
0176 e803       |    |		Load	0x4,0x3
0177 0227       | '  |		Execute	Access,All_Reference
0178 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0179 00db       |    |		Load_Top	At_Offset_3
017a 860b       |    |		Call	0x3,0xb
017b 00c8       |    |		Action	Pop_Auxiliary_Range
017c 3fe6       |?   |		Loop_Increasing	0x163
017d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00cf       |    |		Action	Mark_Auxiliary
0184 e602       |    |		Load	0x3,0x2
0185 e7ff       |    |		Load	0x3,-0x1
0186 01dd       |    |		Execute	Vector,First
0187 e603       |    |		Load	0x3,0x3
0188 0261       | a  |		Execute	Discrete,Not_In_Range
0189 6809       |h   |		Jump_Zero	0x193
018a 4805       |H   |		Short_Literal	0x5
018b a604       |    |		Store_Unchecked	0x3,0x4
018c e7ff       |    |		Load	0x3,-0x1
018d 01dd       |    |		Execute	Vector,First
018e a605       |    |		Store_Unchecked	0x3,0x5
018f e605       |    |		Load	0x3,0x5
0190 0aff       |    |		Execute_Immediate	Plus,-0x1
0191 c606       |    |		Store	0x3,0x6
0192 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0193 e602       |    |		Load	0x3,0x2
0194 e7ff       |    |		Load	0x3,-0x1
0195 01d7       |    |		Execute	Vector,Field_Read
0196 0e20       |    |		Execute_Immediate	Not_Equal,0x20
0197 7005       |p   |		Jump_Nonzero	0x19d
0198 e602       |    |		Load	0x3,0x2
0199 0a01       |    |		Execute_Immediate	Plus,0x1
019a c602       |    |		Store	0x3,0x2
019b 00c9       |    |		Action	Pop_Auxiliary_Loop
019c 7fe7       |    |		Jump	0x184
019d 00ce       |    |		Action	Pop_Auxiliary
019e e602       |    |		Load	0x3,0x2
019f a605       |    |		Store_Unchecked	0x3,0x5
01a0 e602       |    |		Load	0x3,0x2
01a1 a606       |    |		Store_Unchecked	0x3,0x6
01a2 4806       |H   |		Short_Literal	0x6
01a3 a604       |    |		Store_Unchecked	0x3,0x4
01a4 e602       |    |		Load	0x3,0x2
01a5 e7ff       |    |		Load	0x3,-0x1
01a6 01d7       |    |		Execute	Vector,Field_Read
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 0d2c       | ,  |		Execute_Immediate	Less,0x2c
01a9 702b       |p+  |		Jump_Nonzero	0x1d5
01aa 00d8       |    |		Load_Top	At_Offset_0
01ab 0c3b       | ;  |		Execute_Immediate	Greater_Equal,0x3b
01ac 7007       |p   |		Jump_Nonzero	0x1b4
01ad 0b2c       | ,  |		Execute_Immediate	Case_Compare,0x2c
01ae 7051       |pQ  |		Jump_Nonzero	0x200
01af 0b2e       | .  |		Execute_Immediate	Case_Compare,0x2e
01b0 703b       |p;  |		Jump_Nonzero	0x1ec
01b1 0f3a       | :  |		Execute_Immediate	Equal,0x3a
01b2 7025       |p%  |		Jump_Nonzero	0x1d8
01b3 784f       |xO  |		Jump	0x203
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 0d3e       | >  |		Execute_Immediate	Less,0x3e
01b6 700a       |p   |		Jump_Nonzero	0x1c1
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 0c7c       | |  |		Execute_Immediate	Greater_Equal,0x7c
01b9 7002       |p   |		Jump_Nonzero	0x1bc
01ba 00d1       |    |		Pop_Control	Pop_Count_1
01bb 7847       |xG  |		Jump	0x203
01bc 0b7c       | |  |		Execute_Immediate	Case_Compare,0x7c
01bd 702a       |p*  |		Jump_Nonzero	0x1e8
01be 0f7e       | ~  |		Execute_Immediate	Equal,0x7e
01bf 703d       |p=  |		Jump_Nonzero	0x1fd
01c0 7842       |xB  |		Jump	0x203
01c1 0b3b       | ;  |		Execute_Immediate	Case_Compare,0x3b
01c2 703d       |p=  |		Jump_Nonzero	0x200
01c3 0f3c       | <  |		Execute_Immediate	Equal,0x3c
01c4 703e       |p>  |		Jump_Nonzero	0x203
01c5 e602       |    |		Load	0x3,0x2
01c6 e603       |    |		Load	0x3,0x3
01c7 027c       | |  |		Execute	Discrete,Less
01c8 6809       |h   |		Jump_Zero	0x1d2
01c9 e602       |    |		Load	0x3,0x2
01ca 0a01       |    |		Execute_Immediate	Plus,0x1
01cb e7ff       |    |		Load	0x3,-0x1
01cc 01d7       |    |		Execute	Vector,Field_Read
01cd 0f3e       | >  |		Execute_Immediate	Equal,0x3e
01ce 6803       |h   |		Jump_Zero	0x1d2
01cf e602       |    |		Load	0x3,0x2
01d0 0a01       |    |		Execute_Immediate	Plus,0x1
01d1 c606       |    |		Store	0x3,0x6
01d2 4800       |H   |		Short_Literal	0x0
01d3 a604       |    |		Store_Unchecked	0x3,0x4
01d4 782e       |x.  |		Jump	0x203
01d5 0f0a       |    |		Execute_Immediate	Equal,0xa
01d6 702a       |p*  |		Jump_Nonzero	0x201
01d7 782b       |x+  |		Jump	0x203
01d8 e602       |    |		Load	0x3,0x2
01d9 e603       |    |		Load	0x3,0x3
01da 027c       | |  |		Execute	Discrete,Less
01db 6827       |h'  |		Jump_Zero	0x203
01dc e602       |    |		Load	0x3,0x2
01dd 0a01       |    |		Execute_Immediate	Plus,0x1
01de e7ff       |    |		Load	0x3,-0x1
01df 01d7       |    |		Execute	Vector,Field_Read
01e0 0f3d       | =  |		Execute_Immediate	Equal,0x3d
01e1 6821       |h!  |		Jump_Zero	0x203
01e2 e602       |    |		Load	0x3,0x2
01e3 0a01       |    |		Execute_Immediate	Plus,0x1
01e4 c606       |    |		Store	0x3,0x6
01e5 4800       |H   |		Short_Literal	0x0
01e6 a604       |    |		Store_Unchecked	0x3,0x4
01e7 781b       |x   |		Jump	0x203
01e8 00d1       |    |		Pop_Control	Pop_Count_1
01e9 4801       |H   |		Short_Literal	0x1
01ea a604       |    |		Store_Unchecked	0x3,0x4
01eb 7817       |x   |		Jump	0x203
01ec 00d1       |    |		Pop_Control	Pop_Count_1
01ed e602       |    |		Load	0x3,0x2
01ee e603       |    |		Load	0x3,0x3
01ef 027c       | |  |		Execute	Discrete,Less
01f0 6812       |h   |		Jump_Zero	0x203
01f1 e602       |    |		Load	0x3,0x2
01f2 0a01       |    |		Execute_Immediate	Plus,0x1
01f3 e7ff       |    |		Load	0x3,-0x1
01f4 01d7       |    |		Execute	Vector,Field_Read
01f5 0f2e       | .  |		Execute_Immediate	Equal,0x2e
01f6 680c       |h   |		Jump_Zero	0x203
01f7 e602       |    |		Load	0x3,0x2
01f8 0a01       |    |		Execute_Immediate	Plus,0x1
01f9 c606       |    |		Store	0x3,0x6
01fa 4802       |H   |		Short_Literal	0x2
01fb a604       |    |		Store_Unchecked	0x3,0x4
01fc 7806       |x   |		Jump	0x203
01fd 4803       |H   |		Short_Literal	0x3
01fe a604       |    |		Store_Unchecked	0x3,0x4
01ff 7803       |x   |		Jump	0x203
0200 00d1       |    |		Pop_Control	Pop_Count_1
0201 4804       |H   |		Short_Literal	0x4
0202 a604       |    |		Store_Unchecked	0x3,0x4
0203 e606       |    |		Load	0x3,0x6
0204 0a01       |    |		Execute_Immediate	Plus,0x1
0205 c602       |    |		Store	0x3,0x2
0206 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b 00e2       |    |		Load_Encached	Integer_Cache
020c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
020d			BODY_0208:
020d e604       |    |		Load	0x3,0x4
020e 4804       |H   |		Short_Literal	0x4
020f 4805       |H   |		Short_Literal	0x5
0210 0262       | b  |		Execute	Discrete,In_Range
0211 7075       |pu  |		Jump_Nonzero	0x287
0212 e605       |    |		Load	0x3,0x5
0213 e7ff       |    |		Load	0x3,-0x1
0214 01d7       |    |		Execute	Vector,Field_Read
0215 0f28       | (  |		Execute_Immediate	Equal,0x28
0216 700a       |p   |		Jump_Nonzero	0x221
0217 e605       |    |		Load	0x3,0x5
0218 e7ff       |    |		Load	0x3,-0x1
0219 01d7       |    |		Execute	Vector,Field_Read
021a 0f5b       | [  |		Execute_Immediate	Equal,0x5b
021b 7005       |p   |		Jump_Nonzero	0x221
021c e605       |    |		Load	0x3,0x5
021d e7ff       |    |		Load	0x3,-0x1
021e 01d7       |    |		Execute	Vector,Field_Read
021f 0f7b       | {  |		Execute_Immediate	Equal,0x7b
0220 6838       |h8  |		Jump_Zero	0x259
0221 00cf       |    |		Action	Mark_Auxiliary
0222 782b       |x+  |		Jump	0x24e
0223 e602       |    |		Load	0x3,0x2
0224 e7ff       |    |		Load	0x3,-0x1
0225 01d7       |    |		Execute	Vector,Field_Read
0226 00d8       |    |		Load_Top	At_Offset_0
0227 0d5b       | [  |		Execute_Immediate	Less,0x5b
0228 700d       |p   |		Jump_Nonzero	0x236
0229 00d8       |    |		Load_Top	At_Offset_0
022a 0c5d       | ]  |		Execute_Immediate	Greater_Equal,0x5d
022b 7003       |p   |		Jump_Nonzero	0x22f
022c 0f5c       | \  |		Execute_Immediate	Equal,0x5c
022d 7014       |p   |		Jump_Nonzero	0x242
022e 7818       |x   |		Jump	0x247
022f 0b5d       | ]  |		Execute_Immediate	Case_Compare,0x5d
0230 700a       |p   |		Jump_Nonzero	0x23b
0231 0b7b       | {  |		Execute_Immediate	Case_Compare,0x7b
0232 7013       |p   |		Jump_Nonzero	0x246
0233 0f7d       | }  |		Execute_Immediate	Equal,0x7d
0234 7007       |p   |		Jump_Nonzero	0x23c
0235 7814       |x   |		Jump	0x24a
0236 0b28       | (  |		Execute_Immediate	Case_Compare,0x28
0237 700e       |p   |		Jump_Nonzero	0x246
0238 0f29       | )  |		Execute_Immediate	Equal,0x29
0239 7002       |p   |		Jump_Nonzero	0x23c
023a 780f       |x   |		Jump	0x24a
023b 00d1       |    |		Pop_Control	Pop_Count_1
023c 00d9       |    |		Load_Top	At_Offset_1
023d 6814       |h   |		Jump_Zero	0x252
023e 00d9       |    |		Load_Top	At_Offset_1
023f 0aff       |    |		Execute_Immediate	Plus,-0x1
0240 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0241 7808       |x   |		Jump	0x24a
0242 e602       |    |		Load	0x3,0x2
0243 0a01       |    |		Execute_Immediate	Plus,0x1
0244 c602       |    |		Store	0x3,0x2
0245 7804       |x   |		Jump	0x24a
0246 00d1       |    |		Pop_Control	Pop_Count_1
0247 00d9       |    |		Load_Top	At_Offset_1
0248 0a01       |    |		Execute_Immediate	Plus,0x1
0249 005a       | Z  |		Store_Top	Discrete,At_Offset_2
024a e602       |    |		Load	0x3,0x2
024b 0a01       |    |		Execute_Immediate	Plus,0x1
024c c602       |    |		Store	0x3,0x2
024d 00c9       |    |		Action	Pop_Auxiliary_Loop
024e e602       |    |		Load	0x3,0x2
024f e603       |    |		Load	0x3,0x3
0250 027a       | z  |		Execute	Discrete,Less_Equal
0251 77d1       |w   |		Jump_Nonzero	0x223
0252 00ce       |    |		Action	Pop_Auxiliary
0253 e602       |    |		Load	0x3,0x2
0254 a606       |    |		Store_Unchecked	0x3,0x6
0255 e602       |    |		Load	0x3,0x2
0256 0a01       |    |		Execute_Immediate	Plus,0x1
0257 c602       |    |		Store	0x3,0x2
0258 7833       |x3  |		Jump	0x28c
0259 00cf       |    |		Action	Mark_Auxiliary
025a 7826       |x&  |		Jump	0x281
025b e602       |    |		Load	0x3,0x2
025c e7ff       |    |		Load	0x3,-0x1
025d 01d7       |    |		Execute	Vector,Field_Read
025e 00d8       |    |		Load_Top	At_Offset_0
025f 0d20       |    |		Execute_Immediate	Less,0x20
0260 700d       |p   |		Jump_Nonzero	0x26e
0261 00d8       |    |		Load_Top	At_Offset_0
0262 0c2d       | -  |		Execute_Immediate	Greater_Equal,0x2d
0263 7005       |p   |		Jump_Nonzero	0x269
0264 0b20       |    |		Execute_Immediate	Case_Compare,0x20
0265 700b       |p   |		Jump_Nonzero	0x271
0266 0f2c       | ,  |		Execute_Immediate	Equal,0x2c
0267 701d       |p   |		Jump_Nonzero	0x285
0268 7812       |x   |		Jump	0x27b
0269 0b3b       | ;  |		Execute_Immediate	Case_Compare,0x3b
026a 7008       |p   |		Jump_Nonzero	0x273
026b 0f5c       | \  |		Execute_Immediate	Equal,0x5c
026c 7008       |p   |		Jump_Nonzero	0x275
026d 780d       |x   |		Jump	0x27b
026e 0f0a       |    |		Execute_Immediate	Equal,0xa
026f 7015       |p   |		Jump_Nonzero	0x285
0270 780a       |x   |		Jump	0x27b
0271 00d1       |    |		Pop_Control	Pop_Count_1
0272 780a       |x   |		Jump	0x27d
0273 00d1       |    |		Pop_Control	Pop_Count_1
0274 7810       |x   |		Jump	0x285
0275 e602       |    |		Load	0x3,0x2
0276 0a01       |    |		Execute_Immediate	Plus,0x1
0277 c602       |    |		Store	0x3,0x2
0278 e602       |    |		Load	0x3,0x2
0279 a606       |    |		Store_Unchecked	0x3,0x6
027a 7802       |x   |		Jump	0x27d
027b e602       |    |		Load	0x3,0x2
027c a606       |    |		Store_Unchecked	0x3,0x6
027d e602       |    |		Load	0x3,0x2
027e 0a01       |    |		Execute_Immediate	Plus,0x1
027f c602       |    |		Store	0x3,0x2
0280 00c9       |    |		Action	Pop_Auxiliary_Loop
0281 e602       |    |		Load	0x3,0x2
0282 e603       |    |		Load	0x3,0x3
0283 027a       | z  |		Execute	Discrete,Less_Equal
0284 77d6       |w   |		Jump_Nonzero	0x25b
0285 00ce       |    |		Action	Pop_Auxiliary
0286 7805       |x   |		Jump	0x28c
0287 e606       |    |		Load	0x3,0x6
0288 a602       |    |		Store_Unchecked	0x3,0x2
0289 e605       |    |		Load	0x3,0x5
028a 0aff       |    |		Execute_Immediate	Plus,-0x1
028b c606       |    |		Store	0x3,0x6
028c e605       |    |		Load	0x3,0x5
028d e606       |    |		Load	0x3,0x6
028e e7ff       |    |		Load	0x3,-0x1
028f 01cf       |    |		Execute	Vector,Slice_Read
0290 e002       |    |		Load	0x0,0x2
0291 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0292 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0293 a608       |    |		Store_Unchecked	0x3,0x8
0294 860f       |    |		Call	0x3,0xf
0295 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0296 0000 0000  |    |		.XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e604       |    |		Load	0x3,0x4
029c 0f06       |    |		Execute_Immediate	Equal,0x6
029d 6871       |hq  |		Jump_Zero	0x30f
029e 00cf       |    |		Action	Mark_Auxiliary
029f 785d       |x]  |		Jump	0x2fd
02a0 e602       |    |		Load	0x3,0x2
02a1 e7ff       |    |		Load	0x3,-0x1
02a2 01d7       |    |		Execute	Vector,Field_Read
02a3 00d8       |    |		Load_Top	At_Offset_0
02a4 0d0a       |    |		Execute_Immediate	Less,0xa
02a5 703c       |p<  |		Jump_Nonzero	0x2e2
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 0c3e       | >  |		Execute_Immediate	Greater_Equal,0x3e
02a8 7036       |p6  |		Jump_Nonzero	0x2df
02a9 0af6       |    |		Execute_Immediate	Plus,-0xa
02aa 4633       |F3  |		Jump_Case	0x34
02ab 7855       |xU  |		Jump	0x301								; case 0x0
02ac 784c       |xL  |		Jump	0x2f9								; case 0x1
02ad 784b       |xK  |		Jump	0x2f9								; case 0x2
02ae 784a       |xJ  |		Jump	0x2f9								; case 0x3
02af 7849       |xI  |		Jump	0x2f9								; case 0x4
02b0 7848       |xH  |		Jump	0x2f9								; case 0x5
02b1 7847       |xG  |		Jump	0x2f9								; case 0x6
02b2 7846       |xF  |		Jump	0x2f9								; case 0x7
02b3 7845       |xE  |		Jump	0x2f9								; case 0x8
02b4 7844       |xD  |		Jump	0x2f9								; case 0x9
02b5 7843       |xC  |		Jump	0x2f9								; case 0xa
02b6 7842       |xB  |		Jump	0x2f9								; case 0xb
02b7 7841       |xA  |		Jump	0x2f9								; case 0xc
02b8 7840       |x@  |		Jump	0x2f9								; case 0xd
02b9 783f       |x?  |		Jump	0x2f9								; case 0xe
02ba 783e       |x>  |		Jump	0x2f9								; case 0xf
02bb 783d       |x=  |		Jump	0x2f9								; case 0x10
02bc 783c       |x<  |		Jump	0x2f9								; case 0x11
02bd 783b       |x;  |		Jump	0x2f9								; case 0x12
02be 783a       |x:  |		Jump	0x2f9								; case 0x13
02bf 7839       |x9  |		Jump	0x2f9								; case 0x14
02c0 7838       |x8  |		Jump	0x2f9								; case 0x15
02c1 783f       |x?  |		Jump	0x301								; case 0x16
02c2 7836       |x6  |		Jump	0x2f9								; case 0x17
02c3 7835       |x5  |		Jump	0x2f9								; case 0x18
02c4 7834       |x4  |		Jump	0x2f9								; case 0x19
02c5 7833       |x3  |		Jump	0x2f9								; case 0x1a
02c6 7832       |x2  |		Jump	0x2f9								; case 0x1b
02c7 7831       |x1  |		Jump	0x2f9								; case 0x1c
02c8 7830       |x0  |		Jump	0x2f9								; case 0x1d
02c9 782f       |x/  |		Jump	0x2f9								; case 0x1e
02ca 782e       |x.  |		Jump	0x2f9								; case 0x1f
02cb 782d       |x-  |		Jump	0x2f9								; case 0x20
02cc 782c       |x,  |		Jump	0x2f9								; case 0x21
02cd 7833       |x3  |		Jump	0x301								; case 0x22
02ce 782a       |x*  |		Jump	0x2f9								; case 0x23
02cf 781f       |x   |		Jump	0x2ef								; case 0x24
02d0 7828       |x(  |		Jump	0x2f9								; case 0x25
02d1 7827       |x'  |		Jump	0x2f9								; case 0x26
02d2 7826       |x&  |		Jump	0x2f9								; case 0x27
02d3 7825       |x%  |		Jump	0x2f9								; case 0x28
02d4 7824       |x$  |		Jump	0x2f9								; case 0x29
02d5 7823       |x#  |		Jump	0x2f9								; case 0x2a
02d6 7822       |x"  |		Jump	0x2f9								; case 0x2b
02d7 7821       |x!  |		Jump	0x2f9								; case 0x2c
02d8 7820       |x   |		Jump	0x2f9								; case 0x2d
02d9 781f       |x   |		Jump	0x2f9								; case 0x2e
02da 781e       |x   |		Jump	0x2f9								; case 0x2f
02db 7808       |x   |		Jump	0x2e4								; case 0x30
02dc 7824       |x$  |		Jump	0x301								; case 0x31
02dd 781b       |x   |		Jump	0x2f9								; case 0x32
02de 7822       |x"  |		Jump	0x301								; case 0x33
02df 0f7c       | |  |		Execute_Immediate	Equal,0x7c
02e0 7020       |p   |		Jump_Nonzero	0x301
02e1 7817       |x   |		Jump	0x2f9
02e2 00d1       |    |		Pop_Control	Pop_Count_1
02e3 7815       |x   |		Jump	0x2f9
02e4 e602       |    |		Load	0x3,0x2
02e5 e603       |    |		Load	0x3,0x3
02e6 027c       | |  |		Execute	Discrete,Less
02e7 6811       |h   |		Jump_Zero	0x2f9
02e8 e602       |    |		Load	0x3,0x2
02e9 0a01       |    |		Execute_Immediate	Plus,0x1
02ea e7ff       |    |		Load	0x3,-0x1
02eb 01d7       |    |		Execute	Vector,Field_Read
02ec 0f3d       | =  |		Execute_Immediate	Equal,0x3d
02ed 7013       |p   |		Jump_Nonzero	0x301
02ee 780a       |x   |		Jump	0x2f9
02ef e602       |    |		Load	0x3,0x2
02f0 e603       |    |		Load	0x3,0x3
02f1 027c       | |  |		Execute	Discrete,Less
02f2 6806       |h   |		Jump_Zero	0x2f9
02f3 e602       |    |		Load	0x3,0x2
02f4 0a01       |    |		Execute_Immediate	Plus,0x1
02f5 e7ff       |    |		Load	0x3,-0x1
02f6 01d7       |    |		Execute	Vector,Field_Read
02f7 0f2e       | .  |		Execute_Immediate	Equal,0x2e
02f8 7008       |p   |		Jump_Nonzero	0x301
02f9 e602       |    |		Load	0x3,0x2
02fa 0a01       |    |		Execute_Immediate	Plus,0x1
02fb c602       |    |		Store	0x3,0x2
02fc 00c9       |    |		Action	Pop_Auxiliary_Loop
02fd e602       |    |		Load	0x3,0x2
02fe e603       |    |		Load	0x3,0x3
02ff 027a       | z  |		Execute	Discrete,Less_Equal
0300 779f       |w   |		Jump_Nonzero	0x2a0
0301 00ce       |    |		Action	Pop_Auxiliary
0302 e602       |    |		Load	0x3,0x2
0303 0aff       |    |		Execute_Immediate	Plus,-0x1
0304 c606       |    |		Store	0x3,0x6
0305 e605       |    |		Load	0x3,0x5
0306 e606       |    |		Load	0x3,0x6
0307 e7ff       |    |		Load	0x3,-0x1
0308 01cf       |    |		Execute	Vector,Slice_Read
0309 e002       |    |		Load	0x0,0x2
030a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
030b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
030c a607       |    |		Store_Unchecked	0x3,0x7
030d 860f       |    |		Call	0x3,0xf
030e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
030f e002       |    |		Load	0x0,0x2
0310 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0311 a607       |    |		Store_Unchecked	0x3,0x7
0312 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0313 0000 0000  |    |		.BLANK	0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d       |    |		.CONST	0x031d								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b e002       |    |		Load	0x0,0x2
031c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
031d			BODY_0318:
031d 8611       |    |		Call	0x3,0x11
031e e604       |    |		Load	0x3,0x4
031f 0f02       |    |		Execute_Immediate	Equal,0x2
0320 6811       |h   |		Jump_Zero	0x332
0321 e607       |    |		Load	0x3,0x7
0322 7007       |p   |		Jump_Nonzero	0x32a
0323 e607       |    |		Load	0x3,0x7
0324 860c       |    |		Call	0x3,0xc
0325 860f       |    |		Call	0x3,0xf
0326 8611       |    |		Call	0x3,0x11
0327 e607       |    |		Load	0x3,0x7
0328 860c       |    |		Call	0x3,0xc
0329 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032a e607       |    |		Load	0x3,0x7
032b 0039       | 9  |		Store_Top	Access,At_Offset_1
032c 860f       |    |		Call	0x3,0xf
032d 8611       |    |		Call	0x3,0x11
032e e607       |    |		Load	0x3,0x7
032f 00d9       |    |		Load_Top	At_Offset_1
0330 860d       |    |		Call	0x3,0xd
0331 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0332 e607       |    |		Load	0x3,0x7
0333 6816       |h   |		Jump_Zero	0x34a
0334 e607       |    |		Load	0x3,0x7
0335 0227       | '  |		Execute	Access,All_Reference
0336 e002       |    |		Load	0x0,0x2
0337 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0338 0092 04cf  |    |		Action	Push_String_Extended,0x4cf					; "OTHERS"
033a 01df       |    |		Execute	Vector,Equal
033b 680e       |h   |		Jump_Zero	0x34a
033c e238       | 8  |		Load	0x1,0x38
033d 00d8       |    |		Load_Top	At_Offset_0
033e e20f       |    |		Load	0x1,0xf
033f 0260       | `  |		Execute	Discrete,In_Type
0340 7001       |p   |		Jump_Nonzero	0x342
0341 0801       |    |		Execute_Immediate	Raise,0x1
0342 e239       | 9  |		Load	0x1,0x39
0343 00d8       |    |		Load_Top	At_Offset_0
0344 e20f       |    |		Load	0x1,0xf
0345 0260       | `  |		Execute	Discrete,In_Type
0346 7001       |p   |		Jump_Nonzero	0x348
0347 0801       |    |		Execute_Immediate	Raise,0x1
0348 860e       |    |		Call	0x3,0xe
0349 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034a e607       |    |		Load	0x3,0x7
034b 860c       |    |		Call	0x3,0xc
034c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035e       | ^  |		.CONST	0x035e								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0008       |    |		.CONST	0x0008								; Number of locals
0353			INIT_0350:
0353 e403       |    |		Load	0x2,0x3
0354 0007       |    |		Action	Break_Optional
0355 e236       | 6  |		Load	0x1,0x36
0356 0007       |    |		Action	Break_Optional
0357 00e2       |    |		Load_Encached	Integer_Cache
0358 00e6       |    |		Load_Encached	Float_Cache
0359 00e1       |    |		Load_Encached	Boolean_Cache
035a 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
035b 00e1       |    |		Load_Encached	Boolean_Cache
035c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
035d 00e1       |    |		Load_Encached	Boolean_Cache
035e			BODY_0350:
035e 00cf       |    |		Action	Mark_Auxiliary
035f 7807       |x   |		Jump	0x367
0360 00db       |    |		Load_Top	At_Offset_3
0361 0f00       |    |		Execute_Immediate	Equal,0x0
0362 a806       |    |		Store_Unchecked	0x4,0x6
0363 4801       |H   |		Short_Literal	0x1
0364 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0365 860f       |    |		Call	0x3,0xf
0366 00c9       |    |		Action	Pop_Auxiliary_Loop
0367 e604       |    |		Load	0x3,0x4
0368 0f03       |    |		Execute_Immediate	Equal,0x3
0369 77f6       |w   |		Jump_Nonzero	0x360
036a 00c9       |    |		Action	Pop_Auxiliary_Loop
036b 8612       |    |		Call	0x3,0x12
036c e604       |    |		Load	0x3,0x4
036d 0e01       |    |		Execute_Immediate	Not_Equal,0x1
036e 7003       |p   |		Jump_Nonzero	0x372
036f 860f       |    |		Call	0x3,0xf
0370 00c9       |    |		Action	Pop_Auxiliary_Loop
0371 7ff9       |    |		Jump	0x36b
0372 00ce       |    |		Action	Pop_Auxiliary
0373 e403       |    |		Load	0x2,0x3
0374 a803       |    |		Store_Unchecked	0x4,0x3
0375 e604       |    |		Load	0x3,0x4
0376 7075       |pu  |		Jump_Nonzero	0x3ec
0377 860f       |    |		Call	0x3,0xf
0378 8610       |    |		Call	0x3,0x10
0379 e608       |    |		Load	0x3,0x8
037a 0227       | '  |		Execute	Access,All_Reference
037b 0092 04d0  |    |		Action	Push_String_Extended,0x4d0					; "<>"
037d 01df       |    |		Execute	Vector,Equal
037e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
037f 00cf       |    |		Action	Mark_Auxiliary
0380 7865       |xe  |		Jump	0x3e6
0381 00da       |    |		Load_Top	At_Offset_2
0382 6805       |h   |		Jump_Zero	0x388
0383 4807       |H   |		Short_Literal	0x7
0384 e803       |    |		Load	0x4,0x3
0385 0227       | '  |		Execute	Access,All_Reference
0386 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0387 7859       |xY  |		Jump	0x3e1
0388 e803       |    |		Load	0x4,0x3
0389 0227       | '  |		Execute	Access,All_Reference
038a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
038b 7051       |pQ  |		Jump_Nonzero	0x3dd
038c e803       |    |		Load	0x4,0x3
038d 0227       | '  |		Execute	Access,All_Reference
038e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
038f 0f04       |    |		Execute_Immediate	Equal,0x4
0390 6809       |h   |		Jump_Zero	0x39a
0391 4804       |H   |		Short_Literal	0x4
0392 e803       |    |		Load	0x4,0x3
0393 0227       | '  |		Execute	Access,All_Reference
0394 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0395 e608       |    |		Load	0x3,0x8
0396 e803       |    |		Load	0x4,0x3
0397 0227       | '  |		Execute	Access,All_Reference
0398 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0399 7847       |xG  |		Jump	0x3e1
039a 00d9       |    |		Load_Top	At_Offset_1
039b 6813       |h   |		Jump_Zero	0x3af
039c e803       |    |		Load	0x4,0x3
039d 0227       | '  |		Execute	Access,All_Reference
039e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
039f 0227       | '  |		Execute	Access,All_Reference
03a0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03a1 683f       |h?  |		Jump_Zero	0x3e1
03a2 e803       |    |		Load	0x4,0x3
03a3 0227       | '  |		Execute	Access,All_Reference
03a4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03a5 0227       | '  |		Execute	Access,All_Reference
03a6 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03a7 0227       | '  |		Execute	Access,All_Reference
03a8 e002       |    |		Load	0x0,0x2
03a9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03aa 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
03ab e803       |    |		Load	0x4,0x3
03ac 0227       | '  |		Execute	Access,All_Reference
03ad 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03ae 7832       |x2  |		Jump	0x3e1
03af e608       |    |		Load	0x3,0x8
03b0 e803       |    |		Load	0x4,0x3
03b1 0227       | '  |		Execute	Access,All_Reference
03b2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03b3 e803       |    |		Load	0x4,0x3
03b4 0227       | '  |		Execute	Access,All_Reference
03b5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03b6 4604       |F   |		Jump_Case	0x5
03b7 7829       |x)  |		Jump	0x3e1								; case 0x0
03b8 780d       |x   |		Jump	0x3c6								; case 0x1
03b9 7802       |x   |		Jump	0x3bc								; case 0x2
03ba 7806       |x   |		Jump	0x3c1								; case 0x3
03bb 7825       |x%  |		Jump	0x3e1								; case 0x4
03bc 608b       |`   |		Indirect_Literal	Discrete,0x448,{0x00000000, 0x7fffffff}
03bd e803       |    |		Load	0x4,0x3
03be 8241       | A  |		Call	0x1,0x41
03bf a804       |    |		Store_Unchecked	0x4,0x4
03c0 7820       |x   |		Jump	0x3e1
03c1 5882       |X   |		Indirect_Literal	Float,0x444,1.7976931348623151e+308
03c2 e803       |    |		Load	0x4,0x3
03c3 8242       | B  |		Call	0x1,0x42
03c4 a805       |    |		Store_Unchecked	0x4,0x5
03c5 781b       |x   |		Jump	0x3e1
03c6 4801       |H   |		Short_Literal	0x1
03c7 0092 04d1  |    |		Action	Push_String_Extended,0x4d1					; "False"
03c9 e608       |    |		Load	0x3,0x8
03ca 0227       | '  |		Execute	Access,All_Reference
03cb e009       |    |		Load	0x0,0x9
03cc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03cd 0e01       |    |		Execute_Immediate	Not_Equal,0x1
03ce 6812       |h   |		Jump_Zero	0x3e1
03cf 4801       |H   |		Short_Literal	0x1
03d0 0092 04d2  |    |		Action	Push_String_Extended,0x4d2					; "True"
03d2 e608       |    |		Load	0x3,0x8
03d3 0227       | '  |		Execute	Access,All_Reference
03d4 e009       |    |		Load	0x0,0x9
03d5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03d6 0e01       |    |		Execute_Immediate	Not_Equal,0x1
03d7 6809       |h   |		Jump_Zero	0x3e1
03d8 4809       |H   |		Short_Literal	0x9
03d9 e803       |    |		Load	0x4,0x3
03da 0227       | '  |		Execute	Access,All_Reference
03db 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03dc 7804       |x   |		Jump	0x3e1
03dd e608       |    |		Load	0x3,0x8
03de e803       |    |		Load	0x4,0x3
03df 0227       | '  |		Execute	Access,All_Reference
03e0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03e1 e803       |    |		Load	0x4,0x3
03e2 0227       | '  |		Execute	Access,All_Reference
03e3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03e4 a803       |    |		Store_Unchecked	0x4,0x3
03e5 00c9       |    |		Action	Pop_Auxiliary_Loop
03e6 e803       |    |		Load	0x4,0x3
03e7 e802       |    |		Load	0x4,0x2
03e8 022e       | .  |		Execute	Access,Not_Equal
03e9 7797       |w   |		Jump_Nonzero	0x381
03ea 00ce       |    |		Action	Pop_Auxiliary
03eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ec 00cf       |    |		Action	Mark_Auxiliary
03ed 7850       |xP  |		Jump	0x43e
03ee e803       |    |		Load	0x4,0x3
03ef 0227       | '  |		Execute	Access,All_Reference
03f0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03f1 7047       |pG  |		Jump_Nonzero	0x439
03f2 e803       |    |		Load	0x4,0x3
03f3 0227       | '  |		Execute	Access,All_Reference
03f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f5 0f04       |    |		Execute_Immediate	Equal,0x4
03f6 6807       |h   |		Jump_Zero	0x3fe
03f7 00da       |    |		Load_Top	At_Offset_2
03f8 6840       |h@  |		Jump_Zero	0x439
03f9 4808       |H   |		Short_Literal	0x8
03fa e803       |    |		Load	0x4,0x3
03fb 0227       | '  |		Execute	Access,All_Reference
03fc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03fd 783b       |x;  |		Jump	0x439
03fe e803       |    |		Load	0x4,0x3
03ff 0227       | '  |		Execute	Access,All_Reference
0400 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0401 0227       | '  |		Execute	Access,All_Reference
0402 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0403 0f01       |    |		Execute_Immediate	Equal,0x1
0404 6808       |h   |		Jump_Zero	0x40d
0405 00db       |    |		Load_Top	At_Offset_3
0406 e002       |    |		Load	0x0,0x2
0407 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0408 01d7       |    |		Execute	Vector,Field_Read
0409 e803       |    |		Load	0x4,0x3
040a 0227       | '  |		Execute	Access,All_Reference
040b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
040c 782c       |x,  |		Jump	0x439
040d e803       |    |		Load	0x4,0x3
040e 0227       | '  |		Execute	Access,All_Reference
040f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0410 0227       | '  |		Execute	Access,All_Reference
0411 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0412 6822       |h"  |		Jump_Zero	0x435
0413 4801       |H   |		Short_Literal	0x1
0414 0092 04d1  |    |		Action	Push_String_Extended,0x4d1					; "False"
0416 e803       |    |		Load	0x4,0x3
0417 0227       | '  |		Execute	Access,All_Reference
0418 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0419 0227       | '  |		Execute	Access,All_Reference
041a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
041b 0227       | '  |		Execute	Access,All_Reference
041c e009       |    |		Load	0x0,0x9
041d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
041e 0f01       |    |		Execute_Immediate	Equal,0x1
041f 700d       |p   |		Jump_Nonzero	0x42d
0420 4801       |H   |		Short_Literal	0x1
0421 0092 04d2  |    |		Action	Push_String_Extended,0x4d2					; "True"
0423 e803       |    |		Load	0x4,0x3
0424 0227       | '  |		Execute	Access,All_Reference
0425 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0426 0227       | '  |		Execute	Access,All_Reference
0427 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0428 0227       | '  |		Execute	Access,All_Reference
0429 e009       |    |		Load	0x0,0x9
042a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
042b 0f01       |    |		Execute_Immediate	Equal,0x1
042c 6808       |h   |		Jump_Zero	0x435
042d 00db       |    |		Load_Top	At_Offset_3
042e e002       |    |		Load	0x0,0x2
042f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0430 01d7       |    |		Execute	Vector,Field_Read
0431 e803       |    |		Load	0x4,0x3
0432 0227       | '  |		Execute	Access,All_Reference
0433 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0434 7804       |x   |		Jump	0x439
0435 4806       |H   |		Short_Literal	0x6
0436 e803       |    |		Load	0x4,0x3
0437 0227       | '  |		Execute	Access,All_Reference
0438 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0439 e803       |    |		Load	0x4,0x3
043a 0227       | '  |		Execute	Access,All_Reference
043b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
043c a803       |    |		Store_Unchecked	0x4,0x3
043d 00c9       |    |		Action	Pop_Auxiliary_Loop
043e e803       |    |		Load	0x4,0x3
043f e802       |    |		Load	0x4,0x2
0440 022e       | .  |		Execute	Access,Not_Equal
0441 77ac       |w   |		Jump_Nonzero	0x3ee
0442 00ce       |    |		Action	Pop_Auxiliary
0443 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0444 7fef ffff  |    |		.DBL	1.7976931348623151e+308
0446 ffff fffc  |    |
0448 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
044c 0000 0000  |    |		.BLANK	0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0457       | W  |		.CONST	0x0457								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e9ff       |    |		Load	0x4,-0x1
0454 0227       | '  |		Execute	Access,All_Reference
0455 e002       |    |		Load	0x0,0x2
0456 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0457			BODY_0450:
0457 e237       | 7  |		Load	0x1,0x37
0458 4801       |H   |		Short_Literal	0x1
0459 00da       |    |		Load_Top	At_Offset_2
045a 823c       | <  |		Call	0x1,0x3c
045b e802       |    |		Load	0x4,0x2
045c 0227       | '  |		Execute	Access,All_Reference
045d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
045e e802       |    |		Load	0x4,0x2
045f 0227       | '  |		Execute	Access,All_Reference
0460 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0461 700b       |p   |		Jump_Nonzero	0x46d
0462 4802       |H   |		Short_Literal	0x2
0463 e802       |    |		Load	0x4,0x2
0464 0227       | '  |		Execute	Access,All_Reference
0465 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0466 e9ff       |    |		Load	0x4,-0x1
0467 e802       |    |		Load	0x4,0x2
0468 0227       | '  |		Execute	Access,All_Reference
0469 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
046a e802       |    |		Load	0x4,0x2
046b 00cb       |    |		Action	Pop_Block_With_Result
046c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046d 00d8       |    |		Load_Top	At_Offset_0
046e e802       |    |		Load	0x4,0x2
046f 0227       | '  |		Execute	Access,All_Reference
0470 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0471 0227       | '  |		Execute	Access,All_Reference
0472 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0473 0227       | '  |		Execute	Access,All_Reference
0474 01de       |    |		Execute	Vector,Not_Equal
0475 681f       |h   |		Jump_Zero	0x495
0476 e802       |    |		Load	0x4,0x2
0477 0227       | '  |		Execute	Access,All_Reference
0478 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0479 0227       | '  |		Execute	Access,All_Reference
047a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
047b 4801       |H   |		Short_Literal	0x1
047c 00da       |    |		Load_Top	At_Offset_2
047d 823c       | <  |		Call	0x1,0x3c
047e 6816       |h   |		Jump_Zero	0x495
047f e237       | 7  |		Load	0x1,0x37
0480 4800       |H   |		Short_Literal	0x0
0481 00da       |    |		Load_Top	At_Offset_2
0482 823c       | <  |		Call	0x1,0x3c
0483 e802       |    |		Load	0x4,0x2
0484 0227       | '  |		Execute	Access,All_Reference
0485 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0486 e802       |    |		Load	0x4,0x2
0487 0227       | '  |		Execute	Access,All_Reference
0488 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0489 700b       |p   |		Jump_Nonzero	0x495
048a 4801       |H   |		Short_Literal	0x1
048b e802       |    |		Load	0x4,0x2
048c 0227       | '  |		Execute	Access,All_Reference
048d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
048e e9ff       |    |		Load	0x4,-0x1
048f e802       |    |		Load	0x4,0x2
0490 0227       | '  |		Execute	Access,All_Reference
0491 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0492 e802       |    |		Load	0x4,0x2
0493 00cb       |    |		Action	Pop_Block_With_Result
0494 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0495 4800       |H   |		Short_Literal	0x0
0496 e802       |    |		Load	0x4,0x2
0497 0227       | '  |		Execute	Access,All_Reference
0498 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0499 e802       |    |		Load	0x4,0x2
049a 0227       | '  |		Execute	Access,All_Reference
049b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
049c 0227       | '  |		Execute	Access,All_Reference
049d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
049e e802       |    |		Load	0x4,0x2
049f 0227       | '  |		Execute	Access,All_Reference
04a0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04a1 e802       |    |		Load	0x4,0x2
04a2 0227       | '  |		Execute	Access,All_Reference
04a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04a4 0f04       |    |		Execute_Immediate	Equal,0x4
04a5 6828       |h(  |		Jump_Zero	0x4ce
04a6 e9ff       |    |		Load	0x4,-0x1
04a7 e802       |    |		Load	0x4,0x2
04a8 0227       | '  |		Execute	Access,All_Reference
04a9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04aa e802       |    |		Load	0x4,0x2
04ab 0227       | '  |		Execute	Access,All_Reference
04ac 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04ad 0227       | '  |		Execute	Access,All_Reference
04ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04af c803       |    |		Store	0x4,0x3
04b0 e237       | 7  |		Load	0x1,0x37
04b1 e803       |    |		Load	0x4,0x3
04b2 00d8       |    |		Load_Top	At_Offset_0
04b3 e20f       |    |		Load	0x1,0xf
04b4 0260       | `  |		Execute	Discrete,In_Type
04b5 7001       |p   |		Jump_Nonzero	0x4b7
04b6 0801       |    |		Execute_Immediate	Raise,0x1
04b7 823b       | ;  |		Call	0x1,0x3b
04b8 e802       |    |		Load	0x4,0x2
04b9 0227       | '  |		Execute	Access,All_Reference
04ba 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04bb e802       |    |		Load	0x4,0x2
04bc 0227       | '  |		Execute	Access,All_Reference
04bd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04be 700f       |p   |		Jump_Nonzero	0x4ce
04bf 4803       |H   |		Short_Literal	0x3
04c0 e802       |    |		Load	0x4,0x2
04c1 0227       | '  |		Execute	Access,All_Reference
04c2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04c3 e803       |    |		Load	0x4,0x3
04c4 e20f       |    |		Load	0x1,0xf
04c5 0122       | "  |		Execute	Any,Make_Root_Type
04c6 011c       |    |		Execute	Any,Convert_Unchecked
04c7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04c8 e002       |    |		Load	0x0,0x2
04c9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ca 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
04cb e802       |    |		Load	0x4,0x2
04cc 0227       | '  |		Execute	Access,All_Reference
04cd 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
04ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04cf ; --------------------------------------------------------------------------------------
04cf ; STRING TABLE
04cf ; --------------------------------------------------------------------------------------
04cf 000a       |    |		.STRTAB	0x000a->0x04d4							; "OTHERS"
04d0 000e       |    |		.STRTAB	0x000e->0x04d7							; "<>"
04d1 000e       |    |		.STRTAB	0x000e->0x04d8							; "False"
04d2 0011       |    |		.STRTAB	0x0011->0x04da							; "True"
04d3 0013       |    |		.STREND 0x0013->0x04dc
04d4 4f54 4845  |OTHE|		.STRTAB_STRINGS
04dd 0000 0000  |    |		.XXX[0x3]
04df 0000       |    |
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug Table
04e0 ; --------------------------------------------------------------------------------------
04e0 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x18bb,0x0000,0x0001,0x000f
04e6 000b 0522  |   "|		.DBG4T	0x000b,0x0522,0x1001,0x0000
04ea 002b 052d  | + -|		.DBG4T	0x002b,0x052d,0x1001,0x4000
04ee 006b 054c  | k L|		.DBG4T	0x006b,0x054c,0x1002,0x4000
04f2 009b 0567  |   g|		.DBG4T	0x009b,0x0567,0x1002,0x0000
04f6 00cb 0570  |   p|		.DBG4T	0x00cb,0x0570,0x1002,0x0000
04fa 00eb 0579  |   y|		.DBG4T	0x00eb,0x0579,0x1001,0x4000
04fe 011b 058c  |    |		.DBG4T	0x011b,0x058c,0x1001,0x0000
0502 0123 058f  | #  |		.DBG4T	0x0123,0x058f,0x1001,0x0000
0506 015b 059a  | [  |		.DBG4T	0x015b,0x059a,0x1001,0x0000
050a 0183 05a5  |    |		.DBG4T	0x0183,0x05a5,0x1001,0x4000
050e 020b 05d7  |    |		.DBG4T	0x020b,0x05d7,0x1001,0x4000
0512 029b 0606  |    |		.DBG4T	0x029b,0x0606,0x1001,0x4000
0516 031b 061c  |    |		.DBG4T	0x031b,0x061c,0x1001,0x0000
051a 0353 062d  | S -|		.DBG4T	0x0353,0x062d,0x1001,0x4000
051e 0453 0688  | S  |		.DBG4T	0x0453,0x0688,0x1004,0x0000
0522 ; --------------------------------------------------------------------------------------
0522 ; Debug chain
0522 ; --------------------------------------------------------------------------------------
0522 0004 0005  |    |		.DBGLEN	0x0004,0x0005
0524 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x001a,0x0020,0x0024
052d ; --------------------------------------------------------------------------------------
052d ; Debug chain
052d ; --------------------------------------------------------------------------------------
052d 0011 0006  |    |		.DBGLEN	0x0011,0x0006
052f 002b 002f  | + /|		.DBGLNO	0x002b,0x002f,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0059,0x005c,0x005e,0x0062
0546 0001 0003  |    |		.XXX[0x6]
0548 0004 0006  |    |
054a 0005 0007  |    |
054c ; --------------------------------------------------------------------------------------
054c ; Debug chain
054c ; --------------------------------------------------------------------------------------
054c 0003 000b  |    |		.DBGLEN	0x0003,0x000b
054e 006b 006d  | k m|		.DBGLNO	0x006b,0x006d,0x006f,0x0071,0x0077,0x007b,0x007f,0x0083,0x0087,0x008a,0x008e,0x0090,0x0093,0x0096
055c 0001 0003  |    |		.XXX[0xb]
055e 0004 0005  |    |
0560 0006 0007  |    |
0562 0008 0009  |    |
0564 000a 0002  |    |
0566 000b       |    |
0567 ; --------------------------------------------------------------------------------------
0567 ; Debug chain
0567 ; --------------------------------------------------------------------------------------
0567 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0569 009b 009d  |    |		.DBGLNO	0x009b,0x009d,0x00a8,0x00ac,0x00b1,0x00b5,0x00c0
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug chain
0570 ; --------------------------------------------------------------------------------------
0570 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0572 00cb 00cd  |    |		.DBGLNO	0x00cb,0x00cd,0x00d0,0x00d2,0x00d6,0x00e1,0x00e2
0579 ; --------------------------------------------------------------------------------------
0579 ; Debug chain
0579 ; --------------------------------------------------------------------------------------
0579 0001 0008  |    |		.DBGLEN	0x0001,0x0008
057b 00eb 00ed  |    |		.DBGLNO	0x00eb,0x00ed,0x00f1,0x00f5,0x0105,0x0106,0x010b,0x010e,0x0112
0584 0001 0002  |    |		.XXX[0x8]
0586 0004 0005  |    |
0588 0006 0003  |    |
058a 0007 0008  |    |
058c ; --------------------------------------------------------------------------------------
058c ; Debug chain
058c ; --------------------------------------------------------------------------------------
058c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
058e 011b       |    |		.DBGLNO	0x011b
058f ; --------------------------------------------------------------------------------------
058f ; Debug chain
058f ; --------------------------------------------------------------------------------------
058f 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0591 0123 0125  | # %|		.DBGLNO	0x0123,0x0125,0x0127,0x012a,0x012d,0x012f,0x0138,0x014a,0x0155
059a ; --------------------------------------------------------------------------------------
059a ; Debug chain
059a ; --------------------------------------------------------------------------------------
059a 0002 0007  |    |		.DBGLEN	0x0002,0x0007
059c 015b 015d  | [ ]|		.DBGLNO	0x015b,0x015d,0x015f,0x0163,0x016c,0x016e,0x0171,0x0175,0x0179
05a5 ; --------------------------------------------------------------------------------------
05a5 ; Debug chain
05a5 ; --------------------------------------------------------------------------------------
05a5 0000 0018  |    |		.DBGLEN	0x0000,0x0018
05a7 0184 018a  |    |		.DBGLNO	0x0184,0x018a,0x018c,0x018f,0x0192,0x0193,0x0198,0x019e,0x01a0,0x01a2,0x01a4,0x01c5,0x01cf,0x01d2,0x01d8,0x01e2,0x01e5,0x01e9,0x01ed,0x01f7,0x01fa,0x01fd,0x0201,0x0203
05bf 0002 0003  |    |		.XXX[0x18]
05c1 0004 0005  |    |
05c3 0006 0007  |    |
05c5 0008 0009  |    |
05c7 000a 000b  |    |
05c9 000c 000d  |    |
05cb 000e 000f  |    |
05cd 0010 0011  |    |
05cf 0012 0013  |    |
05d1 0014 0015  |    |
05d3 0016 0017  |    |
05d5 0018 001a  |    |
05d7 ; --------------------------------------------------------------------------------------
05d7 ; Debug chain
05d7 ; --------------------------------------------------------------------------------------
05d7 0001 0016  |    |		.DBGLEN	0x0001,0x0016
05d9 020b 020d  |    |		.DBGLNO	0x020b,0x020d,0x0212,0x0223,0x023c,0x023e,0x0242,0x0247,0x024a,0x024e,0x0253,0x0255,0x025b,0x0274,0x0275,0x0278,0x027b,0x027d,0x0281,0x0287,0x0289,0x028c,0x0294
05f0 0001 0004  |    |		.XXX[0x16]
05f2 0006 0008  |    |
05f4 0009 000a  |    |
05f6 0007 000c  |    |
05f8 0005 000d  |    |
05fa 000e 0010  |    |
05fc 0011 0012  |    |
05fe 0013 0015  |    |
0600 0016 000f  |    |
0602 0002 0003  |    |
0604 0017 0018  |    |
0606 ; --------------------------------------------------------------------------------------
0606 ; Debug chain
0606 ; --------------------------------------------------------------------------------------
0606 0000 000a  |    |		.DBGLEN	0x0000,0x000a
0608 029b 02a0  |    |		.DBGLNO	0x029b,0x02a0,0x02e4,0x02ef,0x02f9,0x02fd,0x0302,0x0305,0x030d,0x030f
0612 0001 0003  |    |		.XXX[0xa]
0614 0005 0006  |    |
0616 0008 0002  |    |
0618 0009 000a  |    |
061a 000b 000c  |    |
061c ; --------------------------------------------------------------------------------------
061c ; Debug chain
061c ; --------------------------------------------------------------------------------------
061c 0001 000e  |    |		.DBGLEN	0x0001,0x000e
061e 031b 031d  |    |		.DBGLNO	0x031b,0x031d,0x031e,0x0321,0x0323,0x0325,0x0326,0x0327,0x032a,0x032c,0x032d,0x032e,0x0332,0x033c,0x034a
062d ; --------------------------------------------------------------------------------------
062d ; Debug chain
062d ; --------------------------------------------------------------------------------------
062d 0007 0029  |   )|		.DBGLEN	0x0007,0x0029
062f 0353 0355  | S U|		.DBGLNO	0x0353,0x0355,0x0357,0x0358,0x0359,0x035b,0x035d,0x0360,0x0363,0x0365,0x0367,0x036b,0x036c,0x036f,0x0373,0x0375,0x0377,0x0378,0x0379,0x0381,0x0383,0x0388,0x038c,0x0391,0x0395,0x039a,0x039c,0x03a2,0x03af,0x03b3,0x03bc,0x03c1,0x03c6,0x03d8,0x03dd,0x03e1,0x03e6,0x03ee,0x03f2,0x03f7,0x03f9,0x03fe,0x0405,0x040d,0x042d,0x0435,0x0439,0x043e
065f 0002 0003  |    |		.XXX[0x29]
0661 0004 0001  |    |
0663 0006 0007  |    |
0665 0008 0009  |    |
0667 000a 000b  |    |
0669 000c 000d  |    |
066b 000f 0010  |    |
066d 0011 0012  |    |
066f 0013 0014  |    |
0671 0015 0016  |    |
0673 0017 0018  |    |
0675 0019 001c  |    |
0677 001d 001a  |    |
0679 001b 001f  |    |
067b 0020 000e  |    |
067d 0022 0023  | " #|
067f 0024 0025  | $ %|
0681 0026 0027  | & '|
0683 0028 0029  | ( )|
0685 002a 002b  | * +|
0687 0021       | !  |
0688 ; --------------------------------------------------------------------------------------
0688 ; Debug chain
0688 ; --------------------------------------------------------------------------------------
0688 0001 0014  |    |		.DBGLEN	0x0001,0x0014
068a 0453 0457  | S W|		.DBGLNO	0x0453,0x0457,0x045e,0x0462,0x0466,0x046a,0x046d,0x047f,0x0486,0x048a,0x048e,0x0492,0x0495,0x0499,0x04a1,0x04a6,0x04aa,0x04b0,0x04bb,0x04bf,0x04c3
069f 0000 0000  |    |		.BLANK	0000[0x161]