|
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_0bf8df
└─⟦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 00b0 | | .CONST 0x00b0 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0013 00c7 | | Action Elaborate_Subprogram
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002b | + | .CONST 0x002b ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0002 | | .CONST 0x0002 ; Number of locals
0023 INIT_0020:
0023 4800 |H | Short_Literal 0x0
0024 00db | | Load_Top At_Offset_3
0025 0092 00a3 | | Action Push_String_Extended,0xa3 ; "!!"
0027 e002 | | Load 0x0,0x2
0028 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0029 00e2 | | Load_Encached Integer_Cache
002a 03f1 | | Declare_Variable Discrete,With_Value
002b BODY_0020:
002b 00d8 | | Load_Top At_Offset_0
002c 700f |p | Jump_Nonzero 0x3c
002d 00db | | Load_Top At_Offset_3
002e 01db | | Execute Vector,Length
002f 7008 |p | Jump_Nonzero 0x38
0030 4801 |H | Short_Literal 0x1
0031 4806 |H | Short_Literal 0x6
0032 00e9 | | Load_Encached String_Cache
0033 0334 | 4 | Declare_Variable Array,With_Constraint
0034 5017 |P | Indirect_Literal Any,0x4c,{0x5443502f, 0x49502020}
0035 e003 | | Load 0x0,0x3
0036 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0037 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0038 00db | | Load_Top At_Offset_3
0039 0335 | 5 | Declare_Variable Array,Duplicate
003a 00cd | | Action Spare6_Action
003b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
003c 00d8 | | Load_Top At_Offset_0
003d 0a02 | | Execute_Immediate Plus,0x2
003e 00d8 | | Load_Top At_Offset_0
003f 00e2 | | Load_Encached Integer_Cache
0040 0260 | ` | Execute Discrete,In_Type
0041 7001 |p | Jump_Nonzero 0x43
0042 0801 | | Execute_Immediate Raise,0x1
0043 e5ff | | Load 0x2,-0x1
0044 01dc | | Execute Vector,Last
0045 e5ff | | Load 0x2,-0x1
0046 01cf | | Execute Vector,Slice_Read
0047 0335 | 5 | Declare_Variable Array,Duplicate
0048 00cd | | Action Spare6_Action
0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004a 0000 0000 | | .XXX[0x2]
004c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055 | U | .CONST 0x0055 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0055 BODY_0050:
0055 e5fe | | Load 0x2,-0x2
0056 01db | | Execute Vector,Length
0057 6804 |h | Jump_Zero 0x5c
0058 e5fe | | Load 0x2,-0x2
0059 0335 | 5 | Declare_Variable Array,Duplicate
005a 00cd | | Action Spare6_Action
005b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
005c 8402 | | Call 0x2,0x2
005d 0831 | 1 | Execute_Immediate Raise,0x31
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0065 | e | .CONST 0x0065 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0065 BODY_0060:
0065 e5fe | | Load 0x2,-0x2
0066 01db | | Execute Vector,Length
0067 680b |h | Jump_Zero 0x73
0068 e5fe | | Load 0x2,-0x2
0069 0092 00a4 | | Action Push_String_Extended,0xa4 ; "<NONE>"
006b 01df | | Execute Vector,Equal
006c 6802 |h | Jump_Zero 0x6f
006d 00ea | | Load_Encached Null_String_Cache
006e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
006f e5fe | | Load 0x2,-0x2
0070 0335 | 5 | Declare_Variable Array,Duplicate
0071 00cd | | Action Spare6_Action
0072 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0073 8402 | | Call 0x2,0x2
0074 0831 | 1 | Execute_Immediate Raise,0x31
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0080 | | .CONST 0x0080 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e004 | | Load 0x0,0x4
007c 180e | | Execute Package,Field_Execute,Field_Number 0xe
007d e5ff | | Load 0x2,-0x1
007e e005 | | Load 0x0,0x5
007f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0080 BODY_0078:
0080 00d8 | | Load_Top At_Offset_0
0081 01db | | Execute Vector,Length
0082 6803 |h | Jump_Zero 0x86
0083 00d8 | | Load_Top At_Offset_0
0084 00cb | | Action Pop_Block_With_Result
0085 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0086 e5fd | | Load 0x2,-0x3
0087 0335 | 5 | Declare_Variable Array,Duplicate
0088 00cd | | Action Spare6_Action
0089 00cb | | Action Pop_Block_With_Result
008a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0098 | | .CONST 0x0098 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e004 | | Load 0x0,0x4
0094 180e | | Execute Package,Field_Execute,Field_Number 0xe
0095 e5ff | | Load 0x2,-0x1
0096 e005 | | Load 0x0,0x5
0097 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0098 BODY_0090:
0098 00d8 | | Load_Top At_Offset_0
0099 01db | | Execute Vector,Length
009a 6803 |h | Jump_Zero 0x9e
009b 00d8 | | Load_Top At_Offset_0
009c 00cb | | Action Pop_Block_With_Result
009d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
009e e5fd | | Load 0x2,-0x3
009f 0335 | 5 | Declare_Variable Array,Duplicate
00a0 00cd | | Action Spare6_Action
00a1 00cb | | Action Pop_Block_With_Result
00a2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00a3 ; --------------------------------------------------------------------------------------
00a3 ; STRING TABLE
00a3 ; --------------------------------------------------------------------------------------
00a3 0006 | | .STRTAB 0x0006->0x00a6 ; "!!"
00a4 0006 | | .STRTAB 0x0006->0x00a7 ; "<NONE>"
00a5 000a | | .STREND 0x000a->0x00aa
00a6 2121 3c4e |!!<N| .STRTAB_STRINGS
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b99,0x0000,0x0001,0x0000
00b6 0000 0000 | | .XXX[0xc]
00b8 000c 7600 | v |
00ba 000b 2440 | $@|
00bc 0000 0480 | |
00be 0142 0700 | B |
00c0 0000 0180 | |
00c2 0000 0000 | | .BLANK 0000[0x4]
00c6 0005 5500 | U | .XXX[0xa]
00c8 0004 ac20 | |
00ca 0000 0240 | @|
00cc 00a1 0400 | |
00ce 0000 00c0 | |
00d0 0000 0000 | | .BLANK 0000[0x4]
00d4 0002 3f80 | ? | .XXX[0xa]
00d6 0001 f310 | |
00d8 0000 0120 | |
00da 0050 8240 | P @|
00dc 0000 0060 | `|
00de 0000 0000 | | .BLANK 0000[0x5]
00e3 ea40 0000 | @ | .XXX[0x9]
00e5 c008 0000 | |
00e7 0090 0028 | (|
00e9 4140 0000 |A@ |
00eb 0030 | 0 |
00ec 0000 0000 | | .BLANK 0000[0x5]
00f1 55e0 0002 |U | .XXX[0x9]
00f3 68ec 0000 |h |
00f5 0048 0014 | H |
00f7 20b0 0000 | |
00f9 0018 | |
00fa 0000 0000 | | .BLANK 0000[0x5]
00ff 0d02 c081 | | .XXX[0x101]
0101 0000 04f3 | |
0103 c000 10f8 | |
0105 4000 01d0 |@ |
0107 4000 01d0 |@ |
0109 4081 0cc0 |@ |
010b 810c c081 | |
010d 0cc0 810c | |
010f c081 0cc0 | |
0111 810c c081 | |
0113 0cc0 810c | |
0115 c081 0cc0 | |
0117 810c c081 | |
0119 0cc0 810c | |
011b c081 0cc0 | |
011d 810c c028 | (|
011f 810c c081 | |
0121 0cc0 810c | |
0123 c081 0cc0 | |
0125 810c c081 | |
0127 0cc0 810c | |
0129 c081 0cc0 | |
012b 810c c081 | |
012d 0cc0 810c | |
012f c081 0cc0 | |
0131 810c c081 | |
0133 0cc0 810c | |
0135 c081 0cc0 | |
0137 8119 1481 | |
0139 1914 f829 | )|
013b 4161 310c |Aa1 |
013d 8149 4028 | I@(|
013f c4dc c8d0 | |
0141 80c8 e4c8 | |
0143 d481 6164 | ad|
0145 8118 c8e0 | |
0147 a16c a54c | l L|
0149 2961 4080 |)a@ |
014b bd18 d4d8 | |
014d 80bd 8db5 | |
014f cde4 e080 | |
0151 ccc0 c080 | |
0153 cccc b8c8 | |
0155 80cc ccb8 | |
0157 c880 c4c8 | |
0159 e081 6cb4 | l |
015b c480 b4cc | |
015d c880 cce0 | |
015f 80c8 d974 | t|
0161 8141 6131 | Aa1|
0163 3918 8149 |9 I|
0165 4029 6140 |@)a@|
0167 80bd 18d4 | |
0169 d880 c080 | |
016b c8dc 80cc | |
016d 80dc 80c8 | |
016f cc80 e480 | |
0171 c880 c8d0 | |
0173 80c0 28f1 | ( |
0175 1919 1919 | |
0177 18c0 8119 | |
0179 1919 1918 | |
017b c0f8 2941 | )A|
017d 6131 0c81 |a1 |
017f 4940 28c4 |I@( |
0181 dccc cc80 | |
0183 c8e4 c8d4 | |
0185 8161 6481 | ad |
0187 18d4 d8a1 | |
0189 70c0 c0c0 |p |
018b a54c 2961 | L)a|
018d 4080 bd18 |@ |
018f e0dc 80c8 | |
0191 d480 c8c0 | |
0193 80c4 80c0 | |
0195 80c4 e480 | |
0197 c4d0 80c4 | |
0199 d080 c8d0 | |
019b 80c0 28f0 | ( |
019d c119 1919 | |
019f 0cc0 80c5 | |
01a1 1919 190c | |
01a3 c080 c8c4 | |
01a5 c0e0 c0c0 | |
01a7 80d0 c4c4 | |
01a9 c0c0 c080 | |
01ab e0c4 c4c0 | |
01ad c0c0 80c0 | |
01af c8c4 c0c0 | |
01b1 c080 c0c8 | |
01b3 c4c0 c0c0 | |
01b5 80c0 c8c4 | |
01b7 c0c0 c080 | |
01b9 c0d8 c4c0 | |
01bb c0c0 2880 | ( |
01bd c0d0 c4c0 | |
01bf c0c0 80c1 | |
01c1 0cc4 c0c0 | |
01c3 c080 c10c | |
01c5 c4e0 c0c0 | |
01c7 80c4 e0c4 | |
01c9 e0c0 c080 | |
01cb c4e0 c0e0 | |
01cd c0c0 f829 | )|
01cf 4161 310c |Aa1 |
01d1 8149 4028 | I@(|
01d3 c4dc d8c4 | |
01d5 80c8 e4c8 | |
01d7 d481 6164 | ad|
01d9 8118 e0dc | |
01db a170 c0cc | p |
01dd c4a5 4c80 | L |
01df c481 e0a0 | |
01e1 eca5 4c80 | L |
01e3 d881 e0a1 | |
01e5 70c0 ccc4 |p |
01e7 a54c 80c4 | L |
01e9 81e0 8118 | |
01eb c8e0 a170 | p|
01ed a4a5 4c80 | L |
01ef c4c4 81e0 | |
01f1 8118 d4d4 | |
01f3 28a1 c985 |( |
01f5 91a5 85b9 | |
01f7 ccb0 a54c | L|
01f9 80c4 c481 | |
01fb e0a1 85b9 | |
01fd 90a5 4c80 | L |
01ff c4c4 | |