|
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_0d2ce3
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0058 | X | .CONST 0x0058 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c e002 | | Load 0x0,0x2
000d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
000e 00db | | Load_Top At_Offset_3
000f e003 | | Load 0x0,0x3
0010 0386 | | Declare_Variable Package,Visible
0011 00d8 | | Load_Top At_Offset_0
0012 020f | | Execute Module,Activate
0013 00d8 | | Load_Top At_Offset_0
0014 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0015 0129 | ) | Execute Any,Make_Visible
0016 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0018 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
001a 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
001c 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001e 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0020 e004 | | Load 0x0,0x4
0021 e005 | | Load 0x0,0x5
0022 e212 | | Load 0x1,0x12
0023 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0024 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0025 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0026 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0027 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0028 482f |H/ | Short_Literal 0x2f
0029 603e |`> | Indirect_Literal Discrete,0x68,{0x7fffffff, 0xffffffff}
002a e006 | | Load 0x0,0x6
002b 0386 | | Declare_Variable Package,Visible
002c 00d8 | | Load_Top At_Offset_0
002d 020f | | Execute Module,Activate
002e 00bf | | Action Accept_Activation
002f e007 | | Load 0x0,0x7
0030 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0031 0266 | f | Execute Discrete,Bounds
0032 e211 | | Load 0x1,0x11
0033 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 4801 |H | Short_Literal 0x1
0036 035d | ] | Declare_Type Array,Defined
0037 00d8 | | Load_Top At_Offset_0
0038 0337 | 7 | Declare_Variable Array
0039 00d8 | | Load_Top At_Offset_0
003a 0335 | 5 | Declare_Variable Array,Duplicate
003b 00cd | | Action Spare6_Action
003c 4800 |H | Short_Literal 0x0
003d 4800 |H | Short_Literal 0x0
003e 00da | | Load_Top At_Offset_2
003f 01d6 | | Execute Vector,Field_Write
0040 4801 |H | Short_Literal 0x1
0041 4801 |H | Short_Literal 0x1
0042 00da | | Load_Top At_Offset_2
0043 01d6 | | Execute Vector,Field_Write
0044 4802 |H | Short_Literal 0x2
0045 4802 |H | Short_Literal 0x2
0046 00da | | Load_Top At_Offset_2
0047 01d6 | | Execute Vector,Field_Write
0048 4801 |H | Short_Literal 0x1
0049 4803 |H | Short_Literal 0x3
004a 00da | | Load_Top At_Offset_2
004b 01d6 | | Execute Vector,Field_Write
004c 00d9 | | Load_Top At_Offset_1
004d 01d4 | | Execute Vector,Structure_Write
004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004f 00c7 | | Action Elaborate_Subprogram
0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0051 00c7 | | Action Elaborate_Subprogram
0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0053 00c7 | | Action Elaborate_Subprogram
0054 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0055 00c7 | | Action Elaborate_Subprogram
0056 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0057 00c7 | | Action Elaborate_Subprogram
0058 BODY_0008:
0058 00bc | | Action Signal_Activated
0059 00bb | | Action Signal_Completion
005a 0000 0000 | | .BLANK 0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e211 | | Load 0x1,0x11
0065 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0066 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0067 0000 | | .XXX[0x1]
0068 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0075 | u | .CONST 0x0075 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 e212 | | Load 0x1,0x12
0074 0007 | | Action Break_Optional
0075 BODY_0070:
0075 e211 | | Load 0x1,0x11
0076 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0077 e5fd | | Load 0x2,-0x3
0078 00ea | | Load_Encached Null_String_Cache
0079 e5fe | | Load 0x2,-0x2
007a e5ff | | Load 0x2,-0x1
007b e21a | | Load 0x1,0x1a
007c 01d7 | | Execute Vector,Field_Read
007d e211 | | Load 0x1,0x11
007e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0080 00d8 | | Load_Top At_Offset_0
0081 a5fc | | Store_Unchecked 0x2,-0x4
0082 00d8 | | Load_Top At_Offset_0
0083 e211 | | Load 0x1,0x11
0084 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0085 a5fb | | Store_Unchecked 0x2,-0x5
0086 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0087 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
008c e211 | | Load 0x1,0x11
008d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
008f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e211 | | Load 0x1,0x11
0095 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
009c e211 | | Load 0x1,0x11
009d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x78ad,0x0000,0x0001,0x0000
00a6 00c4 036f | o| .XXX[0x10f]
00a8 900c 036b | k|
00aa 900a 002f | /|
00ac 102c 036d | , m|
00ae c053 8020 | S |
00b0 6039 201c |`9 |
00b2 0248 2f57 | H/W|
00b4 8024 604f | $`O|
00b6 9024 03a8 | $ |
00b8 036d 2007 | m |
00ba 8008 6057 | `W|
00bc 1027 9027 | ' '|
00be 8008 6073 | `s|
00c0 1026 0879 | & y|
00c2 1410 036f | o|
00c4 9014 036b | k|
00c6 9012 002f | /|
00c8 102c 036d | , m|
00ca c053 8020 | S |
00cc 6039 201c |`9 |
00ce 0248 2f5b | H/[|
00d0 8024 604f | $`O|
00d2 9024 03a8 | $ |
00d4 036d 2007 | m |
00d6 8008 6057 | `W|
00d8 1027 9027 | ' '|
00da 8008 6073 | `s|
00dc 1026 0879 | & y|
00de 1410 036c | l|
00e0 03a8 036b | k|
00e2 901a 002f | /|
00e4 102c 036d | , m|
00e6 c053 8020 | S |
00e8 6039 201c |`9 |
00ea 0248 2f5f | H/_|
00ec 8024 604f | $`O|
00ee 9024 03a8 | $ |
00f0 036d 2007 | m |
00f2 8008 6057 | `W|
00f4 1027 9027 | ' '|
00f6 8008 6073 | `s|
00f8 1026 0879 | & y|
00fa 1410 036c | l|
00fc 03a8 036b | k|
00fe 901e 002f | /|
0100 102c 036d | , m|
0102 c053 8020 | S |
0104 6039 201c |`9 |
0106 0248 2f63 | H/c|
0108 8024 604f | $`O|
010a 9024 03a8 | $ |
010c 036d 2007 | m |
010e 8008 6057 | `W|
0110 1027 9027 | ' '|
0112 8008 6073 | `s|
0114 1026 0879 | & y|
0116 1413 9028 | (|
0118 0248 2f66 | H/f|
011a 0030 0347 | 0 G|
011c 9023 902a | # *|
011e 0034 0348 | 4 H|
0120 033d e0b7 | = |
0122 9022 0875 | " u|
0124 c097 902c | ,|
0126 03a8 036f | o|
0128 9023 8010 | # |
012a 604e 002f |`N /|
012c 102f 902d | / -|
012e c06f 8020 | o |
0130 6039 201c |`9 |
0132 0248 2f6b | H/k|
0134 9023 8010 | # |
0136 604c 0730 |`L 0|
0138 0248 2f6c | H/l|
013a 0733 8024 | 3 $|
013c 604f 9024 |`O $|
013e 03ab 9035 | 5|
0140 2007 8008 | |
0142 6057 1027 |`W '|
0144 9027 8008 | ' |
0146 6073 1026 |`s &|
0148 0879 1413 | y |
014a 9023 902a | # *|
014c 0034 0348 | 4 H|
014e 0327 902a | ' *|
0150 0039 bf40 | 9 @|
0152 033b 9028 | ; (|
0154 0248 2f72 | H/r|
0156 0030 0347 | 0 G|
0158 9023 902a | # *|
015a 0034 0348 | 4 H|
015c 033d e0b7 | = |
015e 9022 0875 | " u|
0160 c097 902c | ,|
0162 03a8 036f | o|
0164 9023 8010 | # |
0166 604e 002f |`N /|
0168 102f 902d | / -|
016a c06f 8020 | o |
016c 6039 201c |`9 |
016e 0248 2f6b | H/k|
0170 9023 8010 | # |
0172 604c 0730 |`L 0|
0174 0248 2f6c | H/l|
0176 0733 8024 | 3 $|
0178 604f 9024 |`O $|
017a 03ab 9035 | 5|
017c 2007 8008 | |
017e 6057 1027 |`W '|
0180 9027 8008 | ' |
0182 6073 1026 |`s &|
0184 0879 1413 | y |
0186 9023 902a | # *|
0188 0034 0348 | 4 H|
018a 0327 902a | ' *|
018c 0039 bf40 | 9 @|
018e 0338 0361 | 8 a|
0190 2006 003c | <|
0192 00c5 2003 | |
0194 97f9 2000 | |
0196 03ab 97ff | |
0198 9036 0043 | 6 C|
019a 9024 03a8 | $ |
019c 036d 2007 | m |
019e 8008 6057 | `W|
01a0 1027 9027 | ' '|
01a2 8008 6073 | `s|
01a4 1026 0879 | & y|
01a6 1410 0000 | |
01a8 0000 0002 | |
01aa 0000 0000 | |
01ac 000c 0002 | |
01ae 0000 0000 | |
01b0 0008 0002 | |
01b2 0000 0000 | |
01b4 0004 | |
01b5 0000 0000 | | .BLANK 0000[0x5]
01ba 07d4 0010 | | .XXX[0x46]
01bc 0051 2143 | Q!C|
01be 8044 6c38 | Dl8|
01c0 7020 0360 |p `|
01c2 7000 03a9 |p |
01c4 2143 8010 |!C |
01c6 6c38 7020 |l8p |
01c8 0360 7001 | `p |
01ca 2143 8010 |!C |
01cc 6c38 7020 |l8p |
01ce 0360 7001 | `p |
01d0 207b 8010 | { |
01d2 6c38 7020 |l8p |
01d4 0360 7003 | `p |
01d6 8014 0c88 | |
01d8 0360 7000 | `p |
01da 0384 0fa4 | |
01dc 0fa4 0fa7 | |
01de 8048 0cdf | H |
01e0 804c 001f | L |
01e2 8050 001f | P |
01e4 8054 0c88 | T |
01e6 0360 7003 | `p |
01e8 8008 6c34 | l4|
01ea 0b1c 0360 | `|
01ec 7003 8018 |p |
01ee 6c3c 0b1c |l< |
01f0 0360 7003 | `p |
01f2 8058 001f | X |
01f4 801c 0a7c | ||
01f6 27ef 97f0 |' |
01f8 0248 2f50 | H/P|
01fa 0779 a02c | y ,|
01fc 036f 97f3 | o |
01fe 8020 6137 | a7|