|
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_5c84f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0118 | | .CONST 0x0118 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0025 | % | .CONST 0x0025 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0008 | | .CONST 0x0008 ; Number of locals
000b INIT_0008:
000b e01d | | Load 0x0,0x1d
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e01d | | Load 0x0,0x1d
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 e01d | | Load 0x0,0x1d
0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0017 02c7 | | Declare_Variable Any
0018 00d8 | | Load_Top At_Offset_0
0019 1c00 | | Execute_Immediate Run_Utility,0x0
001a e214 | | Load 0x1,0x14
001b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
001c e214 | | Load 0x1,0x14
001d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
001e 0322 | " | Declare_Variable Record
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0023 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0025 BODY_0008:
0025 e402 | | Load 0x2,0x2
0026 00ea | | Load_Encached Null_String_Cache
0027 e5fe | | Load 0x2,-0x2
0028 4801 |H | Short_Literal 0x1
0029 e01d | | Load 0x0,0x1d
002a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
002b c402 | | Store 0x2,0x2
002c e403 | | Load 0x2,0x3
002d 00ea | | Load_Encached Null_String_Cache
002e e5fd | | Load 0x2,-0x3
002f 4801 |H | Short_Literal 0x1
0030 e01d | | Load 0x0,0x1d
0031 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0032 c403 | | Store 0x2,0x3
0033 e404 | | Load 0x2,0x4
0034 00ea | | Load_Encached Null_String_Cache
0035 e5fc | | Load 0x2,-0x4
0036 4801 |H | Short_Literal 0x1
0037 e01d | | Load 0x0,0x1d
0038 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0039 c404 | | Store 0x2,0x4
003a e214 | | Load 0x1,0x14
003b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003d e011 | | Load 0x0,0x11
003e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003f e018 | | Load 0x0,0x18
0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0041 e214 | | Load 0x1,0x14
0042 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0043 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0044 c405 | | Store 0x2,0x5
0045 00da | | Load_Top At_Offset_2
0046 e5ff | | Load 0x2,-0x1
0047 e214 | | Load 0x1,0x14
0048 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0049 00d1 | | Pop_Control Pop_Count_1
004a 00da | | Load_Top At_Offset_2
004b e214 | | Load 0x1,0x14
004c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
004d 7001 |p | Jump_Nonzero 0x4f
004e 8408 | | Call 0x2,0x8
004f e402 | | Load 0x2,0x2
0050 e01d | | Load 0x0,0x1d
0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0052 c402 | | Store 0x2,0x2
0053 e403 | | Load 0x2,0x3
0054 e01d | | Load 0x0,0x1d
0055 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0056 c403 | | Store 0x2,0x3
0057 e404 | | Load 0x2,0x4
0058 e01d | | Load 0x0,0x1d
0059 1816 | | Execute Package,Field_Execute,Field_Number 0x16
005a c404 | | Store 0x2,0x4
005b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0066 | f | .CONST 0x0066 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 00e1 | | Load_Encached Boolean_Cache
0064 e008 | | Load 0x0,0x8
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 BODY_0060:
0066 e008 | | Load 0x0,0x8
0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0068 00e1 | | Load_Encached Boolean_Cache
0069 6092 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00004000}
006a e010 | | Load 0x0,0x10
006b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006c e7ff | | Load 0x3,-0x1
006d e008 | | Load 0x0,0x8
006e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
006f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0070 005b | [ | Store_Top Discrete,At_Offset_3
0071 0059 | Y | Store_Top Discrete,At_Offset_1
0072 00d8 | | Load_Top At_Offset_0
0073 7002 |p | Jump_Nonzero 0x76
0074 00d9 | | Load_Top At_Offset_1
0075 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0076 4807 |H | Short_Literal 0x7
0077 0092 0100 | | Action Push_String_Extended,0x100 ; "Can't get frozenness of object "
0079 e7ff | | Load 0x3,-0x1
007a e008 | | Load 0x0,0x8
007b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
007d 01cc | | Execute Vector,Catenate
007e 8211 | | Call 0x1,0x11
007f 4800 |H | Short_Literal 0x0
0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009a | | .CONST 0x009a ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0004 | | .CONST 0x0004 ; Number of locals
008b INIT_0088:
008b e008 | | Load 0x0,0x8
008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 e008 | | Load 0x0,0x8
0091 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0092 02c7 | | Declare_Variable Any
0093 00d8 | | Load_Top At_Offset_0
0094 1c00 | | Execute_Immediate Run_Utility,0x0
0095 e008 | | Load 0x0,0x8
0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0097 02c7 | | Declare_Variable Any
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a BODY_0088:
009a e406 | | Load 0x2,0x6
009b e214 | | Load 0x1,0x14
009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009d c602 | | Store 0x3,0x2
009e 00da | | Load_Top At_Offset_2
009f e008 | | Load 0x0,0x8
00a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a1 704e |pN | Jump_Nonzero 0xf0
00a2 00da | | Load_Top At_Offset_2
00a3 e008 | | Load 0x0,0x8
00a4 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
00a5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a6 c603 | | Store 0x3,0x3
00a7 00d9 | | Load_Top At_Offset_1
00a8 8407 | | Call 0x2,0x7
00a9 6811 |h | Jump_Zero 0xbb
00aa 00d9 | | Load_Top At_Offset_1
00ab e405 | | Load 0x2,0x5
00ac e214 | | Load 0x1,0x14
00ad 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ae 700c |p | Jump_Nonzero 0xbb
00af e405 | | Load 0x2,0x5
00b0 00da | | Load_Top At_Offset_2
00b1 e214 | | Load 0x1,0x14
00b2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b3 c405 | | Store 0x2,0x5
00b4 00d9 | | Load_Top At_Offset_1
00b5 e008 | | Load 0x0,0x8
00b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00b8 e404 | | Load 0x2,0x4
00b9 e01d | | Load 0x0,0x1d
00ba 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00bb 00da | | Load_Top At_Offset_2
00bc 821d | | Call 0x1,0x1d
00bd c604 | | Store 0x3,0x4
00be 00da | | Load_Top At_Offset_2
00bf 8407 | | Call 0x2,0x7
00c0 7003 |p | Jump_Nonzero 0xc4
00c1 00d8 | | Load_Top At_Offset_0
00c2 8407 | | Call 0x2,0x7
00c3 6814 |h | Jump_Zero 0xd8
00c4 00d8 | | Load_Top At_Offset_0
00c5 e405 | | Load 0x2,0x5
00c6 e214 | | Load 0x1,0x14
00c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c8 700f |p | Jump_Nonzero 0xd8
00c9 e405 | | Load 0x2,0x5
00ca 00d9 | | Load_Top At_Offset_1
00cb e214 | | Load 0x1,0x14
00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cd c405 | | Store 0x2,0x5
00ce 00d8 | | Load_Top At_Offset_0
00cf e008 | | Load 0x0,0x8
00d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00d2 0092 0101 | | Action Push_String_Extended,0x101 ; ".?"
00d4 01cc | | Execute Vector,Catenate
00d5 e404 | | Load 0x2,0x4
00d6 e01d | | Load 0x0,0x1d
00d7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00d8 00da | | Load_Top At_Offset_2
00d9 e008 | | Load 0x0,0x8
00da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00db 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00dc e403 | | Load 0x2,0x3
00dd e01d | | Load 0x0,0x1d
00de 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00df e406 | | Load 0x2,0x6
00e0 e214 | | Load 0x1,0x14
00e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e2 00d1 | | Pop_Control Pop_Count_1
00e3 e406 | | Load 0x2,0x6
00e4 e214 | | Load 0x1,0x14
00e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e6 7001 |p | Jump_Nonzero 0xe8
00e7 8408 | | Call 0x2,0x8
00e8 00da | | Load_Top At_Offset_2
00e9 e008 | | Load 0x0,0x8
00ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00eb 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00ec e402 | | Load 0x2,0x2
00ed e01d | | Load 0x0,0x1d
00ee 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f0 e406 | | Load 0x2,0x6
00f1 e214 | | Load 0x1,0x14
00f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f3 00d1 | | Pop_Control Pop_Count_1
00f4 e406 | | Load 0x2,0x6
00f5 e214 | | Load 0x1,0x14
00f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f7 7001 |p | Jump_Nonzero 0xf9
00f8 8408 | | Call 0x2,0x8
00f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fa 0000 0000 | | .XXX[0x2]
00fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0100 ; --------------------------------------------------------------------------------------
0100 ; STRING TABLE
0100 ; --------------------------------------------------------------------------------------
0100 0006 | | .STRTAB 0x0006->0x0103 ; "Can't get frozenness of object "
0101 0023 | # | .STRTAB 0x0023->0x0112 ; ".?"
0102 0023 | # | .STREND 0x0023->0x0113
0103 4361 6e27 |Can'| .STRTAB_STRINGS
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 000c | | .DEBUG4 0x0004,0x000c,0x422a,0x0000,0x0001,0x0000
011e 6cf0 0397 |l | .XXX[0x19]
0120 fcd0 1b80 | |
0122 1c60 5609 | `V |
0124 3110 0403 |1 |
0126 68d0 1f80 |h |
0128 046c 4c60 | lL`|
012a 5510 0403 |U |
012c 6a09 2803 |j ( |
012e 6cf0 0397 |l |
0130 fcf0 0788 | |
0132 4c09 7870 |L xp|
0134 0609 3110 | 1 |
0136 0400 | |
0137 0000 0000 | | .BLANK 0000[0x4]
013b 0008 0400 | | .XXX[0x1b]
013d 1000 100a | |
013f 7c2b 8c0a ||+ |
0141 7c2c 0c0a ||, |
0143 7c2c 6f97 ||,o |
0145 fcf0 042c | ,|
0147 0dc0 142c | ,|
0149 09c0 1f97 | |
014b fcf0 0510 | |
014d 0797 fcd0 | |
014f 1a10 1110 | |
0151 0797 fcd0 | |
0153 1610 0d10 | |
0155 0400 | |
0156 0000 0000 | | .BLANK 0000[0x5]
015b 0008 6c00 | l | .XXX[0xa5]
015d 1000 0788 | |
015f 380c 8920 |8 |
0161 0403 64e0 | d |
0163 0120 0003 | |
0165 64e0 0780 |d |
0167 0c60 4380 | `C |
0169 0c6c 3c04 | l< |
016b 6403 64e0 |d d |
016d 0b80 0c60 | `|
016f 4380 0c6c |C l|
0171 3c04 6403 |< d |
0173 64e0 0f80 |d |
0175 0c60 4380 | `C |
0177 0c6c 3c04 | l< |
0179 6403 64e0 |d d |
017b 1380 1c60 | `|
017d 6803 64e0 |h d |
017f 1b88 fc60 | `|
0181 7003 64e0 |p d |
0183 1780 046c | l|
0185 4c60 5c03 |L`\ |
0187 64e0 1c03 |d |
0189 2800 0000 |( |
018b 0009 480a | H |
018d 0c00 0f88 | |
018f 340c 8803 |4 |
0191 6070 0388 |`p |
0193 fc6c 580c | lX |
0195 8803 6003 | ` |
0197 68f0 1403 |h |
0199 6cf0 0120 |l |
019b 0397 fb97 | |
019d ff88 fc60 | `|
019f 7803 4c03 |x L |
01a1 6209 05c0 |b |
01a3 0920 0110 | |
01a5 0803 6003 | ` |
01a7 68f0 0388 |h |
01a9 fc60 8003 | ` |
01ab 4803 64d0 |H d |
01ad 14f0 0380 | |
01af 2004 bda0 | |
01b1 4c03 64d0 |L d |
01b3 14f0 0780 | |
01b5 2409 fda0 |$ |
01b7 3403 64d0 |4 d |
01b9 14f0 0834 | 4|
01bb 0da0 2397 | # |
01bd ff80 1c60 | `|
01bf a380 1c60 | `|
01c1 7380 2807 |s ( |
01c3 7d10 0920 |} |
01c5 0110 0800 | |
01c7 1d20 0110 | |
01c9 0800 0000 | |
01cb 000a 600a | ` |
01cd e400 1380 | |
01cf 0c6c 3c0b | l< |
01d1 1c03 6070 | `p|
01d3 0380 0c6c | l|
01d5 3c0b 1c03 |< |
01d7 6070 0380 |`p |
01d9 1c6c 340c | l4 |
01db 8b97 fb97 | |
01dd ff80 2c60 | ,`|
01df 3b10 0803 |; |
01e1 6003 6804 |` h |
01e3 81a0 0f80 | |
01e5 1c6c 45e0 | lE |
01e7 0403 6920 | i |
01e9 0397 fb97 | |
01eb fb90 0a09 | |
01ed 3b97 ff80 |; |
01ef 1c60 7380 | `s |
01f1 1c60 9310 | ` |
01f3 0c03 4403 | D |
01f5 6209 09c0 |b |
01f7 0f80 0c60 | `|
01f9 4110 0803 |A |
01fb 6510 0981 |e |
01fd 6804 3da0 |h = |
01ff 0f80 | |