|
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_5f28f0
└─⟦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 4002 2000 |@ | .XXX[0x5b]
0120 0000 2022 | "|
0122 6000 2000 |` |
0124 4001 c024 |@ $|
0126 7fff e024 | $|
0128 bfff c025 | %|
012a 8000 2027 | '|
012c 2000 4027 | @'|
012e c000 6028 | `(|
0130 a000 802a | *|
0132 4000 a02a |@ *|
0134 8000 c02b | +|
0136 0000 e02d | -|
0138 8001 002d | -|
013a c001 202e | .|
013c e001 402f | @/|
013e 8001 6032 | `2|
0140 4001 8033 |@ 3|
0142 0001 a033 | 3|
0144 a001 c000 | |
0146 4001 a035 |@ 5|
0148 7fff e035 | 5|
014a bfff c036 | 6|
014c 8000 2038 | 8|
014e 2000 4038 | @8|
0150 c000 6039 | `9|
0152 a000 803b | ;|
0154 4000 a03b |@ ;|
0156 8000 c03c | <|
0158 2000 e03e | >|
015a a001 003f | ?|
015c c001 2040 | @|
015e 6001 4043 |` @C|
0160 2001 6043 | `C|
0162 e001 8044 | D|
0164 8001 a000 | |
0166 2001 0046 | F|
0168 7fff e046 | F|
016a a000 2047 | G|
016c 2000 4047 | @G|
016e 8000 6048 | `H|
0170 8000 8049 | I|
0172 0000 a049 | I|
0174 e000 c04a | J|
0176 6000 e04b |` K|
0178 0001 | |
0179 0000 0000 | | .BLANK 0000[0x4]
017d 404e 6000 |@N` | .XXX[0x79]
017f 204f 0000 | O |
0181 4000 0000 |@ |
0183 4050 6000 |@P` |
0185 2051 8000 | Q |
0187 4000 2001 |@ |
0189 6053 7fff |`S |
018b e053 a000 | S |
018d 2056 6000 | V` |
018f 4057 0000 |@W |
0191 6057 4000 |`W@ |
0193 8057 c000 | W |
0195 a058 a000 | X |
0197 c058 e000 | X |
0199 e059 6001 | Y` |
019b 005a 4001 | Z@ |
019d 205a 8001 | Z |
019f 405b 0001 |@[ |
01a1 6000 0000 |` |
01a3 a05d 6000 | ]` |
01a5 205d a000 | ] |
01a7 405e 4000 |@^@ |
01a9 605e 8000 |`^ |
01ab 805f 0000 | _ |
01ad a000 4000 | @ |
01af a061 7fff | a |
01b1 e061 bfff | a |
01b3 c062 6000 | b` |
01b5 4062 a000 |@b |
01b7 2063 4000 | c@ |
01b9 6064 0000 |`d |
01bb 8064 e000 | d |
01bd a000 0000 | |
01bf 2066 6000 | f` |
01c1 2000 2001 | |
01c3 0069 7fff | i |
01c5 e069 a000 | i |
01c7 206a c000 | j |
01c9 406a e000 |@j |
01cb 606b e000 |`k |
01cd 806c c001 | l |
01cf 006d 0000 | m |
01d1 a06d 4000 | m@ |
01d3 c06e 6000 | n` |
01d5 e000 0000 | |
01d7 6071 6000 |`q` |
01d9 2071 e000 | q |
01db 4072 4000 |@r@ |
01dd 6000 4000 |` @ |
01df 8074 7fff | t |
01e1 e074 ffff | t |
01e3 c075 0000 | u |
01e5 2075 e000 | u |
01e7 4076 6000 |@v` |
01e9 6077 0000 |`w |
01eb 8000 2000 | |
01ed 6078 7fff |`x |
01ef e078 8000 | x |
01f1 2079 8000 | y |
01f3 6079 a000 |`y |
01f5 4000 |@ |
01f6 0000 0000 | | .BLANK 0000[0xa]