|
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]