|
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_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 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 0000 0000 | | .XXX[0x7]
01b0 03b3 0004 | |
01b2 0001 4608 | F |
01b4 7808 |x |
01b5 4302 4302 |C C | .BLANK 4302[0x8]
01bd 00da 3400 | 4 | .XXX[0x1c]
01bf 0125 00da | % |
01c1 3400 1c00 |4 |
01c3 00da 3401 | 4 |
01c5 1c00 4302 | C |
01c7 0000 03cb | |
01c9 0004 0001 | |
01cb 00d1 00da | |
01cd 01dc 00db | |
01cf 01dd 0263 | c|
01d1 7006 00d8 |p |
01d3 e5ff 01d5 | |
01d5 1c00 0a01 | |
01d7 7ff8 4302 | C |
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 03e3 0004 | | .XXX[0x5]
01e2 0001 4608 | F |
01e4 7808 |x |
01e5 4302 4302 |C C | .BLANK 4302[0x6]
01eb 7817 7824 |x x$| .XXX[0x15]
01ed 00da 2203 | " |
01ef 00da 2403 | $ |
01f1 1c00 00da | |
01f3 2205 00da |" |
01f5 2405 1c00 |$ |
01f7 00da 2206 | " |
01f9 00da 2406 | $ |
01fb 1c00 00da | |
01fd 250d 1c00 |% |
01ff 00da | |