|
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 dc08 50c2 | P | .XXX[0xe2]
0120 f008 54c3 | T |
0122 0408 58c3 | X |
0124 1808 5cc3 | \ |
0126 2c08 60c3 |, ` |
0128 4008 64c3 |@ d |
012a 5408 68c3 |T h |
012c 6808 6cc3 |h l |
012e 7c08 70c3 || p |
0130 9008 74c3 | t |
0132 a408 78c3 | x |
0134 b808 7cc3 | | |
0136 cc08 80c3 | |
0138 e008 84c3 | |
013a f408 88c4 | |
013c 0808 8cc4 | |
013e 1c08 90c4 | |
0140 3008 94c4 |0 |
0142 4408 98c4 |D |
0144 5808 9cc4 |X |
0146 6c08 a0c4 |l |
0148 8008 a4c4 | |
014a 9408 a8c4 | |
014c a808 acc4 | |
014e bc08 b0c4 | |
0150 d008 b4c4 | |
0152 e408 b8c4 | |
0154 f408 bcc5 | |
0156 0408 c0c5 | |
0158 1408 c4c5 | |
015a 2808 c8c5 |( |
015c 3808 ccc5 |8 |
015e 4808 d0c5 |H |
0160 5808 d4c5 |X |
0162 6808 d8c5 |h |
0164 7808 dcc5 |x |
0166 8808 e0c5 | |
0168 9808 e4c5 | |
016a a808 e8c5 | |
016c b808 ecc5 | |
016e c808 f0c5 | |
0170 d808 f4c5 | |
0172 e808 f8c5 | |
0174 f808 fcc6 | |
0176 0809 00c6 | |
0178 1809 04c6 | |
017a 2809 08c6 |( |
017c 3809 0cc6 |8 |
017e 4809 10c6 |H |
0180 5809 14c6 |X |
0182 6809 18c6 |h |
0184 7809 1cc6 |x |
0186 8809 20c6 | |
0188 9809 24c6 | $ |
018a a809 28c6 | ( |
018c b809 2cc6 | , |
018e c809 30c6 | 0 |
0190 d809 34c6 | 4 |
0192 e809 38c6 | 8 |
0194 f809 3cc7 | < |
0196 0809 40c7 | @ |
0198 1809 44c7 | D |
019a 2809 48c7 |( H |
019c 3809 4cc7 |8 L |
019e 4809 50c7 |H P |
01a0 5809 54c7 |X T |
01a2 6809 58c7 |h X |
01a4 7809 5cc7 |x \ |
01a6 8c09 60c7 | ` |
01a8 a009 64c7 | d |
01aa b409 68c7 | h |
01ac c809 6cc7 | l |
01ae dc09 70c7 | p |
01b0 ec09 74c7 | t |
01b2 fc09 78c8 | x |
01b4 0c09 7cc8 | | |
01b6 2009 80c8 | |
01b8 3409 84c8 |4 |
01ba 4809 88c8 |H |
01bc 5c09 8cc8 |\ |
01be 7009 90c8 |p |
01c0 8809 94c8 | |
01c2 a009 98c8 | |
01c4 b809 9cc8 | |
01c6 d009 a0c8 | |
01c8 e809 a4c9 | |
01ca 0009 a8c9 | |
01cc 1009 acc9 | |
01ce 2009 b0c9 | |
01d0 3009 b4c9 |0 |
01d2 4009 b8c9 |@ |
01d4 5009 bcc9 |P |
01d6 6009 c0c9 |` |
01d8 7009 c4c9 |p |
01da 8009 c8c9 | |
01dc 9809 ccc9 | |
01de b009 d0c9 | |
01e0 c809 d4c9 | |
01e2 e009 d8c9 | |
01e4 f809 dcca | |
01e6 1009 e0ca | |
01e8 2009 e4ca | |
01ea 3009 e800 |0 |
01ec 0000 04d2 | |
01ee cc00 0400 | |
01f0 0000 04d3 | |
01f2 2c00 0400 |, |
01f4 0000 10d3 | |
01f6 8c00 04d3 | |
01f8 cc00 10d3 | |
01fa d400 08d3 | |
01fc e800 0c00 | |
01fe 0000 04d4 | |