|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 0358 | X | .CONST 0x0358 ; 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 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0043 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0044 00c7 | | Action Elaborate_Subprogram
0045 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0047 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0049 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
004b 029d 026b | k| Declare_Subprogram INIT_0268,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 028b | | Declare_Subprogram INIT_0288,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 0305 | | Action Push_String_Extended,0x305 ; " "
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 0306 | | Action Push_String_Extended,0x306 ; " "
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 0307 | | Action Push_String_Extended,0x307 ; " "
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 0306 | | Action Push_String_Extended,0x306 ; " "
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 02a3 | | Declare_Subprogram INIT_02a0,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 700f |p | Jump_Nonzero 0x1b7
01a8 4801 |H | Short_Literal 0x1
01a9 4801 |H | Short_Literal 0x1
01aa 00e9 | | Load_Encached String_Cache
01ab 0334 | 4 | Declare_Variable Array,With_Constraint
01ac 00db | | Load_Top At_Offset_3
01ad 0a37 | 7 | Execute_Immediate Plus,0x37
01ae 00d8 | | Load_Top At_Offset_0
01af 00e8 | | Load_Encached Character_Cache
01b0 0260 | ` | Execute Discrete,In_Type
01b1 7001 |p | Jump_Nonzero 0x1b3
01b2 0801 | | Execute_Immediate Raise,0x1
01b3 4801 |H | Short_Literal 0x1
01b4 00da | | Load_Top At_Offset_2
01b5 01d6 | | Execute Vector,Field_Write
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 4801 |H | Short_Literal 0x1
01b8 4801 |H | Short_Literal 0x1
01b9 00e9 | | Load_Encached String_Cache
01ba 0334 | 4 | Declare_Variable Array,With_Constraint
01bb 00db | | Load_Top At_Offset_3
01bc 0a30 | 0 | Execute_Immediate Plus,0x30
01bd 00d8 | | Load_Top At_Offset_0
01be 00e8 | | Load_Encached Character_Cache
01bf 0260 | ` | Execute Discrete,In_Type
01c0 7001 |p | Jump_Nonzero 0x1c2
01c1 0801 | | Execute_Immediate Raise,0x1
01c2 4801 |H | Short_Literal 0x1
01c3 00da | | Load_Top At_Offset_2
01c4 01d6 | | Execute Vector,Field_Write
01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1 | | .CONST 0x01d1 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb 4814 |H | Short_Literal 0x14
01cc e008 | | Load 0x0,0x8
01cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ce 1c08 | | Execute_Immediate Run_Utility,0x8
01cf 00d8 | | Load_Top At_Offset_0
01d0 1c00 | | Execute_Immediate Run_Utility,0x0
01d1 BODY_01c8:
01d1 00cf | | Action Mark_Auxiliary
01d2 e5ff | | Load 0x2,-0x1
01d3 01d9 | | Execute Vector,Reverse_Bounds
01d4 0263 | c | Execute Discrete,Above_Bound
01d5 700a |p | Jump_Nonzero 0x1e0
01d6 00db | | Load_Top At_Offset_3
01d7 00d9 | | Load_Top At_Offset_1
01d8 e5ff | | Load 0x2,-0x1
01d9 01d7 | | Execute Vector,Field_Read
01da 821c | | Call 0x1,0x1c
01db e008 | | Load 0x0,0x8
01dc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01dd 00d1 | | Pop_Control Pop_Count_1
01de 00c8 | | Action Pop_Auxiliary_Range
01df 3ff6 |? | Loop_Increasing 0x1d6
01e0 00ce | | Action Pop_Auxiliary
01e1 00d8 | | Load_Top At_Offset_0
01e2 e008 | | Load 0x0,0x8
01e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 0209 | | .CONST 0x0209 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0009 | | .CONST 0x0009 ; Number of locals
01eb INIT_01e8:
01eb 4801 |H | Short_Literal 0x1
01ec 602f |`/ | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00006000}
01ed 00e1 | | Load_Encached Boolean_Cache
01ee 02a0 | | Declare_Subprogram Null_Subprogram
01ef 4801 |H | Short_Literal 0x1
01f0 035d | ] | Declare_Type Array,Defined
01f1 00d8 | | Load_Top At_Offset_0
01f2 0337 | 7 | Declare_Variable Array
01f3 00d8 | | Load_Top At_Offset_0
01f4 012d | - | Execute Any,Address
01f5 e005 | | Load 0x0,0x5
01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f7 03f1 | | Declare_Variable Discrete,With_Value
01f8 e003 | | Load 0x0,0x3
01f9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01fa 0322 | " | Declare_Variable Record
01fb 4804 |H | Short_Literal 0x4
01fc 00da | | Load_Top At_Offset_2
01fd e003 | | Load 0x0,0x3
01fe 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ff 00d9 | | Load_Top At_Offset_1
0200 017d | } | Execute Record,Structure_Write
0201 e003 | | Load 0x0,0x3
0202 1951 | Q | Execute Package,Field_Reference,Field_Number 0x51
0203 00c6 | | Action Check_Subprogram_Elaborated
0204 e213 | | Load 0x1,0x13
0205 e00c | | Load 0x0,0xc
0206 e00d | | Load 0x0,0xd
0207 4809 |H | Short_Literal 0x9
0208 0007 | | Action Break_Optional
0209 BODY_01e8:
0209 e405 | | Load 0x2,0x5
020a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020b 0a01 | | Execute_Immediate Plus,0x1
020c e405 | | Load 0x2,0x5
020d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020e e405 | | Load 0x2,0x5
020f e5ff | | Load 0x2,-0x1
0210 e00e | | Load 0x0,0xe
0211 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0212 e405 | | Load 0x2,0x5
0213 e406 | | Load 0x2,0x6
0214 4807 |H | Short_Literal 0x7
0215 4802 |H | Short_Literal 0x2
0216 0099 | | Action Reference_Dynamic
0217 e003 | | Load 0x0,0x3
0218 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0219 e213 | | Load 0x1,0x13
021a 01c6 | | Execute Vector,Convert_To_Formal
021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021c 0000 0000 | | .LITERAL {0x00000000, 0x00006000}
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e213 | | Load 0x1,0x13
0224 0337 | 7 | Declare_Variable Array
0225 BODY_0220:
0225 00db | | Load_Top At_Offset_3
0226 e00f | | Load 0x0,0xf
0227 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0228 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0229 681f |h | Jump_Zero 0x249
022a 00db | | Load_Top At_Offset_3
022b 821b | | Call 0x1,0x1b
022c 00db | | Load_Top At_Offset_3
022d e00e | | Load 0x0,0xe
022e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
022f 7018 |p | Jump_Nonzero 0x248
0230 00db | | Load_Top At_Offset_3
0231 821e | | Call 0x1,0x1e
0232 00d9 | | Load_Top At_Offset_1
0233 01d4 | | Execute Vector,Structure_Write
0234 00cf | | Action Mark_Auxiliary
0235 e5fe | | Load 0x2,-0x2
0236 e5fd | | Load 0x2,-0x3
0237 0273 | s | Execute Discrete,Plus
0238 0aff | | Execute_Immediate Plus,-0x1
0239 00d8 | | Load_Top At_Offset_0
023a 00e2 | | Load_Encached Integer_Cache
023b 0260 | ` | Execute Discrete,In_Type
023c 7001 |p | Jump_Nonzero 0x23e
023d 0801 | | Execute_Immediate Raise,0x1
023e e5fe | | Load 0x2,-0x2
023f 0263 | c | Execute Discrete,Above_Bound
0240 7006 |p | Jump_Nonzero 0x247
0241 00d8 | | Load_Top At_Offset_0
0242 e402 | | Load 0x2,0x2
0243 01d5 | | Execute Vector,Field_Reference
0244 8216 | | Call 0x1,0x16
0245 00c8 | | Action Pop_Auxiliary_Range
0246 3ffa |? | Loop_Increasing 0x241
0247 00ce | | Action Pop_Auxiliary
0248 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0249 0092 0308 | | Action Push_String_Extended,0x308 ; "page does not exist"
024b 821a | | Call 0x1,0x1a
024c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0255 | U | .CONST 0x0255 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e213 | | Load 0x1,0x13
0254 0337 | 7 | Declare_Variable Array
0255 BODY_0250:
0255 00db | | Load_Top At_Offset_3
0256 e00f | | Load 0x0,0xf
0257 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0258 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0259 680c |h | Jump_Zero 0x266
025a 00db | | Load_Top At_Offset_3
025b e00e | | Load 0x0,0xe
025c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
025d 7006 |p | Jump_Nonzero 0x264
025e 00db | | Load_Top At_Offset_3
025f 821e | | Call 0x1,0x1e
0260 00d9 | | Load_Top At_Offset_1
0261 01d4 | | Execute Vector,Structure_Write
0262 00d8 | | Load_Top At_Offset_0
0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0264 e007 | | Load 0x0,0x7
0265 0257 | W | Execute Discrete,Raise
0266 e006 | | Load 0x0,0x6
0267 0257 | W | Execute Discrete,Raise
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 4606 |F | Jump_Case 0x7
026d 7808 |x | Jump 0x276 ; case 0x0
026e 7809 |x | Jump 0x278 ; case 0x1
026f 780a |x | Jump 0x27a ; case 0x2
0270 780b |x | Jump 0x27c ; case 0x3
0271 780c |x | Jump 0x27e ; case 0x4
0272 780d |x | Jump 0x280 ; case 0x5
0273 7800 |x | Jump 0x274 ; case 0x6
0274 4807 |H | Short_Literal 0x7
0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0276 4801 |H | Short_Literal 0x1
0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0278 4802 |H | Short_Literal 0x2
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 4803 |H | Short_Literal 0x3
027b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027c 4804 |H | Short_Literal 0x4
027d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027e 4805 |H | Short_Literal 0x5
027f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0280 4806 |H | Short_Literal 0x6
0281 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b 00e5 | | Load_Encached Long_Integer_Cache
028c 00e1 | | Load_Encached Boolean_Cache
028d BODY_0288:
028d 00e1 | | Load_Encached Boolean_Cache
028e 00e5 | | Load_Encached Long_Integer_Cache
028f 4810 |H | Short_Literal 0x10
0290 e5ff | | Load 0x2,-0x1
0291 e009 | | Load 0x0,0x9
0292 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0293 005b | [ | Store_Top Discrete,At_Offset_3
0294 0059 | Y | Store_Top Discrete,At_Offset_1
0295 00d8 | | Load_Top At_Offset_0
0296 6802 |h | Jump_Zero 0x299
0297 00d9 | | Load_Top At_Offset_1
0298 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0299 e219 | | Load 0x1,0x19
029a 0257 | W | Execute Discrete,Raise
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ad | | .CONST 0x02ad ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0006 | | .CONST 0x0006 ; Number of locals
02a3 INIT_02a0:
02a3 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
02a5 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
02a7 029f 02db | | Declare_Subprogram INIT_02d8,For_Call
02a9 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
02ab 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
02ad BODY_02a0:
02ad 8602 | | Call 0x3,0x2
02ae 8603 | | Call 0x3,0x3
02af 01cc | | Execute Vector,Catenate
02b0 8604 | | Call 0x3,0x4
02b1 01cc | | Execute Vector,Catenate
02b2 8605 | | Call 0x3,0x5
02b3 01cc | | Execute Vector,Catenate
02b4 8606 | | Call 0x3,0x6
02b5 01cc | | Execute Vector,Catenate
02b6 821a | | Call 0x1,0x1a
02b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e5ff | | Load 0x2,-0x1
02bc e00e | | Load 0x0,0xe
02bd 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
02be 6803 |h | Jump_Zero 0x2c2
02bf 0092 0309 | | Action Push_String_Extended,0x309 ; " WIRED"
02c1 00ca | | Action Exit_Nullary_Function
02c2 0092 030a | | Action Push_String_Extended,0x30a ; " not WIRED"
02c4 00ca | | Action Exit_Nullary_Function
02c5 0000 0000 | | .XXX[0x3]
02c7 0000 | |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e5ff | | Load 0x2,-0x1
02cc e00e | | Load 0x0,0xe
02cd 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02ce 6803 |h | Jump_Zero 0x2d2
02cf 0092 030b | | Action Push_String_Extended,0x30b ; " IN_TRANSIT"
02d1 00ca | | Action Exit_Nullary_Function
02d2 0092 030c | | Action Push_String_Extended,0x30c ; " not IN_TRANSIT"
02d4 00ca | | Action Exit_Nullary_Function
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e5ff | | Load 0x2,-0x1
02dc e00e | | Load 0x0,0xe
02dd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02de 6803 |h | Jump_Zero 0x2e2
02df 0092 030d | | Action Push_String_Extended,0x30d ; " DIRTY"
02e1 00ca | | Action Exit_Nullary_Function
02e2 0092 030e | | Action Push_String_Extended,0x30e ; " CLEAN"
02e4 00ca | | Action Exit_Nullary_Function
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb e5ff | | Load 0x2,-0x1
02ec e00e | | Load 0x0,0xe
02ed 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
02ee 6803 |h | Jump_Zero 0x2f2
02ef 0092 030f | | Action Push_String_Extended,0x30f ; " PERMANENT"
02f1 00ca | | Action Exit_Nullary_Function
02f2 0092 0310 | | Action Push_String_Extended,0x310 ; " not PERMANENT"
02f4 00ca | | Action Exit_Nullary_Function
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb e5ff | | Load 0x2,-0x1
02fc e00e | | Load 0x0,0xe
02fd 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02fe 6803 |h | Jump_Zero 0x302
02ff 0092 0311 | | Action Push_String_Extended,0x311 ; " READ_WRITE"
0301 00ca | | Action Exit_Nullary_Function
0302 0092 0312 | | Action Push_String_Extended,0x312 ; " READ_ONLY"
0304 00ca | | Action Exit_Nullary_Function
0305 ; --------------------------------------------------------------------------------------
0305 ; STRING TABLE
0305 ; --------------------------------------------------------------------------------------
0305 001e | | .STRTAB 0x001e->0x0314 ; " "
0306 0020 | | .STRTAB 0x0020->0x0316 ; " "
0307 001f | | .STRTAB 0x001f->0x0316 ; " "
0308 001f | | .STRTAB 0x001f->0x0317 ; "page does not exist"
0309 0030 | 0 | .STRTAB 0x0030->0x0321 ; " WIRED"
030a 0035 | 5 | .STRTAB 0x0035->0x0324 ; " not WIRED"
030b 003e | > | .STRTAB 0x003e->0x032a ; " IN_TRANSIT"
030c 0048 | H | .STRTAB 0x0048->0x0330 ; " not IN_TRANSIT"
030d 0056 | V | .STRTAB 0x0056->0x0338 ; " DIRTY"
030e 005b | [ | .STRTAB 0x005b->0x033b ; " CLEAN"
030f 0060 | ` | .STRTAB 0x0060->0x033f ; " PERMANENT"
0310 0069 | i | .STRTAB 0x0069->0x0344 ; " not PERMANENT"
0311 0076 | v | .STRTAB 0x0076->0x034c ; " READ_WRITE"
0312 0080 | | .STRTAB 0x0080->0x0352 ; " READ_ONLY"
0313 0089 | | .STREND 0x0089->0x0357
0314 2020 2020 | | .STRTAB_STRINGS
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1666,0x0000,0x0001,0x0000
035e 0000 0000 | | .BLANK 0000[0xa2]