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

⟦d24fe5cb0⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 04e8       |    |		.CONST	0x04e8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a9       |    |		.CONST	0x00a9								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0035       | 5  |		.CONST	0x0035								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 4800       |H   |		Short_Literal	0x0
001c 4804       |H   |		Short_Literal	0x4
001d e001       |    |		Load	0x0,0x1
001e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
001f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0020 4801       |H   |		Short_Literal	0x1
0021 035e       | ^  |		Declare_Type	Array,Defined,Visible
0022 c21a       |    |		Store	0x1,0x1a
0023 00da       |    |		Load_Top	At_Offset_2
0024 02a0       |    |		Declare_Subprogram	Null_Subprogram
0025 4818       |H   |		Short_Literal	0x18
0026 03d6       |    |		Declare_Type	Access,Defined,Visible
0027 c219       |    |		Store	0x1,0x19
0028 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
002a c20d       |    |		Store	0x1,0xd
002b 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
002d c20e       |    |		Store	0x1,0xe
002e 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0030 c20f       |    |		Store	0x1,0xf
0031 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0033 c210       |    |		Store	0x1,0x10
0034 4800       |H   |		Short_Literal	0x0
0035 4801       |H   |		Short_Literal	0x1
0036 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
0038 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0039 c211       |    |		Store	0x1,0x11
003a 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
003c c21b       |    |		Store	0x1,0x1b
003d 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
003f c21c       |    |		Store	0x1,0x1c
0040 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0042 c214       |    |		Store	0x1,0x14
0043 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0045 c215       |    |		Store	0x1,0x15
0046 00bf       |    |		Action	Accept_Activation
0047 e002       |    |		Load	0x0,0x2
0048 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0049 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
004a 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
004b 0007       |    |		Action	Break_Optional
004c e002       |    |		Load	0x0,0x2
004d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
004e 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
004f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0050 0007       |    |		Action	Break_Optional
0051 e002       |    |		Load	0x0,0x2
0052 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0053 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0054 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0055 0007       |    |		Action	Break_Optional
0056 e002       |    |		Load	0x0,0x2
0057 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0058 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0059 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
005a 0007       |    |		Action	Break_Optional
005b e002       |    |		Load	0x0,0x2
005c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
005d 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
005e 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
005f 0007       |    |		Action	Break_Optional
0060 e002       |    |		Load	0x0,0x2
0061 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0062 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0063 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0064 0007       |    |		Action	Break_Optional
0065 e002       |    |		Load	0x0,0x2
0066 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0067 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0068 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0069 0007       |    |		Action	Break_Optional
006a e002       |    |		Load	0x0,0x2
006b 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
006c 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
006d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
006e 0007       |    |		Action	Break_Optional
006f 00e2       |    |		Load_Encached	Integer_Cache
0070 03e9       |    |		Declare_Variable	Discrete,Duplicate
0071 4864       |Hd  |		Short_Literal	0x64
0072 e003       |    |		Load	0x0,0x3
0073 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0074 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 4801       |H   |		Short_Literal	0x1
0078 481e       |H   |		Short_Literal	0x1e
0079 00e9       |    |		Load_Encached	String_Cache
007a 035b       | [  |		Declare_Type	Array,Constrained
007b 0337       | 7  |		Declare_Variable	Array
007c 00e2       |    |		Load_Encached	Integer_Cache
007d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
007e e004       |    |		Load	0x0,0x4
007f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0080 00e2       |    |		Load_Encached	Integer_Cache
0081 00e2       |    |		Load_Encached	Integer_Cache
0082 00e2       |    |		Load_Encached	Integer_Cache
0083 00e2       |    |		Load_Encached	Integer_Cache
0084 e005       |    |		Load	0x0,0x5
0085 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0086 0322       | "  |		Declare_Variable	Record
0087 e005       |    |		Load	0x0,0x5
0088 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0089 0322       | "  |		Declare_Variable	Record
008a e004       |    |		Load	0x0,0x4
008b 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
008c 0337       | 7  |		Declare_Variable	Array
008d e001       |    |		Load	0x0,0x1
008e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
008f 0337       | 7  |		Declare_Variable	Array
0090 e001       |    |		Load	0x0,0x1
0091 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0092 0322       | "  |		Declare_Variable	Record
0093 e006       |    |		Load	0x0,0x6
0094 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0095 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0096 0322       | "  |		Declare_Variable	Record
0097 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 029d 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call
00a1 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9			BODY_0008:
00a9 00bc       |    |		Action	Signal_Activated
00aa 00bb       |    |		Action	Signal_Completion
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00dd       |    |		.CONST	0x00dd								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0010       |    |		.CONST	0x0010								; Number of locals
00b3			INIT_00b0:
00b3 4800       |H   |		Short_Literal	0x0
00b4 4804       |H   |		Short_Literal	0x4
00b5 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
00b7 03fd       |    |		Declare_Type	Discrete,Defined
00b8 00e2       |    |		Load_Encached	Integer_Cache
00b9 00e2       |    |		Load_Encached	Integer_Cache
00ba 00e2       |    |		Load_Encached	Integer_Cache
00bb 02a0       |    |		Declare_Subprogram	Null_Subprogram
00bc 4803       |H   |		Short_Literal	0x3
00bd 032d       | -  |		Declare_Type	Record,Defined
00be 4800       |H   |		Short_Literal	0x0
00bf 4814       |H   |		Short_Literal	0x14
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c2 4801       |H   |		Short_Literal	0x1
00c3 035d       | ]  |		Declare_Type	Array,Defined
00c4 00d8       |    |		Load_Top	At_Offset_0
00c5 0337       | 7  |		Declare_Variable	Array
00c6 00e2       |    |		Load_Encached	Integer_Cache
00c7 00db       |    |		Load_Top	At_Offset_3
00c8 0322       | "  |		Declare_Variable	Record
00c9 e402       |    |		Load	0x2,0x2
00ca 0007       |    |		Action	Break_Optional
00cb 00e2       |    |		Load_Encached	Integer_Cache
00cc 00e2       |    |		Load_Encached	Integer_Cache
00cd 00e8       |    |		Load_Encached	Character_Cache
00ce 00e2       |    |		Load_Encached	Integer_Cache
00cf 00e2       |    |		Load_Encached	Integer_Cache
00d0 00e2       |    |		Load_Encached	Integer_Cache
00d1 00e1       |    |		Load_Encached	Boolean_Cache
00d2 e403       |    |		Load	0x2,0x3
00d3 0322       | "  |		Declare_Variable	Record
00d4 4801       |H   |		Short_Literal	0x1
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d7 4801       |H   |		Short_Literal	0x1
00d8 00d9       |    |		Load_Top	At_Offset_1
00d9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00da 4801       |H   |		Short_Literal	0x1
00db 00d9       |    |		Load_Top	At_Offset_1
00dc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00dd			BODY_00b0:
00dd 4800       |H   |		Short_Literal	0x0
00de a406       |    |		Store_Unchecked	0x2,0x6
00df 4800       |H   |		Short_Literal	0x0
00e0 a408       |    |		Store_Unchecked	0x2,0x8
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 e407       |    |		Load	0x2,0x7
00e3 017d       | }  |		Execute	Record,Structure_Write
00e4 e5ff       |    |		Load	0x2,-0x1
00e5 e003       |    |		Load	0x0,0x3
00e6 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00e7 a40c       |    |		Store_Unchecked	0x2,0xc
00e8 e5fe       |    |		Load	0x2,-0x2
00e9 e003       |    |		Load	0x0,0x3
00ea 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00eb a40d       |    |		Store_Unchecked	0x2,0xd
00ec 00cf       |    |		Action	Mark_Auxiliary
00ed 78e4       |x   |		Jump	0x1d2
00ee e40c       |    |		Load	0x2,0xc
00ef 0a01       |    |		Execute_Immediate	Plus,0x1
00f0 e407       |    |		Load	0x2,0x7
00f1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f2 0272       | r  |		Execute	Discrete,Minus
00f3 c409       |    |		Store	0x2,0x9
00f4 e40d       |    |		Load	0x2,0xd
00f5 0a01       |    |		Execute_Immediate	Plus,0x1
00f6 e407       |    |		Load	0x2,0x7
00f7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f8 0272       | r  |		Execute	Discrete,Minus
00f9 c40a       |    |		Store	0x2,0xa
00fa e40a       |    |		Load	0x2,0xa
00fb 7008       |p   |		Jump_Nonzero	0x104
00fc e409       |    |		Load	0x2,0x9
00fd 7003       |p   |		Jump_Nonzero	0x101
00fe 4804       |H   |		Short_Literal	0x4
00ff a408       |    |		Store_Unchecked	0x2,0x8
0100 788d       |x   |		Jump	0x18e
0101 4801       |H   |		Short_Literal	0x1
0102 a408       |    |		Store_Unchecked	0x2,0x8
0103 788a       |x   |		Jump	0x18e
0104 4801       |H   |		Short_Literal	0x1
0105 e407       |    |		Load	0x2,0x7
0106 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0107 4801       |H   |		Short_Literal	0x1
0108 a408       |    |		Store_Unchecked	0x2,0x8
0109 e407       |    |		Load	0x2,0x7
010a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
010b 00d8       |    |		Load_Top	At_Offset_0
010c 00e4       |    |		Load_Encached	Positive_Cache
010d 0260       | `  |		Execute	Discrete,In_Type
010e 7001       |p   |		Jump_Nonzero	0x110
010f 0801       |    |		Execute_Immediate	Raise,0x1
0110 e5fe       |    |		Load	0x2,-0x2
0111 e003       |    |		Load	0x0,0x3
0112 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0113 0f40       | @  |		Execute_Immediate	Equal,0x40
0114 e407       |    |		Load	0x2,0x7
0115 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0116 00d8       |    |		Load_Top	At_Offset_0
0117 00e4       |    |		Load_Encached	Positive_Cache
0118 0260       | `  |		Execute	Discrete,In_Type
0119 7001       |p   |		Jump_Nonzero	0x11b
011a 0801       |    |		Execute_Immediate	Raise,0x1
011b e5fe       |    |		Load	0x2,-0x2
011c e003       |    |		Load	0x0,0x3
011d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
011e 0f2a       | *  |		Execute_Immediate	Equal,0x2a
011f 0278       | x  |		Execute	Discrete,Or
0120 680a       |h   |		Jump_Zero	0x12b
0121 e40c       |    |		Load	0x2,0xc
0122 0a01       |    |		Execute_Immediate	Plus,0x1
0123 e407       |    |		Load	0x2,0x7
0124 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0125 0272       | r  |		Execute	Discrete,Minus
0126 e407       |    |		Load	0x2,0x7
0127 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0128 4802       |H   |		Short_Literal	0x2
0129 a408       |    |		Store_Unchecked	0x2,0x8
012a 7863       |xc  |		Jump	0x18e
012b e407       |    |		Load	0x2,0x7
012c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
012d 00d8       |    |		Load_Top	At_Offset_0
012e 00e4       |    |		Load_Encached	Positive_Cache
012f 0260       | `  |		Execute	Discrete,In_Type
0130 7001       |p   |		Jump_Nonzero	0x132
0131 0801       |    |		Execute_Immediate	Raise,0x1
0132 e5fe       |    |		Load	0x2,-0x2
0133 e003       |    |		Load	0x0,0x3
0134 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0135 0f2d       | -  |		Execute_Immediate	Equal,0x2d
0136 6828       |h(  |		Jump_Zero	0x15f
0137 4800       |H   |		Short_Literal	0x0
0138 e407       |    |		Load	0x2,0x7
0139 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
013a e407       |    |		Load	0x2,0x7
013b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013c a40e       |    |		Store_Unchecked	0x2,0xe
013d 00cf       |    |		Action	Mark_Auxiliary
013e e40e       |    |		Load	0x2,0xe
013f 00d8       |    |		Load_Top	At_Offset_0
0140 00e4       |    |		Load_Encached	Positive_Cache
0141 0260       | `  |		Execute	Discrete,In_Type
0142 7001       |p   |		Jump_Nonzero	0x144
0143 0801       |    |		Execute_Immediate	Raise,0x1
0144 e5ff       |    |		Load	0x2,-0x1
0145 e003       |    |		Load	0x0,0x3
0146 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0147 0f2e       | .  |		Execute_Immediate	Equal,0x2e
0148 a40f       |    |		Store_Unchecked	0x2,0xf
0149 00db       |    |		Load_Top	At_Offset_3
014a 7005       |p   |		Jump_Nonzero	0x150
014b e407       |    |		Load	0x2,0x7
014c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
014d 0a01       |    |		Execute_Immediate	Plus,0x1
014e e407       |    |		Load	0x2,0x7
014f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0150 e40e       |    |		Load	0x2,0xe
0151 0a01       |    |		Execute_Immediate	Plus,0x1
0152 c40e       |    |		Store	0x2,0xe
0153 e40e       |    |		Load	0x2,0xe
0154 e40c       |    |		Load	0x2,0xc
0155 027d       | }  |		Execute	Discrete,Greater
0156 e40f       |    |		Load	0x2,0xf
0157 0278       | x  |		Execute	Discrete,Or
0158 7002       |p   |		Jump_Nonzero	0x15b
0159 00c9       |    |		Action	Pop_Auxiliary_Loop
015a 7fe3       |    |		Jump	0x13e
015b 00ce       |    |		Action	Pop_Auxiliary
015c 4802       |H   |		Short_Literal	0x2
015d a408       |    |		Store_Unchecked	0x2,0x8
015e 782f       |x/  |		Jump	0x18e
015f e407       |    |		Load	0x2,0x7
0160 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0161 00d8       |    |		Load_Top	At_Offset_0
0162 00e4       |    |		Load_Encached	Positive_Cache
0163 0260       | `  |		Execute	Discrete,In_Type
0164 7001       |p   |		Jump_Nonzero	0x166
0165 0801       |    |		Execute_Immediate	Raise,0x1
0166 e5fe       |    |		Load	0x2,-0x2
0167 e003       |    |		Load	0x0,0x3
0168 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0169 0f26       | &  |		Execute_Immediate	Equal,0x26
016a 6806       |h   |		Jump_Zero	0x171
016b e409       |    |		Load	0x2,0x9
016c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
016d 6820       |h   |		Jump_Zero	0x18e
016e 4800       |H   |		Short_Literal	0x0
016f a408       |    |		Store_Unchecked	0x2,0x8
0170 781d       |x   |		Jump	0x18e
0171 e409       |    |		Load	0x2,0x9
0172 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0173 681a       |h   |		Jump_Zero	0x18e
0174 e407       |    |		Load	0x2,0x7
0175 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0176 00d8       |    |		Load_Top	At_Offset_0
0177 00e4       |    |		Load_Encached	Positive_Cache
0178 0260       | `  |		Execute	Discrete,In_Type
0179 7001       |p   |		Jump_Nonzero	0x17b
017a 0801       |    |		Execute_Immediate	Raise,0x1
017b e5ff       |    |		Load	0x2,-0x1
017c e003       |    |		Load	0x0,0x3
017d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
017e e407       |    |		Load	0x2,0x7
017f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0180 00d8       |    |		Load_Top	At_Offset_0
0181 00e4       |    |		Load_Encached	Positive_Cache
0182 0260       | `  |		Execute	Discrete,In_Type
0183 7001       |p   |		Jump_Nonzero	0x185
0184 0801       |    |		Execute_Immediate	Raise,0x1
0185 e5fe       |    |		Load	0x2,-0x2
0186 e003       |    |		Load	0x0,0x3
0187 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0188 e007       |    |		Load	0x0,0x7
0189 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018a 027f       |    |		Execute	Discrete,Equal
018b 6802       |h   |		Jump_Zero	0x18e
018c 4800       |H   |		Short_Literal	0x0
018d a408       |    |		Store_Unchecked	0x2,0x8
018e e408       |    |		Load	0x2,0x8
018f 0f02       |    |		Execute_Immediate	Equal,0x2
0190 6809       |h   |		Jump_Zero	0x19a
0191 e406       |    |		Load	0x2,0x6
0192 0a01       |    |		Execute_Immediate	Plus,0x1
0193 c406       |    |		Store	0x2,0x6
0194 e407       |    |		Load	0x2,0x7
0195 e406       |    |		Load	0x2,0x6
0196 e405       |    |		Load	0x2,0x5
0197 01d6       |    |		Execute	Vector,Field_Write
0198 4800       |H   |		Short_Literal	0x0
0199 a408       |    |		Store_Unchecked	0x2,0x8
019a 00cf       |    |		Action	Mark_Auxiliary
019b 7823       |x#  |		Jump	0x1bf
019c e406       |    |		Load	0x2,0x6
019d e405       |    |		Load	0x2,0x5
019e 01d5       |    |		Execute	Vector,Field_Reference
019f e407       |    |		Load	0x2,0x7
01a0 017d       | }  |		Execute	Record,Structure_Write
01a1 e406       |    |		Load	0x2,0x6
01a2 0d01       |    |		Execute_Immediate	Less,0x1
01a3 6803       |h   |		Jump_Zero	0x1a7
01a4 4803       |H   |		Short_Literal	0x3
01a5 a408       |    |		Store_Unchecked	0x2,0x8
01a6 7817       |x   |		Jump	0x1be
01a7 e407       |    |		Load	0x2,0x7
01a8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a9 0d01       |    |		Execute_Immediate	Less,0x1
01aa 6806       |h   |		Jump_Zero	0x1b1
01ab e406       |    |		Load	0x2,0x6
01ac 0aff       |    |		Execute_Immediate	Plus,-0x1
01ad c406       |    |		Store	0x2,0x6
01ae 4800       |H   |		Short_Literal	0x0
01af a408       |    |		Store_Unchecked	0x2,0x8
01b0 780d       |x   |		Jump	0x1be
01b1 e407       |    |		Load	0x2,0x7
01b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b3 0aff       |    |		Execute_Immediate	Plus,-0x1
01b4 e407       |    |		Load	0x2,0x7
01b5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b6 e407       |    |		Load	0x2,0x7
01b7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b8 e406       |    |		Load	0x2,0x6
01b9 e405       |    |		Load	0x2,0x5
01ba 01d5       |    |		Execute	Vector,Field_Reference
01bb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01bc 4800       |H   |		Short_Literal	0x0
01bd a408       |    |		Store_Unchecked	0x2,0x8
01be 00c9       |    |		Action	Pop_Auxiliary_Loop
01bf e408       |    |		Load	0x2,0x8
01c0 0f01       |    |		Execute_Immediate	Equal,0x1
01c1 77da       |w   |		Jump_Nonzero	0x19c
01c2 00ce       |    |		Action	Pop_Auxiliary
01c3 e408       |    |		Load	0x2,0x8
01c4 700c       |p   |		Jump_Nonzero	0x1d1
01c5 e407       |    |		Load	0x2,0x7
01c6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c7 e407       |    |		Load	0x2,0x7
01c8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c9 0273       | s  |		Execute	Discrete,Plus
01ca e407       |    |		Load	0x2,0x7
01cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01cc e407       |    |		Load	0x2,0x7
01cd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ce 0a01       |    |		Execute_Immediate	Plus,0x1
01cf e407       |    |		Load	0x2,0x7
01d0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d1 00c9       |    |		Action	Pop_Auxiliary_Loop
01d2 e408       |    |		Load	0x2,0x8
01d3 6f1a       |o   |		Jump_Zero	0xee
01d4 00ce       |    |		Action	Pop_Auxiliary
01d5 e408       |    |		Load	0x2,0x8
01d6 0f04       |    |		Execute_Immediate	Equal,0x4
01d7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de       |    |		.CONST	0x01de								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0004       |    |		.CONST	0x0004								; Number of locals
01db			INIT_01d8:
01db 00e8       |    |		Load_Encached	Character_Cache
01dc 00e4       |    |		Load_Encached	Positive_Cache
01dd 00e1       |    |		Load_Encached	Boolean_Cache
01de			BODY_01d8:
01de 4801       |H   |		Short_Literal	0x1
01df 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
01e0 00cf       |    |		Action	Mark_Auxiliary
01e1 e5ff       |    |		Load	0x2,-0x1
01e2 e003       |    |		Load	0x0,0x3
01e3 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01e4 4801       |H   |		Short_Literal	0x1
01e5 0263       | c  |		Execute	Discrete,Above_Bound
01e6 7016       |p   |		Jump_Nonzero	0x1fd
01e7 00d8       |    |		Load_Top	At_Offset_0
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 e003       |    |		Load	0x0,0x3
01ea 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01eb a402       |    |		Store_Unchecked	0x2,0x2
01ec e402       |    |		Load	0x2,0x2
01ed 0f40       | @  |		Execute_Immediate	Equal,0x40
01ee e402       |    |		Load	0x2,0x2
01ef 0f2a       | *  |		Execute_Immediate	Equal,0x2a
01f0 0278       | x  |		Execute	Discrete,Or
01f1 e402       |    |		Load	0x2,0x2
01f2 0f26       | &  |		Execute_Immediate	Equal,0x26
01f3 0278       | x  |		Execute	Discrete,Or
01f4 e402       |    |		Load	0x2,0x2
01f5 0f2d       | -  |		Execute_Immediate	Equal,0x2d
01f6 0278       | x  |		Execute	Discrete,Or
01f7 6803       |h   |		Jump_Zero	0x1fb
01f8 00d2       |    |		Pop_Control	Pop_Count_2
01f9 00ce       |    |		Action	Pop_Auxiliary
01fa 7805       |x   |		Jump	0x200
01fb 00c8       |    |		Action	Pop_Auxiliary_Range
01fc 3fea       |?   |		Loop_Increasing	0x1e7
01fd 00ce       |    |		Action	Pop_Auxiliary
01fe 4800       |H   |		Short_Literal	0x0
01ff 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0200 00d8       |    |		Load_Top	At_Offset_0
0201 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020e       |    |		.CONST	0x020e								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0003       |    |		.CONST	0x0003								; Number of locals
020b			INIT_0208:
020b e004       |    |		Load	0x0,0x4
020c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
020d 00e2       |    |		Load_Encached	Integer_Cache
020e			BODY_0208:
020e e21d       |    |		Load	0x1,0x1d
020f 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
0210 e21d       |    |		Load	0x1,0x1d
0211 48ff       |H   |		Short_Literal	0xff
0212 0279       | y  |		Execute	Discrete,And
0213 0273       | s  |		Execute	Discrete,Plus
0214 e002       |    |		Load	0x0,0x2
0215 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0216 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0217 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0218 01d7       |    |		Execute	Vector,Field_Read
0219 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
021a 00d9       |    |		Load_Top	At_Offset_1
021b e231       | 1  |		Load	0x1,0x31
021c 4802       |H   |		Short_Literal	0x2
021d 00db       |    |		Load_Top	At_Offset_3
021e e008       |    |		Load	0x0,0x8
021f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0220 00d1       |    |		Pop_Control	Pop_Count_1
0221 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0222 00d9       |    |		Load_Top	At_Offset_1
0223 6807       |h   |		Jump_Zero	0x22b
0224 e009       |    |		Load	0x0,0x9
0225 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0226 4802       |H   |		Short_Literal	0x2
0227 0092 04c1  |    |		Action	Push_String_Extended,0x4c1					; "directory read error!"
0229 e00a       |    |		Load	0x0,0xa
022a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
022b e220       |    |		Load	0x1,0x20
022c 0aff       |    |		Execute_Immediate	Plus,-0x1
022d c220       |    |		Store	0x1,0x20
022e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022f 0000       |    |		.XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0240       | @  |		.CONST	0x0240								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0008       |    |		.CONST	0x0008								; Number of locals
0233			INIT_0230:
0233 00e2       |    |		Load_Encached	Integer_Cache
0234 e004       |    |		Load	0x0,0x4
0235 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0236 00e2       |    |		Load_Encached	Integer_Cache
0237 e006       |    |		Load	0x0,0x6
0238 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0239 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
023a 00c6       |    |		Action	Check_Subprogram_Elaborated
023b e001       |    |		Load	0x0,0x1
023c 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
023d e00b       |    |		Load	0x0,0xb
023e e00c       |    |		Load	0x0,0xc
023f 4808       |H   |		Short_Literal	0x8
0240			BODY_0230:
0240 00cf       |    |		Action	Mark_Auxiliary
0241 7800       |x   |		Jump	0x242
0242 e220       |    |		Load	0x1,0x20
0243 0a01       |    |		Execute_Immediate	Plus,0x1
0244 c220       |    |		Store	0x1,0x20
0245 e220       |    |		Load	0x1,0x20
0246 0c10       |    |		Execute_Immediate	Greater_Equal,0x10
0247 6835       |h5  |		Jump_Zero	0x27d
0248 e21d       |    |		Load	0x1,0x1d
0249 0a01       |    |		Execute_Immediate	Plus,0x1
024a c21d       |    |		Store	0x1,0x1d
024b e21f       |    |		Load	0x1,0x1f
024c 0a01       |    |		Execute_Immediate	Plus,0x1
024d c21f       |    |		Store	0x1,0x1f
024e 4800       |H   |		Short_Literal	0x0
024f a220       |    |		Store_Unchecked	0x1,0x20
0250 e21d       |    |		Load	0x1,0x1d
0251 6042       |`B  |		Indirect_Literal	Discrete,0x294,{0x00000000, 0x00000800}
0252 027b       | {  |		Execute	Discrete,Greater_Equal
0253 6802       |h   |		Jump_Zero	0x256
0254 00ce       |    |		Action	Pop_Auxiliary
0255 7838       |x8  |		Jump	0x28e
0256 e21f       |    |		Load	0x1,0x1f
0257 e221       | !  |		Load	0x1,0x21
0258 027b       | {  |		Execute	Discrete,Greater_Equal
0259 680d       |h   |		Jump_Zero	0x267
025a e21d       |    |		Load	0x1,0x1d
025b e221       | !  |		Load	0x1,0x21
025c 0273       | s  |		Execute	Discrete,Plus
025d 6036       |`6  |		Indirect_Literal	Discrete,0x294,{0x00000000, 0x00000800}
025e 027d       | }  |		Execute	Discrete,Greater
025f 6805       |h   |		Jump_Zero	0x265
0260 6033       |`3  |		Indirect_Literal	Discrete,0x294,{0x00000000, 0x00000800}
0261 e21d       |    |		Load	0x1,0x1d
0262 0272       | r  |		Execute	Discrete,Minus
0263 c402       |    |		Store	0x2,0x2
0264 7802       |x   |		Jump	0x267
0265 e221       | !  |		Load	0x1,0x21
0266 a402       |    |		Store_Unchecked	0x2,0x2
0267 e21d       |    |		Load	0x1,0x1d
0268 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
0269 e002       |    |		Load	0x0,0x2
026a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
026b 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
026c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
026d 01d7       |    |		Execute	Vector,Field_Read
026e e21d       |    |		Load	0x1,0x1d
026f 48ff       |H   |		Short_Literal	0xff
0270 0279       | y  |		Execute	Discrete,And
0271 0273       | s  |		Execute	Discrete,Plus
0272 c404       |    |		Store	0x2,0x4
0273 e403       |    |		Load	0x2,0x3
0274 e231       | 1  |		Load	0x1,0x31
0275 4802       |H   |		Short_Literal	0x2
0276 e404       |    |		Load	0x2,0x4
0277 e008       |    |		Load	0x0,0x8
0278 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0279 00d1       |    |		Pop_Control	Pop_Count_1
027a c403       |    |		Store	0x2,0x3
027b 4800       |H   |		Short_Literal	0x0
027c a21f       |    |		Store_Unchecked	0x1,0x1f
027d e220       |    |		Load	0x1,0x20
027e e21f       |    |		Load	0x1,0x1f
027f e21e       |    |		Load	0x1,0x1e
0280 0227       | '  |		Execute	Access,All_Reference
0281 01d5       |    |		Execute	Vector,Field_Reference
0282 01d5       |    |		Execute	Vector,Field_Reference
0283 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0284 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0285 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0286 6803       |h   |		Jump_Zero	0x28a
0287 480f       |H   |		Short_Literal	0xf
0288 a220       |    |		Store_Unchecked	0x1,0x20
0289 7802       |x   |		Jump	0x28c
028a 00ce       |    |		Action	Pop_Auxiliary
028b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
028c 00c9       |    |		Action	Pop_Auxiliary_Loop
028d 7fb4       |    |		Jump	0x242
028e 4fff       |O   |		Short_Literal	-0x1
028f a220       |    |		Store_Unchecked	0x1,0x20
0290 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0291 0000 0000  |    |		.XXX[0x3]
0293 0000       |    |
0294 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000800}
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 4607       |F   |		Jump_Case	0x8
029c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
029d 7806       |x   |		Jump	0x2a4								; case 0x1
029e 7809       |x   |		Jump	0x2a8								; case 0x2
029f 780d       |x   |		Jump	0x2ad								; case 0x3
02a0 7810       |x   |		Jump	0x2b1								; case 0x4
02a1 7811       |x   |		Jump	0x2b3								; case 0x5
02a2 7812       |x   |		Jump	0x2b5								; case 0x6
02a3 7815       |x   |		Jump	0x2b9								; case 0x7
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 0091 04ba  |    |		Action	Push_String_Extended_Indexed,0x4ba				; "SLOW"
02a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02a8 00db       |    |		Load_Top	At_Offset_3
02a9 00db       |    |		Load_Top	At_Offset_3
02aa 00e0       |    |		Load_Encached	Standard_Cache
02ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 00e0       |    |		Load_Encached	Standard_Cache
02af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b3 00db       |    |		Load_Top	At_Offset_3
02b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b5 e211       |    |		Load	0x1,0x11
02b6 00dc       |    |		Load_Top	At_Offset_4
02b7 0267       | g  |		Execute	Discrete,Predecessor
02b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b9 e211       |    |		Load	0x1,0x11
02ba 00dc       |    |		Load_Top	At_Offset_4
02bb 0268       | h  |		Execute	Discrete,Successor
02bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bd 0000 0000  |    |		.XXX[0x3]
02bf 0000       |    |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c5       |    |		.CONST	0x02c5								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0002       |    |		.CONST	0x0002								; Number of locals
02c3			INIT_02c0:
02c3 e004       |    |		Load	0x0,0x4
02c4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02c5			BODY_02c0:
02c5 e5fe       |    |		Load	0x2,-0x2
02c6 820e       |    |		Call	0x1,0xe
02c7 a222       | "  |		Store_Unchecked	0x1,0x22
02c8 e5fe       |    |		Load	0x2,-0x2
02c9 e223       | #  |		Load	0x1,0x23
02ca 016d       | m  |		Execute	Variant_Record,Structure_Write
02cb e222       | "  |		Load	0x1,0x22
02cc 700b       |p   |		Jump_Nonzero	0x2d8
02cd e233       | 3  |		Load	0x1,0x33
02ce 00d9       |    |		Load_Top	At_Offset_1
02cf 4800       |H   |		Short_Literal	0x0
02d0 4801       |H   |		Short_Literal	0x1
02d1 4800       |H   |		Short_Literal	0x0
02d2 e5fe       |    |		Load	0x2,-0x2
02d3 e008       |    |		Load	0x0,0x8
02d4 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02d5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02d6 00d1       |    |		Pop_Control	Pop_Count_1
02d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d8 e5fe       |    |		Load	0x2,-0x2
02d9 e003       |    |		Load	0x0,0x3
02da 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02db 0f01       |    |		Execute_Immediate	Equal,0x1
02dc 4801       |H   |		Short_Literal	0x1
02dd e5fe       |    |		Load	0x2,-0x2
02de e003       |    |		Load	0x0,0x3
02df 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02e0 0f40       | @  |		Execute_Immediate	Equal,0x40
02e1 4801       |H   |		Short_Literal	0x1
02e2 e5fe       |    |		Load	0x2,-0x2
02e3 e003       |    |		Load	0x0,0x3
02e4 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02e5 0f2a       | *  |		Execute_Immediate	Equal,0x2a
02e6 0278       | x  |		Execute	Discrete,Or
02e7 0279       | y  |		Execute	Discrete,And
02e8 a224       | $  |		Store_Unchecked	0x1,0x24
02e9 00db       |    |		Load_Top	At_Offset_3
02ea 0f01       |    |		Execute_Immediate	Equal,0x1
02eb 6803       |h   |		Jump_Zero	0x2ef
02ec 4803       |H   |		Short_Literal	0x3
02ed a221       | !  |		Store_Unchecked	0x1,0x21
02ee 7802       |x   |		Jump	0x2f1
02ef 4801       |H   |		Short_Literal	0x1
02f0 a221       | !  |		Store_Unchecked	0x1,0x21
02f1 4fff       |O   |		Short_Literal	-0x1
02f2 a21d       |    |		Store_Unchecked	0x1,0x1d
02f3 480f       |H   |		Short_Literal	0xf
02f4 a220       |    |		Store_Unchecked	0x1,0x20
02f5 e221       | !  |		Load	0x1,0x21
02f6 0aff       |    |		Execute_Immediate	Plus,-0x1
02f7 c21f       |    |		Store	0x1,0x1f
02f8 e219       |    |		Load	0x1,0x19
02f9 03bc       |    |		Declare_Variable	Access,By_Allocation
02fa a21e       |    |		Store_Unchecked	0x1,0x1e
02fb e001       |    |		Load	0x0,0x1
02fc 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
02fd a5fd       |    |		Store_Unchecked	0x2,-0x3
02fe e5fd       |    |		Load	0x2,-0x3
02ff 4800       |H   |		Short_Literal	0x0
0300 821c       |    |		Call	0x1,0x1c
0301 c5fd       |    |		Store	0x2,-0x3
0302 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d       |    |		.CONST	0x030d								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b e004       |    |		Load	0x0,0x4
030c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
030d			BODY_0308:
030d e222       | "  |		Load	0x1,0x22
030e 7001       |p   |		Jump_Nonzero	0x310
030f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0310 00db       |    |		Load_Top	At_Offset_3
0311 6801       |h   |		Jump_Zero	0x313
0312 820f       |    |		Call	0x1,0xf
0313 e001       |    |		Load	0x0,0x1
0314 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0315 03bc       |    |		Declare_Variable	Access,By_Allocation
0316 a5fe       |    |		Store_Unchecked	0x2,-0x2
0317 e5fe       |    |		Load	0x2,-0x2
0318 8235       | 5  |		Call	0x1,0x35
0319 e5fe       |    |		Load	0x2,-0x2
031a 0227       | '  |		Execute	Access,All_Reference
031b 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
031c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
031d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031e 6803       |h   |		Jump_Zero	0x322
031f e001       |    |		Load	0x0,0x1
0320 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0321 a5fe       |    |		Store_Unchecked	0x2,-0x2
0322 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0323 0000 0000  |    |		.BLANK	0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0337       | 7  |		.CONST	0x0337								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0005       |    |		.CONST	0x0005								; Number of locals
032b			INIT_0328:
032b 00e2       |    |		Load_Encached	Integer_Cache
032c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
032d 00e2       |    |		Load_Encached	Integer_Cache
032e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
032f 00e2       |    |		Load_Encached	Integer_Cache
0330 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0331 4850       |HP  |		Short_Literal	0x50
0332 e003       |    |		Load	0x0,0x3
0333 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0334 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0335 00d8       |    |		Load_Top	At_Offset_0
0336 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0337			BODY_0328:
0337 00d8       |    |		Load_Top	At_Offset_0
0338 e5ff       |    |		Load	0x2,-0x1
0339 e003       |    |		Load	0x0,0x3
033a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
033b 00d1       |    |		Pop_Control	Pop_Count_1
033c 00cf       |    |		Action	Mark_Auxiliary
033d 782c       |x,  |		Jump	0x36a
033e e402       |    |		Load	0x2,0x2
033f 00d8       |    |		Load_Top	At_Offset_0
0340 00e4       |    |		Load_Encached	Positive_Cache
0341 0260       | `  |		Execute	Discrete,In_Type
0342 7001       |p   |		Jump_Nonzero	0x344
0343 0801       |    |		Execute_Immediate	Raise,0x1
0344 00da       |    |		Load_Top	At_Offset_2
0345 e003       |    |		Load	0x0,0x3
0346 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0347 00d8       |    |		Load_Top	At_Offset_0
0348 0d20       |    |		Execute_Immediate	Less,0x20
0349 700d       |p   |		Jump_Nonzero	0x357
034a 00d8       |    |		Load_Top	At_Offset_0
034b 0c21       | !  |		Execute_Immediate	Greater_Equal,0x21
034c 7007       |p   |		Jump_Nonzero	0x354
034d 00d1       |    |		Pop_Control	Pop_Count_1
034e 00da       |    |		Load_Top	At_Offset_2
034f 6816       |h   |		Jump_Zero	0x366
0350 00db       |    |		Load_Top	At_Offset_3
0351 0a01       |    |		Execute_Immediate	Plus,0x1
0352 c403       |    |		Store	0x2,0x3
0353 7812       |x   |		Jump	0x366
0354 0f2c       | ,  |		Execute_Immediate	Equal,0x2c
0355 77f8       |w   |		Jump_Nonzero	0x34e
0356 7803       |x   |		Jump	0x35a
0357 0f09       |    |		Execute_Immediate	Equal,0x9
0358 77f5       |w   |		Jump_Nonzero	0x34e
0359 7800       |x   |		Jump	0x35a
035a 00da       |    |		Load_Top	At_Offset_2
035b 0a01       |    |		Execute_Immediate	Plus,0x1
035c 005b       | [  |		Store_Top	Discrete,At_Offset_3
035d e402       |    |		Load	0x2,0x2
035e 00da       |    |		Load_Top	At_Offset_2
035f e003       |    |		Load	0x0,0x3
0360 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0361 027f       |    |		Execute	Discrete,Equal
0362 6803       |h   |		Jump_Zero	0x366
0363 00db       |    |		Load_Top	At_Offset_3
0364 0a01       |    |		Execute_Immediate	Plus,0x1
0365 c403       |    |		Store	0x2,0x3
0366 e402       |    |		Load	0x2,0x2
0367 0a01       |    |		Execute_Immediate	Plus,0x1
0368 c402       |    |		Store	0x2,0x2
0369 00c9       |    |		Action	Pop_Auxiliary_Loop
036a e402       |    |		Load	0x2,0x2
036b 00da       |    |		Load_Top	At_Offset_2
036c e003       |    |		Load	0x0,0x3
036d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
036e 027a       | z  |		Execute	Discrete,Less_Equal
036f 77ce       |w   |		Jump_Nonzero	0x33e
0370 00ce       |    |		Action	Pop_Auxiliary
0371 00da       |    |		Load_Top	At_Offset_2
0372 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0373 0000 0000  |    |		.BLANK	0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 038f       |    |		.CONST	0x038f								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0008       |    |		.CONST	0x0008								; Number of locals
037b			INIT_0378:
037b 4850       |HP  |		Short_Literal	0x50
037c e003       |    |		Load	0x0,0x3
037d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
037e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
037f 00d8       |    |		Load_Top	At_Offset_0
0380 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0381 4850       |HP  |		Short_Literal	0x50
0382 e003       |    |		Load	0x0,0x3
0383 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0384 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0385 00d8       |    |		Load_Top	At_Offset_0
0386 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0387 00e2       |    |		Load_Encached	Integer_Cache
0388 00e2       |    |		Load_Encached	Integer_Cache
0389 00e2       |    |		Load_Encached	Integer_Cache
038a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
038b 00e2       |    |		Load_Encached	Integer_Cache
038c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
038d 00e2       |    |		Load_Encached	Integer_Cache
038e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
038f			BODY_0378:
038f e403       |    |		Load	0x2,0x3
0390 e5ff       |    |		Load	0x2,-0x1
0391 e003       |    |		Load	0x0,0x3
0392 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0393 00d1       |    |		Pop_Control	Pop_Count_1
0394 00cf       |    |		Action	Mark_Auxiliary
0395 7835       |x5  |		Jump	0x3cb
0396 00da       |    |		Load_Top	At_Offset_2
0397 a404       |    |		Store_Unchecked	0x2,0x4
0398 4800       |H   |		Short_Literal	0x0
0399 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
039a 00cf       |    |		Action	Mark_Auxiliary
039b 7824       |x$  |		Jump	0x3c0
039c 00db       |    |		Load_Top	At_Offset_3
039d 00d8       |    |		Load_Top	At_Offset_0
039e 00e4       |    |		Load_Encached	Positive_Cache
039f 0260       | `  |		Execute	Discrete,In_Type
03a0 7001       |p   |		Jump_Nonzero	0x3a2
03a1 0801       |    |		Execute_Immediate	Raise,0x1
03a2 e403       |    |		Load	0x2,0x3
03a3 e003       |    |		Load	0x0,0x3
03a4 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03a5 00d8       |    |		Load_Top	At_Offset_0
03a6 0d20       |    |		Execute_Immediate	Less,0x20
03a7 700e       |p   |		Jump_Nonzero	0x3b6
03a8 00d8       |    |		Load_Top	At_Offset_0
03a9 0c21       | !  |		Execute_Immediate	Greater_Equal,0x21
03aa 7008       |p   |		Jump_Nonzero	0x3b3
03ab 00d1       |    |		Pop_Control	Pop_Count_1
03ac 00da       |    |		Load_Top	At_Offset_2
03ad 6801       |h   |		Jump_Zero	0x3af
03ae 7817       |x   |		Jump	0x3c6
03af e404       |    |		Load	0x2,0x4
03b0 0a01       |    |		Execute_Immediate	Plus,0x1
03b1 c404       |    |		Store	0x2,0x4
03b2 7809       |x   |		Jump	0x3bc
03b3 0f2c       | ,  |		Execute_Immediate	Equal,0x2c
03b4 77f7       |w   |		Jump_Nonzero	0x3ac
03b5 7803       |x   |		Jump	0x3b9
03b6 0f09       |    |		Execute_Immediate	Equal,0x9
03b7 77f4       |w   |		Jump_Nonzero	0x3ac
03b8 7800       |x   |		Jump	0x3b9
03b9 00da       |    |		Load_Top	At_Offset_2
03ba 0a01       |    |		Execute_Immediate	Plus,0x1
03bb 005b       | [  |		Store_Top	Discrete,At_Offset_3
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 0a01       |    |		Execute_Immediate	Plus,0x1
03be c407       |    |		Store	0x2,0x7
03bf 00c9       |    |		Action	Pop_Auxiliary_Loop
03c0 00db       |    |		Load_Top	At_Offset_3
03c1 e403       |    |		Load	0x2,0x3
03c2 e003       |    |		Load	0x0,0x3
03c3 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03c4 027a       | z  |		Execute	Discrete,Less_Equal
03c5 77d6       |w   |		Jump_Nonzero	0x39c
03c6 00ce       |    |		Action	Pop_Auxiliary
03c7 00db       |    |		Load_Top	At_Offset_3
03c8 0a01       |    |		Execute_Immediate	Plus,0x1
03c9 c406       |    |		Store	0x2,0x6
03ca 00c9       |    |		Action	Pop_Auxiliary_Loop
03cb e5fe       |    |		Load	0x2,-0x2
03cc e406       |    |		Load	0x2,0x6
03cd 027d       | }  |		Execute	Discrete,Greater
03ce 77c7       |w   |		Jump_Nonzero	0x396
03cf 00ce       |    |		Action	Pop_Auxiliary
03d0 00d8       |    |		Load_Top	At_Offset_0
03d1 6819       |h   |		Jump_Zero	0x3eb
03d2 e404       |    |		Load	0x2,0x4
03d3 00d9       |    |		Load_Top	At_Offset_1
03d4 0273       | s  |		Execute	Discrete,Plus
03d5 0aff       |    |		Execute_Immediate	Plus,-0x1
03d6 c405       |    |		Store	0x2,0x5
03d7 e402       |    |		Load	0x2,0x2
03d8 e405       |    |		Load	0x2,0x5
03d9 00d8       |    |		Load_Top	At_Offset_0
03da 00e3       |    |		Load_Encached	Natural_Cache
03db 0260       | `  |		Execute	Discrete,In_Type
03dc 7001       |p   |		Jump_Nonzero	0x3de
03dd 0801       |    |		Execute_Immediate	Raise,0x1
03de e404       |    |		Load	0x2,0x4
03df 00d8       |    |		Load_Top	At_Offset_0
03e0 00e4       |    |		Load_Encached	Positive_Cache
03e1 0260       | `  |		Execute	Discrete,In_Type
03e2 7001       |p   |		Jump_Nonzero	0x3e4
03e3 0801       |    |		Execute_Immediate	Raise,0x1
03e4 e403       |    |		Load	0x2,0x3
03e5 e003       |    |		Load	0x0,0x3
03e6 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03e7 e003       |    |		Load	0x0,0x3
03e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03e9 00d1       |    |		Pop_Control	Pop_Count_1
03ea 7806       |x   |		Jump	0x3f1
03eb e402       |    |		Load	0x2,0x2
03ec 4820       |H   |		Short_Literal	0x20
03ed 4800       |H   |		Short_Literal	0x0
03ee e003       |    |		Load	0x0,0x3
03ef 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03f0 00d1       |    |		Pop_Control	Pop_Count_1
03f1 e402       |    |		Load	0x2,0x2
03f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f3 0000 0000  |    |		.BLANK	0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0409       |    |		.CONST	0x0409								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0006       |    |		.CONST	0x0006								; Number of locals
03fb			INIT_03f8:
03fb 00e1       |    |		Load_Encached	Boolean_Cache
03fc 4850       |HP  |		Short_Literal	0x50
03fd e003       |    |		Load	0x0,0x3
03fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ff 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0400 00d8       |    |		Load_Top	At_Offset_0
0401 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0402 e001       |    |		Load	0x0,0x1
0403 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0404 0322       | "  |		Declare_Variable	Record
0405 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
0407 029f 046b  |   k|		Declare_Subprogram	INIT_0468,For_Call
0409			BODY_03f8:
0409 00cf       |    |		Action	Mark_Auxiliary
040a 7800       |x   |		Jump	0x40b
040b 8210       |    |		Call	0x1,0x10
040c e220       |    |		Load	0x1,0x20
040d 4fff       |O   |		Short_Literal	-0x1
040e 027f       |    |		Execute	Discrete,Equal
040f 6802       |h   |		Jump_Zero	0x412
0410 00ce       |    |		Action	Pop_Auxiliary
0411 780e       |x   |		Jump	0x420
0412 e002       |    |		Load	0x0,0x2
0413 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0414 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0415 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0416 6803       |h   |		Jump_Zero	0x41a
0417 4801       |H   |		Short_Literal	0x1
0418 a402       |    |		Store_Unchecked	0x2,0x2
0419 7801       |x   |		Jump	0x41b
041a 8405       |    |		Call	0x2,0x5
041b e402       |    |		Load	0x2,0x2
041c 6801       |h   |		Jump_Zero	0x41e
041d 8406       |    |		Call	0x2,0x6
041e 00c9       |    |		Action	Pop_Auxiliary_Loop
041f 7feb       |    |		Jump	0x40b
0420 4801       |H   |		Short_Literal	0x1
0421 e5ff       |    |		Load	0x2,-0x1
0422 0227       | '  |		Execute	Access,All_Reference
0423 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0424 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0425 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0426 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0427 0000       |    |		.XXX[0x1]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 4607       |F   |		Jump_Case	0x8
042c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
042d 7806       |x   |		Jump	0x434								; case 0x1
042e 7809       |x   |		Jump	0x438								; case 0x2
042f 780d       |x   |		Jump	0x43d								; case 0x3
0430 7810       |x   |		Jump	0x441								; case 0x4
0431 7811       |x   |		Jump	0x443								; case 0x5
0432 7812       |x   |		Jump	0x445								; case 0x6
0433 7815       |x   |		Jump	0x449								; case 0x7
0434 00da       |    |		Load_Top	At_Offset_2
0435 0091 04bc  |    |		Action	Push_String_Extended_Indexed,0x4bc				; "CONTINUE"
0437 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0438 00db       |    |		Load_Top	At_Offset_3
0439 00db       |    |		Load_Top	At_Offset_3
043a 00e0       |    |		Load_Encached	Standard_Cache
043b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
043c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043d 00da       |    |		Load_Top	At_Offset_2
043e 00e0       |    |		Load_Encached	Standard_Cache
043f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0440 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0441 00db       |    |		Load_Top	At_Offset_3
0442 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0443 00db       |    |		Load_Top	At_Offset_3
0444 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0445 e402       |    |		Load	0x2,0x2
0446 00dc       |    |		Load_Top	At_Offset_4
0447 0267       | g  |		Execute	Discrete,Predecessor
0448 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0449 e402       |    |		Load	0x2,0x2
044a 00dc       |    |		Load_Top	At_Offset_4
044b 0268       | h  |		Execute	Discrete,Successor
044c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
044d 0000 0000  |    |		.XXX[0x3]
044f 0000       |    |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 e403       |    |		Load	0x2,0x3
0454 e220       |    |		Load	0x1,0x20
0455 e21f       |    |		Load	0x1,0x1f
0456 e21e       |    |		Load	0x1,0x1e
0457 0227       | '  |		Execute	Access,All_Reference
0458 01d5       |    |		Execute	Vector,Field_Reference
0459 01d5       |    |		Execute	Vector,Field_Reference
045a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
045b e00d       |    |		Load	0x0,0xd
045c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
045d e003       |    |		Load	0x0,0x3
045e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
045f 00d1       |    |		Pop_Control	Pop_Count_1
0460 e223       | #  |		Load	0x1,0x23
0461 e403       |    |		Load	0x2,0x3
0462 820d       |    |		Call	0x1,0xd
0463 a402       |    |		Store_Unchecked	0x2,0x2
0464 e403       |    |		Load	0x2,0x3
0465 e003       |    |		Load	0x0,0x3
0466 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0467 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b e220       |    |		Load	0x1,0x20
046c e21f       |    |		Load	0x1,0x1f
046d e21e       |    |		Load	0x1,0x1e
046e 0227       | '  |		Execute	Access,All_Reference
046f 01d5       |    |		Execute	Vector,Field_Reference
0470 01d5       |    |		Execute	Vector,Field_Reference
0471 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0472 e5ff       |    |		Load	0x2,-0x1
0473 0227       | '  |		Execute	Access,All_Reference
0474 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0475 e220       |    |		Load	0x1,0x20
0476 e21f       |    |		Load	0x1,0x1f
0477 e21e       |    |		Load	0x1,0x1e
0478 0227       | '  |		Execute	Access,All_Reference
0479 01d5       |    |		Execute	Vector,Field_Reference
047a 01d5       |    |		Execute	Vector,Field_Reference
047b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047c e5ff       |    |		Load	0x2,-0x1
047d 0227       | '  |		Execute	Access,All_Reference
047e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
047f e220       |    |		Load	0x1,0x20
0480 e21f       |    |		Load	0x1,0x1f
0481 e21e       |    |		Load	0x1,0x1e
0482 0227       | '  |		Execute	Access,All_Reference
0483 01d5       |    |		Execute	Vector,Field_Reference
0484 01d5       |    |		Execute	Vector,Field_Reference
0485 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0486 e5ff       |    |		Load	0x2,-0x1
0487 0227       | '  |		Execute	Access,All_Reference
0488 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0489 4800       |H   |		Short_Literal	0x0
048a e5ff       |    |		Load	0x2,-0x1
048b 0227       | '  |		Execute	Access,All_Reference
048c 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
048d e220       |    |		Load	0x1,0x20
048e e5ff       |    |		Load	0x2,-0x1
048f 0227       | '  |		Execute	Access,All_Reference
0490 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0491 e21d       |    |		Load	0x1,0x1d
0492 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
0493 e002       |    |		Load	0x0,0x2
0494 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0495 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0496 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0497 01d7       |    |		Execute	Vector,Field_Read
0498 e21d       |    |		Load	0x1,0x1d
0499 48ff       |H   |		Short_Literal	0xff
049a 0279       | y  |		Execute	Discrete,And
049b 00d8       |    |		Load_Top	At_Offset_0
049c e001       |    |		Load	0x0,0x1
049d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
049e 0260       | `  |		Execute	Discrete,In_Type
049f 7001       |p   |		Jump_Nonzero	0x4a1
04a0 0801       |    |		Execute_Immediate	Raise,0x1
04a1 0273       | s  |		Execute	Discrete,Plus
04a2 e5ff       |    |		Load	0x2,-0x1
04a3 0227       | '  |		Execute	Access,All_Reference
04a4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04a5 4800       |H   |		Short_Literal	0x0
04a6 e5ff       |    |		Load	0x2,-0x1
04a7 0227       | '  |		Execute	Access,All_Reference
04a8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
04a9 4800       |H   |		Short_Literal	0x0
04aa e5ff       |    |		Load	0x2,-0x1
04ab 0227       | '  |		Execute	Access,All_Reference
04ac 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
04ad e002       |    |		Load	0x0,0x2
04ae 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
04af 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
04b0 e5ff       |    |		Load	0x2,-0x1
04b1 0227       | '  |		Execute	Access,All_Reference
04b2 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
04b3 e5ff       |    |		Load	0x2,-0x1
04b4 e002       |    |		Load	0x0,0x2
04b5 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
04b6 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
04b7 00cc       |    |		Action	Pop_Block
04b8 00ce       |    |		Action	Pop_Auxiliary
04b9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04ba ; --------------------------------------------------------------------------------------
04ba ; STRING TABLE
04ba ; --------------------------------------------------------------------------------------
04ba 0012       |    |		.STRTAB	0x0012->0x04c3							; "SLOW"
04bb 0014       |    |		.STRTAB	0x0014->0x04c5							; "FAST"
04bc 0016       |    |		.STRTAB	0x0016->0x04c7							; "CONTINUE"
04bd 001c       |    |		.STRTAB	0x001c->0x04cb							; "BACKUP"
04be 0020       |    |		.STRTAB	0x0020->0x04ce							; "STACK"
04bf 0023       | #  |		.STRTAB	0x0023->0x04d0							; "FAIL"
04c0 0025       | %  |		.STRTAB	0x0025->0x04d2							; "SUCCEED"
04c1 002a       | *  |		.STRTAB	0x002a->0x04d6							; "directory read error!"
04c2 003d       | =  |		.STREND 0x003d->0x04e0
04c3 534c 4f57  |SLOW|		.STRTAB_STRINGS
04e1 0000 0000  |    |		.BLANK	0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug Table
04e8 ; --------------------------------------------------------------------------------------
04e8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x1f29,0x0000,0x0001,0x0000
04ee 0404 0404  |    |		.BLANK	0404[0x45]
0533 0400 1ee1  |    |		.XXX[0x36]
0535 0000 1dd3  |    |
0537 5000 1ee1  |P   |
0539 0000 0000  |    |
053b 6800 1400  |h   |
053d 0000 0000  |    |
053f 0800 03e0  |    |
0541 0000 1504  |    |
0543 e800 0000  |    |
0545 0000 1503  |    |
0547 6800 1400  |h   |
0549 0000 0000  |    |
054b 0800 0000  |    |
054d 0000 0000  |    |
054f 0c00 0000  |    |
0551 1800 0000  |    |
0553 0000 0000  |    |
0555 4000 0000  |@   |
0557 0000 1500  |    |
0559 0000 0841  |   A|
055b 4600 00b1  |F   |
055d c800 1d00  |    |
055f 1800 03f0  |    |
0561 0000 0fff  |    |
0563 c000 1e1a  |    |
0565 e800 0004  |    |
0567 0800 03fc  |    |
0569 0000 0000  |    |		.BLANK	0000[0x4]
056d 0c00 0000  |    |		.XXX[0x1f]
056f 1800 0000  |    |
0571 0000 0000  |    |
0573 4000 0000  |@   |
0575 0000 1d04  |    |
0577 b800 0841  |   A|
0579 4600 00b1  |F   |
057b ca00 00a5  |    |
057d f000 03f0  |    |
057f 0000 0fff  |    |
0581 c200 00a7  |    |
0583 e200 00e5  |    |
0585 6800 03f0  |h   |
0587 8600 0099  |    |
0589 2200 009a  |"   |
058b 8004       |    |
058c 0404 0404  |    |		.BLANK	0404[0x31]
05bd 0400 0000  |    |		.XXX[0x17]
05bf 0000 0000  |    |
05c1 0040 4010  | @@ |
05c3 bc04 0404  |    |
05c5 0404 0404  |    |
05c7 0600 0103  |    |
05c9 1000 03ef  |    |
05cb d804 0404  |    |
05cd 0404 0404  |    |
05cf 0400 0000  |    |
05d1 0000 0000  |    |
05d3 0004       |    |
05d4 0404 0404  |    |		.BLANK	0404[0x2c]