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

⟦de08546b2⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3

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 0a48       | H  |		.CONST	0x0a48								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0085       |    |		.CONST	0x0085								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002b       | +  |		.CONST	0x002b								; Number of locals
000b			INIT_0008:
000b 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0011 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0013 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0015 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0017 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0019 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
001b 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
001d 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
001f 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0021 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
0023 029a 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call,Visible,Unelaborated
0025 029a 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call,Visible,Unelaborated
0027 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
0029 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
002b 4804       |H   |		Short_Literal	0x4
002c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
002d 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
002f 029a 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call,Visible,Unelaborated
0031 029a 0843  |   C|		Declare_Subprogram	INIT_0840,For_Outer_Call,Visible,Unelaborated
0033 481e       |H   |		Short_Literal	0x1e
0034 e001       |    |		Load	0x0,0x1
0035 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0036 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0037 00e2       |    |		Load_Encached	Integer_Cache
0038 00e2       |    |		Load_Encached	Integer_Cache
0039 e002       |    |		Load	0x0,0x2
003a 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
003b 029f 0943  |   C|		Declare_Subprogram	INIT_0940,For_Call
003d e21d       |    |		Load	0x1,0x1d
003e 0326       | &  |		Complete_Type	Record,By_Defining
003f 00bf       |    |		Action	Accept_Activation
0040 4801       |H   |		Short_Literal	0x1
0041 481e       |H   |		Short_Literal	0x1e
0042 00e9       |    |		Load_Encached	String_Cache
0043 035b       | [  |		Declare_Type	Array,Constrained
0044 0337       | 7  |		Declare_Variable	Array
0045 e002       |    |		Load	0x0,0x2
0046 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0047 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0048 e003       |    |		Load	0x0,0x3
0049 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004a 0322       | "  |		Declare_Variable	Record
004b e004       |    |		Load	0x0,0x4
004c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004d 0322       | "  |		Declare_Variable	Record
004e e002       |    |		Load	0x0,0x2
004f 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0050 0337       | 7  |		Declare_Variable	Array
0051 00e1       |    |		Load_Encached	Boolean_Cache
0052 e005       |    |		Load	0x0,0x5
0053 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0054 4801       |H   |		Short_Literal	0x1
0055 4805       |H   |		Short_Literal	0x5
0056 00e9       |    |		Load_Encached	String_Cache
0057 035b       | [  |		Declare_Type	Array,Constrained
0058 0337       | 7  |		Declare_Variable	Array
0059 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 029d 0853  |   S|		Declare_Subprogram	INIT_0850,For_Outer_Call
006d 029d 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call
006f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 029d 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call
007d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0084 00c7       |    |		Action	Elaborate_Subprogram
0085			BODY_0008:
0085 00bc       |    |		Action	Signal_Activated
0086 00bb       |    |		Action	Signal_Completion
0087 0000       |    |		.XXX[0x1]
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 e222       | "  |		Load	0x1,0x22
008c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
008d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097       |    |		.CONST	0x0097								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0005       |    |		.CONST	0x0005								; Number of locals
0093			INIT_0090:
0093 00e2       |    |		Load_Encached	Integer_Cache
0094 00e2       |    |		Load_Encached	Integer_Cache
0095 00e2       |    |		Load_Encached	Integer_Cache
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097			BODY_0090:
0097 4800       |H   |		Short_Literal	0x0
0098 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0099 4800       |H   |		Short_Literal	0x0
009a a402       |    |		Store_Unchecked	0x2,0x2
009b 00cf       |    |		Action	Mark_Auxiliary
009c e5ff       |    |		Load	0x2,-0x1
009d e001       |    |		Load	0x0,0x1
009e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
009f 4801       |H   |		Short_Literal	0x1
00a0 0263       | c  |		Execute	Discrete,Above_Bound
00a1 710a       |q   |		Jump_Nonzero	0x1ac
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 e5ff       |    |		Load	0x2,-0x1
00a4 e001       |    |		Load	0x0,0x1
00a5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00a6 e006       |    |		Load	0x0,0x6
00a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a8 467f       |F   |		Jump_Case	0x80
00a9 787f       |x   |		Jump	0x129								; case 0x0
00aa 787e       |x~  |		Jump	0x129								; case 0x1
00ab 787d       |x}  |		Jump	0x129								; case 0x2
00ac 787c       |x|  |		Jump	0x129								; case 0x3
00ad 787b       |x{  |		Jump	0x129								; case 0x4
00ae 787a       |xz  |		Jump	0x129								; case 0x5
00af 7879       |xy  |		Jump	0x129								; case 0x6
00b0 7878       |xx  |		Jump	0x129								; case 0x7
00b1 7877       |xw  |		Jump	0x129								; case 0x8
00b2 7876       |xv  |		Jump	0x129								; case 0x9
00b3 7875       |xu  |		Jump	0x129								; case 0xa
00b4 7874       |xt  |		Jump	0x129								; case 0xb
00b5 7873       |xs  |		Jump	0x129								; case 0xc
00b6 7872       |xr  |		Jump	0x129								; case 0xd
00b7 7871       |xq  |		Jump	0x129								; case 0xe
00b8 7870       |xp  |		Jump	0x129								; case 0xf
00b9 786f       |xo  |		Jump	0x129								; case 0x10
00ba 786e       |xn  |		Jump	0x129								; case 0x11
00bb 786d       |xm  |		Jump	0x129								; case 0x12
00bc 786c       |xl  |		Jump	0x129								; case 0x13
00bd 786b       |xk  |		Jump	0x129								; case 0x14
00be 786a       |xj  |		Jump	0x129								; case 0x15
00bf 7869       |xi  |		Jump	0x129								; case 0x16
00c0 7868       |xh  |		Jump	0x129								; case 0x17
00c1 7867       |xg  |		Jump	0x129								; case 0x18
00c2 7866       |xf  |		Jump	0x129								; case 0x19
00c3 7865       |xe  |		Jump	0x129								; case 0x1a
00c4 7864       |xd  |		Jump	0x129								; case 0x1b
00c5 7863       |xc  |		Jump	0x129								; case 0x1c
00c6 7862       |xb  |		Jump	0x129								; case 0x1d
00c7 7861       |xa  |		Jump	0x129								; case 0x1e
00c8 7860       |x`  |		Jump	0x129								; case 0x1f
00c9 785f       |x_  |		Jump	0x129								; case 0x20
00ca 785e       |x^  |		Jump	0x129								; case 0x21
00cb 785d       |x]  |		Jump	0x129								; case 0x22
00cc 785c       |x\  |		Jump	0x129								; case 0x23
00cd 78ca       |x   |		Jump	0x198								; case 0x24
00ce 785a       |xZ  |		Jump	0x129								; case 0x25
00cf 7859       |xY  |		Jump	0x129								; case 0x26
00d0 7858       |xX  |		Jump	0x129								; case 0x27
00d1 7857       |xW  |		Jump	0x129								; case 0x28
00d2 7856       |xV  |		Jump	0x129								; case 0x29
00d3 7855       |xU  |		Jump	0x129								; case 0x2a
00d4 7854       |xT  |		Jump	0x129								; case 0x2b
00d5 7853       |xS  |		Jump	0x129								; case 0x2c
00d6 7852       |xR  |		Jump	0x129								; case 0x2d
00d7 78c9       |x   |		Jump	0x1a1								; case 0x2e
00d8 7850       |xP  |		Jump	0x129								; case 0x2f
00d9 78a0       |x   |		Jump	0x17a								; case 0x30
00da 78a2       |x   |		Jump	0x17d								; case 0x31
00db 78a4       |x   |		Jump	0x180								; case 0x32
00dc 78a6       |x   |		Jump	0x183								; case 0x33
00dd 78a8       |x   |		Jump	0x186								; case 0x34
00de 78aa       |x   |		Jump	0x189								; case 0x35
00df 78ac       |x   |		Jump	0x18c								; case 0x36
00e0 78ae       |x   |		Jump	0x18f								; case 0x37
00e1 78b0       |x   |		Jump	0x192								; case 0x38
00e2 78b2       |x   |		Jump	0x195								; case 0x39
00e3 7845       |xE  |		Jump	0x129								; case 0x3a
00e4 7844       |xD  |		Jump	0x129								; case 0x3b
00e5 7843       |xC  |		Jump	0x129								; case 0x3c
00e6 7842       |xB  |		Jump	0x129								; case 0x3d
00e7 7841       |xA  |		Jump	0x129								; case 0x3e
00e8 78b5       |x   |		Jump	0x19e								; case 0x3f
00e9 783f       |x?  |		Jump	0x129								; case 0x40
00ea 7841       |xA  |		Jump	0x12c								; case 0x41
00eb 7843       |xC  |		Jump	0x12f								; case 0x42
00ec 7845       |xE  |		Jump	0x132								; case 0x43
00ed 7847       |xG  |		Jump	0x135								; case 0x44
00ee 7849       |xI  |		Jump	0x138								; case 0x45
00ef 784b       |xK  |		Jump	0x13b								; case 0x46
00f0 784d       |xM  |		Jump	0x13e								; case 0x47
00f1 784f       |xO  |		Jump	0x141								; case 0x48
00f2 7851       |xQ  |		Jump	0x144								; case 0x49
00f3 7853       |xS  |		Jump	0x147								; case 0x4a
00f4 7855       |xU  |		Jump	0x14a								; case 0x4b
00f5 7857       |xW  |		Jump	0x14d								; case 0x4c
00f6 7859       |xY  |		Jump	0x150								; case 0x4d
00f7 785b       |x[  |		Jump	0x153								; case 0x4e
00f8 785d       |x]  |		Jump	0x156								; case 0x4f
00f9 785f       |x_  |		Jump	0x159								; case 0x50
00fa 7861       |xa  |		Jump	0x15c								; case 0x51
00fb 7863       |xc  |		Jump	0x15f								; case 0x52
00fc 7865       |xe  |		Jump	0x162								; case 0x53
00fd 7867       |xg  |		Jump	0x165								; case 0x54
00fe 7869       |xi  |		Jump	0x168								; case 0x55
00ff 786b       |xk  |		Jump	0x16b								; case 0x56
0100 786d       |xm  |		Jump	0x16e								; case 0x57
0101 786f       |xo  |		Jump	0x171								; case 0x58
0102 7871       |xq  |		Jump	0x174								; case 0x59
0103 7873       |xs  |		Jump	0x177								; case 0x5a
0104 7824       |x$  |		Jump	0x129								; case 0x5b
0105 7823       |x#  |		Jump	0x129								; case 0x5c
0106 7822       |x"  |		Jump	0x129								; case 0x5d
0107 7821       |x!  |		Jump	0x129								; case 0x5e
0108 7892       |x   |		Jump	0x19b								; case 0x5f
0109 781f       |x   |		Jump	0x129								; case 0x60
010a 781e       |x   |		Jump	0x129								; case 0x61
010b 781d       |x   |		Jump	0x129								; case 0x62
010c 781c       |x   |		Jump	0x129								; case 0x63
010d 781b       |x   |		Jump	0x129								; case 0x64
010e 781a       |x   |		Jump	0x129								; case 0x65
010f 7819       |x   |		Jump	0x129								; case 0x66
0110 7818       |x   |		Jump	0x129								; case 0x67
0111 7817       |x   |		Jump	0x129								; case 0x68
0112 7816       |x   |		Jump	0x129								; case 0x69
0113 7815       |x   |		Jump	0x129								; case 0x6a
0114 7814       |x   |		Jump	0x129								; case 0x6b
0115 7813       |x   |		Jump	0x129								; case 0x6c
0116 7812       |x   |		Jump	0x129								; case 0x6d
0117 7811       |x   |		Jump	0x129								; case 0x6e
0118 7810       |x   |		Jump	0x129								; case 0x6f
0119 780f       |x   |		Jump	0x129								; case 0x70
011a 780e       |x   |		Jump	0x129								; case 0x71
011b 780d       |x   |		Jump	0x129								; case 0x72
011c 780c       |x   |		Jump	0x129								; case 0x73
011d 780b       |x   |		Jump	0x129								; case 0x74
011e 780a       |x   |		Jump	0x129								; case 0x75
011f 7809       |x   |		Jump	0x129								; case 0x76
0120 7808       |x   |		Jump	0x129								; case 0x77
0121 7807       |x   |		Jump	0x129								; case 0x78
0122 7806       |x   |		Jump	0x129								; case 0x79
0123 7805       |x   |		Jump	0x129								; case 0x7a
0124 7804       |x   |		Jump	0x129								; case 0x7b
0125 7803       |x   |		Jump	0x129								; case 0x7c
0126 7802       |x   |		Jump	0x129								; case 0x7d
0127 7801       |x   |		Jump	0x129								; case 0x7e
0128 7800       |x   |		Jump	0x129								; case 0x7f
0129 4801       |H   |		Short_Literal	0x1
012a a405       |    |		Store_Unchecked	0x2,0x5
012b 7877       |xw  |		Jump	0x1a3
012c 4801       |H   |		Short_Literal	0x1
012d a404       |    |		Store_Unchecked	0x2,0x4
012e 7874       |xt  |		Jump	0x1a3
012f 4808       |H   |		Short_Literal	0x8
0130 a404       |    |		Store_Unchecked	0x2,0x4
0131 7871       |xq  |		Jump	0x1a3
0132 481b       |H   |		Short_Literal	0x1b
0133 a404       |    |		Store_Unchecked	0x2,0x4
0134 786e       |xn  |		Jump	0x1a3
0135 4840       |H@  |		Short_Literal	0x40
0136 a404       |    |		Store_Unchecked	0x2,0x4
0137 786b       |xk  |		Jump	0x1a3
0138 487d       |H}  |		Short_Literal	0x7d
0139 a404       |    |		Store_Unchecked	0x2,0x4
013a 7868       |xh  |		Jump	0x1a3
013b 48d8       |H   |		Short_Literal	0xd8
013c a404       |    |		Store_Unchecked	0x2,0x4
013d 7865       |xe  |		Jump	0x1a3
013e 4957       |IW  |		Short_Literal	0x157
013f a404       |    |		Store_Unchecked	0x2,0x4
0140 7862       |xb  |		Jump	0x1a3
0141 4a00       |J   |		Short_Literal	0x200
0142 a404       |    |		Store_Unchecked	0x2,0x4
0143 785f       |x_  |		Jump	0x1a3
0144 4ad9       |J   |		Short_Literal	0x2d9
0145 a404       |    |		Store_Unchecked	0x2,0x4
0146 785c       |x\  |		Jump	0x1a3
0147 4be8       |K   |		Short_Literal	0x3e8
0148 a404       |    |		Store_Unchecked	0x2,0x4
0149 7859       |xY  |		Jump	0x1a3
014a 60ed       |`   |		Indirect_Literal	Discrete,0x238,{0x00000000, 0x00000533}
014b a404       |    |		Store_Unchecked	0x2,0x4
014c 7856       |xV  |		Jump	0x1a3
014d 60e6       |`   |		Indirect_Literal	Discrete,0x234,{0x00000000, 0x000006c0}
014e a404       |    |		Store_Unchecked	0x2,0x4
014f 7853       |xS  |		Jump	0x1a3
0150 60df       |`   |		Indirect_Literal	Discrete,0x230,{0x00000000, 0x00000895}
0151 a404       |    |		Store_Unchecked	0x2,0x4
0152 7850       |xP  |		Jump	0x1a3
0153 60d8       |`   |		Indirect_Literal	Discrete,0x22c,{0x00000000, 0x00000ab8}
0154 a404       |    |		Store_Unchecked	0x2,0x4
0155 784d       |xM  |		Jump	0x1a3
0156 60d1       |`   |		Indirect_Literal	Discrete,0x228,{0x00000000, 0x00000d2f}
0157 a404       |    |		Store_Unchecked	0x2,0x4
0158 784a       |xJ  |		Jump	0x1a3
0159 60ca       |`   |		Indirect_Literal	Discrete,0x224,{0x00000000, 0x00001000}
015a a404       |    |		Store_Unchecked	0x2,0x4
015b 7847       |xG  |		Jump	0x1a3
015c 60c3       |`   |		Indirect_Literal	Discrete,0x220,{0x00000000, 0x00001331}
015d a404       |    |		Store_Unchecked	0x2,0x4
015e 7844       |xD  |		Jump	0x1a3
015f 60bc       |`   |		Indirect_Literal	Discrete,0x21c,{0x00000000, 0x000016c8}
0160 a404       |    |		Store_Unchecked	0x2,0x4
0161 7841       |xA  |		Jump	0x1a3
0162 60b5       |`   |		Indirect_Literal	Discrete,0x218,{0x00000000, 0x00001acb}
0163 a404       |    |		Store_Unchecked	0x2,0x4
0164 783e       |x>  |		Jump	0x1a3
0165 60ae       |`   |		Indirect_Literal	Discrete,0x214,{0x00000000, 0x00001f40}
0166 a404       |    |		Store_Unchecked	0x2,0x4
0167 783b       |x;  |		Jump	0x1a3
0168 60a7       |`   |		Indirect_Literal	Discrete,0x210,{0x00000000, 0x0000242d}
0169 a404       |    |		Store_Unchecked	0x2,0x4
016a 7838       |x8  |		Jump	0x1a3
016b 60a0       |`   |		Indirect_Literal	Discrete,0x20c,{0x00000000, 0x00002998}
016c a404       |    |		Store_Unchecked	0x2,0x4
016d 7835       |x5  |		Jump	0x1a3
016e 6099       |`   |		Indirect_Literal	Discrete,0x208,{0x00000000, 0x00002f87}
016f a404       |    |		Store_Unchecked	0x2,0x4
0170 7832       |x2  |		Jump	0x1a3
0171 6092       |`   |		Indirect_Literal	Discrete,0x204,{0x00000000, 0x00003600}
0172 a404       |    |		Store_Unchecked	0x2,0x4
0173 782f       |x/  |		Jump	0x1a3
0174 608b       |`   |		Indirect_Literal	Discrete,0x200,{0x00000000, 0x00003d09}
0175 a404       |    |		Store_Unchecked	0x2,0x4
0176 782c       |x,  |		Jump	0x1a3
0177 6084       |`   |		Indirect_Literal	Discrete,0x1fc,{0x00000000, 0x000044a8}
0178 a404       |    |		Store_Unchecked	0x2,0x4
0179 7829       |x)  |		Jump	0x1a3
017a 607d       |`}  |		Indirect_Literal	Discrete,0x1f8,{0x00000000, 0x0001b000}
017b a404       |    |		Store_Unchecked	0x2,0x4
017c 7826       |x&  |		Jump	0x1a3
017d 6076       |`v  |		Indirect_Literal	Discrete,0x1f4,{0x00000000, 0x0001cb91}
017e a404       |    |		Store_Unchecked	0x2,0x4
017f 7823       |x#  |		Jump	0x1a3
0180 606f       |`o  |		Indirect_Literal	Discrete,0x1f0,{0x00000000, 0x0001e848}
0181 a404       |    |		Store_Unchecked	0x2,0x4
0182 7820       |x   |		Jump	0x1a3
0183 6068       |`h  |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x0002062b}
0184 a404       |    |		Store_Unchecked	0x2,0x4
0185 781d       |x   |		Jump	0x1a3
0186 6061       |`a  |		Indirect_Literal	Discrete,0x1e8,{0x00000000, 0x00022540}
0187 a404       |    |		Store_Unchecked	0x2,0x4
0188 781a       |x   |		Jump	0x1a3
0189 605a       |`Z  |		Indirect_Literal	Discrete,0x1e4,{0x00000000, 0x0002458d}
018a a404       |    |		Store_Unchecked	0x2,0x4
018b 7817       |x   |		Jump	0x1a3
018c 6053       |`S  |		Indirect_Literal	Discrete,0x1e0,{0x00000000, 0x00026718}
018d a404       |    |		Store_Unchecked	0x2,0x4
018e 7814       |x   |		Jump	0x1a3
018f 604c       |`L  |		Indirect_Literal	Discrete,0x1dc,{0x00000000, 0x000289e7}
0190 a404       |    |		Store_Unchecked	0x2,0x4
0191 7811       |x   |		Jump	0x1a3
0192 6045       |`E  |		Indirect_Literal	Discrete,0x1d8,{0x00000000, 0x0002ae00}
0193 a404       |    |		Store_Unchecked	0x2,0x4
0194 780e       |x   |		Jump	0x1a3
0195 603e       |`>  |		Indirect_Literal	Discrete,0x1d4,{0x00000000, 0x0002d369}
0196 a404       |    |		Store_Unchecked	0x2,0x4
0197 780b       |x   |		Jump	0x1a3
0198 6037       |`7  |		Indirect_Literal	Discrete,0x1d0,{0x00000000, 0x0000b640}
0199 a404       |    |		Store_Unchecked	0x2,0x4
019a 7808       |x   |		Jump	0x1a3
019b 6030       |`0  |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x0000745f}
019c a404       |    |		Store_Unchecked	0x2,0x4
019d 7805       |x   |		Jump	0x1a3
019e 6029       |`)  |		Indirect_Literal	Discrete,0x1c8,{0x00000000, 0x0003d0bf}
019f a404       |    |		Store_Unchecked	0x2,0x4
01a0 7802       |x   |		Jump	0x1a3
01a1 6022       |`"  |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x00017c38}
01a2 a404       |    |		Store_Unchecked	0x2,0x4
01a3 e402       |    |		Load	0x2,0x2
01a4 e404       |    |		Load	0x2,0x4
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 0271       | q  |		Execute	Discrete,Times
01a7 0273       | s  |		Execute	Discrete,Plus
01a8 c402       |    |		Store	0x2,0x2
01a9 00c8       |    |		Action	Pop_Auxiliary_Range
01aa 00a4 00a2  |    |		Action	Loop_Increasing_Extended,0xa2
01ac 00ce       |    |		Action	Pop_Auxiliary
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae 6802       |h   |		Jump_Zero	0x1b1
01af 4800       |H   |		Short_Literal	0x0
01b0 a402       |    |		Store_Unchecked	0x2,0x2
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 600d       |`   |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x0000ffff}
01b3 027d       | }  |		Execute	Discrete,Greater
01b4 6804       |h   |		Jump_Zero	0x1b9
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 6005       |`   |		Indirect_Literal	Discrete,0x1bc,{0x00000000, 0x00010000}
01b7 026f       | o  |		Execute	Discrete,Remainder
01b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b9 00db       |    |		Load_Top	At_Offset_3
01ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bb 0000       |    |		.XXX[0x1]
01bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010000}
01c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
01c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00017c38}
01c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0003d0bf}
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000745f}
01d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000b640}
01d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0002d369}
01d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0002ae00}
01dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000289e7}
01e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00026718}
01e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0002458d}
01e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00022540}
01ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x0002062b}
01f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0001e848}
01f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0001cb91}
01f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0001b000}
01fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000044a8}
0200 0000 0000  |    |		.LITERAL	{0x00000000, 0x00003d09}
0204 0000 0000  |    |		.LITERAL	{0x00000000, 0x00003600}
0208 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002f87}
020c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002998}
0210 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000242d}
0214 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001f40}
0218 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001acb}
021c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000016c8}
0220 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001331}
0224 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001000}
0228 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000d2f}
022c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000ab8}
0230 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000895}
0234 0000 0000  |    |		.LITERAL	{0x00000000, 0x000006c0}
0238 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000533}
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0254       | T  |		.CONST	0x0254								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0007       |    |		.CONST	0x0007								; Number of locals
0243			INIT_0240:
0243 4800       |H   |		Short_Literal	0x0
0244 4bff       |K   |		Short_Literal	0x3ff
0245 e007       |    |		Load	0x0,0x7
0246 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0247 02a0       |    |		Declare_Subprogram	Null_Subprogram
0248 4801       |H   |		Short_Literal	0x1
0249 035d       | ]  |		Declare_Type	Array,Defined
024a e004       |    |		Load	0x0,0x4
024b 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
024c 00c6       |    |		Action	Check_Subprogram_Elaborated
024d 00d8       |    |		Load_Top	At_Offset_0
024e e008       |    |		Load	0x0,0x8
024f e009       |    |		Load	0x0,0x9
0250 4806       |H   |		Short_Literal	0x6
0251 0007       |    |		Action	Break_Optional
0252 e402       |    |		Load	0x2,0x2
0253 0337       | 7  |		Declare_Variable	Array
0254			BODY_0240:
0254 4800       |H   |		Short_Literal	0x0
0255 e224       | $  |		Load	0x1,0x24
0256 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0257 4800       |H   |		Short_Literal	0x0
0258 e224       | $  |		Load	0x1,0x24
0259 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
025a 4802       |H   |		Short_Literal	0x2
025b e224       | $  |		Load	0x1,0x24
025c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
025d e224       | $  |		Load	0x1,0x24
025e e403       |    |		Load	0x2,0x3
025f 4804       |H   |		Short_Literal	0x4
0260 4802       |H   |		Short_Literal	0x2
0261 0099       |    |		Action	Reference_Dynamic
0262 e004       |    |		Load	0x0,0x4
0263 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0264 00d9       |    |		Load_Top	At_Offset_1
0265 01d4       |    |		Execute	Vector,Structure_Write
0266 4802       |H   |		Short_Literal	0x2
0267 00d9       |    |		Load_Top	At_Offset_1
0268 01d7       |    |		Execute	Vector,Field_Read
0269 0f45       | E  |		Execute_Immediate	Equal,0x45
026a 4803       |H   |		Short_Literal	0x3
026b 00da       |    |		Load_Top	At_Offset_2
026c 01d7       |    |		Execute	Vector,Field_Read
026d 0f4b       | K  |		Execute_Immediate	Equal,0x4b
026e 0279       | y  |		Execute	Discrete,And
026f 6802       |h   |		Jump_Zero	0x272
0270 4801       |H   |		Short_Literal	0x1
0271 a222       | "  |		Store_Unchecked	0x1,0x22
0272 4802       |H   |		Short_Literal	0x2
0273 00d9       |    |		Load_Top	At_Offset_1
0274 01d7       |    |		Execute	Vector,Field_Read
0275 0f4b       | K  |		Execute_Immediate	Equal,0x4b
0276 4803       |H   |		Short_Literal	0x3
0277 00da       |    |		Load_Top	At_Offset_2
0278 01d7       |    |		Execute	Vector,Field_Read
0279 0f45       | E  |		Execute_Immediate	Equal,0x45
027a 0279       | y  |		Execute	Discrete,And
027b 6802       |h   |		Jump_Zero	0x27e
027c 4802       |H   |		Short_Literal	0x2
027d a222       | "  |		Store_Unchecked	0x1,0x22
027e e222       | "  |		Load	0x1,0x22
027f 00ca       |    |		Action	Exit_Nullary_Function
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0289       |    |		.CONST	0x0289								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 4864       |Hd  |		Short_Literal	0x64
0284 e001       |    |		Load	0x0,0x1
0285 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0286 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0287 00d8       |    |		Load_Top	At_Offset_0
0288 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0289			BODY_0280:
0289 00d8       |    |		Load_Top	At_Offset_0
028a e5ff       |    |		Load	0x2,-0x1
028b 821a       |    |		Call	0x1,0x1a
028c 00d1       |    |		Pop_Control	Pop_Count_1
028d e00a       |    |		Load	0x0,0xa
028e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
028f 4802       |H   |		Short_Literal	0x2
0290 00da       |    |		Load_Top	At_Offset_2
0291 e001       |    |		Load	0x0,0x1
0292 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0293 e00b       |    |		Load	0x0,0xb
0294 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0295 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0296 0000 0000  |    |		.XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a4       |    |		.CONST	0x02a4								; Address of begin
0299 02b3       |    |		.CONST	0x02b3								; Address of exception handler
029a 0005       |    |		.CONST	0x0005								; Number of locals
029b			INIT_0298:
029b e004       |    |		Load	0x0,0x4
029c 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
029d 00c6       |    |		Action	Check_Subprogram_Elaborated
029e e005       |    |		Load	0x0,0x5
029f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02a0 e00c       |    |		Load	0x0,0xc
02a1 e00d       |    |		Load	0x0,0xd
02a2 4805       |H   |		Short_Literal	0x5
02a3 0007       |    |		Action	Break_Optional
02a4			BODY_0298:
02a4 e5fe       |    |		Load	0x2,-0x2
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 822a       | *  |		Call	0x1,0x2a
02a7 4800       |H   |		Short_Literal	0x0
02a8 a5f9       |    |		Store_Unchecked	0x2,-0x7
02a9 e224       | $  |		Load	0x1,0x24
02aa e402       |    |		Load	0x2,0x2
02ab 4803       |H   |		Short_Literal	0x3
02ac 4802       |H   |		Short_Literal	0x2
02ad 0099       |    |		Action	Reference_Dynamic
02ae e004       |    |		Load	0x0,0x4
02af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b0 e5fa       |    |		Load	0x2,-0x6
02b1 01d4       |    |		Execute	Vector,Structure_Write
02b2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02b3			TRAP_0298:
02b3 e004       |    |		Load	0x0,0x4
02b4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02b5 010f       |    |		Execute	Exception,Equal
02b6 680a       |h   |		Jump_Zero	0x2c1
02b7 480b       |H   |		Short_Literal	0xb
02b8 a5f9       |    |		Store_Unchecked	0x2,-0x7
02b9 e00a       |    |		Load	0x0,0xa
02ba 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02bb 4802       |H   |		Short_Literal	0x2
02bc 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
02be e00b       |    |		Load	0x0,0xb
02bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02c0 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02c1 480c       |H   |		Short_Literal	0xc
02c2 a5f9       |    |		Store_Unchecked	0x2,-0x7
02c3 e00a       |    |		Load	0x0,0xa
02c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02c5 4802       |H   |		Short_Literal	0x2
02c6 4800       |H   |		Short_Literal	0x0
02c7 4801       |H   |		Short_Literal	0x1
02c8 e00e       |    |		Load	0x0,0xe
02c9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02ca e00b       |    |		Load	0x0,0xb
02cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cc 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02cd 0000 0000  |    |		.XXX[0x3]
02cf 0000       |    |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d8       |    |		.CONST	0x02d8								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0003       |    |		.CONST	0x0003								; Number of locals
02d3			INIT_02d0:
02d3 e005       |    |		Load	0x0,0x5
02d4 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02d5 0337       | 7  |		Declare_Variable	Array
02d6 e005       |    |		Load	0x0,0x5
02d7 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02d8			BODY_02d0:
02d8 4800       |H   |		Short_Literal	0x0
02d9 a226       | &  |		Store_Unchecked	0x1,0x26
02da 480c       |H   |		Short_Literal	0xc
02db a5fe       |    |		Store_Unchecked	0x2,-0x2
02dc e5ff       |    |		Load	0x2,-0x1
02dd e00f       |    |		Load	0x0,0xf
02de 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02df 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02e0 e002       |    |		Load	0x0,0x2
02e1 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02e2 e00f       |    |		Load	0x0,0xf
02e3 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02e4 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02e5 607a       |`z  |		Indirect_Literal	Discrete,0x360,{0x00000000, 0x00007fff}
02e6 e00f       |    |		Load	0x0,0xf
02e7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02e8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02e9 6076       |`v  |		Indirect_Literal	Discrete,0x360,{0x00000000, 0x00007fff}
02ea e00f       |    |		Load	0x0,0xf
02eb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02ec 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02ed e002       |    |		Load	0x0,0x2
02ee 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02ef e00f       |    |		Load	0x0,0xf
02f0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02f1 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02f2 8218       |    |		Call	0x1,0x18
02f3 e223       | #  |		Load	0x1,0x23
02f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f5 6066       |`f  |		Indirect_Literal	Discrete,0x35c,{0x00000000, 0x00007fed}
02f6 027e       | ~  |		Execute	Discrete,Not_Equal
02f7 6803       |h   |		Jump_Zero	0x2fb
02f8 480d       |H   |		Short_Literal	0xd
02f9 a5fe       |    |		Store_Unchecked	0x2,-0x2
02fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02fb e223       | #  |		Load	0x1,0x23
02fc 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
02fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02fe 0e01       |    |		Execute_Immediate	Not_Equal,0x1
02ff 6803       |h   |		Jump_Zero	0x303
0300 480e       |H   |		Short_Literal	0xe
0301 a5fe       |    |		Store_Unchecked	0x2,-0x2
0302 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0303 e223       | #  |		Load	0x1,0x23
0304 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0305 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0306 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0307 00d8       |    |		Load_Top	At_Offset_0
0308 e002       |    |		Load	0x0,0x2
0309 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
030a 0260       | `  |		Execute	Discrete,In_Type
030b 7001       |p   |		Jump_Nonzero	0x30d
030c 0801       |    |		Execute_Immediate	Raise,0x1
030d e00f       |    |		Load	0x0,0xf
030e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
030f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0310 e00f       |    |		Load	0x0,0xf
0311 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0312 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0313 e223       | #  |		Load	0x1,0x23
0314 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0315 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0316 0271       | q  |		Execute	Discrete,Times
0317 00d8       |    |		Load_Top	At_Offset_0
0318 e002       |    |		Load	0x0,0x2
0319 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
031a 0260       | `  |		Execute	Discrete,In_Type
031b 7001       |p   |		Jump_Nonzero	0x31d
031c 0801       |    |		Execute_Immediate	Raise,0x1
031d e00f       |    |		Load	0x0,0xf
031e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
031f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0320 e00f       |    |		Load	0x0,0xf
0321 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0322 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0323 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0324 7006       |p   |		Jump_Nonzero	0x32b
0325 4800       |H   |		Short_Literal	0x0
0326 e00f       |    |		Load	0x0,0xf
0327 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0328 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0329 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
032a 782b       |x+  |		Jump	0x356
032b 00d8       |    |		Load_Top	At_Offset_0
032c 00da       |    |		Load_Top	At_Offset_2
032d 4802       |H   |		Short_Literal	0x2
032e e00f       |    |		Load	0x0,0xf
032f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0330 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0331 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0332 8213       |    |		Call	0x1,0x13
0333 00d1       |    |		Pop_Control	Pop_Count_1
0334 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0335 00d8       |    |		Load_Top	At_Offset_0
0336 6801       |h   |		Jump_Zero	0x338
0337 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0338 4800       |H   |		Short_Literal	0x0
0339 00da       |    |		Load_Top	At_Offset_2
033a 01d7       |    |		Execute	Vector,Field_Read
033b 0908       |    |		Execute_Immediate	Binary_Scale,0x8
033c 4801       |H   |		Short_Literal	0x1
033d 00db       |    |		Load_Top	At_Offset_3
033e 01d7       |    |		Execute	Vector,Field_Read
033f 0273       | s  |		Execute	Discrete,Plus
0340 e00f       |    |		Load	0x0,0xf
0341 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0342 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0343 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0344 4802       |H   |		Short_Literal	0x2
0345 00da       |    |		Load_Top	At_Offset_2
0346 01d7       |    |		Execute	Vector,Field_Read
0347 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0348 4803       |H   |		Short_Literal	0x3
0349 00db       |    |		Load_Top	At_Offset_3
034a 01d7       |    |		Execute	Vector,Field_Read
034b 0273       | s  |		Execute	Discrete,Plus
034c 00d8       |    |		Load_Top	At_Offset_0
034d e002       |    |		Load	0x0,0x2
034e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034f 0260       | `  |		Execute	Discrete,In_Type
0350 7001       |p   |		Jump_Nonzero	0x352
0351 0801       |    |		Execute_Immediate	Raise,0x1
0352 e00f       |    |		Load	0x0,0xf
0353 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0354 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0355 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0356 4800       |H   |		Short_Literal	0x0
0357 a5fe       |    |		Store_Unchecked	0x2,-0x2
0358 4801       |H   |		Short_Literal	0x1
0359 a226       | &  |		Store_Unchecked	0x1,0x26
035a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
035b 0000       |    |		.XXX[0x1]
035c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fed}
0360 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0375       | u  |		.CONST	0x0375								; Address of begin
0369 0385       |    |		.CONST	0x0385								; Address of exception handler
036a 0006       |    |		.CONST	0x0006								; Number of locals
036b			INIT_0368:
036b e004       |    |		Load	0x0,0x4
036c 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
036d 00c6       |    |		Action	Check_Subprogram_Elaborated
036e e005       |    |		Load	0x0,0x5
036f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0370 e010       |    |		Load	0x0,0x10
0371 e011       |    |		Load	0x0,0x11
0372 4805       |H   |		Short_Literal	0x5
0373 0007       |    |		Action	Break_Optional
0374 00e2       |    |		Load_Encached	Integer_Cache
0375			BODY_0368:
0375 4800       |H   |		Short_Literal	0x0
0376 a5fc       |    |		Store_Unchecked	0x2,-0x4
0377 e224       | $  |		Load	0x1,0x24
0378 e5ff       |    |		Load	0x2,-0x1
0379 8229       | )  |		Call	0x1,0x29
037a 00d1       |    |		Pop_Control	Pop_Count_1
037b e224       | $  |		Load	0x1,0x24
037c e402       |    |		Load	0x2,0x2
037d 4803       |H   |		Short_Literal	0x3
037e 4802       |H   |		Short_Literal	0x2
037f 0099       |    |		Action	Reference_Dynamic
0380 e004       |    |		Load	0x0,0x4
0381 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0382 e5fd       |    |		Load	0x2,-0x3
0383 01d4       |    |		Execute	Vector,Structure_Write
0384 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0385			TRAP_0368:
0385 e004       |    |		Load	0x0,0x4
0386 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0387 010f       |    |		Execute	Exception,Equal
0388 680a       |h   |		Jump_Zero	0x393
0389 480b       |H   |		Short_Literal	0xb
038a a5fc       |    |		Store_Unchecked	0x2,-0x4
038b e00a       |    |		Load	0x0,0xa
038c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
038d 4802       |H   |		Short_Literal	0x2
038e 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
0390 e00b       |    |		Load	0x0,0xb
0391 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0392 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0393 480c       |H   |		Short_Literal	0xc
0394 a5fc       |    |		Store_Unchecked	0x2,-0x4
0395 e00a       |    |		Load	0x0,0xa
0396 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0397 4802       |H   |		Short_Literal	0x2
0398 4800       |H   |		Short_Literal	0x0
0399 4801       |H   |		Short_Literal	0x1
039a e00e       |    |		Load	0x0,0xe
039b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
039c e00b       |    |		Load	0x0,0xb
039d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
039f 0000       |    |		.XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ad       |    |		.CONST	0x03ad								; Address of begin
03a1 03bd       |    |		.CONST	0x03bd								; Address of exception handler
03a2 0006       |    |		.CONST	0x0006								; Number of locals
03a3			INIT_03a0:
03a3 e004       |    |		Load	0x0,0x4
03a4 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
03a5 00c6       |    |		Action	Check_Subprogram_Elaborated
03a6 e002       |    |		Load	0x0,0x2
03a7 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
03a8 e012       |    |		Load	0x0,0x12
03a9 e013       |    |		Load	0x0,0x13
03aa 4805       |H   |		Short_Literal	0x5
03ab 0007       |    |		Action	Break_Optional
03ac 00e2       |    |		Load_Encached	Integer_Cache
03ad			BODY_03a0:
03ad 4800       |H   |		Short_Literal	0x0
03ae a5fc       |    |		Store_Unchecked	0x2,-0x4
03af e224       | $  |		Load	0x1,0x24
03b0 e5ff       |    |		Load	0x2,-0x1
03b1 8229       | )  |		Call	0x1,0x29
03b2 00d1       |    |		Pop_Control	Pop_Count_1
03b3 e224       | $  |		Load	0x1,0x24
03b4 e402       |    |		Load	0x2,0x2
03b5 4803       |H   |		Short_Literal	0x3
03b6 4802       |H   |		Short_Literal	0x2
03b7 0099       |    |		Action	Reference_Dynamic
03b8 e004       |    |		Load	0x0,0x4
03b9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ba e5fd       |    |		Load	0x2,-0x3
03bb 01d4       |    |		Execute	Vector,Structure_Write
03bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03bd			TRAP_03a0:
03bd e004       |    |		Load	0x0,0x4
03be 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03bf 010f       |    |		Execute	Exception,Equal
03c0 680a       |h   |		Jump_Zero	0x3cb
03c1 480b       |H   |		Short_Literal	0xb
03c2 a5fc       |    |		Store_Unchecked	0x2,-0x4
03c3 e00a       |    |		Load	0x0,0xa
03c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03c5 4802       |H   |		Short_Literal	0x2
03c6 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
03c8 e00b       |    |		Load	0x0,0xb
03c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03cb 480c       |H   |		Short_Literal	0xc
03cc a5fc       |    |		Store_Unchecked	0x2,-0x4
03cd e00a       |    |		Load	0x0,0xa
03ce 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03cf 4802       |H   |		Short_Literal	0x2
03d0 4800       |H   |		Short_Literal	0x0
03d1 4801       |H   |		Short_Literal	0x1
03d2 e00e       |    |		Load	0x0,0xe
03d3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03d4 e00b       |    |		Load	0x0,0xb
03d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d7 0000       |    |		.XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e4       |    |		.CONST	0x03e4								; Address of begin
03d9 03f3       |    |		.CONST	0x03f3								; Address of exception handler
03da 0005       |    |		.CONST	0x0005								; Number of locals
03db			INIT_03d8:
03db e004       |    |		Load	0x0,0x4
03dc 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
03dd 00c6       |    |		Action	Check_Subprogram_Elaborated
03de e005       |    |		Load	0x0,0x5
03df 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03e0 e014       |    |		Load	0x0,0x14
03e1 e015       |    |		Load	0x0,0x15
03e2 4805       |H   |		Short_Literal	0x5
03e3 0007       |    |		Action	Break_Optional
03e4			BODY_03d8:
03e4 e5fe       |    |		Load	0x2,-0x2
03e5 e5ff       |    |		Load	0x2,-0x1
03e6 822a       | *  |		Call	0x1,0x2a
03e7 4800       |H   |		Short_Literal	0x0
03e8 a5f9       |    |		Store_Unchecked	0x2,-0x7
03e9 4801       |H   |		Short_Literal	0x1
03ea e5fa       |    |		Load	0x2,-0x6
03eb e224       | $  |		Load	0x1,0x24
03ec e402       |    |		Load	0x2,0x2
03ed 4803       |H   |		Short_Literal	0x3
03ee 4802       |H   |		Short_Literal	0x2
03ef 0099       |    |		Action	Reference_Dynamic
03f0 e004       |    |		Load	0x0,0x4
03f1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03f2 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
03f3			TRAP_03d8:
03f3 e004       |    |		Load	0x0,0x4
03f4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f5 010f       |    |		Execute	Exception,Equal
03f6 680a       |h   |		Jump_Zero	0x401
03f7 480b       |H   |		Short_Literal	0xb
03f8 a5f9       |    |		Store_Unchecked	0x2,-0x7
03f9 e00a       |    |		Load	0x0,0xa
03fa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03fb 4802       |H   |		Short_Literal	0x2
03fc 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
03fe e00b       |    |		Load	0x0,0xb
03ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0400 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0401 480c       |H   |		Short_Literal	0xc
0402 a5f9       |    |		Store_Unchecked	0x2,-0x7
0403 e00a       |    |		Load	0x0,0xa
0404 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0405 4802       |H   |		Short_Literal	0x2
0406 4800       |H   |		Short_Literal	0x0
0407 4801       |H   |		Short_Literal	0x1
0408 e00e       |    |		Load	0x0,0xe
0409 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
040a e00b       |    |		Load	0x0,0xb
040b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
040c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
040d 0000 0000  |    |		.XXX[0x3]
040f 0000       |    |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041d       |    |		.CONST	0x041d								; Address of begin
0411 042d       | -  |		.CONST	0x042d								; Address of exception handler
0412 0006       |    |		.CONST	0x0006								; Number of locals
0413			INIT_0410:
0413 e004       |    |		Load	0x0,0x4
0414 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
0415 00c6       |    |		Action	Check_Subprogram_Elaborated
0416 e005       |    |		Load	0x0,0x5
0417 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0418 e016       |    |		Load	0x0,0x16
0419 e017       |    |		Load	0x0,0x17
041a 4805       |H   |		Short_Literal	0x5
041b 0007       |    |		Action	Break_Optional
041c 00e2       |    |		Load_Encached	Integer_Cache
041d			BODY_0410:
041d 4800       |H   |		Short_Literal	0x0
041e a5fc       |    |		Store_Unchecked	0x2,-0x4
041f e224       | $  |		Load	0x1,0x24
0420 e5ff       |    |		Load	0x2,-0x1
0421 8229       | )  |		Call	0x1,0x29
0422 00d1       |    |		Pop_Control	Pop_Count_1
0423 4801       |H   |		Short_Literal	0x1
0424 e5fd       |    |		Load	0x2,-0x3
0425 e224       | $  |		Load	0x1,0x24
0426 e402       |    |		Load	0x2,0x2
0427 4803       |H   |		Short_Literal	0x3
0428 4802       |H   |		Short_Literal	0x2
0429 0099       |    |		Action	Reference_Dynamic
042a e004       |    |		Load	0x0,0x4
042b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
042c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
042d			TRAP_0410:
042d e004       |    |		Load	0x0,0x4
042e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
042f 010f       |    |		Execute	Exception,Equal
0430 680a       |h   |		Jump_Zero	0x43b
0431 480b       |H   |		Short_Literal	0xb
0432 a5fc       |    |		Store_Unchecked	0x2,-0x4
0433 e00a       |    |		Load	0x0,0xa
0434 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0435 4802       |H   |		Short_Literal	0x2
0436 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
0438 e00b       |    |		Load	0x0,0xb
0439 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
043b 480c       |H   |		Short_Literal	0xc
043c a5fc       |    |		Store_Unchecked	0x2,-0x4
043d e00a       |    |		Load	0x0,0xa
043e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
043f 4802       |H   |		Short_Literal	0x2
0440 4800       |H   |		Short_Literal	0x0
0441 4801       |H   |		Short_Literal	0x1
0442 e00e       |    |		Load	0x0,0xe
0443 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0444 e00b       |    |		Load	0x0,0xb
0445 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0446 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0447 0000       |    |		.XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 045e       | ^  |		.CONST	0x045e								; Address of begin
0449 046e       | n  |		.CONST	0x046e								; Address of exception handler
044a 000a       |    |		.CONST	0x000a								; Number of locals
044b			INIT_0448:
044b e004       |    |		Load	0x0,0x4
044c 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
044d 00c6       |    |		Action	Check_Subprogram_Elaborated
044e e002       |    |		Load	0x0,0x2
044f 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0450 e018       |    |		Load	0x0,0x18
0451 e019       |    |		Load	0x0,0x19
0452 4805       |H   |		Short_Literal	0x5
0453 0007       |    |		Action	Break_Optional
0454 e004       |    |		Load	0x0,0x4
0455 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0456 00c6       |    |		Action	Check_Subprogram_Elaborated
0457 e002       |    |		Load	0x0,0x2
0458 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0459 e01a       |    |		Load	0x0,0x1a
045a e01b       |    |		Load	0x0,0x1b
045b 4809       |H   |		Short_Literal	0x9
045c 0007       |    |		Action	Break_Optional
045d 00e2       |    |		Load_Encached	Integer_Cache
045e			BODY_0448:
045e 4800       |H   |		Short_Literal	0x0
045f a5fc       |    |		Store_Unchecked	0x2,-0x4
0460 e224       | $  |		Load	0x1,0x24
0461 e5ff       |    |		Load	0x2,-0x1
0462 8229       | )  |		Call	0x1,0x29
0463 00d1       |    |		Pop_Control	Pop_Count_1
0464 4801       |H   |		Short_Literal	0x1
0465 e5fd       |    |		Load	0x2,-0x3
0466 e224       | $  |		Load	0x1,0x24
0467 e402       |    |		Load	0x2,0x2
0468 4803       |H   |		Short_Literal	0x3
0469 4802       |H   |		Short_Literal	0x2
046a 0099       |    |		Action	Reference_Dynamic
046b e004       |    |		Load	0x0,0x4
046c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
046d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
046e			TRAP_0448:
046e e004       |    |		Load	0x0,0x4
046f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0470 010f       |    |		Execute	Exception,Equal
0471 680a       |h   |		Jump_Zero	0x47c
0472 480b       |H   |		Short_Literal	0xb
0473 a5fc       |    |		Store_Unchecked	0x2,-0x4
0474 e00a       |    |		Load	0x0,0xa
0475 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0476 4802       |H   |		Short_Literal	0x2
0477 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
0479 e00b       |    |		Load	0x0,0xb
047a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
047b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
047c 480c       |H   |		Short_Literal	0xc
047d a5fc       |    |		Store_Unchecked	0x2,-0x4
047e e00a       |    |		Load	0x0,0xa
047f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0480 4802       |H   |		Short_Literal	0x2
0481 4800       |H   |		Short_Literal	0x0
0482 4801       |H   |		Short_Literal	0x1
0483 e00e       |    |		Load	0x0,0xe
0484 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0485 e00b       |    |		Load	0x0,0xb
0486 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0487 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 049d       |    |		.CONST	0x049d								; Address of begin
0489 04da       |    |		.CONST	0x04da								; Address of exception handler
048a 0009       |    |		.CONST	0x0009								; Number of locals
048b			INIT_0488:
048b e004       |    |		Load	0x0,0x4
048c 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
048d 00c6       |    |		Action	Check_Subprogram_Elaborated
048e e003       |    |		Load	0x0,0x3
048f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0490 e01c       |    |		Load	0x0,0x1c
0491 e01d       |    |		Load	0x0,0x1d
0492 4805       |H   |		Short_Literal	0x5
0493 0007       |    |		Action	Break_Optional
0494 e004       |    |		Load	0x0,0x4
0495 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0496 00c6       |    |		Action	Check_Subprogram_Elaborated
0497 e003       |    |		Load	0x0,0x3
0498 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0499 e01e       |    |		Load	0x0,0x1e
049a e01f       |    |		Load	0x0,0x1f
049b 4809       |H   |		Short_Literal	0x9
049c 0007       |    |		Action	Break_Optional
049d			BODY_0488:
049d 4800       |H   |		Short_Literal	0x0
049e e224       | $  |		Load	0x1,0x24
049f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04a0 4800       |H   |		Short_Literal	0x0
04a1 e224       | $  |		Load	0x1,0x24
04a2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04a3 4804       |H   |		Short_Literal	0x4
04a4 e224       | $  |		Load	0x1,0x24
04a5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04a6 e224       | $  |		Load	0x1,0x24
04a7 e402       |    |		Load	0x2,0x2
04a8 4803       |H   |		Short_Literal	0x3
04a9 4802       |H   |		Short_Literal	0x2
04aa 0099       |    |		Action	Reference_Dynamic
04ab e004       |    |		Load	0x0,0x4
04ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04ad e223       | #  |		Load	0x1,0x23
04ae 017d       | }  |		Execute	Record,Structure_Write
04af e223       | #  |		Load	0x1,0x23
04b0 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
04b1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04b2 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
04b3 00d8       |    |		Load_Top	At_Offset_0
04b4 e002       |    |		Load	0x0,0x2
04b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b6 0260       | `  |		Execute	Discrete,In_Type
04b7 7001       |p   |		Jump_Nonzero	0x4b9
04b8 0801       |    |		Execute_Immediate	Raise,0x1
04b9 e00f       |    |		Load	0x0,0xf
04ba 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04bb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04bc e00f       |    |		Load	0x0,0xf
04bd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04be 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04bf e223       | #  |		Load	0x1,0x23
04c0 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
04c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04c2 0271       | q  |		Execute	Discrete,Times
04c3 00d8       |    |		Load_Top	At_Offset_0
04c4 e002       |    |		Load	0x0,0x2
04c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04c6 0260       | `  |		Execute	Discrete,In_Type
04c7 7001       |p   |		Jump_Nonzero	0x4c9
04c8 0801       |    |		Execute_Immediate	Raise,0x1
04c9 e00f       |    |		Load	0x0,0xf
04ca 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04cb 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
04cc 4808       |H   |		Short_Literal	0x8
04cd e224       | $  |		Load	0x1,0x24
04ce 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04cf e224       | $  |		Load	0x1,0x24
04d0 e406       |    |		Load	0x2,0x6
04d1 4807       |H   |		Short_Literal	0x7
04d2 4802       |H   |		Short_Literal	0x2
04d3 0099       |    |		Action	Reference_Dynamic
04d4 e004       |    |		Load	0x0,0x4
04d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04d6 e00f       |    |		Load	0x0,0xf
04d7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04d8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
04d9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04da			TRAP_0488:
04da e004       |    |		Load	0x0,0x4
04db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04dc 010f       |    |		Execute	Exception,Equal
04dd 680a       |h   |		Jump_Zero	0x4e8
04de 480b       |H   |		Short_Literal	0xb
04df a227       | '  |		Store_Unchecked	0x1,0x27
04e0 e00a       |    |		Load	0x0,0xa
04e1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04e2 4802       |H   |		Short_Literal	0x2
04e3 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
04e5 e00b       |    |		Load	0x0,0xb
04e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04e8 480c       |H   |		Short_Literal	0xc
04e9 a227       | '  |		Store_Unchecked	0x1,0x27
04ea e00a       |    |		Load	0x0,0xa
04eb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04ec 4802       |H   |		Short_Literal	0x2
04ed 4800       |H   |		Short_Literal	0x0
04ee 4801       |H   |		Short_Literal	0x1
04ef e00e       |    |		Load	0x0,0xe
04f0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04f1 e00b       |    |		Load	0x0,0xb
04f2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f4 0000 0000  |    |		.BLANK	0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0504       |    |		.CONST	0x0504								; Address of begin
04f9 0517       |    |		.CONST	0x0517								; Address of exception handler
04fa 0005       |    |		.CONST	0x0005								; Number of locals
04fb			INIT_04f8:
04fb e004       |    |		Load	0x0,0x4
04fc 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
04fd 00c6       |    |		Action	Check_Subprogram_Elaborated
04fe e003       |    |		Load	0x0,0x3
04ff 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0500 e020       |    |		Load	0x0,0x20
0501 e021       | !  |		Load	0x0,0x21
0502 4805       |H   |		Short_Literal	0x5
0503 0007       |    |		Action	Break_Optional
0504			BODY_04f8:
0504 4800       |H   |		Short_Literal	0x0
0505 e224       | $  |		Load	0x1,0x24
0506 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0507 4800       |H   |		Short_Literal	0x0
0508 e224       | $  |		Load	0x1,0x24
0509 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
050a 4808       |H   |		Short_Literal	0x8
050b e224       | $  |		Load	0x1,0x24
050c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
050d 4801       |H   |		Short_Literal	0x1
050e e5ff       |    |		Load	0x2,-0x1
050f e224       | $  |		Load	0x1,0x24
0510 e402       |    |		Load	0x2,0x2
0511 4803       |H   |		Short_Literal	0x3
0512 4802       |H   |		Short_Literal	0x2
0513 0099       |    |		Action	Reference_Dynamic
0514 e004       |    |		Load	0x0,0x4
0515 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0516 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0517			TRAP_04f8:
0517 e004       |    |		Load	0x0,0x4
0518 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0519 010f       |    |		Execute	Exception,Equal
051a 680a       |h   |		Jump_Zero	0x525
051b 480b       |H   |		Short_Literal	0xb
051c a227       | '  |		Store_Unchecked	0x1,0x27
051d e00a       |    |		Load	0x0,0xa
051e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
051f 4802       |H   |		Short_Literal	0x2
0520 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
0522 e00b       |    |		Load	0x0,0xb
0523 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0524 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0525 480c       |H   |		Short_Literal	0xc
0526 a227       | '  |		Store_Unchecked	0x1,0x27
0527 e00a       |    |		Load	0x0,0xa
0528 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0529 4802       |H   |		Short_Literal	0x2
052a 4800       |H   |		Short_Literal	0x0
052b 4801       |H   |		Short_Literal	0x1
052c e00e       |    |		Load	0x0,0xe
052d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
052e e00b       |    |		Load	0x0,0xb
052f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0530 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0531 0000 0000  |    |		.BLANK	0000[0x7]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b       | ;  |		.CONST	0x053b								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0001       |    |		.CONST	0x0001								; Number of locals
053b			BODY_0538:
053b			INIT_0538:
053b 00da       |    |		Load_Top	At_Offset_2
053c 460f       |F   |		Jump_Case	0x10
053d 7816       |x   |		Jump	0x554								; case 0x0
053e 781c       |x   |		Jump	0x55b								; case 0x1
053f 7822       |x"  |		Jump	0x562								; case 0x2
0540 7828       |x(  |		Jump	0x569								; case 0x3
0541 782e       |x.  |		Jump	0x570								; case 0x4
0542 7834       |x4  |		Jump	0x577								; case 0x5
0543 783a       |x:  |		Jump	0x57e								; case 0x6
0544 7840       |x@  |		Jump	0x585								; case 0x7
0545 7846       |xF  |		Jump	0x58c								; case 0x8
0546 784c       |xL  |		Jump	0x593								; case 0x9
0547 7852       |xR  |		Jump	0x59a								; case 0xa
0548 7858       |xX  |		Jump	0x5a1								; case 0xb
0549 785e       |x^  |		Jump	0x5a8								; case 0xc
054a 7864       |xd  |		Jump	0x5af								; case 0xd
054b 786a       |xj  |		Jump	0x5b6								; case 0xe
054c 7800       |x   |		Jump	0x54d								; case 0xf
054d 00db       |    |		Load_Top	At_Offset_3
054e 0092 095a  |   Z|		Action	Push_String_Extended,0x95a					; "No disk"
0550 e001       |    |		Load	0x0,0x1
0551 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0552 00d1       |    |		Pop_Control	Pop_Count_1
0553 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0554 00db       |    |		Load_Top	At_Offset_3
0555 0092 095b  |   [|		Action	Push_String_Extended,0x95b					; "File operation successful"
0557 e001       |    |		Load	0x0,0x1
0558 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0559 00d1       |    |		Pop_Control	Pop_Count_1
055a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
055b 00db       |    |		Load_Top	At_Offset_3
055c 0092 095c  |   \|		Action	Push_String_Extended,0x95c					; "Bad filename"
055e e001       |    |		Load	0x0,0x1
055f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0560 00d1       |    |		Pop_Control	Pop_Count_1
0561 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0562 00db       |    |		Load_Top	At_Offset_3
0563 0092 095d  |   ]|		Action	Push_String_Extended,0x95d					; "File does not exist"
0565 e001       |    |		Load	0x0,0x1
0566 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0567 00d1       |    |		Pop_Control	Pop_Count_1
0568 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0569 00db       |    |		Load_Top	At_Offset_3
056a 0092 095e  |   ^|		Action	Push_String_Extended,0x95e					; "File is not open"
056c e001       |    |		Load	0x0,0x1
056d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
056e 00d1       |    |		Pop_Control	Pop_Count_1
056f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0570 00db       |    |		Load_Top	At_Offset_3
0571 0092 095f  |   _|		Action	Push_String_Extended,0x95f					; "Disk is full"
0573 e001       |    |		Load	0x0,0x1
0574 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0575 00d1       |    |		Pop_Control	Pop_Count_1
0576 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0577 00db       |    |		Load_Top	At_Offset_3
0578 0092 0960  |   `|		Action	Push_String_Extended,0x960					; "Directory is full"
057a e001       |    |		Load	0x0,0x1
057b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
057c 00d1       |    |		Pop_Control	Pop_Count_1
057d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
057e 00db       |    |		Load_Top	At_Offset_3
057f 0092 0961  |   a|		Action	Push_String_Extended,0x961					; "File already exists"
0581 e001       |    |		Load	0x0,0x1
0582 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0583 00d1       |    |		Pop_Control	Pop_Count_1
0584 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0585 00db       |    |		Load_Top	At_Offset_3
0586 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "Can't rename file"
0588 e001       |    |		Load	0x0,0x1
0589 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
058a 00d1       |    |		Pop_Control	Pop_Count_1
058b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
058c 00db       |    |		Load_Top	At_Offset_3
058d 0092 0963  |   c|		Action	Push_String_Extended,0x963					; "Can't delete file"
058f e001       |    |		Load	0x0,0x1
0590 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0591 00d1       |    |		Pop_Control	Pop_Count_1
0592 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0593 00db       |    |		Load_Top	At_Offset_3
0594 0092 0964  |   d|		Action	Push_String_Extended,0x964					; "Page error"
0596 e001       |    |		Load	0x0,0x1
0597 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0598 00d1       |    |		Pop_Control	Pop_Count_1
0599 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
059a 00db       |    |		Load_Top	At_Offset_3
059b 0092 0965  |   e|		Action	Push_String_Extended,0x965					; "Slice error"
059d e001       |    |		Load	0x0,0x1
059e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
059f 00d1       |    |		Pop_Control	Pop_Count_1
05a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05a1 00db       |    |		Load_Top	At_Offset_3
05a2 0092 0966  |   f|		Action	Push_String_Extended,0x966					; "Bad address"
05a4 e001       |    |		Load	0x0,0x1
05a5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05a6 00d1       |    |		Pop_Control	Pop_Count_1
05a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05a8 00db       |    |		Load_Top	At_Offset_3
05a9 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "Disk error"
05ab e001       |    |		Load	0x0,0x1
05ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ad 00d1       |    |		Pop_Control	Pop_Count_1
05ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05af 00db       |    |		Load_Top	At_Offset_3
05b0 0092 0968  |   h|		Action	Push_String_Extended,0x968					; "No labels on disk"
05b2 e001       |    |		Load	0x0,0x1
05b3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05b4 00d1       |    |		Pop_Control	Pop_Count_1
05b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b6 00db       |    |		Load_Top	At_Offset_3
05b7 0092 0969  |   i|		Action	Push_String_Extended,0x969					; "No dos on disk"
05b9 e001       |    |		Load	0x0,0x1
05ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05bb 00d1       |    |		Pop_Control	Pop_Count_1
05bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05bd 096a e001  | j  |		.XXX[0x5]
05bf 1810 00d1  |    |
05c1 4502       |E   |
05c2 0000 0000  |    |		.BLANK	0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d3       |    |		.CONST	0x05d3								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0003       |    |		.CONST	0x0003								; Number of locals
05cb			INIT_05c8:
05cb 4850       |HP  |		Short_Literal	0x50
05cc e001       |    |		Load	0x0,0x1
05cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05ce 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05cf 00d8       |    |		Load_Top	At_Offset_0
05d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d1 029f 0903  |    |		Declare_Subprogram	INIT_0900,For_Call
05d3			BODY_05c8:
05d3 e5ff       |    |		Load	0x2,-0x1
05d4 4602       |F   |		Jump_Case	0x3
05d5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
05d6 7803       |x   |		Jump	0x5da								; case 0x1
05d7 7800       |x   |		Jump	0x5d8								; case 0x2
05d8 8403       |    |		Call	0x2,0x3
05d9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05da 00d9       |    |		Load_Top	At_Offset_1
05db e5fd       |    |		Load	0x2,-0x3
05dc 821a       |    |		Call	0x1,0x1a
05dd 00d1       |    |		Pop_Control	Pop_Count_1
05de 00d9       |    |		Load_Top	At_Offset_1
05df e5fe       |    |		Load	0x2,-0x2
05e0 e001       |    |		Load	0x0,0x1
05e1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05e2 00d1       |    |		Pop_Control	Pop_Count_1
05e3 00d9       |    |		Load_Top	At_Offset_1
05e4 e001       |    |		Load	0x0,0x1
05e5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05e6 e022       | "  |		Load	0x0,0x22
05e7 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05e9 0000 0000  |    |		.BLANK	0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 061b       |    |		.CONST	0x061b								; Address of begin
05f1 0703       |    |		.CONST	0x0703								; Address of exception handler
05f2 0012       |    |		.CONST	0x0012								; Number of locals
05f3			INIT_05f0:
05f3 481e       |H   |		Short_Literal	0x1e
05f4 e001       |    |		Load	0x0,0x1
05f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05f6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05f7 00d8       |    |		Load_Top	At_Offset_0
05f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f9 e002       |    |		Load	0x0,0x2
05fa 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
05fb 0322       | "  |		Declare_Variable	Record
05fc 00e2       |    |		Load_Encached	Integer_Cache
05fd 03e9       |    |		Declare_Variable	Discrete,Duplicate
05fe 03e9       |    |		Declare_Variable	Discrete,Duplicate
05ff 03e9       |    |		Declare_Variable	Discrete,Duplicate
0600 03e9       |    |		Declare_Variable	Discrete,Duplicate
0601 03e9       |    |		Declare_Variable	Discrete,Duplicate
0602 00e1       |    |		Load_Encached	Boolean_Cache
0603 00e3       |    |		Load_Encached	Natural_Cache
0604 e007       |    |		Load	0x0,0x7
0605 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0606 4850       |HP  |		Short_Literal	0x50
0607 e001       |    |		Load	0x0,0x1
0608 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0609 1c08       |    |		Execute_Immediate	Run_Utility,0x8
060a 00d8       |    |		Load_Top	At_Offset_0
060b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
060c 4850       |HP  |		Short_Literal	0x50
060d e001       |    |		Load	0x0,0x1
060e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
060f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0610 00d8       |    |		Load_Top	At_Offset_0
0611 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0612 e004       |    |		Load	0x0,0x4
0613 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0614 00c6       |    |		Action	Check_Subprogram_Elaborated
0615 e002       |    |		Load	0x0,0x2
0616 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0617 e023       | #  |		Load	0x0,0x23
0618 e024       | $  |		Load	0x0,0x24
0619 4812       |H   |		Short_Literal	0x12
061a 0007       |    |		Action	Break_Optional
061b			BODY_05f0:
061b 8218       |    |		Call	0x1,0x18
061c 820f       |    |		Call	0x1,0xf
061d a222       | "  |		Store_Unchecked	0x1,0x22
061e 4800       |H   |		Short_Literal	0x0
061f a405       |    |		Store_Unchecked	0x2,0x5
0620 4800       |H   |		Short_Literal	0x0
0621 a409       |    |		Store_Unchecked	0x2,0x9
0622 e40e       |    |		Load	0x2,0xe
0623 e5ff       |    |		Load	0x2,-0x1
0624 e001       |    |		Load	0x0,0x1
0625 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0626 00d1       |    |		Pop_Control	Pop_Count_1
0627 00cf       |    |		Action	Mark_Auxiliary
0628 60f7       |`   |		Indirect_Literal	Discrete,0x720,{0x00000000, 0x000007ff}
0629 4800       |H   |		Short_Literal	0x0
062a 0007       |    |		Action	Break_Optional
062b 00d8       |    |		Load_Top	At_Offset_0
062c 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
062d e00f       |    |		Load	0x0,0xf
062e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
062f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0630 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0631 01d7       |    |		Execute	Vector,Field_Read
0632 00d9       |    |		Load_Top	At_Offset_1
0633 48ff       |H   |		Short_Literal	0xff
0634 0279       | y  |		Execute	Discrete,And
0635 0273       | s  |		Execute	Discrete,Plus
0636 c408       |    |		Store	0x2,0x8
0637 e224       | $  |		Load	0x1,0x24
0638 e408       |    |		Load	0x2,0x8
0639 8229       | )  |		Call	0x1,0x29
063a 00d1       |    |		Pop_Control	Pop_Count_1
063b e224       | $  |		Load	0x1,0x24
063c e40f       |    |		Load	0x2,0xf
063d 4810       |H   |		Short_Literal	0x10
063e 4802       |H   |		Short_Literal	0x2
063f 0099       |    |		Action	Reference_Dynamic
0640 e004       |    |		Load	0x0,0x4
0641 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0642 e225       | %  |		Load	0x1,0x25
0643 01d4       |    |		Execute	Vector,Structure_Write
0644 00cf       |    |		Action	Mark_Auxiliary
0645 480f       |H   |		Short_Literal	0xf
0646 4800       |H   |		Short_Literal	0x0
0647 0007       |    |		Action	Break_Optional
0648 00d8       |    |		Load_Top	At_Offset_0
0649 e225       | %  |		Load	0x1,0x25
064a 01d5       |    |		Execute	Vector,Field_Reference
064b e403       |    |		Load	0x2,0x3
064c 017d       | }  |		Execute	Record,Structure_Write
064d e403       |    |		Load	0x2,0x3
064e 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
064f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0650 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0651 6802       |h   |		Jump_Zero	0x654
0652 00d2       |    |		Pop_Control	Pop_Count_2
0653 788e       |x   |		Jump	0x6e2
0654 e222       | "  |		Load	0x1,0x22
0655 0f01       |    |		Execute_Immediate	Equal,0x1
0656 6827       |h'  |		Jump_Zero	0x67e
0657 00cf       |    |		Action	Mark_Auxiliary
0658 481e       |H   |		Short_Literal	0x1e
0659 4801       |H   |		Short_Literal	0x1
065a 0007       |    |		Action	Break_Optional
065b 00d8       |    |		Load_Top	At_Offset_0
065c 4802       |H   |		Short_Literal	0x2
065d 026f       | o  |		Execute	Discrete,Remainder
065e 7008       |p   |		Jump_Nonzero	0x667
065f e40c       |    |		Load	0x2,0xc
0660 00d9       |    |		Load_Top	At_Offset_1
0661 e418       |    |		Load	0x2,0x18
0662 e225       | %  |		Load	0x1,0x25
0663 01d5       |    |		Execute	Vector,Field_Reference
0664 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0665 01d6       |    |		Execute	Vector,Field_Write
0666 7814       |x   |		Jump	0x67b
0667 00d8       |    |		Load_Top	At_Offset_0
0668 e418       |    |		Load	0x2,0x18
0669 e225       | %  |		Load	0x1,0x25
066a 01d5       |    |		Execute	Vector,Field_Reference
066b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
066c 01d7       |    |		Execute	Vector,Field_Read
066d a40c       |    |		Store_Unchecked	0x2,0xc
066e 00d8       |    |		Load_Top	At_Offset_0
066f 0a01       |    |		Execute_Immediate	Plus,0x1
0670 e418       |    |		Load	0x2,0x18
0671 e225       | %  |		Load	0x1,0x25
0672 01d5       |    |		Execute	Vector,Field_Reference
0673 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0674 01d7       |    |		Execute	Vector,Field_Read
0675 00d9       |    |		Load_Top	At_Offset_1
0676 e418       |    |		Load	0x2,0x18
0677 e225       | %  |		Load	0x1,0x25
0678 01d5       |    |		Execute	Vector,Field_Reference
0679 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
067a 01d6       |    |		Execute	Vector,Field_Write
067b 00c8       |    |		Action	Pop_Auxiliary_Range
067c 3fde       |?   |		Loop_Increasing	0x65b
067d 00ce       |    |		Action	Pop_Auxiliary
067e 00d8       |    |		Load_Top	At_Offset_0
067f e225       | %  |		Load	0x1,0x25
0680 01d5       |    |		Execute	Vector,Field_Reference
0681 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0682 e025       | %  |		Load	0x0,0x25
0683 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0684 e221       | !  |		Load	0x1,0x21
0685 01d4       |    |		Execute	Vector,Structure_Write
0686 481e       |H   |		Short_Literal	0x1e
0687 a40b       |    |		Store_Unchecked	0x2,0xb
0688 00cf       |    |		Action	Mark_Auxiliary
0689 4801       |H   |		Short_Literal	0x1
068a 481e       |H   |		Short_Literal	0x1e
068b 0007       |    |		Action	Break_Optional
068c 00d8       |    |		Load_Top	At_Offset_0
068d e221       | !  |		Load	0x1,0x21
068e 01d7       |    |		Execute	Vector,Field_Read
068f 7007       |p   |		Jump_Nonzero	0x697
0690 4820       |H   |		Short_Literal	0x20
0691 00d9       |    |		Load_Top	At_Offset_1
0692 e221       | !  |		Load	0x1,0x21
0693 01d6       |    |		Execute	Vector,Field_Write
0694 00d8       |    |		Load_Top	At_Offset_0
0695 a40b       |    |		Store_Unchecked	0x2,0xb
0696 7802       |x   |		Jump	0x699
0697 00d2       |    |		Pop_Control	Pop_Count_2
0698 7802       |x   |		Jump	0x69b
0699 00c8       |    |		Action	Pop_Auxiliary_Range
069a 37f1       |7   |		Loop_Decreasing	0x68c
069b 00ce       |    |		Action	Pop_Auxiliary
069c e402       |    |		Load	0x2,0x2
069d e221       | !  |		Load	0x1,0x21
069e e001       |    |		Load	0x0,0x1
069f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06a0 00d1       |    |		Pop_Control	Pop_Count_1
06a1 e402       |    |		Load	0x2,0x2
06a2 4820       |H   |		Short_Literal	0x20
06a3 e40b       |    |		Load	0x2,0xb
06a4 0aff       |    |		Execute_Immediate	Plus,-0x1
06a5 00d8       |    |		Load_Top	At_Offset_0
06a6 00e3       |    |		Load_Encached	Natural_Cache
06a7 0260       | `  |		Execute	Discrete,In_Type
06a8 7001       |p   |		Jump_Nonzero	0x6aa
06a9 0801       |    |		Execute_Immediate	Raise,0x1
06aa e001       |    |		Load	0x0,0x1
06ab 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
06ac 00d1       |    |		Pop_Control	Pop_Count_1
06ad e40e       |    |		Load	0x2,0xe
06ae e402       |    |		Load	0x2,0x2
06af e026       | &  |		Load	0x0,0x26
06b0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06b1 682e       |h.  |		Jump_Zero	0x6e0
06b2 4820       |H   |		Short_Literal	0x20
06b3 4805       |H   |		Short_Literal	0x5
06b4 480a       |H   |		Short_Literal	0xa
06b5 e403       |    |		Load	0x2,0x3
06b6 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06b7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06b8 e006       |    |		Load	0x0,0x6
06b9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06ba e228       | (  |		Load	0x1,0x28
06bb 01d4       |    |		Execute	Vector,Structure_Write
06bc e409       |    |		Load	0x2,0x9
06bd e403       |    |		Load	0x2,0x3
06be 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06c0 0273       | s  |		Execute	Discrete,Plus
06c1 c409       |    |		Store	0x2,0x9
06c2 e405       |    |		Load	0x2,0x5
06c3 0a01       |    |		Execute_Immediate	Plus,0x1
06c4 c405       |    |		Store	0x2,0x5
06c5 e40d       |    |		Load	0x2,0xd
06c6 e403       |    |		Load	0x2,0x3
06c7 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06c8 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06c9 e027       | '  |		Load	0x0,0x27
06ca 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
06cb e001       |    |		Load	0x0,0x1
06cc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06cd 00d1       |    |		Pop_Control	Pop_Count_1
06ce 4809       |H   |		Short_Literal	0x9
06cf e221       | !  |		Load	0x1,0x21
06d0 0092 096b  |   k|		Action	Push_String_Extended,0x96b					; " "
06d2 01cc       |    |		Execute	Vector,Catenate
06d3 e228       | (  |		Load	0x1,0x28
06d4 01cc       |    |		Execute	Vector,Catenate
06d5 01cb       |    |		Execute	Vector,Append
06d6 e40d       |    |		Load	0x2,0xd
06d7 e001       |    |		Load	0x0,0x1
06d8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06d9 01cc       |    |		Execute	Vector,Catenate
06da e022       | "  |		Load	0x0,0x22
06db 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
06dc e5fe       |    |		Load	0x2,-0x2
06dd 6802       |h   |		Jump_Zero	0x6e0
06de e403       |    |		Load	0x2,0x3
06df 822b       | +  |		Call	0x1,0x2b
06e0 00c8       |    |		Action	Pop_Auxiliary_Range
06e1 3f66       |?f  |		Loop_Increasing	0x648
06e2 00ce       |    |		Action	Pop_Auxiliary
06e3 00c8       |    |		Action	Pop_Auxiliary_Range
06e4 3f46       |?F  |		Loop_Increasing	0x62b
06e5 00ce       |    |		Action	Pop_Auxiliary
06e6 e405       |    |		Load	0x2,0x5
06e7 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
06e8 6813       |h   |		Jump_Zero	0x6fc
06e9 0092 096c  |   l|		Action	Push_String_Extended,0x96c					; "Total of "
06eb e409       |    |		Load	0x2,0x9
06ec 00e0       |    |		Load_Encached	Standard_Cache
06ed 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06ee 01cc       |    |		Execute	Vector,Catenate
06ef 0092 096d  |   m|		Action	Push_String_Extended,0x96d					; " Pages in "
06f1 01cc       |    |		Execute	Vector,Catenate
06f2 e405       |    |		Load	0x2,0x5
06f3 00e0       |    |		Load_Encached	Standard_Cache
06f4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06f5 01cc       |    |		Execute	Vector,Catenate
06f6 0092 096e  |   n|		Action	Push_String_Extended,0x96e					; " Files."
06f8 01cc       |    |		Execute	Vector,Catenate
06f9 e022       | "  |		Load	0x0,0x22
06fa 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
06fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06fc e405       |    |		Load	0x2,0x5
06fd 7004       |p   |		Jump_Nonzero	0x702
06fe 0092 096f  |   o|		Action	Push_String_Extended,0x96f					; "No files found."
0700 e022       | "  |		Load	0x0,0x22
0701 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0702 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0703			TRAP_05f0:
0703 e004       |    |		Load	0x0,0x4
0704 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0705 010f       |    |		Execute	Exception,Equal
0706 680a       |h   |		Jump_Zero	0x711
0707 480b       |H   |		Short_Literal	0xb
0708 a227       | '  |		Store_Unchecked	0x1,0x27
0709 e00a       |    |		Load	0x0,0xa
070a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
070b 4802       |H   |		Short_Literal	0x2
070c 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
070e e00b       |    |		Load	0x0,0xb
070f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0710 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0711 480c       |H   |		Short_Literal	0xc
0712 a227       | '  |		Store_Unchecked	0x1,0x27
0713 e00a       |    |		Load	0x0,0xa
0714 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0715 4802       |H   |		Short_Literal	0x2
0716 4800       |H   |		Short_Literal	0x0
0717 4801       |H   |		Short_Literal	0x1
0718 e00e       |    |		Load	0x0,0xe
0719 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
071a e00b       |    |		Load	0x0,0xb
071b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
071c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
071d 0000 0000  |    |		.XXX[0x3]
071f 0000       |    |
0720 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007ff}
0724 0000 0000  |    |		.BLANK	0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b 8218       |    |		Call	0x1,0x18
072c 4800       |H   |		Short_Literal	0x0
072d e5fe       |    |		Load	0x2,-0x2
072e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
072f 4800       |H   |		Short_Literal	0x0
0730 e5fe       |    |		Load	0x2,-0x2
0731 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0732 00db       |    |		Load_Top	At_Offset_3
0733 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0734 00db       |    |		Load_Top	At_Offset_3
0735 e001       |    |		Load	0x0,0x1
0736 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0737 00d1       |    |		Pop_Control	Pop_Count_1
0738 820f       |    |		Call	0x1,0xf
0739 a222       | "  |		Store_Unchecked	0x1,0x22
073a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
073b 0000 0000  |    |		.BLANK	0000[0x5]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0762       | b  |		.CONST	0x0762								; Address of begin
0741 081c       |    |		.CONST	0x081c								; Address of exception handler
0742 000d       |    |		.CONST	0x000d								; Number of locals
0743			INIT_0740:
0743 00ea       |    |		Load_Encached	Null_String_Cache
0744 481e       |H   |		Short_Literal	0x1e
0745 e001       |    |		Load	0x0,0x1
0746 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0747 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0748 00d8       |    |		Load_Top	At_Offset_0
0749 1c00       |    |		Execute_Immediate	Run_Utility,0x0
074a 4801       |H   |		Short_Literal	0x1
074b 481e       |H   |		Short_Literal	0x1e
074c 00e9       |    |		Load_Encached	String_Cache
074d 035b       | [  |		Declare_Type	Array,Constrained
074e 0337       | 7  |		Declare_Variable	Array
074f e002       |    |		Load	0x0,0x2
0750 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0751 0322       | "  |		Declare_Variable	Record
0752 00e3       |    |		Load_Encached	Natural_Cache
0753 e004       |    |		Load	0x0,0x4
0754 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0755 0322       | "  |		Declare_Variable	Record
0756 00e2       |    |		Load_Encached	Integer_Cache
0757 e007       |    |		Load	0x0,0x7
0758 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0759 e004       |    |		Load	0x0,0x4
075a 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
075b 00c6       |    |		Action	Check_Subprogram_Elaborated
075c e002       |    |		Load	0x0,0x2
075d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
075e e028       | (  |		Load	0x0,0x28
075f e029       | )  |		Load	0x0,0x29
0760 480d       |H   |		Short_Literal	0xd
0761 0007       |    |		Action	Break_Optional
0762			BODY_0740:
0762 e5ff       |    |		Load	0x2,-0x1
0763 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0764 e026       | &  |		Load	0x0,0x26
0765 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0766 7011       |p   |		Jump_Nonzero	0x778
0767 e5ff       |    |		Load	0x2,-0x1
0768 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0769 700a       |p   |		Jump_Nonzero	0x774
076a e5fe       |    |		Load	0x2,-0x2
076b e5ff       |    |		Load	0x2,-0x1
076c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
076d e001       |    |		Load	0x0,0x1
076e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
076f 00d1       |    |		Pop_Control	Pop_Count_1
0770 4801       |H   |		Short_Literal	0x1
0771 e5ff       |    |		Load	0x2,-0x1
0772 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0773 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0774 4fff       |O   |		Short_Literal	-0x1
0775 e5ff       |    |		Load	0x2,-0x1
0776 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0777 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0778 00cf       |    |		Action	Mark_Auxiliary
0779 e5ff       |    |		Load	0x2,-0x1
077a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
077b 701b       |p   |		Jump_Nonzero	0x797
077c e5ff       |    |		Load	0x2,-0x1
077d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
077e 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
077f e00f       |    |		Load	0x0,0xf
0780 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0781 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0782 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0783 01d7       |    |		Execute	Vector,Field_Read
0784 e5ff       |    |		Load	0x2,-0x1
0785 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0786 48ff       |H   |		Short_Literal	0xff
0787 0279       | y  |		Execute	Discrete,And
0788 0273       | s  |		Execute	Discrete,Plus
0789 c408       |    |		Store	0x2,0x8
078a e407       |    |		Load	0x2,0x7
078b e408       |    |		Load	0x2,0x8
078c 8229       | )  |		Call	0x1,0x29
078d 00d1       |    |		Pop_Control	Pop_Count_1
078e e407       |    |		Load	0x2,0x7
078f e40a       |    |		Load	0x2,0xa
0790 480b       |H   |		Short_Literal	0xb
0791 4802       |H   |		Short_Literal	0x2
0792 0099       |    |		Action	Reference_Dynamic
0793 e004       |    |		Load	0x0,0x4
0794 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0795 e5ff       |    |		Load	0x2,-0x1
0796 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0797 e5ff       |    |		Load	0x2,-0x1
0798 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0799 e5ff       |    |		Load	0x2,-0x1
079a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
079b 01d5       |    |		Execute	Vector,Field_Reference
079c e405       |    |		Load	0x2,0x5
079d 017d       | }  |		Execute	Record,Structure_Write
079e e5ff       |    |		Load	0x2,-0x1
079f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07a0 0a01       |    |		Execute_Immediate	Plus,0x1
07a1 480f       |H   |		Short_Literal	0xf
07a2 026e       | n  |		Execute	Discrete,Modulo
07a3 e5ff       |    |		Load	0x2,-0x1
07a4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07a5 e405       |    |		Load	0x2,0x5
07a6 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
07a7 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
07a8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07a9 6816       |h   |		Jump_Zero	0x7c0
07aa 4800       |H   |		Short_Literal	0x0
07ab e5ff       |    |		Load	0x2,-0x1
07ac 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07ad e5ff       |    |		Load	0x2,-0x1
07ae 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07af 6088       |`   |		Indirect_Literal	Discrete,0x838,{0x00000000, 0x000007ff}
07b0 027c       | |  |		Execute	Discrete,Less
07b1 6806       |h   |		Jump_Zero	0x7b8
07b2 e5ff       |    |		Load	0x2,-0x1
07b3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07b4 0a01       |    |		Execute_Immediate	Plus,0x1
07b5 e5ff       |    |		Load	0x2,-0x1
07b6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07b7 7862       |xb  |		Jump	0x81a
07b8 4fff       |O   |		Short_Literal	-0x1
07b9 e5ff       |    |		Load	0x2,-0x1
07ba 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07bb e5fe       |    |		Load	0x2,-0x2
07bc e402       |    |		Load	0x2,0x2
07bd e001       |    |		Load	0x0,0x1
07be 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07c0 e222       | "  |		Load	0x1,0x22
07c1 0f01       |    |		Execute_Immediate	Equal,0x1
07c2 681f       |h   |		Jump_Zero	0x7e2
07c3 00cf       |    |		Action	Mark_Auxiliary
07c4 481e       |H   |		Short_Literal	0x1e
07c5 4801       |H   |		Short_Literal	0x1
07c6 0007       |    |		Action	Break_Optional
07c7 00d8       |    |		Load_Top	At_Offset_0
07c8 4802       |H   |		Short_Literal	0x2
07c9 026f       | o  |		Execute	Discrete,Remainder
07ca 7006       |p   |		Jump_Nonzero	0x7d1
07cb e409       |    |		Load	0x2,0x9
07cc 00d9       |    |		Load_Top	At_Offset_1
07cd e405       |    |		Load	0x2,0x5
07ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07cf 01d6       |    |		Execute	Vector,Field_Write
07d0 780e       |x   |		Jump	0x7df
07d1 00d8       |    |		Load_Top	At_Offset_0
07d2 e405       |    |		Load	0x2,0x5
07d3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07d4 01d7       |    |		Execute	Vector,Field_Read
07d5 a409       |    |		Store_Unchecked	0x2,0x9
07d6 00d8       |    |		Load_Top	At_Offset_0
07d7 0a01       |    |		Execute_Immediate	Plus,0x1
07d8 e405       |    |		Load	0x2,0x5
07d9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07da 01d7       |    |		Execute	Vector,Field_Read
07db 00d9       |    |		Load_Top	At_Offset_1
07dc e405       |    |		Load	0x2,0x5
07dd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07de 01d6       |    |		Execute	Vector,Field_Write
07df 00c8       |    |		Action	Pop_Auxiliary_Range
07e0 3fe6       |?   |		Loop_Increasing	0x7c7
07e1 00ce       |    |		Action	Pop_Auxiliary
07e2 e405       |    |		Load	0x2,0x5
07e3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07e4 e025       | %  |		Load	0x0,0x25
07e5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
07e6 e404       |    |		Load	0x2,0x4
07e7 01d4       |    |		Execute	Vector,Structure_Write
07e8 481f       |H   |		Short_Literal	0x1f
07e9 a406       |    |		Store_Unchecked	0x2,0x6
07ea 00cf       |    |		Action	Mark_Auxiliary
07eb 4801       |H   |		Short_Literal	0x1
07ec 481e       |H   |		Short_Literal	0x1e
07ed 0007       |    |		Action	Break_Optional
07ee 00d8       |    |		Load_Top	At_Offset_0
07ef e404       |    |		Load	0x2,0x4
07f0 01d7       |    |		Execute	Vector,Field_Read
07f1 7007       |p   |		Jump_Nonzero	0x7f9
07f2 4820       |H   |		Short_Literal	0x20
07f3 00d9       |    |		Load_Top	At_Offset_1
07f4 e404       |    |		Load	0x2,0x4
07f5 01d6       |    |		Execute	Vector,Field_Write
07f6 00d8       |    |		Load_Top	At_Offset_0
07f7 a406       |    |		Store_Unchecked	0x2,0x6
07f8 7802       |x   |		Jump	0x7fb
07f9 00d2       |    |		Pop_Control	Pop_Count_2
07fa 7802       |x   |		Jump	0x7fd
07fb 00c8       |    |		Action	Pop_Auxiliary_Range
07fc 37f1       |7   |		Loop_Decreasing	0x7ee
07fd 00ce       |    |		Action	Pop_Auxiliary
07fe e403       |    |		Load	0x2,0x3
07ff e404       |    |		Load	0x2,0x4
0800 e001       |    |		Load	0x0,0x1
0801 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0802 00d1       |    |		Pop_Control	Pop_Count_1
0803 e403       |    |		Load	0x2,0x3
0804 4820       |H   |		Short_Literal	0x20
0805 e406       |    |		Load	0x2,0x6
0806 0aff       |    |		Execute_Immediate	Plus,-0x1
0807 00d8       |    |		Load_Top	At_Offset_0
0808 00e3       |    |		Load_Encached	Natural_Cache
0809 0260       | `  |		Execute	Discrete,In_Type
080a 7001       |p   |		Jump_Nonzero	0x80c
080b 0801       |    |		Execute_Immediate	Raise,0x1
080c e001       |    |		Load	0x0,0x1
080d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
080e 00d1       |    |		Pop_Control	Pop_Count_1
080f e5ff       |    |		Load	0x2,-0x1
0810 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0811 e403       |    |		Load	0x2,0x3
0812 e026       | &  |		Load	0x0,0x26
0813 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0814 6805       |h   |		Jump_Zero	0x81a
0815 e5fe       |    |		Load	0x2,-0x2
0816 e403       |    |		Load	0x2,0x3
0817 e001       |    |		Load	0x0,0x1
0818 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0819 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
081a 00c9       |    |		Action	Pop_Auxiliary_Loop
081b 7f5d       | ]  |		Jump	0x779
081c			TRAP_0740:
081c e004       |    |		Load	0x0,0x4
081d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
081e 010f       |    |		Execute	Exception,Equal
081f 680a       |h   |		Jump_Zero	0x82a
0820 480b       |H   |		Short_Literal	0xb
0821 a227       | '  |		Store_Unchecked	0x1,0x27
0822 e00a       |    |		Load	0x0,0xa
0823 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0824 4802       |H   |		Short_Literal	0x2
0825 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "address out of bounds"
0827 e00b       |    |		Load	0x0,0xb
0828 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0829 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
082a 480c       |H   |		Short_Literal	0xc
082b a227       | '  |		Store_Unchecked	0x1,0x27
082c e00a       |    |		Load	0x0,0xa
082d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
082e 4802       |H   |		Short_Literal	0x2
082f 4800       |H   |		Short_Literal	0x0
0830 4801       |H   |		Short_Literal	0x1
0831 e00e       |    |		Load	0x0,0xe
0832 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0833 e00b       |    |		Load	0x0,0xb
0834 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0835 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0836 0000 0000  |    |		.XXX[0x2]
0838 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007ff}
083c 0000 0000  |    |		.BLANK	0000[0x4]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843       | C  |		.CONST	0x0843								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0001       |    |		.CONST	0x0001								; Number of locals
0843			BODY_0840:
0843			INIT_0840:
0843 00da       |    |		Load_Top	At_Offset_2
0844 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0845 4fff       |O   |		Short_Literal	-0x1
0846 027f       |    |		Execute	Discrete,Equal
0847 6802       |h   |		Jump_Zero	0x84a
0848 4801       |H   |		Short_Literal	0x1
0849 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
084a 4800       |H   |		Short_Literal	0x0
084b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
084c 0000 0000  |    |		.BLANK	0000[0x4]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0854       | T  |		.CONST	0x0854								; Address of begin
0851 0004       |    |		.CONST	0x0004								; Address of exception handler
0852 0002       |    |		.CONST	0x0002								; Number of locals
0853			INIT_0850:
0853 00e2       |    |		Load_Encached	Integer_Cache
0854			BODY_0850:
0854 00db       |    |		Load_Top	At_Offset_3
0855 e00f       |    |		Load	0x0,0xf
0856 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0857 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0858 0270       | p  |		Execute	Discrete,Divide
0859 00d8       |    |		Load_Top	At_Offset_0
085a e02a       | *  |		Load	0x0,0x2a
085b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
085c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
085d 0260       | `  |		Execute	Discrete,In_Type
085e 7001       |p   |		Jump_Nonzero	0x860
085f 0801       |    |		Execute_Immediate	Raise,0x1
0860 e5fe       |    |		Load	0x2,-0x2
0861 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0862 00db       |    |		Load_Top	At_Offset_3
0863 e00f       |    |		Load	0x0,0xf
0864 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0865 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0866 026f       | o  |		Execute	Discrete,Remainder
0867 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0868 00d8       |    |		Load_Top	At_Offset_0
0869 e00f       |    |		Load	0x0,0xf
086a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
086b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
086c 0270       | p  |		Execute	Discrete,Divide
086d 00d8       |    |		Load_Top	At_Offset_0
086e e02a       | *  |		Load	0x0,0x2a
086f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0870 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0871 0260       | `  |		Execute	Discrete,In_Type
0872 7001       |p   |		Jump_Nonzero	0x874
0873 0801       |    |		Execute_Immediate	Raise,0x1
0874 e5fe       |    |		Load	0x2,-0x2
0875 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0876 00d8       |    |		Load_Top	At_Offset_0
0877 e00f       |    |		Load	0x0,0xf
0878 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0879 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
087a 026f       | o  |		Execute	Discrete,Remainder
087b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
087c 00d8       |    |		Load_Top	At_Offset_0
087d 0901       |    |		Execute_Immediate	Binary_Scale,0x1
087e 00d8       |    |		Load_Top	At_Offset_0
087f e02a       | *  |		Load	0x0,0x2a
0880 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0881 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0882 0260       | `  |		Execute	Discrete,In_Type
0883 7001       |p   |		Jump_Nonzero	0x885
0884 0801       |    |		Execute_Immediate	Raise,0x1
0885 e5fe       |    |		Load	0x2,-0x2
0886 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0887 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088f       |    |		.CONST	0x088f								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 0004       |    |		.CONST	0x0004								; Number of locals
088b			INIT_0888:
088b e002       |    |		Load	0x0,0x2
088c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
088d 00e2       |    |		Load_Encached	Integer_Cache
088e 00e2       |    |		Load_Encached	Integer_Cache
088f			BODY_0888:
088f 4800       |H   |		Short_Literal	0x0
0890 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0891 4800       |H   |		Short_Literal	0x0
0892 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0893 00cf       |    |		Action	Mark_Auxiliary
0894 780b       |x   |		Jump	0x8a0
0895 00da       |    |		Load_Top	At_Offset_2
0896 e5ff       |    |		Load	0x2,-0x1
0897 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0898 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0899 01d5       |    |		Execute	Vector,Field_Reference
089a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
089b a402       |    |		Store_Unchecked	0x2,0x2
089c 00da       |    |		Load_Top	At_Offset_2
089d 0a01       |    |		Execute_Immediate	Plus,0x1
089e 005b       | [  |		Store_Top	Discrete,At_Offset_3
089f 00c9       |    |		Action	Pop_Auxiliary_Loop
08a0 00da       |    |		Load_Top	At_Offset_2
08a1 e5ff       |    |		Load	0x2,-0x1
08a2 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08a3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
08a4 01d5       |    |		Execute	Vector,Field_Reference
08a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08a6 e5fe       |    |		Load	0x2,-0x2
08a7 027a       | z  |		Execute	Discrete,Less_Equal
08a8 77ec       |w   |		Jump_Nonzero	0x895
08a9 00ce       |    |		Action	Pop_Auxiliary
08aa 00d9       |    |		Load_Top	At_Offset_1
08ab e5ff       |    |		Load	0x2,-0x1
08ac 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08ad 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
08ae 01d5       |    |		Execute	Vector,Field_Reference
08af 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08b0 e5fe       |    |		Load	0x2,-0x2
08b1 e402       |    |		Load	0x2,0x2
08b2 0272       | r  |		Execute	Discrete,Minus
08b3 0273       | s  |		Execute	Discrete,Plus
08b4 00d8       |    |		Load_Top	At_Offset_0
08b5 00e2       |    |		Load_Encached	Integer_Cache
08b6 0260       | `  |		Execute	Discrete,In_Type
08b7 7001       |p   |		Jump_Nonzero	0x8b9
08b8 0801       |    |		Execute_Immediate	Raise,0x1
08b9 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
08ba e224       | $  |		Load	0x1,0x24
08bb 00d9       |    |		Load_Top	At_Offset_1
08bc 8229       | )  |		Call	0x1,0x29
08bd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08be 0000 0000  |    |		.XXX[0x2]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c6       |    |		.CONST	0x08c6								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0003       |    |		.CONST	0x0003								; Number of locals
08c3			INIT_08c0:
08c3 00e2       |    |		Load_Encached	Integer_Cache
08c4 029f 090b  |    |		Declare_Subprogram	INIT_0908,For_Call
08c6			BODY_08c0:
08c6 0092 0970  |   p|		Action	Push_String_Extended,0x970					; "          PERMANENT => "
08c8 e5ff       |    |		Load	0x2,-0x1
08c9 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08ca 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
08cb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
08cc 00e1       |    |		Load_Encached	Boolean_Cache
08cd 011c       |    |		Execute	Any,Convert_Unchecked
08ce 1c01       |    |		Execute_Immediate	Run_Utility,0x1
08cf 01cc       |    |		Execute	Vector,Catenate
08d0 0092 0971  |   q|		Action	Push_String_Extended,0x971					; ", EXECUTABLE => "
08d2 01cc       |    |		Execute	Vector,Catenate
08d3 e5ff       |    |		Load	0x2,-0x1
08d4 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08d5 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
08d6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
08d7 00e1       |    |		Load_Encached	Boolean_Cache
08d8 011c       |    |		Execute	Any,Convert_Unchecked
08d9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
08da 01cc       |    |		Execute	Vector,Catenate
08db 0092 0972  |   r|		Action	Push_String_Extended,0x972					; ", KERNEL => "
08dd 01cc       |    |		Execute	Vector,Catenate
08de e5ff       |    |		Load	0x2,-0x1
08df 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08e0 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
08e1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08e2 00e1       |    |		Load_Encached	Boolean_Cache
08e3 011c       |    |		Execute	Any,Convert_Unchecked
08e4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
08e5 01cc       |    |		Execute	Vector,Catenate
08e6 e022       | "  |		Load	0x0,0x22
08e7 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
08e8 4800       |H   |		Short_Literal	0x0
08e9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08ea 00cf       |    |		Action	Mark_Auxiliary
08eb 4805       |H   |		Short_Literal	0x5
08ec 4800       |H   |		Short_Literal	0x0
08ed 0007       |    |		Action	Break_Optional
08ee 00d8       |    |		Load_Top	At_Offset_0
08ef e5ff       |    |		Load	0x2,-0x1
08f0 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
08f1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
08f2 01d5       |    |		Execute	Vector,Field_Reference
08f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08f4 e402       |    |		Load	0x2,0x2
08f5 027b       | {  |		Execute	Discrete,Greater_Equal
08f6 6801       |h   |		Jump_Zero	0x8f8
08f7 8403       |    |		Call	0x2,0x3
08f8 00c8       |    |		Action	Pop_Auxiliary_Range
08f9 3ff4       |?   |		Loop_Increasing	0x8ee
08fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08fb 0000 0000  |    |		.BLANK	0000[0x5]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903       |    |		.CONST	0x0903								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0001       |    |		.CONST	0x0001								; Number of locals
0903			BODY_0900:
0903			INIT_0900:
0903 08e2       |    |		Execute_Immediate	Raise,0xe2
0904 0000 0000  |    |		.BLANK	0000[0x4]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b       |    |		.CONST	0x090b								; Address of begin
0909 0004       |    |		.CONST	0x0004								; Address of exception handler
090a 0001       |    |		.CONST	0x0001								; Number of locals
090b			BODY_0908:
090b			INIT_0908:
090b 0092 0973  |   s|		Action	Push_String_Extended,0x973					; "          File pages "
090d e402       |    |		Load	0x2,0x2
090e 0a01       |    |		Execute_Immediate	Plus,0x1
090f 00d8       |    |		Load_Top	At_Offset_0
0910 00e2       |    |		Load_Encached	Integer_Cache
0911 0260       | `  |		Execute	Discrete,In_Type
0912 7001       |p   |		Jump_Nonzero	0x914
0913 0801       |    |		Execute_Immediate	Raise,0x1
0914 00e0       |    |		Load_Encached	Standard_Cache
0915 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0916 01cc       |    |		Execute	Vector,Catenate
0917 0092 0974  |   t|		Action	Push_String_Extended,0x974					; " .. "
0919 01cc       |    |		Execute	Vector,Catenate
091a e406       |    |		Load	0x2,0x6
091b e5ff       |    |		Load	0x2,-0x1
091c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
091d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
091e 01d5       |    |		Execute	Vector,Field_Reference
091f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0920 0a01       |    |		Execute_Immediate	Plus,0x1
0921 00d8       |    |		Load_Top	At_Offset_0
0922 00e2       |    |		Load_Encached	Integer_Cache
0923 0260       | `  |		Execute	Discrete,In_Type
0924 7001       |p   |		Jump_Nonzero	0x926
0925 0801       |    |		Execute_Immediate	Raise,0x1
0926 00e0       |    |		Load_Encached	Standard_Cache
0927 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0928 01cc       |    |		Execute	Vector,Catenate
0929 0092 0975  |   u|		Action	Push_String_Extended,0x975					; " are at disk block "
092b 01cc       |    |		Execute	Vector,Catenate
092c e406       |    |		Load	0x2,0x6
092d e5ff       |    |		Load	0x2,-0x1
092e 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
092f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0930 01d5       |    |		Execute	Vector,Field_Reference
0931 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0932 00e0       |    |		Load_Encached	Standard_Cache
0933 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0934 01cc       |    |		Execute	Vector,Catenate
0935 e022       | "  |		Load	0x0,0x22
0936 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0937 e406       |    |		Load	0x2,0x6
0938 e5ff       |    |		Load	0x2,-0x1
0939 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
093a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
093b 01d5       |    |		Execute	Vector,Field_Reference
093c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
093d 0a01       |    |		Execute_Immediate	Plus,0x1
093e c402       |    |		Store	0x2,0x2
093f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943       | C  |		.CONST	0x0943								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0001       |    |		.CONST	0x0001								; Number of locals
0943			BODY_0940:
0943			INIT_0940:
0943 4608       |F   |		Jump_Case	0x9
0944 7808       |x   |		Jump	0x94d								; case 0x0
0945 780e       |x   |		Jump	0x954								; case 0x1
0946 7811       |x   |		Jump	0x958								; case 0x2
0947 7810       |x   |		Jump	0x958								; case 0x3
0948 780f       |x   |		Jump	0x958								; case 0x4
0949 780e       |x   |		Jump	0x958								; case 0x5
094a 780d       |x   |		Jump	0x958								; case 0x6
094b 780c       |x   |		Jump	0x958								; case 0x7
094c 780b       |x   |		Jump	0x958								; case 0x8
094d 00da       |    |		Load_Top	At_Offset_2
094e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
094f 0125       | %  |		Execute	Any,Set_Constraint
0950 00da       |    |		Load_Top	At_Offset_2
0951 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0952 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0953 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0954 00da       |    |		Load_Top	At_Offset_2
0955 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0956 0125       | %  |		Execute	Any,Set_Constraint
0957 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0958 0869       | i  |		Execute_Immediate	Raise,0x69
0959 ; --------------------------------------------------------------------------------------
0959 ; STRING TABLE
0959 ; --------------------------------------------------------------------------------------
0959 003c       | <  |		.STRTAB	0x003c->0x0977							; "address out of bounds"
095a 004f       | O  |		.STRTAB	0x004f->0x0981							; "No disk"
095b 0054       | T  |		.STRTAB	0x0054->0x0985							; "File operation successful"
095c 006b       | k  |		.STRTAB	0x006b->0x0991							; "Bad filename"
095d 0075       | u  |		.STRTAB	0x0075->0x0997							; "File does not exist"
095e 0086       |    |		.STRTAB	0x0086->0x09a1							; "File is not open"
095f 0094       |    |		.STRTAB	0x0094->0x09a9							; "Disk is full"
0960 009e       |    |		.STRTAB	0x009e->0x09af							; "Directory is full"
0961 00ad       |    |		.STRTAB	0x00ad->0x09b7							; "File already exists"
0962 00be       |    |		.STRTAB	0x00be->0x09c1							; "Can't rename file"
0963 00cd       |    |		.STRTAB	0x00cd->0x09c9							; "Can't delete file"
0964 00dc       |    |		.STRTAB	0x00dc->0x09d2							; "Page error"
0965 00e4       |    |		.STRTAB	0x00e4->0x09d7							; "Slice error"
0966 00ed       |    |		.STRTAB	0x00ed->0x09dc							; "Bad address"
0967 00f6       |    |		.STRTAB	0x00f6->0x09e2							; "Disk error"
0968 00fe       |    |		.STRTAB	0x00fe->0x09e7							; "No labels on disk"
0969 010d       |    |		.STRTAB	0x010d->0x09ef							; "No dos on disk"
096a 0119       |    |		.STRTAB	0x0119->0x09f6							; "Unknown error"
096b 0124       | $  |		.STRTAB	0x0124->0x09fd							; " "
096c 0123       | #  |		.STRTAB	0x0123->0x09fd							; "Total of "
096d 012a       | *  |		.STRTAB	0x012a->0x0a02							; " Pages in "
096e 0132       | 2  |		.STRTAB	0x0132->0x0a07							; " Files."
096f 0137       | 7  |		.STRTAB	0x0137->0x0a0a							; "No files found."
0970 0144       | D  |		.STRTAB	0x0144->0x0a12							; "          PERMANENT => "
0971 0159       | Y  |		.STRTAB	0x0159->0x0a1d							; ", EXECUTABLE => "
0972 0167       | g  |		.STRTAB	0x0167->0x0a25							; ", KERNEL => "
0973 0171       | q  |		.STRTAB	0x0171->0x0a2b							; "          File pages "
0974 0184       |    |		.STRTAB	0x0184->0x0a36							; " .. "
0975 0186       |    |		.STRTAB	0x0186->0x0a38							; " are at disk block "
0976 0197       |    |		.STREND 0x0197->0x0a41
0977 6164 6472  |addr|		.STRTAB_STRINGS
0a42 0000 0000  |    |		.BLANK	0000[0x6]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; Debug Table
0a48 ; --------------------------------------------------------------------------------------
0a48 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0x8b48,0x0000,0x0001,0x0000
0a4e 0d04 e0c0  |    |		.XXX[0x1b2]
0a50 c0c0 c0c0  |    |
0a52 c0c0 d0c0  |    |
0a54 c0c5 04d8  |    |
0a56 dcc1 04c9  |    |
0a58 18c0 e118  |    |
0a5a d429 4ccc  | )L |
0a5c c4c5 14c0  |    |
0a5e c0c1 1509  |    |
0a60 0cc0 d115  |    |
0a62 08e5 14c0  |    |
0a64 c0c1 1510  |    |
0a66 c0d8 d8c0  |    |
0a68 c104 c918  |    |
0a6a c914 c0c0  |    |
0a6c c0e1 0904  |    |
0a6e 294c ccc4  |)L  |
0a70 c514 c0c0  |    |
0a72 c115 090d  |    |
0a74 0cd1 1508  |    |
0a76 e514 c0c0  |    |
0a78 c115 18e5  |    |
0a7a 04d4 e0d1  |    |
0a7c 18d1 14d5  |    |
0a7e 14d1 14dc  |    |
0a80 d510 c429  |   )|
0a82 4ccc c4c5  |L   |
0a84 14c0 c0c1  |    |
0a86 1509 10e0  |    |
0a88 d114 d4d8  |    |
0a8a c0c0 c0c0  |    |
0a8c c8c0 d914  |    |
0a8e c0c0 c0e0  |    |
0a90 c10d 04e0  |    |
0a92 c0c0 c0c0  |    |
0a94 d510 294c  |  )L|
0a96 ccc4 c514  |    |
0a98 c0c0 c115  |    |
0a9a 0914 d0c0  |    |
0a9c c0c0 d0c0  |    |
0a9e c0c5 04d8  |    |
0aa0 dcc1 14c9  |    |
0aa2 18c9 14c0  |    |
0aa4 c0c1 0cc9  |    |
0aa6 18c0 e0c1  |    |
0aa8 0c29 4ccc  | )L |
0aaa c4c5 14c0  |    |
0aac c0c1 1509  |    |
0aae 18c0 d115  |    |
0ab0 08e5 14c0  |    |
0ab2 c0c1 1515  |    |
0ab4 10c0 d8c0  |    |
0ab6 c114 c918  |    |
0ab8 c914 c0c0  |    |
0aba c10d 08dc  |    |
0abc 294c ccc4  |)L  |
0abe c514 c0c0  |    |
0ac0 c115 0919  |    |
0ac2 0cc9 18c9  |    |
0ac4 14c0 c0c0  |    |
0ac6 e0d1 1508  |    |
0ac8 e514 c0c0  |    |
0aca c118 c4e0  |    |
0acc c8d4 c0d1  |    |
0ace 190c e429  |   )|
0ad0 4ccc c4c5  |L   |
0ad2 14c0 c0c1  |    |
0ad4 150c c0e0  |    |
0ad6 d114 d514  |    |
0ad8 d114 dcd4  |    |
0ada d114 d4d9  |    |
0adc 1919 190c  |    |
0ade c918 c914  |    |
0ae0 c0c0 c0e1  |    |
0ae2 04dc 294c  |  )L|
0ae4 ccc4 c514  |    |
0ae6 c0c0 c115  |    |
0ae8 0cc4 d0d1  |    |
0aea 1508 e514  |    |
0aec c0c0 c111  |    |
0aee 10c8 c0d4  |    |
0af0 e0d1 18c9  |    |
0af2 10d0 c119  |    |
0af4 1919 0cc5  |    |
0af6 0829 4ccc  | )L |
0af8 c4c5 14c0  |    |
0afa c0c1 150c  |    |
0afc c8c0 d8d8  |    |
0afe c0d8 dcc1  |    |
0b00 1918 d8c0  |    |
0b02 c0c0 c0c1  |    |
0b04 110c c8c0  |    |
0b06 d914 c0c0  |    |
0b08 c10c d4c4  |    |
0b0a 294c ccc4  |)L  |
0b0c c514 c0c0  |    |
0b0e c115 0cc9  |    |
0b10 0ccc c109  |    |
0b12 0cc0 c0c0  |    |
0b14 c4c8 c0d9  |    |
0b16 14c0 c0c1  |    |
0b18 0cc8 c4d9  |    |
0b1a 1519 1919  |    |
0b1c 0d14 d429  |   )|
0b1e 4ccc c4c5  |L   |
0b20 14c0 c0c1  |    |
0b22 150c cce0  |    |
0b24 c0c0 c0c8  |    |
0b26 c8c0 d914  |    |
0b28 c0c0 c10c  |    |
0b2a c8c4 d915  |    |
0b2c 1919 190c  |    |
0b2e c0c0 c0d9  |    |
0b30 0914 294c  |  )L|
0b32 ccc4 c514  |    |
0b34 c0c0 c115  |    |
0b36 0cd0 d0c8  |    |
0b38 c0d9 14c0  |    |
0b3a c0c1 0cc8  |    |
0b3c c4d9 14c0  |    |
0b3e c0c0 e0c0  |    |
0b40 c0c1 04c9  |    |
0b42 18c9 14d0  |    |
0b44 d829 4ccc  | )L |
0b46 c4c5 14c0  |    |
0b48 c0c1 150c  |    |
0b4a d4c0 c0c0  |    |
0b4c c10c d0e0  |    |
0b4e dce5 14c0  |    |
0b50 c0c4 c0cc  |    |
0b52 c0e0 d0e0  |    |
0b54 dce0 c0c0  |    |
0b56 c8c0 cce4  |    |
0b58 294c ccc4  |)L  |
0b5a c514 c0c0  |    |
0b5c c115 0cd5  |    |
0b5e 0cd0 e0dc  |    |
0b60 e0c0 c0c4  |    |
0b62 c0d1 1508  |    |
0b64 e514 c0c0  |    |
0b66 c119 150c  |    |
0b68 d8d1 1915  |    |
0b6a 18c1 1029  |   )|
0b6c 4ccc c4c5  |L   |
0b6e 14c0 c0c1  |    |
0b70 150c d8e0  |    |
0b72 c0c0 c4c0  |    |
0b74 c918 c914  |    |
0b76 c0c0 c10c  |    |
0b78 d0e0 dce5  |    |
0b7a 14c0 c0c4  |    |
0b7c c0cc c0e0  |    |
0b7e e4d0 294c  |  )L|
0b80 ccc4 c514  |    |
0b82 c0c0 c115  |    |
0b84 0cdc d0c9  |    |
0b86 18c9 14c0  |    |
0b88 c0c4 c0d1  |    |
0b8a 1508 e514  |    |
0b8c c0c0 c119  |    |
0b8e 1904 d0d1  |    |
0b90 1915 18dc  |    |
0b92 e429 4ccc  | )L |
0b94 c4c5 14c0  |    |
0b96 c0c1 150c  |    |
0b98 e0c0 c0c0  |    |
0b9a c10c c918  |    |
0b9c c914 c0c0  |    |
0b9e c10c d0e0  |    |
0ba0 dce5 14c0  |    |
0ba2 c0c4 c0cc  |    |
0ba4 c0e0 e0c0  |    |
0ba6 294c ccc4  |)L  |
0ba8 c514 c0c0  |    |
0baa c115 0ce1  |    |
0bac 0cc9 18c9  |    |
0bae 14c0 c0c4  |    |
0bb0 d0d0 c904  |    |
0bb2 dcd0 e0dc  |    |
0bb4 e0c0 c0c0  |    |
0bb6 c8d1 1508  |    |
0bb8 e4dc cc29  |   )|
0bba 4ccc c4c5  |L   |
0bbc 14c0 c0c1  |    |
0bbe 150c e4e1  |    |
0bc0 14c0 c0c4  |    |
0bc2 c0c0 d4c0  |    |
0bc4 d119 1518  |    |
0bc6 c0c0 c4d0  |    |
0bc8 c918 c914  |    |
0bca c0c0 c10c  |    |
0bcc e514 294c  |  )L|
0bce ccc4 c514  |    |
0bd0 c0c0 c115  |    |
0bd2 0d04 d0d0  |    |
0bd4 e0dc e514  |    |
0bd6 c0c0 c4c0  |    |
0bd8 ccc0 e0c8  |    |
0bda c0d9 14c0  |    |
0bdc c0c4 e0c8  |    |
0bde c0c8 e114  |    |
0be0 cc29 4ccc  | )L |
0be2 c4c5 14c0  |    |
0be4 c0c1 150d  |    |
0be6 08c0 c0c0  |    |
0be8 c0d8 e4c1  |    |
0bea 04e0 c0c0  |    |
0bec c0c8 c918  |    |
0bee c0c0 c918  |    |
0bf0 c8e0 c0c0  |    |
0bf2 c0c9 0504  |    |
0bf4 294c ccc4  |)L  |
0bf6 c514 c0c0  |    |
0bf8 c115 0d09  |    |
0bfa 0cd0 c904  |    |
0bfc dcd0 e0dc  |    |
0bfe e0c0 c0c0  |    |