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

⟦eda76f010⟧

    Length: 4096 (0x1000)
    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 04f0       |    |		.CONST	0x04f0								; 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 005d       | ]  |		.CONST	0x005d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0089       |    |		.CONST	0x0089								; Number of locals
000b			INIT_0008:
000b 029a 010b  |    |		Declare_Subprogram	INIT_0108,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 e007       |    |		Load	0x0,0x7
001b 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
001c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001d e004       |    |		Load	0x0,0x4
001e 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
001f 0322       | "  |		Declare_Variable	Record
0020 00d8       |    |		Load_Top	At_Offset_0
0021 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0022 e004       |    |		Load	0x0,0x4
0023 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0024 0322       | "  |		Declare_Variable	Record
0025 00d8       |    |		Load_Top	At_Offset_0
0026 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0027 e004       |    |		Load	0x0,0x4
0028 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0029 0322       | "  |		Declare_Variable	Record
002a 00d8       |    |		Load_Top	At_Offset_0
002b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002c e004       |    |		Load	0x0,0x4
002d 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
002e 0322       | "  |		Declare_Variable	Record
002f 00d8       |    |		Load_Top	At_Offset_0
0030 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0031 e007       |    |		Load	0x0,0x7
0032 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0033 029d 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call
0035 e004       |    |		Load	0x0,0x4
0036 1933       | 3  |		Execute	Package,Field_Reference,Field_Number 0x33
0037 00c6       |    |		Action	Check_Subprogram_Elaborated
0038 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
0039 e008       |    |		Load	0x0,0x8
003a e009       |    |		Load	0x0,0x9
003b 4800       |H   |		Short_Literal	0x0
003c 0007       |    |		Action	Break_Optional
003d 029d 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call
003f 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
0041 029d 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call
0043 029d 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call
0045 029b 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Unelaborated
0047 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
004a 00c6       |    |		Action	Check_Subprogram_Elaborated
004b 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
004c 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "///"
004e e00a       |    |		Load	0x0,0xa
004f e00b       |    |		Load	0x0,0xb
0050 4800       |H   |		Short_Literal	0x0
0051 0007       |    |		Action	Break_Optional
0052 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
0053 00c6       |    |		Action	Check_Subprogram_Elaborated
0054 1d7e       | ~  |		Execute_Immediate	Reference_Lex_1,0x7e
0055 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "///"
0057 e00c       |    |		Load	0x0,0xc
0058 e00d       |    |		Load	0x0,0xd
0059 4800       |H   |		Short_Literal	0x0
005a 0007       |    |		Action	Break_Optional
005b 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
005c 00c7       |    |		Action	Elaborate_Subprogram
005d			BODY_0008:
005d e20f       |    |		Load	0x1,0xf
005e e007       |    |		Load	0x0,0x7
005f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0060 a275       | u  |		Store_Unchecked	0x1,0x75
0061 e212       |    |		Load	0x1,0x12
0062 4801       |H   |		Short_Literal	0x1
0063 e275       | u  |		Load	0x1,0x75
0064 e007       |    |		Load	0x0,0x7
0065 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0066 e215       |    |		Load	0x1,0x15
0067 4802       |H   |		Short_Literal	0x2
0068 e275       | u  |		Load	0x1,0x75
0069 e007       |    |		Load	0x0,0x7
006a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
006b e218       |    |		Load	0x1,0x18
006c 4803       |H   |		Short_Literal	0x3
006d e275       | u  |		Load	0x1,0x75
006e e007       |    |		Load	0x0,0x7
006f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0070 e21b       |    |		Load	0x1,0x1b
0071 4804       |H   |		Short_Literal	0x4
0072 e275       | u  |		Load	0x1,0x75
0073 e007       |    |		Load	0x0,0x7
0074 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0075 e21e       |    |		Load	0x1,0x1e
0076 4805       |H   |		Short_Literal	0x5
0077 e275       | u  |		Load	0x1,0x75
0078 e007       |    |		Load	0x0,0x7
0079 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
007a e221       | !  |		Load	0x1,0x21
007b 4806       |H   |		Short_Literal	0x6
007c e275       | u  |		Load	0x1,0x75
007d e007       |    |		Load	0x0,0x7
007e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
007f e224       | $  |		Load	0x1,0x24
0080 4807       |H   |		Short_Literal	0x7
0081 e275       | u  |		Load	0x1,0x75
0082 e007       |    |		Load	0x0,0x7
0083 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0084 e227       | '  |		Load	0x1,0x27
0085 4808       |H   |		Short_Literal	0x8
0086 e275       | u  |		Load	0x1,0x75
0087 e007       |    |		Load	0x0,0x7
0088 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0089 e22a       | *  |		Load	0x1,0x2a
008a 4809       |H   |		Short_Literal	0x9
008b e275       | u  |		Load	0x1,0x75
008c e007       |    |		Load	0x0,0x7
008d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
008e e22d       | -  |		Load	0x1,0x2d
008f 480a       |H   |		Short_Literal	0xa
0090 e275       | u  |		Load	0x1,0x75
0091 e007       |    |		Load	0x0,0x7
0092 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0093 e230       | 0  |		Load	0x1,0x30
0094 480b       |H   |		Short_Literal	0xb
0095 e275       | u  |		Load	0x1,0x75
0096 e007       |    |		Load	0x0,0x7
0097 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0098 e233       | 3  |		Load	0x1,0x33
0099 480c       |H   |		Short_Literal	0xc
009a e275       | u  |		Load	0x1,0x75
009b e007       |    |		Load	0x0,0x7
009c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
009d e236       | 6  |		Load	0x1,0x36
009e 480d       |H   |		Short_Literal	0xd
009f e275       | u  |		Load	0x1,0x75
00a0 e007       |    |		Load	0x0,0x7
00a1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00a2 e239       | 9  |		Load	0x1,0x39
00a3 480e       |H   |		Short_Literal	0xe
00a4 e275       | u  |		Load	0x1,0x75
00a5 e007       |    |		Load	0x0,0x7
00a6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00a7 e23c       | <  |		Load	0x1,0x3c
00a8 480f       |H   |		Short_Literal	0xf
00a9 e275       | u  |		Load	0x1,0x75
00aa e007       |    |		Load	0x0,0x7
00ab 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00ac e23f       | ?  |		Load	0x1,0x3f
00ad 4810       |H   |		Short_Literal	0x10
00ae e275       | u  |		Load	0x1,0x75
00af e007       |    |		Load	0x0,0x7
00b0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00b1 e242       | B  |		Load	0x1,0x42
00b2 4811       |H   |		Short_Literal	0x11
00b3 e275       | u  |		Load	0x1,0x75
00b4 e007       |    |		Load	0x0,0x7
00b5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00b6 e245       | E  |		Load	0x1,0x45
00b7 4812       |H   |		Short_Literal	0x12
00b8 e275       | u  |		Load	0x1,0x75
00b9 e007       |    |		Load	0x0,0x7
00ba 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00bb e248       | H  |		Load	0x1,0x48
00bc 4813       |H   |		Short_Literal	0x13
00bd e275       | u  |		Load	0x1,0x75
00be e007       |    |		Load	0x0,0x7
00bf 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00c0 e24b       | K  |		Load	0x1,0x4b
00c1 4814       |H   |		Short_Literal	0x14
00c2 e275       | u  |		Load	0x1,0x75
00c3 e007       |    |		Load	0x0,0x7
00c4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00c5 e24e       | N  |		Load	0x1,0x4e
00c6 4815       |H   |		Short_Literal	0x15
00c7 e275       | u  |		Load	0x1,0x75
00c8 e007       |    |		Load	0x0,0x7
00c9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00ca e251       | Q  |		Load	0x1,0x51
00cb 4816       |H   |		Short_Literal	0x16
00cc e275       | u  |		Load	0x1,0x75
00cd e007       |    |		Load	0x0,0x7
00ce 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00cf e254       | T  |		Load	0x1,0x54
00d0 4817       |H   |		Short_Literal	0x17
00d1 e275       | u  |		Load	0x1,0x75
00d2 e007       |    |		Load	0x0,0x7
00d3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00d4 e257       | W  |		Load	0x1,0x57
00d5 4818       |H   |		Short_Literal	0x18
00d6 e275       | u  |		Load	0x1,0x75
00d7 e007       |    |		Load	0x0,0x7
00d8 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00d9 e25a       | Z  |		Load	0x1,0x5a
00da 4819       |H   |		Short_Literal	0x19
00db e275       | u  |		Load	0x1,0x75
00dc e007       |    |		Load	0x0,0x7
00dd 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00de e25d       | ]  |		Load	0x1,0x5d
00df 481a       |H   |		Short_Literal	0x1a
00e0 e275       | u  |		Load	0x1,0x75
00e1 e007       |    |		Load	0x0,0x7
00e2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00e3 e260       | `  |		Load	0x1,0x60
00e4 481b       |H   |		Short_Literal	0x1b
00e5 e275       | u  |		Load	0x1,0x75
00e6 e007       |    |		Load	0x0,0x7
00e7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00e8 e263       | c  |		Load	0x1,0x63
00e9 481c       |H   |		Short_Literal	0x1c
00ea e275       | u  |		Load	0x1,0x75
00eb e007       |    |		Load	0x0,0x7
00ec 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00ed e266       | f  |		Load	0x1,0x66
00ee 481d       |H   |		Short_Literal	0x1d
00ef e275       | u  |		Load	0x1,0x75
00f0 e007       |    |		Load	0x0,0x7
00f1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00f2 e269       | i  |		Load	0x1,0x69
00f3 481e       |H   |		Short_Literal	0x1e
00f4 e275       | u  |		Load	0x1,0x75
00f5 e007       |    |		Load	0x0,0x7
00f6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00f7 e211       |    |		Load	0x1,0x11
00f8 6809       |h   |		Jump_Zero	0x102
00f9 4800       |H   |		Short_Literal	0x0
00fa e00e       |    |		Load	0x0,0xe
00fb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00fc 4800       |H   |		Short_Literal	0x0
00fd e00e       |    |		Load	0x0,0xe
00fe 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00ff e275       | u  |		Load	0x1,0x75
0100 e00e       |    |		Load	0x0,0xe
0101 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0102 00bc       |    |		Action	Signal_Activated
0103 00bb       |    |		Action	Signal_Completion
0104 0000 0000  |    |		.BLANK	0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e210       |    |		Load	0x1,0x10
010c 0f00       |    |		Execute_Immediate	Equal,0x0
010d e210       |    |		Load	0x1,0x10
010e 0f01       |    |		Execute_Immediate	Equal,0x1
010f 0278       | x  |		Execute	Discrete,Or
0110 6811       |h   |		Jump_Zero	0x122
0111 e211       |    |		Load	0x1,0x11
0112 6809       |h   |		Jump_Zero	0x11c
0113 e275       | u  |		Load	0x1,0x75
0114 e00e       |    |		Load	0x0,0xe
0115 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0116 00da       |    |		Load_Top	At_Offset_2
0117 1d85       |    |		Execute_Immediate	Reference_Lex_1,0x85
0118 e286       |    |		Load	0x1,0x86
0119 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
011a 827f       |    |		Call	0x1,0x7f
011b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011c 00da       |    |		Load_Top	At_Offset_2
011d 1d80       |    |		Execute_Immediate	Reference_Lex_1,0x80
011e e281       |    |		Load	0x1,0x81
011f 1d82       |    |		Execute_Immediate	Reference_Lex_1,0x82
0120 827f       |    |		Call	0x1,0x7f
0121 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0122 e26e       | n  |		Load	0x1,0x6e
0123 0257       | W  |		Execute	Discrete,Raise
0124 0000 0000  |    |		.BLANK	0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012e       | .  |		.CONST	0x012e								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e00f       |    |		Load	0x0,0xf
012c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
012d 03e9       |    |		Declare_Variable	Discrete,Duplicate
012e			BODY_0128:
012e e5ff       |    |		Load	0x2,-0x1
012f e010       |    |		Load	0x0,0x10
0130 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0131 e5ff       |    |		Load	0x2,-0x1
0132 e010       |    |		Load	0x0,0x10
0133 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0134 e011       |    |		Load	0x0,0x11
0135 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0136 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0137 e5fe       |    |		Load	0x2,-0x2
0138 e010       |    |		Load	0x0,0x10
0139 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
013a e5fe       |    |		Load	0x2,-0x2
013b e010       |    |		Load	0x0,0x10
013c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
013d e011       |    |		Load	0x0,0x11
013e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
013f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0140 00d9       |    |		Load_Top	At_Offset_1
0141 00d9       |    |		Load_Top	At_Offset_1
0142 027c       | |  |		Execute	Discrete,Less
0143 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0152       | R  |		.CONST	0x0152								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0003       |    |		.CONST	0x0003								; Number of locals
014b			INIT_0148:
014b e26f       | o  |		Load	0x1,0x6f
014c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
014d 0322       | "  |		Declare_Variable	Record
014e 00d8       |    |		Load_Top	At_Offset_0
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
0152			BODY_0148:
0152 e5ff       |    |		Load	0x2,-0x1
0153 e275       | u  |		Load	0x1,0x75
0154 e007       |    |		Load	0x0,0x7
0155 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0156 70d4       |p   |		Jump_Nonzero	0x22b
0157 e5ff       |    |		Load	0x2,-0x1
0158 461e       |F   |		Jump_Case	0x1f
0159 78d1       |x   |		Jump	0x22b								; case 0x0
015a 78cb       |x   |		Jump	0x226								; case 0x1
015b 7822       |x"  |		Jump	0x17e								; case 0x2
015c 7827       |x'  |		Jump	0x184								; case 0x3
015d 782c       |x,  |		Jump	0x18a								; case 0x4
015e 7831       |x1  |		Jump	0x190								; case 0x5
015f 7836       |x6  |		Jump	0x196								; case 0x6
0160 783b       |x;  |		Jump	0x19c								; case 0x7
0161 7840       |x@  |		Jump	0x1a2								; case 0x8
0162 7845       |xE  |		Jump	0x1a8								; case 0x9
0163 784a       |xJ  |		Jump	0x1ae								; case 0xa
0164 784f       |xO  |		Jump	0x1b4								; case 0xb
0165 7854       |xT  |		Jump	0x1ba								; case 0xc
0166 7859       |xY  |		Jump	0x1c0								; case 0xd
0167 785e       |x^  |		Jump	0x1c6								; case 0xe
0168 7863       |xc  |		Jump	0x1cc								; case 0xf
0169 7868       |xh  |		Jump	0x1d2								; case 0x10
016a 786d       |xm  |		Jump	0x1d8								; case 0x11
016b 7872       |xr  |		Jump	0x1de								; case 0x12
016c 7877       |xw  |		Jump	0x1e4								; case 0x13
016d 787c       |x|  |		Jump	0x1ea								; case 0x14
016e 7881       |x   |		Jump	0x1f0								; case 0x15
016f 7886       |x   |		Jump	0x1f6								; case 0x16
0170 788b       |x   |		Jump	0x1fc								; case 0x17
0171 7890       |x   |		Jump	0x202								; case 0x18
0172 7895       |x   |		Jump	0x208								; case 0x19
0173 789a       |x   |		Jump	0x20e								; case 0x1a
0174 789f       |x   |		Jump	0x214								; case 0x1b
0175 78a4       |x   |		Jump	0x21a								; case 0x1c
0176 78a9       |x   |		Jump	0x220								; case 0x1d
0177 7800       |x   |		Jump	0x178								; case 0x1e
0178 826a       | j  |		Call	0x1,0x6a
0179 e26f       | o  |		Load	0x1,0x6f
017a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
017b 00da       |    |		Load_Top	At_Offset_2
017c 017d       | }  |		Execute	Record,Structure_Write
017d 78ad       |x   |		Jump	0x22b
017e 8216       |    |		Call	0x1,0x16
017f e26f       | o  |		Load	0x1,0x6f
0180 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0181 00da       |    |		Load_Top	At_Offset_2
0182 017d       | }  |		Execute	Record,Structure_Write
0183 78a7       |x   |		Jump	0x22b
0184 8219       |    |		Call	0x1,0x19
0185 e26f       | o  |		Load	0x1,0x6f
0186 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0187 00da       |    |		Load_Top	At_Offset_2
0188 017d       | }  |		Execute	Record,Structure_Write
0189 78a1       |x   |		Jump	0x22b
018a 821c       |    |		Call	0x1,0x1c
018b e26f       | o  |		Load	0x1,0x6f
018c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
018d 00da       |    |		Load_Top	At_Offset_2
018e 017d       | }  |		Execute	Record,Structure_Write
018f 789b       |x   |		Jump	0x22b
0190 821f       |    |		Call	0x1,0x1f
0191 e26f       | o  |		Load	0x1,0x6f
0192 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0193 00da       |    |		Load_Top	At_Offset_2
0194 017d       | }  |		Execute	Record,Structure_Write
0195 7895       |x   |		Jump	0x22b
0196 8222       | "  |		Call	0x1,0x22
0197 e26f       | o  |		Load	0x1,0x6f
0198 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0199 00da       |    |		Load_Top	At_Offset_2
019a 017d       | }  |		Execute	Record,Structure_Write
019b 788f       |x   |		Jump	0x22b
019c 8225       | %  |		Call	0x1,0x25
019d e26f       | o  |		Load	0x1,0x6f
019e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
019f 00da       |    |		Load_Top	At_Offset_2
01a0 017d       | }  |		Execute	Record,Structure_Write
01a1 7889       |x   |		Jump	0x22b
01a2 8228       | (  |		Call	0x1,0x28
01a3 e26f       | o  |		Load	0x1,0x6f
01a4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 017d       | }  |		Execute	Record,Structure_Write
01a7 7883       |x   |		Jump	0x22b
01a8 822b       | +  |		Call	0x1,0x2b
01a9 e26f       | o  |		Load	0x1,0x6f
01aa 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 017d       | }  |		Execute	Record,Structure_Write
01ad 787d       |x}  |		Jump	0x22b
01ae 822e       | .  |		Call	0x1,0x2e
01af e26f       | o  |		Load	0x1,0x6f
01b0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 017d       | }  |		Execute	Record,Structure_Write
01b3 7877       |xw  |		Jump	0x22b
01b4 8231       | 1  |		Call	0x1,0x31
01b5 e26f       | o  |		Load	0x1,0x6f
01b6 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 017d       | }  |		Execute	Record,Structure_Write
01b9 7871       |xq  |		Jump	0x22b
01ba 8234       | 4  |		Call	0x1,0x34
01bb e26f       | o  |		Load	0x1,0x6f
01bc 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01bd 00da       |    |		Load_Top	At_Offset_2
01be 017d       | }  |		Execute	Record,Structure_Write
01bf 786b       |xk  |		Jump	0x22b
01c0 8237       | 7  |		Call	0x1,0x37
01c1 e26f       | o  |		Load	0x1,0x6f
01c2 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 017d       | }  |		Execute	Record,Structure_Write
01c5 7865       |xe  |		Jump	0x22b
01c6 823a       | :  |		Call	0x1,0x3a
01c7 e26f       | o  |		Load	0x1,0x6f
01c8 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 017d       | }  |		Execute	Record,Structure_Write
01cb 785f       |x_  |		Jump	0x22b
01cc 823d       | =  |		Call	0x1,0x3d
01cd e26f       | o  |		Load	0x1,0x6f
01ce 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 017d       | }  |		Execute	Record,Structure_Write
01d1 7859       |xY  |		Jump	0x22b
01d2 8240       | @  |		Call	0x1,0x40
01d3 e26f       | o  |		Load	0x1,0x6f
01d4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01d5 00da       |    |		Load_Top	At_Offset_2
01d6 017d       | }  |		Execute	Record,Structure_Write
01d7 7853       |xS  |		Jump	0x22b
01d8 8243       | C  |		Call	0x1,0x43
01d9 e26f       | o  |		Load	0x1,0x6f
01da 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01db 00da       |    |		Load_Top	At_Offset_2
01dc 017d       | }  |		Execute	Record,Structure_Write
01dd 784d       |xM  |		Jump	0x22b
01de 8246       | F  |		Call	0x1,0x46
01df e26f       | o  |		Load	0x1,0x6f
01e0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 017d       | }  |		Execute	Record,Structure_Write
01e3 7847       |xG  |		Jump	0x22b
01e4 8249       | I  |		Call	0x1,0x49
01e5 e26f       | o  |		Load	0x1,0x6f
01e6 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 017d       | }  |		Execute	Record,Structure_Write
01e9 7841       |xA  |		Jump	0x22b
01ea 824c       | L  |		Call	0x1,0x4c
01eb e26f       | o  |		Load	0x1,0x6f
01ec 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ed 00da       |    |		Load_Top	At_Offset_2
01ee 017d       | }  |		Execute	Record,Structure_Write
01ef 783b       |x;  |		Jump	0x22b
01f0 824f       | O  |		Call	0x1,0x4f
01f1 e26f       | o  |		Load	0x1,0x6f
01f2 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 017d       | }  |		Execute	Record,Structure_Write
01f5 7835       |x5  |		Jump	0x22b
01f6 8252       | R  |		Call	0x1,0x52
01f7 e26f       | o  |		Load	0x1,0x6f
01f8 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01f9 00da       |    |		Load_Top	At_Offset_2
01fa 017d       | }  |		Execute	Record,Structure_Write
01fb 782f       |x/  |		Jump	0x22b
01fc 8255       | U  |		Call	0x1,0x55
01fd e26f       | o  |		Load	0x1,0x6f
01fe 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ff 00da       |    |		Load_Top	At_Offset_2
0200 017d       | }  |		Execute	Record,Structure_Write
0201 7829       |x)  |		Jump	0x22b
0202 8258       | X  |		Call	0x1,0x58
0203 e26f       | o  |		Load	0x1,0x6f
0204 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0205 00da       |    |		Load_Top	At_Offset_2
0206 017d       | }  |		Execute	Record,Structure_Write
0207 7823       |x#  |		Jump	0x22b
0208 825b       | [  |		Call	0x1,0x5b
0209 e26f       | o  |		Load	0x1,0x6f
020a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
020b 00da       |    |		Load_Top	At_Offset_2
020c 017d       | }  |		Execute	Record,Structure_Write
020d 781d       |x   |		Jump	0x22b
020e 825e       | ^  |		Call	0x1,0x5e
020f e26f       | o  |		Load	0x1,0x6f
0210 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0211 00da       |    |		Load_Top	At_Offset_2
0212 017d       | }  |		Execute	Record,Structure_Write
0213 7817       |x   |		Jump	0x22b
0214 8261       | a  |		Call	0x1,0x61
0215 e26f       | o  |		Load	0x1,0x6f
0216 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0217 00da       |    |		Load_Top	At_Offset_2
0218 017d       | }  |		Execute	Record,Structure_Write
0219 7811       |x   |		Jump	0x22b
021a 8264       | d  |		Call	0x1,0x64
021b e26f       | o  |		Load	0x1,0x6f
021c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
021d 00da       |    |		Load_Top	At_Offset_2
021e 017d       | }  |		Execute	Record,Structure_Write
021f 780b       |x   |		Jump	0x22b
0220 8267       | g  |		Call	0x1,0x67
0221 e26f       | o  |		Load	0x1,0x6f
0222 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0223 00da       |    |		Load_Top	At_Offset_2
0224 017d       | }  |		Execute	Record,Structure_Write
0225 7805       |x   |		Jump	0x22b
0226 8213       |    |		Call	0x1,0x13
0227 e26f       | o  |		Load	0x1,0x6f
0228 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0229 00da       |    |		Load_Top	At_Offset_2
022a 017d       | }  |		Execute	Record,Structure_Write
022b 8403       |    |		Call	0x2,0x3
022c 0831       | 1  |		Execute_Immediate	Raise,0x31
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00db       |    |		Load_Top	At_Offset_3
0234 461e       |F   |		Jump_Case	0x1f
0235 7877       |xw  |		Jump	0x2ad								; case 0x0
0236 7874       |xt  |		Jump	0x2ab								; case 0x1
0237 781f       |x   |		Jump	0x257								; case 0x2
0238 7821       |x!  |		Jump	0x25a								; case 0x3
0239 7823       |x#  |		Jump	0x25d								; case 0x4
023a 7825       |x%  |		Jump	0x260								; case 0x5
023b 7827       |x'  |		Jump	0x263								; case 0x6
023c 7829       |x)  |		Jump	0x266								; case 0x7
023d 782b       |x+  |		Jump	0x269								; case 0x8
023e 782d       |x-  |		Jump	0x26c								; case 0x9
023f 782f       |x/  |		Jump	0x26f								; case 0xa
0240 7831       |x1  |		Jump	0x272								; case 0xb
0241 7833       |x3  |		Jump	0x275								; case 0xc
0242 7835       |x5  |		Jump	0x278								; case 0xd
0243 7837       |x7  |		Jump	0x27b								; case 0xe
0244 7839       |x9  |		Jump	0x27e								; case 0xf
0245 783b       |x;  |		Jump	0x281								; case 0x10
0246 783d       |x=  |		Jump	0x284								; case 0x11
0247 783f       |x?  |		Jump	0x287								; case 0x12
0248 7841       |xA  |		Jump	0x28a								; case 0x13
0249 7843       |xC  |		Jump	0x28d								; case 0x14
024a 7845       |xE  |		Jump	0x290								; case 0x15
024b 7847       |xG  |		Jump	0x293								; case 0x16
024c 7849       |xI  |		Jump	0x296								; case 0x17
024d 784b       |xK  |		Jump	0x299								; case 0x18
024e 784d       |xM  |		Jump	0x29c								; case 0x19
024f 784f       |xO  |		Jump	0x29f								; case 0x1a
0250 7851       |xQ  |		Jump	0x2a2								; case 0x1b
0251 7853       |xS  |		Jump	0x2a5								; case 0x1c
0252 7855       |xU  |		Jump	0x2a8								; case 0x1d
0253 7800       |x   |		Jump	0x254								; case 0x1e
0254 00da       |    |		Load_Top	At_Offset_2
0255 826b       | k  |		Call	0x1,0x6b
0256 7856       |xV  |		Jump	0x2ad
0257 00da       |    |		Load_Top	At_Offset_2
0258 8217       |    |		Call	0x1,0x17
0259 7853       |xS  |		Jump	0x2ad
025a 00da       |    |		Load_Top	At_Offset_2
025b 821a       |    |		Call	0x1,0x1a
025c 7850       |xP  |		Jump	0x2ad
025d 00da       |    |		Load_Top	At_Offset_2
025e 821d       |    |		Call	0x1,0x1d
025f 784d       |xM  |		Jump	0x2ad
0260 00da       |    |		Load_Top	At_Offset_2
0261 8220       |    |		Call	0x1,0x20
0262 784a       |xJ  |		Jump	0x2ad
0263 00da       |    |		Load_Top	At_Offset_2
0264 8223       | #  |		Call	0x1,0x23
0265 7847       |xG  |		Jump	0x2ad
0266 00da       |    |		Load_Top	At_Offset_2
0267 8226       | &  |		Call	0x1,0x26
0268 7844       |xD  |		Jump	0x2ad
0269 00da       |    |		Load_Top	At_Offset_2
026a 8229       | )  |		Call	0x1,0x29
026b 7841       |xA  |		Jump	0x2ad
026c 00da       |    |		Load_Top	At_Offset_2
026d 822c       | ,  |		Call	0x1,0x2c
026e 783e       |x>  |		Jump	0x2ad
026f 00da       |    |		Load_Top	At_Offset_2
0270 822f       | /  |		Call	0x1,0x2f
0271 783b       |x;  |		Jump	0x2ad
0272 00da       |    |		Load_Top	At_Offset_2
0273 8232       | 2  |		Call	0x1,0x32
0274 7838       |x8  |		Jump	0x2ad
0275 00da       |    |		Load_Top	At_Offset_2
0276 8235       | 5  |		Call	0x1,0x35
0277 7835       |x5  |		Jump	0x2ad
0278 00da       |    |		Load_Top	At_Offset_2
0279 8238       | 8  |		Call	0x1,0x38
027a 7832       |x2  |		Jump	0x2ad
027b 00da       |    |		Load_Top	At_Offset_2
027c 823b       | ;  |		Call	0x1,0x3b
027d 782f       |x/  |		Jump	0x2ad
027e 00da       |    |		Load_Top	At_Offset_2
027f 823e       | >  |		Call	0x1,0x3e
0280 782c       |x,  |		Jump	0x2ad
0281 00da       |    |		Load_Top	At_Offset_2
0282 8241       | A  |		Call	0x1,0x41
0283 7829       |x)  |		Jump	0x2ad
0284 00da       |    |		Load_Top	At_Offset_2
0285 8244       | D  |		Call	0x1,0x44
0286 7826       |x&  |		Jump	0x2ad
0287 00da       |    |		Load_Top	At_Offset_2
0288 8247       | G  |		Call	0x1,0x47
0289 7823       |x#  |		Jump	0x2ad
028a 00da       |    |		Load_Top	At_Offset_2
028b 824a       | J  |		Call	0x1,0x4a
028c 7820       |x   |		Jump	0x2ad
028d 00da       |    |		Load_Top	At_Offset_2
028e 824d       | M  |		Call	0x1,0x4d
028f 781d       |x   |		Jump	0x2ad
0290 00da       |    |		Load_Top	At_Offset_2
0291 8250       | P  |		Call	0x1,0x50
0292 781a       |x   |		Jump	0x2ad
0293 00da       |    |		Load_Top	At_Offset_2
0294 8253       | S  |		Call	0x1,0x53
0295 7817       |x   |		Jump	0x2ad
0296 00da       |    |		Load_Top	At_Offset_2
0297 8256       | V  |		Call	0x1,0x56
0298 7814       |x   |		Jump	0x2ad
0299 00da       |    |		Load_Top	At_Offset_2
029a 8259       | Y  |		Call	0x1,0x59
029b 7811       |x   |		Jump	0x2ad
029c 00da       |    |		Load_Top	At_Offset_2
029d 825c       | \  |		Call	0x1,0x5c
029e 780e       |x   |		Jump	0x2ad
029f 00da       |    |		Load_Top	At_Offset_2
02a0 825f       | _  |		Call	0x1,0x5f
02a1 780b       |x   |		Jump	0x2ad
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 8262       | b  |		Call	0x1,0x62
02a4 7808       |x   |		Jump	0x2ad
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 8265       | e  |		Call	0x1,0x65
02a7 7805       |x   |		Jump	0x2ad
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 8268       | h  |		Call	0x1,0x68
02aa 7802       |x   |		Jump	0x2ad
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 8214       |    |		Call	0x1,0x14
02ad e211       |    |		Load	0x1,0x11
02ae 6815       |h   |		Jump_Zero	0x2c4
02af 00db       |    |		Load_Top	At_Offset_3
02b0 680d       |h   |		Jump_Zero	0x2be
02b1 4806       |H   |		Short_Literal	0x6
02b2 e00e       |    |		Load	0x0,0xe
02b3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b4 4808       |H   |		Short_Literal	0x8
02b5 e00e       |    |		Load	0x0,0xe
02b6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b7 0278       | x  |		Execute	Discrete,Or
02b8 6805       |h   |		Jump_Zero	0x2be
02b9 00da       |    |		Load_Top	At_Offset_2
02ba e5fe       |    |		Load	0x2,-0x2
02bb e275       | u  |		Load	0x1,0x75
02bc e00e       |    |		Load	0x0,0xe
02bd 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02be e00e       |    |		Load	0x0,0xe
02bf 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02c0 00db       |    |		Load_Top	At_Offset_3
02c1 7002       |p   |		Jump_Nonzero	0x2c4
02c2 e00e       |    |		Load	0x0,0xe
02c3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c5 0000 0000  |    |		.XXX[0x3]
02c7 0000       |    |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d9       |    |		.CONST	0x02d9								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0006       |    |		.CONST	0x0006								; Number of locals
02cb			INIT_02c8:
02cb 00e1       |    |		Load_Encached	Boolean_Cache
02cc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02cd e00f       |    |		Load	0x0,0xf
02ce 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02cf 03e9       |    |		Declare_Variable	Discrete,Duplicate
02d0 e010       |    |		Load	0x0,0x10
02d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d2 02ff       |    |		Declare_Variable	Variant_Record
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 02ff       |    |		Declare_Variable	Variant_Record
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d9			BODY_02c8:
02d9 4800       |H   |		Short_Literal	0x0
02da a270       | p  |		Store_Unchecked	0x1,0x70
02db 00cf       |    |		Action	Mark_Auxiliary
02dc e26c       | l  |		Load	0x1,0x6c
02dd 4801       |H   |		Short_Literal	0x1
02de 0263       | c  |		Execute	Discrete,Above_Bound
02df 70bb       |p   |		Jump_Nonzero	0x39b
02e0 00cf       |    |		Action	Mark_Auxiliary
02e1 00d9       |    |		Load_Top	At_Offset_1
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 e007       |    |		Load	0x0,0x7
02e4 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02e5 0260       | `  |		Execute	Discrete,In_Type
02e6 7001       |p   |		Jump_Nonzero	0x2e8
02e7 0801       |    |		Execute_Immediate	Raise,0x1
02e8 827b       | {  |		Call	0x1,0x7b
02e9 e005       |    |		Load	0x0,0x5
02ea 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02eb 4801       |H   |		Short_Literal	0x1
02ec 0263       | c  |		Execute	Discrete,Above_Bound
02ed 70aa       |p   |		Jump_Nonzero	0x398
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef e409       |    |		Load	0x2,0x9
02f0 00d8       |    |		Load_Top	At_Offset_0
02f1 e007       |    |		Load	0x0,0x7
02f2 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02f3 0260       | `  |		Execute	Discrete,In_Type
02f4 7001       |p   |		Jump_Nonzero	0x2f6
02f5 0801       |    |		Execute_Immediate	Raise,0x1
02f6 827b       | {  |		Call	0x1,0x7b
02f7 e005       |    |		Load	0x0,0x5
02f8 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
02f9 e273       | s  |		Load	0x1,0x73
02fa 017d       | }  |		Execute	Record,Structure_Write
02fb e402       |    |		Load	0x2,0x2
02fc 6817       |h   |		Jump_Zero	0x314
02fd e273       | s  |		Load	0x1,0x73
02fe e271       | q  |		Load	0x1,0x71
02ff 017d       | }  |		Execute	Record,Structure_Write
0300 e273       | s  |		Load	0x1,0x73
0301 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
0302 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
0303 e004       |    |		Load	0x0,0x4
0304 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0305 00d1       |    |		Pop_Control	Pop_Count_1
0306 e273       | s  |		Load	0x1,0x73
0307 e272       | r  |		Load	0x1,0x72
0308 017d       | }  |		Execute	Record,Structure_Write
0309 00db       |    |		Load_Top	At_Offset_3
030a 00d8       |    |		Load_Top	At_Offset_0
030b e007       |    |		Load	0x0,0x7
030c 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
030d 0260       | `  |		Execute	Discrete,In_Type
030e 7001       |p   |		Jump_Nonzero	0x310
030f 0801       |    |		Execute_Immediate	Raise,0x1
0310 a270       | p  |		Store_Unchecked	0x1,0x70
0311 4800       |H   |		Short_Literal	0x0
0312 a402       |    |		Store_Unchecked	0x2,0x2
0313 7882       |x   |		Jump	0x396
0314 e405       |    |		Load	0x2,0x5
0315 e273       | s  |		Load	0x1,0x73
0316 e004       |    |		Load	0x0,0x4
0317 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0318 00d1       |    |		Pop_Control	Pop_Count_1
0319 e406       |    |		Load	0x2,0x6
031a e271       | q  |		Load	0x1,0x71
031b e004       |    |		Load	0x0,0x4
031c 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
031d 00d1       |    |		Pop_Control	Pop_Count_1
031e e405       |    |		Load	0x2,0x5
031f e010       |    |		Load	0x0,0x10
0320 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0321 e405       |    |		Load	0x2,0x5
0322 e010       |    |		Load	0x0,0x10
0323 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0324 e011       |    |		Load	0x0,0x11
0325 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0326 a403       |    |		Store_Unchecked	0x2,0x3
0327 e406       |    |		Load	0x2,0x6
0328 e010       |    |		Load	0x0,0x10
0329 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
032a e406       |    |		Load	0x2,0x6
032b e010       |    |		Load	0x0,0x10
032c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
032d e011       |    |		Load	0x0,0x11
032e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
032f a404       |    |		Store_Unchecked	0x2,0x4
0330 e210       |    |		Load	0x1,0x10
0331 0f01       |    |		Execute_Immediate	Equal,0x1
0332 e403       |    |		Load	0x2,0x3
0333 e404       |    |		Load	0x2,0x4
0334 027d       | }  |		Execute	Discrete,Greater
0335 0279       | y  |		Execute	Discrete,And
0336 680c       |h   |		Jump_Zero	0x343
0337 00db       |    |		Load_Top	At_Offset_3
0338 00d8       |    |		Load_Top	At_Offset_0
0339 e007       |    |		Load	0x0,0x7
033a 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
033b 0260       | `  |		Execute	Discrete,In_Type
033c 7001       |p   |		Jump_Nonzero	0x33e
033d 0801       |    |		Execute_Immediate	Raise,0x1
033e a270       | p  |		Store_Unchecked	0x1,0x70
033f e273       | s  |		Load	0x1,0x73
0340 e271       | q  |		Load	0x1,0x71
0341 017d       | }  |		Execute	Record,Structure_Write
0342 7853       |xS  |		Jump	0x396
0343 e273       | s  |		Load	0x1,0x73
0344 e274       | t  |		Load	0x1,0x74
0345 017d       | }  |		Execute	Record,Structure_Write
0346 e273       | s  |		Load	0x1,0x73
0347 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
0348 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
0349 e004       |    |		Load	0x0,0x4
034a 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
034b 00d1       |    |		Pop_Control	Pop_Count_1
034c 00cf       |    |		Action	Mark_Auxiliary
034d e273       | s  |		Load	0x1,0x73
034e e004       |    |		Load	0x0,0x4
034f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0350 4801       |H   |		Short_Literal	0x1
0351 0263       | c  |		Execute	Discrete,Above_Bound
0352 7042       |pB  |		Jump_Nonzero	0x395
0353 00d8       |    |		Load_Top	At_Offset_0
0354 e273       | s  |		Load	0x1,0x73
0355 e004       |    |		Load	0x0,0x4
0356 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0357 e010       |    |		Load	0x0,0x10
0358 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0359 00d9       |    |		Load_Top	At_Offset_1
035a e273       | s  |		Load	0x1,0x73
035b e004       |    |		Load	0x0,0x4
035c 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
035d e010       |    |		Load	0x0,0x10
035e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
035f e011       |    |		Load	0x0,0x11
0360 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0361 a403       |    |		Store_Unchecked	0x2,0x3
0362 00d8       |    |		Load_Top	At_Offset_0
0363 e272       | r  |		Load	0x1,0x72
0364 e004       |    |		Load	0x0,0x4
0365 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0366 e010       |    |		Load	0x0,0x10
0367 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0368 00d9       |    |		Load_Top	At_Offset_1
0369 e272       | r  |		Load	0x1,0x72
036a e004       |    |		Load	0x0,0x4
036b 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
036c e010       |    |		Load	0x0,0x10
036d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
036e e011       |    |		Load	0x0,0x11
036f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0370 a404       |    |		Store_Unchecked	0x2,0x4
0371 e403       |    |		Load	0x2,0x3
0372 e404       |    |		Load	0x2,0x4
0373 027d       | }  |		Execute	Discrete,Greater
0374 6810       |h   |		Jump_Zero	0x385
0375 e409       |    |		Load	0x2,0x9
0376 00d8       |    |		Load_Top	At_Offset_0
0377 e007       |    |		Load	0x0,0x7
0378 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0379 0260       | `  |		Execute	Discrete,In_Type
037a 7001       |p   |		Jump_Nonzero	0x37c
037b 0801       |    |		Execute_Immediate	Raise,0x1
037c a270       | p  |		Store_Unchecked	0x1,0x70
037d e274       | t  |		Load	0x1,0x74
037e e271       | q  |		Load	0x1,0x71
037f 017d       | }  |		Execute	Record,Structure_Write
0380 e273       | s  |		Load	0x1,0x73
0381 e272       | r  |		Load	0x1,0x72
0382 017d       | }  |		Execute	Record,Structure_Write
0383 00d2       |    |		Pop_Control	Pop_Count_2
0384 7810       |x   |		Jump	0x395
0385 e403       |    |		Load	0x2,0x3
0386 e404       |    |		Load	0x2,0x4
0387 027c       | |  |		Execute	Discrete,Less
0388 6802       |h   |		Jump_Zero	0x38b
0389 00d2       |    |		Pop_Control	Pop_Count_2
038a 780a       |x   |		Jump	0x395
038b 00d8       |    |		Load_Top	At_Offset_0
038c e271       | q  |		Load	0x1,0x71
038d e004       |    |		Load	0x0,0x4
038e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
038f 027f       |    |		Execute	Discrete,Equal
0390 6802       |h   |		Jump_Zero	0x393
0391 00d2       |    |		Pop_Control	Pop_Count_2
0392 7802       |x   |		Jump	0x395
0393 00c8       |    |		Action	Pop_Auxiliary_Range
0394 3fbe       |?   |		Loop_Increasing	0x353
0395 00ce       |    |		Action	Pop_Auxiliary
0396 00c8       |    |		Action	Pop_Auxiliary_Range
0397 3f56       |?V  |		Loop_Increasing	0x2ee
0398 00ce       |    |		Action	Pop_Auxiliary
0399 00c8       |    |		Action	Pop_Auxiliary_Range
039a 3f45       |?E  |		Loop_Increasing	0x2e0
039b 00ce       |    |		Action	Pop_Auxiliary
039c e270       | p  |		Load	0x1,0x70
039d e271       | q  |		Load	0x1,0x71
039e 827c       | |  |		Call	0x1,0x7c
039f e270       | p  |		Load	0x1,0x70
03a0 0e00       |    |		Execute_Immediate	Not_Equal,0x0
03a1 00ca       |    |		Action	Exit_Nullary_Function
03a2 0000 0000  |    |		.BLANK	0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b9       |    |		.CONST	0x03b9								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0006       |    |		.CONST	0x0006								; Number of locals
03ab			INIT_03a8:
03ab 00e1       |    |		Load_Encached	Boolean_Cache
03ac 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
03ad e00f       |    |		Load	0x0,0xf
03ae 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03af 03e9       |    |		Declare_Variable	Discrete,Duplicate
03b0 e010       |    |		Load	0x0,0x10
03b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b2 02ff       |    |		Declare_Variable	Variant_Record
03b3 00d8       |    |		Load_Top	At_Offset_0
03b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b5 00d8       |    |		Load_Top	At_Offset_0
03b6 02ff       |    |		Declare_Variable	Variant_Record
03b7 00d8       |    |		Load_Top	At_Offset_0
03b8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b9			BODY_03a8:
03b9 e00e       |    |		Load	0x0,0xe
03ba 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03bb 4800       |H   |		Short_Literal	0x0
03bc a270       | p  |		Store_Unchecked	0x1,0x70
03bd 00cf       |    |		Action	Mark_Auxiliary
03be e26c       | l  |		Load	0x1,0x6c
03bf 4801       |H   |		Short_Literal	0x1
03c0 0263       | c  |		Execute	Discrete,Above_Bound
03c1 70bb       |p   |		Jump_Nonzero	0x47d
03c2 00cf       |    |		Action	Mark_Auxiliary
03c3 00d9       |    |		Load_Top	At_Offset_1
03c4 00d8       |    |		Load_Top	At_Offset_0
03c5 e007       |    |		Load	0x0,0x7
03c6 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
03c7 0260       | `  |		Execute	Discrete,In_Type
03c8 7001       |p   |		Jump_Nonzero	0x3ca
03c9 0801       |    |		Execute_Immediate	Raise,0x1
03ca 827b       | {  |		Call	0x1,0x7b
03cb e005       |    |		Load	0x0,0x5
03cc 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03cd 4801       |H   |		Short_Literal	0x1
03ce 0263       | c  |		Execute	Discrete,Above_Bound
03cf 70aa       |p   |		Jump_Nonzero	0x47a
03d0 00d8       |    |		Load_Top	At_Offset_0
03d1 e409       |    |		Load	0x2,0x9
03d2 00d8       |    |		Load_Top	At_Offset_0
03d3 e007       |    |		Load	0x0,0x7
03d4 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
03d5 0260       | `  |		Execute	Discrete,In_Type
03d6 7001       |p   |		Jump_Nonzero	0x3d8
03d7 0801       |    |		Execute_Immediate	Raise,0x1
03d8 827b       | {  |		Call	0x1,0x7b
03d9 e005       |    |		Load	0x0,0x5
03da 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
03db e273       | s  |		Load	0x1,0x73
03dc 017d       | }  |		Execute	Record,Structure_Write
03dd e402       |    |		Load	0x2,0x2
03de 6817       |h   |		Jump_Zero	0x3f6
03df e273       | s  |		Load	0x1,0x73
03e0 e271       | q  |		Load	0x1,0x71
03e1 017d       | }  |		Execute	Record,Structure_Write
03e2 e273       | s  |		Load	0x1,0x73
03e3 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
03e4 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
03e5 e004       |    |		Load	0x0,0x4
03e6 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
03e7 00d1       |    |		Pop_Control	Pop_Count_1
03e8 e273       | s  |		Load	0x1,0x73
03e9 e272       | r  |		Load	0x1,0x72
03ea 017d       | }  |		Execute	Record,Structure_Write
03eb 00db       |    |		Load_Top	At_Offset_3
03ec 00d8       |    |		Load_Top	At_Offset_0
03ed e007       |    |		Load	0x0,0x7
03ee 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
03ef 0260       | `  |		Execute	Discrete,In_Type
03f0 7001       |p   |		Jump_Nonzero	0x3f2
03f1 0801       |    |		Execute_Immediate	Raise,0x1
03f2 a270       | p  |		Store_Unchecked	0x1,0x70
03f3 4800       |H   |		Short_Literal	0x0
03f4 a402       |    |		Store_Unchecked	0x2,0x2
03f5 7882       |x   |		Jump	0x478
03f6 e405       |    |		Load	0x2,0x5
03f7 e273       | s  |		Load	0x1,0x73
03f8 e004       |    |		Load	0x0,0x4
03f9 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
03fa 00d1       |    |		Pop_Control	Pop_Count_1
03fb e406       |    |		Load	0x2,0x6
03fc e271       | q  |		Load	0x1,0x71
03fd e004       |    |		Load	0x0,0x4
03fe 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
03ff 00d1       |    |		Pop_Control	Pop_Count_1
0400 e405       |    |		Load	0x2,0x5
0401 e010       |    |		Load	0x0,0x10
0402 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0403 e405       |    |		Load	0x2,0x5
0404 e010       |    |		Load	0x0,0x10
0405 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0406 e011       |    |		Load	0x0,0x11
0407 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0408 a403       |    |		Store_Unchecked	0x2,0x3
0409 e406       |    |		Load	0x2,0x6
040a e010       |    |		Load	0x0,0x10
040b 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
040c e406       |    |		Load	0x2,0x6
040d e010       |    |		Load	0x0,0x10
040e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
040f e011       |    |		Load	0x0,0x11
0410 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0411 a404       |    |		Store_Unchecked	0x2,0x4
0412 e210       |    |		Load	0x1,0x10
0413 0f01       |    |		Execute_Immediate	Equal,0x1
0414 e403       |    |		Load	0x2,0x3
0415 e404       |    |		Load	0x2,0x4
0416 027d       | }  |		Execute	Discrete,Greater
0417 0279       | y  |		Execute	Discrete,And
0418 680c       |h   |		Jump_Zero	0x425
0419 00db       |    |		Load_Top	At_Offset_3
041a 00d8       |    |		Load_Top	At_Offset_0
041b e007       |    |		Load	0x0,0x7
041c 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
041d 0260       | `  |		Execute	Discrete,In_Type
041e 7001       |p   |		Jump_Nonzero	0x420
041f 0801       |    |		Execute_Immediate	Raise,0x1
0420 a270       | p  |		Store_Unchecked	0x1,0x70
0421 e273       | s  |		Load	0x1,0x73
0422 e271       | q  |		Load	0x1,0x71
0423 017d       | }  |		Execute	Record,Structure_Write
0424 7853       |xS  |		Jump	0x478
0425 e273       | s  |		Load	0x1,0x73
0426 e274       | t  |		Load	0x1,0x74
0427 017d       | }  |		Execute	Record,Structure_Write
0428 e273       | s  |		Load	0x1,0x73
0429 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
042a 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
042b e004       |    |		Load	0x0,0x4
042c 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
042d 00d1       |    |		Pop_Control	Pop_Count_1
042e 00cf       |    |		Action	Mark_Auxiliary
042f e273       | s  |		Load	0x1,0x73
0430 e004       |    |		Load	0x0,0x4
0431 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0432 4801       |H   |		Short_Literal	0x1
0433 0263       | c  |		Execute	Discrete,Above_Bound
0434 7042       |pB  |		Jump_Nonzero	0x477
0435 00d8       |    |		Load_Top	At_Offset_0
0436 e273       | s  |		Load	0x1,0x73
0437 e004       |    |		Load	0x0,0x4
0438 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0439 e010       |    |		Load	0x0,0x10
043a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
043b 00d9       |    |		Load_Top	At_Offset_1
043c e273       | s  |		Load	0x1,0x73
043d e004       |    |		Load	0x0,0x4
043e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
043f e010       |    |		Load	0x0,0x10
0440 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0441 e011       |    |		Load	0x0,0x11
0442 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0443 a403       |    |		Store_Unchecked	0x2,0x3
0444 00d8       |    |		Load_Top	At_Offset_0
0445 e272       | r  |		Load	0x1,0x72
0446 e004       |    |		Load	0x0,0x4
0447 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0448 e010       |    |		Load	0x0,0x10
0449 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
044a 00d9       |    |		Load_Top	At_Offset_1
044b e272       | r  |		Load	0x1,0x72
044c e004       |    |		Load	0x0,0x4
044d 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
044e e010       |    |		Load	0x0,0x10
044f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0450 e011       |    |		Load	0x0,0x11
0451 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0452 a404       |    |		Store_Unchecked	0x2,0x4
0453 e403       |    |		Load	0x2,0x3
0454 e404       |    |		Load	0x2,0x4
0455 027d       | }  |		Execute	Discrete,Greater
0456 6810       |h   |		Jump_Zero	0x467
0457 e409       |    |		Load	0x2,0x9
0458 00d8       |    |		Load_Top	At_Offset_0
0459 e007       |    |		Load	0x0,0x7
045a 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
045b 0260       | `  |		Execute	Discrete,In_Type
045c 7001       |p   |		Jump_Nonzero	0x45e
045d 0801       |    |		Execute_Immediate	Raise,0x1
045e a270       | p  |		Store_Unchecked	0x1,0x70
045f e274       | t  |		Load	0x1,0x74
0460 e271       | q  |		Load	0x1,0x71
0461 017d       | }  |		Execute	Record,Structure_Write
0462 e273       | s  |		Load	0x1,0x73
0463 e272       | r  |		Load	0x1,0x72
0464 017d       | }  |		Execute	Record,Structure_Write
0465 00d2       |    |		Pop_Control	Pop_Count_2
0466 7810       |x   |		Jump	0x477
0467 e403       |    |		Load	0x2,0x3
0468 e404       |    |		Load	0x2,0x4
0469 027c       | |  |		Execute	Discrete,Less
046a 6802       |h   |		Jump_Zero	0x46d
046b 00d2       |    |		Pop_Control	Pop_Count_2
046c 780a       |x   |		Jump	0x477
046d 00d8       |    |		Load_Top	At_Offset_0
046e e271       | q  |		Load	0x1,0x71
046f e004       |    |		Load	0x0,0x4
0470 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0471 027f       |    |		Execute	Discrete,Equal
0472 6802       |h   |		Jump_Zero	0x475
0473 00d2       |    |		Pop_Control	Pop_Count_2
0474 7802       |x   |		Jump	0x477
0475 00c8       |    |		Action	Pop_Auxiliary_Range
0476 3fbe       |?   |		Loop_Increasing	0x435
0477 00ce       |    |		Action	Pop_Auxiliary
0478 00c8       |    |		Action	Pop_Auxiliary_Range
0479 3f56       |?V  |		Loop_Increasing	0x3d0
047a 00ce       |    |		Action	Pop_Auxiliary
047b 00c8       |    |		Action	Pop_Auxiliary_Range
047c 3f45       |?E  |		Loop_Increasing	0x3c2
047d 00ce       |    |		Action	Pop_Auxiliary
047e e00e       |    |		Load	0x0,0xe
047f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0480 4805       |H   |		Short_Literal	0x5
0481 e00e       |    |		Load	0x0,0xe
0482 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0483 4807       |H   |		Short_Literal	0x7
0484 e00e       |    |		Load	0x0,0xe
0485 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0486 0278       | x  |		Execute	Discrete,Or
0487 6805       |h   |		Jump_Zero	0x48d
0488 e271       | q  |		Load	0x1,0x71
0489 e270       | p  |		Load	0x1,0x70
048a e275       | u  |		Load	0x1,0x75
048b e00e       |    |		Load	0x0,0xe
048c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
048d e270       | p  |		Load	0x1,0x70
048e e271       | q  |		Load	0x1,0x71
048f 827c       | |  |		Call	0x1,0x7c
0490 e00e       |    |		Load	0x0,0xe
0491 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0492 e270       | p  |		Load	0x1,0x70
0493 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0494 00ca       |    |		Action	Exit_Nullary_Function
0495 0000 0000  |    |		.XXX[0x3]
0497 0000       |    |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049c       |    |		.CONST	0x049c								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0002       |    |		.CONST	0x0002								; Number of locals
049b			INIT_0498:
049b 00e1       |    |		Load_Encached	Boolean_Cache
049c			BODY_0498:
049c e211       |    |		Load	0x1,0x11
049d 6803       |h   |		Jump_Zero	0x4a1
049e e210       |    |		Load	0x1,0x10
049f e00e       |    |		Load	0x0,0xe
04a0 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04a1 e5fc       |    |		Load	0x2,-0x4
04a2 601d       |`   |		Indirect_Literal	Discrete,0x4c0,{0x00000000, 0x7fffffff}
04a3 027f       |    |		Execute	Discrete,Equal
04a4 6809       |h   |		Jump_Zero	0x4ae
04a5 00cf       |    |		Action	Mark_Auxiliary
04a6 85fd       |    |		Call	0x2,-0x3
04a7 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04a8 00d9       |    |		Load_Top	At_Offset_1
04a9 6802       |h   |		Jump_Zero	0x4ac
04aa 00c9       |    |		Action	Pop_Auxiliary_Loop
04ab 7ffa       |    |		Jump	0x4a6
04ac 00ce       |    |		Action	Pop_Auxiliary
04ad 780e       |x   |		Jump	0x4bc
04ae 00cf       |    |		Action	Mark_Auxiliary
04af e5fc       |    |		Load	0x2,-0x4
04b0 4801       |H   |		Short_Literal	0x1
04b1 0263       | c  |		Execute	Discrete,Above_Bound
04b2 7008       |p   |		Jump_Nonzero	0x4bb
04b3 85fd       |    |		Call	0x2,-0x3
04b4 a402       |    |		Store_Unchecked	0x2,0x2
04b5 00db       |    |		Load_Top	At_Offset_3
04b6 7002       |p   |		Jump_Nonzero	0x4b9
04b7 00d2       |    |		Pop_Control	Pop_Count_2
04b8 7802       |x   |		Jump	0x4bb
04b9 00c8       |    |		Action	Pop_Auxiliary_Range
04ba 3ff8       |?   |		Loop_Increasing	0x4b3
04bb 00ce       |    |		Action	Pop_Auxiliary
04bc 00d8       |    |		Load_Top	At_Offset_0
04bd 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04be 0000 0000  |    |		.XXX[0x2]
04c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
04c4 0000 0000  |    |		.BLANK	0000[0x4]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04ce       |    |		.CONST	0x04ce								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0002       |    |		.CONST	0x0002								; Number of locals
04cb			INIT_04c8:
04cb e402       |    |		Load	0x2,0x2
04cc e26f       | o  |		Load	0x1,0x6f
04cd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04ce			BODY_04c8:
04ce e211       |    |		Load	0x1,0x11
04cf 680e       |h   |		Jump_Zero	0x4de
04d0 e5ff       |    |		Load	0x2,-0x1
04d1 680c       |h   |		Jump_Zero	0x4de
04d2 4804       |H   |		Short_Literal	0x4
04d3 e00e       |    |		Load	0x0,0xe
04d4 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04d5 6808       |h   |		Jump_Zero	0x4de
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 00d9       |    |		Load_Top	At_Offset_1
04d8 e005       |    |		Load	0x0,0x5
04d9 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
04da e5ff       |    |		Load	0x2,-0x1
04db e275       | u  |		Load	0x1,0x75
04dc e00e       |    |		Load	0x0,0xe
04dd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04de e402       |    |		Load	0x2,0x2
04df e26f       | o  |		Load	0x1,0x6f
04e0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04e1 00d1       |    |		Pop_Control	Pop_Count_1
04e2 00d8       |    |		Load_Top	At_Offset_0
04e3 00cb       |    |		Action	Pop_Block_With_Result
04e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e5 ; --------------------------------------------------------------------------------------
04e5 ; STRING TABLE
04e5 ; --------------------------------------------------------------------------------------
04e5 0004       |    |		.STRTAB	0x0004->0x04e7							; "///"
04e6 0005       |    |		.STREND 0x0005->0x04e8
04e7 2f2f 2f00  |/// |		.STRTAB_STRINGS
04e9 0000 0000  |    |		.BLANK	0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug Table
04f0 ; --------------------------------------------------------------------------------------
04f0 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xdbe7,0x0000,0x0001,0x000a
04f6 000b 051e  |    |		.DBG4T	0x000b,0x051e,0xc000,0x0000
04fa 0010 0522  |   "|		.DBG4T	0x0010,0x0522,0xc000,0x0000
04fe 010b 0559  |   Y|		.DBG4T	0x010b,0x0559,0x1002,0x0000
0502 012b 0561  | + a|		.DBG4T	0x012b,0x0561,0x1002,0x0000
0506 014b 0567  | K g|		.DBG4T	0x014b,0x0567,0x1002,0x4000
050a 0233 05ac  | 3  |		.DBG4T	0x0233,0x05ac,0x1001,0x4000
050e 02cb 05f8  |    |		.DBG4T	0x02cb,0x05f8,0x1002,0x0000
0512 03ab 061e  |    |		.DBG4T	0x03ab,0x061e,0x1002,0x0000
0516 049b 0649  |   I|		.DBG4T	0x049b,0x0649,0x3802,0x4002
051a 04cb 065e  |   ^|		.DBG4T	0x04cb,0x065e,0x1004,0x0000
051e ; --------------------------------------------------------------------------------------
051e ; Debug chain
051e ; --------------------------------------------------------------------------------------
051e 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0520 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0522 ; --------------------------------------------------------------------------------------
0522 ; Debug chain
0522 ; --------------------------------------------------------------------------------------
0522 0012 0023  |   #|		.DBGLEN	0x0012,0x0023
0524 0010 001a  |    |		.DBGLNO	0x0010,0x001a,0x001d,0x0022,0x0027,0x002c,0x0031,0x0033,0x0035,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x0052,0x005b,0x005d,0x0061,0x0066,0x006b,0x0070,0x0075,0x007a,0x007f,0x0084,0x0089,0x008e,0x0093,0x0098,0x009d,0x00a2,0x00a7,0x00ac,0x00b1,0x00b6,0x00bb,0x00c0,0x00c5,0x00ca,0x00cf,0x00d4,0x00d9,0x00de,0x00e3,0x00e8,0x00ed,0x00f2,0x00f7,0x00f9,0x00fc,0x00ff
0559 ; --------------------------------------------------------------------------------------
0559 ; Debug chain
0559 ; --------------------------------------------------------------------------------------
0559 0000 0006  |    |		.DBGLEN	0x0000,0x0006
055b 010b 0111  |    |		.DBGLNO	0x010b,0x0111,0x0113,0x0116,0x011c,0x0122
0561 ; --------------------------------------------------------------------------------------
0561 ; Debug chain
0561 ; --------------------------------------------------------------------------------------
0561 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0563 012b 012e  | + .|		.DBGLNO	0x012b,0x012e,0x0137,0x0140
0567 ; --------------------------------------------------------------------------------------
0567 ; Debug chain
0567 ; --------------------------------------------------------------------------------------
0567 0001 0021  |   !|		.DBGLEN	0x0001,0x0021
0569 014b 0152  | K R|		.DBGLNO	0x014b,0x0152,0x0157,0x0178,0x017e,0x0184,0x018a,0x0190,0x0196,0x019c,0x01a2,0x01a8,0x01ae,0x01b4,0x01ba,0x01c0,0x01c6,0x01cc,0x01d2,0x01d8,0x01de,0x01e4,0x01ea,0x01f0,0x01f6,0x01fc,0x0202,0x0208,0x020e,0x0214,0x021a,0x0220,0x0226,0x022b
058b 0001 0002  |    |		.XXX[0x21]
058d 0020 0004  |    |
058f 0005 0006  |    |
0591 0007 0008  |    |
0593 0009 000a  |    |
0595 000b 000c  |    |
0597 000d 000e  |    |
0599 000f 0010  |    |
059b 0011 0012  |    |
059d 0013 0014  |    |
059f 0015 0016  |    |
05a1 0017 0018  |    |
05a3 0019 001a  |    |
05a5 001b 001c  |    |
05a7 001d 001e  |    |
05a9 001f 0003  |    |
05ab 0022       | "  |
05ac ; --------------------------------------------------------------------------------------
05ac ; Debug chain
05ac ; --------------------------------------------------------------------------------------
05ac 0000 0025  |   %|		.DBGLEN	0x0000,0x0025
05ae 0233 0254  | 3 T|		.DBGLNO	0x0233,0x0254,0x0257,0x025a,0x025d,0x0260,0x0263,0x0266,0x0269,0x026c,0x026f,0x0272,0x0275,0x0278,0x027b,0x027e,0x0281,0x0284,0x0287,0x028a,0x028d,0x0290,0x0293,0x0296,0x0299,0x029c,0x029f,0x02a2,0x02a5,0x02a8,0x02ab,0x02ad,0x02af,0x02b9,0x02be,0x02c0,0x02c2
05d3 0001 001f  |    |		.XXX[0x25]
05d5 0003 0004  |    |
05d7 0005 0006  |    |
05d9 0007 0008  |    |
05db 0009 000a  |    |
05dd 000b 000c  |    |
05df 000d 000e  |    |
05e1 000f 0010  |    |
05e3 0011 0012  |    |
05e5 0013 0014  |    |
05e7 0015 0016  |    |
05e9 0017 0018  |    |
05eb 0019 001a  |    |
05ed 001b 001c  |    |
05ef 001d 001e  |    |
05f1 0002 0021  |   !|
05f3 0022 0023  | " #|
05f5 0024 0025  | $ %|
05f7 0026       | &  |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug chain
05f8 ; --------------------------------------------------------------------------------------
05f8 0003 0021  |   !|		.DBGLEN	0x0003,0x0021
05fa 02cb 02cd  |    |		.DBGLNO	0x02cb,0x02cd,0x02d0,0x02d9,0x02dc,0x02e1,0x02ee,0x02fb,0x02fd,0x0300,0x0306,0x0309,0x0311,0x0314,0x0319,0x031e,0x0327,0x0330,0x0337,0x033f,0x0343,0x0346,0x034d,0x0353,0x0362,0x0371,0x0375,0x037d,0x0380,0x0383,0x0385,0x0389,0x038b,0x0391,0x039c,0x039f
061e ; --------------------------------------------------------------------------------------
061e ; Debug chain
061e ; --------------------------------------------------------------------------------------
061e 0003 0026  |   &|		.DBGLEN	0x0003,0x0026
0620 03ab 03ad  |    |		.DBGLNO	0x03ab,0x03ad,0x03b0,0x03b9,0x03bb,0x03be,0x03c3,0x03d0,0x03dd,0x03df,0x03e2,0x03e8,0x03eb,0x03f3,0x03f6,0x03fb,0x0400,0x0409,0x0412,0x0419,0x0421,0x0425,0x0428,0x042f,0x0435,0x0444,0x0453,0x0457,0x045f,0x0462,0x0465,0x0467,0x046b,0x046d,0x0473,0x047e,0x0480,0x0488,0x048d,0x0490,0x0492
0649 ; --------------------------------------------------------------------------------------
0649 ; Debug chain
0649 ; --------------------------------------------------------------------------------------
0649 0001 0009  |    |		.DBGLEN	0x0001,0x0009
064b 049b 049c  |    |		.DBGLNO	0x049b,0x049c,0x049e,0x04a1,0x04a6,0x04a8,0x04af,0x04b3,0x04b5,0x04bc
0655 0001 0002  |    |		.XXX[0x9]
0657 0003 0005  |    |
0659 0006 0007  |    |
065b 0008 0009  |    |
065d 000a       |    |
065e ; --------------------------------------------------------------------------------------
065e ; Debug chain
065e ; --------------------------------------------------------------------------------------
065e 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0660 04cb 04ce  |    |		.DBGLNO	0x04cb,0x04ce,0x04d0,0x04d6,0x04de,0x04e2
0666 0000 0000  |    |		.BLANK	0000[0x19a]