|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 01a8 | | .CONST 0x01a8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 006c | l | .CONST 0x006c ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0018 | | .CONST 0x0018 ; Number of locals 001b INIT_0018: 001b 4be8 |K | Short_Literal 0x3e8 001c 4bfe |K | Short_Literal 0x3fe 001d e001 | | Load 0x0,0x1 001e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001f 03f8 | | Declare_Type Discrete,Constrained 0020 e001 | | Load 0x0,0x1 0021 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0022 0322 | " | Declare_Variable Record 0023 00e1 | | Load_Encached Boolean_Cache 0024 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0025 00e2 | | Load_Encached Integer_Cache 0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0027 00e2 | | Load_Encached Integer_Cache 0028 06c8 | | Execute_Immediate Set_Value_Unchecked,0xc8 0029 00d8 | | Load_Top At_Offset_0 002a 0007 | | Action Break_Optional 002b 00e2 | | Load_Encached Integer_Cache 002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002d 00e2 | | Load_Encached Integer_Cache 002e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002f e002 | | Load 0x0,0x2 0030 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0031 00d8 | | Load_Top At_Offset_0 0032 09fa | | Execute_Immediate Binary_Scale,-0x6 0033 0007 | | Action Break_Optional 0034 590f |Y | Indirect_Literal Float,0x144,1.0 0035 e5ff | | Load 0x2,-0x1 0036 023c | < | Execute Float,Minus 0037 0007 | | Action Break_Optional 0038 590b |Y | Indirect_Literal Float,0x144,1.0 0039 e5fe | | Load 0x2,-0x2 003a 023c | < | Execute Float,Minus 003b 0007 | | Action Break_Optional 003c 5903 |Y | Indirect_Literal Float,0x140,0.005859375 003d e40c | | Load 0x2,0xc 003e 023b | ; | Execute Float,Times 003f e5ff | | Load 0x2,-0x1 0040 023a | : | Execute Float,Divide 0041 58fa |X | Indirect_Literal Float,0x13c,3.0517578125e-05 0042 023a | : | Execute Float,Divide 0043 0235 | 5 | Execute Float,Round_To_Discrete 0044 00e7 | | Load_Encached Duration_Cache 0045 025e | ^ | Execute Discrete,Convert 0046 58f1 |X | Indirect_Literal Float,0x138,0.049999999999999996 0047 e40d | | Load 0x2,0xd 0048 023b | ; | Execute Float,Times 0049 e5fe | | Load 0x2,-0x2 004a 023a | : | Execute Float,Divide 004b 58f0 |X | Indirect_Literal Float,0x13c,3.0517578125e-05 004c 023a | : | Execute Float,Divide 004d 0235 | 5 | Execute Float,Round_To_Discrete 004e 00e7 | | Load_Encached Duration_Cache 004f 025e | ^ | Execute Discrete,Convert 0050 e003 | | Load 0x0,0x3 0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0052 02c7 | | Declare_Variable Any 0053 00d8 | | Load_Top At_Offset_0 0054 1c00 | | Execute_Immediate Run_Utility,0x0 0055 e003 | | Load 0x0,0x3 0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0057 02c7 | | Declare_Variable Any 0058 00d8 | | Load_Top At_Offset_0 0059 1c00 | | Execute_Immediate Run_Utility,0x0 005a 00e7 | | Load_Encached Duration_Cache 005b e003 | | Load 0x0,0x3 005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005d 02c7 | | Declare_Variable Any 005e 00d8 | | Load_Top At_Offset_0 005f 1c00 | | Execute_Immediate Run_Utility,0x0 0060 00e7 | | Load_Encached Duration_Cache 0061 e003 | | Load 0x0,0x3 0062 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0063 0007 | | Action Break_Optional 0064 e003 | | Load 0x0,0x3 0065 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0066 0007 | | Action Break_Optional 0067 e003 | | Load 0x0,0x3 0068 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0069 0007 | | Action Break_Optional 006a 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 006c BODY_0018: 006c 0092 0174 | t| Action Push_String_Extended,0x174 ; "Server" 006e 0092 0175 | u| Action Push_String_Extended,0x175 ; "Kind" 0070 e004 | | Load 0x0,0x4 0071 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0072 e005 | | Load 0x0,0x5 0073 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0074 4803 |H | Short_Literal 0x3 0075 e006 | | Load 0x0,0x6 0076 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0077 00cf | | Action Mark_Auxiliary 0078 e407 | | Load 0x2,0x7 0079 e406 | | Load 0x2,0x6 007a 0273 | s | Execute Discrete,Plus 007b 09ff | | Execute_Immediate Binary_Scale,-0x1 007c c407 | | Store 0x2,0x7 007d e406 | | Load 0x2,0x6 007e e407 | | Load 0x2,0x7 007f 027c | | | Execute Discrete,Less 0080 6802 |h | Jump_Zero 0x83 0081 e407 | | Load 0x2,0x7 0082 a406 | | Store_Unchecked 0x2,0x6 0083 e406 | | Load 0x2,0x6 0084 e40f | | Load 0x2,0xf 0085 60ae |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x00000666} 0086 0273 | s | Execute Discrete,Plus 0087 0271 | q | Execute Discrete,Times 0088 c412 | | Store 0x2,0x12 0089 e40b | | Load 0x2,0xb 008a e406 | | Load 0x2,0x6 008b 027d | } | Execute Discrete,Greater 008c 6808 |h | Jump_Zero 0x95 008d e412 | | Load 0x2,0x12 008e e40b | | Load 0x2,0xb 008f e406 | | Load 0x2,0x6 0090 0272 | r | Execute Discrete,Minus 0091 e40e | | Load 0x2,0xe 0092 0271 | q | Execute Discrete,Times 0093 0273 | s | Execute Discrete,Plus 0094 c412 | | Store 0x2,0x12 0095 e003 | | Load 0x0,0x3 0096 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0097 c410 | | Store 0x2,0x10 0098 0092 0176 | v| Action Push_String_Extended,0x176 ; "snapshot" 009a e007 | | Load 0x0,0x7 009b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009c c411 | | Store 0x2,0x11 009d e412 | | Load 0x2,0x12 009e 6091 |` | Indirect_Literal Discrete,0x130,{0x00000000, 0x001e0000} 009f e411 | | Load 0x2,0x11 00a0 8416 | | Call 0x2,0x16 00a1 8416 | | Call 0x2,0x16 00a2 c413 | | Store 0x2,0x13 00a3 e410 | | Load 0x2,0x10 00a4 e413 | | Load 0x2,0x13 00a5 8417 | | Call 0x2,0x17 00a6 a414 | | Store_Unchecked 0x2,0x14 00a7 4800 |H | Short_Literal 0x0 00a8 a405 | | Store_Unchecked 0x2,0x5 00a9 4800 |H | Short_Literal 0x0 00aa a406 | | Store_Unchecked 0x2,0x6 00ab 4800 |H | Short_Literal 0x0 00ac a408 | | Store_Unchecked 0x2,0x8 00ad e5fd | | Load 0x2,-0x3 00ae 6807 |h | Jump_Zero 0xb6 00af e008 | | Load 0x0,0x8 00b0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b1 4802 |H | Short_Literal 0x2 00b2 0092 0177 | w| Action Push_String_Extended,0x177 ; "Starting scan" 00b4 e009 | | Load 0x0,0x9 00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b6 00cf | | Action Mark_Auxiliary 00b7 00cf | | Action Mark_Auxiliary 00b8 e002 | | Load 0x0,0x2 00b9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ba 0269 | i | Execute Discrete,Last 00bb 4800 |H | Short_Literal 0x0 00bc 0263 | c | Execute Discrete,Above_Bound 00bd 704a |pJ | Jump_Nonzero 0x108 00be 00cf | | Action Mark_Auxiliary 00bf e002 | | Load 0x0,0x2 00c0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c1 0269 | i | Execute Discrete,Last 00c2 4800 |H | Short_Literal 0x0 00c3 0263 | c | Execute Discrete,Above_Bound 00c4 7040 |p@ | Jump_Nonzero 0x105 00c5 e408 | | Load 0x2,0x8 00c6 0a01 | | Execute_Immediate Plus,0x1 00c7 c408 | | Store 0x2,0x8 00c8 e409 | | Load 0x2,0x9 00c9 0a01 | | Execute_Immediate Plus,0x1 00ca c409 | | Store 0x2,0x9 00cb e403 | | Load 0x2,0x3 00cc 00e1 | | Load_Encached Boolean_Cache 00cd e41d | | Load 0x2,0x1d 00ce e420 | | Load 0x2,0x20 00cf e002 | | Load 0x0,0x2 00d0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d1 e002 | | Load 0x0,0x2 00d2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d3 c404 | | Store 0x2,0x4 00d4 00d1 | | Pop_Control Pop_Count_1 00d5 e404 | | Load 0x2,0x4 00d6 701b |p | Jump_Nonzero 0xf2 00d7 e403 | | Load 0x2,0x3 00d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d9 e402 | | Load 0x2,0x2 00da 0260 | ` | Execute Discrete,In_Type 00db 6816 |h | Jump_Zero 0xf2 00dc e405 | | Load 0x2,0x5 00dd 0a01 | | Execute_Immediate Plus,0x1 00de c405 | | Store 0x2,0x5 00df e403 | | Load 0x2,0x3 00e0 e002 | | Load 0x0,0x2 00e1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00e2 680f |h | Jump_Zero 0xf2 00e3 e406 | | Load 0x2,0x6 00e4 0a01 | | Execute_Immediate Plus,0x1 00e5 c406 | | Store 0x2,0x6 00e6 e403 | | Load 0x2,0x3 00e7 8418 | | Call 0x2,0x18 00e8 e411 | | Load 0x2,0x11 00e9 e003 | | Load 0x0,0x3 00ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00eb 8415 | | Call 0x2,0x15 00ec 6805 |h | Jump_Zero 0xf2 00ed 00d2 | | Pop_Control Pop_Count_2 00ee 00ce | | Action Pop_Auxiliary 00ef 00d2 | | Pop_Control Pop_Count_2 00f0 00ce | | Action Pop_Auxiliary 00f1 7819 |x | Jump 0x10b 00f2 e409 | | Load 0x2,0x9 00f3 0c41 | A | Execute_Immediate Greater_Equal,0x41 00f4 680e |h | Jump_Zero 0x103 00f5 e411 | | Load 0x2,0x11 00f6 e003 | | Load 0x0,0x3 00f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f8 8415 | | Call 0x2,0x15 00f9 6805 |h | Jump_Zero 0xff 00fa 00d2 | | Pop_Control Pop_Count_2 00fb 00ce | | Action Pop_Auxiliary 00fc 00d2 | | Pop_Control Pop_Count_2 00fd 00ce | | Action Pop_Auxiliary 00fe 780c |x | Jump 0x10b 00ff e40e | | Load 0x2,0xe 0100 00ba | | Action Initiate_Delay 0101 4800 |H | Short_Literal 0x0 0102 a409 | | Store_Unchecked 0x2,0x9 0103 00c8 | | Action Pop_Auxiliary_Range 0104 3fc0 |? | Loop_Increasing 0xc5 0105 00ce | | Action Pop_Auxiliary 0106 00c8 | | Action Pop_Auxiliary_Range 0107 3fb6 |? | Loop_Increasing 0xbe 0108 00ce | | Action Pop_Auxiliary 0109 00c9 | | Action Pop_Auxiliary_Loop 010a 7fac | | Jump 0xb7 010b 00ce | | Action Pop_Auxiliary 010c e5fd | | Load 0x2,-0x3 010d 6819 |h | Jump_Zero 0x127 010e e008 | | Load 0x0,0x8 010f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0110 4802 |H | Short_Literal 0x2 0111 0092 0178 | x| Action Push_String_Extended,0x178 ; "Stopped scan. Pages =>" 0113 e405 | | Load 0x2,0x5 0114 00e0 | | Load_Encached Standard_Cache 0115 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0116 01cc | | Execute Vector,Catenate 0117 0092 0179 | y| Action Push_String_Extended,0x179 ; ", Dirty =>" 0119 01cc | | Execute Vector,Catenate 011a e406 | | Load 0x2,0x6 011b 00e0 | | Load_Encached Standard_Cache 011c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 011d 01cc | | Execute Vector,Catenate 011e 0092 017a | z| Action Push_String_Extended,0x17a ; ", Checked =>" 0120 01cc | | Execute Vector,Catenate 0121 e408 | | Load 0x2,0x8 0122 00e0 | | Load_Encached Standard_Cache 0123 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0124 01cc | | Execute Vector,Catenate 0125 e009 | | Load 0x0,0x9 0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0127 6004 |` | Indirect_Literal Discrete,0x12c,{0x00000000, 0x005a0000} 0128 00ba | | Action Initiate_Delay 0129 00c9 | | Action Pop_Auxiliary_Loop 012a 7f4d | M | Jump 0x78 012b 0000 | | .XXX[0x1] 012c 0000 0000 | | .LITERAL {0x00000000, 0x005a0000} 0130 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0134 0000 0000 | | .LITERAL {0x00000000, 0x00000666} 0138 3fa9 9999 |? | .DBL 0.049999999999999996 013a 9999 9999 | | 013c 3f00 0000 |? | .DBL 3.0517578125e-05 013e 0000 0000 | | 0140 3f78 0000 |?x | .DBL 0.005859375 0142 0000 0000 | | 0144 3ff0 0000 |? | .DBL 1.0 0146 0000 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 015a | Z | .CONST 0x015a ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0005 | | .CONST 0x0005 ; Number of locals 014b INIT_0148: 014b e001 | | Load 0x0,0x1 014c 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 014d e001 | | Load 0x0,0x1 014e 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 014f 00e1 | | Load_Encached Boolean_Cache 0150 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0151 e001 | | Load 0x0,0x1 0152 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0153 0322 | " | Declare_Variable Record 0154 4800 |H | Short_Literal 0x0 0155 e605 | | Load 0x3,0x5 0156 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0157 e7ff | | Load 0x3,-0x1 0158 e605 | | Load 0x3,0x5 0159 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 015a BODY_0148: 015a e001 | | Load 0x0,0x1 015b 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 015c 4800 |H | Short_Literal 0x0 015d e7ff | | Load 0x3,-0x1 015e e001 | | Load 0x0,0x1 015f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0160 c602 | | Store 0x3,0x2 0161 e001 | | Load 0x0,0x1 0162 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 0163 e602 | | Load 0x3,0x2 0164 e00a | | Load 0x0,0xa 0165 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0166 180e | | Execute Package,Field_Execute,Field_Number 0xe 0167 c603 | | Store 0x3,0x3 0168 00d8 | | Load_Top At_Offset_0 0169 00e1 | | Load_Encached Boolean_Cache 016a e603 | | Load 0x3,0x3 016b e001 | | Load 0x0,0x1 016c 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 016d c604 | | Store 0x3,0x4 016e 00d1 | | Pop_Control Pop_Count_1 016f 4800 |H | Short_Literal 0x0 0170 a409 | | Store_Unchecked 0x2,0x9 0171 e40f | | Load 0x2,0xf 0172 00ba | | Action Initiate_Delay 0173 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0174 ; -------------------------------------------------------------------------------------- 0174 ; STRING TABLE 0174 ; -------------------------------------------------------------------------------------- 0174 0010 | | .STRTAB 0x0010->0x017c ; "Server" 0175 0014 | | .STRTAB 0x0014->0x017f ; "Kind" 0176 0016 | | .STRTAB 0x0016->0x0181 ; "snapshot" 0177 001c | | .STRTAB 0x001c->0x0185 ; "Starting scan" 0178 0027 | ' | .STRTAB 0x0027->0x018b ; "Stopped scan. Pages =>" 0179 003c | < | .STRTAB 0x003c->0x0197 ; ", Dirty =>" 017a 0044 | D | .STRTAB 0x0044->0x019c ; ", Checked =>" 017b 004e | N | .STREND 0x004e->0x01a2 017c 5365 7276 |Serv| .STRTAB_STRINGS 01a2 0000 0000 | | .BLANK 0000[0x6] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug Table 01a8 ; -------------------------------------------------------------------------------------- 01a8 0004 000d | | .DEBUG4 0x0004,0x000d,0x1da7,0x0000,0x0001,0x0000 01ae 0002 0308 | | .XXX[0x4] 01b0 2460 0980 |$` | 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 081c 04b3 | | .XXX[0x13] 01ba a3e8 a000 | | 01bc 0010 0000 | | 01be 0090 0008 | | 01c0 0880 0000 | | 01c2 0020 0000 | | 01c4 0040 0000 | @ | 01c6 0060 000c | ` | 01c8 dfa0 12ae | | 01ca fb80 | | 01cb 0000 0000 | | .BLANK 0000[0x4] 01cf 0957 d2f6 | W | .XXX[0xe] 01d1 0000 4b14 | K | 01d3 81c0 4b3a | K:| 01d5 2c6f 0000 |,o | 01d7 0140 e025 | @ %| 01d9 9d18 1600 | | 01db 0000 8200 | | 01dd 0000 0000 | | .BLANK 0000[0xc] 01e9 080c 2091 | | .XXX[0x3] 01eb 8026 | & | 01ec 0000 0000 | | .BLANK 0000[0x6] 01f2 0020 7012 | p | .XXX[0xe] 01f4 ce8c 0b00 | | 01f6 0000 4000 | @ | 01f8 0002 4000 | @ | 01fa 2022 0000 | " | 01fc 0000 8000 | | 01fe 0000 8000 | |