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

⟦1d7f89a8c⟧

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

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 0368       | h  |		.CONST	0x0368								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0041       | A  |		.CONST	0x0041								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0080       |    |		.CONST	0x0080								; Number of locals
000b			INIT_0008:
000b 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
000d e001       |    |		Load	0x0,0x1
000e 0129       | )  |		Execute	Any,Make_Visible
000f 00bf       |    |		Action	Accept_Activation
0010 e002       |    |		Load	0x0,0x2
0011 e003       |    |		Load	0x0,0x3
0012 e004       |    |		Load	0x0,0x4
0013 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0014 e005       |    |		Load	0x0,0x5
0015 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0016 e006       |    |		Load	0x0,0x6
0017 0387       |    |		Declare_Variable	Package
0018 00d8       |    |		Load_Top	At_Offset_0
0019 020f       |    |		Execute	Module,Activate
001a e004       |    |		Load	0x0,0x4
001b 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
001c 0322       | "  |		Declare_Variable	Record
001d 00d8       |    |		Load_Top	At_Offset_0
001e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001f e007       |    |		Load	0x0,0x7
0020 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0021 029d 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call
0023 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call
0025 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
0027 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
0029 029b 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Unelaborated
002b 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
002e 00c6       |    |		Action	Check_Subprogram_Elaborated
002f 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
0030 0092 035d  |   ]|		Action	Push_String_Extended,0x35d					; "FIRST"
0032 e008       |    |		Load	0x0,0x8
0033 e009       |    |		Load	0x0,0x9
0034 4800       |H   |		Short_Literal	0x0
0035 0007       |    |		Action	Break_Optional
0036 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
0037 00c6       |    |		Action	Check_Subprogram_Elaborated
0038 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
0039 0092 035d  |   ]|		Action	Push_String_Extended,0x35d					; "FIRST"
003b e00a       |    |		Load	0x0,0xa
003c e00b       |    |		Load	0x0,0xb
003d 4800       |H   |		Short_Literal	0x0
003e 0007       |    |		Action	Break_Optional
003f 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
0040 00c7       |    |		Action	Elaborate_Subprogram
0041			BODY_0008:
0041 e20f       |    |		Load	0x1,0xf
0042 e007       |    |		Load	0x0,0x7
0043 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0044 a271       | q  |		Store_Unchecked	0x1,0x71
0045 e212       |    |		Load	0x1,0x12
0046 4801       |H   |		Short_Literal	0x1
0047 e271       | q  |		Load	0x1,0x71
0048 e007       |    |		Load	0x0,0x7
0049 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
004a e215       |    |		Load	0x1,0x15
004b 4802       |H   |		Short_Literal	0x2
004c e271       | q  |		Load	0x1,0x71
004d e007       |    |		Load	0x0,0x7
004e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
004f e218       |    |		Load	0x1,0x18
0050 4803       |H   |		Short_Literal	0x3
0051 e271       | q  |		Load	0x1,0x71
0052 e007       |    |		Load	0x0,0x7
0053 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0054 e21b       |    |		Load	0x1,0x1b
0055 4804       |H   |		Short_Literal	0x4
0056 e271       | q  |		Load	0x1,0x71
0057 e007       |    |		Load	0x0,0x7
0058 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0059 e21e       |    |		Load	0x1,0x1e
005a 4805       |H   |		Short_Literal	0x5
005b e271       | q  |		Load	0x1,0x71
005c e007       |    |		Load	0x0,0x7
005d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
005e e221       | !  |		Load	0x1,0x21
005f 4806       |H   |		Short_Literal	0x6
0060 e271       | q  |		Load	0x1,0x71
0061 e007       |    |		Load	0x0,0x7
0062 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0063 e224       | $  |		Load	0x1,0x24
0064 4807       |H   |		Short_Literal	0x7
0065 e271       | q  |		Load	0x1,0x71
0066 e007       |    |		Load	0x0,0x7
0067 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0068 e227       | '  |		Load	0x1,0x27
0069 4808       |H   |		Short_Literal	0x8
006a e271       | q  |		Load	0x1,0x71
006b e007       |    |		Load	0x0,0x7
006c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
006d e22a       | *  |		Load	0x1,0x2a
006e 4809       |H   |		Short_Literal	0x9
006f e271       | q  |		Load	0x1,0x71
0070 e007       |    |		Load	0x0,0x7
0071 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0072 e22d       | -  |		Load	0x1,0x2d
0073 480a       |H   |		Short_Literal	0xa
0074 e271       | q  |		Load	0x1,0x71
0075 e007       |    |		Load	0x0,0x7
0076 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0077 e230       | 0  |		Load	0x1,0x30
0078 480b       |H   |		Short_Literal	0xb
0079 e271       | q  |		Load	0x1,0x71
007a e007       |    |		Load	0x0,0x7
007b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
007c e233       | 3  |		Load	0x1,0x33
007d 480c       |H   |		Short_Literal	0xc
007e e271       | q  |		Load	0x1,0x71
007f e007       |    |		Load	0x0,0x7
0080 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0081 e236       | 6  |		Load	0x1,0x36
0082 480d       |H   |		Short_Literal	0xd
0083 e271       | q  |		Load	0x1,0x71
0084 e007       |    |		Load	0x0,0x7
0085 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0086 e239       | 9  |		Load	0x1,0x39
0087 480e       |H   |		Short_Literal	0xe
0088 e271       | q  |		Load	0x1,0x71
0089 e007       |    |		Load	0x0,0x7
008a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
008b e23c       | <  |		Load	0x1,0x3c
008c 480f       |H   |		Short_Literal	0xf
008d e271       | q  |		Load	0x1,0x71
008e e007       |    |		Load	0x0,0x7
008f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0090 e23f       | ?  |		Load	0x1,0x3f
0091 4810       |H   |		Short_Literal	0x10
0092 e271       | q  |		Load	0x1,0x71
0093 e007       |    |		Load	0x0,0x7
0094 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0095 e242       | B  |		Load	0x1,0x42
0096 4811       |H   |		Short_Literal	0x11
0097 e271       | q  |		Load	0x1,0x71
0098 e007       |    |		Load	0x0,0x7
0099 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
009a e245       | E  |		Load	0x1,0x45
009b 4812       |H   |		Short_Literal	0x12
009c e271       | q  |		Load	0x1,0x71
009d e007       |    |		Load	0x0,0x7
009e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
009f e248       | H  |		Load	0x1,0x48
00a0 4813       |H   |		Short_Literal	0x13
00a1 e271       | q  |		Load	0x1,0x71
00a2 e007       |    |		Load	0x0,0x7
00a3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00a4 e24b       | K  |		Load	0x1,0x4b
00a5 4814       |H   |		Short_Literal	0x14
00a6 e271       | q  |		Load	0x1,0x71
00a7 e007       |    |		Load	0x0,0x7
00a8 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00a9 e24e       | N  |		Load	0x1,0x4e
00aa 4815       |H   |		Short_Literal	0x15
00ab e271       | q  |		Load	0x1,0x71
00ac e007       |    |		Load	0x0,0x7
00ad 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00ae e251       | Q  |		Load	0x1,0x51
00af 4816       |H   |		Short_Literal	0x16
00b0 e271       | q  |		Load	0x1,0x71
00b1 e007       |    |		Load	0x0,0x7
00b2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00b3 e254       | T  |		Load	0x1,0x54
00b4 4817       |H   |		Short_Literal	0x17
00b5 e271       | q  |		Load	0x1,0x71
00b6 e007       |    |		Load	0x0,0x7
00b7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00b8 e257       | W  |		Load	0x1,0x57
00b9 4818       |H   |		Short_Literal	0x18
00ba e271       | q  |		Load	0x1,0x71
00bb e007       |    |		Load	0x0,0x7
00bc 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00bd e25a       | Z  |		Load	0x1,0x5a
00be 4819       |H   |		Short_Literal	0x19
00bf e271       | q  |		Load	0x1,0x71
00c0 e007       |    |		Load	0x0,0x7
00c1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00c2 e25d       | ]  |		Load	0x1,0x5d
00c3 481a       |H   |		Short_Literal	0x1a
00c4 e271       | q  |		Load	0x1,0x71
00c5 e007       |    |		Load	0x0,0x7
00c6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00c7 e260       | `  |		Load	0x1,0x60
00c8 481b       |H   |		Short_Literal	0x1b
00c9 e271       | q  |		Load	0x1,0x71
00ca e007       |    |		Load	0x0,0x7
00cb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00cc e263       | c  |		Load	0x1,0x63
00cd 481c       |H   |		Short_Literal	0x1c
00ce e271       | q  |		Load	0x1,0x71
00cf e007       |    |		Load	0x0,0x7
00d0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00d1 e266       | f  |		Load	0x1,0x66
00d2 481d       |H   |		Short_Literal	0x1d
00d3 e271       | q  |		Load	0x1,0x71
00d4 e007       |    |		Load	0x0,0x7
00d5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00d6 e269       | i  |		Load	0x1,0x69
00d7 481e       |H   |		Short_Literal	0x1e
00d8 e271       | q  |		Load	0x1,0x71
00d9 e007       |    |		Load	0x0,0x7
00da 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00db e211       |    |		Load	0x1,0x11
00dc 6809       |h   |		Jump_Zero	0xe6
00dd 4800       |H   |		Short_Literal	0x0
00de e00c       |    |		Load	0x0,0xc
00df 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00e0 4800       |H   |		Short_Literal	0x0
00e1 e00c       |    |		Load	0x0,0xc
00e2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00e3 e271       | q  |		Load	0x1,0x71
00e4 e00c       |    |		Load	0x0,0xc
00e5 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00e6 00bc       |    |		Action	Signal_Activated
00e7 00bb       |    |		Action	Signal_Completion
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e210       |    |		Load	0x1,0x10
00ec 0f03       |    |		Execute_Immediate	Equal,0x3
00ed 6811       |h   |		Jump_Zero	0xff
00ee e211       |    |		Load	0x1,0x11
00ef 6809       |h   |		Jump_Zero	0xf9
00f0 e271       | q  |		Load	0x1,0x71
00f1 e00c       |    |		Load	0x0,0xc
00f2 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
00f5 e27d       | }  |		Load	0x1,0x7d
00f6 1d7e       | ~  |		Execute_Immediate	Reference_Lex_1,0x7e
00f7 8276       | v  |		Call	0x1,0x76
00f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f9 00da       |    |		Load_Top	At_Offset_2
00fa 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
00fb e278       | x  |		Load	0x1,0x78
00fc 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
00fd 8276       | v  |		Call	0x1,0x76
00fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ff e26e       | n  |		Load	0x1,0x6e
0100 0257       | W  |		Execute	Discrete,Raise
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0112       |    |		.CONST	0x0112								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0003       |    |		.CONST	0x0003								; Number of locals
010b			INIT_0108:
010b e26f       | o  |		Load	0x1,0x6f
010c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
010d 0322       | "  |		Declare_Variable	Record
010e 00d8       |    |		Load_Top	At_Offset_0
010f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0110 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
0112			BODY_0108:
0112 e5ff       |    |		Load	0x2,-0x1
0113 e271       | q  |		Load	0x1,0x71
0114 e007       |    |		Load	0x0,0x7
0115 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0116 70d4       |p   |		Jump_Nonzero	0x1eb
0117 e5ff       |    |		Load	0x2,-0x1
0118 461e       |F   |		Jump_Case	0x1f
0119 78d1       |x   |		Jump	0x1eb								; case 0x0
011a 78cb       |x   |		Jump	0x1e6								; case 0x1
011b 7822       |x"  |		Jump	0x13e								; case 0x2
011c 7827       |x'  |		Jump	0x144								; case 0x3
011d 782c       |x,  |		Jump	0x14a								; case 0x4
011e 7831       |x1  |		Jump	0x150								; case 0x5
011f 7836       |x6  |		Jump	0x156								; case 0x6
0120 783b       |x;  |		Jump	0x15c								; case 0x7
0121 7840       |x@  |		Jump	0x162								; case 0x8
0122 7845       |xE  |		Jump	0x168								; case 0x9
0123 784a       |xJ  |		Jump	0x16e								; case 0xa
0124 784f       |xO  |		Jump	0x174								; case 0xb
0125 7854       |xT  |		Jump	0x17a								; case 0xc
0126 7859       |xY  |		Jump	0x180								; case 0xd
0127 785e       |x^  |		Jump	0x186								; case 0xe
0128 7863       |xc  |		Jump	0x18c								; case 0xf
0129 7868       |xh  |		Jump	0x192								; case 0x10
012a 786d       |xm  |		Jump	0x198								; case 0x11
012b 7872       |xr  |		Jump	0x19e								; case 0x12
012c 7877       |xw  |		Jump	0x1a4								; case 0x13
012d 787c       |x|  |		Jump	0x1aa								; case 0x14
012e 7881       |x   |		Jump	0x1b0								; case 0x15
012f 7886       |x   |		Jump	0x1b6								; case 0x16
0130 788b       |x   |		Jump	0x1bc								; case 0x17
0131 7890       |x   |		Jump	0x1c2								; case 0x18
0132 7895       |x   |		Jump	0x1c8								; case 0x19
0133 789a       |x   |		Jump	0x1ce								; case 0x1a
0134 789f       |x   |		Jump	0x1d4								; case 0x1b
0135 78a4       |x   |		Jump	0x1da								; case 0x1c
0136 78a9       |x   |		Jump	0x1e0								; case 0x1d
0137 7800       |x   |		Jump	0x138								; case 0x1e
0138 826a       | j  |		Call	0x1,0x6a
0139 e26f       | o  |		Load	0x1,0x6f
013a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
013b 00da       |    |		Load_Top	At_Offset_2
013c 017d       | }  |		Execute	Record,Structure_Write
013d 78ad       |x   |		Jump	0x1eb
013e 8216       |    |		Call	0x1,0x16
013f e26f       | o  |		Load	0x1,0x6f
0140 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0141 00da       |    |		Load_Top	At_Offset_2
0142 017d       | }  |		Execute	Record,Structure_Write
0143 78a7       |x   |		Jump	0x1eb
0144 8219       |    |		Call	0x1,0x19
0145 e26f       | o  |		Load	0x1,0x6f
0146 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0147 00da       |    |		Load_Top	At_Offset_2
0148 017d       | }  |		Execute	Record,Structure_Write
0149 78a1       |x   |		Jump	0x1eb
014a 821c       |    |		Call	0x1,0x1c
014b e26f       | o  |		Load	0x1,0x6f
014c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
014d 00da       |    |		Load_Top	At_Offset_2
014e 017d       | }  |		Execute	Record,Structure_Write
014f 789b       |x   |		Jump	0x1eb
0150 821f       |    |		Call	0x1,0x1f
0151 e26f       | o  |		Load	0x1,0x6f
0152 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0153 00da       |    |		Load_Top	At_Offset_2
0154 017d       | }  |		Execute	Record,Structure_Write
0155 7895       |x   |		Jump	0x1eb
0156 8222       | "  |		Call	0x1,0x22
0157 e26f       | o  |		Load	0x1,0x6f
0158 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0159 00da       |    |		Load_Top	At_Offset_2
015a 017d       | }  |		Execute	Record,Structure_Write
015b 788f       |x   |		Jump	0x1eb
015c 8225       | %  |		Call	0x1,0x25
015d e26f       | o  |		Load	0x1,0x6f
015e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
015f 00da       |    |		Load_Top	At_Offset_2
0160 017d       | }  |		Execute	Record,Structure_Write
0161 7889       |x   |		Jump	0x1eb
0162 8228       | (  |		Call	0x1,0x28
0163 e26f       | o  |		Load	0x1,0x6f
0164 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0165 00da       |    |		Load_Top	At_Offset_2
0166 017d       | }  |		Execute	Record,Structure_Write
0167 7883       |x   |		Jump	0x1eb
0168 822b       | +  |		Call	0x1,0x2b
0169 e26f       | o  |		Load	0x1,0x6f
016a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
016b 00da       |    |		Load_Top	At_Offset_2
016c 017d       | }  |		Execute	Record,Structure_Write
016d 787d       |x}  |		Jump	0x1eb
016e 822e       | .  |		Call	0x1,0x2e
016f e26f       | o  |		Load	0x1,0x6f
0170 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0171 00da       |    |		Load_Top	At_Offset_2
0172 017d       | }  |		Execute	Record,Structure_Write
0173 7877       |xw  |		Jump	0x1eb
0174 8231       | 1  |		Call	0x1,0x31
0175 e26f       | o  |		Load	0x1,0x6f
0176 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0177 00da       |    |		Load_Top	At_Offset_2
0178 017d       | }  |		Execute	Record,Structure_Write
0179 7871       |xq  |		Jump	0x1eb
017a 8234       | 4  |		Call	0x1,0x34
017b e26f       | o  |		Load	0x1,0x6f
017c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
017d 00da       |    |		Load_Top	At_Offset_2
017e 017d       | }  |		Execute	Record,Structure_Write
017f 786b       |xk  |		Jump	0x1eb
0180 8237       | 7  |		Call	0x1,0x37
0181 e26f       | o  |		Load	0x1,0x6f
0182 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0183 00da       |    |		Load_Top	At_Offset_2
0184 017d       | }  |		Execute	Record,Structure_Write
0185 7865       |xe  |		Jump	0x1eb
0186 823a       | :  |		Call	0x1,0x3a
0187 e26f       | o  |		Load	0x1,0x6f
0188 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0189 00da       |    |		Load_Top	At_Offset_2
018a 017d       | }  |		Execute	Record,Structure_Write
018b 785f       |x_  |		Jump	0x1eb
018c 823d       | =  |		Call	0x1,0x3d
018d e26f       | o  |		Load	0x1,0x6f
018e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
018f 00da       |    |		Load_Top	At_Offset_2
0190 017d       | }  |		Execute	Record,Structure_Write
0191 7859       |xY  |		Jump	0x1eb
0192 8240       | @  |		Call	0x1,0x40
0193 e26f       | o  |		Load	0x1,0x6f
0194 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0195 00da       |    |		Load_Top	At_Offset_2
0196 017d       | }  |		Execute	Record,Structure_Write
0197 7853       |xS  |		Jump	0x1eb
0198 8243       | C  |		Call	0x1,0x43
0199 e26f       | o  |		Load	0x1,0x6f
019a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
019b 00da       |    |		Load_Top	At_Offset_2
019c 017d       | }  |		Execute	Record,Structure_Write
019d 784d       |xM  |		Jump	0x1eb
019e 8246       | F  |		Call	0x1,0x46
019f e26f       | o  |		Load	0x1,0x6f
01a0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01a1 00da       |    |		Load_Top	At_Offset_2
01a2 017d       | }  |		Execute	Record,Structure_Write
01a3 7847       |xG  |		Jump	0x1eb
01a4 8249       | I  |		Call	0x1,0x49
01a5 e26f       | o  |		Load	0x1,0x6f
01a6 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 017d       | }  |		Execute	Record,Structure_Write
01a9 7841       |xA  |		Jump	0x1eb
01aa 824c       | L  |		Call	0x1,0x4c
01ab e26f       | o  |		Load	0x1,0x6f
01ac 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ad 00da       |    |		Load_Top	At_Offset_2
01ae 017d       | }  |		Execute	Record,Structure_Write
01af 783b       |x;  |		Jump	0x1eb
01b0 824f       | O  |		Call	0x1,0x4f
01b1 e26f       | o  |		Load	0x1,0x6f
01b2 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 017d       | }  |		Execute	Record,Structure_Write
01b5 7835       |x5  |		Jump	0x1eb
01b6 8252       | R  |		Call	0x1,0x52
01b7 e26f       | o  |		Load	0x1,0x6f
01b8 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 017d       | }  |		Execute	Record,Structure_Write
01bb 782f       |x/  |		Jump	0x1eb
01bc 8255       | U  |		Call	0x1,0x55
01bd e26f       | o  |		Load	0x1,0x6f
01be 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01bf 00da       |    |		Load_Top	At_Offset_2
01c0 017d       | }  |		Execute	Record,Structure_Write
01c1 7829       |x)  |		Jump	0x1eb
01c2 8258       | X  |		Call	0x1,0x58
01c3 e26f       | o  |		Load	0x1,0x6f
01c4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01c5 00da       |    |		Load_Top	At_Offset_2
01c6 017d       | }  |		Execute	Record,Structure_Write
01c7 7823       |x#  |		Jump	0x1eb
01c8 825b       | [  |		Call	0x1,0x5b
01c9 e26f       | o  |		Load	0x1,0x6f
01ca 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 017d       | }  |		Execute	Record,Structure_Write
01cd 781d       |x   |		Jump	0x1eb
01ce 825e       | ^  |		Call	0x1,0x5e
01cf e26f       | o  |		Load	0x1,0x6f
01d0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01d1 00da       |    |		Load_Top	At_Offset_2
01d2 017d       | }  |		Execute	Record,Structure_Write
01d3 7817       |x   |		Jump	0x1eb
01d4 8261       | a  |		Call	0x1,0x61
01d5 e26f       | o  |		Load	0x1,0x6f
01d6 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 017d       | }  |		Execute	Record,Structure_Write
01d9 7811       |x   |		Jump	0x1eb
01da 8264       | d  |		Call	0x1,0x64
01db e26f       | o  |		Load	0x1,0x6f
01dc 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01dd 00da       |    |		Load_Top	At_Offset_2
01de 017d       | }  |		Execute	Record,Structure_Write
01df 780b       |x   |		Jump	0x1eb
01e0 8267       | g  |		Call	0x1,0x67
01e1 e26f       | o  |		Load	0x1,0x6f
01e2 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 017d       | }  |		Execute	Record,Structure_Write
01e5 7805       |x   |		Jump	0x1eb
01e6 8213       |    |		Call	0x1,0x13
01e7 e26f       | o  |		Load	0x1,0x6f
01e8 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01e9 00da       |    |		Load_Top	At_Offset_2
01ea 017d       | }  |		Execute	Record,Structure_Write
01eb 8403       |    |		Call	0x2,0x3
01ec 0831       | 1  |		Execute_Immediate	Raise,0x31
01ed 0000 0000  |    |		.XXX[0x3]
01ef 0000       |    |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 461e       |F   |		Jump_Case	0x1f
01f5 7877       |xw  |		Jump	0x26d								; case 0x0
01f6 7874       |xt  |		Jump	0x26b								; case 0x1
01f7 781f       |x   |		Jump	0x217								; case 0x2
01f8 7821       |x!  |		Jump	0x21a								; case 0x3
01f9 7823       |x#  |		Jump	0x21d								; case 0x4
01fa 7825       |x%  |		Jump	0x220								; case 0x5
01fb 7827       |x'  |		Jump	0x223								; case 0x6
01fc 7829       |x)  |		Jump	0x226								; case 0x7
01fd 782b       |x+  |		Jump	0x229								; case 0x8
01fe 782d       |x-  |		Jump	0x22c								; case 0x9
01ff 782f       |x/  |		Jump	0x22f								; case 0xa
0200 7831       |x1  |		Jump	0x232								; case 0xb
0201 7833       |x3  |		Jump	0x235								; case 0xc
0202 7835       |x5  |		Jump	0x238								; case 0xd
0203 7837       |x7  |		Jump	0x23b								; case 0xe
0204 7839       |x9  |		Jump	0x23e								; case 0xf
0205 783b       |x;  |		Jump	0x241								; case 0x10
0206 783d       |x=  |		Jump	0x244								; case 0x11
0207 783f       |x?  |		Jump	0x247								; case 0x12
0208 7841       |xA  |		Jump	0x24a								; case 0x13
0209 7843       |xC  |		Jump	0x24d								; case 0x14
020a 7845       |xE  |		Jump	0x250								; case 0x15
020b 7847       |xG  |		Jump	0x253								; case 0x16
020c 7849       |xI  |		Jump	0x256								; case 0x17
020d 784b       |xK  |		Jump	0x259								; case 0x18
020e 784d       |xM  |		Jump	0x25c								; case 0x19
020f 784f       |xO  |		Jump	0x25f								; case 0x1a
0210 7851       |xQ  |		Jump	0x262								; case 0x1b
0211 7853       |xS  |		Jump	0x265								; case 0x1c
0212 7855       |xU  |		Jump	0x268								; case 0x1d
0213 7800       |x   |		Jump	0x214								; case 0x1e
0214 00da       |    |		Load_Top	At_Offset_2
0215 826b       | k  |		Call	0x1,0x6b
0216 7856       |xV  |		Jump	0x26d
0217 00da       |    |		Load_Top	At_Offset_2
0218 8217       |    |		Call	0x1,0x17
0219 7853       |xS  |		Jump	0x26d
021a 00da       |    |		Load_Top	At_Offset_2
021b 821a       |    |		Call	0x1,0x1a
021c 7850       |xP  |		Jump	0x26d
021d 00da       |    |		Load_Top	At_Offset_2
021e 821d       |    |		Call	0x1,0x1d
021f 784d       |xM  |		Jump	0x26d
0220 00da       |    |		Load_Top	At_Offset_2
0221 8220       |    |		Call	0x1,0x20
0222 784a       |xJ  |		Jump	0x26d
0223 00da       |    |		Load_Top	At_Offset_2
0224 8223       | #  |		Call	0x1,0x23
0225 7847       |xG  |		Jump	0x26d
0226 00da       |    |		Load_Top	At_Offset_2
0227 8226       | &  |		Call	0x1,0x26
0228 7844       |xD  |		Jump	0x26d
0229 00da       |    |		Load_Top	At_Offset_2
022a 8229       | )  |		Call	0x1,0x29
022b 7841       |xA  |		Jump	0x26d
022c 00da       |    |		Load_Top	At_Offset_2
022d 822c       | ,  |		Call	0x1,0x2c
022e 783e       |x>  |		Jump	0x26d
022f 00da       |    |		Load_Top	At_Offset_2
0230 822f       | /  |		Call	0x1,0x2f
0231 783b       |x;  |		Jump	0x26d
0232 00da       |    |		Load_Top	At_Offset_2
0233 8232       | 2  |		Call	0x1,0x32
0234 7838       |x8  |		Jump	0x26d
0235 00da       |    |		Load_Top	At_Offset_2
0236 8235       | 5  |		Call	0x1,0x35
0237 7835       |x5  |		Jump	0x26d
0238 00da       |    |		Load_Top	At_Offset_2
0239 8238       | 8  |		Call	0x1,0x38
023a 7832       |x2  |		Jump	0x26d
023b 00da       |    |		Load_Top	At_Offset_2
023c 823b       | ;  |		Call	0x1,0x3b
023d 782f       |x/  |		Jump	0x26d
023e 00da       |    |		Load_Top	At_Offset_2
023f 823e       | >  |		Call	0x1,0x3e
0240 782c       |x,  |		Jump	0x26d
0241 00da       |    |		Load_Top	At_Offset_2
0242 8241       | A  |		Call	0x1,0x41
0243 7829       |x)  |		Jump	0x26d
0244 00da       |    |		Load_Top	At_Offset_2
0245 8244       | D  |		Call	0x1,0x44
0246 7826       |x&  |		Jump	0x26d
0247 00da       |    |		Load_Top	At_Offset_2
0248 8247       | G  |		Call	0x1,0x47
0249 7823       |x#  |		Jump	0x26d
024a 00da       |    |		Load_Top	At_Offset_2
024b 824a       | J  |		Call	0x1,0x4a
024c 7820       |x   |		Jump	0x26d
024d 00da       |    |		Load_Top	At_Offset_2
024e 824d       | M  |		Call	0x1,0x4d
024f 781d       |x   |		Jump	0x26d
0250 00da       |    |		Load_Top	At_Offset_2
0251 8250       | P  |		Call	0x1,0x50
0252 781a       |x   |		Jump	0x26d
0253 00da       |    |		Load_Top	At_Offset_2
0254 8253       | S  |		Call	0x1,0x53
0255 7817       |x   |		Jump	0x26d
0256 00da       |    |		Load_Top	At_Offset_2
0257 8256       | V  |		Call	0x1,0x56
0258 7814       |x   |		Jump	0x26d
0259 00da       |    |		Load_Top	At_Offset_2
025a 8259       | Y  |		Call	0x1,0x59
025b 7811       |x   |		Jump	0x26d
025c 00da       |    |		Load_Top	At_Offset_2
025d 825c       | \  |		Call	0x1,0x5c
025e 780e       |x   |		Jump	0x26d
025f 00da       |    |		Load_Top	At_Offset_2
0260 825f       | _  |		Call	0x1,0x5f
0261 780b       |x   |		Jump	0x26d
0262 00da       |    |		Load_Top	At_Offset_2
0263 8262       | b  |		Call	0x1,0x62
0264 7808       |x   |		Jump	0x26d
0265 00da       |    |		Load_Top	At_Offset_2
0266 8265       | e  |		Call	0x1,0x65
0267 7805       |x   |		Jump	0x26d
0268 00da       |    |		Load_Top	At_Offset_2
0269 8268       | h  |		Call	0x1,0x68
026a 7802       |x   |		Jump	0x26d
026b 00da       |    |		Load_Top	At_Offset_2
026c 8214       |    |		Call	0x1,0x14
026d e211       |    |		Load	0x1,0x11
026e 6815       |h   |		Jump_Zero	0x284
026f 00db       |    |		Load_Top	At_Offset_3
0270 680d       |h   |		Jump_Zero	0x27e
0271 4806       |H   |		Short_Literal	0x6
0272 e00c       |    |		Load	0x0,0xc
0273 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0274 4808       |H   |		Short_Literal	0x8
0275 e00c       |    |		Load	0x0,0xc
0276 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0277 0278       | x  |		Execute	Discrete,Or
0278 6805       |h   |		Jump_Zero	0x27e
0279 00da       |    |		Load_Top	At_Offset_2
027a e5fe       |    |		Load	0x2,-0x2
027b e271       | q  |		Load	0x1,0x71
027c e00c       |    |		Load	0x0,0xc
027d 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
027e e00c       |    |		Load	0x0,0xc
027f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0280 00db       |    |		Load_Top	At_Offset_3
0281 7002       |p   |		Jump_Nonzero	0x284
0282 e00c       |    |		Load	0x0,0xc
0283 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0284 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d       |    |		.CONST	0x028d								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0002       |    |		.CONST	0x0002								; Number of locals
028b			INIT_0288:
028b 00e1       |    |		Load_Encached	Boolean_Cache
028c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
028d			BODY_0288:
028d e00c       |    |		Load	0x0,0xc
028e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
028f 00cf       |    |		Action	Mark_Auxiliary
0290 e26c       | l  |		Load	0x1,0x6c
0291 4801       |H   |		Short_Literal	0x1
0292 0263       | c  |		Execute	Discrete,Above_Bound
0293 703b       |p;  |		Jump_Nonzero	0x2cf
0294 00d8       |    |		Load_Top	At_Offset_0
0295 00d8       |    |		Load_Top	At_Offset_0
0296 e007       |    |		Load	0x0,0x7
0297 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0298 0260       | `  |		Execute	Discrete,In_Type
0299 7001       |p   |		Jump_Nonzero	0x29b
029a 0801       |    |		Execute_Immediate	Raise,0x1
029b 8272       | r  |		Call	0x1,0x72
029c e005       |    |		Load	0x0,0x5
029d 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
029e 682e       |h.  |		Jump_Zero	0x2cd
029f e00c       |    |		Load	0x0,0xc
02a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a1 00d8       |    |		Load_Top	At_Offset_0
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 e007       |    |		Load	0x0,0x7
02a4 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02a5 0260       | `  |		Execute	Discrete,In_Type
02a6 7001       |p   |		Jump_Nonzero	0x2a8
02a7 0801       |    |		Execute_Immediate	Raise,0x1
02a8 8272       | r  |		Call	0x1,0x72
02a9 e005       |    |		Load	0x0,0x5
02aa 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
02ab e270       | p  |		Load	0x1,0x70
02ac 017d       | }  |		Execute	Record,Structure_Write
02ad 4805       |H   |		Short_Literal	0x5
02ae e00c       |    |		Load	0x0,0xc
02af 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b0 4807       |H   |		Short_Literal	0x7
02b1 e00c       |    |		Load	0x0,0xc
02b2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b3 0278       | x  |		Execute	Discrete,Or
02b4 680b       |h   |		Jump_Zero	0x2c0
02b5 e270       | p  |		Load	0x1,0x70
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 e007       |    |		Load	0x0,0x7
02b9 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02ba 0260       | `  |		Execute	Discrete,In_Type
02bb 7001       |p   |		Jump_Nonzero	0x2bd
02bc 0801       |    |		Execute_Immediate	Raise,0x1
02bd e271       | q  |		Load	0x1,0x71
02be e00c       |    |		Load	0x0,0xc
02bf 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02c0 00d8       |    |		Load_Top	At_Offset_0
02c1 00d8       |    |		Load_Top	At_Offset_0
02c2 e007       |    |		Load	0x0,0x7
02c3 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02c4 0260       | `  |		Execute	Discrete,In_Type
02c5 7001       |p   |		Jump_Nonzero	0x2c7
02c6 0801       |    |		Execute_Immediate	Raise,0x1
02c7 e270       | p  |		Load	0x1,0x70
02c8 8273       | s  |		Call	0x1,0x73
02c9 4801       |H   |		Short_Literal	0x1
02ca a402       |    |		Store_Unchecked	0x2,0x2
02cb 00d2       |    |		Pop_Control	Pop_Count_2
02cc 7802       |x   |		Jump	0x2cf
02cd 00c8       |    |		Action	Pop_Auxiliary_Range
02ce 3fc5       |?   |		Loop_Increasing	0x294
02cf 00ce       |    |		Action	Pop_Auxiliary
02d0 e00c       |    |		Load	0x0,0xc
02d1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02d2 00d8       |    |		Load_Top	At_Offset_0
02d3 00ca       |    |		Action	Exit_Nullary_Function
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db 00e1       |    |		Load_Encached	Boolean_Cache
02dc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02dd			BODY_02d8:
02dd 00cf       |    |		Action	Mark_Auxiliary
02de e26c       | l  |		Load	0x1,0x6c
02df 4801       |H   |		Short_Literal	0x1
02e0 0263       | c  |		Execute	Discrete,Above_Bound
02e1 7026       |p&  |		Jump_Nonzero	0x308
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 00d8       |    |		Load_Top	At_Offset_0
02e4 e007       |    |		Load	0x0,0x7
02e5 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02e6 0260       | `  |		Execute	Discrete,In_Type
02e7 7001       |p   |		Jump_Nonzero	0x2e9
02e8 0801       |    |		Execute_Immediate	Raise,0x1
02e9 8272       | r  |		Call	0x1,0x72
02ea e005       |    |		Load	0x0,0x5
02eb 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
02ec 6819       |h   |		Jump_Zero	0x306
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef e007       |    |		Load	0x0,0x7
02f0 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02f1 0260       | `  |		Execute	Discrete,In_Type
02f2 7001       |p   |		Jump_Nonzero	0x2f4
02f3 0801       |    |		Execute_Immediate	Raise,0x1
02f4 8272       | r  |		Call	0x1,0x72
02f5 e005       |    |		Load	0x0,0x5
02f6 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
02f7 e270       | p  |		Load	0x1,0x70
02f8 017d       | }  |		Execute	Record,Structure_Write
02f9 00d8       |    |		Load_Top	At_Offset_0
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb e007       |    |		Load	0x0,0x7
02fc 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02fd 0260       | `  |		Execute	Discrete,In_Type
02fe 7001       |p   |		Jump_Nonzero	0x300
02ff 0801       |    |		Execute_Immediate	Raise,0x1
0300 e270       | p  |		Load	0x1,0x70
0301 8273       | s  |		Call	0x1,0x73
0302 4801       |H   |		Short_Literal	0x1
0303 a402       |    |		Store_Unchecked	0x2,0x2
0304 00d2       |    |		Pop_Control	Pop_Count_2
0305 7802       |x   |		Jump	0x308
0306 00c8       |    |		Action	Pop_Auxiliary_Range
0307 3fda       |?   |		Loop_Increasing	0x2e2
0308 00ce       |    |		Action	Pop_Auxiliary
0309 00d8       |    |		Load_Top	At_Offset_0
030a 00ca       |    |		Action	Exit_Nullary_Function
030b 0000 0000  |    |		.BLANK	0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0314       |    |		.CONST	0x0314								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0002       |    |		.CONST	0x0002								; Number of locals
0313			INIT_0310:
0313 00e1       |    |		Load_Encached	Boolean_Cache
0314			BODY_0310:
0314 e211       |    |		Load	0x1,0x11
0315 6803       |h   |		Jump_Zero	0x319
0316 4803       |H   |		Short_Literal	0x3
0317 e00c       |    |		Load	0x0,0xc
0318 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0319 e5fc       |    |		Load	0x2,-0x4
031a 601d       |`   |		Indirect_Literal	Discrete,0x338,{0x00000000, 0x7fffffff}
031b 027f       |    |		Execute	Discrete,Equal
031c 6809       |h   |		Jump_Zero	0x326
031d 00cf       |    |		Action	Mark_Auxiliary
031e 85fd       |    |		Call	0x2,-0x3
031f 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0320 00d9       |    |		Load_Top	At_Offset_1
0321 6802       |h   |		Jump_Zero	0x324
0322 00c9       |    |		Action	Pop_Auxiliary_Loop
0323 7ffa       |    |		Jump	0x31e
0324 00ce       |    |		Action	Pop_Auxiliary
0325 780e       |x   |		Jump	0x334
0326 00cf       |    |		Action	Mark_Auxiliary
0327 e5fc       |    |		Load	0x2,-0x4
0328 4801       |H   |		Short_Literal	0x1
0329 0263       | c  |		Execute	Discrete,Above_Bound
032a 7008       |p   |		Jump_Nonzero	0x333
032b 85fd       |    |		Call	0x2,-0x3
032c a402       |    |		Store_Unchecked	0x2,0x2
032d 00db       |    |		Load_Top	At_Offset_3
032e 7002       |p   |		Jump_Nonzero	0x331
032f 00d2       |    |		Pop_Control	Pop_Count_2
0330 7802       |x   |		Jump	0x333
0331 00c8       |    |		Action	Pop_Auxiliary_Range
0332 3ff8       |?   |		Loop_Increasing	0x32b
0333 00ce       |    |		Action	Pop_Auxiliary
0334 00d8       |    |		Load_Top	At_Offset_0
0335 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0336 0000 0000  |    |		.XXX[0x2]
0338 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0346       | F  |		.CONST	0x0346								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 e402       |    |		Load	0x2,0x2
0344 e26f       | o  |		Load	0x1,0x6f
0345 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0346			BODY_0340:
0346 e211       |    |		Load	0x1,0x11
0347 680e       |h   |		Jump_Zero	0x356
0348 e5ff       |    |		Load	0x2,-0x1
0349 680c       |h   |		Jump_Zero	0x356
034a 4804       |H   |		Short_Literal	0x4
034b e00c       |    |		Load	0x0,0xc
034c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
034d 6808       |h   |		Jump_Zero	0x356
034e 00d8       |    |		Load_Top	At_Offset_0
034f 00d9       |    |		Load_Top	At_Offset_1
0350 e005       |    |		Load	0x0,0x5
0351 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0352 e5ff       |    |		Load	0x2,-0x1
0353 e271       | q  |		Load	0x1,0x71
0354 e00c       |    |		Load	0x0,0xc
0355 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0356 e402       |    |		Load	0x2,0x2
0357 e26f       | o  |		Load	0x1,0x6f
0358 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0359 00d1       |    |		Pop_Control	Pop_Count_1
035a 00d8       |    |		Load_Top	At_Offset_0
035b 00cb       |    |		Action	Pop_Block_With_Result
035c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
035d ; --------------------------------------------------------------------------------------
035d ; STRING TABLE
035d ; --------------------------------------------------------------------------------------
035d 0004       |    |		.STRTAB	0x0004->0x035f							; "FIRST"
035e 0007       |    |		.STREND 0x0007->0x0361
035f 4649 5253  |FIRS|		.STRTAB_STRINGS
0362 0000 0000  |    |		.BLANK	0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug Table
0368 ; --------------------------------------------------------------------------------------
0368 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xdbe8,0x0000,0x0001,0x0009
036e 000b 0392  |    |		.DBG4T	0x000b,0x0392,0xc000,0x0000
0372 0010 0396  |    |		.DBG4T	0x0010,0x0396,0xc000,0x0000
0376 00eb 03c7  |    |		.DBG4T	0x00eb,0x03c7,0x1002,0x0000
037a 010b 03cf  |    |		.DBG4T	0x010b,0x03cf,0x1002,0x4000
037e 01f3 0414  |    |		.DBG4T	0x01f3,0x0414,0x1001,0x4000
0382 028b 0460  |   `|		.DBG4T	0x028b,0x0460,0x1002,0x0000
0386 02db 046f  |   o|		.DBG4T	0x02db,0x046f,0x1002,0x0000
038a 0313 0479  |   y|		.DBG4T	0x0313,0x0479,0x3802,0x4002
038e 0343 048e  | C  |		.DBG4T	0x0343,0x048e,0x1004,0x0000
0392 ; --------------------------------------------------------------------------------------
0392 ; Debug chain
0392 ; --------------------------------------------------------------------------------------
0392 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0394 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0396 ; --------------------------------------------------------------------------------------
0396 ; Debug chain
0396 ; --------------------------------------------------------------------------------------
0396 000c 0023  |   #|		.DBGLEN	0x000c,0x0023
0398 0010 001a  |    |		.DBGLNO	0x0010,0x001a,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x0036,0x003f,0x0041,0x0045,0x004a,0x004f,0x0054,0x0059,0x005e,0x0063,0x0068,0x006d,0x0072,0x0077,0x007c,0x0081,0x0086,0x008b,0x0090,0x0095,0x009a,0x009f,0x00a4,0x00a9,0x00ae,0x00b3,0x00b8,0x00bd,0x00c2,0x00c7,0x00cc,0x00d1,0x00d6,0x00db,0x00dd,0x00e0,0x00e3
03c7 ; --------------------------------------------------------------------------------------
03c7 ; Debug chain
03c7 ; --------------------------------------------------------------------------------------
03c7 0000 0006  |    |		.DBGLEN	0x0000,0x0006
03c9 00eb 00ee  |    |		.DBGLNO	0x00eb,0x00ee,0x00f0,0x00f3,0x00f9,0x00ff
03cf ; --------------------------------------------------------------------------------------
03cf ; Debug chain
03cf ; --------------------------------------------------------------------------------------
03cf 0001 0021  |   !|		.DBGLEN	0x0001,0x0021
03d1 010b 0112  |    |		.DBGLNO	0x010b,0x0112,0x0117,0x0138,0x013e,0x0144,0x014a,0x0150,0x0156,0x015c,0x0162,0x0168,0x016e,0x0174,0x017a,0x0180,0x0186,0x018c,0x0192,0x0198,0x019e,0x01a4,0x01aa,0x01b0,0x01b6,0x01bc,0x01c2,0x01c8,0x01ce,0x01d4,0x01da,0x01e0,0x01e6,0x01eb
03f3 0001 0002  |    |		.XXX[0x21]
03f5 0020 0004  |    |
03f7 0005 0006  |    |
03f9 0007 0008  |    |
03fb 0009 000a  |    |
03fd 000b 000c  |    |
03ff 000d 000e  |    |
0401 000f 0010  |    |
0403 0011 0012  |    |
0405 0013 0014  |    |
0407 0015 0016  |    |
0409 0017 0018  |    |
040b 0019 001a  |    |
040d 001b 001c  |    |
040f 001d 001e  |    |
0411 001f 0003  |    |
0413 0022       | "  |
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug chain
0414 ; --------------------------------------------------------------------------------------
0414 0000 0025  |   %|		.DBGLEN	0x0000,0x0025
0416 01f3 0214  |    |		.DBGLNO	0x01f3,0x0214,0x0217,0x021a,0x021d,0x0220,0x0223,0x0226,0x0229,0x022c,0x022f,0x0232,0x0235,0x0238,0x023b,0x023e,0x0241,0x0244,0x0247,0x024a,0x024d,0x0250,0x0253,0x0256,0x0259,0x025c,0x025f,0x0262,0x0265,0x0268,0x026b,0x026d,0x026f,0x0279,0x027e,0x0280,0x0282
043b 0001 001f  |    |		.XXX[0x25]
043d 0003 0004  |    |
043f 0005 0006  |    |
0441 0007 0008  |    |
0443 0009 000a  |    |
0445 000b 000c  |    |
0447 000d 000e  |    |
0449 000f 0010  |    |
044b 0011 0012  |    |
044d 0013 0014  |    |
044f 0015 0016  |    |
0451 0017 0018  |    |
0453 0019 001a  |    |
0455 001b 001c  |    |
0457 001d 001e  |    |
0459 0002 0021  |   !|
045b 0022 0023  | " #|
045d 0024 0025  | $ %|
045f 0026       | &  |
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0001 000c  |    |		.DBGLEN	0x0001,0x000c
0462 028b 028d  |    |		.DBGLNO	0x028b,0x028d,0x0290,0x0294,0x029f,0x02a1,0x02ad,0x02b5,0x02c0,0x02c9,0x02cb,0x02d0,0x02d2
046f ; --------------------------------------------------------------------------------------
046f ; Debug chain
046f ; --------------------------------------------------------------------------------------
046f 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0471 02db 02de  |    |		.DBGLNO	0x02db,0x02de,0x02e2,0x02ed,0x02f9,0x0302,0x0304,0x0309
0479 ; --------------------------------------------------------------------------------------
0479 ; Debug chain
0479 ; --------------------------------------------------------------------------------------
0479 0001 0009  |    |		.DBGLEN	0x0001,0x0009
047b 0313 0314  |    |		.DBGLNO	0x0313,0x0314,0x0316,0x0319,0x031e,0x0320,0x0327,0x032b,0x032d,0x0334
0485 0001 0002  |    |		.XXX[0x9]
0487 0003 0005  |    |
0489 0006 0007  |    |
048b 0008 0009  |    |
048d 000a       |    |
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0490 0343 0346  | C F|		.DBGLNO	0x0343,0x0346,0x0348,0x034e,0x0356,0x035a
0496 0000 0000  |    |		.BLANK	0000[0x16a]