|
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_0694fc
└─⟦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 0068 | h | .CONST 0x0068 ; 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 0020 | | .CONST 0x0020 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
000d e001 | | Load 0x0,0x1
000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000f 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0011 4802 |H | Short_Literal 0x2
0012 032e | . | Declare_Type Record,Defined,Visible
0013 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0019 00bf | | Action Accept_Activation
001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d 00c7 | | Action Elaborate_Subprogram
001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001f 00c7 | | Action Elaborate_Subprogram
0020 BODY_0008:
0020 00bc | | Action Signal_Activated
0021 00bb | | Action Signal_Completion
0022 0000 0000 | | .BLANK 0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 00db | | Load_Top At_Offset_3
002c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
002d e5fe | | Load 0x2,-0x2
002e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
002f e5ff | | Load 0x2,-0x1
0030 e002 | | Load 0x0,0x2
0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0032 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00db | | Load_Top At_Offset_3
003c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
003d e5fe | | Load 0x2,-0x2
003e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
003f e5ff | | Load 0x2,-0x1
0040 e002 | | Load 0x0,0x2
0041 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4608 |F | Jump_Case 0x9
0054 7808 |x | Jump 0x5d ; case 0x0
0055 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0056 780d |x | Jump 0x64 ; case 0x2
0057 780c |x | Jump 0x64 ; case 0x3
0058 780b |x | Jump 0x64 ; case 0x4
0059 780a |x | Jump 0x64 ; case 0x5
005a 7809 |x | Jump 0x64 ; case 0x6
005b 7808 |x | Jump 0x64 ; case 0x7
005c 7807 |x | Jump 0x64 ; case 0x8
005d 00da | | Load_Top At_Offset_2
005e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
005f 0125 | % | Execute Any,Set_Constraint
0060 00da | | Load_Top At_Offset_2
0061 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0062 1c00 | | Execute_Immediate Run_Utility,0x0
0063 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0064 0869 | i | Execute_Immediate Raise,0x69
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; Debug Table
0068 ; --------------------------------------------------------------------------------------
0068 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c1,0x0000,0x0001,0x0000
006e 2b9c 086d |+ m| .XXX[0x22]
0070 9cb8 086d | m|
0072 a204 000c | |
0074 1aa8 0aec | |
0076 0e40 0000 | @ |
0078 0000 10db | |
007a 4ea0 0000 |N |
007c 0000 10db | |
007e 56a0 005a |V Z|
0080 4cb0 0800 |L |
0082 0bdd e820 | |
0084 e217 000e | |
0086 0001 7116 | q |
0088 0001 8355 | U|
008a 015d 81c8 | ] |
008c 0000 0000 | |
008e 021b 6bd5 | k |
0090 0000 0000 | | .BLANK 0000[0x4]
0094 000b 4996 | I | .XXX[0x36]
0096 0100 017b | {|
0098 bd04 1c42 | B|
009a e001 b000 | |
009c 2e22 c021 |." !|
009e b6a5 5000 | P |
00a0 0000 0000 | |
00a2 0000 2000 | |
00a4 0000 0000 | |
00a6 0000 c000 | |
00a8 b499 6000 | ` |
00aa 0000 0000 | |
00ac 0000 0021 | !|
00ae b6b5 5000 | P |
00b0 0000 0000 | |
00b2 0000 2000 | |
00b4 0000 0000 | |
00b6 4778 7800 |Gxx |
00b8 1ade 4000 | @ |
00ba 0000 0000 | |
00bc 0000 0010 | |
00be db62 b000 | b |
00c0 0000 0000 | |
00c2 0000 1000 | |
00c4 0000 0000 | |
00c6 0000 6000 | ` |
00c8 5a4c b000 |ZL |
00ca 0000 0000 | | .BLANK 0000[0x5]
00cf 4800 0c1a |H | .XXX[0x19]
00d1 a810 db35 | 5|
00d3 5800 0000 |X |
00d5 0000 0000 | |
00d7 0008 6db6 | m |
00d9 e400 0527 | '|
00db 0801 0db6 | |
00dd fc81 0db7 | |
00df a600 015c | \|
00e1 3f02 1b70 |? p|
00e3 ff00 0000 | |
00e5 0002 1b71 | q|
00e7 ff00 | |
00e8 0000 0000 | | .BLANK 0000[0x4]
00ec 056e 8801 | n | .XXX[0x9]
00ee 0000 000b | |
00f0 0c00 4000 | @ |
00f2 0070 0000 | p |
00f4 0160 | ` |
00f5 0000 0000 | | .BLANK 0000[0xe]
0103 2000 0000 | | .XXX[0x5]
0105 0000 0000 | |
0107 000e | |
0108 0000 0000 | | .BLANK 0000[0x4]
010c 0436 e1fe | 6 | .XXX[0x20]
010e 00dd c92a | *|
0110 0000 0002 | |
0112 0000 0030 | 0|
0114 989e 8ebe | |
0116 7266 be60 |rf `|
0118 6cbe 6460 |l d`|
011a be82 a8be | |
011c 606a be60 |`j `|
011e 60be 626e |` bn|
0120 0436 e500 | 6 |
0122 0000 0000 | |
0124 0000 0004 | |
0126 0000 0000 | |
0128 0000 0002 | |
012a 000a dd10 | |
012c 0000 0000 | | .BLANK 0000[0x5]
0131 0012 0002 | | .XXX[0x5]
0133 b87e 0436 | ~ 6|
0135 daec | |
0136 0000 0000 | | .BLANK 0000[0x4]
013a 021b 73e3 | s | .XXX[0x1e]
013c 0001 6546 | eF|
013e 0043 6e84 | Cn |
0140 6043 6eae |`Cn |
0142 c000 5710 | W |
0144 0086 ddca | |
0146 4000 0000 |@ |
0148 0086 de0a | |
014a 4000 0000 |@ |
014c 0000 0000 | |
014e 0001 5ba2 | [ |
0150 8040 0000 | @ |
0152 02c3 0010 | |
0154 0000 1c00 | |
0156 0000 5800 | X |
0158 0000 0000 | | .BLANK 0000[0xd]
0165 0008 | | .XXX[0x1]
0166 0000 0000 | | .BLANK 0000[0x4]
016a 0380 0000 | | .XXX[0x25]
016c 0000 0000 | |
016e 0001 0dbb | |
0170 9480 be9d | |
0172 b580 0000 | |
0174 0080 0000 | |
0176 0c26 27a3 | &' |
0178 af9c 99af | |
017a 981b 2f99 | / |
017c 18af a0aa | |
017e 2f98 1a2f |/ /|
0180 9a9c af9a | |
0182 9801 0dbc | |
0184 5500 0000 |U |
0186 0000 0000 | |
0188 0100 0000 | |
018a 0000 0000 | |
018c 0080 02b7 | |
018e 4500 |E |
018f 0000 0000 | | .BLANK 0000[0x5]
0194 0480 00ae | | .XXX[0x2e]
0196 2001 0db9 | |
0198 d000 0000 | |
019a 0001 0dbf | |
019c fa40 86de | @ |
019e 8340 0012 | @ |
01a0 d4b8 10db | |
01a2 d268 10db | h |
01a4 dd00 0018 | |
01a6 3570 15da |5p |
01a8 9e80 0000 | |
01aa 0000 21b7 | ! |
01ac cf30 0000 | 0 |
01ae 0000 21b7 | ! |
01b0 df30 00b4 | 0 |
01b2 a6c0 1000 | |
01b4 17bb d041 | A|
01b6 c42e 001c | . |
01b8 0002 e22c | ,|
01ba 0003 06ae | |
01bc 02bb 53d0 | S |
01be 0000 0000 | |
01c0 0436 fde8 | 6 |
01c2 0000 0000 | | .BLANK 0000[0x4]
01c6 0016 94d8 | | .XXX[0x36]
01c8 0200 02f7 | |
01ca 7a08 3885 |z 8 |
01cc c003 6000 | ` |
01ce 5c45 8043 |\E C|
01d0 6fae 8000 |o |
01d2 0000 0000 | |
01d4 0000 4000 | @ |
01d6 0000 0000 | |
01d8 0001 4001 | @ |
01da 694d 8000 |iM |
01dc 0000 0000 | |
01de 0000 0043 | C|
01e0 6fce 8000 |o |
01e2 0000 0000 | |
01e4 0000 4000 | @ |
01e6 0000 0000 | |
01e8 8ef0 f000 | |
01ea 35b8 6000 |5 ` |
01ec 0000 0000 | |
01ee 0000 0021 | !|
01f0 b7f7 5000 | P |
01f2 0000 0000 | |
01f4 0000 2000 | |
01f6 0000 0000 | |
01f8 0000 a000 | |
01fa b4a6 c000 | |
01fc 0000 0000 | | .BLANK 0000[0x4]