|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 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 For_Outer_Call,Visible,Unelaborated,INIT_0060
002d 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
002f 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0031 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
0033 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
0035 00bf | | Action Accept_Activation
0036 0093 0000 | | PushFullAddress InMicrocode
0038 6087 |` | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00010000}
0039 0273 | s | Execute Discrete,Plus
003a 0007 | | Action Break_Optional
003b 029d 0193 | | Declare_Subprogram For_Outer_Call,INIT_0190
003d 029d 019b | | Declare_Subprogram For_Outer_Call,INIT_0198
003f 029d 01a3 | | Declare_Subprogram For_Outer_Call,INIT_01a0
0041 029d 01d3 | | Declare_Subprogram For_Outer_Call,INIT_01d0
0043 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0044 00c7 | | Action Elaborate_Subprogram
0045 029d 01f3 | | Declare_Subprogram For_Outer_Call,INIT_01f0
0047 029d 022b | +| Declare_Subprogram For_Outer_Call,INIT_0228
0049 029d 025b | [| Declare_Subprogram For_Outer_Call,INIT_0258
004b 029d 0273 | s| Declare_Subprogram For_Outer_Call,INIT_0270
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 For_Outer_Call,INIT_0290
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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Subprogram 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 For_Call,INIT_02a8
019d BODY_0198:
019d 8402 | | Call 0x2,0x2
019e 4502 |E | Exit_Subprogram 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_Result,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_Result,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_Result,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_Result,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_Subprogram 0x4
0251 0092 0310 | | Action Push_String_Extended,0x310 ; "page does not exist"
0253 821a | | Call 0x1,0x1a
0254 4504 |E | Exit_Subprogram 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_Result,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 0x6
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_Result,0x1
027e 4801 |H | Short_Literal 0x1
027f 4401 |D | Exit_Subprogram With_Result,0x1
0280 4802 |H | Short_Literal 0x2
0281 4401 |D | Exit_Subprogram With_Result,0x1
0282 4803 |H | Short_Literal 0x3
0283 4401 |D | Exit_Subprogram With_Result,0x1
0284 4804 |H | Short_Literal 0x4
0285 4401 |D | Exit_Subprogram With_Result,0x1
0286 4805 |H | Short_Literal 0x5
0287 4401 |D | Exit_Subprogram With_Result,0x1
0288 4806 |H | Short_Literal 0x6
0289 4401 |D | Exit_Subprogram With_Result,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_Result,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 For_Call,INIT_02c0
02ad 029f 02d3 | | Declare_Subprogram For_Call,INIT_02d0
02af 029f 02e3 | | Declare_Subprogram For_Call,INIT_02e0
02b1 029f 02f3 | | Declare_Subprogram For_Call,INIT_02f0
02b3 029f 0303 | | Declare_Subprogram For_Call,INIT_0300
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_Subprogram 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 0000 0000 | | .BLANK 0000[0x9a]