|
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_5850da
└─⟦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 0128 | ( | .CONST 0x0128 ; 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 0064 | d | .CONST 0x0064 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 e001 | | Load 0x0,0x1
0024 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0025 0129 | ) | Execute Any,Make_Visible
0026 c219 | | Store 0x1,0x19
0027 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0029 c21a | | Store 0x1,0x1a
002a 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
002c c21b | | Store 0x1,0x1b
002d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
002f c21c | | Store 0x1,0x1c
0030 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0032 c21d | | Store 0x1,0x1d
0033 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0035 c21e | | Store 0x1,0x1e
0036 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0038 c21f | | Store 0x1,0x1f
0039 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
003b c220 | | Store 0x1,0x20
003c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
003e c221 | ! | Store 0x1,0x21
003f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0041 c222 | " | Store 0x1,0x22
0042 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0044 c223 | # | Store 0x1,0x23
0045 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0047 c224 | $ | Store 0x1,0x24
0048 00bf | | Action Accept_Activation
0049 4801 |H | Short_Literal 0x1
004a 0275 | u | Execute Discrete,Unary_Minus
004b e002 | | Load 0x0,0x2
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 011e | | Execute Any,Convert
004e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004f 00c7 | | Action Elaborate_Subprogram
0050 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0055 00c7 | | Action Elaborate_Subprogram
0056 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0059 00c7 | | Action Elaborate_Subprogram
005a 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005b 00c7 | | Action Elaborate_Subprogram
005c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
005d 00c7 | | Action Elaborate_Subprogram
005e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
005f 00c7 | | Action Elaborate_Subprogram
0060 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0061 00c7 | | Action Elaborate_Subprogram
0062 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0063 00c7 | | Action Elaborate_Subprogram
0064 BODY_0008:
0064 00bc | | Action Signal_Activated
0065 00bb | | Action Signal_Completion
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00db | | Load_Top At_Offset_3
006c 00db | | Load_Top At_Offset_3
006d e003 | | Load 0x0,0x3
006e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006f e004 | | Load 0x0,0x4
0070 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0071 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0072 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00db | | Load_Top At_Offset_3
007c 00db | | Load_Top At_Offset_3
007d e003 | | Load 0x0,0x3
007e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007f e004 | | Load 0x0,0x4
0080 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0081 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0082 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00db | | Load_Top At_Offset_3
008c 00db | | Load_Top At_Offset_3
008d e003 | | Load 0x0,0x3
008e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
008f e004 | | Load 0x0,0x4
0090 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0091 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0092 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00db | | Load_Top At_Offset_3
009c 00db | | Load_Top At_Offset_3
009d e003 | | Load 0x0,0x3
009e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
009f e004 | | Load 0x0,0x4
00a0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3
00ac 00db | | Load_Top At_Offset_3
00ad e003 | | Load 0x0,0x3
00ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00af e004 | | Load 0x0,0x4
00b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 00c3 | | .CONST 0x00c3 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3
00bc 00db | | Load_Top At_Offset_3
00bd e003 | | Load 0x0,0x3
00be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00bf e004 | | Load 0x0,0x4
00c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c3 TRAP_00b8:
00c3 e005 | | Load 0x0,0x5
00c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00c5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00c6 010f | | Execute Exception,Equal
00c7 6817 |h | Jump_Zero 0xdf
00c8 e5fe | | Load 0x2,-0x2
00c9 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00ca 0f6d | m | Execute_Immediate Equal,0x6d
00cb 6811 |h | Jump_Zero 0xdd
00cc e5fe | | Load 0x2,-0x2
00cd 00eb | | Load_Encached Diana_Cache
00ce 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
00cf 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00d0 0f66 | f | Execute_Immediate Equal,0x66
00d1 680b |h | Jump_Zero 0xdd
00d2 e5fe | | Load 0x2,-0x2
00d3 00eb | | Load_Encached Diana_Cache
00d4 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
00d5 4908 |I | Short_Literal 0x108
00d6 00eb | | Load_Encached Diana_Cache
00d7 0096 | | Execute Package,Entry
00d8 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00d9 0f64 | d | Execute_Immediate Equal,0x64
00da 6802 |h | Jump_Zero 0xdd
00db 4800 |H | Short_Literal 0x0
00dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00dd 00d8 | | Load_Top At_Offset_0
00de 0101 | | Execute Exception,Reraise
00df 0100 | | Execute Exception,Raise
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 00eb | | .CONST 0x00eb ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 00db | | Load_Top At_Offset_3
00e5 e003 | | Load 0x0,0x3
00e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e7 e004 | | Load 0x0,0x4
00e8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00eb TRAP_00e0:
00eb e005 | | Load 0x0,0x5
00ec 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ed 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00ee 010f | | Execute Exception,Equal
00ef 6817 |h | Jump_Zero 0x107
00f0 e5fe | | Load 0x2,-0x2
00f1 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00f2 0f6d | m | Execute_Immediate Equal,0x6d
00f3 6811 |h | Jump_Zero 0x105
00f4 e5fe | | Load 0x2,-0x2
00f5 00eb | | Load_Encached Diana_Cache
00f6 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
00f7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00f8 0f66 | f | Execute_Immediate Equal,0x66
00f9 680b |h | Jump_Zero 0x105
00fa e5fe | | Load 0x2,-0x2
00fb 00eb | | Load_Encached Diana_Cache
00fc 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
00fd 4908 |I | Short_Literal 0x108
00fe 00eb | | Load_Encached Diana_Cache
00ff 0096 | | Execute Package,Entry
0100 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0101 0f64 | d | Execute_Immediate Equal,0x64
0102 6802 |h | Jump_Zero 0x105
0103 4801 |H | Short_Literal 0x1
0104 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0105 00d8 | | Load_Top At_Offset_0
0106 0101 | | Execute Exception,Reraise
0107 0100 | | Execute Exception,Raise
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c e5fe | | Load 0x2,-0x2
010d e003 | | Load 0x0,0x3
010e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e225 | % | Load 0x1,0x25
0114 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e225 | % | Load 0x1,0x25
011c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e225 | % | Load 0x1,0x25
0124 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0004 000d | | .DEBUG4 0x0004,0x000d,0x507d,0x0000,0x0001,0x0000
012e 0000 0000 | | .BLANK 0000[0xc]
013a 0004 00a0 | | .XXX[0xc]
013c 0000 0000 | |
013e 0000 0800 | |
0140 0000 4400 | D |
0142 0000 0020 | |
0144 0000 0140 | @|
0146 0000 0000 | | .BLANK 0000[0x2e]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]