|
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_6a18da
└─⟦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 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 000c | | .DEBUG4 0x0004,0x000c,0x0003,0x0000,0x0001,0x0000
012e 1000 0157 | W| .XXX[0x9b]
0130 6600 002e |f .|
0132 c4f1 a7e0 | |
0134 05e4 f800 | |
0136 0000 005d | ]|
0138 2dc0 1751 |- Q|
013a 6005 d635 |` 5|
013c 1423 005d | # ]|
013e 2dc0 0000 |- |
0140 0010 c030 | 0|
0142 0be4 c401 | |
0144 758d 0000 |u |
0146 2e77 e000 |.w |
0148 a000 0000 | |
014a 02e7 7f08 | |
014c 9000 5cca | \ |
014e c000 0000 | |
0150 05d2 0a76 | v|
0152 2e00 b995 |. |
0154 8000 0000 | |
0156 02c0 6017 | ` |
0158 ae2c d42c | , ,|
015a 0173 2b00 | s+ |
015c 0000 0009 | |
015e 00c0 2f93 | / |
0160 1000 094e | N|
0162 2e00 0000 |. |
0164 234f c00b |#O |
0166 c9f0 0000 | |
0168 0000 bbe7 | |
016a 002f 05a0 | / |
016c 0bc5 2228 | "(|
016e 4600 bbe7 |F |
0170 0000 0000 | |
0172 1580 6017 | ` |
0174 c988 02f1 | |
0176 4800 005d |H ]|
0178 b580 00c0 | |
017a 0000 0005 | |
017c db5a 1120 | Z |
017e 00bb 2100 | ! |
0180 0000 000b | |
0182 bccc ec5c | \|
0184 0176 4200 | vB |
0186 0000 0005 | |
0188 80c0 2f5c | /\|
018a 59a8 5802 |Y X |
018c ec84 0000 | |
018e 0000 8101 | |
0190 805f 2620 | _& |
0192 0012 a41e | |
0194 1928 00b2 | ( |
0196 7800 0000 |x |
0198 000b 2a78 | *x|
019a 000b ce70 | p|
019c 0000 0000 | |
019e 0014 0005 | |
01a0 e838 0000 | 8 |
01a2 0000 0000 | |
01a4 0010 0005 | |
01a6 eb38 0000 | 8 |
01a8 0000 0005 | |
01aa f508 0000 | |
01ac 0000 0005 | |
01ae edac 0000 | |
01b0 0000 0005 | |
01b2 ecb8 0000 | |
01b4 b2ff 0000 | |
01b6 0000 002f | /|
01b8 8100 0000 | |
01ba 0000 002f | /|
01bc 7960 0005 |y` |
01be a8c0 0000 | |
01c0 0000 017c | ||
01c2 a500 0000 | |
01c4 0000 017c | ||
01c6 6800 002d |h -|
01c8 f0a0 | |
01c9 0000 0000 | | .BLANK 0000[0x6]
01cf 0be8 2800 | ( | .XXX[0x4]
01d1 0173 bf00 | s |
01d3 0000 0000 | | .BLANK 0000[0x6]
01d9 5f68 8000 |_h | .XXX[0x27]
01db 0bb6 b000 | |
01dd 0001 005f | _|
01df 8500 1630 | 0|
01e1 7003 1d4d |p M|
01e3 0440 00e9 | @ |
01e5 6580 17f8 |e |
01e7 f005 fae4 | |
01e9 017f 3000 | 0 |
01eb 03ce c5c0 | |
01ed 17e2 f000 | |
01ef 0000 0370 | p|
01f1 0000 0000 | |
01f3 8449 802f | I /|
01f5 c5e0 0000 | |
01f7 0000 0001 | |
01f9 0760 5a00 | `Z |
01fb 0000 0002 | |
01fd 20c7 a01d | |
01ff 2cb0 |, |