|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0760cf
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001f | | .CONST 0x001f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0010 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0012 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0016 00bf | | Action Accept_Activation 0017 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0018 00c7 | | Action Elaborate_Subprogram 0019 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001a 00c7 | | Action Elaborate_Subprogram 001b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001c 00c7 | | Action Elaborate_Subprogram 001d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001e 00c7 | | Action Elaborate_Subprogram 001f BODY_0008: 001f 00bc | | Action Signal_Activated 0020 00bb | | Action Signal_Completion 0021 0000 0000 | | .BLANK 0000[0x7] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b e002 | | Load 0x0,0x2 002c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002d e002 | | Load 0x0,0x2 002e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002f 003b | ; | Store_Top Access,At_Offset_3 0030 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0031 0000 0000 | | .BLANK 0000[0x7] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0045 | E | .CONST 0x0045 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0006 | | .CONST 0x0006 ; Number of locals 003b INIT_0038: 003b 00e3 | | Load_Encached Natural_Cache 003c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 003d e003 | | Load 0x0,0x3 003e 0322 | " | Declare_Variable Record 003f 00d8 | | Load_Top At_Offset_0 0040 0322 | " | Declare_Variable Record 0041 e002 | | Load 0x0,0x2 0042 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0043 00e1 | | Load_Encached Boolean_Cache 0044 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0045 BODY_0038: 0045 e5fe | | Load 0x2,-0x2 0046 e002 | | Load 0x0,0x2 0047 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0048 7041 |pA | Jump_Nonzero 0x8a 0049 00cf | | Action Mark_Auxiliary 004a 00d9 | | Load_Top At_Offset_1 004b 0f01 | | Execute_Immediate Equal,0x1 004c 703b |p; | Jump_Nonzero 0x88 004d e002 | | Load 0x0,0x2 004e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 004f e5fe | | Load 0x2,-0x2 0050 e002 | | Load 0x0,0x2 0051 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0052 003b | ; | Store_Top Access,At_Offset_3 0053 00cf | | Action Mark_Auxiliary 0054 00db | | Load_Top At_Offset_3 0055 e002 | | Load 0x0,0x2 0056 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0057 7005 |p | Jump_Nonzero 0x5d 0058 00db | | Load_Top At_Offset_3 0059 e002 | | Load 0x0,0x2 005a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005b e403 | | Load 0x2,0x3 005c 017d | } | Execute Record,Structure_Write 005d 00db | | Load_Top At_Offset_3 005e e002 | | Load 0x0,0x2 005f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0060 e403 | | Load 0x2,0x3 0061 8004 | | Call 0x0,0x4 0062 8005 | | Call 0x0,0x5 0063 e402 | | Load 0x2,0x2 0064 027f | | Execute Discrete,Equal 0065 0278 | x | Execute Discrete,Or 0066 7006 |p | Jump_Nonzero 0x6d 0067 00db | | Load_Top At_Offset_3 0068 e002 | | Load 0x0,0x2 0069 181a | | Execute Package,Field_Execute,Field_Number 0x1a 006a c405 | | Store 0x2,0x5 006b 00c9 | | Action Pop_Auxiliary_Loop 006c 7fe7 | | Jump 0x54 006d 00ce | | Action Pop_Auxiliary 006e 00da | | Load_Top At_Offset_2 006f e002 | | Load 0x0,0x2 0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0071 6811 |h | Jump_Zero 0x83 0072 4801 |H | Short_Literal 0x1 0073 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0074 00db | | Load_Top At_Offset_3 0075 e402 | | Load 0x2,0x2 0076 8006 | | Call 0x0,0x6 0077 8007 | | Call 0x0,0x7 0078 00d1 | | Pop_Control Pop_Count_1 0079 00db | | Load_Top At_Offset_3 007a e5ff | | Load 0x2,-0x1 007b 8008 | | Call 0x0,0x8 007c 00d1 | | Pop_Control Pop_Count_1 007d e5fe | | Load 0x2,-0x2 007e e404 | | Load 0x2,0x4 007f e002 | | Load 0x0,0x2 0080 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0081 c5fe | | Store 0x2,-0x2 0082 7803 |x | Jump 0x86 0083 e402 | | Load 0x2,0x2 0084 0a01 | | Execute_Immediate Plus,0x1 0085 c402 | | Store 0x2,0x2 0086 00c9 | | Action Pop_Auxiliary_Loop 0087 7fc2 | | Jump 0x4a 0088 00ce | | Action Pop_Auxiliary 0089 780e |x | Jump 0x98 008a 00da | | Load_Top At_Offset_2 008b e402 | | Load 0x2,0x2 008c 8006 | | Call 0x0,0x6 008d 8007 | | Call 0x0,0x7 008e 00d1 | | Pop_Control Pop_Count_1 008f 00da | | Load_Top At_Offset_2 0090 e5ff | | Load 0x2,-0x1 0091 8008 | | Call 0x0,0x8 0092 00d1 | | Pop_Control Pop_Count_1 0093 e5fe | | Load 0x2,-0x2 0094 00db | | Load_Top At_Offset_3 0095 e002 | | Load 0x0,0x2 0096 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0097 c5fe | | Store 0x2,-0x2 0098 00da | | Load_Top At_Offset_2 0099 8004 | | Call 0x0,0x4 009a a5fd | | Store_Unchecked 0x2,-0x3 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a7 | | .CONST 0x00a7 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e003 | | Load 0x0,0x3 00a4 0322 | " | Declare_Variable Record 00a5 e002 | | Load 0x0,0x2 00a6 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a7 BODY_00a0: 00a7 e002 | | Load 0x0,0x2 00a8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a9 e5fe | | Load 0x2,-0x2 00aa e002 | | Load 0x0,0x2 00ab 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ac 0039 | 9 | Store_Top Access,At_Offset_1 00ad 00cf | | Action Mark_Auxiliary 00ae 00d9 | | Load_Top At_Offset_1 00af e002 | | Load 0x0,0x2 00b0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b1 00db | | Load_Top At_Offset_3 00b2 017d | } | Execute Record,Structure_Write 00b3 00d9 | | Load_Top At_Offset_1 00b4 e002 | | Load 0x0,0x2 00b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b6 00db | | Load_Top At_Offset_3 00b7 8004 | | Call 0x0,0x4 00b8 8005 | | Call 0x0,0x5 00b9 e5ff | | Load 0x2,-0x1 00ba 8005 | | Call 0x0,0x5 00bb 027f | | Execute Discrete,Equal 00bc 0278 | x | Execute Discrete,Or 00bd 7006 |p | Jump_Nonzero 0xc4 00be 00d9 | | Load_Top At_Offset_1 00bf e002 | | Load 0x0,0x2 00c0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c1 003a | : | Store_Top Access,At_Offset_2 00c2 00c9 | | Action Pop_Auxiliary_Loop 00c3 7fea | | Jump 0xae 00c4 00ce | | Action Pop_Auxiliary 00c5 00d8 | | Load_Top At_Offset_0 00c6 e002 | | Load 0x0,0x2 00c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c8 6804 |h | Jump_Zero 0xcd 00c9 e009 | | Load 0x0,0x9 00ca e5fd | | Load 0x2,-0x3 00cb 017d | } | Execute Record,Structure_Write 00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cd 00d9 | | Load_Top At_Offset_1 00ce 800a | | Call 0x0,0xa 00cf e5fd | | Load 0x2,-0x3 00d0 017d | } | Execute Record,Structure_Write 00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dd | | .CONST 0x00dd ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db e002 | | Load 0x0,0x2 00dc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00dd BODY_00d8: 00dd e002 | | Load 0x0,0x2 00de 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00df e5fe | | Load 0x2,-0x2 00e0 e002 | | Load 0x0,0x2 00e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00e2 0039 | 9 | Store_Top Access,At_Offset_1 00e3 00cf | | Action Mark_Auxiliary 00e4 00d9 | | Load_Top At_Offset_1 00e5 e002 | | Load 0x0,0x2 00e6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e7 00da | | Load_Top At_Offset_2 00e8 e002 | | Load 0x0,0x2 00e9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ea 8004 | | Call 0x0,0x4 00eb 8005 | | Call 0x0,0x5 00ec e5ff | | Load 0x2,-0x1 00ed 8005 | | Call 0x0,0x5 00ee 027f | | Execute Discrete,Equal 00ef 0278 | x | Execute Discrete,Or 00f0 7006 |p | Jump_Nonzero 0xf7 00f1 00d9 | | Load_Top At_Offset_1 00f2 e002 | | Load 0x0,0x2 00f3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00f4 003a | : | Store_Top Access,At_Offset_2 00f5 00c9 | | Action Pop_Auxiliary_Loop 00f6 7fed | | Jump 0xe4 00f7 00ce | | Action Pop_Auxiliary 00f8 00d8 | | Load_Top At_Offset_0 00f9 e002 | | Load 0x0,0x2 00fa 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00fb 7007 |p | Jump_Nonzero 0x103 00fc e5fe | | Load 0x2,-0x2 00fd 00d9 | | Load_Top At_Offset_1 00fe e002 | | Load 0x0,0x2 00ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0100 e002 | | Load 0x0,0x2 0101 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0102 c5fe | | Store 0x2,-0x2 0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug Table 0108 ; -------------------------------------------------------------------------------------- 0108 0004 000a | | .DEBUG4 0x0004,0x000a,0x8c76,0x0000,0x0001,0x0006 010e 000b 0126 | &| .DBG4T 0x000b,0x0126,0x8000,0x0000 0112 0017 012e | .| .DBG4T 0x0017,0x012e,0x8000,0x0000 0116 002b 0134 | + 4| .DBG4T 0x002b,0x0134,0x0001,0x0000 011a 003b 0137 | ; 7| .DBG4T 0x003b,0x0137,0x0001,0x4000 011e 00a3 015f | _| .DBG4T 0x00a3,0x015f,0x0001,0x4000 0122 00db 0171 | q| .DBG4T 0x00db,0x0171,0x0001,0x4000 0126 ; -------------------------------------------------------------------------------------- 0126 ; Debug chain 0126 ; -------------------------------------------------------------------------------------- 0126 0006 0000 | | .DBGLEN 0x0006,0x0000 0128 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0012,0x0014,0x0016 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0004 0000 | | .DBGLEN 0x0004,0x0000 0130 0017 0019 | | .DBGLNO 0x0017,0x0019,0x001b,0x001d 0134 ; -------------------------------------------------------------------------------------- 0134 ; Debug chain 0134 ; -------------------------------------------------------------------------------------- 0134 0000 0001 | | .DBGLEN 0x0000,0x0001 0136 002b | + | .DBGLNO 0x002b 0137 ; -------------------------------------------------------------------------------------- 0137 ; Debug chain 0137 ; -------------------------------------------------------------------------------------- 0137 0004 0011 | | .DBGLEN 0x0004,0x0011 0139 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x0041,0x0043,0x0045,0x004a,0x004d,0x0054,0x0058,0x005d,0x0067,0x006e,0x0072,0x0074,0x0079,0x007d,0x0083,0x008a,0x008f,0x0093,0x0098 014e 0001 0003 | | .XXX[0x11] 0150 0004 0006 | | 0152 0007 0008 | | 0154 0009 000a | | 0156 000b 000c | | 0158 000d 000e | | 015a 000f 0010 | | 015c 0011 0012 | | 015e 0013 | | 015f ; -------------------------------------------------------------------------------------- 015f ; Debug chain 015f ; -------------------------------------------------------------------------------------- 015f 0002 0007 | | .DBGLEN 0x0002,0x0007 0161 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00a7,0x00ae,0x00b3,0x00be,0x00c5,0x00c9,0x00cd 016a 0001 0003 | | .XXX[0x7] 016c 0004 0005 | | 016e 0006 0007 | | 0170 0008 | | 0171 ; -------------------------------------------------------------------------------------- 0171 ; Debug chain 0171 ; -------------------------------------------------------------------------------------- 0171 0001 0005 | | .DBGLEN 0x0001,0x0005 0173 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00e4,0x00f1,0x00f8,0x00fc 0179 0001 0003 | | .XXX[0x5] 017b 0004 0005 | | 017d 0006 | | 017e 0000 0000 | | .BLANK 0000[0x82]