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

⟦9f96f504b⟧

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

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 0520       |    |		.CONST	0x0520								; 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 005c       | \  |		.CONST	0x005c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0084       |    |		.CONST	0x0084								; Number of locals
000b			INIT_0008:
000b 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 4801       |H   |		Short_Literal	0x1
000f 481e       |H   |		Short_Literal	0x1e
0010 00e1       |    |		Load_Encached	Boolean_Cache
0011 02a0       |    |		Declare_Subprogram	Null_Subprogram
0012 4801       |H   |		Short_Literal	0x1
0013 035d       | ]  |		Declare_Type	Array,Defined
0014 4801       |H   |		Short_Literal	0x1
0015 481e       |H   |		Short_Literal	0x1e
0016 00e3       |    |		Load_Encached	Natural_Cache
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 4801       |H   |		Short_Literal	0x1
0019 035d       | ]  |		Declare_Type	Array,Defined
001a 00d8       |    |		Load_Top	At_Offset_0
001b 00e3       |    |		Load_Encached	Natural_Cache
001c 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
001e 4802       |H   |		Short_Literal	0x2
001f 032d       | -  |		Declare_Type	Record,Defined
0020 00d8       |    |		Load_Top	At_Offset_0
0021 0322       | "  |		Declare_Variable	Record
0022 00d8       |    |		Load_Top	At_Offset_0
0023 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0024 00db       |    |		Load_Top	At_Offset_3
0025 0337       | 7  |		Declare_Variable	Array
0026 e001       |    |		Load	0x0,0x1
0027 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0028 e001       |    |		Load	0x0,0x1
0029 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b 02ff       |    |		Declare_Variable	Variant_Record
002c 00d8       |    |		Load_Top	At_Offset_0
002d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002e e001       |    |		Load	0x0,0x1
002f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0030 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0031 02ff       |    |		Declare_Variable	Variant_Record
0032 00d8       |    |		Load_Top	At_Offset_0
0033 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0034 029d 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call
0036 029d 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call
0038 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call
003a 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
003c 029d 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call
003e 029b 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Unelaborated
0040 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
0043 00c6       |    |		Action	Check_Subprogram_Elaborated
0044 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
0045 0092 0508  |    |		Action	Push_String_Extended,0x508					; " LRU "
0047 e001       |    |		Load	0x0,0x1
0048 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0049 01c7       |    |		Execute	Vector,Convert
004a e002       |    |		Load	0x0,0x2
004b e003       |    |		Load	0x0,0x3
004c 4800       |H   |		Short_Literal	0x0
004d 0007       |    |		Action	Break_Optional
004e 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
004f 00c6       |    |		Action	Check_Subprogram_Elaborated
0050 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
0051 0092 0509  |    |		Action	Push_String_Extended,0x509					; "FIRST"
0053 e001       |    |		Load	0x0,0x1
0054 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0055 01c7       |    |		Execute	Vector,Convert
0056 e004       |    |		Load	0x0,0x4
0057 e005       |    |		Load	0x0,0x5
0058 4800       |H   |		Short_Literal	0x0
0059 0007       |    |		Action	Break_Optional
005a 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
005b 00c7       |    |		Action	Elaborate_Subprogram
005c			BODY_0008:
005c e20f       |    |		Load	0x1,0xf
005d e006       |    |		Load	0x0,0x6
005e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
005f c272       | r  |		Store	0x1,0x72
0060 e268       | h  |		Load	0x1,0x68
0061 e265       | e  |		Load	0x1,0x65
0062 e262       | b  |		Load	0x1,0x62
0063 e25f       | _  |		Load	0x1,0x5f
0064 e25c       | \  |		Load	0x1,0x5c
0065 e259       | Y  |		Load	0x1,0x59
0066 e256       | V  |		Load	0x1,0x56
0067 e253       | S  |		Load	0x1,0x53
0068 e250       | P  |		Load	0x1,0x50
0069 e24d       | M  |		Load	0x1,0x4d
006a e24a       | J  |		Load	0x1,0x4a
006b e247       | G  |		Load	0x1,0x47
006c e244       | D  |		Load	0x1,0x44
006d e241       | A  |		Load	0x1,0x41
006e e23e       | >  |		Load	0x1,0x3e
006f e23b       | ;  |		Load	0x1,0x3b
0070 e238       | 8  |		Load	0x1,0x38
0071 e235       | 5  |		Load	0x1,0x35
0072 e232       | 2  |		Load	0x1,0x32
0073 e22f       | /  |		Load	0x1,0x2f
0074 e22c       | ,  |		Load	0x1,0x2c
0075 e229       | )  |		Load	0x1,0x29
0076 e226       | &  |		Load	0x1,0x26
0077 e223       | #  |		Load	0x1,0x23
0078 e220       |    |		Load	0x1,0x20
0079 e21d       |    |		Load	0x1,0x1d
007a e21a       |    |		Load	0x1,0x1a
007b e217       |    |		Load	0x1,0x17
007c e214       |    |		Load	0x1,0x14
007d e211       |    |		Load	0x1,0x11
007e e20f       |    |		Load	0x1,0xf
007f e272       | r  |		Load	0x1,0x72
0080 e001       |    |		Load	0x0,0x1
0081 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0082 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0083 00bc       |    |		Action	Signal_Activated
0084 00bb       |    |		Action	Signal_Completion
0085 0000 0000  |    |		.XXX[0x3]
0087 0000       |    |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e210       |    |		Load	0x1,0x10
008c 0f02       |    |		Execute_Immediate	Equal,0x2
008d 6806       |h   |		Jump_Zero	0x94
008e 00da       |    |		Load_Top	At_Offset_2
008f 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
0090 e27c       | |  |		Load	0x1,0x7c
0091 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
0092 827a       | z  |		Call	0x1,0x7a
0093 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0094 00da       |    |		Load_Top	At_Offset_2
0095 1d80       |    |		Execute_Immediate	Reference_Lex_1,0x80
0096 e281       |    |		Load	0x1,0x81
0097 1d82       |    |		Execute_Immediate	Reference_Lex_1,0x82
0098 827a       | z  |		Call	0x1,0x7a
0099 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4608       |F   |		Jump_Case	0x9
00a4 7808       |x   |		Jump	0xad								; case 0x0
00a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00a6 781b       |x   |		Jump	0xc2								; case 0x2
00a7 781a       |x   |		Jump	0xc2								; case 0x3
00a8 7819       |x   |		Jump	0xc2								; case 0x4
00a9 7818       |x   |		Jump	0xc2								; case 0x5
00aa 7817       |x   |		Jump	0xc2								; case 0x6
00ab 7816       |x   |		Jump	0xc2								; case 0x7
00ac 7815       |x   |		Jump	0xc2								; case 0x8
00ad e26f       | o  |		Load	0x1,0x6f
00ae 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00af 0337       | 7  |		Declare_Variable	Array
00b0 481e       |H   |		Short_Literal	0x1e
00b1 4801       |H   |		Short_Literal	0x1
00b2 4800       |H   |		Short_Literal	0x0
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 e402       |    |		Load	0x2,0x2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 3ffb       |?   |		Loop_Increasing	0xb2
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00bb 0119       |    |		Execute	Any,Check_In_Formal_Type
00bc 00d1       |    |		Pop_Control	Pop_Count_1
00bd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00be 4800       |H   |		Short_Literal	0x0
00bf 00db       |    |		Load_Top	At_Offset_3
00c0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00c2 0869       | i  |		Execute_Immediate	Raise,0x69
00c3 0000 0000  |    |		.BLANK	0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00cf       |    |		Action	Mark_Auxiliary
00cc 481e       |H   |		Short_Literal	0x1e
00cd 4801       |H   |		Short_Literal	0x1
00ce 0007       |    |		Action	Break_Optional
00cf 4800       |H   |		Short_Literal	0x0
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 e270       | p  |		Load	0x1,0x70
00d2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00d3 01d6       |    |		Execute	Vector,Field_Write
00d4 00c8       |    |		Action	Pop_Auxiliary_Range
00d5 3ff9       |?   |		Loop_Increasing	0xcf
00d6 00ce       |    |		Action	Pop_Auxiliary
00d7 4800       |H   |		Short_Literal	0x0
00d8 e270       | p  |		Load	0x1,0x70
00d9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00db 0000 0000  |    |		.BLANK	0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e4       |    |		.CONST	0x00e4								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0002       |    |		.CONST	0x0002								; Number of locals
00e3			INIT_00e0:
00e3 00e1       |    |		Load_Encached	Boolean_Cache
00e4			BODY_00e0:
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 e001       |    |		Load	0x0,0x1
00e6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 00d0       |    |		Action	Swap_Control
00e9 0260       | `  |		Execute	Discrete,In_Type
00ea 7001       |p   |		Jump_Nonzero	0xec
00eb 0801       |    |		Execute_Immediate	Raise,0x1
00ec e20f       |    |		Load	0x1,0xf
00ed e001       |    |		Load	0x0,0x1
00ee 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
00ef 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00f0 7082       |p   |		Jump_Nonzero	0x173
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 0c1f       |    |		Execute_Immediate	Greater_Equal,0x1f
00f4 7023       |p#  |		Jump_Nonzero	0x118
00f5 461e       |F   |		Jump_Case	0x1f
00f6 7822       |x"  |		Jump	0x119								; case 0x0
00f7 7824       |x$  |		Jump	0x11c								; case 0x1
00f8 7826       |x&  |		Jump	0x11f								; case 0x2
00f9 7828       |x(  |		Jump	0x122								; case 0x3
00fa 782a       |x*  |		Jump	0x125								; case 0x4
00fb 782c       |x,  |		Jump	0x128								; case 0x5
00fc 782e       |x.  |		Jump	0x12b								; case 0x6
00fd 7830       |x0  |		Jump	0x12e								; case 0x7
00fe 7832       |x2  |		Jump	0x131								; case 0x8
00ff 7834       |x4  |		Jump	0x134								; case 0x9
0100 7836       |x6  |		Jump	0x137								; case 0xa
0101 7838       |x8  |		Jump	0x13a								; case 0xb
0102 783a       |x:  |		Jump	0x13d								; case 0xc
0103 783c       |x<  |		Jump	0x140								; case 0xd
0104 783e       |x>  |		Jump	0x143								; case 0xe
0105 7840       |x@  |		Jump	0x146								; case 0xf
0106 7842       |xB  |		Jump	0x149								; case 0x10
0107 7844       |xD  |		Jump	0x14c								; case 0x11
0108 7846       |xF  |		Jump	0x14f								; case 0x12
0109 7848       |xH  |		Jump	0x152								; case 0x13
010a 784a       |xJ  |		Jump	0x155								; case 0x14
010b 784c       |xL  |		Jump	0x158								; case 0x15
010c 784e       |xN  |		Jump	0x15b								; case 0x16
010d 7850       |xP  |		Jump	0x15e								; case 0x17
010e 7852       |xR  |		Jump	0x161								; case 0x18
010f 7854       |xT  |		Jump	0x164								; case 0x19
0110 7856       |xV  |		Jump	0x167								; case 0x1a
0111 7858       |xX  |		Jump	0x16a								; case 0x1b
0112 785a       |xZ  |		Jump	0x16d								; case 0x1c
0113 785c       |x\  |		Jump	0x170								; case 0x1d
0114 7800       |x   |		Jump	0x115								; case 0x1e
0115 8269       | i  |		Call	0x1,0x69
0116 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0117 785d       |x]  |		Jump	0x175
0118 00d1       |    |		Pop_Control	Pop_Count_1
0119 4800       |H   |		Short_Literal	0x0
011a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
011b 7859       |xY  |		Jump	0x175
011c 8212       |    |		Call	0x1,0x12
011d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
011e 7856       |xV  |		Jump	0x175
011f 8215       |    |		Call	0x1,0x15
0120 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0121 7853       |xS  |		Jump	0x175
0122 8218       |    |		Call	0x1,0x18
0123 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0124 7850       |xP  |		Jump	0x175
0125 821b       |    |		Call	0x1,0x1b
0126 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0127 784d       |xM  |		Jump	0x175
0128 821e       |    |		Call	0x1,0x1e
0129 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
012a 784a       |xJ  |		Jump	0x175
012b 8221       | !  |		Call	0x1,0x21
012c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
012d 7847       |xG  |		Jump	0x175
012e 8224       | $  |		Call	0x1,0x24
012f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0130 7844       |xD  |		Jump	0x175
0131 8227       | '  |		Call	0x1,0x27
0132 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0133 7841       |xA  |		Jump	0x175
0134 822a       | *  |		Call	0x1,0x2a
0135 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0136 783e       |x>  |		Jump	0x175
0137 822d       | -  |		Call	0x1,0x2d
0138 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0139 783b       |x;  |		Jump	0x175
013a 8230       | 0  |		Call	0x1,0x30
013b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
013c 7838       |x8  |		Jump	0x175
013d 8233       | 3  |		Call	0x1,0x33
013e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
013f 7835       |x5  |		Jump	0x175
0140 8236       | 6  |		Call	0x1,0x36
0141 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0142 7832       |x2  |		Jump	0x175
0143 8239       | 9  |		Call	0x1,0x39
0144 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0145 782f       |x/  |		Jump	0x175
0146 823c       | <  |		Call	0x1,0x3c
0147 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0148 782c       |x,  |		Jump	0x175
0149 823f       | ?  |		Call	0x1,0x3f
014a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
014b 7829       |x)  |		Jump	0x175
014c 8242       | B  |		Call	0x1,0x42
014d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
014e 7826       |x&  |		Jump	0x175
014f 8245       | E  |		Call	0x1,0x45
0150 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0151 7823       |x#  |		Jump	0x175
0152 8248       | H  |		Call	0x1,0x48
0153 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0154 7820       |x   |		Jump	0x175
0155 824b       | K  |		Call	0x1,0x4b
0156 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0157 781d       |x   |		Jump	0x175
0158 824e       | N  |		Call	0x1,0x4e
0159 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
015a 781a       |x   |		Jump	0x175
015b 8251       | Q  |		Call	0x1,0x51
015c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
015d 7817       |x   |		Jump	0x175
015e 8254       | T  |		Call	0x1,0x54
015f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0160 7814       |x   |		Jump	0x175
0161 8257       | W  |		Call	0x1,0x57
0162 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0163 7811       |x   |		Jump	0x175
0164 825a       | Z  |		Call	0x1,0x5a
0165 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0166 780e       |x   |		Jump	0x175
0167 825d       | ]  |		Call	0x1,0x5d
0168 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0169 780b       |x   |		Jump	0x175
016a 8260       | `  |		Call	0x1,0x60
016b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
016c 7808       |x   |		Jump	0x175
016d 8263       | c  |		Call	0x1,0x63
016e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
016f 7805       |x   |		Jump	0x175
0170 8266       | f  |		Call	0x1,0x66
0171 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0172 7802       |x   |		Jump	0x175
0173 4800       |H   |		Short_Literal	0x0
0174 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0175 4804       |H   |		Short_Literal	0x4
0176 e001       |    |		Load	0x0,0x1
0177 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0178 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0179 6915       |i   |		Jump_Zero	0x28f
017a 00db       |    |		Load_Top	At_Offset_3
017b 00d8       |    |		Load_Top	At_Offset_0
017c 0c1f       |    |		Execute_Immediate	Greater_Equal,0x1f
017d 7028       |p(  |		Jump_Nonzero	0x1a6
017e 461e       |F   |		Jump_Case	0x1f
017f 790f       |y   |		Jump	0x28f								; case 0x0
0180 7907       |y   |		Jump	0x288								; case 0x1
0181 7826       |x&  |		Jump	0x1a8								; case 0x2
0182 782d       |x-  |		Jump	0x1b0								; case 0x3
0183 7834       |x4  |		Jump	0x1b8								; case 0x4
0184 783b       |x;  |		Jump	0x1c0								; case 0x5
0185 7842       |xB  |		Jump	0x1c8								; case 0x6
0186 7849       |xI  |		Jump	0x1d0								; case 0x7
0187 7850       |xP  |		Jump	0x1d8								; case 0x8
0188 7857       |xW  |		Jump	0x1e0								; case 0x9
0189 785e       |x^  |		Jump	0x1e8								; case 0xa
018a 7865       |xe  |		Jump	0x1f0								; case 0xb
018b 786c       |xl  |		Jump	0x1f8								; case 0xc
018c 7873       |xs  |		Jump	0x200								; case 0xd
018d 787a       |xz  |		Jump	0x208								; case 0xe
018e 7881       |x   |		Jump	0x210								; case 0xf
018f 7888       |x   |		Jump	0x218								; case 0x10
0190 788f       |x   |		Jump	0x220								; case 0x11
0191 7896       |x   |		Jump	0x228								; case 0x12
0192 789d       |x   |		Jump	0x230								; case 0x13
0193 78a4       |x   |		Jump	0x238								; case 0x14
0194 78ab       |x   |		Jump	0x240								; case 0x15
0195 78b2       |x   |		Jump	0x248								; case 0x16
0196 78b9       |x   |		Jump	0x250								; case 0x17
0197 78c0       |x   |		Jump	0x258								; case 0x18
0198 78c7       |x   |		Jump	0x260								; case 0x19
0199 78ce       |x   |		Jump	0x268								; case 0x1a
019a 78d5       |x   |		Jump	0x270								; case 0x1b
019b 78dc       |x   |		Jump	0x278								; case 0x1c
019c 78e3       |x   |		Jump	0x280								; case 0x1d
019d 7800       |x   |		Jump	0x19e								; case 0x1e
019e e274       | t  |		Load	0x1,0x74
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 481e       |H   |		Short_Literal	0x1e
01a1 e268       | h  |		Load	0x1,0x68
01a2 e001       |    |		Load	0x0,0x1
01a3 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01a4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01a5 78e9       |x   |		Jump	0x28f
01a6 00d1       |    |		Pop_Control	Pop_Count_1
01a7 78e7       |x   |		Jump	0x28f
01a8 e274       | t  |		Load	0x1,0x74
01a9 00d9       |    |		Load_Top	At_Offset_1
01aa 4802       |H   |		Short_Literal	0x2
01ab e214       |    |		Load	0x1,0x14
01ac e001       |    |		Load	0x0,0x1
01ad 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01ae 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01af 78df       |x   |		Jump	0x28f
01b0 e274       | t  |		Load	0x1,0x74
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 4803       |H   |		Short_Literal	0x3
01b3 e217       |    |		Load	0x1,0x17
01b4 e001       |    |		Load	0x0,0x1
01b5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01b6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01b7 78d7       |x   |		Jump	0x28f
01b8 e274       | t  |		Load	0x1,0x74
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 4804       |H   |		Short_Literal	0x4
01bb e21a       |    |		Load	0x1,0x1a
01bc e001       |    |		Load	0x0,0x1
01bd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01be 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01bf 78cf       |x   |		Jump	0x28f
01c0 e274       | t  |		Load	0x1,0x74
01c1 00d9       |    |		Load_Top	At_Offset_1
01c2 4805       |H   |		Short_Literal	0x5
01c3 e21d       |    |		Load	0x1,0x1d
01c4 e001       |    |		Load	0x0,0x1
01c5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01c6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01c7 78c7       |x   |		Jump	0x28f
01c8 e274       | t  |		Load	0x1,0x74
01c9 00d9       |    |		Load_Top	At_Offset_1
01ca 4806       |H   |		Short_Literal	0x6
01cb e220       |    |		Load	0x1,0x20
01cc e001       |    |		Load	0x0,0x1
01cd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01ce 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01cf 78bf       |x   |		Jump	0x28f
01d0 e274       | t  |		Load	0x1,0x74
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 4807       |H   |		Short_Literal	0x7
01d3 e223       | #  |		Load	0x1,0x23
01d4 e001       |    |		Load	0x0,0x1
01d5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01d6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01d7 78b7       |x   |		Jump	0x28f
01d8 e274       | t  |		Load	0x1,0x74
01d9 00d9       |    |		Load_Top	At_Offset_1
01da 4808       |H   |		Short_Literal	0x8
01db e226       | &  |		Load	0x1,0x26
01dc e001       |    |		Load	0x0,0x1
01dd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01de 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01df 78af       |x   |		Jump	0x28f
01e0 e274       | t  |		Load	0x1,0x74
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 4809       |H   |		Short_Literal	0x9
01e3 e229       | )  |		Load	0x1,0x29
01e4 e001       |    |		Load	0x0,0x1
01e5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01e6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01e7 78a7       |x   |		Jump	0x28f
01e8 e274       | t  |		Load	0x1,0x74
01e9 00d9       |    |		Load_Top	At_Offset_1
01ea 480a       |H   |		Short_Literal	0xa
01eb e22c       | ,  |		Load	0x1,0x2c
01ec e001       |    |		Load	0x0,0x1
01ed 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01ee 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ef 789f       |x   |		Jump	0x28f
01f0 e274       | t  |		Load	0x1,0x74
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 480b       |H   |		Short_Literal	0xb
01f3 e22f       | /  |		Load	0x1,0x2f
01f4 e001       |    |		Load	0x0,0x1
01f5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01f6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01f7 7897       |x   |		Jump	0x28f
01f8 e274       | t  |		Load	0x1,0x74
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa 480c       |H   |		Short_Literal	0xc
01fb e232       | 2  |		Load	0x1,0x32
01fc e001       |    |		Load	0x0,0x1
01fd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
01fe 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ff 788f       |x   |		Jump	0x28f
0200 e274       | t  |		Load	0x1,0x74
0201 00d9       |    |		Load_Top	At_Offset_1
0202 480d       |H   |		Short_Literal	0xd
0203 e235       | 5  |		Load	0x1,0x35
0204 e001       |    |		Load	0x0,0x1
0205 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0206 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0207 7887       |x   |		Jump	0x28f
0208 e274       | t  |		Load	0x1,0x74
0209 00d9       |    |		Load_Top	At_Offset_1
020a 480e       |H   |		Short_Literal	0xe
020b e238       | 8  |		Load	0x1,0x38
020c e001       |    |		Load	0x0,0x1
020d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
020e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
020f 787f       |x   |		Jump	0x28f
0210 e274       | t  |		Load	0x1,0x74
0211 00d9       |    |		Load_Top	At_Offset_1
0212 480f       |H   |		Short_Literal	0xf
0213 e23b       | ;  |		Load	0x1,0x3b
0214 e001       |    |		Load	0x0,0x1
0215 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0216 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0217 7877       |xw  |		Jump	0x28f
0218 e274       | t  |		Load	0x1,0x74
0219 00d9       |    |		Load_Top	At_Offset_1
021a 4810       |H   |		Short_Literal	0x10
021b e23e       | >  |		Load	0x1,0x3e
021c e001       |    |		Load	0x0,0x1
021d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
021e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
021f 786f       |xo  |		Jump	0x28f
0220 e274       | t  |		Load	0x1,0x74
0221 00d9       |    |		Load_Top	At_Offset_1
0222 4811       |H   |		Short_Literal	0x11
0223 e241       | A  |		Load	0x1,0x41
0224 e001       |    |		Load	0x0,0x1
0225 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0226 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0227 7867       |xg  |		Jump	0x28f
0228 e274       | t  |		Load	0x1,0x74
0229 00d9       |    |		Load_Top	At_Offset_1
022a 4812       |H   |		Short_Literal	0x12
022b e244       | D  |		Load	0x1,0x44
022c e001       |    |		Load	0x0,0x1
022d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
022e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
022f 785f       |x_  |		Jump	0x28f
0230 e274       | t  |		Load	0x1,0x74
0231 00d9       |    |		Load_Top	At_Offset_1
0232 4813       |H   |		Short_Literal	0x13
0233 e247       | G  |		Load	0x1,0x47
0234 e001       |    |		Load	0x0,0x1
0235 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0236 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0237 7857       |xW  |		Jump	0x28f
0238 e274       | t  |		Load	0x1,0x74
0239 00d9       |    |		Load_Top	At_Offset_1
023a 4814       |H   |		Short_Literal	0x14
023b e24a       | J  |		Load	0x1,0x4a
023c e001       |    |		Load	0x0,0x1
023d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
023e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
023f 784f       |xO  |		Jump	0x28f
0240 e274       | t  |		Load	0x1,0x74
0241 00d9       |    |		Load_Top	At_Offset_1
0242 4815       |H   |		Short_Literal	0x15
0243 e24d       | M  |		Load	0x1,0x4d
0244 e001       |    |		Load	0x0,0x1
0245 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0246 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0247 7847       |xG  |		Jump	0x28f
0248 e274       | t  |		Load	0x1,0x74
0249 00d9       |    |		Load_Top	At_Offset_1
024a 4816       |H   |		Short_Literal	0x16
024b e250       | P  |		Load	0x1,0x50
024c e001       |    |		Load	0x0,0x1
024d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
024e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
024f 783f       |x?  |		Jump	0x28f
0250 e274       | t  |		Load	0x1,0x74
0251 00d9       |    |		Load_Top	At_Offset_1
0252 4817       |H   |		Short_Literal	0x17
0253 e253       | S  |		Load	0x1,0x53
0254 e001       |    |		Load	0x0,0x1
0255 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0256 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0257 7837       |x7  |		Jump	0x28f
0258 e274       | t  |		Load	0x1,0x74
0259 00d9       |    |		Load_Top	At_Offset_1
025a 4818       |H   |		Short_Literal	0x18
025b e256       | V  |		Load	0x1,0x56
025c e001       |    |		Load	0x0,0x1
025d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
025e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
025f 782f       |x/  |		Jump	0x28f
0260 e274       | t  |		Load	0x1,0x74
0261 00d9       |    |		Load_Top	At_Offset_1
0262 4819       |H   |		Short_Literal	0x19
0263 e259       | Y  |		Load	0x1,0x59
0264 e001       |    |		Load	0x0,0x1
0265 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0266 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0267 7827       |x'  |		Jump	0x28f
0268 e274       | t  |		Load	0x1,0x74
0269 00d9       |    |		Load_Top	At_Offset_1
026a 481a       |H   |		Short_Literal	0x1a
026b e25c       | \  |		Load	0x1,0x5c
026c e001       |    |		Load	0x0,0x1
026d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
026e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
026f 781f       |x   |		Jump	0x28f
0270 e274       | t  |		Load	0x1,0x74
0271 00d9       |    |		Load_Top	At_Offset_1
0272 481b       |H   |		Short_Literal	0x1b
0273 e25f       | _  |		Load	0x1,0x5f
0274 e001       |    |		Load	0x0,0x1
0275 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0276 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0277 7817       |x   |		Jump	0x28f
0278 e274       | t  |		Load	0x1,0x74
0279 00d9       |    |		Load_Top	At_Offset_1
027a 481c       |H   |		Short_Literal	0x1c
027b e262       | b  |		Load	0x1,0x62
027c e001       |    |		Load	0x0,0x1
027d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
027e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
027f 780f       |x   |		Jump	0x28f
0280 e274       | t  |		Load	0x1,0x74
0281 00d9       |    |		Load_Top	At_Offset_1
0282 481d       |H   |		Short_Literal	0x1d
0283 e265       | e  |		Load	0x1,0x65
0284 e001       |    |		Load	0x0,0x1
0285 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0286 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0287 7807       |x   |		Jump	0x28f
0288 e274       | t  |		Load	0x1,0x74
0289 00d9       |    |		Load_Top	At_Offset_1
028a 4801       |H   |		Short_Literal	0x1
028b e211       |    |		Load	0x1,0x11
028c e001       |    |		Load	0x0,0x1
028d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
028e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028f 00d8       |    |		Load_Top	At_Offset_0
0290 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0291 0000 0000  |    |		.BLANK	0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c 00d8       |    |		Load_Top	At_Offset_0
029d 0c1f       |    |		Execute_Immediate	Greater_Equal,0x1f
029e 7022       |p"  |		Jump_Nonzero	0x2c1
029f 461e       |F   |		Jump_Case	0x1f
02a0 785b       |x[  |		Jump	0x2fc								; case 0x0
02a1 7859       |xY  |		Jump	0x2fb								; case 0x1
02a2 7820       |x   |		Jump	0x2c3								; case 0x2
02a3 7821       |x!  |		Jump	0x2c5								; case 0x3
02a4 7822       |x"  |		Jump	0x2c7								; case 0x4
02a5 7823       |x#  |		Jump	0x2c9								; case 0x5
02a6 7824       |x$  |		Jump	0x2cb								; case 0x6
02a7 7825       |x%  |		Jump	0x2cd								; case 0x7
02a8 7826       |x&  |		Jump	0x2cf								; case 0x8
02a9 7827       |x'  |		Jump	0x2d1								; case 0x9
02aa 7828       |x(  |		Jump	0x2d3								; case 0xa
02ab 7829       |x)  |		Jump	0x2d5								; case 0xb
02ac 782a       |x*  |		Jump	0x2d7								; case 0xc
02ad 782b       |x+  |		Jump	0x2d9								; case 0xd
02ae 782c       |x,  |		Jump	0x2db								; case 0xe
02af 782d       |x-  |		Jump	0x2dd								; case 0xf
02b0 782e       |x.  |		Jump	0x2df								; case 0x10
02b1 782f       |x/  |		Jump	0x2e1								; case 0x11
02b2 7830       |x0  |		Jump	0x2e3								; case 0x12
02b3 7831       |x1  |		Jump	0x2e5								; case 0x13
02b4 7832       |x2  |		Jump	0x2e7								; case 0x14
02b5 7833       |x3  |		Jump	0x2e9								; case 0x15
02b6 7834       |x4  |		Jump	0x2eb								; case 0x16
02b7 7835       |x5  |		Jump	0x2ed								; case 0x17
02b8 7836       |x6  |		Jump	0x2ef								; case 0x18
02b9 7837       |x7  |		Jump	0x2f1								; case 0x19
02ba 7838       |x8  |		Jump	0x2f3								; case 0x1a
02bb 7839       |x9  |		Jump	0x2f5								; case 0x1b
02bc 783a       |x:  |		Jump	0x2f7								; case 0x1c
02bd 783b       |x;  |		Jump	0x2f9								; case 0x1d
02be 7800       |x   |		Jump	0x2bf								; case 0x1e
02bf 826a       | j  |		Call	0x1,0x6a
02c0 783b       |x;  |		Jump	0x2fc
02c1 00d1       |    |		Pop_Control	Pop_Count_1
02c2 7839       |x9  |		Jump	0x2fc
02c3 8216       |    |		Call	0x1,0x16
02c4 7837       |x7  |		Jump	0x2fc
02c5 8219       |    |		Call	0x1,0x19
02c6 7835       |x5  |		Jump	0x2fc
02c7 821c       |    |		Call	0x1,0x1c
02c8 7833       |x3  |		Jump	0x2fc
02c9 821f       |    |		Call	0x1,0x1f
02ca 7831       |x1  |		Jump	0x2fc
02cb 8222       | "  |		Call	0x1,0x22
02cc 782f       |x/  |		Jump	0x2fc
02cd 8225       | %  |		Call	0x1,0x25
02ce 782d       |x-  |		Jump	0x2fc
02cf 8228       | (  |		Call	0x1,0x28
02d0 782b       |x+  |		Jump	0x2fc
02d1 822b       | +  |		Call	0x1,0x2b
02d2 7829       |x)  |		Jump	0x2fc
02d3 822e       | .  |		Call	0x1,0x2e
02d4 7827       |x'  |		Jump	0x2fc
02d5 8231       | 1  |		Call	0x1,0x31
02d6 7825       |x%  |		Jump	0x2fc
02d7 8234       | 4  |		Call	0x1,0x34
02d8 7823       |x#  |		Jump	0x2fc
02d9 8237       | 7  |		Call	0x1,0x37
02da 7821       |x!  |		Jump	0x2fc
02db 823a       | :  |		Call	0x1,0x3a
02dc 781f       |x   |		Jump	0x2fc
02dd 823d       | =  |		Call	0x1,0x3d
02de 781d       |x   |		Jump	0x2fc
02df 8240       | @  |		Call	0x1,0x40
02e0 781b       |x   |		Jump	0x2fc
02e1 8243       | C  |		Call	0x1,0x43
02e2 7819       |x   |		Jump	0x2fc
02e3 8246       | F  |		Call	0x1,0x46
02e4 7817       |x   |		Jump	0x2fc
02e5 8249       | I  |		Call	0x1,0x49
02e6 7815       |x   |		Jump	0x2fc
02e7 824c       | L  |		Call	0x1,0x4c
02e8 7813       |x   |		Jump	0x2fc
02e9 824f       | O  |		Call	0x1,0x4f
02ea 7811       |x   |		Jump	0x2fc
02eb 8252       | R  |		Call	0x1,0x52
02ec 780f       |x   |		Jump	0x2fc
02ed 8255       | U  |		Call	0x1,0x55
02ee 780d       |x   |		Jump	0x2fc
02ef 8258       | X  |		Call	0x1,0x58
02f0 780b       |x   |		Jump	0x2fc
02f1 825b       | [  |		Call	0x1,0x5b
02f2 7809       |x   |		Jump	0x2fc
02f3 825e       | ^  |		Call	0x1,0x5e
02f4 7807       |x   |		Jump	0x2fc
02f5 8261       | a  |		Call	0x1,0x61
02f6 7805       |x   |		Jump	0x2fc
02f7 8264       | d  |		Call	0x1,0x64
02f8 7803       |x   |		Jump	0x2fc
02f9 8267       | g  |		Call	0x1,0x67
02fa 7801       |x   |		Jump	0x2fc
02fb 8213       |    |		Call	0x1,0x13
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 690b       |i   |		Jump_Zero	0x409
02fe 4806       |H   |		Short_Literal	0x6
02ff e001       |    |		Load	0x0,0x1
0300 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0301 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0302 4808       |H   |		Short_Literal	0x8
0303 e001       |    |		Load	0x0,0x1
0304 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0305 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0306 0278       | x  |		Execute	Discrete,Or
0307 6901       |i   |		Jump_Zero	0x409
0308 00da       |    |		Load_Top	At_Offset_2
0309 00d8       |    |		Load_Top	At_Offset_0
030a 0c1f       |    |		Execute_Immediate	Greater_Equal,0x1f
030b 7027       |p'  |		Jump_Nonzero	0x333
030c 461e       |F   |		Jump_Case	0x1f
030d 7826       |x&  |		Jump	0x334								; case 0x0
030e 7830       |x0  |		Jump	0x33f								; case 0x1
030f 7836       |x6  |		Jump	0x346								; case 0x2
0310 783c       |x<  |		Jump	0x34d								; case 0x3
0311 7842       |xB  |		Jump	0x354								; case 0x4
0312 7848       |xH  |		Jump	0x35b								; case 0x5
0313 784e       |xN  |		Jump	0x362								; case 0x6
0314 7854       |xT  |		Jump	0x369								; case 0x7
0315 785a       |xZ  |		Jump	0x370								; case 0x8
0316 7860       |x`  |		Jump	0x377								; case 0x9
0317 7866       |xf  |		Jump	0x37e								; case 0xa
0318 786c       |xl  |		Jump	0x385								; case 0xb
0319 7872       |xr  |		Jump	0x38c								; case 0xc
031a 7878       |xx  |		Jump	0x393								; case 0xd
031b 787e       |x~  |		Jump	0x39a								; case 0xe
031c 7884       |x   |		Jump	0x3a1								; case 0xf
031d 788a       |x   |		Jump	0x3a8								; case 0x10
031e 7890       |x   |		Jump	0x3af								; case 0x11
031f 7896       |x   |		Jump	0x3b6								; case 0x12
0320 789c       |x   |		Jump	0x3bd								; case 0x13
0321 78a2       |x   |		Jump	0x3c4								; case 0x14
0322 78a8       |x   |		Jump	0x3cb								; case 0x15
0323 78ae       |x   |		Jump	0x3d2								; case 0x16
0324 78b4       |x   |		Jump	0x3d9								; case 0x17
0325 78ba       |x   |		Jump	0x3e0								; case 0x18
0326 78c0       |x   |		Jump	0x3e7								; case 0x19
0327 78c6       |x   |		Jump	0x3ee								; case 0x1a
0328 78cc       |x   |		Jump	0x3f5								; case 0x1b
0329 78d2       |x   |		Jump	0x3fc								; case 0x1c
032a 78d8       |x   |		Jump	0x403								; case 0x1d
032b 7800       |x   |		Jump	0x32c								; case 0x1e
032c e273       | s  |		Load	0x1,0x73
032d 481e       |H   |		Short_Literal	0x1e
032e e268       | h  |		Load	0x1,0x68
032f e001       |    |		Load	0x0,0x1
0330 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0331 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0332 78d6       |x   |		Jump	0x409
0333 00d1       |    |		Pop_Control	Pop_Count_1
0334 e273       | s  |		Load	0x1,0x73
0335 4800       |H   |		Short_Literal	0x0
0336 0092 050a  |    |		Action	Push_String_Extended,0x50a					; "NO OPERATION ! "
0338 e001       |    |		Load	0x0,0x1
0339 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
033a 01c3       |    |		Execute	Vector,Check_In_Type
033b e001       |    |		Load	0x0,0x1
033c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
033d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
033e 78ca       |x   |		Jump	0x409
033f e273       | s  |		Load	0x1,0x73
0340 4801       |H   |		Short_Literal	0x1
0341 e211       |    |		Load	0x1,0x11
0342 e001       |    |		Load	0x0,0x1
0343 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0344 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0345 78c3       |x   |		Jump	0x409
0346 e273       | s  |		Load	0x1,0x73
0347 4802       |H   |		Short_Literal	0x2
0348 e214       |    |		Load	0x1,0x14
0349 e001       |    |		Load	0x0,0x1
034a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
034b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
034c 78bc       |x   |		Jump	0x409
034d e273       | s  |		Load	0x1,0x73
034e 4803       |H   |		Short_Literal	0x3
034f e217       |    |		Load	0x1,0x17
0350 e001       |    |		Load	0x0,0x1
0351 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0352 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0353 78b5       |x   |		Jump	0x409
0354 e273       | s  |		Load	0x1,0x73
0355 4804       |H   |		Short_Literal	0x4
0356 e21a       |    |		Load	0x1,0x1a
0357 e001       |    |		Load	0x0,0x1
0358 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0359 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
035a 78ae       |x   |		Jump	0x409
035b e273       | s  |		Load	0x1,0x73
035c 4805       |H   |		Short_Literal	0x5
035d e21d       |    |		Load	0x1,0x1d
035e e001       |    |		Load	0x0,0x1
035f 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0360 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0361 78a7       |x   |		Jump	0x409
0362 e273       | s  |		Load	0x1,0x73
0363 4806       |H   |		Short_Literal	0x6
0364 e220       |    |		Load	0x1,0x20
0365 e001       |    |		Load	0x0,0x1
0366 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0367 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0368 78a0       |x   |		Jump	0x409
0369 e273       | s  |		Load	0x1,0x73
036a 4807       |H   |		Short_Literal	0x7
036b e223       | #  |		Load	0x1,0x23
036c e001       |    |		Load	0x0,0x1
036d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
036e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
036f 7899       |x   |		Jump	0x409
0370 e273       | s  |		Load	0x1,0x73
0371 4808       |H   |		Short_Literal	0x8
0372 e226       | &  |		Load	0x1,0x26
0373 e001       |    |		Load	0x0,0x1
0374 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0375 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0376 7892       |x   |		Jump	0x409
0377 e273       | s  |		Load	0x1,0x73
0378 4809       |H   |		Short_Literal	0x9
0379 e229       | )  |		Load	0x1,0x29
037a e001       |    |		Load	0x0,0x1
037b 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
037c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
037d 788b       |x   |		Jump	0x409
037e e273       | s  |		Load	0x1,0x73
037f 480a       |H   |		Short_Literal	0xa
0380 e22c       | ,  |		Load	0x1,0x2c
0381 e001       |    |		Load	0x0,0x1
0382 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0383 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0384 7884       |x   |		Jump	0x409
0385 e273       | s  |		Load	0x1,0x73
0386 480b       |H   |		Short_Literal	0xb
0387 e22f       | /  |		Load	0x1,0x2f
0388 e001       |    |		Load	0x0,0x1
0389 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
038a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
038b 787d       |x}  |		Jump	0x409
038c e273       | s  |		Load	0x1,0x73
038d 480c       |H   |		Short_Literal	0xc
038e e232       | 2  |		Load	0x1,0x32
038f e001       |    |		Load	0x0,0x1
0390 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0391 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0392 7876       |xv  |		Jump	0x409
0393 e273       | s  |		Load	0x1,0x73
0394 480d       |H   |		Short_Literal	0xd
0395 e235       | 5  |		Load	0x1,0x35
0396 e001       |    |		Load	0x0,0x1
0397 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0398 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0399 786f       |xo  |		Jump	0x409
039a e273       | s  |		Load	0x1,0x73
039b 480e       |H   |		Short_Literal	0xe
039c e238       | 8  |		Load	0x1,0x38
039d e001       |    |		Load	0x0,0x1
039e 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
039f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03a0 7868       |xh  |		Jump	0x409
03a1 e273       | s  |		Load	0x1,0x73
03a2 480f       |H   |		Short_Literal	0xf
03a3 e23b       | ;  |		Load	0x1,0x3b
03a4 e001       |    |		Load	0x0,0x1
03a5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03a6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03a7 7861       |xa  |		Jump	0x409
03a8 e273       | s  |		Load	0x1,0x73
03a9 4810       |H   |		Short_Literal	0x10
03aa e23e       | >  |		Load	0x1,0x3e
03ab e001       |    |		Load	0x0,0x1
03ac 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03ad 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03ae 785a       |xZ  |		Jump	0x409
03af e273       | s  |		Load	0x1,0x73
03b0 4811       |H   |		Short_Literal	0x11
03b1 e241       | A  |		Load	0x1,0x41
03b2 e001       |    |		Load	0x0,0x1
03b3 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03b4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03b5 7853       |xS  |		Jump	0x409
03b6 e273       | s  |		Load	0x1,0x73
03b7 4812       |H   |		Short_Literal	0x12
03b8 e244       | D  |		Load	0x1,0x44
03b9 e001       |    |		Load	0x0,0x1
03ba 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03bb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03bc 784c       |xL  |		Jump	0x409
03bd e273       | s  |		Load	0x1,0x73
03be 4813       |H   |		Short_Literal	0x13
03bf e247       | G  |		Load	0x1,0x47
03c0 e001       |    |		Load	0x0,0x1
03c1 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03c2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03c3 7845       |xE  |		Jump	0x409
03c4 e273       | s  |		Load	0x1,0x73
03c5 4814       |H   |		Short_Literal	0x14
03c6 e24a       | J  |		Load	0x1,0x4a
03c7 e001       |    |		Load	0x0,0x1
03c8 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03c9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03ca 783e       |x>  |		Jump	0x409
03cb e273       | s  |		Load	0x1,0x73
03cc 4815       |H   |		Short_Literal	0x15
03cd e24d       | M  |		Load	0x1,0x4d
03ce e001       |    |		Load	0x0,0x1
03cf 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03d0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03d1 7837       |x7  |		Jump	0x409
03d2 e273       | s  |		Load	0x1,0x73
03d3 4816       |H   |		Short_Literal	0x16
03d4 e250       | P  |		Load	0x1,0x50
03d5 e001       |    |		Load	0x0,0x1
03d6 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03d7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03d8 7830       |x0  |		Jump	0x409
03d9 e273       | s  |		Load	0x1,0x73
03da 4817       |H   |		Short_Literal	0x17
03db e253       | S  |		Load	0x1,0x53
03dc e001       |    |		Load	0x0,0x1
03dd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03de 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03df 7829       |x)  |		Jump	0x409
03e0 e273       | s  |		Load	0x1,0x73
03e1 4818       |H   |		Short_Literal	0x18
03e2 e256       | V  |		Load	0x1,0x56
03e3 e001       |    |		Load	0x0,0x1
03e4 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03e5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03e6 7822       |x"  |		Jump	0x409
03e7 e273       | s  |		Load	0x1,0x73
03e8 4819       |H   |		Short_Literal	0x19
03e9 e259       | Y  |		Load	0x1,0x59
03ea e001       |    |		Load	0x0,0x1
03eb 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03ec 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03ed 781b       |x   |		Jump	0x409
03ee e273       | s  |		Load	0x1,0x73
03ef 481a       |H   |		Short_Literal	0x1a
03f0 e25c       | \  |		Load	0x1,0x5c
03f1 e001       |    |		Load	0x0,0x1
03f2 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03f3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03f4 7814       |x   |		Jump	0x409
03f5 e273       | s  |		Load	0x1,0x73
03f6 481b       |H   |		Short_Literal	0x1b
03f7 e25f       | _  |		Load	0x1,0x5f
03f8 e001       |    |		Load	0x0,0x1
03f9 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03fa 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03fb 780d       |x   |		Jump	0x409
03fc e273       | s  |		Load	0x1,0x73
03fd 481c       |H   |		Short_Literal	0x1c
03fe e262       | b  |		Load	0x1,0x62
03ff e001       |    |		Load	0x0,0x1
0400 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0401 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0402 7806       |x   |		Jump	0x409
0403 e273       | s  |		Load	0x1,0x73
0404 481d       |H   |		Short_Literal	0x1d
0405 e265       | e  |		Load	0x1,0x65
0406 e001       |    |		Load	0x0,0x1
0407 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0408 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0409 e001       |    |		Load	0x0,0x1
040a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
040b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
040c 00da       |    |		Load_Top	At_Offset_2
040d 7003       |p   |		Jump_Nonzero	0x411
040e e001       |    |		Load	0x0,0x1
040f 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0410 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0411 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0412 0000 0000  |    |		.BLANK	0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0422       | "  |		.CONST	0x0422								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0004       |    |		.CONST	0x0004								; Number of locals
041b			INIT_0418:
041b 00e3       |    |		Load_Encached	Natural_Cache
041c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
041d 00e3       |    |		Load_Encached	Natural_Cache
041e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
041f 6080       |`   |		Indirect_Literal	Discrete,0x4a0,{0x00000000, 0x7fffffff}
0420 00e3       |    |		Load_Encached	Natural_Cache
0421 03f1       |    |		Declare_Variable	Discrete,With_Value
0422			BODY_0418:
0422 e001       |    |		Load	0x0,0x1
0423 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0424 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0425 00cf       |    |		Action	Mark_Auxiliary
0426 e26b       | k  |		Load	0x1,0x6b
0427 4801       |H   |		Short_Literal	0x1
0428 0263       | c  |		Execute	Discrete,Above_Bound
0429 7030       |p0  |		Jump_Nonzero	0x45a
042a 00d8       |    |		Load_Top	At_Offset_0
042b 8276       | v  |		Call	0x1,0x76
042c 00d9       |    |		Load_Top	At_Offset_1
042d e271       | q  |		Load	0x1,0x71
042e 01d6       |    |		Execute	Vector,Field_Write
042f 00d8       |    |		Load_Top	At_Offset_0
0430 e271       | q  |		Load	0x1,0x71
0431 01d7       |    |		Execute	Vector,Field_Read
0432 6825       |h%  |		Jump_Zero	0x458
0433 4800       |H   |		Short_Literal	0x0
0434 a403       |    |		Store_Unchecked	0x2,0x3
0435 00cf       |    |		Action	Mark_Auxiliary
0436 e270       | p  |		Load	0x1,0x70
0437 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0438 4801       |H   |		Short_Literal	0x1
0439 0263       | c  |		Execute	Discrete,Above_Bound
043a 700b       |p   |		Jump_Nonzero	0x446
043b 00d8       |    |		Load_Top	At_Offset_0
043c e270       | p  |		Load	0x1,0x70
043d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
043e 01d7       |    |		Execute	Vector,Field_Read
043f e407       |    |		Load	0x2,0x7
0440 027f       |    |		Execute	Discrete,Equal
0441 6802       |h   |		Jump_Zero	0x444
0442 00d8       |    |		Load_Top	At_Offset_0
0443 a403       |    |		Store_Unchecked	0x2,0x3
0444 00c8       |    |		Action	Pop_Auxiliary_Range
0445 3ff5       |?   |		Loop_Increasing	0x43b
0446 00ce       |    |		Action	Pop_Auxiliary
0447 e403       |    |		Load	0x2,0x3
0448 7004       |p   |		Jump_Nonzero	0x44d
0449 00d8       |    |		Load_Top	At_Offset_0
044a a402       |    |		Store_Unchecked	0x2,0x2
044b 00d2       |    |		Pop_Control	Pop_Count_2
044c 780d       |x   |		Jump	0x45a
044d e403       |    |		Load	0x2,0x3
044e e404       |    |		Load	0x2,0x4
044f 027c       | |  |		Execute	Discrete,Less
0450 6807       |h   |		Jump_Zero	0x458
0451 e403       |    |		Load	0x2,0x3
0452 a404       |    |		Store_Unchecked	0x2,0x4
0453 00db       |    |		Load_Top	At_Offset_3
0454 e270       | p  |		Load	0x1,0x70
0455 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0456 01d7       |    |		Execute	Vector,Field_Read
0457 a402       |    |		Store_Unchecked	0x2,0x2
0458 00c8       |    |		Action	Pop_Auxiliary_Range
0459 3fd0       |?   |		Loop_Increasing	0x42a
045a 00ce       |    |		Action	Pop_Auxiliary
045b e001       |    |		Load	0x0,0x1
045c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
045d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
045e 00da       |    |		Load_Top	At_Offset_2
045f 7009       |p   |		Jump_Nonzero	0x469
0460 8275       | u  |		Call	0x1,0x75
0461 e001       |    |		Load	0x0,0x1
0462 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0463 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0464 e001       |    |		Load	0x0,0x1
0465 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0466 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0467 4800       |H   |		Short_Literal	0x0
0468 00ca       |    |		Action	Exit_Nullary_Function
0469 e270       | p  |		Load	0x1,0x70
046a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
046b 0a01       |    |		Execute_Immediate	Plus,0x1
046c e270       | p  |		Load	0x1,0x70
046d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
046e e270       | p  |		Load	0x1,0x70
046f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0470 0c1e       |    |		Execute_Immediate	Greater_Equal,0x1e
0471 6813       |h   |		Jump_Zero	0x485
0472 481e       |H   |		Short_Literal	0x1e
0473 e270       | p  |		Load	0x1,0x70
0474 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0475 00cf       |    |		Action	Mark_Auxiliary
0476 481d       |H   |		Short_Literal	0x1d
0477 4801       |H   |		Short_Literal	0x1
0478 0007       |    |		Action	Break_Optional
0479 00d8       |    |		Load_Top	At_Offset_0
047a 0a01       |    |		Execute_Immediate	Plus,0x1
047b e270       | p  |		Load	0x1,0x70
047c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
047d 01d7       |    |		Execute	Vector,Field_Read
047e 00d9       |    |		Load_Top	At_Offset_1
047f e270       | p  |		Load	0x1,0x70
0480 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0481 01d6       |    |		Execute	Vector,Field_Write
0482 00c8       |    |		Action	Pop_Auxiliary_Range
0483 3ff5       |?   |		Loop_Increasing	0x479
0484 00ce       |    |		Action	Pop_Auxiliary
0485 00da       |    |		Load_Top	At_Offset_2
0486 e270       | p  |		Load	0x1,0x70
0487 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0488 e270       | p  |		Load	0x1,0x70
0489 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
048a 01d6       |    |		Execute	Vector,Field_Write
048b 4805       |H   |		Short_Literal	0x5
048c e001       |    |		Load	0x0,0x1
048d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
048e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
048f 4807       |H   |		Short_Literal	0x7
0490 e001       |    |		Load	0x0,0x1
0491 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0492 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0493 0278       | x  |		Execute	Discrete,Or
0494 6805       |h   |		Jump_Zero	0x49a
0495 e273       | s  |		Load	0x1,0x73
0496 00db       |    |		Load_Top	At_Offset_3
0497 e001       |    |		Load	0x0,0x1
0498 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0499 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
049a 00da       |    |		Load_Top	At_Offset_2
049b 8277       | w  |		Call	0x1,0x77
049c 4801       |H   |		Short_Literal	0x1
049d 00ca       |    |		Action	Exit_Nullary_Function
049e 0000 0000  |    |		.XXX[0x2]
04a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
04a4 0000 0000  |    |		.BLANK	0000[0x4]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab e001       |    |		Load	0x0,0x1
04ac 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04ad 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04ae 00cf       |    |		Action	Mark_Auxiliary
04af e26b       | k  |		Load	0x1,0x6b
04b0 4801       |H   |		Short_Literal	0x1
04b1 0263       | c  |		Execute	Discrete,Above_Bound
04b2 7021       |p!  |		Jump_Nonzero	0x4d4
04b3 00d8       |    |		Load_Top	At_Offset_0
04b4 8276       | v  |		Call	0x1,0x76
04b5 00d9       |    |		Load_Top	At_Offset_1
04b6 e271       | q  |		Load	0x1,0x71
04b7 01d6       |    |		Execute	Vector,Field_Write
04b8 00d8       |    |		Load_Top	At_Offset_0
04b9 e271       | q  |		Load	0x1,0x71
04ba 01d7       |    |		Execute	Vector,Field_Read
04bb 6816       |h   |		Jump_Zero	0x4d2
04bc e001       |    |		Load	0x0,0x1
04bd 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04be 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04bf 4805       |H   |		Short_Literal	0x5
04c0 e001       |    |		Load	0x0,0x1
04c1 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04c2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04c3 4807       |H   |		Short_Literal	0x7
04c4 e001       |    |		Load	0x0,0x1
04c5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04c6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04c7 0278       | x  |		Execute	Discrete,Or
04c8 6805       |h   |		Jump_Zero	0x4ce
04c9 e273       | s  |		Load	0x1,0x73
04ca 00d9       |    |		Load_Top	At_Offset_1
04cb e001       |    |		Load	0x0,0x1
04cc 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04cd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04ce 00d8       |    |		Load_Top	At_Offset_0
04cf 8277       | w  |		Call	0x1,0x77
04d0 4801       |H   |		Short_Literal	0x1
04d1 00ca       |    |		Action	Exit_Nullary_Function
04d2 00c8       |    |		Action	Pop_Auxiliary_Range
04d3 3fdf       |?   |		Loop_Increasing	0x4b3
04d4 00ce       |    |		Action	Pop_Auxiliary
04d5 e001       |    |		Load	0x0,0x1
04d6 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04d7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04d8 e001       |    |		Load	0x0,0x1
04d9 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04da 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04db 4800       |H   |		Short_Literal	0x0
04dc 00ca       |    |		Action	Exit_Nullary_Function
04dd 0000 0000  |    |		.XXX[0x3]
04df 0000       |    |
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e4       |    |		.CONST	0x04e4								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0002       |    |		.CONST	0x0002								; Number of locals
04e3			INIT_04e0:
04e3 00e1       |    |		Load_Encached	Boolean_Cache
04e4			BODY_04e0:
04e4 e272       | r  |		Load	0x1,0x72
04e5 e20f       |    |		Load	0x1,0xf
04e6 e001       |    |		Load	0x0,0x1
04e7 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04e9 e5fe       |    |		Load	0x2,-0x2
04ea e001       |    |		Load	0x0,0x1
04eb 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
04ec 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04ed e5fc       |    |		Load	0x2,-0x4
04ee 7009       |p   |		Jump_Nonzero	0x4f8
04ef 00cf       |    |		Action	Mark_Auxiliary
04f0 85fd       |    |		Call	0x2,-0x3
04f1 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04f2 00d9       |    |		Load_Top	At_Offset_1
04f3 6802       |h   |		Jump_Zero	0x4f6
04f4 00c9       |    |		Action	Pop_Auxiliary_Loop
04f5 7ffa       |    |		Jump	0x4f0
04f6 00ce       |    |		Action	Pop_Auxiliary
04f7 780e       |x   |		Jump	0x506
04f8 00cf       |    |		Action	Mark_Auxiliary
04f9 e5fc       |    |		Load	0x2,-0x4
04fa 4801       |H   |		Short_Literal	0x1
04fb 0263       | c  |		Execute	Discrete,Above_Bound
04fc 7008       |p   |		Jump_Nonzero	0x505
04fd 85fd       |    |		Call	0x2,-0x3
04fe a402       |    |		Store_Unchecked	0x2,0x2
04ff 00db       |    |		Load_Top	At_Offset_3
0500 7002       |p   |		Jump_Nonzero	0x503
0501 00d2       |    |		Pop_Control	Pop_Count_2
0502 7802       |x   |		Jump	0x505
0503 00c8       |    |		Action	Pop_Auxiliary_Range
0504 3ff8       |?   |		Loop_Increasing	0x4fd
0505 00ce       |    |		Action	Pop_Auxiliary
0506 00d8       |    |		Load_Top	At_Offset_0
0507 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0508 ; --------------------------------------------------------------------------------------
0508 ; STRING TABLE
0508 ; --------------------------------------------------------------------------------------
0508 0008       |    |		.STRTAB	0x0008->0x050c							; " LRU "
0509 000b       |    |		.STRTAB	0x000b->0x050e							; "FIRST"
050a 000e       |    |		.STRTAB	0x000e->0x0511							; "NO OPERATION ! "
050b 001b       |    |		.STREND 0x001b->0x0518
050c 204c 5255  | LRU|		.STRTAB_STRINGS
0519 0000 0000  |    |		.BLANK	0000[0x7]
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug Table
0520 ; --------------------------------------------------------------------------------------
0520 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x6404,0x0000,0x0001,0x000a
0526 000b 054e  |   N|		.DBG4T	0x000b,0x054e,0x4000,0x0000
052a 000e 0551  |   Q|		.DBG4T	0x000e,0x0551,0x4000,0x8000
052e 008b 0579  |   y|		.DBG4T	0x008b,0x0579,0x1002,0x0000
0532 00a3 0000  |    |		.DBG4T	0x00a3,0x0000,0x1005,0x0000
0536 00cb 057e  |   ~|		.DBG4T	0x00cb,0x057e,0x1001,0x0000
053a 00e3 0583  |    |		.DBG4T	0x00e3,0x0583,0x1002,0x4000
053e 029b 060c  |    |		.DBG4T	0x029b,0x060c,0x1001,0x4000
0542 041b 0694  |    |		.DBG4T	0x041b,0x0694,0x1002,0x0000
0546 04ab 06b7  |    |		.DBG4T	0x04ab,0x06b7,0x1002,0x0000
054a 04e3 06c5  |    |		.DBG4T	0x04e3,0x06c5,0x3802,0x4002
054e ; --------------------------------------------------------------------------------------
054e ; Debug chain
054e ; --------------------------------------------------------------------------------------
054e 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0550 000b       |    |		.DBGLNO	0x000b
0551 ; --------------------------------------------------------------------------------------
0551 ; Debug chain
0551 ; --------------------------------------------------------------------------------------
0551 0012 0002  |    |		.DBGLEN	0x0012,0x0002
0553 000e 0014  |    |		.DBGLNO	0x000e,0x0014,0x001a,0x0020,0x0024,0x0026,0x0028,0x002e,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x004e,0x005a,0x005c,0x0060
0567 0003 0004  |    |		.XXX[0x12]
0569 0005 0006  |    |
056b 0007 0008  |    |
056d 0009 000a  |    |
056f 000b 000c  |    |
0571 000d 000e  |    |
0573 000f 0010  |    |
0575 0011 0012  |    |
0577 0013 0014  |    |
0579 ; --------------------------------------------------------------------------------------
0579 ; Debug chain
0579 ; --------------------------------------------------------------------------------------
0579 0000 0003  |    |		.DBGLEN	0x0000,0x0003
057b 008b 008e  |    |		.DBGLNO	0x008b,0x008e,0x0094
057e ; --------------------------------------------------------------------------------------
057e ; Debug chain
057e ; --------------------------------------------------------------------------------------
057e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0580 00cc 00cf  |    |		.DBGLNO	0x00cc,0x00cf,0x00d7
0583 ; --------------------------------------------------------------------------------------
0583 ; Debug chain
0583 ; --------------------------------------------------------------------------------------
0583 0001 0043  |   C|		.DBGLEN	0x0001,0x0043
0585 00e3 00e4  |    |		.DBGLNO	0x00e3,0x00e4,0x00f1,0x0115,0x0119,0x011c,0x011f,0x0122,0x0125,0x0128,0x012b,0x012e,0x0131,0x0134,0x0137,0x013a,0x013d,0x0140,0x0143,0x0146,0x0149,0x014c,0x014f,0x0152,0x0155,0x0158,0x015b,0x015e,0x0161,0x0164,0x0167,0x016a,0x016d,0x0170,0x0173,0x0175,0x017a,0x019e,0x01a8,0x01b0,0x01b8,0x01c0,0x01c8,0x01d0,0x01d8,0x01e0,0x01e8,0x01f0,0x01f8,0x0200,0x0208,0x0210,0x0218,0x0220,0x0228,0x0230,0x0238,0x0240,0x0248,0x0250,0x0258,0x0260,0x0268,0x0270,0x0278,0x0280,0x0288,0x028f
05c9 0001 0002  |    |		.XXX[0x43]
05cb 0020 0021  |   !|
05cd 0003 0004  |    |
05cf 0005 0006  |    |
05d1 0007 0008  |    |
05d3 0009 000a  |    |
05d5 000b 000c  |    |
05d7 000d 000e  |    |
05d9 000f 0010  |    |
05db 0011 0012  |    |
05dd 0013 0014  |    |
05df 0015 0016  |    |
05e1 0017 0018  |    |
05e3 0019 001a  |    |
05e5 001b 001c  |    |
05e7 001d 001e  |    |
05e9 001f 0022  |   "|
05eb 0023 0024  | # $|
05ed 0042 0026  | B &|
05ef 0027 0028  | ' (|
05f1 0029 002a  | ) *|
05f3 002b 002c  | + ,|
05f5 002d 002e  | - .|
05f7 002f 0030  | / 0|
05f9 0031 0032  | 1 2|
05fb 0033 0034  | 3 4|
05fd 0035 0036  | 5 6|
05ff 0037 0038  | 7 8|
0601 0039 003a  | 9 :|
0603 003b 003c  | ; <|
0605 003d 003e  | = >|
0607 003f 0040  | ? @|
0609 0041 0025  | A %|
060b 0044       | D  |
060c ; --------------------------------------------------------------------------------------
060c ; Debug chain
060c ; --------------------------------------------------------------------------------------
060c 0000 0043  |   C|		.DBGLEN	0x0000,0x0043
060e 029b 02bf  |    |		.DBGLNO	0x029b,0x02bf,0x02c3,0x02c5,0x02c7,0x02c9,0x02cb,0x02cd,0x02cf,0x02d1,0x02d3,0x02d5,0x02d7,0x02d9,0x02db,0x02dd,0x02df,0x02e1,0x02e3,0x02e5,0x02e7,0x02e9,0x02eb,0x02ed,0x02ef,0x02f1,0x02f3,0x02f5,0x02f7,0x02f9,0x02fb,0x02fc,0x0308,0x032c,0x0334,0x033f,0x0346,0x034d,0x0354,0x035b,0x0362,0x0369,0x0370,0x0377,0x037e,0x0385,0x038c,0x0393,0x039a,0x03a1,0x03a8,0x03af,0x03b6,0x03bd,0x03c4,0x03cb,0x03d2,0x03d9,0x03e0,0x03e7,0x03ee,0x03f5,0x03fc,0x0403,0x0409,0x040c,0x040e
0651 0001 001f  |    |		.XXX[0x43]
0653 0003 0004  |    |
0655 0005 0006  |    |
0657 0007 0008  |    |
0659 0009 000a  |    |
065b 000b 000c  |    |
065d 000d 000e  |    |
065f 000f 0010  |    |
0661 0011 0012  |    |
0663 0013 0014  |    |
0665 0015 0016  |    |
0667 0017 0018  |    |
0669 0019 001a  |    |
066b 001b 001c  |    |
066d 001d 001e  |    |
066f 0002 0021  |   !|
0671 0022 0040  | " @|
0673 0041 0023  | A #|
0675 0024 0025  | $ %|
0677 0026 0027  | & '|
0679 0028 0029  | ( )|
067b 002a 002b  | * +|
067d 002c 002d  | , -|
067f 002e 002f  | . /|
0681 0030 0031  | 0 1|
0683 0032 0033  | 2 3|
0685 0034 0035  | 4 5|
0687 0036 0037  | 6 7|
0689 0038 0039  | 8 9|
068b 003a 003b  | : ;|
068d 003c 003d  | < =|
068f 003e 003f  | > ?|
0691 0042 0043  | B C|
0693 0044       | D  |
0694 ; --------------------------------------------------------------------------------------
0694 ; Debug chain
0694 ; --------------------------------------------------------------------------------------
0694 0003 001e  |    |		.DBGLEN	0x0003,0x001e
0696 041b 041d  |    |		.DBGLNO	0x041b,0x041d,0x041f,0x0422,0x0426,0x042a,0x042f,0x0433,0x0436,0x043b,0x0442,0x0447,0x0449,0x044b,0x044d,0x0451,0x0453,0x045b,0x045e,0x0460,0x0461,0x0464,0x0467,0x0469,0x046e,0x0472,0x0476,0x0479,0x0485,0x048b,0x0495,0x049a,0x049c
06b7 ; --------------------------------------------------------------------------------------
06b7 ; Debug chain
06b7 ; --------------------------------------------------------------------------------------
06b7 0000 000c  |    |		.DBGLEN	0x0000,0x000c
06b9 04ab 04af  |    |		.DBGLNO	0x04ab,0x04af,0x04b3,0x04b8,0x04bc,0x04bf,0x04c9,0x04ce,0x04d0,0x04d5,0x04d8,0x04db
06c5 ; --------------------------------------------------------------------------------------
06c5 ; Debug chain
06c5 ; --------------------------------------------------------------------------------------
06c5 0001 0009  |    |		.DBGLEN	0x0001,0x0009
06c7 04e3 04e4  |    |		.DBGLNO	0x04e3,0x04e4,0x04e9,0x04ed,0x04f0,0x04f2,0x04f9,0x04fd,0x04ff,0x0506
06d1 0001 0002  |    |		.XXX[0x9]
06d3 0003 0005  |    |
06d5 0006 0007  |    |
06d7 0008 0009  |    |
06d9 000a       |    |
06da 0000 0000  |    |		.BLANK	0000[0x126]