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

⟦e037fc4f0⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0360       | `  |		.CONST	0x0360								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0057       | W  |		.CONST	0x0057								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 483f       |H?  |		Short_Literal	0x3f
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 4800       |H   |		Short_Literal	0x0
0010 4840       |H@  |		Short_Literal	0x40
0011 00e3       |    |		Load_Encached	Natural_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 4800       |H   |		Short_Literal	0x0
0014 480f       |H   |		Short_Literal	0xf
0015 00e3       |    |		Load_Encached	Natural_Cache
0016 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0017 4800       |H   |		Short_Literal	0x0
0018 481f       |H   |		Short_Literal	0x1f
0019 00e3       |    |		Load_Encached	Natural_Cache
001a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001b 00d8       |    |		Load_Top	At_Offset_0
001c 0266       | f  |		Execute	Discrete,Bounds
001d 00db       |    |		Load_Top	At_Offset_3
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4801       |H   |		Short_Literal	0x1
0020 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0021 4800       |H   |		Short_Literal	0x0
0022 481f       |H   |		Short_Literal	0x1f
0023 00da       |    |		Load_Top	At_Offset_2
0024 035c       | \  |		Declare_Type	Array,Constrained,Visible
0025 4800       |H   |		Short_Literal	0x0
0026 483f       |H?  |		Short_Literal	0x3f
0027 00da       |    |		Load_Top	At_Offset_2
0028 02a0       |    |		Declare_Subprogram	Null_Subprogram
0029 4801       |H   |		Short_Literal	0x1
002a 035e       | ^  |		Declare_Type	Array,Defined,Visible
002b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
002d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
002f 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0031 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0033 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0035 00bf       |    |		Action	Accept_Activation
0036 0093 0000  |    |		push_full_address	0x0
0038 6087       |`   |		Indirect_Literal	Discrete,0xc0,{0x80000000, 0x00010000}
0039 0273       | s  |		Execute	Discrete,Plus
003a 0007       |    |		Action	Break_Optional
003b 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
003d 029d 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call
003f 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
0041 029d 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call
0043 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call
0047 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call
0049 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
004b 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call
004d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 029d 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call
0053 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0056 00c7       |    |		Action	Elaborate_Subprogram
0057			BODY_0008:
0057 00bc       |    |		Action	Signal_Activated
0058 00bb       |    |		Action	Signal_Completion
0059 0000 0000  |    |		.BLANK	0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0069       | i  |		.CONST	0x0069								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0004       |    |		.CONST	0x0004								; Number of locals
0063			INIT_0060:
0063 e003       |    |		Load	0x0,0x3
0064 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0065 0322       | "  |		Declare_Variable	Record
0066 e20d       |    |		Load	0x1,0xd
0067 0007       |    |		Action	Break_Optional
0068 00e5       |    |		Load_Encached	Long_Integer_Cache
0069			BODY_0060:
0069 e003       |    |		Load	0x0,0x3
006a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006b 012c       | ,  |		Execute	Any,Size
006c e004       |    |		Load	0x0,0x4
006d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006e 00d9       |    |		Load_Top	At_Offset_1
006f 00d0       |    |		Action	Swap_Control
0070 0260       | `  |		Execute	Discrete,In_Type
0071 7001       |p   |		Jump_Nonzero	0x73
0072 0801       |    |		Execute_Immediate	Raise,0x1
0073 4820       |H   |		Short_Literal	0x20
0074 e5ff       |    |		Load	0x2,-0x1
0075 e004       |    |		Load	0x0,0x4
0076 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0077 00d8       |    |		Load_Top	At_Offset_0
0078 e005       |    |		Load	0x0,0x5
0079 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
007a 0260       | `  |		Execute	Discrete,In_Type
007b 7001       |p   |		Jump_Nonzero	0x7d
007c 0801       |    |		Execute_Immediate	Raise,0x1
007d 00db       |    |		Load_Top	At_Offset_3
007e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007f e003       |    |		Load	0x0,0x3
0080 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0081 012c       | ,  |		Execute	Any,Size
0082 e004       |    |		Load	0x0,0x4
0083 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0084 00d9       |    |		Load_Top	At_Offset_1
0085 00d0       |    |		Action	Swap_Control
0086 0260       | `  |		Execute	Discrete,In_Type
0087 7001       |p   |		Jump_Nonzero	0x89
0088 0801       |    |		Execute_Immediate	Raise,0x1
0089 4836       |H6  |		Short_Literal	0x36
008a e5ff       |    |		Load	0x2,-0x1
008b e004       |    |		Load	0x0,0x4
008c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
008d 00d8       |    |		Load_Top	At_Offset_0
008e e005       |    |		Load	0x0,0x5
008f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0090 0260       | `  |		Execute	Discrete,In_Type
0091 7001       |p   |		Jump_Nonzero	0x93
0092 0801       |    |		Execute_Immediate	Raise,0x1
0093 00db       |    |		Load_Top	At_Offset_3
0094 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0095 4813       |H   |		Short_Literal	0x13
0096 4820       |H   |		Short_Literal	0x20
0097 e5fe       |    |		Load	0x2,-0x2
0098 e004       |    |		Load	0x0,0x4
0099 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
009a 00d8       |    |		Load_Top	At_Offset_0
009b e003       |    |		Load	0x0,0x3
009c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
009d 0260       | `  |		Execute	Discrete,In_Type
009e 7001       |p   |		Jump_Nonzero	0xa0
009f 0801       |    |		Execute_Immediate	Raise,0x1
00a0 00db       |    |		Load_Top	At_Offset_3
00a1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a2 e5fd       |    |		Load	0x2,-0x3
00a3 8221       | !  |		Call	0x1,0x21
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a6 480d       |H   |		Short_Literal	0xd
00a7 4833       |H3  |		Short_Literal	0x33
00a8 e5fe       |    |		Load	0x2,-0x2
00a9 e004       |    |		Load	0x0,0x4
00aa 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00ab 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad 09f9       |    |		Execute_Immediate	Binary_Scale,-0x7
00ae 00d8       |    |		Load_Top	At_Offset_0
00af e20d       |    |		Load	0x1,0xd
00b0 0260       | `  |		Execute	Discrete,In_Type
00b1 7001       |p   |		Jump_Nonzero	0xb3
00b2 0801       |    |		Execute_Immediate	Raise,0x1
00b3 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00b4 e5fc       |    |		Load	0x2,-0x4
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 e20e       |    |		Load	0x1,0xe
00b7 0260       | `  |		Execute	Discrete,In_Type
00b8 7001       |p   |		Jump_Nonzero	0xba
00b9 0801       |    |		Execute_Immediate	Raise,0x1
00ba 00da       |    |		Load_Top	At_Offset_2
00bb e402       |    |		Load	0x2,0x2
00bc 821f       |    |		Call	0x1,0x1f
00bd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00be 0000 0000  |    |		.XXX[0x2]
00c0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf       |    |		.CONST	0x00cf								; Address of begin
00c9 011f       |    |		.CONST	0x011f								; Address of exception handler
00ca 0003       |    |		.CONST	0x0003								; Number of locals
00cb			INIT_00c8:
00cb e003       |    |		Load	0x0,0x3
00cc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00cd 0322       | "  |		Declare_Variable	Record
00ce 00e5       |    |		Load_Encached	Long_Integer_Cache
00cf			BODY_00c8:
00cf e003       |    |		Load	0x0,0x3
00d0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d1 012c       | ,  |		Execute	Any,Size
00d2 e004       |    |		Load	0x0,0x4
00d3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 00d0       |    |		Action	Swap_Control
00d6 0260       | `  |		Execute	Discrete,In_Type
00d7 7001       |p   |		Jump_Nonzero	0xd9
00d8 0801       |    |		Execute_Immediate	Raise,0x1
00d9 4820       |H   |		Short_Literal	0x20
00da e5ff       |    |		Load	0x2,-0x1
00db e004       |    |		Load	0x0,0x4
00dc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00dd 00d8       |    |		Load_Top	At_Offset_0
00de e005       |    |		Load	0x0,0x5
00df 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e0 0260       | `  |		Execute	Discrete,In_Type
00e1 7001       |p   |		Jump_Nonzero	0xe3
00e2 0801       |    |		Execute_Immediate	Raise,0x1
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e5 e003       |    |		Load	0x0,0x3
00e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e7 012c       | ,  |		Execute	Any,Size
00e8 e004       |    |		Load	0x0,0x4
00e9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb 00d0       |    |		Action	Swap_Control
00ec 0260       | `  |		Execute	Discrete,In_Type
00ed 7001       |p   |		Jump_Nonzero	0xef
00ee 0801       |    |		Execute_Immediate	Raise,0x1
00ef 4836       |H6  |		Short_Literal	0x36
00f0 e5ff       |    |		Load	0x2,-0x1
00f1 e004       |    |		Load	0x0,0x4
00f2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 e005       |    |		Load	0x0,0x5
00f5 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00f6 0260       | `  |		Execute	Discrete,In_Type
00f7 7001       |p   |		Jump_Nonzero	0xf9
00f8 0801       |    |		Execute_Immediate	Raise,0x1
00f9 00da       |    |		Load_Top	At_Offset_2
00fa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00fb 4813       |H   |		Short_Literal	0x13
00fc 4820       |H   |		Short_Literal	0x20
00fd e5fe       |    |		Load	0x2,-0x2
00fe e004       |    |		Load	0x0,0x4
00ff 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0100 00d8       |    |		Load_Top	At_Offset_0
0101 e003       |    |		Load	0x0,0x3
0102 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0103 0260       | `  |		Execute	Discrete,In_Type
0104 7001       |p   |		Jump_Nonzero	0x106
0105 0801       |    |		Execute_Immediate	Raise,0x1
0106 00da       |    |		Load_Top	At_Offset_2
0107 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0108 e5fd       |    |		Load	0x2,-0x3
0109 8221       | !  |		Call	0x1,0x21
010a 00da       |    |		Load_Top	At_Offset_2
010b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
010c 480d       |H   |		Short_Literal	0xd
010d 4833       |H3  |		Short_Literal	0x33
010e e5fe       |    |		Load	0x2,-0x2
010f e004       |    |		Load	0x0,0x4
0110 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0111 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0112 00d8       |    |		Load_Top	At_Offset_0
0113 09f9       |    |		Execute_Immediate	Binary_Scale,-0x7
0114 00d8       |    |		Load_Top	At_Offset_0
0115 e20d       |    |		Load	0x1,0xd
0116 0260       | `  |		Execute	Discrete,In_Type
0117 7001       |p   |		Jump_Nonzero	0x119
0118 0801       |    |		Execute_Immediate	Raise,0x1
0119 a5fb       |    |		Store_Unchecked	0x2,-0x5
011a 00d9       |    |		Load_Top	At_Offset_1
011b 8220       |    |		Call	0x1,0x20
011c e5fc       |    |		Load	0x2,-0x4
011d 01d4       |    |		Execute	Vector,Structure_Write
011e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
011f			TRAP_00c8:
011f e006       |    |		Load	0x0,0x6
0120 010f       |    |		Execute	Exception,Equal
0121 7003       |p   |		Jump_Nonzero	0x125
0122 e007       |    |		Load	0x0,0x7
0123 010f       |    |		Execute	Exception,Equal
0124 6802       |h   |		Jump_Zero	0x127
0125 00d8       |    |		Load_Top	At_Offset_0
0126 0101       |    |		Execute	Exception,Reraise
0127 0100       |    |		Execute	Exception,Raise
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 0092 030d  |    |		Action	Push_String_Extended,0x30d					; "    "
012d 4800       |H   |		Short_Literal	0x0
012e 4807       |H   |		Short_Literal	0x7
012f e5ff       |    |		Load	0x2,-0x1
0130 01cf       |    |		Execute	Vector,Slice_Read
0131 821d       |    |		Call	0x1,0x1d
0132 01cc       |    |		Execute	Vector,Catenate
0133 0092 030e  |    |		Action	Push_String_Extended,0x30e					; " "
0135 01cc       |    |		Execute	Vector,Catenate
0136 4808       |H   |		Short_Literal	0x8
0137 480f       |H   |		Short_Literal	0xf
0138 e5ff       |    |		Load	0x2,-0x1
0139 01cf       |    |		Execute	Vector,Slice_Read
013a 821d       |    |		Call	0x1,0x1d
013b 01cc       |    |		Execute	Vector,Catenate
013c 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "  "
013e 01cc       |    |		Execute	Vector,Catenate
013f 4810       |H   |		Short_Literal	0x10
0140 4817       |H   |		Short_Literal	0x17
0141 e5ff       |    |		Load	0x2,-0x1
0142 01cf       |    |		Execute	Vector,Slice_Read
0143 821d       |    |		Call	0x1,0x1d
0144 01cc       |    |		Execute	Vector,Catenate
0145 0092 030e  |    |		Action	Push_String_Extended,0x30e					; " "
0147 01cc       |    |		Execute	Vector,Catenate
0148 4818       |H   |		Short_Literal	0x18
0149 481f       |H   |		Short_Literal	0x1f
014a e5ff       |    |		Load	0x2,-0x1
014b 01cf       |    |		Execute	Vector,Slice_Read
014c 821d       |    |		Call	0x1,0x1d
014d 01cc       |    |		Execute	Vector,Catenate
014e 821a       |    |		Call	0x1,0x1a
014f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0159       | Y  |		.CONST	0x0159								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 4820       |H   |		Short_Literal	0x20
0154 e008       |    |		Load	0x0,0x8
0155 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0156 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0157 00d8       |    |		Load_Top	At_Offset_0
0158 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0159			BODY_0150:
0159 00d8       |    |		Load_Top	At_Offset_0
015a 00ea       |    |		Load_Encached	Null_String_Cache
015b e008       |    |		Load	0x0,0x8
015c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015d 00d1       |    |		Pop_Control	Pop_Count_1
015e 00cf       |    |		Action	Mark_Auxiliary
015f e5ff       |    |		Load	0x2,-0x1
0160 01d9       |    |		Execute	Vector,Reverse_Bounds
0161 0007       |    |		Action	Break_Optional
0162 00db       |    |		Load_Top	At_Offset_3
0163 4820       |H   |		Short_Literal	0x20
0164 4800       |H   |		Short_Literal	0x0
0165 4810       |H   |		Short_Literal	0x10
0166 e405       |    |		Load	0x2,0x5
0167 e5ff       |    |		Load	0x2,-0x1
0168 01d7       |    |		Execute	Vector,Field_Read
0169 e009       |    |		Load	0x0,0x9
016a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016b e008       |    |		Load	0x0,0x8
016c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
016d 00d1       |    |		Pop_Control	Pop_Count_1
016e 00c8       |    |		Action	Pop_Auxiliary_Range
016f 3ff2       |?   |		Loop_Increasing	0x162
0170 00ce       |    |		Action	Pop_Auxiliary
0171 00d8       |    |		Load_Top	At_Offset_0
0172 e008       |    |		Load	0x0,0x8
0173 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0174 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017e       | ~  |		.CONST	0x017e								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e00a       |    |		Load	0x0,0xa
017c 1b5a       | Z  |		Execute	Package,Field_Read,Field_Number 0x5a
017d 0322       | "  |		Declare_Variable	Record
017e			BODY_0178:
017e 4801       |H   |		Short_Literal	0x1
017f 4810       |H   |		Short_Literal	0x10
0180 e5ff       |    |		Load	0x2,-0x1
0181 01cf       |    |		Execute	Vector,Slice_Read
0182 8222       | "  |		Call	0x1,0x22
0183 00d9       |    |		Load_Top	At_Offset_1
0184 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0185 4811       |H   |		Short_Literal	0x11
0186 4820       |H   |		Short_Literal	0x20
0187 e5ff       |    |		Load	0x2,-0x1
0188 01cf       |    |		Execute	Vector,Slice_Read
0189 8222       | "  |		Call	0x1,0x22
018a 00d9       |    |		Load_Top	At_Offset_1
018b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
018c 00d8       |    |		Load_Top	At_Offset_0
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 480a       |H   |		Short_Literal	0xa
0194 00db       |    |		Load_Top	At_Offset_3
0195 01cb       |    |		Execute	Vector,Append
0196 800b       |    |		Call	0x0,0xb
0197 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d       |    |		.CONST	0x019d								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
019d			BODY_0198:
019d 8402       |    |		Call	0x2,0x2
019e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 4800       |H   |		Short_Literal	0x0
01a5 4809       |H   |		Short_Literal	0x9
01a6 0262       | b  |		Execute	Discrete,In_Range
01a7 7012       |p   |		Jump_Nonzero	0x1ba
01a8 4801       |H   |		Short_Literal	0x1
01a9 4801       |H   |		Short_Literal	0x1
01aa 00e9       |    |		Load_Encached	String_Cache
01ab 035b       | [  |		Declare_Type	Array,Constrained
01ac 0337       | 7  |		Declare_Variable	Array
01ad 00db       |    |		Load_Top	At_Offset_3
01ae 0a37       | 7  |		Execute_Immediate	Plus,0x37
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 00e8       |    |		Load_Encached	Character_Cache
01b1 0260       | `  |		Execute	Discrete,In_Type
01b2 7001       |p   |		Jump_Nonzero	0x1b4
01b3 0801       |    |		Execute_Immediate	Raise,0x1
01b4 4801       |H   |		Short_Literal	0x1
01b5 00da       |    |		Load_Top	At_Offset_2
01b6 01d6       |    |		Execute	Vector,Field_Write
01b7 00e9       |    |		Load_Encached	String_Cache
01b8 01c6       |    |		Execute	Vector,Convert_To_Formal
01b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ba 4801       |H   |		Short_Literal	0x1
01bb 4801       |H   |		Short_Literal	0x1
01bc 00e9       |    |		Load_Encached	String_Cache
01bd 035b       | [  |		Declare_Type	Array,Constrained
01be 0337       | 7  |		Declare_Variable	Array
01bf 00db       |    |		Load_Top	At_Offset_3
01c0 0a30       | 0  |		Execute_Immediate	Plus,0x30
01c1 00d8       |    |		Load_Top	At_Offset_0
01c2 00e8       |    |		Load_Encached	Character_Cache
01c3 0260       | `  |		Execute	Discrete,In_Type
01c4 7001       |p   |		Jump_Nonzero	0x1c6
01c5 0801       |    |		Execute_Immediate	Raise,0x1
01c6 4801       |H   |		Short_Literal	0x1
01c7 00da       |    |		Load_Top	At_Offset_2
01c8 01d6       |    |		Execute	Vector,Field_Write
01c9 00e9       |    |		Load_Encached	String_Cache
01ca 01c6       |    |		Execute	Vector,Convert_To_Formal
01cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d9       |    |		.CONST	0x01d9								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0002       |    |		.CONST	0x0002								; Number of locals
01d3			INIT_01d0:
01d3 4814       |H   |		Short_Literal	0x14
01d4 e008       |    |		Load	0x0,0x8
01d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01d6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d9			BODY_01d0:
01d9 00cf       |    |		Action	Mark_Auxiliary
01da e5ff       |    |		Load	0x2,-0x1
01db 01d9       |    |		Execute	Vector,Reverse_Bounds
01dc 0263       | c  |		Execute	Discrete,Above_Bound
01dd 700a       |p   |		Jump_Nonzero	0x1e8
01de 00db       |    |		Load_Top	At_Offset_3
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 e5ff       |    |		Load	0x2,-0x1
01e1 01d7       |    |		Execute	Vector,Field_Read
01e2 821c       |    |		Call	0x1,0x1c
01e3 e008       |    |		Load	0x0,0x8
01e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e5 00d1       |    |		Pop_Control	Pop_Count_1
01e6 00c8       |    |		Action	Pop_Auxiliary_Range
01e7 3ff6       |?   |		Loop_Increasing	0x1de
01e8 00ce       |    |		Action	Pop_Auxiliary
01e9 00d8       |    |		Load_Top	At_Offset_0
01ea e008       |    |		Load	0x0,0x8
01eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ed 0000 0000  |    |		.XXX[0x3]
01ef 0000       |    |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0211       |    |		.CONST	0x0211								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0009       |    |		.CONST	0x0009								; Number of locals
01f3			INIT_01f0:
01f3 4801       |H   |		Short_Literal	0x1
01f4 602f       |`/  |		Indirect_Literal	Discrete,0x224,{0x00000000, 0x00006000}
01f5 00e1       |    |		Load_Encached	Boolean_Cache
01f6 02a0       |    |		Declare_Subprogram	Null_Subprogram
01f7 4801       |H   |		Short_Literal	0x1
01f8 035d       | ]  |		Declare_Type	Array,Defined
01f9 00d8       |    |		Load_Top	At_Offset_0
01fa 0337       | 7  |		Declare_Variable	Array
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc 012d       | -  |		Execute	Any,Address
01fd e005       |    |		Load	0x0,0x5
01fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ff 03f1       |    |		Declare_Variable	Discrete,With_Value
0200 e003       |    |		Load	0x0,0x3
0201 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0202 0322       | "  |		Declare_Variable	Record
0203 4804       |H   |		Short_Literal	0x4
0204 00da       |    |		Load_Top	At_Offset_2
0205 e003       |    |		Load	0x0,0x3
0206 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0207 00d9       |    |		Load_Top	At_Offset_1
0208 017d       | }  |		Execute	Record,Structure_Write
0209 e003       |    |		Load	0x0,0x3
020a 1951       | Q  |		Execute	Package,Field_Reference,Field_Number 0x51
020b 00c6       |    |		Action	Check_Subprogram_Elaborated
020c e213       |    |		Load	0x1,0x13
020d e00c       |    |		Load	0x0,0xc
020e e00d       |    |		Load	0x0,0xd
020f 4809       |H   |		Short_Literal	0x9
0210 0007       |    |		Action	Break_Optional
0211			BODY_01f0:
0211 e405       |    |		Load	0x2,0x5
0212 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0213 0a01       |    |		Execute_Immediate	Plus,0x1
0214 e405       |    |		Load	0x2,0x5
0215 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0216 e405       |    |		Load	0x2,0x5
0217 e5ff       |    |		Load	0x2,-0x1
0218 e00e       |    |		Load	0x0,0xe
0219 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
021a e405       |    |		Load	0x2,0x5
021b e406       |    |		Load	0x2,0x6
021c 4807       |H   |		Short_Literal	0x7
021d 4802       |H   |		Short_Literal	0x2
021e 0099       |    |		Action	Reference_Dynamic
021f e003       |    |		Load	0x0,0x3
0220 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0221 e213       |    |		Load	0x1,0x13
0222 01c6       |    |		Execute	Vector,Convert_To_Formal
0223 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0224 0000 0000  |    |		.LITERAL	{0x00000000, 0x00006000}
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d       | -  |		.CONST	0x022d								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b e213       |    |		Load	0x1,0x13
022c 0337       | 7  |		Declare_Variable	Array
022d			BODY_0228:
022d 00db       |    |		Load_Top	At_Offset_3
022e e00f       |    |		Load	0x0,0xf
022f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0230 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0231 681f       |h   |		Jump_Zero	0x251
0232 00db       |    |		Load_Top	At_Offset_3
0233 821b       |    |		Call	0x1,0x1b
0234 00db       |    |		Load_Top	At_Offset_3
0235 e00e       |    |		Load	0x0,0xe
0236 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0237 7018       |p   |		Jump_Nonzero	0x250
0238 00db       |    |		Load_Top	At_Offset_3
0239 821e       |    |		Call	0x1,0x1e
023a 00d9       |    |		Load_Top	At_Offset_1
023b 01d4       |    |		Execute	Vector,Structure_Write
023c 00cf       |    |		Action	Mark_Auxiliary
023d e5fe       |    |		Load	0x2,-0x2
023e e5fd       |    |		Load	0x2,-0x3
023f 0273       | s  |		Execute	Discrete,Plus
0240 0aff       |    |		Execute_Immediate	Plus,-0x1
0241 00d8       |    |		Load_Top	At_Offset_0
0242 00e2       |    |		Load_Encached	Integer_Cache
0243 0260       | `  |		Execute	Discrete,In_Type
0244 7001       |p   |		Jump_Nonzero	0x246
0245 0801       |    |		Execute_Immediate	Raise,0x1
0246 e5fe       |    |		Load	0x2,-0x2
0247 0263       | c  |		Execute	Discrete,Above_Bound
0248 7006       |p   |		Jump_Nonzero	0x24f
0249 00d8       |    |		Load_Top	At_Offset_0
024a e402       |    |		Load	0x2,0x2
024b 01d5       |    |		Execute	Vector,Field_Reference
024c 8216       |    |		Call	0x1,0x16
024d 00c8       |    |		Action	Pop_Auxiliary_Range
024e 3ffa       |?   |		Loop_Increasing	0x249
024f 00ce       |    |		Action	Pop_Auxiliary
0250 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0251 0092 0310  |    |		Action	Push_String_Extended,0x310					; "page does not exist"
0253 821a       |    |		Call	0x1,0x1a
0254 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0255 0000 0000  |    |		.XXX[0x3]
0257 0000       |    |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025d       | ]  |		.CONST	0x025d								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0002       |    |		.CONST	0x0002								; Number of locals
025b			INIT_0258:
025b e213       |    |		Load	0x1,0x13
025c 0337       | 7  |		Declare_Variable	Array
025d			BODY_0258:
025d 00db       |    |		Load_Top	At_Offset_3
025e e00f       |    |		Load	0x0,0xf
025f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0260 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0261 680c       |h   |		Jump_Zero	0x26e
0262 00db       |    |		Load_Top	At_Offset_3
0263 e00e       |    |		Load	0x0,0xe
0264 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0265 7006       |p   |		Jump_Nonzero	0x26c
0266 00db       |    |		Load_Top	At_Offset_3
0267 821e       |    |		Call	0x1,0x1e
0268 00d9       |    |		Load_Top	At_Offset_1
0269 01d4       |    |		Execute	Vector,Structure_Write
026a 00d8       |    |		Load_Top	At_Offset_0
026b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026c e007       |    |		Load	0x0,0x7
026d 0257       | W  |		Execute	Discrete,Raise
026e e006       |    |		Load	0x0,0x6
026f 0257       | W  |		Execute	Discrete,Raise
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00da       |    |		Load_Top	At_Offset_2
0274 4606       |F   |		Jump_Case	0x7
0275 7808       |x   |		Jump	0x27e								; case 0x0
0276 7809       |x   |		Jump	0x280								; case 0x1
0277 780a       |x   |		Jump	0x282								; case 0x2
0278 780b       |x   |		Jump	0x284								; case 0x3
0279 780c       |x   |		Jump	0x286								; case 0x4
027a 780d       |x   |		Jump	0x288								; case 0x5
027b 7800       |x   |		Jump	0x27c								; case 0x6
027c 4807       |H   |		Short_Literal	0x7
027d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027e 4801       |H   |		Short_Literal	0x1
027f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0280 4802       |H   |		Short_Literal	0x2
0281 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0282 4803       |H   |		Short_Literal	0x3
0283 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0284 4804       |H   |		Short_Literal	0x4
0285 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0286 4805       |H   |		Short_Literal	0x5
0287 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0288 4806       |H   |		Short_Literal	0x6
0289 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028a 0000 0000  |    |		.BLANK	0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0295       |    |		.CONST	0x0295								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0003       |    |		.CONST	0x0003								; Number of locals
0293			INIT_0290:
0293 00e5       |    |		Load_Encached	Long_Integer_Cache
0294 00e1       |    |		Load_Encached	Boolean_Cache
0295			BODY_0290:
0295 00e1       |    |		Load_Encached	Boolean_Cache
0296 00e5       |    |		Load_Encached	Long_Integer_Cache
0297 4810       |H   |		Short_Literal	0x10
0298 e5ff       |    |		Load	0x2,-0x1
0299 e009       |    |		Load	0x0,0x9
029a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
029b 005b       | [  |		Store_Top	Discrete,At_Offset_3
029c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
029d 00d8       |    |		Load_Top	At_Offset_0
029e 6802       |h   |		Jump_Zero	0x2a1
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a1 e219       |    |		Load	0x1,0x19
02a2 0257       | W  |		Execute	Discrete,Raise
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b5       |    |		.CONST	0x02b5								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0006       |    |		.CONST	0x0006								; Number of locals
02ab			INIT_02a8:
02ab 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
02ad 029f 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Call
02af 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
02b1 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
02b3 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
02b5			BODY_02a8:
02b5 8602       |    |		Call	0x3,0x2
02b6 8603       |    |		Call	0x3,0x3
02b7 01cc       |    |		Execute	Vector,Catenate
02b8 8604       |    |		Call	0x3,0x4
02b9 01cc       |    |		Execute	Vector,Catenate
02ba 8605       |    |		Call	0x3,0x5
02bb 01cc       |    |		Execute	Vector,Catenate
02bc 8606       |    |		Call	0x3,0x6
02bd 01cc       |    |		Execute	Vector,Catenate
02be 821a       |    |		Call	0x1,0x1a
02bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 e00e       |    |		Load	0x0,0xe
02c5 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
02c6 6803       |h   |		Jump_Zero	0x2ca
02c7 0092 0311  |    |		Action	Push_String_Extended,0x311					; "  WIRED"
02c9 00ca       |    |		Action	Exit_Nullary_Function
02ca 0092 0312  |    |		Action	Push_String_Extended,0x312					; "  not WIRED"
02cc 00ca       |    |		Action	Exit_Nullary_Function
02cd 0000 0000  |    |		.XXX[0x3]
02cf 0000       |    |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 e00e       |    |		Load	0x0,0xe
02d5 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
02d6 6803       |h   |		Jump_Zero	0x2da
02d7 0092 0313  |    |		Action	Push_String_Extended,0x313					; "  IN_TRANSIT"
02d9 00ca       |    |		Action	Exit_Nullary_Function
02da 0092 0314  |    |		Action	Push_String_Extended,0x314					; "  not IN_TRANSIT"
02dc 00ca       |    |		Action	Exit_Nullary_Function
02dd 0000 0000  |    |		.XXX[0x3]
02df 0000       |    |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 e00e       |    |		Load	0x0,0xe
02e5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
02e6 6803       |h   |		Jump_Zero	0x2ea
02e7 0092 0315  |    |		Action	Push_String_Extended,0x315					; "  DIRTY"
02e9 00ca       |    |		Action	Exit_Nullary_Function
02ea 0092 0316  |    |		Action	Push_String_Extended,0x316					; "  CLEAN"
02ec 00ca       |    |		Action	Exit_Nullary_Function
02ed 0000 0000  |    |		.XXX[0x3]
02ef 0000       |    |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 e5ff       |    |		Load	0x2,-0x1
02f4 e00e       |    |		Load	0x0,0xe
02f5 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
02f6 6803       |h   |		Jump_Zero	0x2fa
02f7 0092 0317  |    |		Action	Push_String_Extended,0x317					; "  PERMANENT"
02f9 00ca       |    |		Action	Exit_Nullary_Function
02fa 0092 0318  |    |		Action	Push_String_Extended,0x318					; "  not PERMANENT"
02fc 00ca       |    |		Action	Exit_Nullary_Function
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e5ff       |    |		Load	0x2,-0x1
0304 e00e       |    |		Load	0x0,0xe
0305 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0306 6803       |h   |		Jump_Zero	0x30a
0307 0092 0319  |    |		Action	Push_String_Extended,0x319					; "  READ_WRITE"
0309 00ca       |    |		Action	Exit_Nullary_Function
030a 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "  READ_ONLY"
030c 00ca       |    |		Action	Exit_Nullary_Function
030d ; --------------------------------------------------------------------------------------
030d ; STRING TABLE
030d ; --------------------------------------------------------------------------------------
030d 001e       |    |		.STRTAB	0x001e->0x031c							; "    "
030e 0020       |    |		.STRTAB	0x0020->0x031e							; " "
030f 001f       |    |		.STRTAB	0x001f->0x031e							; "  "
0310 001f       |    |		.STRTAB	0x001f->0x031f							; "page does not exist"
0311 0030       | 0  |		.STRTAB	0x0030->0x0329							; "  WIRED"
0312 0035       | 5  |		.STRTAB	0x0035->0x032c							; "  not WIRED"
0313 003e       | >  |		.STRTAB	0x003e->0x0332							; "  IN_TRANSIT"
0314 0048       | H  |		.STRTAB	0x0048->0x0338							; "  not IN_TRANSIT"
0315 0056       | V  |		.STRTAB	0x0056->0x0340							; "  DIRTY"
0316 005b       | [  |		.STRTAB	0x005b->0x0343							; "  CLEAN"
0317 0060       | `  |		.STRTAB	0x0060->0x0347							; "  PERMANENT"
0318 0069       | i  |		.STRTAB	0x0069->0x034c							; "  not PERMANENT"
0319 0076       | v  |		.STRTAB	0x0076->0x0354							; "  READ_WRITE"
031a 0080       |    |		.STRTAB	0x0080->0x035a							; "  READ_ONLY"
031b 0089       |    |		.STREND 0x0089->0x035f
031c 2020 2020  |    |		.STRTAB_STRINGS
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug Table
0360 ; --------------------------------------------------------------------------------------
0360 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x58ad,0x0000,0x0001,0x0000
0366 48c4 c0c0  |H   |		.XXX[0x82]
0368 c17d 0d9c  | }  |
036a b911 9589  |    |
036c d59d 7d59  |  }Y|
036e a595 dd7d  |   }|
0370 3185 e595  |1   |
0372 c828 80c0  | (  |
0374 294d 95b5  |)M  |
0376 85b9 d1a5  |    |
0378 8dcc b90d  |    |
037a b1bd cd95  |    |
037c 917d 41c9  | }A |
037e a5d9 85d1  |    |
0380 957d 4185  | }A |
0382 c9d0 2951  |  )Q|
0384 4955 1429  |IU )|
0386 4d95 b585  |M   |
0388 b9d1 a58d  |    |
038a ccb9 4995  |  I |
038c a995 8dd1  |    |
038e 7d09 8591  |}   |
0390 7d31 c9b5  |}1  |
0392 7d41 c985  |}A  |
0394 9db5 85cc  |    |
0396 2919 0531  |)  1|
0398 4d14 294d  |M )M|
039a 95b5 85b9  |    |
039c d1a5 8dcc  |    |
039e b925 9db9  | %  |
03a0 bdc9 957d  |   }|
03a2 25b9 d985  |%   |
03a4 b1a5 917d  |   }|
03a6 4995 c17d  |I  }|
03a8 4dc1 958d  |M   |
03aa cc29 5149  | )QI|
03ac 5514 294d  |U )M|
03ae 95b5 85b9  |    |
03b0 d1a5 8dcc  |    |
03b2 b949 95a9  | I  |
03b4 958d d17d  |   }|
03b6 0985 917d  |   }|
03b8 4985 d1a5  |I   |
03ba bdb9 85b1  |    |
03bc 7d41 c985  |}A  |
03be 9db5 85cc  |    |
03c0 2919 0531  |)  1|
03c2 4d14 294d  |M )M|
03c4 95b5 85b9  |    |
03c6 d1a5 8dcc  |    |
03c8 b925 9db9  | %  |
03ca bdc9 957d  |   }|
03cc 25b9 d195  |%   |
03ce c999 858d  |    |
03d0 957d 41c9  | }A |
03d2 859d b585  |    |
03d4 cc29 1905  | )  |
03d6 314d 1429  |1M )|
03d8 4d95 b585  |M   |
03da b9d1 a58d  |    |
03dc ccb9 4995  |  I |
03de a995 8dd1  |    |
03e0 7d55 b991  |}U  |
03e2 9599 a5b9  |    |
03e4 9591 7d41  |  }A|
03e6 c985 9db5  |    |
03e8 0000 0000  |    |		.BLANK	0000[0x4]
03ec 0016 50fe  |  P |		.XXX[0x14]
03ee 0000 0000  |    |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 0000 0000  |    |
03f6 0000 0024  |   $|
03f8 ff8e 003e  |   >|
03fa 0800 0001  |    |
03fc 0000 0000  |    |
03fe 0000 000e  |    |