|
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 0108 | | .CONST 0x0108 ; 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 0029 | ) | .CONST 0x0029 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1
000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0010 e001 | | Load 0x0,0x1
0011 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0012 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0014 4802 |H | Short_Literal 0x2
0015 032e | . | Declare_Type Record,Defined,Visible
0016 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
0018 e002 | | Load 0x0,0x2
0019 e003 | | Load 0x0,0x3
001a 4864 |Hd | Short_Literal 0x64
001b e20d | | Load 0x1,0xd
001c e20e | | Load 0x1,0xe
001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001e e004 | | Load 0x0,0x4
001f 0386 | | Declare_Variable Package,Visible
0020 00d8 | | Load_Top At_Offset_0
0021 020f | | Execute Module,Activate
0022 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0024 00bf | | Action Accept_Activation
0025 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0026 00c7 | | Action Elaborate_Subprogram
0027 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0028 00c7 | | Action Elaborate_Subprogram
0029 BODY_0008:
0029 00bc | | Action Signal_Activated
002a 00bb | | Action Signal_Completion
002b 0000 0000 | | .BLANK 0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0038 | 8 | .CONST 0x0038 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0003 | | .CONST 0x0003 ; Number of locals
0033 INIT_0030:
0033 00da | | Load_Top At_Offset_2
0034 e005 | | Load 0x0,0x5
0035 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0036 00e2 | | Load_Encached Integer_Cache
0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0038 BODY_0030:
0038 00cf | | Action Mark_Auxiliary
0039 00da | | Load_Top At_Offset_2
003a 01d9 | | Execute Vector,Reverse_Bounds
003b 0263 | c | Execute Discrete,Above_Bound
003c 7008 |p | Jump_Nonzero 0x45
003d 00db | | Load_Top At_Offset_3
003e 00d9 | | Load_Top At_Offset_1
003f e402 | | Load 0x2,0x2
0040 01d7 | | Execute Vector,Field_Read
0041 0273 | s | Execute Discrete,Plus
0042 c403 | | Store 0x2,0x3
0043 00c8 | | Action Pop_Auxiliary_Range
0044 3ff8 |? | Loop_Increasing 0x3d
0045 00ce | | Action Pop_Auxiliary
0046 00d8 | | Load_Top At_Offset_0
0047 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0068 | h | .CONST 0x0068 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0008 | | .CONST 0x0008 ; Number of locals
004b INIT_0048:
004b e001 | | Load 0x0,0x1
004c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
004d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004e 02c7 | | Declare_Variable Any
004f 00db | | Load_Top At_Offset_3
0050 a402 | | Store_Unchecked 0x2,0x2
0051 e001 | | Load 0x0,0x1
0052 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0053 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0054 02c7 | | Declare_Variable Any
0055 e5fe | | Load 0x2,-0x2
0056 a403 | | Store_Unchecked 0x2,0x3
0057 e001 | | Load 0x0,0x1
0058 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0059 02c7 | | Declare_Variable Any
005a 00d8 | | Load_Top At_Offset_0
005b 1c00 | | Execute_Immediate Run_Utility,0x0
005c e001 | | Load 0x0,0x1
005d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005e 02c7 | | Declare_Variable Any
005f 00d8 | | Load_Top At_Offset_0
0060 1c00 | | Execute_Immediate Run_Utility,0x0
0061 e20e | | Load 0x1,0xe
0062 0322 | " | Declare_Variable Record
0063 00d8 | | Load_Top At_Offset_0
0064 1c00 | | Execute_Immediate Run_Utility,0x0
0065 00e1 | | Load_Encached Boolean_Cache
0066 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0068 BODY_0048:
0068 00cf | | Action Mark_Auxiliary
0069 7816 |x | Jump 0x80
006a e402 | | Load 0x2,0x2
006b e001 | | Load 0x0,0x1
006c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
006d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006e c404 | | Store 0x2,0x4
006f e5fd | | Load 0x2,-0x3
0070 4800 |H | Short_Literal 0x0
0071 e404 | | Load 0x2,0x4
0072 e005 | | Load 0x0,0x5
0073 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0074 c405 | | Store 0x2,0x5
0075 e405 | | Load 0x2,0x5
0076 e001 | | Load 0x0,0x1
0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0078 7001 |p | Jump_Nonzero 0x7a
0079 8408 | | Call 0x2,0x8
007a e402 | | Load 0x2,0x2
007b e001 | | Load 0x0,0x1
007c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
007d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007e c402 | | Store 0x2,0x2
007f 00c9 | | Action Pop_Auxiliary_Loop
0080 e402 | | Load 0x2,0x2
0081 e001 | | Load 0x0,0x1
0082 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0084 6fe5 |o | Jump_Zero 0x6a
0085 00c9 | | Action Pop_Auxiliary_Loop
0086 7838 |x8 | Jump 0xbf
0087 e5fd | | Load 0x2,-0x3
0088 4800 |H | Short_Literal 0x0
0089 e403 | | Load 0x2,0x3
008a e005 | | Load 0x0,0x5
008b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
008c c404 | | Store 0x2,0x4
008d e5fd | | Load 0x2,-0x3
008e 4800 |H | Short_Literal 0x0
008f e404 | | Load 0x2,0x4
0090 e005 | | Load 0x0,0x5
0091 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0092 c405 | | Store 0x2,0x5
0093 e405 | | Load 0x2,0x5
0094 e001 | | Load 0x0,0x1
0095 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0096 701b |p | Jump_Nonzero 0xb2
0097 00e1 | | Load_Encached Boolean_Cache
0098 e406 | | Load 0x2,0x6
0099 e405 | | Load 0x2,0x5
009a e5fc | | Load 0x2,-0x4
009b e210 | | Load 0x1,0x10
009c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009d 00d1 | | Pop_Control Pop_Count_1
009e 005b | [ | Store_Top Discrete,At_Offset_3
009f 00da | | Load_Top At_Offset_2
00a0 7008 |p | Jump_Nonzero 0xa9
00a1 e404 | | Load 0x2,0x4
00a2 e406 | | Load 0x2,0x6
00a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a4 e001 | | Load 0x0,0x1
00a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a6 e406 | | Load 0x2,0x6
00a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a8 7809 |x | Jump 0xb2
00a9 00db | | Load_Top At_Offset_3
00aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ab e001 | | Load 0x0,0x1
00ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ad 7001 |p | Jump_Nonzero 0xaf
00ae 7803 |x | Jump 0xb2
00af e404 | | Load 0x2,0x4
00b0 e406 | | Load 0x2,0x6
00b1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b2 e5fc | | Load 0x2,-0x4
00b3 4800 |H | Short_Literal 0x0
00b4 e406 | | Load 0x2,0x6
00b5 e405 | | Load 0x2,0x5
00b6 e210 | | Load 0x1,0x10
00b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b8 c5fc | | Store 0x2,-0x4
00b9 e403 | | Load 0x2,0x3
00ba e001 | | Load 0x0,0x1
00bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00bd c403 | | Store 0x2,0x3
00be 00c9 | | Action Pop_Auxiliary_Loop
00bf e403 | | Load 0x2,0x3
00c0 e001 | | Load 0x0,0x1
00c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00c3 6fc3 |o | Jump_Zero 0x87
00c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 00e1 | | .CONST 0x00e1 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e5fc | | Load 0x2,-0x4
00cc 4801 |H | Short_Literal 0x1
00cd e20e | | Load 0x1,0xe
00ce 0322 | " | Declare_Variable Record
00cf e404 | | Load 0x2,0x4
00d0 e20e | | Load 0x1,0xe
00d1 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00d2 0119 | | Execute Any,Check_In_Formal_Type
00d3 00d9 | | Load_Top At_Offset_1
00d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d5 e001 | | Load 0x0,0x1
00d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d7 e20e | | Load 0x1,0xe
00d8 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
00d9 0119 | | Execute Any,Check_In_Formal_Type
00da 00d9 | | Load_Top At_Offset_1
00db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00dc e405 | | Load 0x2,0x5
00dd e210 | | Load 0x1,0x10
00de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00df c5fc | | Store 0x2,-0x4
00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e1 TRAP_00c8:
00e1 e210 | | Load 0x1,0x10
00e2 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
00e3 010f | | Execute Exception,Equal
00e4 6801 |h | Jump_Zero 0xe6
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 0100 | | Execute Exception,Raise
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4608 |F | Jump_Case 0x9
00ec 7808 |x | Jump 0xf5 ; case 0x0
00ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ee 7813 |x | Jump 0x102 ; case 0x2
00ef 7812 |x | Jump 0x102 ; case 0x3
00f0 7811 |x | Jump 0x102 ; case 0x4
00f1 7810 |x | Jump 0x102 ; case 0x5
00f2 780f |x | Jump 0x102 ; case 0x6
00f3 780e |x | Jump 0x102 ; case 0x7
00f4 780d |x | Jump 0x102 ; case 0x8
00f5 00da | | Load_Top At_Offset_2
00f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f7 0125 | % | Execute Any,Set_Constraint
00f8 00da | | Load_Top At_Offset_2
00f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00fa 1c00 | | Execute_Immediate Run_Utility,0x0
00fb 00da | | Load_Top At_Offset_2
00fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00fd 0125 | % | Execute Any,Set_Constraint
00fe 00da | | Load_Top At_Offset_2
00ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0100 1c00 | | Execute_Immediate Run_Utility,0x0
0101 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0102 0869 | i | Execute_Immediate Raise,0x69
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 000d | | .DEBUG4 0x0004,0x000d,0x509e,0x0000,0x0001,0x0000
010e 2800 035b |( [| .XXX[0x3]
0110 f800 | |
0111 0000 0000 | | .BLANK 0000[0x6]
0117 01ad fc00 | | .XXX[0xa]
0119 0000 0000 | |
011b 0009 c000 | |
011d 033d a800 | = |
011f 0000 0200 | |
0121 0000 0000 | | .BLANK 0000[0x4]
0125 035b f800 | [ | .XXX[0x2]
0127 0000 0000 | | .BLANK 0000[0x14]
013b 0001 9d80 | | .XXX[0x9]
013d 8000 0000 | |
013f 1f80 0000 | |
0141 0000 0074 | t|
0143 1800 | |
0144 0000 0000 | | .BLANK 0000[0x10]
0154 000e f000 | | .XXX[0x4]
0156 01e1 7800 | x |
0158 0000 0000 | | .BLANK 0000[0x5]
015d 0800 0000 | | .XXX[0x17]
015f 9000 0000 | |
0161 8000 0000 | |
0163 6000 0002 |` |
0165 4000 007b |@ {|
0167 8000 0000 | |
0169 8071 e480 | q |
016b 0000 67a8 | g |
016d 2c00 0000 |, |
016f 0240 0000 | @ |
0171 0000 0000 | |
0173 0020 | |
0174 0000 0000 | | .BLANK 0000[0xc]
0180 0001 e6dc | | .XXX[0x2]
0182 0000 0000 | | .BLANK 0000[0x5]
0187 1fb8 0000 | | .XXX[0x15]
0189 004d 0925 | M %|
018b 517d 3d41 |Q}=A|
018d 1549 0551 | I Q|
018f 253d 394c |%=9L|
0191 9d4d 4115 | MA |
0193 0c00 01e1 | |
0195 7800 01d0 |x |
0197 6000 0000 |` |
0199 0000 09a0 | |
019b 4600 |F |
019c 0000 0000 | | .BLANK 0000[0xf]
01ab 6780 2000 |g | .XXX[0x8]
01ad 0000 07e0 | |
01af 0000 0000 | |
01b1 001e c280 | |
01b3 0000 0000 | | .BLANK 0000[0xc]
01bf 0809 8200 | | .XXX[0x8]
01c1 0000 0000 | |
01c3 0003 bc00 | |
01c5 0407 1900 | |
01c7 0000 0000 | | .BLANK 0000[0x5]
01cc 0200 0000 | | .XXX[0x17]
01ce 2400 0000 |$ |
01d0 0000 0000 | |
01d2 0800 0000 | |
01d4 9000 001f | |
01d6 e000 0000 | |
01d8 2098 57a0 | W |
01da 0000 1a19 | |
01dc 4b00 0000 |K |
01de 0090 0000 | |
01e0 0000 0000 | |
01e2 0008 | |
01e3 0000 0000 | | .BLANK 0000[0xd]
01f0 8109 | | .XXX[0x1]
01f1 0000 0000 | | .BLANK 0000[0x5]
01f6 07e2 0000 | | .XXX[0xa]
01f8 001f 434f | CO|
01fa 4445 5f53 |DE_S|
01fc 4547 4d45 |EGME|
01fe 4e54 5f4f |NT_O|